Sorry your browser is not supported!

Dim Char(5)
 CharHp=5
 CharAtk=5
 CharDef=5
 CharAgi=5
 CharStr=5 

 
cls


rem call my variables, phew a lot of them 

CharStr=5
CharHp=30
CharAgi=3
CharAtk=5
CharDef=3

rem now for my enemies stats

EneStr=5
EneHp=50
EneAgi=3
EneAtk=5
EneDef=5

rem now to figure out some battle maths if they were to fight  

Rem Enemies Battle Maths
EneHit= EneStr * EneAtk	
EneDamage= EneHit - EneDef
EneDefense= EneHit/EneDef

Rem Character's Battle Maths, well at least just this guy. 
Hit= CharStr * CharAtk
Defense= Hit/EneDef
Damage= Hit - Defense


Rem Rolling for initaive in the battle, this will take greater effect with more people.
BattleInit= CharAgi * CharDefense 
EneBattleInit= EneAgi * EneDefense

Rem Battle One is the result of our enemy attacking the player
Battle1= EneStr * EneAtk - CharDef

Rem Battle Two is the result of our character attacking the enemy
Battle2= CharStr * CharAtk - EneDef



end

Dim Char(number of characters, number of variables)

Dim Char(9,4)
`these variables might make it easier for you to remember which is which
CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4

`first character - strong but slow
Char(0,CharHP)=10
Char(0,CharAtk)=8
Char(0,CharDef)=6
Char(0,CharAgi)=3
Char(0,CharStr)=9

`second character - fast but not as strong
Char(1,CharHP)=10
Char(1,CharAtk)=7
Char(1,CharDef)=5
Char(1,CharAgi)=10
Char(1,CharStr)=6

`...and so on and so forth

Dim Char(3,4)
`these variables might make it easier for you to remember which is which
CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4

`first character - strong but slow
Char(0,CharHP)=10
Char(0,CharAtk)=8
Char(0,CharDef)=6
Char(0,CharAgi)=3
Char(0,CharStr)=9

`second character - fast but not as strong
Char(1,CharHP)=10
Char(1,CharAtk)=7
Char(1,CharDef)=5
Char(1,CharAgi)=10
Char(1,CharStr)=6

`third character - high in defense but very low attack
Char(2,CharHP)=10
Char(2,CharAtk)=3
Char(2,CharDef)=9
Char(2,CharAgi)=5
Char(2,CharStr)=5

`fourth character - All around character, a tad on the strong side
Char(3,CharHP)=5
Char(3,CharAtk)=6
Char(3,CharDef)=5
Char(3,CharAgi)=7
Char(3,CharStr)=8

`these variables might make it easier for you to remember which is which
CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4

CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4

BHP=0
BAtk=1
BDef=2
BAgi=3
BStr=4

Dim Char(3,4)
`these variables might make it easier for you to remember which is which
CharHP=0
CharAtk=1
CharDef=2
CharAgi=3
CharStr=4

`first character - strong but slow
Char(0,CharHP)=10
Char(0,CharAtk)=8
Char(0,CharDef)=6
Char(0,CharAgi)=3
Char(0,CharStr)=9

`second character - fast but not as strong
Char(1,CharHP)=10
Char(1,CharAtk)=7
Char(1,CharDef)=5
Char(1,CharAgi)=10
Char(1,CharStr)=6

`third character - high in defense but very low attack
Char(2,CharHP)=10
Char(2,CharAtk)=3
Char(2,CharDef)=9
Char(2,CharAgi)=5
Char(2,CharStr)=5

`fourth character - All around character, a tad on the strong side
Char(3,CharHP)=5
Char(3,CharAtk)=6
Char(3,CharDef)=5
Char(3,CharAgi)=7
Char(3,CharStr)=8


Dim Ene(3,4)

EneHP=0
EneAtk=1
EneDef=2
EneAgi=3
EneStr=4

`Strong, good defense, but slow, man this guy is susceptible to magic big time as far as slowing someone down.
Ene(0,EneHP)=10
Ene(0,EneAtk)=6
Ene(0,EneDef)=7
Ene(0,EneAgi)=2
Ene(0,EneStr)=5

`Looking to keep this guy as maybe the opener type of enemy
Ene(1,EneHP)=2
Ene(1,EneAtk)=3
Ene(1,EneDef)=3
Ene(1,EneAgi)=4
Ene(1,EneStr)=5

`Not strong, but he/she will put in a lot of atttacks before you take them down. 
Ene(2,EneHP)=5
Ene(2,EneAtk)=4
Ene(2,EneDef)=5
Ene(2,EneAgi)=7
Ene(2,EneStr)=3

`Strong as all hell, but this guy cannot take a lot of hits and will suffer from a barrage early on.
Ene(3,EneHP)=10
Ene(3,EneAtk)=10
Ene(3,EneDef)=2
Ene(3,EneAgi)=1
Ene(3,EneStr)=10

`If the enemy's agility is greater than yours, they attack first
If Ene#(2,EneAgi)>Char#(1,CharAgi)
    `Enemy attacks
else
    `you attack first if you have equal or greater agility
endif

`I put 12 so that it comes out with a value between 1&13
`that means that you have a chance of hitting them even if they have high agility and you have low

if rnd(12)+1>(Ene#(2,EneAgi)-Char#(1,CharAgi))

`if the random number is greater than their agility minus yours, `the attack will connect

    Ene#(2,EneHP)=Ene#(2,EneHP)-((Char#(1,CharStr)+Char#(1,CharDef))/4)

    `their new health is their old health minus 1/4 of your 
    `strength & attack
    `this means that you won't have instant kills. you'll have to
    `figure out exactly how you want to implement it

endif

CharStr=5
CharHp=30
CharAgi=3
CharAtk=5
CharDef=3

rem now for my enemies stats

EneStr=5
EneHp=50
EneAgi=3
EneAtk=5
EneDef=5

rem now to figure out some battle maths if they were to fight  

Rem Enemies Battle Maths
EneHit= EneStr * EneAtk	
EneDamage= EneHit - EneDef
EneDefense= EneHit/EneDef

Rem Character's Battle Maths, well at least just this guy. 
Hit= CharStr * CharAtk
Defense= Hit/EneDef
Damage= Hit - Defense


Rem Rolling for initaive in the battle, this will take greater effect with more people.
BattleInit= CharAgi * CharDefense 
EneBattleInit= EneAgi * EneDefense

Rem Battle One is the result of our enemy attacking the player
Battle1= EneStr * EneAtk - CharDef

Rem Battle Two is the result of our character attacking the enemy
Battle2= CharStr * CharAtk - EneDef

end

u=upkey() : r=rightkey() : d=downkey() : l=leftkey()

`random battle?
if u+r+d+l >0 then battle = rnd(10)*.1

if rnd(12)+1>(Ene#(2,EneAgi)-Char#(1,CharAgi))
  print "Your attack connects"
   else 
  print "You missed, damn."

 endif

 
If Ene#(2,EneAgi)>Char#(0,CharAgi)
  print "Enemy attacks first"
   else 
  print "You attack first."
endif

Print "Configuring Opponent's Attack"  
  wait 1000
    cls
Print Ene#(2,EneAtk) * Ene#(2,EneStr)
 Print "This is the total amount of dmg intially dealt before defense is factored in."
 wait 1000
  cls
Print Ene#(2,EneAtk) * Ene#(2,EneStr) / Char#(0,CharDef)
 Print "After defense is calculated, 2 dmg is dealt to Char# 0." 

If Ene#(2,EneAgi)>Char#(0,CharAgi)
  print "Enemy attacks first"
else 
  print "You attack first."
endif

Print "Configuring Opponent's Attack"  
wait 1000
cls
Print Ene#(2,EneAtk) * Ene#(2,EneStr)
Print "This is the total amount of dmg intially dealt before defense is factored in."
wait 1000
cls
Print Ene#(2,EneAtk) * Ene#(2,EneStr) / Char#(0,CharDef)
Print "After defense is calculated, 2 dmg is dealt to Char# 0." 

sync on:cls:sync rate 60
set text font "Arial"
set text size 18

data$="This is our sample line of text!"

tx=100
ty=300
tw=text width(data$)
th=text height(data$)
rollover=1

do

load bitmap "C:\Documents and Settings\Zombie\My Documents\My Pictures\Zombie's Game Dev\D and D Media\Tavern HUD.bmp",0
 
 cls rgb(0,0,50)

   sprite 1,mousex(),mousey(),rollover

   if mousex()>=tx and mousex()<=tx+tw and mousey()>=ty and mousey()<=ty+th

      ink rgb(255,0,0),0
      rollover=2

      if mouseclick()
         data$="This was clicked!"
      endif
   else
      ink rgb(255,255,255),0
      rollover=1
   endif
   text tx,ty,data$
   sync
loop

sync on:cls:sync rate 60
set text font "Arial"
set text size 16
backdrop off

data$="Welcome home, welcome home...how was the fields?"
reply1$="Why can't I go exploring?"
end1$="More.."
end2$="Done"
new1$="Go to bed"
new2$="Sneak out on the roof"



tx=20
ty=380
tw=text width(data$)
th=text height(data$)
rollover=1

ax=20
ay=400
aw=text width(reply1$)
ah=text height(reply1$)
rollover2=1

bx=20
by=420
bw=text width(end1$)
bh=text height(end1$)
rollover3=1

cx=20
cy=430
cw=text width(end2$)
ch=text height(end2$)
rollover4=1

dx=20
dy=380
dw=text width(new1$)
dh=text height(new1$)
rollover5=1

ex=20
ey=400
ew=text width(new2$)
eh=text height(new2$)
rollover6=1


do
  cls rgb(0,0,0)

   if mousex()>=tx and mousex()<=tx+tw and mousey()>=ty and mousey()<=ty+th
    
      ink rgb(255,0,0),0
      rollover=2

      if mouseclick()
          data$="Oh you poor dear you look so tired, please have a seat and eat somthing."
      endif
   else
      ink rgb(255,255,255),0
      rollover=1
   endif

 if mousex()>=ax and mousex()<=ax+aw and mousey()>=ay and mousey()<=ay+ah
    
      ink rgb(255,0,0),1
      rollover2=2

      if mouseclick()
          reply1$="Please try to understand that you're just too young my lad, there are fearsome beasts in the dwelling."
      endif
   else
      ink rgb(255,255,255),1
      rollover2=1
   endif
 
   if mousex()>=bx and mousex()<=bx+bw and mousey()>=by and mousey()<=by+bh
        ink rgb(255,0,0),1
      rollover3=2

      if mouseclick()
      gosub conversation_one
      endif
   else
      ink rgb(255,255,255),1
      rollover3=1
   endif

    

   text tx,ty,data$
   text ax,ay,reply1$
   text bx,by,end1$
   
sync 
 loop


 
conversation_one:

do
  cls rgb(0,0,0)

   if mousex()>=dx and mousex()<=dx+dw and mousey()>=dy and mousey()<=dy+dh
    
      ink rgb(0,255,0),0
      rollover5=2

      if mouseclick()
         new1$="Time to sleep, I'm so very tired."
      endif
   else
      ink rgb(255,255,255),0
      rollover5=1
   endif

 if mousex()>=ex and mousex()<=ex+ew and mousey()>=ey and mousey()<=ey+eh
     
     ink rgb(0,255,0),0
      rollover6=2

      if mouseclick()
         new2$="Hehehe..let us see these beasts."
      endif
   else
      ink rgb(255,255,255),0
      rollover6=1
   endif


if mousex()>=cx and mousex()<=cx+cw and mousey()>=cy and mousey()<=cy+ch
        
        ink rgb(255,0,0),1
      rollover4=2

      if mouseclick()
           goto bedroom_image
      endif
   else
      ink rgb(255,255,255),1
      rollover4=1
   endif

   text dx,dy,new1$
   text ex,ey,new2$
   text cx,cy,end2$

sync 
 loop

bedroom_image:
 cls
load bitmap "C:\Documents and Settings\Zombie\My Documents\My Pictures\Zombie's Game Dev\D and D Media\house.bmp",0
 
 image_one:
cls 
load bitmap "C:\Documents and Settings\Zombie\My Documents\My Pictures\Zombie's Game Dev\D and D Media\untitled.bmp",0