Ok i have an idea but i need some help

Author

Message

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 13th Jun 2007 05:33

Link

ok well ive been working with dark basic forever,,

.. but i am trying to make a zelda game i have done really well so far but for some reason every time i go around in a full 360 turn i get this "Run time error at line 62 needs to have an angle from 0 to 360" well for some reason that line 62 all it has on it is loop but i cant add an angle to that so if anyone knows how to fix it....oh and ill pm the code if that could help cause ive never come across this b4

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 13th Jun 2007 06:30

Link

DBC is notorious for not giving the exact line number for an error. If you are using the enhanced version of DBC, you could find a dll (use the search) that could help with error trapping.

Are you using wrapvalue on your angles? (If you are not familiar with wrapvalue, it is found in the help files under Basic 3D.)

If you use wrapvalue on all of them, you should not get this error at all, so it won't matter where it is in the program.

If, after trying this, you still get the error please post your code.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 13th Jun 2007 09:54 Edited at: 14th Jun 2007 16:13

Link

well hur hur....that almost worked...lol sry nope

heres code

Sync On : Sync Rate 0
load bitmap "lol2.jpg"
wait 2000
load music "music1.mid",1
play music 1
load bitmap "lol.jpg"
Do
Start:
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Get Ready to Play";
sync
stop music 1
load music "overworld1.mid",2
play music 2
loop music 2
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

movespeed = 75
turnspeed = 87.5
time=timer()
health#=100
HealthWords$="Your Health Is "
Print HealthWords$+str$(health#)

Do
gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)

time=timer()

sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Sync On : Sync Rate 0
load bitmap "lol2.jpg"
wait 2000
load music "music1.mid",1
play music 1
load bitmap "lol.jpg"
Do
Start:
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Get Ready to Play";
sync
stop music 1
load music "overworld1.mid",2
play music 2
loop music 2
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

movespeed = 75
turnspeed = 87.5
time=timer()
health#=100
HealthWords$="Your Health Is "
Print HealthWords$+str$(health#)

Do
gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


time=timer()


sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

[Mod Edit] You just forgot to add the closing /code tag so I added it for you...

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 13th Jun 2007 09:58

Link

im also requesting that no person can here by use this code for their own purposes with having consent first anyone caught with my work will suffer the punishment

Alienmaster

Back to top

Profile PM

indi

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 13th Jun 2007 12:29

Link

no ones going to want to steal that masterpiece mate.

Back to top

Profile PM Email

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 13th Jun 2007 14:59

Link

@ indi
You started my day off with a chuckle.

@ Alien Master

All you have to do is replace

+ Code Snippet

yrotate object 1,a#

with this

+ Code Snippet

yrotate object 1,wrapvalue(a#)

and it will work.

This community is about sharing and helping others.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 13th Jun 2007 22:24

Link

ok well ty sry im just paranoid about this ive been working on this for a wile..finally got down to it oh and thank you so much im glad there is nice ppl out there like you who can help

./...ty

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 13th Jun 2007 22:27

Link

and this is still a work in progress so plz no flaming?

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 14th Jun 2007 01:13

Link

i was joking about the whole thing i said earlier...lol

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 14th Jun 2007 01:21

Link

ok well here it is this is the exe plz tell me how ive done and if someone would be willing to tell me some ideas for upcoming things and im still looking for a texture and model of zelda...if there is a program to make one can someone tell me plz....thx
---------------------------------------------------------------------
Alien Master
[ƒëâr Mê]

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 14th Jun 2007 02:50

Link

alien master:

Two little tips for when using the forums...

When you post DB code, after you've pasted it in, highlight it and then click on the Code button at the top. It puts your code in a little box like this:

+ Code Snippet

See - like this!

Doing this keeps the formatting - like indentation, making it easier to read.

Secondly, use the Edit button rather than making 5 consecutive posts.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 14th Jun 2007 03:29

Link

ok sry i idol u

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 14th Jun 2007 07:06

Link

@ alien master
As to your program, I would expect that there are definitely going to be some copyright issues with the jpeg and the music.

The program itself is very basic and only has rudimentary code in it (trying to be honest here and not mean). For example, do you own modeling software and do you know how to use it? If not, are you prepared to pay someone to do it for you? What about a world for your Link character to go through? They can be made (there is a tutorial for this) or you can once again buy software/pay someone.

You said

Quote: " ive been working on this for a wile"

. That is not a lot of code for working on it for a while. Maybe you should get a little more programming knowledge and expertise before you venture into the Zelda arena. There is a sticky at the top of this board for TDK's Tutorials for Newcomers. Learn them and grow as a programmer and then you will be better able to move forward. Here is a link:
http://forum.thegamecreators.com/?m=forum_view&t=99497&b=10

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 14th Jun 2007 23:01

Link

well what i meant is that i started it a wile back and finaaly started working on it....i started it bout year ago nbever had time and that is what i meant by that and i know this is just like 3 hours work....cause i havent been working on it every day non stop...maybe one day i will have that time but right now this is all i have gotten done..and yes i know about the copyright once again i guess i will change name a lil bit and consider it a zeldaish type game

but still i really just started this...

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 14th Jun 2007 23:31

Link

and..to tell you the truth im not planning on having this massivly distributed because im just making a game for this company they saif they would give me a job but i just need to show them my best work...and they will consider it

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 15th Jun 2007 01:19

Link

Okay, but if you want to show them YOUR work, then it needs to be YOUR work. Copyrighted material is someone else's work. It would be wrong to present a game that uses material like this and indicate that it is yours.

Sorry, I'm not willing to help you to continue on the path you are on.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 15th Jun 2007 05:09 Edited at: 18th Jun 2007 20:46

Link

what im trying to say is......all im doing is trying to get a game made.....do you understand the pics on there right now are just there for looks later i have to change it.... thats what i was planning..i already have my designs for menus and stuff working on those now...the zelda ones on there now i just there for beta so it has some kind of look instead of a blank screen every time...ive already changed it...but....i still need to find over world music..think i know where i can get someone to make me some....but hang on...lbfn this is not going to be redistributed this is just a game im making...and once again the zelda content on it right now..it is just on there for kicks so everytime i start up dont need to drown my eyes in black...they will be removed... but i kind of got a map going but im upside down and if you could tell me how to make it right side up that would be very kind

Dim FKey(10,1): Dim Info(2): Dim Tiles(500,500): Dim ColData(100): Dim ZoneData(100)
Set Display Mode 800,600,16
Sync On
Hide Mouse
Backdrop On
Color Backdrop 0
Set Camera Range 10.0,100000.0

make object box 1,4,3,5
movespeed = 55
turnspeed = 57.5
time=timer()
health#=100
HealthWords$="Your Health Is "
Print HealthWords$+str$(health#)

Read MatWidth#
Read MatHeight#
Read TilesX
Read TilesZ
TilesizeX#=MatWidth#/TilesX
TilesizeZ#=MatHeight#/TilesZ
Info(0)=TilesizeX#: Info(1)=TilesizeZ#
Read TextureSize#
Read Foggy
Read FRed
Read FGreen
Read FBlue
Read FDist
If Foggy=1
  Fog Color RGB(FRed,FGreen,FBlue)
  Fog Distance FDist
  Fog On
Else
  Fog Off
Endif
Read Norm
Read UsedTex
Read UsersImage#
Make Matrix 1,MatWidth#,MatHeight#,TilesX,TilesZ

Bmpname$="_KKD.bmp"
Load Bitmap Bmpname$,1
Get Image 1,0,0,Int(UsersImage#*TextureSize#),Int(UsersImage#*TextureSize#)
Delete Bitmap 1

Prepare Matrix Texture 1,1,Int(UsersImage#),Int(UsersImage#)
For N1=0 To TilesZ-1: Rem Read in texture values for each matrix tile
  For N2=0 To TilesX-1
    Read MatTex
    Set Matrix Tile 1,N2,N1,MatTex
    Tiles(N2,N1)=MatTex
  Next N2
Next N1
For N1=0 To TilesZ: Rem Read in height values for each matrix tile
  For N2=0 To TilesX
    Read MatHt#:    Rem Height
    Set Matrix Height 1,N2,N1,MatHt#
  Next N2
Next N1
If Norm=1
  Gosub Normalise
Endif
Update Matrix 1: Rem Update the matrix with all the changes

Info(1)=UsedTex
For N=1 To UsedTex
  Read ColData(N):  Rem <<< Collision Value (0 or 1) of textures used
  Read ZoneData(N): Rem <<< Battle Area (0 - 9) of textures used
Next N

For N=1 To 10
  Read FKey(N,0): Rem X Pos
  Read FKey(N,1): Rem Z Pos
Next N
CamX#=FKey(1,0)*TilesizeX#+(TilesizeX#/2)
CamZ#=FKey(1,1)*TilesizeZ#-(TilesizeZ#/2)
GH#=Get Ground Height(1,CamX#,CamZ#)+100.0
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)

Do
  gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,wrapvalue(a#)

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)

time=timer()

sync
Loop
End:

Normalise:

For z=1 To TilesZ
    For x=1 To TilesX
      h8#=Get Matrix Height(1,x,z-1)
      h4#=Get Matrix Height(1,x-1,z)
      h#=Get Matrix Height(1,x,z)
      h2#=Get Matrix Height(1,x,z)
      x1#=(x-1)*25.0: y1#=h#
      x2#=(x+0)*25.0: y2#=h4#
      dx#=x2#-x1#: dy#=y2#-y1#
      ax#=Atanfull(dx#,dy#)
      ax#=Wrapvalue(90-ax#)
      z1#=(z-1)*25.0: y1#=h2#
      z2#=(z+0)*25.0: y2#=h8#
      dz#=z2#-z1#: dy#=y2#-y1#
      az#=Atanfull(dz#,dy#)
      az#=Wrapvalue(90-az#)
      nx#=Sin(ax#): ny#=Cos(ax#): nz#=Sin(az#)
      Set Matrix Normal 1,x,z,nx#,ny#,nz#
    Next x
  Next z
Return

Data 100000.0, 100000.0, 25, 25, 128.0, 0, 255, 255, 255, 20000, 1, 1, 2.0

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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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

Data 1451.0, 212.0, 2789.0, 2793.0, 511.0, 798.0, 3385.0, 424.0, 212.0, 1778.0, 1084.0, 229.0, 759.0
Data 1176.0, 1074.0, 1852.0, 2116.0, 700.0, 743.0, 2271.0, 3278.0, 2514.0, 1618.0, 168.0, 1704.0, 1769.0

Data 898.0, 1225.0, 3022.0, 1371.0, 3365.0, 59.0, 410.0, 1628.0, 683.0, 72.0, 2431.0, 3402.0, 668.0
Data 2308.0, 1601.0, 3332.0, 2967.0, 3086.0, 2441.0, 1340.0, 3424.0, 743.0, 2847.0, 2707.0, 1612.0, 411.0

Data 701.0, 939.0, 3274.0, 309.0, 718.0, 1422.0, 597.0, 1201.0, 2941.0, 2154.0, 1640.0, 679.0, 926.0
Data 1863.0, 713.0, 1102.0, 1929.0, 2685.0, 2842.0, 1291.0, 3215.0, 1863.0, 1918.0, 808.0, 763.0, 1719.0

Data 2268.0, 2830.0, 3167.0, 2762.0, 2907.0, 2954.0, 965.0, 2603.0, 2668.0, 1416.0, 2751.0, 1104.0, 2295.0
Data 1731.0, 3382.0, 1688.0, 2394.0, 1716.0, 1912.0, 2998.0, 452.0, 451.0, 3216.0, 758.0, 1162.0, 907.0

Data 2649.0, 2176.0, 761.0, 3108.0, 1931.0, 1254.0, 2731.0, 1242.0, 2855.0, 2545.0, 2477.0, 1135.0, 176.0
Data 551.0, 1085.0, 963.0, 2359.0, 3185.0, 2696.0, 1239.0, 1973.0, 2180.0, 2836.0, 3190.0, 580.0, 1626.0

Data 839.0, 1623.0, 1777.0, 637.0, 76.0, 1616.0, 154.0, 154.0, 2561.0, 241.0, 610.0, 1353.0, 2224.0
Data 2890.0, 607.0, 1990.0, 1537.0, 1370.0, 3184.0, 903.0, 2703.0, 836.0, 1749.0, 804.0, 2490.0, 851.0

Data 1654.0, 498.0, 888.0, 2050.0, 2105.0, 1021.0, 1493.0, 219.0, 2781.0, 2811.0, 1313.0, 2369.0, 1456.0
Data 235.0, 329.0, 1082.0, 840.0, 2150.0, 1052.0, 65.0, 902.0, 1464.0, 1235.0, 613.0, 2367.0, 79.0
Data 247.0, 794.0, 174.0, 2830.0, 740.0, 3145.0, 3192.0, 2531.0, 2364.0, 911.0, 3404.0, 1151.0, 406.0
Data 155.0, 1418.0, 1500.0, 1070.0, 917.0, 898.0, 1677.0, 740.0, 1605.0, 1677.0, 3123.0, 546.0, 710.0

Data 270.0, 2096.0, 3273.0, 2879.0, 409.0, 2270.0, 3067.0, 3135.0, 802.0, 782.0, 1746.0, 3104.0, 187.0
Data 1036.0, 369.0, 2746.0, 2182.0, 2109.0, 2680.0, 1186.0, 2563.0, 2128.0, 1255.0, 2236.0, 2042.0, 430.0

Data 2286.0, 1104.0, 1.0, 1222.0, 2750.0, 2522.0, 715.0, 762.0, 2419.0, 538.0, 2816.0, 403.0, 1250.0
Data 221.0, 720.0, 1598.0, 3184.0, 596.0, 1228.0, 283.0, 1201.0, 2156.0, 56.0, 58.0, 3051.0, 2957.0

Data 2052.0, 2291.0, 1984.0, 1365.0, 498.0, 2559.0, 268.0, 1581.0, 2689.0, 862.0, 2306.0, 745.0, 34.0
Data 402.0, 552.0, 1762.0, 2931.0, 2043.0, 891.0, 67.0, 2490.0, 1732.0, 2975.0, 62.0, 3053.0, 1705.0

Data 1576.0, 3147.0, 993.0, 1900.0, 239.0, 2511.0, 2906.0, 487.0, 2217.0, 2441.0, 2655.0, 212.0, 1781.0
Data 1491.0, 1025.0, 2059.0, 2054.0, 2534.0, 3369.0, 957.0, 2917.0, 3384.0, 2533.0, 3181.0, 2551.0, 2622.0

Data 2596.0, 3070.0, 534.0, 2091.0, 1789.0, 2340.0, 1412.0, 2601.0, 703.0, 2179.0, 1328.0, 214.0, 357.0
Data 2988.0, 1936.0, 2788.0, 87.0, 959.0, 741.0, 124.0, 1282.0, 2611.0, 1806.0, 113.0, 2301.0, 312.0

Data 1578.0, 257.0, 2787.0, 1334.0, 951.0, 2892.0, 1434.0, 2006.0, 1134.0, 3111.0, 1995.0, 128.0, 1344.0
Data 1813.0, 2856.0, 2121.0, 3344.0, 1007.0, 1815.0, 2624.0, 899.0, 398.0, 450.0, 630.0, 1299.0, 3214.0

Data 1313.0, 604.0, 3017.0, 1667.0, 113.0, 1784.0, 395.0, 543.0, 1745.0, 864.0, 1824.0, 3420.0, 189.0
Data 1928.0, 2806.0, 2870.0, 1065.0, 784.0, 1158.0, 259.0, 2868.0, 3079.0, 125.0, 2237.0, 2218.0, 2174.0
Data 827.0, 492.0, 1581.0, 3302.0, 2540.0, 782.0, 3355.0, 333.0, 993.0, 143.0, 3386.0, 2889.0, 348.0
Data 2942.0, 3401.0, 2349.0, 1939.0, 1804.0, 2084.0, 2297.0, 699.0, 388.0, 1395.0, 1882.0, 104.0, 3081.0

Data 1625.0, 3097.0, 1353.0, 2700.0, 1506.0, 19.0, 91.0, 1474.0, 231.0, 2567.0, 674.0, 1156.0, 915.0
Data 135.0, 487.0, 2579.0, 758.0, 18.0, 479.0, 1045.0, 3332.0, 1666.0, 649.0, 1000.0, 2705.0, 3316.0

Data 197.0, 3003.0, 1644.0, 648.0, 2197.0, 2357.0, 2676.0, 1597.0, 2606.0, 2336.0, 2750.0, 1696.0, 2770.0
Data 2422.0, 808.0, 882.0, 1830.0, 1637.0, 1239.0, 2376.0, 2287.0, 1078.0, 1948.0, 1237.0, 1943.0, 1448.0
Data 242.0, 1207.0, 1766.0, 3069.0, 2802.0, 956.0, 1930.0, 1719.0, 1731.0, 3027.0, 1558.0, 2079.0, 1617.0
Data 1559.0, 1571.0, 2534.0, 1853.0, 2095.0, 236.0, 1211.0, 2895.0, 2078.0, 830.0, 2846.0, 664.0, 29.0

Data 1642.0, 3402.0, 1856.0, 699.0, 836.0, 26.0, 2527.0, 3343.0, 1697.0, 2953.0, 2661.0, 46.0, 3031.0
Data 3033.0, 3147.0, 881.0, 2379.0, 1915.0, 1084.0, 474.0, 3358.0, 2084.0, 2845.0, 2007.0, 2361.0, 2633.0

Data 1556.0, 1686.0, 859.0, 3115.0, 526.0, 2267.0, 1079.0, 2378.0, 3040.0, 2977.0, 1924.0, 2225.0, 3293.0
Data 1672.0, 996.0, 1566.0, 2735.0, 239.0, 2436.0, 2106.0, 212.0, 404.0, 1141.0, 1582.0, 3245.0, 3136.0

Data 530.0, 1536.0, 1332.0, 948.0, 2563.0, 1542.0, 2946.0, 1609.0, 1911.0, 1606.0, 2171.0, 2004.0, 2891.0
Data 1491.0, 2921.0, 602.0, 3349.0, 3082.0, 340.0, 2249.0, 1551.0, 181.0, 2398.0, 2874.0, 3068.0, 2723.0

Data 986.0, 1520.0, 339.0, 3034.0, 3263.0, 1672.0, 3366.0, 403.0, 740.0, 2776.0, 281.0, 332.0, 1525.0
Data 751.0, 789.0, 1116.0, 1030.0, 1487.0, 3222.0, 1158.0, 18.0, 3085.0, 64.0, 336.0, 3336.0, 1736.0

Data 2533.0, 436.0, 1808.0, 369.0, 2478.0, 2637.0, 748.0, 1935.0, 2245.0, 1714.0, 834.0, 816.0, 1792.0
Data 1518.0, 1378.0, 2261.0, 30.0, 1752.0, 2844.0, 956.0, 1098.0, 1840.0, 2837.0, 438.0, 2983.0, 2154.0

Data 2065.0, 2897.0, 2560.0, 44.0, 740.0, 2695.0, 1012.0, 586.0, 1606.0, 2431.0, 333.0, 1052.0, 88.0
Data 1513.0, 2666.0, 1859.0, 2996.0, 2936.0, 2831.0, 1991.0, 2632.0, 3201.0, 1734.0, 3304.0, 2630.0
Data 759.0
Data 1998.0, 1680.0, 1166.0, 2299.0, 2237.0, 2184.0, 1675.0, 2624.0, 2534.0, 668.0, 1616.0, 1731.0, 76.0
Data 3296.0, 1038.0, 167.0, 3099.0, 1748.0, 856.0, 2898.0, 2177.0, 3378.0, 102.0, 2100.0, 1890.0, 1946.0

Data 0, 0

Data -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1

+ Code Snippet

Dim FKey(10,1): Dim Info(2): Dim Tiles(500,500): Dim ColData(100): Dim ZoneData(100)
Set Display Mode 800,600,16
Sync On
Hide Mouse
Backdrop On
Color Backdrop 0
Set Camera Range 10.0,100000.0

make object box 1,4,3,5
movespeed = 55
turnspeed = 57.5
time=timer()
health#=100
HealthWords$="Your Health Is "
Print HealthWords$+str$(health#)

Read MatWidth#
Read MatHeight#
Read TilesX
Read TilesZ
TilesizeX#=MatWidth#/TilesX
TilesizeZ#=MatHeight#/TilesZ
Info(0)=TilesizeX#: Info(1)=TilesizeZ#
Read TextureSize#
Read Foggy
Read FRed
Read FGreen
Read FBlue
Read FDist
If Foggy=1
  Fog Color RGB(FRed,FGreen,FBlue)
  Fog Distance FDist
  Fog On
Else
  Fog Off
Endif
Read Norm
Read UsedTex
Read UsersImage#
Make Matrix 1,MatWidth#,MatHeight#,TilesX,TilesZ

Bmpname$="_KKD.bmp"
Load Bitmap Bmpname$,1
Get Image 1,0,0,Int(UsersImage#*TextureSize#),Int(UsersImage#*TextureSize#)
Delete Bitmap 1

Prepare Matrix Texture 1,1,Int(UsersImage#),Int(UsersImage#)
For N1=0 To TilesZ-1: Rem Read in texture values for each matrix tile
  For N2=0 To TilesX-1
    Read MatTex
    Set Matrix Tile 1,N2,N1,MatTex
    Tiles(N2,N1)=MatTex
  Next N2
Next N1
For N1=0 To TilesZ: Rem Read in height values for each matrix tile
  For N2=0 To TilesX
    Read MatHt#:    Rem Height
    Set Matrix Height 1,N2,N1,MatHt#
  Next N2
Next N1
If Norm=1
  Gosub Normalise
Endif
Update Matrix 1: Rem Update the matrix with all the changes

Info(1)=UsedTex
For N=1 To UsedTex
  Read ColData(N):  Rem <<< Collision Value (0 or 1) of textures used
  Read ZoneData(N): Rem <<< Battle Area (0 - 9) of textures used
Next N

For N=1 To 10
  Read FKey(N,0): Rem X Pos
  Read FKey(N,1): Rem Z Pos
Next N
CamX#=FKey(1,0)*TilesizeX#+(TilesizeX#/2)
CamZ#=FKey(1,1)*TilesizeZ#-(TilesizeZ#/2)
GH#=Get Ground Height(1,CamX#,CamZ#)+100.0
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


Do
  gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,wrapvalue(a#)

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


time=timer()


sync
Loop
End: 

Normalise:

  For z=1 To TilesZ
    For x=1 To TilesX
      h8#=Get Matrix Height(1,x,z-1)
      h4#=Get Matrix Height(1,x-1,z)
      h#=Get Matrix Height(1,x,z)
      h2#=Get Matrix Height(1,x,z)
      x1#=(x-1)*25.0: y1#=h#
      x2#=(x+0)*25.0: y2#=h4#
      dx#=x2#-x1#: dy#=y2#-y1#
      ax#=Atanfull(dx#,dy#)
      ax#=Wrapvalue(90-ax#)
      z1#=(z-1)*25.0: y1#=h2#
      z2#=(z+0)*25.0: y2#=h8#
      dz#=z2#-z1#: dy#=y2#-y1#
      az#=Atanfull(dz#,dy#)
      az#=Wrapvalue(90-az#)
      nx#=Sin(ax#): ny#=Cos(ax#): nz#=Sin(az#)
      Set Matrix Normal 1,x,z,nx#,ny#,nz#
    Next x
  Next z
Return




Data 100000.0, 100000.0, 25, 25, 128.0, 0, 255, 255, 255, 20000, 1, 1, 2.0


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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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


Data 1451.0, 212.0, 2789.0, 2793.0, 511.0, 798.0, 3385.0, 424.0, 212.0, 1778.0, 1084.0, 229.0, 759.0
Data 1176.0, 1074.0, 1852.0, 2116.0, 700.0, 743.0, 2271.0, 3278.0, 2514.0, 1618.0, 168.0, 1704.0, 1769.0

Data 898.0, 1225.0, 3022.0, 1371.0, 3365.0, 59.0, 410.0, 1628.0, 683.0, 72.0, 2431.0, 3402.0, 668.0
Data 2308.0, 1601.0, 3332.0, 2967.0, 3086.0, 2441.0, 1340.0, 3424.0, 743.0, 2847.0, 2707.0, 1612.0, 411.0

Data 701.0, 939.0, 3274.0, 309.0, 718.0, 1422.0, 597.0, 1201.0, 2941.0, 2154.0, 1640.0, 679.0, 926.0
Data 1863.0, 713.0, 1102.0, 1929.0, 2685.0, 2842.0, 1291.0, 3215.0, 1863.0, 1918.0, 808.0, 763.0, 1719.0

Data 2268.0, 2830.0, 3167.0, 2762.0, 2907.0, 2954.0, 965.0, 2603.0, 2668.0, 1416.0, 2751.0, 1104.0, 2295.0
Data 1731.0, 3382.0, 1688.0, 2394.0, 1716.0, 1912.0, 2998.0, 452.0, 451.0, 3216.0, 758.0, 1162.0, 907.0

Data 2649.0, 2176.0, 761.0, 3108.0, 1931.0, 1254.0, 2731.0, 1242.0, 2855.0, 2545.0, 2477.0, 1135.0, 176.0
Data 551.0, 1085.0, 963.0, 2359.0, 3185.0, 2696.0, 1239.0, 1973.0, 2180.0, 2836.0, 3190.0, 580.0, 1626.0

Data 839.0, 1623.0, 1777.0, 637.0, 76.0, 1616.0, 154.0, 154.0, 2561.0, 241.0, 610.0, 1353.0, 2224.0
Data 2890.0, 607.0, 1990.0, 1537.0, 1370.0, 3184.0, 903.0, 2703.0, 836.0, 1749.0, 804.0, 2490.0, 851.0

Data 1654.0, 498.0, 888.0, 2050.0, 2105.0, 1021.0, 1493.0, 219.0, 2781.0, 2811.0, 1313.0, 2369.0, 1456.0
Data 235.0, 329.0, 1082.0, 840.0, 2150.0, 1052.0, 65.0, 902.0, 1464.0, 1235.0, 613.0, 2367.0, 79.0
Data 247.0, 794.0, 174.0, 2830.0, 740.0, 3145.0, 3192.0, 2531.0, 2364.0, 911.0, 3404.0, 1151.0, 406.0
Data 155.0, 1418.0, 1500.0, 1070.0, 917.0, 898.0, 1677.0, 740.0, 1605.0, 1677.0, 3123.0, 546.0, 710.0

Data 270.0, 2096.0, 3273.0, 2879.0, 409.0, 2270.0, 3067.0, 3135.0, 802.0, 782.0, 1746.0, 3104.0, 187.0
Data 1036.0, 369.0, 2746.0, 2182.0, 2109.0, 2680.0, 1186.0, 2563.0, 2128.0, 1255.0, 2236.0, 2042.0, 430.0

Data 2286.0, 1104.0, 1.0, 1222.0, 2750.0, 2522.0, 715.0, 762.0, 2419.0, 538.0, 2816.0, 403.0, 1250.0
Data 221.0, 720.0, 1598.0, 3184.0, 596.0, 1228.0, 283.0, 1201.0, 2156.0, 56.0, 58.0, 3051.0, 2957.0

Data 2052.0, 2291.0, 1984.0, 1365.0, 498.0, 2559.0, 268.0, 1581.0, 2689.0, 862.0, 2306.0, 745.0, 34.0
Data 402.0, 552.0, 1762.0, 2931.0, 2043.0, 891.0, 67.0, 2490.0, 1732.0, 2975.0, 62.0, 3053.0, 1705.0

Data 1576.0, 3147.0, 993.0, 1900.0, 239.0, 2511.0, 2906.0, 487.0, 2217.0, 2441.0, 2655.0, 212.0, 1781.0
Data 1491.0, 1025.0, 2059.0, 2054.0, 2534.0, 3369.0, 957.0, 2917.0, 3384.0, 2533.0, 3181.0, 2551.0, 2622.0

Data 2596.0, 3070.0, 534.0, 2091.0, 1789.0, 2340.0, 1412.0, 2601.0, 703.0, 2179.0, 1328.0, 214.0, 357.0
Data 2988.0, 1936.0, 2788.0, 87.0, 959.0, 741.0, 124.0, 1282.0, 2611.0, 1806.0, 113.0, 2301.0, 312.0

Data 1578.0, 257.0, 2787.0, 1334.0, 951.0, 2892.0, 1434.0, 2006.0, 1134.0, 3111.0, 1995.0, 128.0, 1344.0
Data 1813.0, 2856.0, 2121.0, 3344.0, 1007.0, 1815.0, 2624.0, 899.0, 398.0, 450.0, 630.0, 1299.0, 3214.0

Data 1313.0, 604.0, 3017.0, 1667.0, 113.0, 1784.0, 395.0, 543.0, 1745.0, 864.0, 1824.0, 3420.0, 189.0
Data 1928.0, 2806.0, 2870.0, 1065.0, 784.0, 1158.0, 259.0, 2868.0, 3079.0, 125.0, 2237.0, 2218.0, 2174.0
Data 827.0, 492.0, 1581.0, 3302.0, 2540.0, 782.0, 3355.0, 333.0, 993.0, 143.0, 3386.0, 2889.0, 348.0
Data 2942.0, 3401.0, 2349.0, 1939.0, 1804.0, 2084.0, 2297.0, 699.0, 388.0, 1395.0, 1882.0, 104.0, 3081.0

Data 1625.0, 3097.0, 1353.0, 2700.0, 1506.0, 19.0, 91.0, 1474.0, 231.0, 2567.0, 674.0, 1156.0, 915.0
Data 135.0, 487.0, 2579.0, 758.0, 18.0, 479.0, 1045.0, 3332.0, 1666.0, 649.0, 1000.0, 2705.0, 3316.0

Data 197.0, 3003.0, 1644.0, 648.0, 2197.0, 2357.0, 2676.0, 1597.0, 2606.0, 2336.0, 2750.0, 1696.0, 2770.0
Data 2422.0, 808.0, 882.0, 1830.0, 1637.0, 1239.0, 2376.0, 2287.0, 1078.0, 1948.0, 1237.0, 1943.0, 1448.0
Data 242.0, 1207.0, 1766.0, 3069.0, 2802.0, 956.0, 1930.0, 1719.0, 1731.0, 3027.0, 1558.0, 2079.0, 1617.0
Data 1559.0, 1571.0, 2534.0, 1853.0, 2095.0, 236.0, 1211.0, 2895.0, 2078.0, 830.0, 2846.0, 664.0, 29.0

Data 1642.0, 3402.0, 1856.0, 699.0, 836.0, 26.0, 2527.0, 3343.0, 1697.0, 2953.0, 2661.0, 46.0, 3031.0
Data 3033.0, 3147.0, 881.0, 2379.0, 1915.0, 1084.0, 474.0, 3358.0, 2084.0, 2845.0, 2007.0, 2361.0, 2633.0

Data 1556.0, 1686.0, 859.0, 3115.0, 526.0, 2267.0, 1079.0, 2378.0, 3040.0, 2977.0, 1924.0, 2225.0, 3293.0
Data 1672.0, 996.0, 1566.0, 2735.0, 239.0, 2436.0, 2106.0, 212.0, 404.0, 1141.0, 1582.0, 3245.0, 3136.0

Data 530.0, 1536.0, 1332.0, 948.0, 2563.0, 1542.0, 2946.0, 1609.0, 1911.0, 1606.0, 2171.0, 2004.0, 2891.0
Data 1491.0, 2921.0, 602.0, 3349.0, 3082.0, 340.0, 2249.0, 1551.0, 181.0, 2398.0, 2874.0, 3068.0, 2723.0

Data 986.0, 1520.0, 339.0, 3034.0, 3263.0, 1672.0, 3366.0, 403.0, 740.0, 2776.0, 281.0, 332.0, 1525.0
Data 751.0, 789.0, 1116.0, 1030.0, 1487.0, 3222.0, 1158.0, 18.0, 3085.0, 64.0, 336.0, 3336.0, 1736.0

Data 2533.0, 436.0, 1808.0, 369.0, 2478.0, 2637.0, 748.0, 1935.0, 2245.0, 1714.0, 834.0, 816.0, 1792.0
Data 1518.0, 1378.0, 2261.0, 30.0, 1752.0, 2844.0, 956.0, 1098.0, 1840.0, 2837.0, 438.0, 2983.0, 2154.0

Data 2065.0, 2897.0, 2560.0, 44.0, 740.0, 2695.0, 1012.0, 586.0, 1606.0, 2431.0, 333.0, 1052.0, 88.0
Data 1513.0, 2666.0, 1859.0, 2996.0, 2936.0, 2831.0, 1991.0, 2632.0, 3201.0, 1734.0, 3304.0, 2630.0
Data 759.0
Data 1998.0, 1680.0, 1166.0, 2299.0, 2237.0, 2184.0, 1675.0, 2624.0, 2534.0, 668.0, 1616.0, 1731.0, 76.0
Data 3296.0, 1038.0, 167.0, 3099.0, 1748.0, 856.0, 2898.0, 2177.0, 3378.0, 102.0, 2100.0, 1890.0, 1946.0



Data 0, 0


Data -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1

------------------------------------
Edited by myself.....lol i got the code button to work now i feel so smart...i think ill give myself a complimentary cookie!!

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 15th Jun 2007 05:11

Link

but im sry if thats what u thought at first i already contacted nintendo and they pretty much handed my @$$ to me...so im sry if i confused you

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Jun 2007 03:57

Link

alien master:

Did you not read my post?????

Use the Code button!!!

TDK_Man>

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 16th Jun 2007 06:12

Link

hey i did...it wont work....i put it...realized it didnt work tried to edit it but it said unknown system error had to abort something like that...it wont edit and the code thing wont work

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 16th Jun 2007 06:14

Link

this is what i get

Quote: "Unknown System Error. Sorry but I have to abort now. Please try again later."

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 20th Jun 2007 02:12

Link

ok wtf is my thread dead now??

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Jun 2007 02:43

Link

Quote: "Edited by myself.....lol i got the code button to work now i feel so smart...i think ill give myself a complimentary cookie!!"

Yay!! Easy eh - and much easier to read...

Quote: "is my thread dead now"

No - LBFN answered your question. The error is because you are trying to set the angle of something to greater than 359 or less than 0 degrees.

That's what the WrapValue() function is for.

If you want to know the exact line your error is on, locate in your program the place where it says 'Sync On' and change it temporarily to 'Sync Off' then run your program again.

It might take a lot longer to run - and do some strange things - but when it eventually errors it should be more accurate with the error line number it gives you.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 20th Jun 2007 08:20

Link

ok well right now i just need a sword..so im working on that....thanx ne way u gys are great

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 21st Jun 2007 09:17

Link

yea ok here is new version....screw zelda...copyright....

heres what ive updated it to...i still need help with collision boxes....animating the character....like walking....crouch..attacking...stuff like that if anyone knows how i could do that plz tell me

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 21st Jun 2007 13:31

Link

@ alien master
It's nice to see that the copyright issue has gone away.

Whatever you have available for download does not come through. I assume it is a screen shot or an image. If so, you should have it in .jpg or .png format (you can technically use .bmp, but the files are larger and it is generally discouraged).

There is a search button at the bottom of each thread. You should type in what you are looking for (collision, animation, sword, etc.) and review what has been discussed previously. The expectation is that you will do the research to find out what it is that you need to do and if you need help along the way to ask. People do not want to do the leg-work for you, but are willing to help if you put effort into it yourself.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 21st Jun 2007 21:33 Edited at: 21st Jun 2007 21:47

Link

hmm well ive looked up animation in the search bar before but i never found how to animate them in like milkshape stuff like that..oh and it was the whole game it was like 15mbs including media...would that generate an issue?
--------------------------------------------------------------------
Edit Ok wtf 15mbs must be a problem...oh well ill just upload my rapidshare link

http://rapidshare.com/files/38562675/lol.rar.html

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 22nd Jun 2007 05:57

Link

Think about it, would you like to load and review 15MB of data to help someone else with a problem? You're not going to get many takers on that one and you're right the system won't handle that much.

As to animations, you need to load an .avi file in order to play animations. It is possible to append and save animations within DBC. There are some examples in the DBC example files. You could also get a modeling program that supports .avi animations.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 22nd Jun 2007 06:07

Link

see my guy is a free dwarf character off of psionics website

the only time i can use an animation with that model is in Blitz 3d

I have no idea how to use that..and besides ive been working on this for dark basic

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 22nd Jun 2007 07:09

Link

You will need to learn how to animate your models. Though I don't use it, I believe you can use Blender to animate your models.
This is the link:
http://www.blender.org/download/get-blender/

Latch wrote a DBC converter you might want to check out. Again, I have not tried it myself, but it might be of some use to you.
Here is the link:
http://forum.thegamecreators.com/?m=forum_view&t=85734&b=10

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 22nd Jun 2007 22:27 Edited at: 22nd Jun 2007 22:37

Link

i have blender but that dbc converter doesnt work :/
See omg ive been trying and trying at this....animation processes are not my favorite.....

ok but so much for that is there any tutorial on how to learn to make collision boxes..because i know its usually like

make collision box -1.25,-1.25,-1.25,-1.25,1,25,1.25,0

but what do all those numbers mean?

Alienmaster

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 23rd Jun 2007 02:39 Edited at: 24th Jun 2007 16:06

Link

Read this http://forum.thegamecreators.com/?m=forum_view&t=96045&b=10

I searched and found it easily.

{EDIT} Sorry! I forgot that Sparky's dll is for DBP.

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 23rd Jun 2007 06:31 Edited at: 23rd Jun 2007 06:31

Link

Why did my team request get locked?

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd Jun 2007 19:15

Link

Because team requests are not allowed on these forums. Sorry.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 23rd Jun 2007 21:30

Link

ok is there a forum where i could post one?

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 23rd Jun 2007 23:09

Link

omg lol i was just backing up my game onto a disk and while i was uploading i noticed this....

Quote: "
then dowloads and installs this? lol
"

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 24th Jun 2007 20:05

Link

You've already posted in Team Requests on my forum, so you already know about there!

As for your last post, I don't understand the point you are trying to make...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 24th Jun 2007 20:12

Link

it was just random i was uploading my game to a disk so i had a back up and when it was uploading it said

Quote: "
then go (downloads) and (installs) the (softwares)
"

im just saying there was grammatical errors in a Microsoft product...it doesn't suprise me

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 24th Jun 2007 21:00

Link

ok hmmm...
i just got dark basic pro
and im still running on a Windows ME would that be a problem
cause i have 212 ram or something like that
horrible video card....cant even play WoW
im really looking forward to this and if i cant use it on a windows me

were getting windows xp for free so ill use that?

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 25th Jun 2007 21:32 Edited at: 25th Jun 2007 21:40

Link

Hey Lbfn i read those tuts on the collision
i get this really bad error .. look at this

i freaked out

see here is my code

Sync On : Sync Rate 0
load music "legends.mp3",1
play music 1
load music "storm.mp3",3
load image "sky.bmp",99
disable escapekey
Set camera range 1,3000

X#=0
Z#=0
Y#=0

do
Beginning:
if button(300,150,"Login")=1 then goto login
if button(290,180,"Register")=1 then goto register
sync
cls
loop
cls

register:
cls
input "What do you want your Characters name to be?" ;newname$
input "What do you want your Password to be?" ;newpass$
cls
goto start

do
if escapekey()=1 then goto Beginning
sync
loop

login:
input "Username  "  ;username$
input "Password  "  ;userpass$
cls
goto start
cls

Do
Start:
if Button(20,35,"New Game")=1 then Goto New_Game
if Button(20,70,"Next Level")=1 then Goto Next_Level
Button(20,105,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop

print "Hello again  "   ;name$
Do
Ingamemenu:
if Button(20,35,"Main Menu")=1 then Goto Start
if Button(20,75,"Restart Game")=1 then Goto secondmenu
if Button(20,105,"Quit game")=1 then end
sync
loop

do
secondmenu:
delete matrix 1
delete object 22
delete object 32
delete object 11 
delete image 1
stop music 2
stop music 3
play music 2
cls
goto New_Game
sync
loop

Next_Level:
cls
Repeat
stop music 1
play music 3
loop music 3
Text 240,240,"Press Spacebar";
sync
Until scancode()>0
sync

New_Game:
cls
Repeat
Text 240,240,"Press Spacebar";
sync
stop music 1
load music "shimmer.mp3",2
play music 2
loop music 2
Until scancode()>0

load object "house.x",22
scale object 22,876,876,876
position object 22,350,0,350

load object "gondola.x",32
scale object 32,1000,1000,1000
position object 32,500,0,500
make static collision box -100,0,-100,100,200,100

load object "dwarf1.x",11
load image "dwarf.jpg",21
texture object 11,21
position object 11,0,0,500

load object "barrel.x",43
scale object 43,1000,1000,1000
position object 43,420,0,400

load object "flat.x",33
scale object 33,1500,1500,1500
position object 33,700,0,700

load object "wgate.x",35
scale object 35,1000,1000,1000
position object 35,100,0,500

load object "lamp.x",26
scale object 26,1000,500,1000
position object 26,140,0,530

load object "hut.x",64
scale object 64,1500,1500,1500
position object 64,500,0,700

load object "wwall.x",61
scale object 61,1000,1000,1000
position object 61,110,0,419

load object "wwall.x",60
scale object 60,1000,1000,1000
position object 60,110,0,583

load object "wwall.x",67
scale object 67,1000,1000,1000
position object 67,110,0,663

load object "mansion.x",21
scale object 21,2000,2000,2000
position object 21,900,0,800

make matrix 1,9000,9000,60,60
position matrix 1,-100,0,-100
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

print "Level 45"

Set object collision to polygons 11

movespeed = 99
turnspeed = 99.5
time=timer()

Do
gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)
	cAY# = WrapValue(cAY#+MousemoveX()*0.2)
	cAX# = WrapValue(cAX#+MousemoveY()*0.2)
	caZ# = Camera angle Z()

If keystate(17)=1
Move Object 11,MSframe#
endif
If keystate(31)=1
endif
If keystate(30)=1
Dec a#,TSframe#
endif
If keystate(32)=1
Inc a#,TSframe#
endif
yrotate object 11,wrapvalue(a#)
If escapekey()=1
cls
goto Ingamemenu
endif

XPos#=Object Position X(11)
  YPos#=Object Position Y(11)
  ZPos#=Object Position Z(11)
If Object Collision(11,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
  Endif

posx#=cos(270-a#) * 30 + object position x(11)
posz#=sin(270-a#) * 30 + object position z(11)
Position Camera posx#,object position y(11)+6,posz#
Point Camera object position x(11),object position y(11)+6,object position z(11)

time=timer()

sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Sync On : Sync Rate 0
load music "legends.mp3",1
play music 1
load music "storm.mp3",3
load image "sky.bmp",99
disable escapekey
Set camera range 1,3000

X#=0
Z#=0
Y#=0

do
Beginning:
if button(300,150,"Login")=1 then goto login
if button(290,180,"Register")=1 then goto register
sync
cls
loop
cls

register:
cls
input "What do you want your Characters name to be?" ;newname$
input "What do you want your Password to be?" ;newpass$
cls
goto start



do
if escapekey()=1 then goto Beginning
sync
loop

login:
input "Username  "  ;username$
input "Password  "  ;userpass$
cls
goto start
cls



Do
Start:
if Button(20,35,"New Game")=1 then Goto New_Game
if Button(20,70,"Next Level")=1 then Goto Next_Level
Button(20,105,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop

print "Hello again  "   ;name$
Do
Ingamemenu:
if Button(20,35,"Main Menu")=1 then Goto Start
if Button(20,75,"Restart Game")=1 then Goto secondmenu
if Button(20,105,"Quit game")=1 then end
sync
loop

do
secondmenu:
delete matrix 1
delete object 22
delete object 32
delete object 11 
delete image 1
stop music 2
stop music 3
play music 2
cls
goto New_Game
sync
loop


Next_Level:
cls
Repeat
stop music 1
play music 3
loop music 3
Text 240,240,"Press Spacebar";
sync
Until scancode()>0
sync


New_Game:
cls
Repeat
Text 240,240,"Press Spacebar";
sync
stop music 1
load music "shimmer.mp3",2
play music 2
loop music 2
Until scancode()>0


load object "house.x",22
scale object 22,876,876,876
position object 22,350,0,350




load object "gondola.x",32
scale object 32,1000,1000,1000
position object 32,500,0,500
make static collision box -100,0,-100,100,200,100

load object "dwarf1.x",11
load image "dwarf.jpg",21
texture object 11,21
position object 11,0,0,500



load object "barrel.x",43
scale object 43,1000,1000,1000
position object 43,420,0,400

load object "flat.x",33
scale object 33,1500,1500,1500
position object 33,700,0,700

load object "wgate.x",35
scale object 35,1000,1000,1000
position object 35,100,0,500

load object "lamp.x",26
scale object 26,1000,500,1000
position object 26,140,0,530

load object "hut.x",64
scale object 64,1500,1500,1500
position object 64,500,0,700

load object "wwall.x",61
scale object 61,1000,1000,1000
position object 61,110,0,419


load object "wwall.x",60
scale object 60,1000,1000,1000
position object 60,110,0,583

load object "wwall.x",67
scale object 67,1000,1000,1000
position object 67,110,0,663




load object "mansion.x",21
scale object 21,2000,2000,2000
position object 21,900,0,800

make matrix 1,9000,9000,60,60
position matrix 1,-100,0,-100
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

print "Level 45"

Set object collision to polygons 11


movespeed = 99
turnspeed = 99.5
time=timer()





Do
gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)
	cAY# = WrapValue(cAY#+MousemoveX()*0.2)
	cAX# = WrapValue(cAX#+MousemoveY()*0.2)
	caZ# = Camera angle Z()
	



If keystate(17)=1
Move Object 11,MSframe#
endif
If keystate(31)=1
endif
If keystate(30)=1
Dec a#,TSframe#
endif
If keystate(32)=1
Inc a#,TSframe#
endif
yrotate object 11,wrapvalue(a#)
If escapekey()=1
cls
goto Ingamemenu
endif

  XPos#=Object Position X(11)
  YPos#=Object Position Y(11)
  ZPos#=Object Position Z(11)
If Object Collision(11,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
  Endif

posx#=cos(270-a#) * 30 + object position x(11)
posz#=sin(270-a#) * 30 + object position z(11)
Position Camera posx#,object position y(11)+6,posz#
Point Camera object position x(11),object position y(11)+6,object position z(11)


time=timer()



sync
Loop
end




function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

this is the part i added to it

+ Code Snippet

XPos#=Object Position X(11)
  YPos#=Object Position Y(11)
  ZPos#=Object Position Z(11)
If Object Collision(11,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
  Endif

and the error was

Quote: "RUNTIME ERROR AT LINE 212 SEVERE EXCEPTION"

i was like WTF

anyone know why?

Alienmaster

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 25th Jun 2007 22:09 Edited at: 25th Jun 2007 22:12

Link

You should expect strange errors when you use Goto...

But regardless of that...

You used:

Get Object Collision X()

The help says:

Get Object Collision X(Object Number)

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Lucifer

20

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 25th Jun 2007 23:48 Edited at: 25th Jun 2007 23:48

Link

why dont you use sparky's dll for the collision alien master? it's much much much faster and doesnt slow down your framerate so badly..

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 26th Jun 2007 01:13

Link

Isn't Sparky's dll for DBP?

LB

Back to top

Profile PM Email

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 26th Jun 2007 01:39 Edited at: 26th Jun 2007 01:47

Link

yes im using db my old computer cant handle dbp

and when i use the
GET OBJECT COLLISION X(11)
it says [quote]GET OBJECT COLLISION X(11) expects no parameters

Alienmaster

Back to top

Profile PM

Lucifer

20

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 26th Jun 2007 02:57

Link

Quote: "Isn't Sparky's dll for DBP?"

there is a version of sparky's collision dll for dbc, and it works so much better than the object collision() commands..

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 26th Jun 2007 03:29

Link

and where might you get that at?

Alienmaster

Back to top

Profile PM

Lucifer

20

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 26th Jun 2007 03:34

Link

Here is the thread

http://forum.thegamecreators.com/?m=forum_view&t=31051&b=5

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 26th Jun 2007 03:58

Link

i dont have the enhanced mode..i only have DBC....i cant use memblocks

Alienmaster

Back to top

Profile PM

alien master

19

Years of Service

User Offline

Joined: 12th Jun 2007

Location:

Posted: 26th Jun 2007 07:02 Edited at: 26th Jun 2007 07:02

Link

test

Alienmaster

Back to top

Profile PM

Lucifer

20

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 26th Jun 2007 17:25

Link

Quote: "i dont have the enhanced mode..i only have DBC....i cant use memblocks"

if you dont have the enhancement pack you cant only not use memblock's you cant use dll's wich is a major setback..

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Ok i have an idea but i need some help