home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 42 / CDGAMER42.iso / Egoboo / egoboo.exe / egoboo / modules / advent.mod / objects / cbutton.obj / script.txt < prev    next >
Text File  |  1999-05-26  |  923b  |  28 lines
  1. // ZZ> This function makes the button close the passage
  2. tmpx = 20                // Threshold weight
  3. tmpy = weight                // Weight of characters on top
  4. tmpargument = passage                  //
  5. IfXIsLessThanY                // Close it
  6.   ClosePassage                  //
  7. IfPassageOpen                // Pop up
  8.   tmpargument = 1              //
  9.   IfStateIs                  //
  10.     tmpargument = ACTIONMJ            //
  11.     DoAction                    //
  12.       tmpargument = 0                  // 0 is up
  13.       SetState                      //
  14.       KeepAction                  // Make it stay on last frame
  15.       tmpargument = 60                  //
  16.       SetBumpHeight                  //
  17. Else                    // Go down
  18.   tmpargument = 0              //
  19.   IfStateIs                  //
  20.     tmpargument = ACTIONMG            //
  21.     DoAction                    //
  22.       tmpargument = 1                  // 1 is down
  23.       SetState                      //
  24.       KeepAction                  // Make it stay on last frame
  25.       tmpargument = 0                  //
  26.       SetBumpHeight                  //
  27. End                    // Finished with this character
  28.