home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / mushswe.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-16  |  4.2 KB  |  176 lines
  1. global gRollerList, gSpeciesList, gLinkRollerList, gTextCastLib, gPictList, gFrameLabel, gSpeakList, gSpeak, gFrom, gTo, gPrintText, gPrintPicture, gPrintPictureCastlib, gLanguage, gFlag, gLink
  2.  
  3. on startMovie
  4.   set gLink to 1
  5.   set the idleLoadMode to 3
  6.   set the preLoadEventAbort to 1
  7.   set gFrom to 15
  8.   set gTo to 18
  9.   set gTextCastLib to "mushtext"
  10.   set gPrintPictureCastlib to "mush332"
  11.   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"]
  12.   set gLinkRollerList to [15: 332, 16: 345, 17: 358, 18: 372]
  13.   if (gFrameLabel = "pic101") or voidp(gFrameLabel) then
  14.     set gSpeciesList to value(the text of field "L01")
  15.     set gPictList to value(the text of field "P01")
  16.     set gSpeakList to value(the text of field "S01")
  17.     set gSpeak to 1
  18.     set gPrintText to 101
  19.     set gFlag to 2
  20.     speak()
  21.   else
  22.     goTheSpecies()
  23.   end if
  24. end
  25.  
  26. on goPic1
  27.   cursor(4)
  28.   go(getaProp(gPictList, 1))
  29. end
  30.  
  31. on goPic2
  32.   cursor(4)
  33.   go(getaProp(gPictList, 2))
  34. end
  35.  
  36. on goPic3
  37.   cursor(4)
  38.   go(getaProp(gPictList, 3))
  39. end
  40.  
  41. on goMap
  42.   set i to integer(char 5 of gFrameLabel)
  43.   set N to integer(the last char in gFrameLabel)
  44.   case N of
  45.     "10":
  46.       set N to i * N
  47.       set k to N
  48.     "-1":
  49.       set N to (i * 10) - 1
  50.       set k to N
  51.     otherwise:
  52.       set k to (i * 10) + N
  53.   end case
  54.   if i = 0 then
  55.     do("go" && QUOTE & "maps" & i & N & QUOTE)
  56.   else
  57.     do("go" && QUOTE & "maps" & k & QUOTE)
  58.   end if
  59. end
  60.  
  61. on goClass
  62.   set i to integer(char 5 of gFrameLabel)
  63.   set N to integer(the last char in gFrameLabel)
  64.   case N of
  65.     "10":
  66.       set N to i * N
  67.       set k to N
  68.     "-1":
  69.       set N to (i * 10) - 1
  70.       set k to N
  71.     otherwise:
  72.       set k to (i * 10) + N
  73.   end case
  74.   if i = 0 then
  75.     do("go" && QUOTE & "clas" & i & N & QUOTE)
  76.   else
  77.     do("go" && QUOTE & "clas" & k & QUOTE)
  78.   end if
  79. end
  80.  
  81. on nextSpecies
  82.   puppetSound(0)
  83.   set gFlag to 1
  84.   set i to integer(char 5 of gFrameLabel)
  85.   set N to integer(the last char in gFrameLabel + 1)
  86.   case N of
  87.     "10":
  88.       if i = 0 then
  89.         set f1 to "L" & N
  90.         set f3 to "P" & N
  91.         set f4 to "S" & N
  92.         set i to 1
  93.         set k to 10
  94.       else
  95.         set N to (i + 1) * N
  96.         set f1 to "L" & N
  97.         set f3 to "P" & N
  98.         set f4 to "S" & N
  99.         set k to N
  100.       end if
  101.     otherwise:
  102.       set f1 to "L" & i & N
  103.       set f3 to "P" & i & N
  104.       set f4 to "S" & i & N
  105.       set k to (i * 10) + N
  106.   end case
  107.   set gSpeciesList to value(the text of field f1)
  108.   linkText(1, 332, 1)
  109.   set gPictList to value(the text of field f3)
  110.   cursor(4)
  111.   if i = 0 then
  112.     do("go" && QUOTE & "pic1" & i & N & QUOTE)
  113.   else
  114.     do("go" && QUOTE & "pic1" & k & QUOTE)
  115.   end if
  116.   set gSpeakList to value(the text of field f4)
  117.   set gSpeak to 1
  118.   speak()
  119. end
  120.  
  121. on previousSpecies
  122.   puppetSound(0)
  123.   set gFlag to 1
  124.   set i to integer(char 5 of gFrameLabel)
  125.   set N to integer(the last char in gFrameLabel - 1)
  126.   case N of
  127.     "-1":
  128.       set i to i - 1
  129.       set N to 9
  130.       set f1 to "L" & i & N
  131.       set f3 to "P" & i & N
  132.       set f4 to "S" & i & N
  133.       set k to (i * 10) + N
  134.     otherwise:
  135.       set f1 to "L" & i & N
  136.       set f3 to "P" & i & N
  137.       set f4 to "S" & i & N
  138.       set k to (i * 10) + N
  139.   end case
  140.   set gSpeciesList to value(the text of field f1)
  141.   linkText(1, 332, 1)
  142.   set gPictList to value(the text of field f3)
  143.   cursor(4)
  144.   if i = 0 then
  145.     do("go" && QUOTE & "pic1" & i & N & QUOTE)
  146.   else
  147.     do("go" && QUOTE & "pic1" & k & QUOTE)
  148.   end if
  149.   set gSpeakList to value(the text of field f4)
  150.   set gSpeak to 1
  151.   speak()
  152. end
  153.  
  154. on goTheSpecies
  155.   puppetSound(0)
  156.   set gFlag to 2
  157.   set i to integer(char 5 of gFrameLabel)
  158.   set N to integer(the last char in gFrameLabel)
  159.   set f1 to "L" & i & N
  160.   set f3 to "P" & i & N
  161.   set f4 to "S" & i & N
  162.   set gSpeciesList to value(the text of field f1)
  163.   linkText(1, 332, 1)
  164.   set gPictList to value(the text of field f3)
  165.   cursor(4)
  166.   do("go" && QUOTE & "pic1" & i & N & QUOTE)
  167.   set gSpeakList to value(the text of field f4)
  168.   set gSpeak to 1
  169.   speak()
  170. end
  171.  
  172. on previousLink
  173.   cursor(4)
  174.   go("mushroom", "mainswe")
  175. end
  176.