No collisions...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|656\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> No collisions...
Wed, 10 Mar 2010, 04:18
Longarm	Hi guys, can someone please tell me why there are no collisions being registered here... Const SCREEN_WIDTH=800 Const SCREEN_DEPTH=600 Const SCREEN_COLOR=16 Const SCREEN__MODE=1 Const SCREEN_VSYNC=True Const FRAME_TIMER=90 Const ASTEROID_MIN=130 Const ASTEROID_MAX=150 Const TYPE_PLAYER=1 Const TYPE_ASTEROID=2 Const TYPE_BULLET=3 Type asteroid Field xp#,yp#,zp#,xs#,ys#,zs#,xd,yd,zd,xr#,yr#,zr#,mesh End Type Global ftime,camera,cam_xr#,cam_yr#,cam_zr#,cam_z#,tex,player,mvx#,mvy#,mvz#,campitch#,camyaw#,cross,cpit,shield,flam,score,numb Global ShotTime=0,maxtime=15,turretshield=100 INIT_defineenvironment() Repeat GAME_freelook() Cls ANIM_updateasteroids() UpdateWorld RenderWorld Color 255,255,0: Text 10,10,turretshield WaitTimer(ftime) Flip SCREEN_VSYNC Until MouseDown(2) Or KeyHit(1) Or KeyHit(57) End Function GAME_freelook() mxspd#=MouseXSpeed()0.1;0.25 myspd#=MouseYSpeed()0.1;0.25 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 campitch=campitch+myspd If campitch<-85 Then campitch=-85 If campitch>85 Then campitch=85 RotateEntity player,campitch,EntityYaw(player)-mxspd,0 End Function Function INIT_defineenvironment() Graphics3D SCREEN_WIDTH,SCREEN_DEPTH,SCREEN_COLOR,SCREEN__MODE SeedRnd(MilliSecs()) ftime=CreateTimer(FRAME_TIMER) AntiAlias True Collisions TYPE_PLAYER,TYPE_ASTEROID,1,1 Restore images tmp=INIT_createsmallimage(): tx=CreateTexture(32,32): CopyRect 0,0,64,64,0,0,ImageBuffer(tmp),TextureBuffer(tx) cube=CreateCube() FitMesh cube,-250,-250,-250,500,500,500 FlipMesh cube ScaleTexture tx,1.0/13,1.0/13 EntityTexture cube,tx EntityAlpha cube,.4 EntityFX cube,1 light=CreateLight() TurnEntity light,45,45,0 player=CreatePivot() EntityRadius player,7 EntityType player,TYPE_PLAYER camera=CreateCamera(player) ; EntityRadius camera,7 ; EntityType camera,TYPE_PLAYER ; CameraViewport camera,0,0,800,570 tex=CreateTexture(32,32) INIT_createasteroids() score=198740 End Function Function INIT_createasteroids() For jk=0 To Rand(ASTEROID_MIN,ASTEROID_MAX) a.asteroid=New asteroid a\mesh=CreateSphere(32) a\xp#=Rand(-200,200) a\yp#=Rand(-200,200) a\zp#=Rand(-200,200) a\xr#=Rnd(-1.8,1.8) a\yr#=Rnd(-1.8,1.8) a\zr#=Rnd(-1.8,1.8) a\xs#=Rnd(0.05,1.4) a\ys#=Rnd(0.05,1.4) a\zs#=Rnd(0.05,1.4) xd=Rand(0,1) If xd=0 Then a\xd=-1 Else a\xd=1 yd=Rand(0,1) If yd=0 Then a\yd=-1 Else a\yd=1 zd=Rand(0,1) If zd=0 Then a\zd=-1 Else a\zd=1 rad=Rand(2,9) ScaleEntity a\mesh,Rad,Rad,Rad EntityType a\mesh,TYPE_ASTEROID Next End Function Function INIT_createsmallimage() old_buffer=GraphicsBuffer(): Read mouse_name$: Read qty: Read xds,yds Local temp=CreateImage(xds,yds): SetBuffer ImageBuffer(temp) For lin=1 To qty Read pq,red,grn,blu: Color red,grn,blu For jk#=1 To pq: Read xp,yp: Plot xp,yp: Next Next SetBuffer old_buffer Return temp End Function Function ANIM_updateasteroids() For a.asteroid=Each asteroid a\xp#=a\xp#+(a\xda\xs#) a\yp#=a\yp#+(a\yda\ys#) a\zp#=a\zp#+(a\zd*a\zs#) If a\xp#<-248 Then a\xd=1 If a\xp#>248 Then a\xd=-1 If a\yp#<-248 Then a\yd=1 If a\yp#>248 Then a\yd=-1 If a\zp#<-248 Then a\zd=1 If a\zp#>248 Then a\zd=-1 TurnEntity a\mesh,a\xr#,a\yr#,a\zr# PositionEntity a\mesh,a\xp#,a\yp#,a\zp# Next For z.asteroid=Each asteroid If EntityCollided(z\mesh,TYPE_PLAYER) Then turretshield=turretshield-2 End End If Next End Function .images Data "[534C45455059204A455354455220574F5A2045415221]" Data 3,32,32,544,1,7,255,0,0,1,0,7,0,8,0,9,0,15,0,16,0,17,0,23,0,24,0,25,0,31,0,0,1,1,1,2,1,6,1,8,1,9,1,10,1,14,1,16,1,17,1,18,1,22,1,24,1,25,1,26,1 Data 30,1,1,2,2,2,3,2,5,2,6,2,7,2,9,2,10,2,11,2,13,2,14,2,15,2,17,2,18,2,19,2,21,2,22,2,23,2,25,2,26,2,27,2,29,2,30,2,31,2,2,3,4,3,5,3,6,3,10,3,12,3 Data 13,3,14,3,18,3,20,3,21,3,22,3,26,3,28,3,29,3,30,3,3,4,4,4,5,4,11,4,12,4,13,4,19,4,20,4,21,4,27,4,28,4,29,4,2,5,3,5,4,5,6,5,10,5,11,5,12,5,14,5 Data 18,5,19,5,20,5,22,5,26,5,27,5,28,5,30,5,1,6,2,6,3,6,5,6,6,6,7,6,9,6,10,6,11,6,13,6,14,6,15,6,17,6,18,6,19,6,21,6,22,6,23,6,25,6,26,6,27,6,29,6 Data 30,6,31,6,0,7,2,7,6,7,7,7,8,7,10,7,14,7,15,7,16,7,18,7,22,7,23,7,24,7,26,7,30,7,31,7,0,8,1,8,7,8,8,8,9,8,15,8,16,8,17,8,23,8,24,8,25,8,31,8,0,9 Data 1,9,2,9,6,9,8,9,9,9,10,9,14,9,16,9,17,9,18,9,22,9,24,9,25,9,26,9,30,9,1,10,2,10,3,10,5,10,6,10,7,10,9,10,10,10,11,10,13,10,14,10,15,10,17,10,18,10 Data 19,10,21,10,22,10,23,10,25,10,26,10,27,10,29,10,30,10,31,10,2,11,4,11,5,11,6,11,10,11,12,11,13,11,14,11,18,11,20,11,21,11,22,11,26,11,28,11,29,11 Data 30,11,3,12,4,12,5,12,11,12,12,12,13,12,19,12,20,12,21,12,27,12,28,12,29,12,2,13,3,13,4,13,6,13,10,13,11,13,12,13,14,13,18,13,19,13,20,13,22,13 Data 26,13,27,13,28,13,30,13,1,14,2,14,3,14,5,14,6,14,7,14,9,14,10,14,11,14,13,14,14,14,15,14,17,14,18,14,19,14,21,14,22,14,23,14,25,14,26,14,27,14 Data 29,14,30,14,31,14,0,15,2,15,6,15,7,15,8,15,10,15,14,15,15,15,16,15,18,15,22,15,23,15,24,15,26,15,30,15,31,15,0,16,1,16,7,16,8,16,9,16,15,16,16,16 Data 17,16,23,16,24,16,25,16,31,16,0,17,1,17,2,17,6,17,8,17,9,17,10,17,14,17,16,17,17,17,18,17,22,17,24,17,25,17,26,17,30,17,1,18,2,18,3,18,5,18,6,18 Data 7,18,9,18,10,18,11,18,13,18,14,18,15,18,17,18,18,18,19,18,21,18,22,18,23,18,25,18,26,18,27,18,29,18,30,18,31,18,2,19,4,19,5,19,6,19,10,19,12,19 Data 13,19,14,19,18,19,20,19,21,19,22,19,26,19,28,19,29,19,30,19,3,20,4,20,5,20,11,20,12,20,13,20,19,20,20,20,21,20,27,20,28,20,29,20,2,21,3,21,4,21 Data 6,21,10,21,11,21,12,21,14,21,18,21,19,21,20,21,22,21,26,21,27,21,28,21,30,21,1,22,2,22,3,22,5,22,6,22,7,22,9,22,10,22,11,22,13,22,14,22,15,22 Data 17,22,18,22,19,22,21,22,22,22,23,22,25,22,26,22,27,22,29,22,30,22,31,22,0,23,2,23,6,23,7,23,8,23,10,23,14,23,15,23,16,23,18,23,22,23,23,23,24,23 Data 26,23,30,23,31,23,0,24,1,24,7,24,8,24,9,24,15,24,16,24,17,24,23,24,24,24,25,24,31,24,0,25,1,25,2,25,6,25,8,25,9,25,10,25,14,25,16,25,17,25,18,25 Data 22,25,24,25,25,25,26,25,30,25,1,26,2,26,3,26,5,26,6,26,7,26,9,26,10,26,11,26,13,26,14,26,15,26,17,26,18,26,19,26,21,26,22,26,23,26,25,26,26,26 Data 27,26,29,26,30,26,31,26,2,27,4,27,5,27,6,27,10,27,12,27,13,27,14,27,18,27,20,27,21,27,22,27,26,27,28,27,29,27,30,27,3,28,4,28,5,28,11,28,12,28 Data 13,28,19,28,20,28,21,28,27,28,28,28,29,28,2,29,3,29,4,29,6,29,10,29,11,29,12,29,14,29,18,29,19,29,20,29,22,29,26,29,27,29,28,29,30,29,1,30,2,30 Data 3,30,5,30,6,30,7,30,9,30,10,30,11,30,13,30,14,30,15,30,17,30,18,30,19,30,21,30,22,30,23,30,25,30,26,30,27,30,29,30,30,30,31,30,0,31,2,31,6,31 Data 7,31,8,31,10,31,14,31,15,31,16,31,18,31,22,31,23,31,24,31,26,31,30,31,31,31,160,0,5,192,2,0,10,0,18,0,26,0,3,1,5,1,11,1,13,1,19,1,21,1,27,1,29,1 Data 4,2,12,2,20,2,28,2,3,3,11,3,19,3,27,3,2,4,10,4,18,4,26,4,1,5,7,5,9,5,15,5,17,5,23,5,25,5,31,5,0,6,8,6,16,6,24,6,1,7,9,7,17,7,25,7,2,8,10,8,18,8 Data 26,8,3,9,5,9,11,9,13,9,19,9,21,9,27,9,29,9,4,10,12,10,20,10,28,10,3,11,11,11,19,11,27,11,2,12,10,12,18,12,26,12,1,13,7,13,9,13,15,13,17,13,23,13 Data 25,13,31,13,0,14,8,14,16,14,24,14,1,15,9,15,17,15,25,15,2,16,10,16,18,16,26,16,3,17,5,17,11,17,13,17,19,17,21,17,27,17,29,17,4,18,12,18,20,18 Data 28,18,3,19,11,19,19,19,27,19,2,20,10,20,18,20,26,20,1,21,7,21,9,21,15,21,17,21,23,21,25,21,31,21,0,22,8,22,16,22,24,22,1,23,9,23,17,23,25,23,2,24 Data 10,24,18,24,26,24,3,25,5,25,11,25,13,25,19,25,21,25,27,25,29,25,4,26,12,26,20,26,28,26,3,27,11,27,19,27,27,27,2,28,10,28,18,28,26,28,1,29,7,29 Data 9,29,15,29,17,29,23,29,25,29,31,29,0,30,8,30,16,30,24,30,1,31,9,31,17,31,25,31,160,65,70,255,6,0,14,0,22,0,30,0,7,1,15,1,23,1,31,1,0,2,8,2,16,2 Data 24,2,1,3,7,3,9,3,15,3,17,3,23,3,25,3,31,3,6,4,14,4,22,4,30,4,5,5,13,5,21,5,29,5,4,6,12,6,20,6,28,6,3,7,5,7,11,7,13,7,19,7,21,7,27,7,29,7,6,8,14,8 Data 22,8,30,8,7,9,15,9,23,9,31,9,0,10,8,10,16,10,24,10,1,11,7,11,9,11,15,11,17,11,23,11,25,11,31,11,6,12,14,12,22,12,30,12,5,13,13,13,21,13,29,13 Data 4,14,12,14,20,14,28,14,3,15,5,15,11,15,13,15,19,15,21,15,27,15,29,15,6,16,14,16,22,16,30,16,7,17,15,17,23,17,31,17,0,18,8,18,16,18,24,18,1,19 Data 7,19,9,19,15,19,17,19,23,19,25,19,31,19,6,20,14,20,22,20,30,20,5,21,13,21,21,21,29,21,4,22,12,22,20,22,28,22,3,23,5,23,11,23,13,23,19,23,21,23 Data 27,23,29,23,6,24,14,24,22,24,30,24,7,25,15,25,23,25,31,25,0,26,8,26,16,26,24,26,1,27,7,27,9,27,15,27,17,27,23,27,25,27,31,27,6,28,14,28,22,28 Data 30,28,5,29,13,29,21,29,29,29,4,30,12,30,20,30,28,30,3,31,5,31,11,31,13,31,19,31,21,31,27,31,29,31 --v
Wed, 10 Mar 2010, 04:46
Jayenkai	Nope!! At a pinch you could always cheat it.. For z.asteroid=Each asteroid rad=12 If Abs(z\xp-0)<rad And Abs(z\yp-0)<rad And Abs(z\zp-0)<rad Then turretshield=turretshield-2 Next --v Might not be accurate, but when you've a huge asteroid coming at your face, it doesn't really need to be! -=-=- ''Load, Next List!''