home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 42 / CDGAMER42.iso / Egoboo / egoboo.exe / egoboo / modules / healer.mod / objects / brazier.obj / script.txt < prev    next >
Text File  |  2000-06-25  |  1KB  |  67 lines
  1. // ZZ> This function controls the burning of the fire holder
  2. IfSpawned
  3.   tmpargument = rand & 15          // Initial flicker
  4.   SetFrame
  5.   GetContent
  6.   SetState
  7.   IfStateIs0
  8.     // Off to begin
  9.     DisaffirmCharacter
  10.   IfStateIs1
  11.     // On permanently
  12.     tmpargument = 2
  13.     SetState
  14.   IfStateIs3
  15.     // Off to begin, close passage when fire gone
  16.     DisaffirmCharacter
  17.     tmpargument = 0
  18.     SetState
  19. IfStateIs0
  20.   // Not lit...
  21.   IfReaffirmed
  22.     tmpargument = 1
  23.     SetState
  24.     tmpargument = 500              // Burn for 10 seconds
  25.     SetTime
  26.     // Open the passage
  27.     tmpargument = passage
  28.     OpenPassage
  29.       tmpargument = 2
  30.       tmpdistance = 11025
  31.       PlaySound
  32.       tmpargument = 1
  33.       SendMessageNear
  34.       tmpargument = selfmoney
  35.       tmpdistance = EXPSECRET
  36.       GiveExperienceToGoodTeam
  37. IfStateIs1
  38.   // Lit...
  39.   IfReaffirmed
  40.     tmpargument = 500
  41.     SetTime
  42.   IfTimeOut
  43.     DisaffirmCharacter
  44.     tmpargument = 0
  45.     SetState
  46.     SendMessageNear
  47.     // Fade out the light
  48.     tmpargument = 3
  49.     tmpx = 0
  50.     tmpy = 0
  51.     tmpdistance = SPAWNLAST
  52.     SpawnParticle
  53.  
  54.  
  55.     // Check for content==3
  56.     GetContent
  57.     tmpx = tmpargument
  58.     tmpy = 3
  59.     IfXIsEqualToY
  60.       // Close the passage
  61.       tmpargument = passage
  62.       ClosePassage
  63. IfReaffirmed
  64.   tmpargument = 50
  65.   SetReloadTime
  66. End                    // All done
  67.