Code Sample:
(Grape Men v1.0 By Kyle)
(dis. background) INSTALL BACKGROUND "bgplanet.bmp" RESIZE PLAYGROUND 792, 495 PLACE PLAYGROUND 0, 55
(place convesation window) RESIZE CONVERSATION 792, 400 PLACE CONVERSATION 0,0
(put words in conversation) LOAD STRING "Grape Men v1.0 by Kyle\" WRITE-SCREEN STRING LOAD STRING "Click on grape men 1 at a time." WRITE-SCREEN STRING
(ship construct+place obj) CONSTRUCT OBJECT "ship" PLACE OBJECT 20, 0 SHOW OBJECT
(grape R construct and place obj.) CONSTRUCT OBJECT "grape r" PLACE OBJECT 300, 150 SEND-BACK OBJECT SHOW OBJECT STORE BOX grap_r
(Grape L construct and place obj) CONSTRUCT OBJECT "grape L" PLACE OBJECT SEND-BACK OBJECT SHOW OBJECT STORE BOX grap_l
(beam construct+place obj.) CONSTRUCT OBJECT 'beam" PLACE OBJECT 280, 0 SEND-BACK OBJECT SHOW OBJECT STORE BOX beam
(stop construct+place obj) CONSTRUCT OBJECT "stop" PLACE OBJECT 0, 465 SHOW OBJECT
(put beam down) LOAD BOX beam SET LOOP 18 @beam MOVE OBJECT 0,10 JUMP LOOP @beam
(bring down grap_r) LOAD BOX grap_r SET LOOP 20 @grap_r MOVE OBJECT 0, 10 JUMP LOOP @grap_r
(grap_r to right) LOAD BOX grap_r SET LOOP 33 @grap_r2 MOVE OBJECT 10, 0 JUMP LOOP @grap_r2
(bring down grap_L) LOAD BOX grap_L SET LOOP 20 @grap_L MOVE OBJECT 0,10 JUMP LOOP @grap_L
(grap_L to left) LOAD BOX grap__L SET LOOP 33 @grape_L2 MOVE OBJECT _9, 0 JUMP LOOP@grape_L2
(put beam up) LOAD BOX beam SET LOOP 18 @beam 2 MOVE OBJECT 0, -10 JUMP LOOP @beam2
SLEEP MAIN EXIT PROGRAM |