Code Sample: (Creates the Alien and makes it bounces) LOAD NUMBER 0 STORE BOXboss_hit CONSTRUCT OBJECT "Alien" PLACE OBJECT 200, 0 SHOW OBJECT STORE BOXenemy1 CONSTRUCT OBJECT "alien2" PLACE OBJECT 200,40 SHOW OBJECT STORE BOX enemy2 CONSTRUCT OBJECT "Alien3"" PLACE OBJECT 200, 0 SHOW OBJECT STORE BOXenemy3
RANDOM NUMBER 0,0 STORE BOX counter
RANDOM NUMBER -10, 10 STORE BOX spd1, 0 RANDOM NUMBER -10, 10 STORE BOX spd2, 0 RANDOM NUMBER -10, 10 STORE BOX spd3, 0 RANDOM NUMBER -20, 20 STORE BOX bossspd @spaceship LOAD BOX Enemy1 MOVE OBJECT spd1, 0 TOUCHING OBJECT cannon JUM =@e1exploded MOVE OBJECT spd1, 0 GET-LEFT OBJECT COMPAMRE NUMBER 0 JUMP<=@1bounce LOAD BOX Enemy1 GET-RIGHT OBJECT COMPARE NUMBER 600 JUMP >= 21bounce
LOAD BOX Enemy2 MOVE OBJECT spd2, 0 TOUCHING OBJECT cannon JUMP=@e2explode MOVE OBJECT spde2, 0 GET-LEFT OBJECT COMPARE NUMBER 0 JUMP <= @2bounce LOAD BOX enemy2 GET-RIGHT OBJECT COMPARE NUMBER600 JUMP >=@2bounce
LOAD BOX Enemy3 MOVE OBJECT spd3, 0 TOUCHING OBJECT cannon JUMP=@e3explode MOVE OBJECT spd3, 0 GET-LEFT OBJECT COMPARE NUMBER 0 JUMP<= @3bounce LOAD BOX Enemy3 GET-RIGHT OBJECT COMPARE NUMBER 600 JUMP >=@3bounce JUMP ALWAYS@spaceship
(Explodes alien1 if touching cannon)
@e1explode LOAD BOX Enemy1 MORPH OBJECT "explos01.bmp" MORPH OBJECT "explos02.bmp" MORPH OBJECT "explos03.bmp" MORPH OBJECT "explos04.bmp" HIDE OBJECT LOAD BOX counter ADD NUMBER 1 STORE BOX counter COMPARE NUMBER 3 JUMP= @boss JUMP ALWAYS@spaceship |