home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
cngrkpl.dir
/
00119_Script_initializeGoldenGame
< prev
next >
Wrap
Text File
|
1996-05-30
|
1KB
|
49 lines
-- ---------------------------------------------------------------
-- Handler initializeGoldenGame
on initializeGoldenGame
global outline, firstPlacedOutline, numOutlines
global currentPlacedPiece, GSDoor, rightBulb, leftBulb
global firstPlacedOutline, lastPlacedOutline, totalPieces,totalPlaced
set numOutlines = 10
set totalPieces =19
set outline = 6
set firstPlacedOutline = 7
set lastPlacedOutline = firstPlacedOutline + numOutlines - 1
set GSDoor = 17
set rightBulb = 4
set leftBulb = 5
set totalPlaced = 0
initializeCurrentPlacedPiece
puppetSprite outline, TRUE
puppetSprite rightBulb, TRUE
puppetSprite leftBulb, TRUE
repeat with i = firstPlacedOutline to lastPlacedOutline
puppetSprite i, TRUE
end repeat
-- global fingerCursor
-- set the cursor of sprite outline = fingerCursor
global goldenSectionInfo
set goldenSectionInfo = field "goldenSection locations"
global outlineH, outlineV
set outlineH = the locH of sprite outline
set outlineV = the locV of sprite outline
global placedGoldenSectionsList, GSFrame1PlacedList, GSFrame2PlacedList
set placedGoldenSectionsList = []
set GSFrame1PlacedList = []
set GSFrame2PlacedList = []
put "0" into field "score"
when mouseDown then dragOutline(outline, "goldenSectionInPlace", "doMatchGoldenSection")
end