Sorry your browser is not supported!

distance#=sqrt((PlayerX-EntityX)^2+(PlayerY-EntityY)^2)

Dim EntitiesX(100)
Dim EntitiesY(100)
Dim EntitiesHealth(100)
Dim EntitiesStrength(100)
Dim EntitiesOptions(100)

rem make it where you can't hold spacekey

if spacekey()=0 then press=0

if spacekey()=1
 if press=0 
  gosub CheckDistance  
  press=1
 endif
endif

checkdistance:
 for b=1 to 100
  if entitiesX(b)>=1 and entitiesX(b)<=20 and entitiesY(b)>=1 and entitiesY(b)<=15
  entitieshealth(b)=entitieshealth(b)-playerstrength
  endif
 next b
return

remstart
Dim EntitiesX(100)
Dim EntitiesY(100)
Dim EntitiesHealth(100)
Dim EntitiesStrength(100)
Dim EntitiesOptions(100)
remend

rem this is psuedo code
rem current player position
plx=10
ply=20

for en=startenemy to lastenemy
   if en is in screen
      rem find the difference between the player and enemy x and y
      rem they are close - within 1 tile - hand to hand combat
      testx=abs(enx-plx)
      testy=abs(eny-ply)
      if (testx + testy) <=2
         do hand to hand battle stuff
      else
         rem they are far apart - between 5 and 2 tiles - within ranged
         rem weapon attack - bow, rock, magic, etc
         if (testx + testy) <=10 and (testx + testy) >= 4
            do ranged attack stuff
         endif
      endif
   endif
next en     

rem make it where you can't hold spacekey
if spacekey()=0 then press=0
REM If the attack button is pressed, gosub to the Attack subroutine
if spacekey()=1 and press=0 
  gosub Attack
REM Prevents holding of attack button
  press=1
endif

Attack:
REM First, check all entities to see if in range of weapon.
REM Check 1: On screen, since if they are off, we don't worry about them
REM Check 2: If they are within the actual range of the weapon
 for b=1 to 100 : REM Assumes 100 entities
   REM Checks to see if the entity is on screen
  if entitiesX(b)>=1 and entitiesX(b)<=20 and entitiesY(b)>=1 and entitiesY(b)<=15
      REM Damages the enemy
  entitieshealth(b)=entitieshealth(b)-playerstrength
  endif
 next b
return

rem make it where you can't hold spacekey
if keystate(57)=0 then press=0
REM If the attack button is pressed, gosub to the Attack subroutine
if keystate(57)=1 and press=0 
  gosub Attack
REM Prevents holding of attack button
  press=1
endif

Attack:
REM First, check all entities to see if in range of weapon.
REM Check 1: On screen, since if they are off, we don't worry about them
REM Check 2: If they are within the actual range of the weapon
 for b=1 to 25 : REM Assumes 100 entities
   REM Checks to see if the entity is on screen
  if entitiesX(b)/32<=cameraX+7 and entitiesX(b)/32>=cameraX-7 and entitiesY(b)/32<=cameraY+10 and entitiesY(b)/32>=cameraY-10
rem if in weapon range
   if entitiesx(b)<=weaponrange and entitiesY(b)<weaponrange 
      REM Damages the enemy
  entitieshealth(b)=entitieshealth(b)-playerstrength
rem if health is grater than 0 
     if entitieshealth(b)>0
      rem enemy GOs back
      else 
       rem enemy dies
     endif
   endif
  endif
 next b
return

If health<=0
   Kill em
ENDIF

rangeX=abs(PlayerPosX-EntityPosX)
rangeY=abs(PlayerPosY-EntityPosY)
IF rangeX<=WeaponRangeX
   If rangeY<=WeaponRangeY
      attack
   endif
endif

for obj=1 to 20 : color object obj,rgb(250,150,200) : next obj

rem make it where you can't hold spacekey
if keystate(57)=0 then press=0
REM If the attack button is pressed, gosub to the Attack subroutine
if keystate(57)=1 and press=0 
rem play animation
for x=startimage to finishimage
 image=x
next x 
  gosub Attack
REM Prevents holding of attack button
  press=1
endif

Attack:
REM First, check all entities to see if in range of weapon.
REM Check 1: On screen, since if they are off, we don't worry about them
REM Check 2: If they are within the actual range of the weapon
 for b=1 to max_entities : REM Assumes 100 entities
   REM Checks to see if the entity is on screen
  if entitiesX(b)/32<=cameraX+7 and entitiesX(b)/32>=cameraX-7 and entitiesY(b)/32<=cameraY+10 and entitiesY(b)/32>=cameraY-10
rem if in weapon rangerangeX=abs(PlayerPosX-EntityPosX)
rangeY=abs(PlayerPosY-EntityPosY)
IF rangeX<=WeaponRangeX
   If rangeY<=WeaponRangeY
       REM Damages the enemy
  entitieshealth(b)=entitieshealth(b)-playerstrength
rem if health is grater than 0 
   endif
endif
rem if health is grater than 0 
     if entitieshealth(b)<=0
      `kill monster
      else 
      `make monster go backwards
     endif
   endif
  endif
 next b
return

make object sphere 1,200
scale object 1,50,50,50
position object 1,4,12,23
make object box 2,2,5,4
scale object 2,30,50,50
load image "box text.bmp",1
texture object 2,1
load image "sphere text.bmp",2
texture object 1,2

load image "sphere text.bmp",2
load image "box text.bmp",1

make object sphere 1,200
scale object 1,50,50,50
position object 1,4,12,23
texture object 1,2

make object box 2,2,5,4
scale object 2,30,50,50
texture object 2,1

rem make it where you can't hold spacekey
if keystate(57)=0 then press=0
REM If the attack button is pressed, gosub to the Attack subroutine
if keystate(57)=1 and press=0 

rem play animation
for x=startimage to finishimage
 image=x
next x 

  gosub Attack

REM Prevents holding of attack button
  press=1
endif

Attack:
REM First, check all entities to see if in range of weapon.
REM Check 1: On screen, since if they are off, we don't worry about them
REM Check 2: If they are within the actual range of the weapon
 for b=1 to max_entities : REM Assumes 100 entities
   REM Checks to see if the entity is on screen
  if entitiesX(b)/32<=cameraX+7 and entitiesX(b)/32>=cameraX-7 and entitiesY(b)/32<=cameraY+10 and entitiesY(b)/32>=cameraY-10
rem if in weapon rangerangeX=abs(PlayerPosX-EntityPosX)
rangeY=abs(PlayerPosY-EntityPosY)

IF rangeX<=WeaponRangeX
   If rangeY<=WeaponRangeY
       REM Damages the enemy
  entitieshealth(b)=entitieshealth(b)-playerstrength
rem if health is grater than 0 
   endif
endif

rem if health is grater than 0 
     if entitieshealth(b)<=0
      `kill monster
      else 
      fallBACK()
     endif
   endif
  endif
 next b

Return

END

`````````````````````````Sub```````````````````````
function fallback()
up=1
right=2
down=3
left=4
endfunction

a=3
b=4
gosub p_theorem
print c
end

p_theorem:
 c=sqrt(a^2+b^2)
RETURN

c=P_Theorem(3,4)
Print C
END

Function P_Theorem(a,b)
   c=sqrt(a^2+b^2)
Endfunction c

sync on
sync rate 0
Rem Create a string to put in the memblock
String$ = "Hey Whats Up?"
Rem make a memblock to use.
Rem 4 Bytes per Character(DWORD)
Make memblock 1,Len(String$)*4+4

Rem Cycle through to Characters
For X=1 to Len(String$)
   Rem Get the Char a the X position
   Char$ = Mid$(String$, X)
   Rem Write the Ascii Version to the memblock
   Write memblock dword 1,X*4,asc(char$)
next x

Rem Cycle through again
For X=1 to Len(String$)
   Rem Get the Ascii Character from the memblock
   Char = Memblock dword(1,X*4)
   Rem Add the the Character version to the sentance
   Sentance$ = Sentance$+Chr$(Char)
next x
Rem Print it! See told you it works! haha
Print Sentance$

REM switch to prevent continuous attacks
old_attack = new_attack
new_attack = keystate(key_attack)

if new_attack > old_attack
  rem attack!
endif

REM Loop 1
old_action = new_action [0]
new_action = keystate(n) [0] : REM key not pressed
if new_action [0] > old_action [0] = FALSE

REM Loop 2
old_action = new_action [0]
new_action = keystate(n) [1] : REM key pressed
if new_action [1] > old_action [0] = TRUE

REM Loop 3
old_action = new_action [1]
new_action = keystate(n) [1] : REM key held
if new_action [1] > old_action [1] = FALSE

REM Loop 4
old_action = new_action [1]
new_action = keystate(n) [0] : REM key released
if new_action [0] > old_action [1] = FALSE

REM Loop 5
old_action = new_action [0]
new_action = keystate(n) [0] : REM key not pressed
if new_action [0] > old_action [0] = FALSE

sync on

gosub make_variables
gosub make_arrays
gosub make_images

do
`paste images
paste image 1,0,0
paste image 2,0,380
paste image 3,100,380
paste image 4,200,380
paste image 5,450,400

`write info on potions and gold
ink rgb(250,0,0),1 : center text 50,450,str$(HPpotions)
ink rgb(0,0,250),1 : center text 150,450,str$(MPpotions)
ink rgb(250,250,0),1 : center text 250,450,str$(gold)

`write info on weapon
ink rgb(200,200,200),1
set text size 10
text 460,425,weapons$(currentweapon)
text 465,445,weaponselements$(currentweapon)
text 465,460,str$(weaponsdamages(currentweapon))

`make bars of HP and MP
ink rgb(250,0,0),1
hpratio#=hp#/maxhp#
box 50,5,(hpratio#*100)+50,25
line (hpratio#*100)+50,5,150,5 : line (hpratio#*100)+50,25,150,25 : line 150,5,150,25
ink rgb(100,100,250),0
mpratio#=magic#/maxmagic#
box 500,5,(mpratio#*100)+500,25
line (mpratio#*100)+500,5,600,5 : line (mpratio#*100)+500,25,600,25 : line 600,5,600,25

`type the current task
ink rgb(250,250,250),1
set text font "Arial" : set text size 15
center text 325,55,currenttask$

`print the title logo
paste image 6,175,5

`check for user clicking various buttons
if mouseover(0,380,100,480)=1 and mouseclick()=1 and hpclickflag=0 then hpclickflag=1 : dec hppotions : inc hp#,10 : if hp#>maxhp# then hp#=maxhp#
if mouseover(100,380,200,480) = 1 and mouseclick()=1 and mpclickflag=0 then mpclickflag=1 : dec mppotions : inc magic#,10 : if magic#>maxmagic# then magic#=maxmagic#
if mouseover(450,400,640,480) = 1 and mouseclick()=1 and weaponclickflag=0 then weaponclickflag=1 : inc currentweapon : if currentweapon>numberofweapons then currentweapon=1

`return flags to neutral
if mouseclick()=0 then hpclickflag=0 : mpclickflag=0 : weaponclickflag=0

sync
cls
loop

make_variables:

maxhp#=50
hp#=19
currentweapon=1
numberofweapons=3
currenttask$="Find 20 Berries in the forest for Jane"
gold=75
maxmagic#=30
magic#=25
HPpotions=1
MPpotions=2
title$ = "Tale of A N006"

return

make_arrays:

dim weapons$(3) : weapons$(1)= "Blade of Uprising" : weapons$(2)= "Blade of Destruction" : weapons$(3)= "Saber of Banishment"
dim weaponsdamages(3) : weaponsdamages(1)=5 : weaponsdamages(2)=15 : weaponsdamages(3)=10
dim weaponselements$(3) : weaponselements$(1)="Fire" : weaponselements$(2)="Doom" : weaponselements$(3)="Light"

return

make_images:

`make small purple ellipse for HUD top part
ink rgb(125,0,250),1
ellipse 320,100,320,100
get image 1,0,100,640,201
cls

`make a small red ellipse to be cut for the HP potions counter
ink rgb(250,0,0),1
ellipse 320,240,25,50
get image 2,270,140,370,240
cls

`make a small blue ellipse for the MP potions counter
ink rgb(0,0,250),1
ellipse 320,240,25,50
get image 3,270,140,370,240
cls

`small gold ellipse for the gold counter
ink rgb(250,250,0),1
ellipse 320,240,25,50
get image 4,270,140,370,240
cls

`this long block of line commands will draw a "sword"
ink rgb(200,200,200),1
line 320,240,336,228
line 320,240,336,252
line 336,228,436,228
line 336,252,436,252
line 436,228,436,208
line 436,252,436,272
line 436,208,441,208
line 436,272,441,272
line 441,208,441,233
line 441,272,441,247
line 441,233,491,233
line 441,247,491,247
line 491,233,491,247
get image 5,320,208,495,276
cls

`make a logo of the game title
set text font "Algerian" : set text size 30
currentcolor=1
for x = 1 to 15
if currentcolor=1 then ink rgb(250,0,0),1
if currentcolor=2 then ink rgb(0,250,0),1
if currentcolor=3 then ink rgb(0,0,250),1
text (20*x)+100,240,mid$(title$,x)
inc currentcolor : if currentcolor=4 then currentcolor=1
next x
get image 6,120,230,420,280
cls
return

function mouseover(x1,y1,x2,y2)
if x1<mousex() and mousex()<x2
   if y1<mousey() and mousey()<y2
      exitfunction 1
   endif
endif
endfunction 0

sync on : hide mouse  : set display mode 800,600,32

`------------------------------------------------------
`images stuff
`------------------------------------------------------

load image "Stand.png",1
load image "Run.png",2
load image "Attack.png",3

`chop up animation grids
paste image 1,0,0

`chop stand grid
for y=0 to 192 step 64
   for x=0 to 704 step 64
      get image 100+value,x,y,x+64,y+64
      inc value
   next x
next y

value=0

cls : paste image 2,0,0

`chop run grid
for y=0 to 192 step 64
   for x=0 to 704 step 64
      get image 200+value,x,y,x+64,y+64
      inc value
   next x
next y

value=0

cls : paste image 3,0,0

`chop attack grid
for y=0 to 192 step 64
   for x=0 to 704 step 64
      get image 300+value,x,y,x+64,y+64
      inc value
   next x
next y

cls

delete image 1 : delete image 2 : delete image 3

ink rgb(0,255,0),0
box 0,0,32,32
get image 1,0,0,32,32
cls

ink rgb(255,0,0),0
box 0,0,32,32
get image 2,0,0,32,32
cls

`----------------------------------------------------
`setup variables
`----------------------------------------------------

x=288
y=208
movevalue=3
direction=1
stand=0
run=1
attack=2
red=rgb(255,0,0)

dim tilecol((800-32)/32,(600-32)/32)



`make a randomized map on an off screen bmp
create bitmap 1,800,600
for y=0 to 600-32 step 32
   for x=0 to 800-32 step 32
      if rnd(30)=1
         paste image 2,x,y
         tilecol(x/32,y/32)=1
      else
         paste image 1,x,y
      endif
   next x
next y

set current bitmap 0

`make another off screen bitmap for collision
create bitmap 2,800,600

for y=0 to (600-32)/32
	for x=0 to (800-32)/32
		if tilecol(x,y)=1 then paste image 2,x*32,y*32
	next x
next y

set current bitmap 0



`----------------------------------------------------
`main loop
`----------------------------------------------------

do

	gosub _input

   if oldaction<>action then frame=0

   `prevent player from leaving map
   if x<0 then x=0
   if x+64>800 then x=800-64
   if y<0 then y=0
   if y+64>600 then y=600-64

   `idle if needed
   if action=stand

      paste image 100+frame+(12*(direction-1)),x,y,1

      inc frame

      if frame>11 then frame=0

   endif

   `run if needed
   if action=run

      paste image 200+frame+(12*(direction-1)),x,y,1

      inc frame

      if frame>11 then frame=0

   endif

   `attack if needed
   if action=attack

      paste image 300+frame+(12*(direction-1)),x,y,1

      if attackflag=1 and frame=0
      else
         inc frame
      endif

      if frame>11 then frame=0

      attackflag=1

   endif


   sync

   cls

   copy bitmap 1,0

   oldaction=action

loop


`---------------------------------------------------------------
`subroutines
`---------------------------------------------------------------

_input:

		`make a memblock to check for collision
		set current bitmap 2
		get image 3,0,0,799,599
		make memblock from image 1,3
		set current bitmap 0



   if upkey()+rightkey()+downkey()+leftkey()=0 then action=stand

   if spacekey()=1 : action=attack : else : attackflag=0 : endif

		`check for move right
   if rightkey()=1
		direction=1
		inc x,movevalue
		action=run
		if memblock dword(1,(((y+32)*memblock dword(1,0))+x+32)*4+12)=red then dec x,movevalue
	endif

	`check for move down
   if downkey()=1
		direction=2
		inc y,movevalue
		action=run
		if memblock dword(1,(((y+42)*memblock dword(1,0))+x+32)*4+12)=red then dec y,movevalue
	endif

	`check for move left
   if leftkey()=1
		direction=3
		dec x,movevalue
		action=run
		if memblock dword(1,(((y+32)*memblock dword(1,0))+x+32)*4+12)=red then inc x,movevalue
	endif

	`check for move up
   if upkey()=1
		direction=4
		dec y,movevalue
		action=run
		if memblock dword(1,(((y+32)*memblock dword(1,0))+x+32)*4+12)=red then inc y,movevalue
	endif

return

for layer=1 to 4
set current bitmap layer
get image 1,0,0,799,599 : rem if were going with 800*600 res
set current bitmap 0
paste image 1,0,0
if layer=3 then paste image player,x,y
next layer