home *** CD-ROM | disk | FTP | other *** search
/ Gamer's Paradise: Logic / Hracuv-raj_Logicke-hry_cd1.bin / QUESTCAM / HATCHLIN.DIR / 00563.ls < prev    next >
Encoding:
Text File  |  1998-02-26  |  1.3 KB  |  29 lines
  1. on ReshelveItem backflag
  2.   global selectedSprite, objsLocList, objsChan, lastSelectedSprite
  3.   set shelfy to selectedSprite
  4.   if backflag = 1 then
  5.     set the loc of sprite selectedSprite to getAt(getAt(objsLocList, selectedSprite - objsChan + 1), 1)
  6.   end if
  7.   if listp(backflag) then
  8.     if not rollOver(dragonChan) then
  9.       set mrmember to the memberNum of sprite selectedSprite
  10.       set ggg to the regPoint of member mrmember
  11.       set topoff to getAt(ggg, 2)
  12.       set leftoff to getAt(ggg, 1)
  13.       set h to the height of member mrmember
  14.       set w to the width of member mrmember
  15.       set brmp to FindClosestShelf(getAt(backflag, 1), getAt(backflag, 2), topoff, leftoff, h, w)
  16.       set the locH of sprite selectedSprite to getAt(brmp, 1)
  17.       set the locV of sprite selectedSprite to getAt(brmp, 2)
  18.     else
  19.       set the loc of sprite selectedSprite to getAt(getAt(objsLocList, selectedSprite - objsChan + 1), 1)
  20.     end if
  21.   end if
  22.   set newmember to getAt(getAt(objsLocList, selectedSprite - objsChan + 1), 2)
  23.   set the memberNum of sprite selectedSprite to newmember
  24.   set bottomoffset to the height of member newmember - getAt(the regPoint of member newmember, 2)
  25.   ShuffleSprites(shelfy, the locV of sprite shelfy, bottomoffset)
  26.   set selectedSprite to lastSelectedSprite
  27.   set lastSelectedSprite to 0
  28. end
  29.