`Loading Dice
LOAD BITMAP "media\Yellow_6.png", 16
LOAD BITMAP "media\White_5.png", 15
LOAD BITMAP "media\Red_4.png", 14
LOAD BITMAP "media\Purple_3.png", 13
LOAD BITMAP "media\Green_2.png", 20
LOAD BITMAP "media\Blue_1.png", 10
chara as STRING = "Blank-o"
`Start Loop
DO
CLS
PRINT "CHOOSE A CHARACTER!"
PRINT
PRINT
PRINT "Honey Bee Huff MagicToadstool"
PRINT "DOUG The Buffinator"
PRINT "Lucky Manda"
PRINT "PeepZ"
PRINT
INPUT "Input character Choice> ", chara `Input Chara name
`Randomly chooses an enemy
seed = TIMER()
RANDOMIZE seed
ene = RND(6) +1
SELECT ene
CASE 1
PRINT chara, " VS. Honey Bee Huff"
enemy as STRING = "Honey Bee Huff"
WAIT KEY
`GOTO Battle1
ENDCASE
CASE 2
PRINT chara, " VS. MagicToadstool"
WAIT KEY
`GOTO Battle2
ENDCASE
CASE 3
PRINT chara, " VS. DOUG"
WAIT KEY
`GOTO Battle3
ENDCASE
CASE 4
PRINT chara, " VS. The Buffinator"
WAIT KEY
`GOTO Battle4
ENDCASE
CASE 5
PRINT chara, " VS. Lucky"
WAIT KEY
`GOTO Battle5
ENDCASE
CASE 6
PRINT chara, " VS. PeepZ"
WAIT KEY
`GOTO Battle6
ENDCASE
CASE 7
PRINT chara, " VS. Manda"
WAIT KEY
`GOTO Battle7
ENDCASE
ENDSELECT
Battle1:
CLS
PRINT "Let the Dizzy Dice battle begin with our competitors", Enemy, "and ", chara
PRINT "as they are Pit into mortal combat!"
WAIT KEY
CLS
PRINT chara, " You Have: ", THP, "/", RHP, " Life..."
WAIT 20
PRINT "And your Opponent: ", enemy, " has ", TEHP, "/", REHP, "Life..."
startBattle1:
`variables
`Yours
RHP = 50 `Real HP
THP = 50 `Temporary HP
Def = 2
Atk = 10
`Enemies'
REHP = 15 `Real Enemy HP
TEHP = 15 `Temp Enemy HP
EAtk = 10
EDef = 5
CLS
`Check
seed = TIMER()`Random Dice Roll
RANDOMIZE seed
`Yours
d1 = RND(5) +1 `Dice 1
d2 = RND(5) +1 `Dice 2
d3 = RND(5) +1 `Dice 3
d4 = RND(5) +1 `Dice 4
`Enemies'
ed1 = RND(5) +1 `Dice 1
ed2 = RND(5) +1 `Dice 2
ed3 = RND(5) +1 `Dice 3
ed4 = RND(5) +1 `Dice 4
`Totals
PTot = d1 + d2 + d3 + d4 `Total value of your roll
ETot = ed1 + ed2 + ed3 + ed4 `Total value of enemies roll
if ed1 = 6
sprite 7, 500, 200, 16
endif
if ed1 = 5
sprite 8, 500, 200, 15
endif
if ed1 = 4
sprite 9, 500, 200, 14
endif
if ed1 = 3
sprite 10, 500, 200, 13
endif
if ed1 = 2
sprite 11, 500, 200, 20
endif
if ed1 = 1
sprite 12, 500, 200, 10
endif
PRINT ed1," ",ed2," ",ed3," ",ed4
PRINT ETot,": Enemy Total"
PRINT
PRINT
PRINT
PRINT
PRINT d1," ",d2," ",d3," ",d4
PRINT PTot,": Your Total"
WAIT KEY
loop
I keep getting the Image number Illegal Run time error in reference to the sprites I'm trying to load, can anyone tell me where I'm going wrong with this code? sorry it is probably a mess.
Space for rent.
