home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 42 / CDGAMER42.iso / Egoboo / egoboo.exe / egoboo / modules / rogue.mod / objects / knife.obj / script.txt < prev    next >
Text File  |  2000-02-09  |  1KB  |  48 lines
  1. // ZZ> This function makes an item fall to the floor when spawned
  2. IfSpawned                //
  3.   tmpargument = ACTIONJB          //
  4.   DoAction                  //
  5.   KeepAction                  //
  6.   MakeCrushValid
  7. IfCrushed
  8.   tmpx = selfx
  9.   tmpy = selfy
  10.   tmpdistance = selfz
  11.   tmpargument = 1
  12.   SpawnExactParticle
  13.   SpawnExactParticle
  14.   SpawnExactParticle
  15.   SpawnExactParticle
  16.   GoPoof
  17.   tmpargument = 1
  18.   SendMessageNear
  19. IfDropped                // Make it lie on floor
  20.   KeepAction                  //
  21.   tmpargument = 3              //
  22.   tmpdistance = rand & 1023 + 10500      //
  23.   PlaySound                  //
  24. IfGrabbed                // Tell them what they've won...
  25.   SetTargetToWhoeverIsHolding          //
  26.   IfTargetIsAPlayer              //
  27.     tmpargument = 0              //
  28.     SendMessageNear              //
  29. IfHitGround                // Make a sound
  30.   tmpargument = 1              //
  31.   tmpdistance = rand & 2047 + 10000      //
  32.   PlaySound                  //
  33. IfNotDropped
  34.   tmpargument = 2
  35.   SendMessageNear
  36. IfTakenOut
  37.   tmpargument = 2
  38.   tmpdistance = rand & 2047 + 10000
  39.   PlaySound
  40.   SetTargetToWhoeverIsHolding
  41.   IfTargetIsAPlayer
  42.     tmpargument = 4
  43.     SendMessageNear
  44. IfNotPutAway
  45.   tmpargument = 3
  46.   SendMessageNear
  47. End                    // All done
  48.