Need MORE help please.

Blitz3D Forums/Blitz3D Beginners Area/Need MORE help please.

Nike	(Posted 2009) [#1]

Hi, besides working on my big game, I am working on a smaller game i call pack-orb. You have a little yellow orb that you move around, avoiding the red orb. So far i have it drawn on the game, your movement, and game over (if they touch). You pick which one you want to be, then you use direct play's startnetgame to hook-up. I can make net players and stuff, but it doesn't show the movement of the other player. Here is all of my code: (Please don't steal it and use it for your game.)

.home
Graphics 600,500,16,2
AutoMidHandle True 
SeedRnd(MilliSecs()) 


Const UPKEY=200 
Const DOWNKEY=208 
Const LEFTKEY=203 
Const RIGHTKEY=205 

Type player 
Field x,y 
End Type 

Type enemy 
Field x,y 
End Type 

Global yt$,name$
Global you=LoadImage("you.bmp")
Global them=LoadImage("them.bmp")
Global enemy.enemy=New enemy
typein()
Global player.player=New player 
typeini() 
;Main Loop 
x = 50
y = 50

.heree
yt$=Input("Do you want to hunt(A), or be hunted(D)? (A or D): ")
If yt$="A"
Else
If yt$="D"
Else
Print "try again..."
Goto heree
EndIf
EndIf
name$=Input("Name: ")
Print "Entering waiting room..."
Delay 2000
connect()

Repeat
Cls

If KeyHit(1)
End 
EndIf 

leveldraw()
Update()

If yt$="A"
playermovemen()
leveltran() 
EndIf

If yt$="D"
playermovement()
leveltrans() 
EndIf 

If ImagesCollide (you,player\x,player\y,0,them,enemy\x,enemy\y,0)
Print "GAME OVER"
Delay 3000 
Goto home
EndIf 

Flip 
Forever

Function leveldraw()
DrawImage them,enemy\x,enemy\y
DrawImage you,player\x,player\y
End Function 


Function playermovement() 
If KeyDown(UPKEY) 
player\y=player\y-3 
ElseIf KeyDown(DOWNKEY) 
player\y=player\y+3 
ElseIf KeyDown(RIGHTKEY) 
player\x=player\x+3 
ElseIf KeyDown(LEFTKEY) 
player\x=player\x-3 
EndIf 
End Function 

Function playermovemen() 
If KeyDown(UPKEY) 
enemy\y=enemy\y-3 
ElseIf KeyDown(DOWNKEY) 
enemy\y=enemy\y+3 
ElseIf KeyDown(RIGHTKEY) 
enemy\x=enemy\x+3 
ElseIf KeyDown(LEFTKEY) 
enemy\x=enemy\x-3 
EndIf 
End Function 

Function typeini() 
player\x=500 
player\y=100 
End Function 

Function typein() 
enemy\x=200 
enemy\y=100
End Function 

Function leveltrans()
If player\x=>1018 
player\x=player\x-1017 
ElseIf player\x=<6 
player\x=player\x+1018 
ElseIf player\y=>701 
player\y=player\y-700 
ElseIf player\y=<5 
player\y=player\y+695 
EndIf 
End Function 

Function leveltran()
If enemy\x=>1018 
enemy\x=enemy\x-1017 
      ElseIf enemy\x=<6 
           enemy\x=enemy\x+1018 
      ElseIf enemy\y=>701 
enemy\y=enemy\y-700 
ElseIf enemy\y=<5 
enemy\y=enemy\y+695 
EndIf 
End Function 

Function connect()
     newGame = StartNetGame()
          playerID=CreateNetPlayer(name$)
          Print "Your ID is: " + playerID + ""
          Print "Your name is: " + name$ + ""
     Delay 4000
End Function 

Function Update()

End Function

(sorry for not doing the tab's. I dont know the order really :( if anyone can teach me, ill be really happy.)
For the you.bmp and the them.bmp, just make a image and save it like that.
If anyone can help, i will be gratefull.

Stevie G

(Posted 2009) [#2]

None is going to steal your code. Suggest you check out the code archives for a network game example.

Ross C

(Posted 2009) [#3]

Tabbing is for when a branching or looping occurs generally, or where code is part of something. But you can use it for anything that you want to stand out.

I use it for:

Loops (For/Next, Repeat/Until, While/Wend:

For loop = 1 to 10
   Do something inside loop
Next

Type declarations:

Type tree
   Field Branch
End Type

If Else statements.

If blah = 0 then
   Do something
ElseIf blah = 1 then
   Do something
Else
   Do something
End If

Functions:

Function Blah()
   code for function
End Function

They all help you see your code more clearly, and speed up spotting errors.

Oh, and please name you topics better. "Need MORE help please", although polite, isn't exactly meaningful, and you'll find people tend to ignore topics that don't have a description.

Tobo	(Posted 2009) [#4]

Agree 100% with the above.

Nike, imagine the very answer you were after was hidden in a thread titled "Help me, pleeease!". A search on thread titles would never return the thread you needed most!

T