|
Post by Azan on Oct 5, 2005 14:57:17 GMT -5
Whoa dont post so much, there is a thing called modify post . Anyways we have enough programmers, do you have any art/music skills? But lets see what ye got, show me some examples of your work. (whether it be code or art etc., just show me your game making skillz) And either way we are somewhat on hold at the time being as we are waiting for a new language to come out. "hey how do I make a pic for my icon herer? any 1 know.. since u all have one I would gues that u gies know?" Not sure what you mean, if by icon you mean avatar then is what you need to do is host your own pic.
|
|
|
Post by Umbrafire on Oct 5, 2005 16:11:56 GMT -5
do you go to Sibley?
i believe I know a james b...
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 9:05:43 GMT -5
ok well I would like to join the team as I said before im perty good at blitzplus, blitz3d, and blitzbasic... only prolem is that well I cant get on all the time... oh um does any 1 have a code for a dragon u can fly I need it for my game the drag has to be able to be put in.... the game ok..
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 9:07:44 GMT -5
do you go to Sibley? i believe I know a james b... whats his last name... and is he realy good at making games.................do u know where he lives is his email bartoc123@yahoo.com.... or something like that my email is thebigceo2000@yahoo.com
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 9:09:00 GMT -5
any way u know him and did u just logg
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 9:09:43 GMT -5
no I dont go to sibley um...prple....
|
|
|
Post by Azan on Oct 6, 2005 15:10:44 GMT -5
Ok first let me say that there is this thing in your own posts, its a button called modify, use that that way you dont clutter up threads. Secondly can we see some of your work? code etc. and how long have you been programming?
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 17:25:22 GMT -5
Graphics3D 800,600,32,1 SetBuffer BackBuffer() enable=True vert=False
Global camera=CreateCamera () ;environment cube cube=CreateCube () FitMesh cube,-250,0,-250,500,500,500 FlipMesh cube tex=LoadTexture( "D:\Program Files\Blitz3D\samples\mak\dragon\chorme-2.bmp" ) ScaleTexture tex,1.0/3,1.0/3 EntityTexture cube,tex EntityAlpha cube,.4 EntityFX cube,1
;floor mirror m=CreateMirror()
;simple light light=CreateLight() TurnEntity light,45,45,0 dragon=LoadMD2 ("D:\Program Files\Blitz3D\samples\mak\dragon\model\dragon.md2 ") tex=LoadTexture("D:\Program Files\Blitz3D\samples\mak\dragon\model\dragon.bmp") PositionEntity dragon,0,25,0
EntityTexture dragon,tex AnimateMD2 dragon,1,0.05,90,130
;camera camera=CreateCamera()
cam_xr#=30:cam_yr#=0:cam_zr#=0:cam_z#=-100 ;--------------- fire-------------------- pivFire=CreatePivot() Type fire Field x# Field y# Field z# Field alpha# Field entity Field scale# End Type sprite=LoadSprite("D:\Igra Dracula\sprite\fire.bmp",2,pivFire) PositionEntity sprite,3,20,43 RotateEntity sprite,0,90,0 HideEntity sprite con#=0.5:conx#=0.3:no=5 Md=4 ;---------------------------------------- time=MilliSecs()
While Not KeyDown(1) ;-------------- mod of fire------
If Md=1 Then a1=117:b1=122 con#=1:conx#=0.8:no=5 PositionEntity sprite,3,20,43 RotateEntity sprite,0,90,0
End If If Md=2 Then a1=125 :b1=127 con#=0.4:conx#=0.4:no=1 PositionEntity sprite,-18,10,23
End If If Md=3 Then a1=100 :b1=102 con#=0.4:conx#=0.3:no=3 PositionEntity sprite,-3,3,33
End If If Md=4 Then a1=90 :b1=93 con#=1:conx#=1:no=7 PositionEntity sprite,10,15,43 RotateEntity sprite,0,75,0 End If ;--------------- fire -------------------- u=u+1 If u>360 Then u=1 Repeat elapsed=MilliSecs()-time Until elapsed>0 time=time+elapsed dt#=elapsed*60.0/1000.0 anim=MD2AnimTime(dragon) If anim>129 Then Md=4 End If If anim>93 And anim<100 Then Md=3 End If If anim>100 And anim<122 Then Md=1 End If
If anim>122 And anim<127 Then Md=2 End If
If anim>a1 And anim<b1 For i=1 To no f.fire=New fire f\alpha#=1;Rnd(0,1)
f\scale#=con#*Rnd(8,12)
f\entity=CopyEntity (sprite,piv1) SpriteViewMode f\entity,1 RotateSprite f\entity,Rnd(360) num=mum+1 Next End If
For f.fire=Each fire f\alpha#=f\alpha#-0.02 ;f\scale#=f\scale#-Rnd(0.02,0.1) If f\alpha>0 EntityAlpha f\entity,f\alpha If f\alpha#<0.4Then EntityColor f\entity,80,200,150 f\x#=con#*conx#*3 f\y#=con#*Rnd(2.4,6.4) f\z#=con#*Rnd(-4.8,4.8) ElseIf f\alpha#<0.8 And f\alpha#>0.4Then f\scale#=con#*Rnd(10,14) f\x#=con#*conx#*4;Rnd(1.9,2) f\y#=con#*Rnd(-6,6) f\z#=con#*Rnd(-6,6) Else f\scale#=con#*4 f\x#=con#*conx#*Rnd(2,4) f\y#=con#*Rnd(-2,2) f\z#=con#*Rnd(-2,2) EndIf ScaleSprite f\entity,f\scale#,f\scale# MoveEntity f\entity,f\x,f\y,f\z Else FreeEntity f\entity Delete f num=num-1 EndIf Next ;-------------------------------------------- If KeyDown(17)WireFrame enable If KeyDown(203) cam_yr=cam_yr-2 Else If KeyDown(205) cam_yr=cam_yr+2 EndIf If KeyDown(200) cam_xr=cam_xr+2 If cam_xr>90 cam_xr=90 Else If KeyDown(208) cam_xr=cam_xr-2 If cam_xr<5 cam_xr=5 EndIf If KeyDown(26) cam_zr=cam_zr+2 Else If KeyDown(27) cam_zr=cam_zr-2 EndIf If KeyDown(30) cam_z=cam_z+1:If cam_z>-10 cam_z=-10 Else If KeyDown(44) cam_z=cam_z-1:If cam_z<-180 cam_z=-180 EndIf PositionEntity camera,0,0,0 RotateEntity camera,cam_xr,cam_yr,cam_zr MoveEntity camera,0,0,cam_z If KeyDown(16) surf=GetSurface (dragon,1) If KeyDown(78) Then x=x+1 If x>CountVertices (surf) Then x=CountVertices(surf) vert=True End If If vert=True Then VertexX(surf,x) VertexY(surf,x) VertexZ(surf,x) VertexColor surf,a,255,0,0,1 EndIf
UpdateWorld RenderWorld Flip
Wend End ; not sure that this is for 3d or basic but I just had it saved from one I made like a month ago, I used the base of another item so I just changed and dadded stuff..........
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 17:26:13 GMT -5
ive been programing about 3 months now...im going to learn c++ which is realy hard as ive heard
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 17:33:04 GMT -5
Graphics 640,480
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Global maze = LoadImage("bigmaze.bmp") Global guy = LoadImage("guy.bmp") Global drag = LoadImage("dragon.bmp")
Global gx = 163 Global gy = 52 Global gx2 = 265 Global gy2 = 221 Global coll = 0 Global lastkey = 0 Global upkey = 0 Global downkey = 0 Global rightkey = 0 Global leftkey = 0 Global dragcanmove = 1 Global lastmove = 0 Global movedir = 4 Global movedir2 = 4 Global wallhit = 2 Global canmove = 1 Global wait = CreateTimer(30)
startgame()
Function startgame() While Not KeyHit(1) WaitTimer(wait) Text 0,0, "Upkey is:" + upkey Text 0,10, "Downkey is:" + downkey Text 0,20, "Rightkey is:" + Rightkey Text 0,30, "Leftkey is:" + Leftkey Text 0,40, "GX is:" + gx Text 0,50, "GY is:" + gy Text 0,60, "Dmove is:" + dragcanmove Text 0,70, "Canmove is:" + canmove Text 0,80, "lastmove is:" + lastmove Text 0,90, "Movedir is:" + movedir MaskImage maze,255,255,255 DrawImage maze,120,50 DrawImage guy,gx,gy DrawImage drag,gx2,gy2 If runkey = 1 Then runkeys() EndIf If dragcanmove = 1 Then dragmove() EndIf If Not ImagesCollide (guy,gx,gy,0,maze,120,50,0) Then runkey = 1 Else runkey = 0 checkkey() EndIf dragcanmove = 1 Flip Cls Wend End Function
Function runkeys() If KeyDown(200) And downkey = 0 And leftkey = 0 And rightkey = 0 Then ; Upkey upkey = 1 lastkey = 1 gy = gy - 1 EndIf If Not KeyDown(200) Then upkey = 0 EndIf If KeyDown(208) And upkey = 0 And leftkey = 0 And rightkey = 0 Then ; Downkey downkey = 1 lastkey = 2 gy = gy + 1 EndIf If Not KeyDown(208) Then downkey = 0 EndIf If KeyDown(205) And upkey = 0 And downkey = 0 And leftkey = 0 Then ; Rightkey rightkey = 1 lastkey = 3 gx = gx + 1 EndIf If Not KeyDown(205) Then rightkey = 0 EndIf If KeyDown(203) And upkey = 0 And downkey = 0 And rightkey = 0 Then ; Leftkey leftkey = 1 lastkey = 4 gx = gx - 1 EndIf If Not KeyDown(203) Then leftkey = 0 EndIf End Function
Function checkkey() Select lastkey Case 1 If downkey = 0 And leftkey = 0 And rightkey = 0 Then gy = gy + 1 EndIf Case 2 If upkey = 0 And leftkey = 0 And rightkey = 0 Then gy = gy - 1 EndIf Case 3 If upkey = 0 And downkey = 0 And leftkey = 0 Then gx = gx - 1 EndIf Case 4 If upkey = 0 And downkey = 0 And rightkey = 0 Then gx = gx + 1 EndIf End Select End Function
Function checkcollis() Select movedir Case 2 gy2 = gy2 + 1 Case 4 gx2 = gx2 + 1 Case 5 gx2 = gx2 - 1 Case 7 gy2 = gy2 - 1 End Select End Function
Function follow() If gx2 > gx And gy2 > gy Then movedir = 1 EndIf If gx2 = gx And gy2 > gy Then movedir = 2 EndIf If gx2 < gx And gy2 > gy Then movedir = 3 EndIf If gx2 > gx And gy2 = gy Then movedir = 4 EndIf If gx2 < gx And gy2 = gy Then movedir = 5 EndIf If gx2 > gx And gy2 < gy Then movedir = 6 EndIf If gx2 = gx And gy2 < gy Then movedir = 7 EndIf If gx2 < gx And gy2 < gy Then movedir = 8 EndIf End Function
Function dragmove() follow() If movedir = 1 Then dir = Rnd(1,6) If dir = 1 Or dir = 2 Then gx2 = gx2 - 1 Else If dir = 3 Or dir = 4 Then gy2 = gy2 - 1 Else If dir = 5 Then gx2 = gx2 - 2 Else If dir = 6 Then gy2 = gy2 - 2 EndIf EndIf EndIf EndIf EndIf If movedir = 2 And gy2 > gy + 4 Then dir = Rnd(1,3) If dir = 1 Then gy2 = gy2 - 1 Else If dir = 2 Then gy2 = gy2 - 1 Else If dir = 3 Then gy2 = gy2 EndIf EndIf EndIf EndIf If movedir = 3 Then dir = Rnd(1,2) If dir = 1 Then gx2 = gx2 + 1 Else If dir = 2 Then gy2 = gy2 - 1 EndIf EndIf EndIf If movedir = 4 And gx2 > gx + 4 Then dir = Rnd(1,3) If dir = 1 Then gx2 = gx2 - 1 Else If dir = 2 Then gx2 = gx2 - 1 Else If dir = 3 Then gx2 = gx2 EndIf EndIf EndIf EndIf If movedir = 5 And gx2 < gx - 4 Then dir = Rnd(1,3) If dir = 1 Then gx2 = gx2 + 1 Else If dir = 2 Then gx2 = gx2 + 1 Else If dir = 3 Then gx2 = gx2 EndIf EndIf EndIf EndIf If movedir = 6 Then dir = Rnd(1,2) If dir = 1 Then gx2 = gx2 - 1 Else If dir = 2 Then gy2 = gy2 + 1 EndIf EndIf EndIf If movedir = 7 And gy2 < gy - 4 Then dir = Rnd(1,3) If dir = 1 Then gy2 = gy2 + 1 Else If dir = 2 Then gy2 = gy2 + 1 Else If dir = 3 Then gy2 = gy2 EndIf EndIf EndIf EndIf If movedir = 8 Then dir = Rnd(1,2) If dir = 1 Then gx2 = gx2 + 1 Else If dir = 2 Then gy2 = gy2 + 1 EndIf EndIf EndIf End Function ;heres another 1
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 6, 2005 17:33:44 GMT -5
not much in drawing I can do great swords... though I cant scan...
|
|
|
Post by Azan on Oct 6, 2005 18:26:13 GMT -5
not sure that this is for 3d or basic but I just had it saved from one I made like a month ago, I used the base of another item so I just changed and dadded stuff.......... Wait im confused, you dont know if this is 3D or 2D? and yet you say you know B3D and B2D??, any person who has programmed in 3d would know that that is 3d code. And what do you mean by "I used the base of another item so I just changed and dadded stuff......." is this all your source code? or did you take it from somewhere else and modify it? ive been programing about 3 months now...im going to learn c++ which is realy hard as ive heard Only 3 months? well if this code is yours you are off to a good start except your 2D program is horribly innefficient, and C++ is actualy quite easy, but I wouldnt reccommend it for a person fairly new to programming. And be sure to check out the blitz boards here, im going to be putting together a sprite pack for 2d games sometime. And please USE the modify feature, double posting over and over is looked down upon.
|
|
Cloud
Silver Member
Sgt. Johnson: Well, I don't care if it's God's own personal anti-son-of-a-bitch machine, or a giant
Posts: 125
|
Post by Cloud on Oct 13, 2005 18:13:56 GMT -5
not sure that this is for 3d or basic but I just had it saved from one I made like a month ago, I used the base of another item so I just changed and dadded stuff.......... Wait im confused, you dont know if this is 3D or 2D? and yet you say you know B3D and B2D??, any person who has programmed in 3d would know that that is 3d code. And what do you mean by "I used the base of another item so I just changed and dadded stuff......." is this all your source code? or did you take it from somewhere else and modify it? ive been programing about 3 months now...im going to learn c++ which is realy hard as ive heard Only 3 months? well if this code is yours you are off to a good start except your 2D program is horribly innefficient, and C++ is actualy quite easy, but I wouldnt reccommend it for a person fairly new to programming. And be sure to check out the blitz boards here, im going to be putting together a sprite pack for 2d games sometime. And please USE the modify feature, double posting over and over is looked down upon.
|
|
|
Post by Qecbum on Feb 15, 2006 16:09:00 GMT -5
if you need art and music im here im trying to get some better art softwere though
|
|
|
Post by Decieved by the Truth on Mar 12, 2006 9:09:50 GMT -5
[glow=red,2,300]something tells me that voidruler doesnt like modifying posts... and yea, sign me up for beta tester![/glow]
|
|