title "battle sim Ver 0.3" // start moduleize
// ©2018 Chanmew
randomize
#module char
#deffunc charcre str s
split
#deffunc bar int x, int y, int m, int l, str c
color 128,128,128
boxf x,y,x+m+1,y+2
color 255,255,255
if c = "r":color 255,0,0
if c = "g":color 0,255,0
if c = "b":color 0,0,255
if c = "c":color 0,255,255
if l<=0:return
if l>m:line x+1,y+1,x+m,y+1:return
line x+1,y+1,x+l-1,y+1:return
#global
*start
cls
randomize
c1n = "player 1"
c1h = 1000
c1m = 1000
c1a = 100
c1acc = 100
c1d = 100
c1dod = 100
c1sb = 2000
c1s = 100
c2n = "player 2"
c2h = 1000
c2m = 1000
c2a = 100
c2acc = 100
c2d = 100
c2dod = 100
c2sb = 2000
c2s = 100
pos 0,100
mes "name"
mes "hp"
mes "mp"
mes "att"
mes "acc"
mes "def"
mes "dod"
mes "s b"
mes "spe"
pos 80,100
input c1n// c1 = char 1, name
input c1h// HP
input c1m// MP,Force point
input c1a// attack power,damage
input c1acc// accuracy
input c1d// defense, damage resist
input c1dod// dodge
input c1sb// speed bar, action comsume speed bar
input c1s// speed, round refill speed bar
pos 400,100
input c2n// p1 = player 1, name
input c2h// HP
input c2m// MP,Force point
input c2a// attack power,damage
input c2acc// accuracy
input c2d// defense, damage resist
input c2dod// dodge
input c2sb// speed bar, action comsume speed bar
input c2s// speed, round refill speed bar
pos 280,230
button "fight",*startfight
stop
*startfight
round = 0
c1msb = c1sb
c2msb = c2sb
c1mhp = c1h
c2mhp = c2h
c1mmp = c1m
c2mmp = c2m
*display
cls
pos 200,0
mes "round "+round
pos 100,100
color 0,0,0
mes c1n
bar 100,120,100,c1h*100/c1mhp,"r"
bar 100,130,100,c1m*100/c1mmp,"b"
bar 100,140,100,c1sb*100/c1msb,"c"
pos 400,100
color 0,0,0
mes c2n
bar 400,120,100,c2h*100/c2mhp,"r"
bar 400,130,100,c2m*100/c2mmp,"b"
bar 400,140,100,c2sb*100/c2msb,"c"
*roundcul
round ++
c1sb += c1s
c2sb += c2s
if c1sb>=c1msb:c1sb=0:gosub *c1att
if c2sb>=c2msb:c2sb=0:gosub *c2att
wait 3
if c1h<0:goto *fin
if c2h<0:goto *fin
goto *display
*c1att
i1 = rnd(c1acc)
i2 = rnd(c2dod)
if i2>i1:return
i1=rnd(c1a)+c1a
i2=rnd(c2d)
i3 = i1-i2
if i3<=0:return
c2h -= i3
return
*c2att
i1 = rnd(c2acc)
i2 = rnd(c1dod)
if i2>i1:return
i1=rnd(c2a)+c2a
i2=rnd(c1d)
i3 = i1-i2
if i3<=0:return
c1h -= i3
return
*fin
cls
pos 300,200
if c1h>0:mes ""+c1n +" Win!":else:if c2h>0:mes ""+c2n +" Win!":else:mes "Draw!"
pos 320,300
button "newgame",*start
stop