Sorry your browser is not supported!

abs(sqrt((px#-npcx#)^2+(py#-npcy#)^2+(pz#-npcz#)^2))

open to read 8, "DATA/War Arena/Campaign/Default Campaign/names.txt"
   Read string 8, Nothing$
   Read string 8, Nothing$
   Read string 8, Nothing$
   Read String 8, Enemy1$
   Read string 8, Enemy2$
   Read string 8, Enemy3$
   Read string 8, Enemy4$
   Read string 8, Enemy5$
   Read string 8, Enemy6$
   Read string 8, Enemy7$
   Read string 8, Enemy8$
   Read string 8, Enemy9$
   Read string 8, Enemy10$
   Read string 8, Enemy11$
   Read string 8, Enemy12$
   Read string 8, Enemy13$
   Read string 8, Enemy14$
   Read string 8, Enemy15$
   Read string 8, Nothing$
   Read string 8, Nothing$
   Read String 8, Train1$
   Read String 8, Train2$
   Read String 8, Train3$
   Read String 8, Train4$
close file 8
Enemy1 = Val(Enemy1$)
Enemy2 = Val(Enemy2$)
Enemy3 = Val(Enemy3$)
Enemy4 = Val(Enemy4$)
Enemy5 = Val(Enemy5$)
Enemy6 = Val(Enemy6$)
Enemy7 = Val(Enemy7$)
Enemy8 = Val(Enemy8$)
Enemy9 = Val(Enemy9$)
Enemy10 = Val(Enemy10$)
Enemy11 = Val(Enemy11$)
Enemy12 = Val(Enemy12$)
Enemy13 = Val(Enemy13$)
Enemy14 = Val(Enemy14$)
Enemy15 = Val(Enemy15$)
Train1 = Val(Train1$)
Train2 = Val(Train2$)
Train3 = Val(Train3$)
Train4 = Val(Train4$)

if file exist ("Data/Version Data and Information/VersionData.txt")
delete file "Data/Version Data and Information/VersionData.txt"
endif
Open To Write 2, "Data/Version Data and Information/VersionData.txt"
   write string 2,"War Arena is a game deveolped from the Outscape Production Team"
   write string 2,"It is brought to you by Headchopperz who is the co-founder of Outscape."
   write string 2,"Up to the point of this patch was created Headchopperz is the sole coder for this game"
   write string 2,"This game has used the language of Dark Basic and used the Dark Basic compiler to create the .exe file"
   write string 2,""
   write string 2,"Your Version of War Arena is 2.6"
   write string 2,""
   write string 2,""
   write string 2,"Details of Version 2.6:"
   write string 2,"1.)Fixed image bug!"
   write string 2,"2.)Fixed music bug!"
   write string 2,"3.)Added Leaderboard!"
   write string 2,"4.)Game finishable!"
   write string 2,"5.)Added more AI!"
   write string 2,"6.)Added Bosses!"
   write string 2,"7.)Added nicer media!"
   write string 2,""
   write string 2,""
   write string 2,""
   write string 2,"War Arena is an Outscape Production which has been brought to you by Headchopperz."
   write string 2,"If you have any questions or comments please mail us at outscapeteam@yahoo.co.uk."
   write string 2,"If you want a fast reply add me on your yahoo/msn messanger."
Close File 2

function message_display(goX,goY,MesStart,milseconds)
rem Text data
global dim htext$(5)
 global message_display_time=MesStart
rem Main loop
global begin=1
global nar$=""
while escapekey()=0
text 0,0, "Paragraph Number: " + str$(message_display_time)
 rem Begin displaying message
 if begin=1
  begin=0
  restore
  global narstage=0 : global pause=0 : global text$=""
  for h=1 to 5 : htext$(h)="" : next h
 endif

 if forward = 1
 text goX,goY, "-->"
 if message_display_time < 1
   if returnkey()=1 then message_display_time = 1
 else
 if message_display_time < 2
   if returnkey()=1 then message_display_time = 2
 else
 if message_display_time < 3
   if returnkey()=1 then message_display_time = 3
 else
 if message_display_time < 4
   if returnkey()=1 then message_display_time = 4
endif : endif : endif : endif
endif


 rem Teletype
 inc pause
 if pause>=0
  pause=0
  if narstage=0
   read pgNumber
   narstage=1
  endif
  if narstage=1
   if message_display_time>=pgNumber then narstage=2
   forward = 1
  endif
  if narstage=2
   read nar$
   if nar$="" then exitfunction
   narstage=3
   nari=1
  endif
  if narstage=3
   forward = 0
    if nari<=len(nar$)
     a$=mid$(nar$,nari)
     text$=text$ + a$
     inc nari
    endif
    wait milseconds
   if nari>len(nar$)
    for h=5 to 2 step -1
     htext$(h)=htext$(h-1)
    next h
    htext$(1)=text$
    narstage=0
    text$=""
   endif
  endif
 endif
 basey=screen height()-40
 for h=1 to 5
  text 32,basey-(h*16),htext$(h)
 next h
 text 32,basey,text$


 rem Update screen
 sync

rem End loop
endwhile

rem Narration:
data 1,"cyangamer: Welcome to the letter-by-letter message script"
data 1,"by yours truly!"
data 2,"Using this, I will now be able to use character"
data 2,"dialogues and have RPG-style conversations."
data 3,"Yay me!"
data 4,""
data 4,""
endfunction

Sync On
Sync Rate 60
`Simulate a 3D environment by turning the backdrop on.
Backdrop On

Do
rem Print the main text.
set cursor 10,10
print "THIS IS THE MAIN LOOP. PRESS ENTER TO DISPLAY A MESSAGE."

rem Press enter to display a message.
if returnkey()
    Display_Message()
Endif

rem Refresh Screen
Sync
Loop


End


rem Declare Function
Function Display_Message()
    rem Set MessageTime to equal 200
    MessageTime=200
    rem Display the message until MessageTime reaches 0.
    while MessageTime>0
        rem Decrease MessageTime
        dec MessageTime
        rem Print some text.
        set cursor 10,30
        print "This is the message text. Notice how nothing written outside of this loop is visible."
        set cursor 10,50
        print "You must write stuff in THIS SPECIFIC WHILE/ENDWHILE LOOP in order to see it."
        sync
    endwhile
Endfunction

sync on
sync rate 0

REM lets create a sprite that moves around the screen within the main loop
create bitmap 1,100,100
ink rgb(255,0,0)
box 1,1,100,100
get image 1,1,1,100,100
delete bitmap 1

REM set a timer to move sprite at regular intervals
time=timer()
movebox()

REM -------------------
REM ---- MAIN LOOP ----
REM -------------------
repeat
REM on screen instructions
if menuon<>1
   ink rgb(255,0,0)
   center text screen width()/2,50,"Press left mouse button to open menu"
endif

REM the old value will allow use to keep the program from executing the setupmenu more than once per click
oldclick=click
click=mouseclick()

REM always run a seperate function to setup menus or things that need to be built and then ran
if click=1 and oldclick<>1
   menuon=1
   setupmenu()
endif

REM program will run through this function each loop
if menuon=1 then menuon=runmenu()

REM move box at interval
if timer()-time=>2000
   movebox()
   time=timer()
endif

sync
until menuon=-1
end

REM -------------------
REM ---- FUNCTIONS ----
REM -------------------
function setupmenu()
REM you will need to declare global variables to manipulate the menu
global clickboxstate
global menuclick
global menulastclick

REM menu background - includes title
create bitmap 1,300,150
ink rgb(155,155,155)
box 1,1,300,150
ink rgb(255,255,255)
center text 150,30,"Press button to close menu"
get image 2,1,1,300,150
sprite 2,(screen width()/2)-150,(screen height()/2)-75,2

REM simple click button to move bg sprite around
ink rgb(255,0,0)
box 1,1,50,25
get image 3,1,1,50,25
ink rgb(0,255,0)
box 1,1,50,25
get image 4,1,1,50,25
sprite 3,(screen width()/2)-25,(screen height()/2),3
delete bitmap 1
endfunction

function runmenu()
menulastclick=menuclick
menuclick=mouseclick()

REM function will run if var is 1, program will end if it is -1
menustate=1

REM store mouse position and button side positions in vars for easier multi-use
x=mousex()
y=mousey()
btnleft=sprite x(3)
btnright=btnleft+sprite width(3)
btntop=sprite y(3)
btnbottom=btntop+sprite height(3)

REM check if mouse is inside button sprite
if x=>btnleft and y=>btntop and x=< btnright and y=<btnbottom
   if sprite image(3)<>4 then set sprite image 3,4
   if menulastclick<>menuclick
      closemenu()
      if menuclick=1 then menustate=0
      if menuclick=2 then menustate=-1
   endif
else
   REM make button red anytime the mouse is not within it
   if sprite image(3)<>3 then set sprite image 3,3
endif
endfunction menustate

function closemenu()
for t=2 to 4
   delete image t
next t
delete sprite 2
delete sprite 3
endfunction

function movebox()
sprite 1,rnd(screen width()-100),rnd(screen height()-100),1
endfunction