Small RPG snippet? - GameCreators Forum

Author

Message

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 10th Feb 2005 04:42

Link

Glad it does I was thinking that it might turn into a bunch of nonsense off topic posts.

P.s Check your Tutopia thread.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 11th Feb 2005 00:20

Link

Already have. Thanks again. They weren't really off topic and they bumped the thread nicely!

[url]andrewneale2004@yahoo.com[/url]
http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 11th Feb 2005 00:28

Link

Haha.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 11th Feb 2005 05:37

Link

How would I position a sprite based off an object's position in 3D Space? Because I want to put a sprite on the screen where an enemy is and have tthe camera turn to the enemy, however just doing:

+ Code Snippet

Sprite 3,Object Position X(7),C1Y#+12.5,5

Doesn't work so I was wondering if there is any formula that could easily be used, I want this so I can havea lock on feature for combat in this little project I'm working on until DBP arrives.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 12th Feb 2005 05:10

Link

Is this helpful?

rem Make a sprite
cls
ink rgb(255,0,0),0
circle 16,16,14
circle 16,16,15
circle 16,16,16
ink rgb(0,0,0),0
line 15,0,15,32
line 16,0,16,32
line 17,0,17,32
line 0,15,32,15
line 0,16,32,16
line 0,17,32,17
get image 1,0,0,32,32
sprite 1,-1000,-1000,1

rem Make a terrain
make matrix 1,100,100,10,10

rem Make some enemies
randomize timer()
for o=1 to 5
make object box o,5,5,5
position object o,rnd(100),0,rnd(100)
next o

rem Start off variables
CurrentEnemy=1

rem Position the camera
position camera 50,50,-50

rem Start off manual synchronisation
sync on
sync rate 0

rem Start the main loop
do

rem Paste a sprite over the enemy
paste sprite 1,object screen x(CurrentEnemy)-16,object screen y(CurrentEnemy)-16

rem Move to next enemy
if Press=0
if keystate(15)=1
Press=1
CurrentEnemy=CurrentEnemy+1
endif
endif
if keystate(15)=0
Press=0
endif
if CurrentEnemy>5
CurrentEnemy=1
endif

rem Point the camera at the enemy
point camera object position x(CurrentEnemy),object position y(CurrentEnemy),object position z(CurrentEnemy)

rem Update the screen
sync

rem End the main loop
loop

+ Code Snippet

rem Make a sprite
cls
ink rgb(255,0,0),0
circle 16,16,14
circle 16,16,15
circle 16,16,16
ink rgb(0,0,0),0
line 15,0,15,32
line 16,0,16,32
line 17,0,17,32
line 0,15,32,15
line 0,16,32,16
line 0,17,32,17
get image 1,0,0,32,32
sprite 1,-1000,-1000,1

rem Make a terrain
make matrix 1,100,100,10,10

rem Make some enemies
randomize timer()
for o=1 to 5
make object box o,5,5,5
position object o,rnd(100),0,rnd(100)
next o

rem Start off variables
CurrentEnemy=1

rem Position the camera
position camera 50,50,-50

rem Start off manual synchronisation
sync on
sync rate 0

rem Start the main loop
do

rem Paste a sprite over the enemy
paste sprite 1,object screen x(CurrentEnemy)-16,object screen y(CurrentEnemy)-16

rem Move to next enemy
if Press=0
if keystate(15)=1
Press=1
CurrentEnemy=CurrentEnemy+1
endif
endif
if keystate(15)=0
Press=0
endif
if CurrentEnemy>5
CurrentEnemy=1
endif

rem Point the camera at the enemy
point camera object position x(CurrentEnemy),object position y(CurrentEnemy),object position z(CurrentEnemy)

rem Update the screen
sync

rem End the main loop
loop

[url]andrewneale2004@yahoo.com[/url]
http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 12th Feb 2005 07:26 Edited at: 12th Feb 2005 07:41

Link

Will try it out in a few minutes.

It's some nice code and I like the targeter, this is very useful ?I've just got to look up the object screen commands and I can easily implement it.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 13th Feb 2005 04:39

Link

So DBP could arrive any day now?

[url]andrewneale2004@yahoo.com[/url]
http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 13th Feb 2005 05:03

Link

Yes, but it might arrive any week too. I'll just have to wait. And then one day it will arrive.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 16th Feb 2005 09:22

Link

It should be here next week according to Amazon, woot!

Anyways didn't want this to pass to page 2, and can a mod pllleeeaasseee move this to DBP talk? Please?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 16th Feb 2005 19:58

Link

Well we could go to every thread on every forum and post a message asking for it to be moved but that would be slightly excessive!

[url]andrewneale2004@yahoo.com[/url]
http://www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 17th Feb 2005 07:22

Link

And I would probably be temporarily banned.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 18th Feb 2005 04:49

Link

A minor problem!
Once you get Pro I'll send you my updated version of the snippet from this thread.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 18th Feb 2005 05:16

Link

Cool.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 20th Feb 2005 04:31

Link

It's here! It arrived in the mail today! andrew could you send me that enhanced snippet you mentioned?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 21st Feb 2005 04:47

Link

Wahey!
Here you go!

`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()

RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

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
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5
color object 9,rgb(50,155,50)

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
   make object sphere a+100,3,6,6
   color object a+100,rgb(0,100,250)
   ghost object on a+100
   hide object a+100
next a

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

set global collision on

do

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
line 0,0,100,0
line 100,0,100,100
line 100,100,0,100
line 0,100,0,0
ink rgb(0,255,0),0
circle (object position x(1)/10.0),(100-(object position z(1)/10.0)),2
for a=10 to 100
ink rgb(200,0,0),0
if Enemy(a).Cast>0 then ink rgb(0,0,200),0
if object exist(a)=1
if object position x(a)<1000 and object position z(a)<1000 then dot (object position x(a)/10.0),(100-(object position z(a)/10.0))
endif
next a
if playerhealth<1
playerhealth=0
endif
ink rgb(255,255,255),0
text 110,2,"HP: "
line 149,0,149,20
line 149,20,251,20
line 251,0,251,20
line 251,0,149,0
ink rgb(200,0,0),0
box 150,1,150+playerhealth,19
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
endif
ink rgb(255,255,255),0
text 110,22,"EXP: "
line 149,20,149,40
line 149,40,251,40
line 251,20,251,40
line 251,20,149,20
ink rgb(0,255,0),0
box 150,21,150+playerexperience,39
ink rgb(255,255,255),0
text 110,42,"Level: "+str$(playerlevel)

up=0
down=0
right=0
left=0
if upkey()=1 then up=1
if downkey()=1 then down=1
if rightkey()=1 then right=1
if leftkey()=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,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
              playerexperience=playerexperience+rnd(playerlevel*5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*10
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2

for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           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
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

position camera object position x(1),object position y(1)+10,object position z(1)-20
  point camera object position x(1),object position y(1),object position z(1)

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

+ Code Snippet

`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()

RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

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
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5
color object 9,rgb(50,155,50)

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
   make object sphere a+100,3,6,6
   color object a+100,rgb(0,100,250)
   ghost object on a+100
   hide object a+100
next a

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

set global collision on

do

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
line 0,0,100,0
line 100,0,100,100
line 100,100,0,100
line 0,100,0,0
ink rgb(0,255,0),0
circle (object position x(1)/10.0),(100-(object position z(1)/10.0)),2
for a=10 to 100
ink rgb(200,0,0),0
if Enemy(a).Cast>0 then ink rgb(0,0,200),0
if object exist(a)=1
if object position x(a)<1000 and object position z(a)<1000 then dot (object position x(a)/10.0),(100-(object position z(a)/10.0))
endif
next a
if playerhealth<1
playerhealth=0
endif
ink rgb(255,255,255),0
text 110,2,"HP: "
line 149,0,149,20
line 149,20,251,20
line 251,0,251,20
line 251,0,149,0
ink rgb(200,0,0),0
box 150,1,150+playerhealth,19
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
endif
ink rgb(255,255,255),0
text 110,22,"EXP: "
line 149,20,149,40
line 149,40,251,40
line 251,20,251,40
line 251,20,149,20
ink rgb(0,255,0),0
box 150,21,150+playerexperience,39
ink rgb(255,255,255),0
text 110,42,"Level: "+str$(playerlevel)

up=0
down=0
right=0
left=0
if upkey()=1 then up=1
if downkey()=1 then down=1
if rightkey()=1 then right=1
if leftkey()=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,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
              playerexperience=playerexperience+rnd(playerlevel*5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*10
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2

     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           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
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+10,object position z(1)-20
  point camera object position x(1),object position y(1),object position z(1)

   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

After you get used to it (shouldn't take long!) try and gain a level and notice that you do more damage.

If you need any help then let me know.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Feb 2005 06:26

Link

It's nice but the controls are a bit confusing, could you explain them? I think this is much better than the one I had before. Thanks.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 21st Feb 2005 06:29

Link

nice code andrew

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Feb 2005 08:46 Edited at: 21st Feb 2005 08:48

Link

I haven't started to do much with the code yet, only a few visual things, will implement magic soon, an ingame menu for selecing spells, and a small little ai vilage, but here's a screem of what changes have been made:

[edit]Stupid spaces... Here's the link:
http://img.photobucket.com/albums/v318/animeBLOOD/RPG%20snippet/newscreen1.png
[/edit]

[edit*2]That %20 that replaces the space is screwing everything up, sorry.[/edit*2]

Also, mods please move this thread to DBP talk. Thank you.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 21st Feb 2005 19:15

Link

It is just arrow keys and space bar.
Screenshot looks good but is the experience bar working or did you take it before attacking anyone?

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Feb 2005 21:32

Link

I took before attacking anyone. The problem with controls orignally was becuase the plane was colored and without looking at the map it looked I was just rotating and not moving forward.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 22nd Feb 2005 04:50

Link

Oh!
So is it any good?

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 22nd Feb 2005 04:57

Link

Yes it is, but I have a question relating to a map hud. You know how in GTA the map hud is a circle with map inside it and the map scrolls in teh direction that you move and it only shows what is in the area you are in? How can you make a map that functions like that?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 22nd Feb 2005 18:35 Edited at: 22nd Feb 2005 18:38

Link

I wish I new!
I think there may have been an example in Code Snippets.
http://forum.thegamecreators.com/?m=forum_view&t=46166&b=6

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 22nd Feb 2005 22:29

Link

i have a question, and noones answering my thread about it, but yall are kinda talking about it so...How do u do ur UI? How do u make the bars and stuff, and how do u make the maps, and the bars go up and down? just with boxes?

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 23rd Feb 2005 20:52

Link

Read the snippet I posted.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 23rd Feb 2005 21:36

Link

Yeah, and if you don't get Andrew's code go back a few pages and look for some code by Tifu. They are thouroughly explained.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 22:04

Link

Oks, i have a menu sample. It's not complete and it needs the sprites . I just want to know if i really need more

Rem==============================================================================
Rem  Menu Demonstration
Rem  2005 © True Phantasy
Rem ------------------------------------------------------------------------------
Rem  Contest: This demonstration code shows how to create an simple menu.
Rem  Bugs or comments: truephantasy@hotmail.com
Rem ==============================================================================
Rem --------------------------------------------------------------------------
Rem  \\Basic Settings
Rem --------------------------------------------------------------------------
   Set window title "Eternal Memories"
   Set display mode 640, 480, 32
   Maximize window
Rem --------------------------------------------------------------------------
Rem  \\Text Settings
Rem --------------------------------------------------------------------------
   set text font "Verdana"
   set text size 16
   rgb (255,255,255)
Rem --------------------------------------------------------------------------
Rem  \\Main Menu
Rem --------------------------------------------------------------------------
   Function Mainmenu
      Rem --------------------------------------------------------------------------
      Rem  \\Loading media
      Rem --------------------------------------------------------------------------
      Rem /// Sounds
      Load sound "audio/menu1.wav", 1
      Rem /// Music
      Load music "audio/main.mp3", 1
      Rem /// Images
      Load image "sprites/menu/main.bmp", 1
      Load image "sprites/menu/menu.bmp", 2 Rem This is the sprite for the menu
      Rem --------------------------------------------------------------------------
      Rem  \\Play background music
      Rem --------------------------------------------------------------------------
      Play music 1
      Loop music 1
      Rem --------------------------------------------------------------------------
      Rem  \\Put the images on the screen
      Rem --------------------------------------------------------------------------
      Paste image 1,0,0
      Rem --------------------------------------------------------------------------
      Rem  \\Variable declaration
      Rem --------------------------------------------------------------------------
      opc1 as integer
      opc2 as integer
      opc3 as integer
      nothing as integer
      Rem --------------------------------------------------------------------------
      Rem  \\fill the variables
      Rem --------------------------------------------------------------------------
      opc1 = 1
      opc2 = 0
      opc3 = 0
      nothing = 0
      Rem --------------------------------------------------------------------------
      Rem  \\Menu controls
      Rem --------------------------------------------------------------------------
      If opc1 = 1 and upkey() = 1
         opc3 = 1
         opc1 = 0
         play sound 1
      endif
      If opc1 = 1 and downkey() = 1
         opc2 = 1;
         opc1 = 0;
         play sound 1;
      endif
      If opc2 = 1 and upkey() = 1
         opc1 = 1
         opc2 = 0
         play sound 1
      endif
      If opc2 = 1 and downkey() = 1
         opc3 = 1
         opc2 = 0
         play sound 1
      endif
      If opc3 = 1 and upkey() = 1
         opc2 = 1
         opc3 = 0
         play sound 1
      endif
      If opc3 = 1 and downkey() = 1
         opc1 = 1
         opc0 = 0
         play sound 1
      endif
      Rem --------------------------------------------------------------------------
      Rem  \\Enter the selected option
      Rem --------------------------------------------------------------------------
      If spacekey() = 1 and opc = 1
         gosub Newgame
         cls
         play sound 1
      endif
      If spacekey() = 1 and opc = 2
         gosub Continue
         cls
         play sound 1
      endif
      If spacekey() = 1 and opc = 1
         gosub Quit
         play sound 1
      endif
      Rem --------------------------------------------------------------------------
      Rem  \\continue menu
      Rem --------------------------------------------------------------------------
      Continue:
         Print "Code on construction..."
         Wait key
         End
      return
      Rem --------------------------------------------------------------------------
      Rem  \\Quit menu
      Rem --------------------------------------------------------------------------
      Quit:
         If opc1 = 1 and leftkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc1 = 1 and rightkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc2 = 1 and leftkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         If opc2 = 1 and rightkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         Rem --------------------------------------------------------------------------
         Rem  \\Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc1 = 1 then
            end
         If spacekey() = 1 and opc2 = 1 then
            return
         If returnkey() = 1 then
            return
   Endfunction
Rem --------------------------------------------------------------------------
Rem  \\The gamestart
Rem --------------------------------------------------------------------------
   Newgame:
      Print "New game"
      Wait key
      End
   return

+ Code Snippet

Rem==============================================================================
Rem  Menu Demonstration
Rem  2005 © True Phantasy
Rem ------------------------------------------------------------------------------
Rem  Contest: This demonstration code shows how to create an simple menu.
Rem  Bugs or comments: truephantasy@hotmail.com
Rem ==============================================================================
Rem --------------------------------------------------------------------------
Rem  \\Basic Settings
Rem --------------------------------------------------------------------------
   Set window title "Eternal Memories"
   Set display mode 640, 480, 32
   Maximize window
Rem --------------------------------------------------------------------------
Rem  \\Text Settings
Rem --------------------------------------------------------------------------
   set text font "Verdana"
   set text size 16
   rgb (255,255,255)
Rem --------------------------------------------------------------------------
Rem  \\Main Menu
Rem --------------------------------------------------------------------------
   Function Mainmenu
      Rem --------------------------------------------------------------------------
      Rem  \\Loading media
      Rem --------------------------------------------------------------------------
      Rem /// Sounds
      Load sound "audio/menu1.wav", 1
      Rem /// Music
      Load music "audio/main.mp3", 1
      Rem /// Images
      Load image "sprites/menu/main.bmp", 1
      Load image "sprites/menu/menu.bmp", 2 Rem This is the sprite for the menu
      Rem --------------------------------------------------------------------------
      Rem  \\Play background music
      Rem --------------------------------------------------------------------------
      Play music 1
      Loop music 1
      Rem --------------------------------------------------------------------------
      Rem  \\Put the images on the screen
      Rem --------------------------------------------------------------------------
      Paste image 1,0,0
      Rem --------------------------------------------------------------------------
      Rem  \\Variable declaration
      Rem --------------------------------------------------------------------------
      opc1 as integer
      opc2 as integer
      opc3 as integer
      nothing as integer
      Rem --------------------------------------------------------------------------
      Rem  \\fill the variables
      Rem --------------------------------------------------------------------------
      opc1 = 1
      opc2 = 0
      opc3 = 0
      nothing = 0
      Rem --------------------------------------------------------------------------
      Rem  \\Menu controls
      Rem --------------------------------------------------------------------------
      If opc1 = 1 and upkey() = 1
         opc3 = 1
         opc1 = 0
         play sound 1
      endif
      If opc1 = 1 and downkey() = 1
         opc2 = 1;
         opc1 = 0;
         play sound 1;
      endif
      If opc2 = 1 and upkey() = 1
         opc1 = 1
         opc2 = 0
         play sound 1
      endif
      If opc2 = 1 and downkey() = 1
         opc3 = 1
         opc2 = 0
         play sound 1
      endif
      If opc3 = 1 and upkey() = 1
         opc2 = 1
         opc3 = 0
         play sound 1
      endif
      If opc3 = 1 and downkey() = 1
         opc1 = 1
         opc0 = 0
         play sound 1
      endif
      Rem --------------------------------------------------------------------------
      Rem  \\Enter the selected option
      Rem --------------------------------------------------------------------------
      If spacekey() = 1 and opc = 1
         gosub Newgame
         cls
         play sound 1
      endif
      If spacekey() = 1 and opc = 2
         gosub Continue
         cls
         play sound 1
      endif
      If spacekey() = 1 and opc = 1
         gosub Quit
         play sound 1
      endif
      Rem --------------------------------------------------------------------------
      Rem  \\continue menu
      Rem --------------------------------------------------------------------------
      Continue:
         Print "Code on construction..."
         Wait key
         End
      return
      Rem --------------------------------------------------------------------------
      Rem  \\Quit menu
      Rem --------------------------------------------------------------------------
      Quit:
         If opc1 = 1 and leftkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc1 = 1 and rightkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc2 = 1 and leftkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         If opc2 = 1 and rightkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         Rem --------------------------------------------------------------------------
         Rem  \\Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc1 = 1 then
            end
         If spacekey() = 1 and opc2 = 1 then
            return
         If returnkey() = 1 then
            return
   Endfunction
Rem --------------------------------------------------------------------------
Rem  \\The gamestart
Rem --------------------------------------------------------------------------
   Newgame:
      Print "New game"
      Wait key
      End
   return

Back to top

Profile PM Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 22:39

Link

I forgot to ask something...
How can i use a function?

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 23rd Feb 2005 22:40

Link

What do you mean?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 22:51

Link

I van't use my Function, is that clear?

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 23rd Feb 2005 22:53

Link

Well it's an odd funtion you have there, maybe change it to a gosub and then in your main loop do this?

+ Code Snippet

gosub main menu

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 22:54

Link

I simply don't kwon how to use tmy new function, is that clear?

Back to top

Profile PM Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 22:57

Link

I prefert a function because i will create a library of other functions on a single file. Then i just meed to use my new comands ,errr, functions...

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 23rd Feb 2005 22:59 Edited at: 23rd Feb 2005 22:59

Link

Well you usuall you don't have aa fucntion for your main menu you would havea go sub or something like a goto, not a function so I don't see why you havea function in the first place. And functions are something that work without being called or anything (not sure about that so don't quote me on it) so I just think you should stop using a function for your menu in the first place. Sorry I'm not of much help.

Didn't see the pot above me because I was typing while he posted it up.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 23rd Feb 2005 23:03

Link

With a function, i can understand bether the program

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 24th Feb 2005 00:03

Link

Well try making a different function like one that tells the distance between two things or if an obect is colliding, not one for the menu...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 24th Feb 2005 18:38 Edited at: 24th Feb 2005 18:39

Link

Yesterday, i was completing my code when a error messege apears while i was compiling "Failed to 'DoInstruction::FindCorrectInstruction'". The code is:

Rem==============================================================================
Rem  Menu Demonstration
Rem  2005 © True Phantasy
Rem ------------------------------------------------------------------------------
Rem  Contest: This demonstration code shows how to create an simple menu.
Rem  Bugs or comments: truephantasy@hotmail.com
Rem ==============================================================================
Rem --------------------------------------------------------------------------
Rem  \Basic Settings
Rem --------------------------------------------------------------------------
   Set window title "Eternal Memories"
   Set display mode 1024, 780, 32
   Maximize window
Rem --------------------------------------------------------------------------
Rem  \Text Settings
Rem --------------------------------------------------------------------------
   set text font "Verdana"
   set text size 16
Rem --------------------------------------------------------------------------
Rem  \Main Menu
Rem --------------------------------------------------------------------------
      Mainmenu:
      Rem --------------------------------------------------------------------------
      Rem  \Loading media
      Rem --------------------------------------------------------------------------
      Rem /// Images
      Load image "spritesmenumain.bmp", 3
      Load image "spritesmenumenu.png", 2
      Load image "spritesmenumenuok.png", 1
      Rem /// Music
      Load music "audiomusicmain.mp3", 1
      Rem /// Soundsp3", 1
      Load music "audiosoundMenu1.wav", 2
      Rem --------------------------------------------------------------------------
      Rem  \Play background music
      Rem --------------------------------------------------------------------------
      Play music 1
      Loop music 1
      Rem --------------------------------------------------------------------------
      Rem  \Put the images on the screen
      Rem --------------------------------------------------------------------------
      Paste image 3,0,0
      Rem --------------------------------------------------------------------------
      Rem  \Variable declaration
      Rem --------------------------------------------------------------------------
      opc1 as integer
      opc2 as integer
      opc3 as integer
      nothing as integer
      Rem --------------------------------------------------------------------------
      Rem  \fill the variables
      Rem --------------------------------------------------------------------------
      opc1 = 1
      opc2 = 0
      opc3 = 0
      nothing = 0
      Rem --------------------------------------------------------------------------
      Rem  \Menu controls
      Rem --------------------------------------------------------------------------
      Get image 1,0,0,297,20
      Sprite 2,300,600,1
      Rem --------------------------------------------------------------------------
      Rem  \Menu Titlle
      Rem --------------------------------------------------------------------------
      Center text 510, 600, "New Game"
      Center text 510, 650, "Continue"
      Center text 510, 700, "Quit"
       Do
         If opc1 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,700,1
            opc3 = 1
            opc1 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc1 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,650,1
            opc2 = 1;
            opc1 = 0;
            play music 2
            wait 200
            stop music 2
         endif
         If opc2 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,600,1
            opc1 = 1
            opc2 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc2 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,700,1
            opc3 = 1
            opc2 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc3 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,650,1
            opc2 = 1
            opc3 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc3 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,600,1
            opc1 = 1
            opc0 = 0
            play music 2
            wait 200
            stop music 2
         endif
         Rem --------------------------------------------------------------------------
         Rem  \Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc = 1
            gosub Newgame
            cls
            play music 1
         endif
         If spacekey() = 1 and opc = 2
            gosub Continue
            cls
            play music 1
         endif
         If spacekey() = 1 and opc = 1
            gosub Quit
            play music 1
         endif
      Loop
      Return
      Rem --------------------------------------------------------------------------
      Rem  \continue menu
      Rem --------------------------------------------------------------------------
      Continue:
         Print "Code on construction..."
         Wait key
         End
         return
      Rem --------------------------------------------------------------------------
      Rem  \Quit menu
      Rem --------------------------------------------------------------------------
      Quit:
         If opc1 = 1 and leftkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc1 = 1 and rightkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc2 = 1 and leftkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         If opc2 = 1 and rightkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         Rem --------------------------------------------------------------------------
         Rem  \Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc1 = 1 then
            end
         If spacekey() = 1 and opc2 = 1 then
            return
         If returnkey() = 1 then
            return
   Rem --------------------------------------------------------------------------
   Rem  \The gamestart
   Rem --------------------------------------------------------------------------
   Newgame:
      Print "New game"
      Wait key
      End
   return

+ Code Snippet

Rem==============================================================================
Rem  Menu Demonstration
Rem  2005 © True Phantasy
Rem ------------------------------------------------------------------------------
Rem  Contest: This demonstration code shows how to create an simple menu.
Rem  Bugs or comments: truephantasy@hotmail.com
Rem ==============================================================================
Rem --------------------------------------------------------------------------
Rem  \Basic Settings
Rem --------------------------------------------------------------------------
   Set window title "Eternal Memories"
   Set display mode 1024, 780, 32
   Maximize window
Rem --------------------------------------------------------------------------
Rem  \Text Settings
Rem --------------------------------------------------------------------------
   set text font "Verdana"
   set text size 16
Rem --------------------------------------------------------------------------
Rem  \Main Menu
Rem --------------------------------------------------------------------------
      Mainmenu:
      Rem --------------------------------------------------------------------------
      Rem  \Loading media
      Rem --------------------------------------------------------------------------
      Rem /// Images
      Load image "spritesmenumain.bmp", 3
      Load image "spritesmenumenu.png", 2
      Load image "spritesmenumenuok.png", 1
      Rem /// Music
      Load music "audiomusicmain.mp3", 1
      Rem /// Soundsp3", 1
      Load music "audiosoundMenu1.wav", 2
      Rem --------------------------------------------------------------------------
      Rem  \Play background music
      Rem --------------------------------------------------------------------------
      Play music 1
      Loop music 1
      Rem --------------------------------------------------------------------------
      Rem  \Put the images on the screen
      Rem --------------------------------------------------------------------------
      Paste image 3,0,0
      Rem --------------------------------------------------------------------------
      Rem  \Variable declaration
      Rem --------------------------------------------------------------------------
      opc1 as integer
      opc2 as integer
      opc3 as integer
      nothing as integer
      Rem --------------------------------------------------------------------------
      Rem  \fill the variables
      Rem --------------------------------------------------------------------------
      opc1 = 1
      opc2 = 0
      opc3 = 0
      nothing = 0
      Rem --------------------------------------------------------------------------
      Rem  \Menu controls
      Rem --------------------------------------------------------------------------
      Get image 1,0,0,297,20
      Sprite 2,300,600,1
      Rem --------------------------------------------------------------------------
      Rem  \Menu Titlle
      Rem --------------------------------------------------------------------------
      Center text 510, 600, "New Game"
      Center text 510, 650, "Continue"
      Center text 510, 700, "Quit"
       Do
         If opc1 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,700,1
            opc3 = 1
            opc1 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc1 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,650,1
            opc2 = 1;
            opc1 = 0;
            play music 2
            wait 200
            stop music 2
         endif
         If opc2 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,600,1
            opc1 = 1
            opc2 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc2 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,700,1
            opc3 = 1
            opc2 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc3 = 1 and upkey() = 1
            delete sprite 1
            Sprite 1, 300,650,1
            opc2 = 1
            opc3 = 0
            play music 2
            wait 200
            stop music 2
         endif
         If opc3 = 1 and downkey() = 1
            delete sprite 1
            Sprite 1, 300,600,1
            opc1 = 1
            opc0 = 0
            play music 2
            wait 200
            stop music 2
         endif
         Rem --------------------------------------------------------------------------
         Rem  \Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc = 1
            gosub Newgame
            cls
            play music 1
         endif
         If spacekey() = 1 and opc = 2
            gosub Continue
            cls
            play music 1
         endif
         If spacekey() = 1 and opc = 1
            gosub Quit
            play music 1
         endif
      Loop
      Return
      Rem --------------------------------------------------------------------------
      Rem  \continue menu
      Rem --------------------------------------------------------------------------
      Continue:
         Print "Code on construction..."
         Wait key
         End
         return
      Rem --------------------------------------------------------------------------
      Rem  \Quit menu
      Rem --------------------------------------------------------------------------
      Quit:
         If opc1 = 1 and leftkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc1 = 1 and rightkey = 1
            opc2 = 1
            opc1 = 0
            play sound 1
         endif
         If opc2 = 1 and leftkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         If opc2 = 1 and rightkey = 1
            opc1 = 1
            opc2 = 0
            play sound 1
         endif
         Rem --------------------------------------------------------------------------
         Rem  \Enter the selected option
         Rem --------------------------------------------------------------------------
         If spacekey() = 1 and opc1 = 1 then
            end
         If spacekey() = 1 and opc2 = 1 then
            return
         If returnkey() = 1 then
            return
   Rem --------------------------------------------------------------------------
   Rem  \The gamestart
   Rem --------------------------------------------------------------------------
   Newgame:
      Print "New game"
      Wait key
      End
   return

Back to top

Profile PM Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 25th Feb 2005 22:03 Edited at: 25th Feb 2005 22:04

Link

I've solv my problem and i don't know how i did it...

But... my screen is all blue. Sprite does this?

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 25th Feb 2005 22:17

Link

Never happened to me with sprites.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 26th Feb 2005 02:57

Link

Try to run my program...

Back to top

Profile PM Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 26th Feb 2005 04:21

Link

So how goes the RPG?

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 26th Feb 2005 04:21

Link

How can I when I don't have the sprites???

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 26th Feb 2005 23:25

Link

HUH!
Oh! That was aimed at Fox Dark Master!

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 27th Feb 2005 00:41

Link

I didn't even no you had posted because we posted at the same time!

It goes good, I'm going to change the map now that I have figured out a way thanks to some people (too many names to list

)

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 27th Feb 2005 11:56

Link

+ Code Snippet

CityData:
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,1,0,0,4,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0

That data is somethign I want to use to build a city for my platformer. I also plan to construct something similar as a labryinth for my RPG. However when I tried to make objects based off of the 1's positions things didn't work out so well.

I then looked at your platformer code and thought maybe I could take that concept and try to build the city from there but it was to no avail, and my Help with Levels thread isn't checked much. So how would I build the buildings at each data with the number 1? The 4 represents the player's starting position, I'll will be adding 2's and 3's later.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 28th Feb 2005 19:58

Link

make object box 1,25,25,25
Obj=2
for z=17 to 0 step -1
for x=0 to 17
read CityData
if CityData=1
make object box Obj,50,50,50
position object Obj,x*50,0,z*50
Obj=Obj+1
endif
if CityData=4
position object 1,x*50,0,z*50
x#=x*50
y#=0
z#=z*50
endif
next x
next y
sync on
sync rate 0
do
if upkey()=1
x#=newxvalue(x#,ang#,1.0)
z#=nezxvalue(z#,ang#,1.0)
endif
if rightkey()=1
ang#=wrapvalue(ang#+1.0)
endif
if leftkey()=1
ang#=wrapvalue(ang#-1.0)
endif
position object 1,x#,y#,z#
yrotate object 1,ang#
position camera x#,y#+100,z#-100
point camera x#,y#,z#
sync
loop
CityData:
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,1,0,0,4,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0

+ Code Snippet

make object box 1,25,25,25
Obj=2
for z=17 to 0 step -1
for x=0 to 17
read CityData
if CityData=1
make object box Obj,50,50,50
position object Obj,x*50,0,z*50
Obj=Obj+1
endif
if CityData=4
position object 1,x*50,0,z*50
x#=x*50
y#=0
z#=z*50
endif
next x
next y
sync on
sync rate 0
do
if upkey()=1
x#=newxvalue(x#,ang#,1.0)
z#=nezxvalue(z#,ang#,1.0)
endif
if rightkey()=1
ang#=wrapvalue(ang#+1.0)
endif
if leftkey()=1
ang#=wrapvalue(ang#-1.0)
endif
position object 1,x#,y#,z#
yrotate object 1,ang#
position camera x#,y#+100,z#-100
point camera x#,y#,z#
sync
loop
CityData:
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0
data 0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
data 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,1,0,0,4,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0

Should work. I didn't have DB whilst coding.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 28th Feb 2005 20:43 Edited at: 28th Feb 2005 20:55

Link

oks, my RPG...
Heres the first picture of my favourite character:

I've some problems with the code now, i think i've mess every character of code...

I'am almost alone in this! I make the characters, the story, the code, the design and the storyboard! and everything else exept 3D Stuff, 'cause a friend of mine will (i think) make it.

Any question?

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 1st Mar 2005 03:48

Link

Nice job on the pic.

Thanks Andrew I'll check it out.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 1st Mar 2005 04:30

Link

Sorry for not editing but I have another question about the Data, if change my data"array" from 17*17 to 70*30, would I have to change the positioning of the X*50 part so it comes out correctly because it's not now that I changed the data "array" it didn't come out correctly.

Here's the new array:

CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 1st Mar 2005 18:41

Link

The X*50 and Z*50 are just the distance between objects.
If the data is 70x30 then you have to use:

+ Code Snippet

for z=29 to 0 step-1
for x=0 to 69
rem Stuff
next x
next z

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Small RPG snippet?