home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / birdswe.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-16  |  5.1 KB  |  202 lines

  1. global gRollerList, gSpeciesList, gLinkRollerList, gTextCastLib, gPrintPictureCastlib, gPictList, gFrameLabel, gSpeakList, gSpeak, gSong, gFrom, gTo, gLanguage, gFlag
  2.  
  3. on startMovie
  4.   set the preLoadEventAbort to 0
  5.   set the idleLoadMode to 3
  6.   set gTextCastLib to "birdtext"
  7.   set gPrintPictureCastlib to "birds332"
  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 gSong to value(the text of field "B01")
  17.     set gSpeak to 1
  18.     set gFlag to 2
  19.     speak()
  20.   else
  21.     goTheSpecies()
  22.   end if
  23. end
  24.  
  25. on goPic1
  26.   cursor(4)
  27.   go(getaProp(gPictList, 1))
  28. end
  29.  
  30. on goPic2
  31.   cursor(4)
  32.   go(getaProp(gPictList, 2))
  33. end
  34.  
  35. on goPic3
  36.   cursor(4)
  37.   go(getaProp(gPictList, 3))
  38. end
  39.  
  40. on goMap
  41.   set i to integer(char 5 of gFrameLabel)
  42.   set N to integer(the last char in gFrameLabel)
  43.   case N of
  44.     "10":
  45.       set N to i * N
  46.       set k to N
  47.     "-1":
  48.       set N to (i * 10) - 1
  49.       set k to N
  50.     otherwise:
  51.       set k to (i * 10) + N
  52.   end case
  53.   if i = 0 then
  54.     do("go" && QUOTE & "maps" & i & N & QUOTE)
  55.   else
  56.     do("go" && QUOTE & "maps" & k & QUOTE)
  57.   end if
  58. end
  59.  
  60. on goClass
  61.   set i to integer(char 5 of gFrameLabel)
  62.   set N to integer(the last char in gFrameLabel)
  63.   case N of
  64.     "10":
  65.       set N to i * N
  66.       set k to N
  67.     "-1":
  68.       set N to (i * 10) - 1
  69.       set k to N
  70.     otherwise:
  71.       set k to (i * 10) + N
  72.   end case
  73.   if i = 0 then
  74.     do("go" && QUOTE & "clas" & i & N & QUOTE)
  75.   else
  76.     do("go" && QUOTE & "clas" & k & QUOTE)
  77.   end if
  78. end
  79.  
  80. on nextSpecies
  81.   puppetSound(0)
  82.   set gFlag to 1
  83.   set i to integer(char 5 of gFrameLabel)
  84.   set N to integer(the last char in gFrameLabel + 1)
  85.   case N of
  86.     "10":
  87.       if i = 0 then
  88.         set f1 to "L" & N
  89.         set f2 to "R" & N
  90.         set f3 to "P" & N
  91.         set f4 to "S" & N
  92.         set f5 to "B" & N
  93.         set i to 1
  94.         set k to 10
  95.       else
  96.         set N to (i + 1) * N
  97.         set f1 to "L" & N
  98.         set f2 to "R" & N
  99.         set f3 to "P" & N
  100.         set f4 to "S" & N
  101.         set f5 to "B" & N
  102.         set k to N
  103.       end if
  104.     otherwise:
  105.       set f1 to "L" & i & N
  106.       set f2 to "R" & i & N
  107.       set f3 to "P" & i & N
  108.       set f4 to "S" & i & N
  109.       set f5 to "B" & i & N
  110.       set k to (i * 10) + N
  111.   end case
  112.   set gSpeciesList to value(the text of field f1)
  113.   linkText(1, 332, 1)
  114.   set gLinkRollerList to value(the text of field f2)
  115.   set gPictList to value(the text of field f3)
  116.   puppetSprite(7, 1)
  117.   set z to getaProp(gSpeciesList, 11)
  118.   set the member of sprite 7 to member z of castLib gTextCastLib
  119.   set gSong to value(the text of field f5)
  120.   set gSpeakList to value(the text of field f4)
  121.   set gSpeak to 1
  122.   cursor(4)
  123.   if i = 0 then
  124.     do("go" && QUOTE & "pic1" & i & N & QUOTE)
  125.   else
  126.     do("go" && QUOTE & "pic1" & k & QUOTE)
  127.   end if
  128.   speak()
  129. end
  130.  
  131. on previousSpecies
  132.   puppetSound(0)
  133.   set gFlag to 1
  134.   set i to integer(char 5 of gFrameLabel)
  135.   set N to integer(the last char in gFrameLabel - 1)
  136.   case N of
  137.     "-1":
  138.       set i to i - 1
  139.       set N to 9
  140.       set f1 to "L" & i & N
  141.       set f2 to "R" & i & N
  142.       set f3 to "P" & i & N
  143.       set f4 to "S" & i & N
  144.       set f5 to "B" & i & N
  145.       set k to (i * 10) + N
  146.     otherwise:
  147.       set f1 to "L" & i & N
  148.       set f2 to "R" & i & N
  149.       set f3 to "P" & i & N
  150.       set f4 to "S" & i & N
  151.       set f5 to "B" & i & N
  152.       set k to (i * 10) + N
  153.   end case
  154.   set gSpeciesList to value(the text of field f1)
  155.   linkText(1, 332, 1)
  156.   set gLinkRollerList to value(the text of field f2)
  157.   set gPictList to value(the text of field f3)
  158.   puppetSprite(7, 1)
  159.   set z to getaProp(gSpeciesList, 11)
  160.   set the member of sprite 7 to member z of castLib gTextCastLib
  161.   set gSong to value(the text of field f5)
  162.   set gSpeakList to value(the text of field f4)
  163.   set gSpeak to 1
  164.   cursor(4)
  165.   if i = 0 then
  166.     do("go" && QUOTE & "pic1" & i & N & QUOTE)
  167.   else
  168.     do("go" && QUOTE & "pic1" & k & QUOTE)
  169.   end if
  170.   speak()
  171. end
  172.  
  173. on goTheSpecies
  174.   puppetSound(0)
  175.   set gFlag to 2
  176.   set i to integer(char 5 of gFrameLabel)
  177.   set N to integer(the last char in gFrameLabel)
  178.   set f1 to "L" & i & N
  179.   set f2 to "R" & i & N
  180.   set f3 to "P" & i & N
  181.   set f4 to "S" & i & N
  182.   set f5 to "B" & i & N
  183.   set gSpeciesList to value(the text of field f1)
  184.   linkText(1, 332, 1)
  185.   set gLinkRollerList to value(the text of field f2)
  186.   set gPictList to value(the text of field f3)
  187.   puppetSprite(7, 1)
  188.   set z to getaProp(gSpeciesList, 11)
  189.   set the member of sprite 7 to member z of castLib gTextCastLib
  190.   set gSong to value(the text of field f5)
  191.   set gSpeakList to value(the text of field f4)
  192.   set gSpeak to 1
  193.   cursor(4)
  194.   do("go" && QUOTE & "pic1" & i & N & QUOTE)
  195.   speak()
  196. end
  197.  
  198. on previousLink
  199.   cursor(4)
  200.   go("birds", "mainswe")
  201. end
  202.