home *** CD-ROM | disk | FTP | other *** search
Wrap
global gRollerList, gSpeciesList, gLinkRollerList, gTextCastLib, gPrintPictureCastlib, gPictList, gFrameLabel, gSpeakList, gSpeak, gSong, gFrom, gTo, gLanguage, gFlag on startMovie set the preLoadEventAbort to 0 set the idleLoadMode to 3 set gTextCastLib to "birdtext" set gPrintPictureCastlib to "birds332" set gFrom to 15 set gTo to 24 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"] if (gFrameLabel = "pic101") or voidp(gFrameLabel) then set gLinkRollerList to [15: 332, 16: 345, 17: 358, 18: 372, 19: 387, 20: 400, 21: 415, 22: 428, 23: 443, 24: 456] set gSpeciesList to value(the text of field "L01") set gPictList to value(the text of field "P01") set gSpeakList to value(the text of field "S01") set gSong to value(the text of field "B01") set gSpeak to 1 set gFlag to 2 speak() else goTheSpecies() end if end on goPic1 cursor(4) go(getaProp(gPictList, 1)) end on goPic2 cursor(4) go(getaProp(gPictList, 2)) end on goPic3 cursor(4) go(getaProp(gPictList, 3)) end on goMap set i to integer(char 5 of gFrameLabel) set N to integer(the last char in gFrameLabel) case N of "10": set N to i * N set k to N "-1": set N to (i * 10) - 1 set k to N otherwise: set k to (i * 10) + N end case if i = 0 then do("go" && QUOTE & "maps" & i & N & QUOTE) else do("go" && QUOTE & "maps" & k & QUOTE) end if end on goClass set i to integer(char 5 of gFrameLabel) set N to integer(the last char in gFrameLabel) case N of "10": set N to i * N set k to N "-1": set N to (i * 10) - 1 set k to N otherwise: set k to (i * 10) + N end case if i = 0 then do("go" && QUOTE & "clas" & i & N & QUOTE) else do("go" && QUOTE & "clas" & k & QUOTE) end if end on nextSpecies puppetSound(0) set gFlag to 1 set i to integer(char 5 of gFrameLabel) set N to integer(the last char in gFrameLabel + 1) case N of "10": if i = 0 then set f1 to "L" & N set f2 to "R" & N set f3 to "P" & N set f4 to "S" & N set f5 to "B" & N set i to 1 set k to 10 else set N to (i + 1) * N set f1 to "L" & N set f2 to "R" & N set f3 to "P" & N set f4 to "S" & N set f5 to "B" & N set k to N end if otherwise: set f1 to "L" & i & N set f2 to "R" & i & N set f3 to "P" & i & N set f4 to "S" & i & N set f5 to "B" & i & N set k to (i * 10) + N end case set gSpeciesList to value(the text of field f1) linkText(1, 332, 1) set gLinkRollerList to value(the text of field f2) set gPictList to value(the text of field f3) puppetSprite(7, 1) set z to getaProp(gSpeciesList, 11) set the member of sprite 7 to member z of castLib gTextCastLib set gSong to value(the text of field f5) set gSpeakList to value(the text of field f4) set gSpeak to 1 cursor(4) if i = 0 then do("go" && QUOTE & "pic1" & i & N & QUOTE) else do("go" && QUOTE & "pic1" & k & QUOTE) end if speak() end on previousSpecies puppetSound(0) set gFlag to 1 set i to integer(char 5 of gFrameLabel) set N to integer(the last char in gFrameLabel - 1) case N of "-1": set i to i - 1 set N to 9 set f1 to "L" & i & N set f2 to "R" & i & N set f3 to "P" & i & N set f4 to "S" & i & N set f5 to "B" & i & N set k to (i * 10) + N otherwise: set f1 to "L" & i & N set f2 to "R" & i & N set f3 to "P" & i & N set f4 to "S" & i & N set f5 to "B" & i & N set k to (i * 10) + N end case set gSpeciesList to value(the text of field f1) linkText(1, 332, 1) set gLinkRollerList to value(the text of field f2) set gPictList to value(the text of field f3) puppetSprite(7, 1) set z to getaProp(gSpeciesList, 11) set the member of sprite 7 to member z of castLib gTextCastLib set gSong to value(the text of field f5) set gSpeakList to value(the text of field f4) set gSpeak to 1 cursor(4) if i = 0 then do("go" && QUOTE & "pic1" & i & N & QUOTE) else do("go" && QUOTE & "pic1" & k & QUOTE) end if speak() end on goTheSpecies puppetSound(0) set gFlag to 2 set i to integer(char 5 of gFrameLabel) set N to integer(the last char in gFrameLabel) set f1 to "L" & i & N set f2 to "R" & i & N set f3 to "P" & i & N set f4 to "S" & i & N set f5 to "B" & i & N set gSpeciesList to value(the text of field f1) linkText(1, 332, 1) set gLinkRollerList to value(the text of field f2) set gPictList to value(the text of field f3) puppetSprite(7, 1) set z to getaProp(gSpeciesList, 11) set the member of sprite 7 to member z of castLib gTextCastLib set gSong to value(the text of field f5) set gSpeakList to value(the text of field f4) set gSpeak to 1 cursor(4) do("go" && QUOTE & "pic1" & i & N & QUOTE) speak() end on previousLink cursor(4) go("birds", "mainswe") end