Dark Age Games
Home Dark Age EX Dark Age 2 Message Board Fan Art FAQ Kelzar Mage DALpedia MS Forum
Board Index Dark Age General Bug Report Website Off Topic Register User Edit User User List Search

In reply to: battle system help! -- Frankster_13 21:45:22 08-11-2004

oops
Posted by: Frankster_13
21:49:26 08-11-2004

oops 4got here is my program... (lol that was dumb)
_________________________________________________________________
#MidiPlay("SPLASH.wav")
#SetImage("Battle 0.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 1.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 2.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 3.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 4.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 5.bmp", 210, 170, 200, 100)
#Delay(.05)
#SetImage("Battle 6.bmp", 210, 170, 200, 100)
#Delay(1.0)
#DrawEnemy("goblin.ene", 10, 1)
#AI(3)
#SetImage("newfightmenu.bmp", 1, 1, 190, 164)
cMap! = CreateCursorMap()
CursorMapAdd(45, 38, cMap!)
CursorMapAdd(45, 70, cMap!)
CursorMapAdd(45, 105, cMap!)
res! = CursorMapRun(cMap!)
KillCursorMap(cMap!)
if(res! == 0)
#MWin("which direction? N S E W")
#wait(q$)
#MWinCls()
#If(q$ == "up")
#Push("N", "Aeron")
end
#AI(3)
#If(q$ == "down")
#Push("S", "Aeron")
end
#AI(3)
#If(q$ == "Left")
#Push("W", "Aeron")
end
#AI(3)
#If(q$ == "Right")
#Push("E", "Aeron")
end
#AI(3)
#Branch("#SetImage" newfightmenu.bmp", 1, 1, 190, 164")
if(res! == 1)
#Animation("aeron att.anm", 210, 170)
#AttackAll(10)
end
#AI(3)
#Branch("#SetImage" newfightmenu.bmp", 1, 1, 190, 164")
if(res! == 2)
#SetImage("fightmenumagic.bmp", 1, 1, 190, 164)
cMap! = CreateCursorMap()
CursorMapAdd(45, 38, cMap!)
CursorMapAdd(45, 70, cMap!)
CursorMapAdd(45, 105, cMap!)
res! = CursorMapRun(cMap!)
KillCursorMap(cMap!)
if(res! == 0)
#Earthquake(5)
#Animation("aeron fire.anm", 210, 170)
#AttackAll(15)
end
#AI(3)
#Branch("#SetImage" newfightmenu.bmp", 1, 1, 190, 164")
if(res! == 1)
#Earthquake(5)
#Animation("aeron ice.anm", 210, 170)
#AttackAll(15)
end
#AI(3)
#Branch("#SetImage" newfightmenu.bmp", 1, 1, 190, 164")
if(res! == 2)
#Earthquake(5)
#Animation("aeron bolt.anm", 210, 170)
#AttackAll(15)
end
#AI(3)
#Branch("#SetImage" newfightmenu.bmp", 1, 1, 190, 164")