REM Laser code
Laser:
mL = INT(RND *
+ 1
IF mL = 1 THEN PRINT TAB(15); "MT-OscillatorA";
IF mL = 2 THEN PRINT TAB(15); "MT-OscillatorB";
IF mL = 3 THEN PRINT TAB(15); "GL-OscillatorA";
IF mL = 4 THEN PRINT TAB(15); "GL-OscillatorB";
IF mL = 5 THEN PRINT TAB(15); "CL-OscillatorA";
IF mL = 6 THEN PRINT TAB(15); "CL-OscillatorB";
IF mL = 7 THEN PRINT TAB(15); "HM-OscillatorA";
IF mL = 8 THEN PRINT TAB(15); "HM-OscillatorB";
RETURN
END
REM Assault code
Assault:
mA = INT(RND * 12) + 1
IF mA = 1 THEN PRINT TAB(15); "80 AP";
IF mA = 2 THEN PRINT TAB(15); "140 AP";
IF mA = 3 THEN PRINT TAB(15); "200 AP";
IF mA = 4 THEN PRINT TAB(15); "80 DFAP";
IF mA = 5 THEN PRINT TAB(15); "140 DFAP";
IF mA = 6 THEN PRINT TAB(15); "200 DFAP";
IF mA = 7 THEN PRINT TAB(15); "80 CHEM";
IF mA = 8 THEN PRINT TAB(15); "140 CHEM";
IF mA = 9 THEN PRINT TAB(15); "200 CHEM";
IF mA = 10 THEN PRINT TAB(15); "80 HDAP";
IF mA = 11 THEN PRINT TAB(15); "140 HDAP";
IF mA = 12 THEN PRINT TAB(15); "200 HDAP";
RETURN
END
REM Shotgun code
Shotgun:
mS = INT(RND * 12) + 1
IF mS = 1 THEN PRINT TAB(15); "50 AP";
IF mS = 2 THEN PRINT TAB(15); "70 AP";
IF mS = 3 THEN PRINT TAB(15); "100 AP";
IF mS = 4 THEN PRINT TAB(15); "50 HD";
IF mS = 5 THEN PRINT TAB(15); "70 HD";
IF mS = 6 THEN PRINT TAB(15); "100 HD";
IF mS = 7 THEN PRINT TAB(15); "50 CR";
IF mS = 8 THEN PRINT TAB(15); "70 CR";
IF mS = 9 THEN PRINT TAB(15); "100 CR";
IF mS = 10 THEN PRINT TAB(15); "50 HDAP";
IF mS = 11 THEN PRINT TAB(15); "70 HDAP";
IF mS = 12 THEN PRINT TAB(15); "100 HDAP";
RETURN
END
REM Rocket Code
Rocket:
sR = INT(RND * 5) + 1
IF sR = 1 THEN PRINT TAB(30); "Snake"
IF sR = 2 THEN PRINT TAB(30); "Hercules"
IF sR = 3 THEN PRINT TAB(30); "Nighthawk"
IF sR = 4 THEN PRINT TAB(30); "Panther"
IF sR = 5 THEN PRINT TAB(30); "DragonFly"
RETURN
END