home *** CD-ROM | disk | FTP | other *** search
/ Gamer's Paradise: Logic / Hracuv-raj_Logicke-hry_cd1.bin / QUESTCAM / HATCHLIN.DIR / 00549.ls < prev    next >
Encoding:
Text File  |  1998-02-26  |  896 b   |  46 lines
  1. on DoSitLoop
  2.   global lastSitThing, initialpause, happy, dancecount
  3.   if initialpause > 0 then
  4.     set initialpause to initialpause - 1
  5.   end if
  6.   set hresult to CheckStates()
  7.   if hresult = 1 then
  8.     exit
  9.   end if
  10.   set BBB to random(100)
  11.   if happy > 1000 then
  12.     if BBB < 5 then
  13.       set dancecount to 0
  14.       set lastSitThing to "dance a"
  15.       setanim("dance a")
  16.       exit
  17.     end if
  18.   end if
  19.   if BBB < 90 then
  20.     set lastSitThing to "SIT"
  21.     setanim("SIT")
  22.     exit
  23.   end if
  24.   if initialpause = 0 then
  25.     if BBB < 95 then
  26.       setanim("SquashDown")
  27.       exit
  28.     end if
  29.   end if
  30.   if BBB < 99 then
  31.     if lastSitThing <> "blink" then
  32.       set lastSitThing to "blink"
  33.       setanim("blink")
  34.       exit
  35.     end if
  36.   end if
  37.   if lastSitThing <> "turn" then
  38.     set lastSitThing to "turn"
  39.     setanim("turn")
  40.     exit
  41.   end if
  42.   set lastSitThing to "SIT"
  43.   setanim("SIT")
  44.   exit
  45. end
  46.