1put 1.0 / 3 2set the floatPrecision to 6 3put 1.0 / 3 4put the loch of sprite 4 5set the loch of sprite 5 to 10 6set the castnum of sprite 8 to the number of cast "A Blank Castmember" 7 8put the time 9put the abbrev time 10put the long time 11 12put the date 13put the short date 14put the abbrev date 15put the long date 16 17set a = 5 18 19set gravityConst = the value of ( the text of cast 1) 20set the hilite of cast 1 to (a = 3) 21set the text of cast 1 = string( gravityConst ) 22 23-- This is object setting. D4+ 24set BlastWindow to window "Media Blast" 25set the filename of BlastWindow to "blastwin" 26set the titleVisible of BlastWindow to true 27set the modal of BlastWindow to true 28set the windowtype of BlastWindow to 5 29 30set the bottom of sprite 1 to originV + (the number of lines in someText) * 16 31set the bottom of sprite 1 to originV + (the number of words in someText) * 16 32 33put the number of words of field 1 into field 5 34 35set h = the locH of sprite pSprite + pChangeH 36 37set the volume of sound 1 to 255 38put the volume of sound 1 into field 11 39 40set the checkMark of menuItem "Horizontal" of menu "The Ball" to False 41 42put the number of castMembers into field 5 43 44put the number of menuItems of menu "sam" into field 3 45 46put abs( the locH of sprite 2 - the mouseH) into field 4 47 48set the castNum of sprite the clickon = the number of cast "main.hi" 49 50-- set castname = the name of cast(the castnum of sprite 1) 51 52set res = the soundBusy of 1 53 54put the sqrt of 9 55 56put 5 into field the number of cast "MasterList" 57 58set the text of field 1 = "Hello" 59 60-- The next statement is valid lingo, however it's hard to parse. 61-- We have no indication that this one off type of code is used. 62-- set the text of field 0 + 1 = "Hello" 63 64set h to "Hello" 65 66set gMarkerName = the length of h + 2 67 68 69-- test the itemDelimiter 70set save = the itemDelimiter 71scummvmAssert(save=",") 72set the itemDelimiter = ":" 73scummvmAssert(the itemDelimiter=":") 74set the itemDelimiter = ":," 75scummvmAssert(the itemDelimiter=":") 76set the itemDelimiter = "" 77scummvmAssert(the itemDelimiter="") 78set the itemDelimiter = save 79 80-- test number of items 81set chunkExpr to "one:two:three" 82scummvmAssertEqual(the number of items in chunkExpr, 1) 83set the itemDelimiter to ":" 84scummvmAssertEqual(the number of items in chunkExpr, 3) 85set the itemDelimiter to save 86