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