home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / reptswe.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-16  |  3.5 KB  |  124 lines
  1. global gRollerList, gSpeciesList, gLinkRollerList, gTextCastLib, gPrintPictureCastlib, gPictList, gFrameLabel, gSpeakList, gSpeak, gFrom, gTo, gLanguage, gFlag
  2.  
  3. on startMovie
  4.   set the preLoadEventAbort to 1
  5.   set the idleLoadMode to 3
  6.   set gTextCastLib to "reptext"
  7.   set gPrintPictureCastlib to "rept332"
  8.   set gFrom to 15
  9.   set gTo to 24
  10.   set gRollerList to [31: 11, 32: 11, 33: 11, 34: member 21 of castLib "shared", 35: member 22 of castLib "shared", 36: member 23 of castLib "shared", 37: member 24 of castLib "shared", 38: member 25 of castLib "shared", 39: member 36 of castLib "shared"]
  11.   if (gFrameLabel = "pic101") or voidp(gFrameLabel) then
  12.     set gLinkRollerList to [15: 332, 16: 345, 17: 358, 18: 372, 19: 387, 20: 400, 21: 415, 22: 428, 23: 443, 24: 456]
  13.     set gSpeciesList to value(the text of field "L01")
  14.     set gPictList to value(the text of field "P01")
  15.     set gSpeakList to value(the text of field "S01")
  16.     set gSpeak to 1
  17.     set gFlag to 2
  18.     speak()
  19.   else
  20.     goTheSpecies()
  21.   end if
  22. end
  23.  
  24. on goPic1
  25.   cursor(4)
  26.   go(getaProp(gPictList, 1))
  27. end
  28.  
  29. on goPic2
  30.   cursor(4)
  31.   go(getaProp(gPictList, 2))
  32. end
  33.  
  34. on goPic3
  35.   cursor(4)
  36.   go(getaProp(gPictList, 3))
  37. end
  38.  
  39. on goMap
  40.   set i to integer(char 5 of gFrameLabel)
  41.   set N to integer(the last char in gFrameLabel)
  42.   do("go" && QUOTE & "maps" & i & N & QUOTE)
  43. end
  44.  
  45. on goClass
  46.   set i to integer(char 5 of gFrameLabel)
  47.   set N to integer(the last char in gFrameLabel)
  48.   do("go" && QUOTE & "clas" & i & N & QUOTE)
  49. end
  50.  
  51. on nextSpecies
  52.   puppetSound(0)
  53.   set gFlag to 1
  54.   set i to integer(char 5 of gFrameLabel)
  55.   set N to integer(the last char in gFrameLabel + 1)
  56.   set f1 to "L" & i & N
  57.   set f2 to "R" & i & N
  58.   set f3 to "P" & i & N
  59.   set f4 to "S" & i & N
  60.   set gSpeciesList to value(the text of field f1)
  61.   linkText(1, 332, 1)
  62.   set gLinkRollerList to value(the text of field f2)
  63.   set gPictList to value(the text of field f3)
  64.   puppetSprite(7, 1)
  65.   set z to getaProp(gSpeciesList, 11)
  66.   set the member of sprite 7 to member z of castLib gTextCastLib
  67.   set gSpeakList to value(the text of field f4)
  68.   set gSpeak to 1
  69.   cursor(4)
  70.   do("go" && QUOTE & "pic1" & i & N & QUOTE)
  71.   speak()
  72. end
  73.  
  74. on previousSpecies
  75.   puppetSound(0)
  76.   set gFlag to 1
  77.   set i to integer(char 5 of gFrameLabel)
  78.   set N to integer(the last char in gFrameLabel - 1)
  79.   set f1 to "L" & i & N
  80.   set f2 to "R" & i & N
  81.   set f3 to "P" & i & N
  82.   set f4 to "S" & i & N
  83.   set gSpeciesList to value(the text of field f1)
  84.   linkText(1, 332, 1)
  85.   set gLinkRollerList to value(the text of field f2)
  86.   set gPictList to value(the text of field f3)
  87.   puppetSprite(7, 1)
  88.   set z to getaProp(gSpeciesList, 11)
  89.   set the member of sprite 7 to member z of castLib gTextCastLib
  90.   set gSpeakList to value(the text of field f4)
  91.   set gSpeak to 1
  92.   cursor(4)
  93.   do("go" && QUOTE & "pic1" & i & N & QUOTE)
  94.   speak()
  95. end
  96.  
  97. on goTheSpecies
  98.   puppetSound(0)
  99.   set gFlag to 2
  100.   set i to integer(char 5 of gFrameLabel)
  101.   set N to integer(the last char in gFrameLabel)
  102.   set f1 to "L" & i & N
  103.   set f2 to "R" & i & N
  104.   set f3 to "P" & i & N
  105.   set f4 to "S" & i & N
  106.   set gSpeciesList to value(the text of field f1)
  107.   linkText(1, 332, 1)
  108.   set gLinkRollerList to value(the text of field f2)
  109.   set gPictList to value(the text of field f3)
  110.   puppetSprite(7, 1)
  111.   set z to getaProp(gSpeciesList, 11)
  112.   set the member of sprite 7 to member z of castLib gTextCastLib
  113.   set gSpeakList to value(the text of field f4)
  114.   set gSpeak to 1
  115.   cursor(4)
  116.   do("go" && QUOTE & "pic1" & i & N & QUOTE)
  117.   speak()
  118. end
  119.  
  120. on previousLink
  121.   cursor(4)
  122.   go("reptiles", "mainswe")
  123. end
  124.