home *** CD-ROM | disk | FTP | other *** search
/ PC Play: Horror & Adventure / HORROR.ISO / demos / backpack / bp2_rsrc / newtrav.dxr / 00148.ls < prev    next >
Encoding:
Text File  |  1997-01-22  |  672 b   |  21 lines
  1. on mouseUp
  2.   global gCityFound, gTowns, gCityDB, gName, gSName
  3.   set gTowns to [getAt(getAt(gCityDB, gCityFound), 1)]
  4.   set cityname to getAt(getAt(gCityDB, PICDB(getLast(gTowns))), 2)
  5.   set the text of field "DepartureTown" of castLib 1 to cityname
  6.   set currency to getAt(getAt(gCityDB, PICDB(getLast(gTowns))), 6)
  7.   set balance to "0" && currency
  8.   set the text of member "BalanceBig" of castLib 2 to balance
  9.   set the text of member "CC Name" to gName && gSName
  10.   puppetSprite(11, 0)
  11.   puppetSprite(13, 0)
  12.   set the visible of sprite 11 to 1
  13.   set the visible of sprite 13 to 1
  14.   go("PointOfDep")
  15.   GetDepartures("START")
  16. end
  17.  
  18. on mouseDown
  19.   ButtonH("StampSound")
  20. end
  21.