ANGLE = 0 DIRECTION = 1 SHELLANGLE = 180 TEMP = 2 // BG 0 SOLID GREEN [ CIRCLE 90 ] Z_GETRADIUS Z_ROBOT CALL [ Z_SHELL ] TEMP ROBOT TEMP [ ON SPEED = 200 SHAPE [ CIRCLE 6 FILL ORANGE ] ROBOT 1 [ X = POSX Y = POSY ] POSX = X POSY = Y DIR = ANGLE - 180 // CRASH BLUE [ HIDE OFF ] CRASH GREEN [ ROBOT 1 [ HIDE ] JT 0 0 Z_SPIRAL WAIT 5 STOP ] ] SCREENSIZE SW SH IF (SW < SH) [ RADIUS = ((SW / 2) - 20) ] ELSE [ RADIUS = ((SH / 2) - 20) ] ROBOT 1 [ SHAPE [ SOLID RED [ CIRCLE 10 ] ] // ARROWS 0 0 DIR = 0 RGOFD RADIUS // KEY "Left" [ DIRECTION = -1 ] KEY "Right" [ DIRECTION = 1 ] KEY "Up" [ ] KEY "Down" [ ] KEY "Space" [ Z_BULLET TEMP TEMP = TEMP + 1 ] // EVERY 0.01 [ Z_ROTROBOT ] EVERY 0.02 [ JT 0 0 Z_SHELL ] ] ANGLE = ANGLE + DIRECTION // WHILE (ANGLE > 360) [ ANGLE = ANGLE - 360 ] WHILE (ANGLE < 0) [ ANGLE = 360 - ANGLE ] // ROBOT 1 [ //RGT (COS(ANGLE) * RADIUS) (SIN(ANGLE) * RADIUS) //JT 0 0 TT ANGLE RGOFD RADIUS RTOT RGT 0 0 DIR = ANGLE RGOFD RADIUS ] SHELLANGLE = SHELLANGLE + 3 // WHILE (ANGLE > 360) [ SHELLANGLE = SHELLANGLE - 360 ] WHILE (ANGLE < 0) [ SHELLANGLE = 360 - SHELLANGLE ] // LINESTYLE 0 12 [ CIRCLE 135 ] ROT SHELLANGLE [ COLOR BLUE [ LINESTYLE 0 10 [ ARC 135 320 ] ] ] BG 0 //CIRCLE 25 FILL BLACK // GROWBY 3% 1200 [ SPIN 8 [ JT -110 9 COLOR PURPLE [MT 8 -82] JT 8 -82 COLOR BLUE [MT 34 14] JT 34 14 COLOR BLACK [MT -110 9] JT 0 0 ] RT 64 ] // BG 0