Sorry your browser is not supported!

If upkey() = 1
Loop Object 1,2,14
Move Object 1,2
Else
Loop Object 1,295,325
Endif

Also, I'm taking babysteps toward an RPG while I wait for a snippet, first I focusing on moving while haveing the object animated. Then I'll move onto somethin' else.
If downkey() = 1
Loop Object 1,2,14
Move Object 1,2
Else
Loop Object 1,295,325
Endif

rem store camera object angles before moving
cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)

rem up and down keys move player forward and back
rem left and right keys strafes player left and right
if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,1 : xrotate object cam_obj,cx#
if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-1 : xrotate object cam_obj,cx#
if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,1.5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-1.5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#

REM Models by: Psionic
REM http://www.psionic3d.co.uk
REM
REM Code by: Phaelax
REM ============================

hide mouse
sync on
sync rate 60
randomize timer()

load sound "whip.wav", 1
load sound "earth slow.wav", 2
load sound "earth fast.wav", 3
load sound "hit tree.wav", 4


load image "grass_T.BMP", 1


make matrix 1, 1000,1000,10,10
prepare matrix texture 1, 1, 1, 1


load object "dwarf1.x", 1
scale object 1, 500, 500, 500
set object ambient 1, 0
set object speed 1, 30
loop object 1, 327, 360


load object "dwarf2.x", 2
scale object 2, 500, 500, 500
set object ambient 2, 0
set object speed 2, 30
loop object 2, 2, 14

dx# = rnd(1000)
dz# = rnd(1000)

rem radar
make object cone 3, 6
xrotate object 3, 90
fix object pivot 3
position object 3, 0,50,100
color object 3, rgb(255,0,0)
set object ambient 3, 0

DO


  oldstage = stage
  stage = 0
  gosub _controls
  gosub _handle_attack

  if stage <> oldstage
      if stage = 0 then loop object 1, 292, 325
      if stage = 1 then loop object 1, 2, 14
      if stage = 2 then loop object 1, 16, 26
      if stage = 3 then loop object 1, 112, 126 : play sound 1
  endif

  gosub _sounds

  gosub _position_camera
  gosub _position_dwarf

  gosub _handle_dwarf2

  gosub _radar

  center text screen width()/2, 10, "Score: "+str$(score)

  sync
LOOP




_controls:

  if attacking = 0
      if shiftkey()
        speed# = 4
        stage = 2
      else
        speed# = 2
      endif

      if upkey()
        x# = newxvalue(x#, a#, speed#)
        z# = newzvalue(z#, a#, speed#)
        if stage <> 2 then stage = 1
      endif

      if downkey()
        x# = newxvalue(x#, a#, -speed#)
        z# = newzvalue(z#, a#, -speed#)
        if stage <> 2 then stage = 1
      endif

      if rightkey()
        a# = wrapvalue(a#+4)
      endif

      if leftkey()
        a# = wrapvalue(a#-4)
      endif
  endif

  if controlkey() then attacking = 1

RETURN

_position_camera:
  cx# = newxvalue(x#,0, -50)
  cz# = newzvalue(z#,0, -50)
  position camera cx#,80,cz#
  point camera x#,y#,z#
RETURN

_position_dwarf:
  position object 1, x#, y#, z#
  yrotate object 1, a#
RETURN


_handle_attack:
  if attacking = 1
      stage = 3
      if object frame(1) >= 125 then attacking = 0:hit = 0:return


      if distance#(x#,z#,dx#,dz#) < 20^2
        if object frame(1) > 118 and hit = 0
            hit = 1
            inc score, 1
            play sound 4
        endif
      endif

  endif
RETURN


_handle_dwarf2:
  dx# = newxvalue(dx#, da#, 1)
  dz# = newzvalue(dz#, da#, 1)

  if timer() > dtime + direction_change
      dtime = timer()
      direction_change = rnd(3000)+3000
      da# = rnd(360)
  endif

  if dx# > 1000 or dx# < 0 or dz# > 1000 or dz# < 0
      da# = wrapvalue(da# + 180)
  endif

  position object 2, dx#, dy#, dz#
  yrotate object 2, da#
RETURN



_radar:
  ra# = atanfull(dx#-x#, dz#-z#)
  yrotate object 3, ra#

  rx# = newxvalue(x#,180, 10)
  rz# = newzvalue(z#,180, 10)
  position object 3, rx#, ry#, rz#
RETURN


_sounds:
  if stage = 1
      if sound playing(2) = 0 then play sound 2
  endif
  if stage = 2
      if sound playing(3) = 0 then play sound 3
  endif
RETURN

function distance#(x1 as float, y1 as float, x2 as float, y2 as float)
  d2# = (x1 - x2)^2 + (y1 - y2)^2
endfunction d2#

if upkey()
        x# = newxvalue(x#, a#, speed#)
        z# = newzvalue(z#, a#, speed#)
        if stage <> 2 then stage = 1
      endif

      if downkey()
        x# = newxvalue(x#, a#, -speed#)
        z# = newzvalue(z#, a#, -speed#)
        if stage <> 2 then stage = 1
      endif

      if rightkey()
        a# = wrapvalue(a#+4)
      endif

      if leftkey()
        a# = wrapvalue(a#-4)
      endif
  endif

sync on
sync rate 30
hide mouse

`set up lights and stuff
set ambient light 5

`set game stats
linesight=500
StatSight=100

`set character stats
PlrHealth=100
Plr2Health=100

`player
make object cube 1,5
color object 1,RGB(0,0,225)
position object 1,0,5,0
remstart
`player2
make object cube 2,5
color object 2,RGB(0,0,150)
position object 2,0,5,0
remend
`player fog
for a = 0 to 2
make object sphere 20+a,10*a-200
color object 20+a,RGB(200,200,200)
`set object 20+a,1,1,1,0,1,1,1
ghost object on 20+a
next a

`World

`Land
make object plain 100,1000,1000
xrotate object 100,270

`Water
make object plain 101,2000,2000
xrotate object 101,270
position object 101,0,-100,0

`Texture ground
for x=1 to 32
   for y=1 to 32
      dot x, y, rgb(0,100+rnd(155),0)
   next y
next x
get image 1,1,1,32,32
texture object 100,1
SCALE OBJECT TEXTURE 100, 20, 20

`Texture water
for x=1 to 32
   for y=1 to 32
      dot x, y, rgb(0,0,100+rnd(155))
   next y
next x
get image 2,1,1,32,32
texture object 101,2
SCALE OBJECT TEXTURE 101, 10, 10

`world objects
`Trees
for a = 200 to 300
make object cone a,20
position object a,-500+rnd(1000),11,-500+rnd(1000)
color object a,RGB(0,200,0)
next a

`Texture trees
for x=1 to 10
   for y=1 to 10
     dot x, y, rgb(0,200+rnd(55),0)
   next y
next x
get image 3,1,1,10,10

for a = 200 to 300
texture object a,3
SCALE OBJECT TEXTURE a, 2, 2
next a

`Enemy
for a = 500 to 599
make object cube a,5
color object a,RGB(0,150,100)
position object a,-500+rnd(1000),5,-500+rnd(1000)
yrotate object a, rnd(360)
next a

`set enemy stats
dim MonsterHealth(100)
for a = 1 to 100
MonsterHealth(a)=20
next a

`Buildings
MakeDoor(301,20,0,20)

`BEGIN LOOP********************************************************************************
do

set cursor 10,10
print screen fps()

`Switch mapmode
if shiftkey()=1
mapmode=1
else
mapmode=0
endif

if mapmode=1
if upkey()=1
yrotate object 1,curveangle(360,object angle y(1),10)
move object 1,1
endif

if downkey()=1
yrotate object 1,curveangle(180,object angle y(1),10)
move object 1,1
endif

if leftkey()=1
yrotate object 1,curveangle(270,object angle y(1),10)
move object 1,1
endif

if rightkey()=1
yrotate object 1,curveangle(90,object angle y(1),10)
move object 1,1
endif

else

if upkey()=1
move object 1,1
endif

if downkey()=1
move object 1,-1
endif

if leftkey()=1
move object left 1,1
endif

if rightkey()=1
move object right 1,1
endif

endif

if mapmode=0
`Position the camera
   oldcAY# = cAY#

   cAY# = WrapValue(cAY#+MousemoveX()*0.2)

   Rem Rotate camera with mouse movement
   YRotate camera CurveAngle(cAY#,oldcAY#,24)

   YRotate object 1,CurveAngle(cAY#,oldcAY#,24)

   rem position camera at the position of the players sliding sphere
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),60,30,10,1
point camera object position x(1),object position y(1),object position z(1)

else
`Position the camera
set camera to follow object position x(1),object position y(1),object position z(1),0,60,1000,100,1
point camera object position x(1),object position y(1),object position z(1)
endif


`Gosubs
gosub WaterMovement
gosub FogMovement
gosub LineOfSight
gosub DisplayStats
gosub MoveBadies

sync
loop
`END OF LOOP******************************************************************************

LineOfSight:
for a = 200 to 300
if object exist(a)

if Object position x(1)=<Object position x(a)+linesight
if Object position x(1)=>Object position x(a)-linesight
if Object position y(1)=<Object position y(a)+linesight
if Object position y(1)=>Object position y(a)-linesight
if Object position z(1)=<Object position z(a)+linesight
if Object position z(1)=>Object position z(a)-linesight

show object a

endif
endif
endif
endif
endif
endif

if Object position x(1)=>Object position x(a)+linesight
hide object a
endif

if Object position x(1)=<Object position x(a)-linesight
hide object a
endif

if Object position y(1)=>Object position y(a)+linesight
hide object a
endif

if Object position y(1)=<Object position y(a)-linesight
hide object a
endif

if Object position z(1)=>Object position z(a)+linesight
hide object a
endif

if Object position z(1)=<Object position z(a)-linesight
hide object a
endif

endif
next a

Return

WaterMovement:
position object 101,object position x(1),object position y(1)-100,object position z(1)
scroll object texture 101,0.001,0.001
Return

FogMovement:
for a = 20 to 22
position object a,object position x(1),object position y(1),object position z(1)
next a
Return

DisplayStats:
if controlkey()=1

if object in screen(1)
set cursor OBJECT SCREEN X(1)-30,OBJECT SCREEN Y(1)
Print "HP: ",PlrHealth
endif
remstart
if object in screen(2) and OBJECT SCREEN X(2)=>30 and OBJECT SCREEN X(2)=<610 and OBJECT SCREEN Y(2)=>30 and OBJECT SCREEN Y(2)=<450
set cursor OBJECT SCREEN X(2)-15,OBJECT SCREEN Y(2)
Print "HP: ",Plr2Health
endif
remend
for a = 500 to 600
if object exist(a)

if Object position x(1)=<Object position x(a)+StatSight
if Object position x(1)=>Object position x(a)-StatSight
if Object position y(1)=<Object position y(a)+StatSight
if Object position y(1)=>Object position y(a)-StatSight
if Object position z(1)=<Object position z(a)+StatSight
if Object position z(1)=>Object position z(a)-StatSight

if object in screen(a) and OBJECT SCREEN X(a)=>30 and OBJECT SCREEN X(a)=<610 and OBJECT SCREEN Y(a)=>30 and OBJECT SCREEN Y(a)=<450
set cursor OBJECT SCREEN X(a)-15,OBJECT SCREEN Y(a)
Print "HP: ",MonsterHealth(a-499)
endif

endif
endif
endif
endif
endif
endif

endif
next a

endif
Return

MoveBadies:
for a = 500 to 600
if object exist(a)

if Object position x(a)=<500
if Object position x(a)=>-500
if Object position z(a)=<500
if Object position z(a)=>-500

move object a,0.5

endif
endif
endif
endif

if Object position x(a)=>500
if object angle y(a)=>90 or object angle y(a)=<270
yrotate object a, object angle y(a)+wrapvalue(90)
move object a,1
else
yrotate object a, object angle y(a)+wrapvalue(-90)
move object a,1
endif
endif

if Object position x(a)=<-500
if object angle y(a)=<180
yrotate object a, object angle y(a)+wrapvalue(90)
move object a,1
else
yrotate object a, object angle y(a)+wrapvalue(-90)
move object a,1
endif
endif

if Object position z(a)=>500
if object angle y(a)=<180
yrotate object a, object angle y(a)+wrapvalue(90)
move object a,1
else
yrotate object a, object angle y(a)+wrapvalue(-90)
move object a,1
endif
endif

if Object position z(a)=<-500
if object angle y(a)=>90 or object angle y(a)=<270
yrotate object a, object angle y(a)+wrapvalue(90)
move object a,1
else
yrotate object a, object angle y(a)+wrapvalue(-90)
move object a,1
endif
endif

endif
next a
Return

function MakeDoor(objsnum,x,y,z)
make object cube objsnum, 10
make object cube objsnum+1, 10
make object cube objsnum+2, 10
make object cube objsnum+3, 10
color object objsnum,RGB(120,100,50)
color object objsnum+1,RGB(120,100,50)
color object objsnum+2,RGB(120,100,50)
color object objsnum+3,RGB(120,100,50)
scale object objsnum,10,100,100
scale object objsnum+1,10,100,100
scale object objsnum+2,100,100,10
scale object objsnum+3,100,100,10
position object objsnum,x+5,y+5,z
position object objsnum+1,x-5,y+5,z
position object objsnum+2,x,y+5,z+5
xrotate object objsnum+3,270
position object objsnum+3,x,y+10,z
endfunction

`action rpg
`www.dougsworld.tk

sync on:sync rate 30
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()

dim key(256)

type enem
	health as integer
	startx as integer
	startz as integer
	endx as integer
	endz as integer
	move as integer
	scale as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5
color object 9,rgb(100,255,100)

for a=10 to 100
	make object sphere a,3,6,6
	position object a,rnd(1000),0,rnd(1000)
	color object a,rgb(255,0,0)
	enemy(a).health=100
	enemy(a).startx=object position x(a)
	enemy(a).startz=object position z(a)
	enemy(a).endx=object position x(a)+rnd(60)
	enemy(a).endz=object position z(a)+rnd(60)
	enemy(a).scale=100
next a

make object cube 1,1
playerhealth=100
make object box 2,.2,.2,4
color object 2,rgb(0,0,0)
hide object 2
offset limb 2,0,0,0,2

do
    if upkey()=1 then move object 1,1
    if downkey()=1 then move object 1,-1
    if leftkey()=1 then yrotate object 1,object angle y(1)-5 
    if rightkey()=1 then yrotate object 1,object angle y(1)+5 
    if keyready(57)=1 and attack=0
    	rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
    	attack=16
    	show object 2
    endif
     if attack>0
     	attack=attack-1
     	position object 2,object position x(1),0,object position z(1)
     	yrotate object 2,object angle y(2)+10
     	for a=10 to 100
 			if object exist(a)=1
     		if object collision(2,a)=1 
     			enemy(a).health=enemy(a).health-30
     		   move object a,-20
     		   enemy(a).scale=enemy(a).scale-20
     		   scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale	   
			endif
     		if enemy(a).health<10 then delete object a
     		endif
     	next a
     endif
     if attack=1 then hide object 2
     
     for a=10 to 100
     if object exist(a)=1
     	if distance(1,a)>50 
     		patrol(a)
     	else
     		point object a,object position x(1),0,object position z(1)
     		move object a,.5
     		if object collision(a,1)=1
     			playerhealth=playerhealth-5
     			move object a,-15
     			endif
     		endif
     	endif
     next a
     
  position camera (object position x(1)-sin(object angle y(1))*5),object position y(1)+2,(object position z(1)-cos(object angle y(1))*5)
	point camera object position x(1),object position y(1),object position z(1)
	text 1,1,str$(playerhealth)
	
	sync
loop



function patrol(object)
	if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
	if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
	if enemy(object).move=0
		point object object,enemy(object).endx,0,enemy(object).endz
		move object object,1
	endif
	if enemy(object).move=1
		point object object,enemy(object).startx,0,enemy(object).startz
		move object object,1
	endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

	temp = 1
	null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)
               
ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
		key(keyz) = 1
		vl=1
	endif
if keystate(keyz)=0
		key(keyz) = 0
		vl = 0
	endif
endfunction vl