Character Select - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|593\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Character Select
Page : 1 2 Next 3 Prev
Sat, 22 May 2010, 07:57
ShadowIce	Hi all. Once again, I have a small problem. See, What I need is for the bottom sphere in this character select to change from blue to yellow. Problem is the spheres are still white, and not changing colors as each sphere passes through the bottom. watch this video. this is EXACTLY the way I need it. https://www.youtube.com/watch?v=tY6KVgAE9BY Thanks for the help! ~Shadow
Sat, 22 May 2010, 08:15
HoboBen	Been a long while since I used Blitz, but skimming through the help files, your options seem to be CreateBrush & BrushColor or perhaps more simply if your spheres don't have a texture you can just use vertex colors: mySurface = GetSurface(mesh, 1) n = CountVertices(mySurface) For i = 1 to n VertexColor mySurface, i, red#, green#, blue# Next --v IIRC, the red, green, blue values should be in the range 0 - 1.0 -=-=- blog \| work \| code \| more code
Sat, 22 May 2010, 08:41
ShadowIce	i forgot to add my code. Graphics3D 800,600,0,2 AmbientLight 255,255,255 Global SelectedArray = 1 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere() Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=LoadAnimMesh("dwarf1.b3d") ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray + 1 If SelectedArray = 5 EntityColor myspheres(SelectedArray),0,255,0 EndIf angle#=angle#-AngleChange# EndIf ;If KeyHit(44) ;SelectedArray = SelectedArray - 1 ;angle#=angle#-AngleChange# ;PlaySound charselect ;EndIf ; CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,CurrentAngle# MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Flip Wend --v
Sat, 22 May 2010, 12:20
Mog	There is such a feature as the EDIT button, also your code is missing the media so it makes it hard to test it. The problem is, you're setting your colors to white when SelectedArray is 5(?). You need to switch the colors every time you hit a key, or just have a catch-all loop to run through each entity and color the appropriate sphere you have selected. Give me a bit and i'll post some fixed code- you also seem to have an 'off by one' flub here. EDIT It's hackish, but try this - Also, put your media back in, I had to change a few things: Graphics3D 800,600,0,2 AmbientLight 255,255,255 Global SelectedArray = 1 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere() Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 ;Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# EndIf ;If KeyHit(44) ;SelectedArray = SelectedArray - 1 ;angle#=angle#-AngleChange# ;PlaySound charselect ;EndIf ; CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 EntityColor myspheres(i),255,255,0 If i=selectedarray EntityColor myspheres(i),0,0,255 EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Flip Wend --v -=-=- I am Busy Mongoose - My Website Dev PC: AMD 8150-FX, 16gb Ram, GeForce GTX 680 2gb Current Project: Pyroxene
Sat, 22 May 2010, 16:36
ShadowIce	solved! thanks mog!
Sat, 22 May 2010, 17:23
ShadowIce	I have 1 more small problem.. I need the character to load above the selected sphere, and always look straight ahead as if it were looking at you. Graphics3D 800,600,0,2 AmbientLight 255,255,255 Global dwarf1=LoadAnimMesh("dwarf1.b3d") RotateEntity dwarf1,0,-180,0 ScaleEntity dwarf1,.04,.04,.04 Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic HideEntity dwarf1 Global SelectedArray = 6 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,-4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 ;Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 EntityParent dwarf1,myspheres(i) PositionEntity dwarf1,EntityX(myspheres(SelectedArray)),EntityY(myspheres(SelectedArray))+4,EntityZ(myspheres(SelectedArray)) RotateEntity dwarf1,EntityPitch(myspheres(SelectedArray)),EntityYaw(myspheres(SelectedArray))+CurrentAngle#,EntityRoll(myspheres(SelectedArray)) ShowEntity dwarf1 EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(cam) Flip Wend --v model: https://www.psionic3d.co.uk/wp-content/uploads/2009/07/dwarf.zip
Sun, 23 May 2010, 07:02
bram32	Position the character at 0, 0, 0. This position is relative to it's parent. Rotate it using this: RotateEntity dwarf1, 0, 0, 0, true
Sun, 23 May 2010, 07:36
ShadowIce	thanks! ok. 1 more question. how can i switch between each model, everytime the player switches the ball? basically, how do i get it to work like in this video?: https://www.youtube.com/watch?v=tY6KVgAE9BY Graphics3D 800,600,0,2 AmbientLight 255,255,255 Dim model$(1000) model$(0)="dwarf1.b3d" model$(1)="dwarf2.b3d" Global mymodel For x=0 To 1000 mymodel = LoadAnimMesh(model$(x)) If x = 0 Then ScaleEntity mymodel,.04,.04,.04 Next Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic Global SelectedArray = 6 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,-4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 ;Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 For x=0 To 1000 If x=0 EntityParent mymodel,myspheres(i) PositionEntity mymodel,EntityX(myspheres(i)),EntityY(myspheres(i)),EntityZ(myspheres(i)) RotateEntity mymodel,0,-180,0,True ScaleEntity mymodel,.04,.04,.04 EndIf Next EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(cam) Flip Wend --v
Sun, 23 May 2010, 09:37
bram32	Simply free the previous one, load the new one.
Sun, 23 May 2010, 09:40
ShadowIce	um, my code isnt working right. thats what i tried to do.
Sun, 23 May 2010, 09:54
ShadowIce	see? Graphics3D 800,600,0,2 AmbientLight 255,255,255 Dim model$(1000) model$(0)="dwarf1.b3d" model$(1)="dwarf2.b3d" Global mymodel For x=1 To 1000 Select x Case 0 mymodel = LoadAnimMesh(model$(0)) ScaleEntity mymodel,.04,.04,.04 Case 1 mymodel = LoadAnimMesh(model$(1)) ScaleEntity mymodel,.04,.04,.04 End Select Next DebugLog "mymodel:"+mymodel Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic Global SelectedArray = 6 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,-4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=1 To 1000 Select x Case 0 Animate mymodel,1,1,1 End Select Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 For x=1 To 1000 If x=0 EntityParent mymodel,myspheres(i) PositionEntity mymodel,EntityX(myspheres(i)),EntityY(myspheres(i)),EntityZ(myspheres(i)) RotateEntity mymodel,0,-180,0,True EndIf Next EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(cam) Flip Wend --v
Sun, 23 May 2010, 10:01
bram32	Well, instead of trying to improve this code, write a new, clean code that deals with only two models and nothing else. Then, make it so that you can switch between the two models using the keyboard. If it all works -and you understand how it works- you can combine this new code with your excisting one.
Sun, 23 May 2010, 10:03
ShadowIce	i'm not going to rewrite an entire code for this 1 problem. do you know how long it took to write?months.. ANYWAY. here's the new code. it's close to what i need, but not on target. Graphics3D 800,600,0,2 AmbientLight 255,255,255 Dim model$(1000) model$(0)="dwarf1.b3d" model$(1)="dwarf2.b3d" Global mymodel For x=0 To 1000 Select x Case 0 mymodel = LoadAnimMesh(model$(0)) ScaleEntity mymodel,.04,.04,.04 Case 1 mymodel = LoadAnimMesh(model$(1)) ScaleEntity mymodel,.04,.04,.04 End Select Next DebugLog "mymodel:"+mymodel Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic Global SelectedArray = 6 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,-4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To 1000 Select x Case 0 Animate mymodel,1,1,1 End Select Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 For x=0 To 1000 If x=0 EntityParent mymodel,myspheres(i) PositionEntity mymodel,EntityX(myspheres(i)),EntityY(myspheres(i)),EntityZ(myspheres(i)) RotateEntity mymodel,0,-180,0,True EndIf If x=1 EntityParent mymodel,myspheres(i) PositionEntity mymodel,EntityX(myspheres(i)),EntityY(myspheres(i)),EntityZ(myspheres(i)) RotateEntity mymodel,0,-180,0,True EndIf Next EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(cam) Flip Wend --v
Sun, 23 May 2010, 10:25
JL235	Months for 150 lines of code? That's pretty slow. His suggestion wasn't to rewrite the code, it was to protoype a version that switched between two models and then integrate the workings from that into your current code. The one thing I disagree with is that you should build a system that can switch between any number of objects, not just two.
Sun, 23 May 2010, 10:29
ShadowIce	i am trying to do that. but 1st, i have to build a prototype with just 2.
Sun, 23 May 2010, 11:53
bram32	Yes, prototype first, then intergrate with the existing code. Beside that, if needed, there is nothing wrong with rewriting your code. It helps to remember and learn. Reason of my advice is that, in your code, you are using the same variable to store two handles. That means that the first object cannot be reached anymore. In a way, you're doing something along the lines of this: mymodel = loadmesh("dwarf1.b3d") mymodel = loadmesh("dwarf2.b3d") --v Now, two models are loaded, but you can only use the second one. Better is, to use something like this: dim mymodel(2) mymodel(1) = loadmesh("dwarf1.b3d") mymodel(2) = loadmesh("dwarf2.b3d") --v Then, both objects can still be used.
Sun, 23 May 2010, 12:13
ShadowIce	ok, it's getting closer. now what can i do to switch between models? Graphics3D 800,600,0,2 AmbientLight 255,255,255 Dim mymodel(1) mymodel(0)=LoadAnimMesh("dwarf1.b3d") mymodel(1)=LoadAnimMesh("dwarf2.b3d") For x=0 To 1 If x=0 Or x=1 RotateEntity mymodel(x),0,-180,0 ScaleEntity mymodel(x),.04,.04,.04 HideEntity mymodel(x) EndIf Next Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic Global SelectedArray = 6 Global pivs Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") Global CurrentAngle# Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity player RotateEntity player,0,-180,0 Global pivid Global type_cam = 1 Global type_obj = 2 Global cam=CreateCamera() PositionEntity cam,0,3.9,-4 EntityType cam,type_cam EntityRadius cam,1 Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 While Not KeyHit(1) If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 ;Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 For x=0 To 1 If x=0 Or x=1 EntityParent mymodel(x),myspheres(i) PositionEntity mymodel(x),0,0,0 RotateEntity mymodel(x),0,-180,0,True ShowEntity mymodel(x) EndIf Next EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity cam,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(cam) Flip Wend --v
Sun, 23 May 2010, 12:36
bram32	Well, instead of trying to improve this code, write a new, clean code that deals with only two models and nothing else. Then, make it so that you can switch between the two models using the keyboard. If it all works -and you understand how it works- you can combine this new code with your existing one.
Sun, 23 May 2010, 13:19
ShadowIce	again, i'm not going to rewrite the code. not when i'm this close. i might as well just ask my friend for help.. thanks alot..
Sun, 23 May 2010, 13:21
ShadowIce	and no, i don't want you to do it for me. i just want something other than "o, i think you should rewrite it cuz it's wrong" it is NOT wrong.. there is only one SMALL glitch..
Sun, 23 May 2010, 13:31
shroom_monk	I don't think he's saying to rewrite the whole thing from scratch. What he means is to test separately in another program the piece of code you need to fix, then, once it's working and you understand how it works, use that piece of code in your main program. He's not saying the existing code is wrong - as you say, it's just one small glitch. But small glitches in long pieces of code are easier to fix if you isolate them and test fixes for them in a small, controlled environment where you don't have the whole program interfering. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sun, 23 May 2010, 13:36
ShadowIce	it doesnt even WARRANT isolating the code. all's i need to know is how to hide the 1st object, and switch to the 2nd and 3rd. etc. that's IT. NOTHING else.
Sun, 23 May 2010, 13:40
shroom_monk	Well, I don't much about the commands of Blitz3D, but isn't there a help file in B3D? I'm pretty sure that lists all the commands in the language, including the command for hiding objects. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sun, 23 May 2010, 13:49
ShadowIce	i know how to hide it and show it. i just don't know how to switch between them.
Sun, 23 May 2010, 15:47
bram32	Hide the first one and show the second one. Then later on, show the second one and hide the first one.
Tue, 25 May 2010, 12:43
ShadowIce	i'm close, but still don't get it.. ; congratulations i corrected it for you:ps: copy and past model and position code for your other charectors the one's with the notes sign:!!!!! Include "start.bb" ; Sets 3D graphics mode boring! Graphics3D 640,480,16,0 SetBuffer BackBuffer() ;camera and light boring! camera=CreateCamera() light=CreateLight() ;add model now where talking :P ps: reapet this code for other models then position them in next code part!!!! Dim mymodel(3) mymodel(0)=LoadAnimMesh("super sonic.x") mymodel(1)=LoadAnimMesh("dwarf1.b3d") mymodel(2)=CreateCube() mymodel(3)=CreateSphere() ;position scale and rotate it boring! ps: reapet this code for positioning the models in list circle this is the next code part!!!!! For x=0 To 3 If x=0 Or x=1 Or x=2 Or x=3 RotateEntity mymodel(x),0,-180,0 ScaleEntity mymodel(x),.04,.04,.04 PositionEntity mymodel(x),0,0,5 EndIf Next ;music its ok :P Global charmusic charmusic=LoadSound("Sonic Adventure Music - Choose Your Buddy! -Slap Bass ver.-.mp3") LoopSound charmusic ;PlaySound charmusic ;6 slots! Global SelectedArray = 6 ;pivs! Global pivs ;balls! Global Balls = 10 Dim myspheres(Balls) For x=0 To Balls-1 myspheres(x) = CreateSphere(25) EntityShininess myspheres(x),1 Next ;select sounds! Global charselect = LoadSound("sa_002.WAV") Global oksound = LoadSound("sa_003.WAV") ;angles Global CurrentAngle# ;player! Global player=CreateCube() ScaleEntity player,.04,.04,.04 HideEntity mymodel(0) HideEntity mymodel(2) HideEntity mymodel(3) HideEntity player RotateEntity player,0,-180,0 PositionEntity player,0,0,5 Global pivid ;cam and object! Global type_cam = 1 Global type_obj = 2 ;pivot stuff!:P Global mainpiv = CreatePivot() PositionEntity mainpiv,0,4,10 EntityType mainpiv,type_obj EntityRadius mainpiv,1 ;entity program of player sphere obj! For x = 0 To Balls-1 players = CopyEntity(player) ScaleEntity players,.2,.2,.2 EntityParent myspheres(x),mainpiv EntityParent players,myspheres(x) PositionEntity myspheres(x),Sin((360/Balls)x)4,Cos((360/Balls)x)4,0 EntityType myspheres(x),type_obj EntityRadius myspheres(x),0.25 ScaleEntity myspheres(x),0.25,0.25,0.25 Next EntityParent player,pivs Z1#=Balls AngleChange#=360.0/Z1 angle# = 0 ;end of the file congratulation!!!! While Not KeyDown( 1 ) ;If selected var! If SelectedArray < 0 Then SelectedArray = balls-1 If SelectedArray > balls-1 Then SelectedArray = 0 For x=0 To Balls-1 ;Animate players,1,1,1 Next If KeyHit(28) PlaySound oksound EndIf If KeyHit(44) x=x+1 SelectedArray = SelectedArray - 1 angle#=angle#-AngleChange# PlaySound charselect EndIf If KeyHit(45) x=x-1 SelectedArray = SelectedArray + 1 angle#=angle#+AngleChange# PlaySound charselect EndIf For i=0 To balls-1 EntityColor myspheres(i),0,0,255 If i=SelectedArray EntityColor myspheres(i),255,0,0 For x=0 To 1 If x=0 Or x=1 EntityParent mymodel(x),myspheres(i) PositionEntity mymodel(x),0,0,0 RotateEntity mymodel(x),0,-180,0,True EndIf Next EndIf Next CurrentAngle#=CurrentAngle#+(Angle#-CurrentAngle#).1 ;<<This will move CurrentAngle towards Angle at 10% of the difference each frame. RotateEntity mainpiv,0,0,(CurrentAngle#+36) MoveEntity camera,(KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))1,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 UpdateWorld() RenderWorld() Text 10,10,"CurrentAngle#:"+CurrentAngle# Text 10,30,"angle#:"+angle# Text 10,50,"press z or x to select character" Text 10,70,"press enter to select character" Text 10,90,"SelectedArray:"+SelectedArray Text 10,110,"Z:"+EntityZ(camera) RenderWorld Flip Wend End --v Ignore the needed models, and just look at the code plz. If the code is fixed, then the models work.
Page : 1 2 Next 3 Prev