TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Math / Physics

Version: 0.4

Information

Uploaded: 27th May 2005 04:55

Modified: 27th May 2005 04:57

Author: Jacava

Summary

Just something I got bored enough to do one day. Should work, but can't compile due to DB Errors.

Full Description

Select key is X. Nothing else is in here, and there are currently no other executable commands.<br /> Add in your own sprites (you'll need to add some, or remove the commands for them), make it 3D, do whatever the hell you like with it. I just made it because I got bored.<br /> THIS MUST REMAIN FREEWARE. The ATB System I believe is copyrighted by Square Enix, and if it isn't I still just want to be sure.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: ATB System

Rem Created: 02/04/2005 15:14:00

Rem ***** Main Source File *****

Rem Setup

Hide Mouse

RANDOMIZE TIMER()

Rem Load Media

`Load Image "",1 (Character Image(s))

`Load Image "",2 (Enemy image(s))

`Load Music "",1 (Music, duh!)

Rem Give Variables Values

time1=rnd(10000)

time2=rnd(10000)

time3=rnd(10000)

Etime=rnd(10000)

HP1#=8760

aHP1#=HP1#

bHP1=HP1#

MaxHP1#=HP1#

MP1#=1191

aMP1#=MP1#

bMP1=MP1#

MaxMP1#=MP1#

HP2#=8922

aHP2#=HP2#

bHP2=HP2#

MaxHP2#=HP2#

MP2#=3437

aMP2#=MP2#

bMP2=MP2#

MaxMP2#=MP2#

HP3#=8186

aHP3#=HP3#

bHP3=HP3#

MaxHP3#=HP3#

MP3#=893

aMP3#=MP3#

bMP3=MP3#

MaxMP3#=MP3#

STR1=204

STR2=255

STR3=189

DEF1=118

DEF2=130

DEF3=109

SPD1=220

SPD2=255

SPD3=198

pickenemyagain:

enemy=rnd(5)

if enemy=0 then goto pickenemyagain

if enemy=1

ename$="Rat Lv.7"

EHP#=2087

MaxEHP#=2087

ESTR=56

EDEF=40

ESPD=120

endif

if enemy=2

ename$="Boulderman Lv.16"

EHP#=5712

MaxEHP#=5712

ESTR=14

EDEF=98

ESPD=79

endif

if enemy=3

ename$="Workout Guy Lv.31"

EHP#=12206

MaxEHP#=12206

ESTR=91

EDEF=47

ESPD=255

endif

if enemy=4

ename$="Robot Lv.59"

EHP#=21886

MaxEHP#=21886

ESTR=149

EDEF=144

ESPD=181

endif

if enemy=5

ename$="Helior Lv. 86"

EHP#=60489

MaxEHP#=60489

ESTR=212

EDEF=153

ESPD=248

endif

If time1=>9500 or time2=>9500 or time3=>9500 or Etime=<500

time1=10000

time2=10000

time3=10000

oldt1=10000

oldt2=10000

oldt3=10000

Etime=0

oldet=0

begbat=1

EndIf

If time1=<500 or time2=<500 or time3=<500 or Etime=>9500

time1=0

time2=0

time3=0

oldt1=0

oldt2=0

oldt3=0

Etime=10000

oldet=10000

begbat=2

EndIf

commands=0

Animate=0

Animate2=0

dAnimate1=0

dAnimate2=0

dAnimate3=0

edAnimate=0

tAnimate=0

bounce1=198

bounce2=198

bounce3=198

ebounce=128

traj1=-10

traj2=-10

traj3=-10

etraj=-10

atbred1=225

atbgreen1=225

atbblue1=0

atbred2=225

atbgreen2=225

atbblue2=0

atbred3=225

atbgreen3=225

atbblue3=0

a#=100

selection=1

magcomshown=0

sumcomshown=0

itemcomshown=0

Rem Set Things to do with font

Set Text Font "Courier New"

Set Text Size 20

Rem Set names and Active or Wait style ATB Bars

naming:

PRINT "Max Name Length: 7 Characters"

INPUT "Name: ",name1$

INPUT "Name: ",name2$

INPUT "Name: ",name3$

If len(name1$)>7 or len(name2$)>7 or len(name3$)>7

PRINT "One or more of your names is too long. Please change it."

suspend for key

CLS

goto naming

EndIf

Set Cursor text width("Name: "+name1$+"++"),40

PRINT "Speed: ",SPD1

Set Cursor text width("Name: "+name2$+"++"),60

PRINT "Speed: ",SPD2

Set Cursor text width("Name: "+name3$+"++"),80

PRINT "Speed: ",SPD3

suspend for key

CLS

PRINT "Select ATB Mode"

PRINT "1 - Active - All constantly increasing"

PRINT "2 - Wait - Others wait as you select commands for one character"

INPUT "Well? What shall it be? ",aorw

Rem Set Time-Limit in 1/1000 of a second

If aorw=1

If begbat>0

elapsed=TIMER()+3601000`Must be 2000 more than other

Else

elapsed=TIMER()+3599000

EndIf

If aorw=2

If begbat>0

elapsed=TIMER()+3601000`Must be 2000 more than other

Else

elapsed=TIMER()+3599000

EndIf

Rem Play Music

`Loop Music 1

Rem Begin Main Loop

Rem Set Background

ink rgb(100,100,100),0

Box 0,0,640,480

Rem Set screen stuff, then print names, HP, MP, ATB Bars and something at the top which tells you which bit is which

ink rgb(255,255,255),0

Set Text Font "Courier New"

Set Text Size 20

Set Cursor 260,380

If HP1#=<0

HP1#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

If time1=>10000 and HP1#>0 and commands=1

ink rgb(atbred1,atbgreen1,atbblue1),0

EndIf

If time1<10000 and HP1#>0

ink rgb(255,255,255),0

EndIf

PRINT name1$

If HP1#<(MaxHP1#/4) and HP1#>0

ink rgb(255,255,0),0

EndIf

If HP1#=>(MaxHP1#/4)

ink rgb(255,255,255),0

EndIf

Set Cursor 340,380

If bHP1=>1000

PRINT str$(bHP1)

EndIf

If bHP1<1000 and bHP1=>100

PRINT " ",str$(bHP1)

EndIf

If bHP1<100 and bHP1=>10

PRINT "  ",str$(bHP1)

EndIf

If bHP1<10

PRINT "   ",str$(bHP1)

EndIf

If HP1#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

Set Cursor 340+(text width("    ")),380

If MaxHP1#=>1000

PRINT "/",str$(MaxHP1#)

EndIf

If MaxHP1#<1000 and MaxHP1#=>100

PRINT "/ ",str$(MaxHP1#)

EndIf

If MaxHP1#<100

PRINT "/  ",str$(MaxHP1#)

EndIf

Box 340,398,430,399,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 340,398,((aHP1#/MaxHP1#)*90)+340,399,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 340,398,((HP1#/MaxHP1#)*90)+340,399,rgb(40,40,255),rgb(40,40,255),rgb(200,200,255),rgb(200,200,255)

If MP1#<(MaxMP1#/5)

ink rgb(255,255,0),0

Else

ink rgb(255,255,255),0

EndIf

If HP1#=0 then ink rgb(255,0,0),0

Set Cursor 460,380

If bMP1=>1000

PRINT str$(bMP1)

EndIf

If bMP1<1000 and bMP1=>100

PRINT " ",str$(bMP1)

EndIf

If bMP1<100 and bMP1=>10

PRINT "  ",str$(bMP1)

EndIf

If bMP1<10

PRINT "   ",str$(bMP1)

EndIf

Box 460,398,500,399,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 460,398,((aMP1#/MaxMP1#)*40)+460,399,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 460,398,((MP1#/MaxMP1#)*40)+460,399,rgb(80,255,80),rgb(80,255,80),rgb(200,255,200),rgb(200,255,200)

Set Cursor 260,410

If HP2#=<0

HP2#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

If time2=>10000 and HP2#>0 and commands=2

ink rgb(atbred2,atbgreen2,atbblue2),0

EndIf

If time2<10000 and HP2#>0

ink rgb(255,255,255),0

EndIf

PRINT name2$

If HP2#<(MaxHP2#/4) and HP2#>0

ink rgb(255,255,0),0

EndIf

If HP2#=>(MaxHP2#/4)

ink rgb(255,255,255),0

EndIf

Set Cursor 340,410

If bHP2=>1000

PRINT str$(bHP2)

EndIf

If bHP2<1000 and bHP2=>100

PRINT " ",str$(bHP2)

EndIf

If bHP2<100 and bHP2=>10

PRINT "  ",str$(bHP2)

EndIf

If bHP2<10

PRINT "   ",str$(bHP2)

EndIf

If HP2#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIF

Set Cursor 340+(text width("    ")),410

If MaxHP2#=>1000

PRINT "/",str$(MaxHP2#)

EndIf

If MaxHP2#<1000 and MaxHP2#=>100

PRINT "/ ",str$(MaxHP2#)

EndIf

If MaxHP2#<100

PRINT "/  ",str$(MaxHP2#)

EndIf

Box 340,428,430,429,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 340,428,((aHP2#/MaxHP2#)*90)+340,429,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 340,428,((HP2#/MaxHP2#)*90)+340,429,rgb(40,40,255),rgb(40,40,255),rgb(200,200,255),rgb(200,200,255)

If MP2#<(MaxMP2#/5)

ink rgb(255,255,0),0

Else

ink rgb(255,255,255),0

EndIf

If HP2#=0 then ink rgb(255,0,0),0

Set Cursor 460,410

If bMP2=>1000

PRINT str$(bMP2)

EndIf

If bMP2<1000 and bMP2=>100

PRINT " ",str$(bMP2)

EndIf

If bMP2<100 and bMP2=>10

PRINT "  ",str$(bMP2)

EndIf

If bMP2<10

PRINT "   ",str$(bMP2)

EndIf

Box 460,428,500,429,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 460,428,((aMP2#/MaxMP2#)*40)+460,429,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 460,428,((MP2#/MaxMP2#)*40)+460,429,rgb(80,255,80),rgb(80,255,80),rgb(200,255,200),rgb(200,255,200)

If HP3#=<0

HP3#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

Set Cursor 260,440

If time3=>10000 and HP3#>0 and commands=3

ink rgb(atbred3,atbgreen3,atbblue3),0

EndIf

If time3<10000 and HP3#>0

ink rgb(255,255,255),0

EndIf

PRINT name3$

If HP3#<(MaxHP3#/4) and HP3#>0

ink rgb(255,255,0),0

EndIf

If HP3#=>(MaxHP3#/4)

ink rgb(255,255,255),0

EndIf

Set Cursor 340,440

If bHP3=>1000

PRINT str$(bHP3)

EndIf

If bHP3<1000 and bHP3=>100

PRINT " ",str$(bHP3)

EndIf

If bHP3<100 and bHP3=>10

PRINT "  ",str$(bHP3)

EndIf

If bHP3<10

PRINT "   ",str$(bHP3)

EndIf

If HP3#=0

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

Set Cursor 340+(text width("    ")),440

If MaxHP3#=>1000

PRINT "/",str$(MaxHP3#)

EndIf

If MaxHP3#<1000 and MaxHP3#=>100

PRINT "/ ",str$(MaxHP3#)

EndIf

If MaxHP3#<100

PRINT "/  ",str$(MaxHP3#)

EndIf

Box 340,458,430,459,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 340,458,((aHP3#/MaxHP3#)*90)+340,459,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 340,458,((HP3#/MaxHP3#)*90)+340,459,rgb(40,40,255),rgb(40,40,255),rgb(200,200,255),rgb(200,200,255)

If MP3#<(MaxMP3#/5)

ink rgb(255,255,0),0

Else

ink rgb(255,255,255),0

EndIf

If HP3#=0 then ink rgb(255,0,0),0

Set Cursor 460,440

If bMP3=>1000

PRINT str$(bMP3)

EndIf

If bMP3<1000 and bMP3=>100

PRINT " ",str$(bMP3)

EndIf

If bMP3<100 and bMP3=>10

PRINT "  ",str$(bMP3)

EndIf

If bMP3<10

PRINT "   ",str$(bMP3)

EndIf

Box 460,458,500,459,rgb(70,0,0),rgb(70,0,0),rgb(90,0,0),rgb(90,0,0)

Box 460,458,((aMP3#/MaxMP3#)*40)+460,459,rgb(195,0,0),rgb(195,0,0),rgb(255,0,0),rgb(255,0,0)

Box 460,458,((MP3#/MaxMP3#)*40)+460,459,rgb(80,255,80),rgb(80,255,80),rgb(200,255,200),rgb(200,255,200)

If EHP#<0 then EHP#=0

enemybar#=EHP#/MaxEHP#

ink rgb(255,255,255),0

Box 99,233,165,245

ink rgb(100,100,100),0

Box 100,234,164,244

If enemybar#=<0.25

Box 100,234,(enemybar#*64)+100,244,rgb(150,0,0),rgb(150,0,0),rgb(190,0,0),rgb(190,0,0)

Else

Box 100,234,(enemybar#*64)+100,244,rgb(170,200,0),rgb(170,200,0),rgb(200,220,0),rgb(200,220,0)

EndIf

Ink rgb(255,255,255),0

Center Text 132,150,ename$

Set Cursor 82,250

If EHP#=>10000

PRINT EHP#,"/",MaxEHP#

EndIf

If EHP#<10000 and EHP#=>1000

PRINT " ",EHP#,"/",MaxEHP#

EndIf

If EHP#<1000 and EHP#=>100

PRINT "  ",EHP#,"/",MaxEHP#

EndIf

If EHP#<100 and EHP#=>10

PRINT "   ",EHP#,"/",MaxEHP#

EndIf

If EHP#<10

PRINT "    ",EHP#,"/",MaxEHP#

EndIf

Set Text Size 10

Set Cursor 270,370

PRINT "Name"

Set Cursor 350,370

PRINT "HP"

Set Cursor 470,370

PRINT "MP"

Set Cursor 530,370

PRINT "ATB"

Line 260,373,266,373

Line 292,373,345,373

Line 362,373,465,373

Line 482,373,525,373

Line 549,373,620,373

ink rgb(255,255,255),0

Box 519,379,621,401

ink rgb(100,100,100),0

Box 520,380,620,400

ink rgb(255,255,255),0

Box 519,409,621,431

ink rgb(100,100,100),0

Box 520,410,620,430

ink rgb(255,255,255),0

Box 519,439,621,461

ink rgb(100,100,100),0

Box 520,440,620,460

Rem Show 'Characters' and 'Enemy'

Sprite 1,540,100,1

Sprite 2,540,170,1

Sprite 3,540,240,1

Sprite 4,100,170,2

Set Sprite 1,0,1

If HP1#=<0

delete sprite 1

sprite 1,604,100,1

rotate sprite 1,90

EndIf

Set Sprite 2,0,1

If HP2#=<0

delete sprite 2

sprite 2,604,170,1

rotate sprite 2,90

EndIf

Set Sprite 3,0,1

If HP3#=<0

delete sprite 3

sprite 3,604,240,1

rotate sprite 3,90

EndIf

Set Sprite 4,0,1

Rem Deciding Factors

If EHP#=<0 then goto win

If bHP1=<0 and bHP2=<0 and bHP3=<0 then goto lose

If TIMER()=>elapsed  and eHP#>0 then goto time_lose

Rem Sets Max Variables

If time1>10000 then time1=10000

If time2>10000 then time2=10000

If time3>10000 then time3=10000

If HP1#>MaxHP1# then HP1#=MaxHP1#

If HP2#>MaxHP2# then HP2#=MaxHP2#

If HP3#>MaxHP3# then HP3#=MaxHP3#

Rem Makes the Current Command Executor's ATB Bar Flash, and the other 2 wait in 'Wait' mode

If time1=>10000 and commands=0

commands=1

EndIf

If commands=1

If aorw=2

time2=oldt2

time3=oldt3

Etime=oldet

EndIf

If animate<=10

atbred1=225+Animate

atbgreen1=225+Animate

atbblue1=Animate*25

EndIf

If Animate>10

atbred1=225+(20-Animate)

atbgreen1=225+(20-Animate)

atbblue1=(20-Animate)*25

EndIf

If time1<10000

atbred1=225

atbgreen1=225

atbblue1=0

EndIf

If time2=>10000 and commands=0

commands=2

EndIf

If commands=2

If aorw=2

time1=oldt1

time3=oldt3

Etime=oldet

EndIf

If animate<=10

atbred2=225+Animate

atbgreen2=225+Animate

atbblue2=Animate*25

EndIf

If Animate>10

atbred2=225+(20-Animate)

atbgreen2=225+(20-Animate)

atbblue2=(20-Animate)*25

EndIf

If time2<10000

atbred2=225

atbgreen2=225

atbblue2=0

EndIf

If time3=>10000 and commands=0

commands=3

EndIf

IF commands=3

If aorw=2

time1=oldt1

time2=oldt2

Etime=oldet

EndIf

If animate<=10

atbred3=225+Animate

atbgreen3=225+Animate

atbblue3=Animate*25

EndIf

If Animate>10

atbred3=225+(20-Animate)

atbgreen3=225+(20-Animate)

atbblue3=(20-Animate)*25

EndIf

If time3<10000

atbred3=225

atbgreen3=225

atbblue3=0

EndIf

If commands=1 and HP1#=<0

commands=0

endif

If commands=2 and HP2#=<0

commands=0

endif

If commands=3 and HP3#=<0

commands=0

endif

Rem Enemy's Attack - Decide when ATB is full, select a target that isn't already KO'd, and Attack

If Etime=>10000

ecommands=1

EndIf

If ecommands=1

If aorw=2

time1=oldt1

time2=oldt2

time3=oldt3

EndIf

chooseagain:

target=rnd(200)+1

If target=<66

If HP1#=0 and HP2#=0 and HP3#=0 then goto gameover_waitingforhpbars

If HP1#=0 then goto chooseagain

edamage=(((0.7*ESTR)+rnd(ESTR*0.6))*1.5)-((0.7*DEF1)+rnd(DEF1*0.6))

HP1#=HP1#-edamage

EndIf

If target>66 and target=<132

If HP1#=0 and HP2#=0 and HP3#=0 then goto gameover_waitingforhpbars

If HP2#=0 then goto chooseagain

edamage=(((0.7*ESTR)+rnd(ESTR*0.6))*1.5)-((0.7*DEF2)+rnd(DEF2*0.6))

HP2#=HP2#-edamage

EndIf

If target>132 and target=<199

If HP1#=0 and HP2#=0 and HP3#=0 then goto gameover_waitingforhpbars

If HP3#=0 then goto chooseagain

edamage=(((0.7*ESTR)+rnd(ESTR*0.6))*1.5)-((0.7*DEF3)+rnd(DEF3*0.6))

HP3#=HP3#-edamage

EndIf

If target=>200

If HP1#=0 and HP2#=0 and HP3#=0 then goto gameover_waitingforhpbars

If HP1#>0

edamage1=(((0.7*ESTR)+rnd(ESTR*0.6))*5)-((0.7*DEF1)+rnd(DEF1*0.6))

else

edamage1=0

endif

HP1#=HP1#-edamage1

If HP2#>0

edamage2=(((0.7*ESTR)+rnd(ESTR*0.6))*5)-((0.7*DEF2)+rnd(DEF2*0.6))

else

edamage2=0

endif

HP2#=HP2#-edamage2

If HP3#>0

edamage3=(((0.7*ESTR)+rnd(ESTR*0.6))*5)-((0.7*DEF3)+rnd(DEF3*0.6))

else

edamage=0

endif

HP3#=HP3#-edamage3

EndIf

gameover_waitingforhpbars:

edAnimate=0

ecommands=0

Etime=0

oldet=0

EndIf

notyourturn:

Rem Increases and colours ATB Bars

time1=time1+SPD1

time2=time2+SPD2

time3=time3+SPD3

Etime=Etime+ESPD

If time1=>10000 then time1=10000

If time2=>10000 then time2=10000

If time3=>10000 then time3=10000

If Etime=>10000 then Etime=10000

If HP1#=0 then time1=0

If HP2#=0 then time2=0

If HP3#=0 then time3=0

ink rgb(atbred1,atbgreen1,atbblue1),0

Box 520,380,(time1/100)+520,400

ink rgb(atbred2,atbgreen2,atbblue2),0

Box 520,410,(time2/100)+520,430

ink rgb(atbred3,atbgreen3,atbblue3),0

Box 520,440,(time3/100)+520,460

If begbat=1

begbat=0

EndIf

Rem Shows Command Menu

If commands>0

IF commandsshown=0

Animate2=0

EndIf

ink rgb(255,255,255),0

Box 33,373,117,467

ink rgb(0,0,255),0

Box 35,375,115,465

ink rgb(255,255,255),0

Set Text Size 20

Set Cursor 40,380

PRINT "Attack"

Set Cursor 40,400

PRINT "Magic"

Set Cursor 40,420

PRINT "Summon"

Set Cursor 40,440

PRINT "Item"

ink rgb(100,100,100),0

Box 35,375,75-(Animate2*8),465

Box 35,375,115,420-(Animate2*9)

Box 75+(Animate2*8),375,115,465

Box 35,420+(Animate2*9),115,465

ink rgb(255,255,255),0

commandsshown=1

EndIf

Rem "x" key is the selection button, and this attacks

If inkey$()="x" and commands=1 and xpressed=0

time1=0

commands=0

xpressed=1

commandsshown=0

damage1=(((STR1*0.7)+rnd(STR1*0.6))*1.5)-((0.7*EDEF1)+rnd(EDEF*0.6))

EHP#=EHP#-damage1

dAnimate1=0

EndIf

If inkey$()="x" and commands=2 and xpressed=0

time2=0

commands=0

xpressed=1

commandsshown=0

damage2=(((STR2*0.7)+rnd(STR2*0.6))*1.5)-((0.7*EDEF1)+rnd(EDEF*0.6))

EHP#=EHP#-damage2

danimate2=0

EndIf

If inkey$()="x" and commands=3 and xpressed=0

time3=0

commands=0

xpressed=1

commandsshown=0

damage3=(((STR3*0.7)+rnd(STR3*0.6))*1.5)-((0.7*EDEF1)+rnd(EDEF*0.6))

EHP#=EHP#-damage3

danimate3=0

EndIf

Rem Can't just hold the 'x' key

If inkey$()=""

xpressed=0

EndIf

Rem Increment Animate Variables, including bouncy damage numbers

oldcom=commands

Animate=Animate+1

If Animate>20 then Animate=0

Animate2=Animate2+1

If Animate2>5 then Animate2=5

If totalseconds=<20 then tAnimate=tAnimate+1

If tAnimate=>20 then tAnimate=0

If edamage>0 or edamage1>0 or edamage2>0 or edamage3>0

If edAnimate<20

ebounce=ebounce+etraj

If ebounce>128 then ebounce=128

ink rgb(255,255,255),0

Set Text Size 20

If target=<66 then Center Text 572,ebounce,str$(edamage)

If target>66 and target=<132 then Center Text 572,ebounce+70,str$(edamage)

If target>132 and target=<199 then Center Text 572,ebounce+140,str$(edamage)

If target=>200

If edamage1>0 then Center Text 572,ebounce,str$(edamage1)

If edamage2>0 then Center Text 572,ebounce+70,str$(edamage2)

If edamage3>0 then Center Text 572,ebounce+140,str$(edamage3)

EndIf

inc edAnimate

etraj=etraj+2

EndIf

If damage1>0

If dAnimate1<20

bounce1=bounce1+traj1

If bounce1>198 then bounce1=198

ink rgb(255,255,255),0

Set Text Size 20

Center Text 132,bounce1,str$(damage1)

inc dAnimate1

traj1=traj1+2

EndIf

If damage2>0

If dAnimate2<20

bounce2=bounce2+traj2

If bounce2>198 then bounce2=198

ink rgb(255,255,255),0

Set Text Size 20

Center Text 132,bounce2,str$(damage2)

inc dAnimate2

traj2=traj2+2

EndIf

If damage3>0

If dAnimate3<20

bounce3=bounce3+traj3

If bounce3>198 then bounce3=198

ink rgb(255,255,255),0

Set Text Size 20

Center Text 132,bounce3,str$(damage3)

inc dAnimate3

traj3=traj3+2

EndIf

If aHP1#>HP1# then aHP1#=aHP1#-(MaxHP1#/1000)

If aHP1#<HP1# then aHP1#=HP1#

If aHP2#>HP2# then aHP2#=aHP2#-(MaxHP2#/1000)

If aHP2#<HP2# then aHP2#=HP2#

If aHP3#>HP3# then aHP3#=aHP3#-(MaxHP3#/1000)

If aHP3#<HP3# then aHP3#=HP3#

bHP1=aHP1#

bHP2=aHP2#

bHP3=aHP3#

If aMP1#>MP1# then aMP1#=aMP1#-(MaxMP1#/1000)

If aMP1#<MP1# then aMP1#=MP1#

If aMP2#>MP2# then aMP2#=aMP2#-(MaxMP2#/1000)

If aMP2#<MP2# then aMP2#=MP2#

If aMP3#>MP3# then aMP3#=aMP3#-(MaxMP3#/1000)

If aMP3#<MP3# then aMP3#=MP3#

bMP1=aMP1#

bMP2=aMP2#

bMP3=aMP3#

Rem Reset Variables

If dAnimate1=>20

dAnimate1=0

damage1=0

traj1=-10

EndIf

If dAnimate2=>20

dAnimate2=0

damage2=0

traj2=-10

EndIf

If dAnimate3=>20

dAnimate3=0

damage3=0

traj3=-10

EndIf

If edAnimate=>20

edAnimate=0

edamage=0

edamage1=0

edamage2=0

edamage3=0

etraj=-10

EndIf

Rem Keeps time variables in 'Wait' mode

If commands=0

oldt1=time1

oldt2=time2

oldt3=time3

oldet=Etime

EndIf

Rem Show Timer and give cool effects

If HP1#=0 and HP2#=0 and HP3#=0

elapsed=TIMER()+(elapsed-TIMER())

goto skiptimersequence

EndIf

totalseconds=(elapsed-TIMER())/1000

tens=(elapsed-TIMER())/10

For a=0 to (elapsed-TIMER())/1000 step 60

If totalseconds=>a then minutes=a/60

Next a

seconds=totalseconds-(60*minutes)

If totalseconds=<20 and tAnimate=>10

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

Box 574,14,636,46

ink rgb(100,100,100),0

Box 575,15,635,45

If totalseconds=<20 and tAnimate=>10

ink rgb(255,0,0),0

Else

ink rgb(255,255,255),0

EndIf

Set Text Size 20

Set Cursor 580,20

If minutes=<9

If tens-(totalseconds*100)<50

If seconds=<9

PRINT "0",minutes," 0",seconds

Else

PRINT "0",minutes," ",seconds

EndIf

If tens-(totalseconds*100)=>50

If seconds=<9

PRINT "0",minutes,":0",seconds

Else

PRINT "0",minutes,":",seconds

EndIf

EndIF

EndIf

If minutes>9

If tens-(totalseconds*100)<50

If seconds=<9

PRINT minutes," 0",seconds

Else

PRINT minutes," ",seconds

EndIf

If tens-(totalseconds*100)=>50

If seconds=<9

PRINT minutes,":0",seconds

Else

PRINT minutes,":",seconds

EndIf

EndIF

EndIf

skiptimersequence:

Rem Shows Status at start of battle

If begbat>0 and messdone=0

ink rgb(255,255,255),0

Box 18,18,622,42

ink rgb(0,0,255),0

Box 20,20,620,40

If begbat=1

ink rgb(225,225,0),0

Box 520,380,620,400

Box 520,410,620,430

Box 520,440,620,460

EndIf

ink rgb(255,255,255),0

Set Text Size 20

IF begbat=1

Center Text 320,20,"Pre-emptive Strike!"

EndIf

If begbat=2

Center Text 320,20,"Ambushed!"

EndIf

WAIT 2000

messdone=1

EndIf

Rem Sync and restart loop

sync

loop

Rem When Enemy is defeated

win:

`Stop Music 1

Set Text Size 30

ink rgb(255,255,255),0

Center Text 320,220,"GAME OVER"

Center Text 320,260,"VICTORY"

Set Text Size 10

Center Text 320,300,"Press Q to quit, or any other key to start again"

suspend for key

If inkey$()="q"

END

else

goto startagain

endif

Rem When all characters are KO'd

lose:

Set Text Size 30

`for t=255 to 0 step -8

`   set music volume 1,(t/3)

`   set gamma t,t,t

`next t

ink rgb(255,0,0),0

Center Text 320,240,"GAME OVER"

Set Text Size 10

Center Text 320,300,"Press Q to quit, or any other key to start again"

suspend for key

If inkey$()="q"

END

else

goto startagain

endif

Rem When Time is up

time_lose:

`for t=255 to 0 step -8

`   set music volume 1,(t/3)

`   set gamma t,t,t

`next t

Set Text Size 30

ink rgb(255,0,0),0

Center Text 320,220,"TIME'S UP"

Center Text 320,260,"GAME OVER"

Set Text Size 10

Center Text 320,300,"Press Q to quit, or any other key to start again"

suspend for key

If inkey$()="q"

END

else

goto startagain

endif

Download

Please login to download

Comments

No comments yet.

CodeBase - ATB System

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Jacava
CodeBase Entries:	1