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: Starting New Topic... -- william 16:35:52 09-24-2004

The Code...
Posted by: William
15:17:27 09-25-2004

Here it is, you can also see it on the topic...:

#RealTime()
#Method RealTime(Enemies!)
{

#For(slot!=0;slot!<Enemies!;slot!=slot!+1)
{
#CreateItem(enemy[slot!]$,slot!)
#Random(19,itemx[slot!]!)
#Random(15,itemy[slot!]!)
#PutItem(slot!,itemx[slot!]!,itemy[slot!]!,1)
}//For Loop End

:top
//#GetStats()
#Battle!=0
#While(Battle!=0)
{
#TargetLocation(x!,y!)
#Attack!=0
#Get(a$)
#if(a$="UP"){#Push("N")}
#if(a$="DOWN"){#Push("S")}
#if(a$="LEFT"){#Push("E")}
#if(a$="RIGHT"){#Push("W")}
#If(a$="A"){#Attack!=1}//Attack
#If(a$="S"){#Attack!=2}//Food
#If(a$="D"){#Attack!=3}//Run
#If(a$="Q"){#Dos()}//quit
#If(Attack!=1)
{
#TargetLocation(x!,y!)
#GetDirection(Direction$)

#If(Direction$="South")
{
#TileNum!=3
#y!=y!+1
}
#If(Direction$="North")
{
#TileNum!=4
#y!=y!-1
}
#If(Direction$="West")
{
#TileNum!=1
#x!=x!-1
}
#If(Direction$="East")
{
#TileNum!=2
#x!=x!+1
}

#GetBoardTile(x!,y!,1,cover$)
#Castlit(TileNum!,TileNum$)
#FightTile$="Sword.tst"+TileNum$
#LayerPut(x!,y!,1,FightTile$)
#Delay(0.1)
#LayerPut(x!,y!,1,cover$)

#For(slot!=0;slot!<Enemies!;slot!=slot!+1)
{

#ItemLocation(slot!,eneX[slot!]!,eneY[slot!]!,1)
//If Enemy One Step West From the Character
#TargetLocation(charX!,charY!)
#charX!=charX!-1
#If(CharX!=eneX[slot!]!){#Method CharDamage(slot!)}//If CharX = EneX
//If Enemy One Step East From the Character
#TargetLocation(charX!,charY!)
#charX!=charX!+1
#If(CharX!=eneX[slot!]!){#Method CharDamage(slot!)}//If CharX = EneX
//If Enemy One Step North From the Character
#TargetLocation(charX!,charY!)
#charY!=charY!-1
#If(CharY!=eneY[slot!]!){#Method CharDamage(slot!)}//If CharX = EneX
//If Enemy One Step South From the Character
#TargetLocation(charX!,charY!)
#charY!=charY!+1
#If(CharY!=eneY[slot!]!){#Method CharDamage(slot!)}//If CharX = EneX

}//For Loop End
#Attack!=0
}//If Attack = 1 End

#If(Attack!=2)
{
#If(Food!>0)
{
#food!=food!-1
#GiveHP(TARGET,75)
#Attack!=0
}
}//If Attack = 2 End

#If(Attack!=3)
{
#Random(10,random!)
#Attack!=0
#If(Random!=1){#BattleEnd()}
}//If Attack = 3 End

#If(Attack!=0)
{
#EnemyTurn!=EnemyTurn!+1
#If(EnemyTurn!=50)
{
#EnemyTurn!=0

}//Enemy Turn End
}//If Attack = 0 End
}//While Battle End
}//Method Real Time End



What do you think?
I still have the enemy walking and attack left...

_______________
Fan of DA. Keep it going.

Working on other things now. Trying to get my life to pieces.
That was a long time ago I wrote this:
Project: Marovia
Finished: 32%
Edit Post