| Verfolgungen Part II ^_^ von ??? |
| Yeahh jungs... Wieder ein paar Verfolgungsraketencodes :) [b:c325a57191]1.[/b:c325a57191]geht kerzen gerade in die richtung wo der enemy zur schuss zeit war! [b:c325a57191]2.[/b:c325a57191]Biegt sich leicht in die richtung des gegners [b:c325a57191]3.[/b:c325a57191] trifft den gegner immer ^_^ [b:c325a57191]1[/b:c325a57191] [code:1:c325a57191]Graphics 800,600 SetBuffer BackBuffer() player=CreateImage(32,32); create player schiff SetBuffer ImageBuffer(player) Rect 0,0,32,32 target=CreateImage(64,64);create ziel schiff SetBuffer ImageBuffer(target) Rect 0,0,64,64 bullet=CreateImage(1,1); create bullet image SetBuffer ImageBuffer(bullet) Rect 0,0,1,1 SetBuffer BackBuffer() buffering MidHandle player MidHandle target MidHandle bullet px=400; player koos py=500 tx=400; ziel koos ty=50 t_dir=1; 1=rechts, -1=links bul_speed=2 Type bul Field image Field x#,y# Field angle End Type While Not KeyHit(1) Cls If KeyDown(203) Then px=px-1:If px<20 Then px=20 If KeyDown(205) Then px=px+1:If px>750 Then px=750 If KeyHit(57) Then Gosub createbullet DrawImage player,px,py DrawImage target,tx,ty Gosub updatetarget Gosub updatebullet Flip; flip the backbuffer to the frontbuffer so we can see it Wend End .createbullet b.bul=New bul bimage=CopyImage(bullet) bx=px by=py bangle=ATan2(tx-px,ty-py);WICHTIG!! Return .updatebullet For b.bul=Each bul DrawImage bimage,bx,by bx=bx+Sin(bangle)*bul_speed by=by+Cos(bangle)*bul_speed If by<0 Then FreeImage bimage Delete b.bul End If Next Return .updatetarget tx=tx+t_dir If tx>750 Or tx<50 Then t_dir=t_dir*-1 Return [/code:1:c325a57191] [b:c325a57191]2[/b:c325a57191] [code:1:c325a57191]Graphics 800,600 SetBuffer BackBuffer() player=CreateImage(32,32) SetBuffer ImageBuffer(player) Rect 0,0,32,32 target=CreateImage(64,64) SetBuffer ImageBuffer(target) Rect 0,0,64,64 bullet=CreateImage(1,1) SetBuffer ImageBuffer(bullet) Rect 0,0,1,1 SetBuffer BackBuffer() MidHandle player MidHandle target MidHandle bullet px=400 py=500 tx=400 ty=50 t_dir=1 bul_speed=2 Type bul Field image Field x#,y# Field angle End Type While Not KeyHit(1) Cls If KeyDown(203) Then px=px-1:If px<20 Then px=20 If KeyDown(205) Then px=px+1:If px>750 Then px=750 If KeyHit(57) Then Gosub createbullet DrawImage player,px,py DrawImage target,tx,ty Gosub updatetarget Gosub updatebullet Flip Wend End .createbullet b.bul=New bul bimage=CopyImage(bullet) bx=px by=py bangle=ATan2(tx-px,ty-py) Return .updatebullet For b.bul=Each bul bangle=ATan2(tx-px,ty-py) DrawImage bimage,bx,by bx=bx+Sin(bangle)*bul_speed by=by+Cos(bangle)*bul_speed If by<0 Then FreeImage bimage Delete b.bul End If Next Return .updatetarget tx=tx+t_dir If tx>750 Or tx<50 Then t_dir=t_dir*-1 Return [/code:1:c325a57191] [b:c325a57191]3[/b:c325a57191] [code:1:c325a57191]Graphics 800,600 SetBuffer BackBuffer() player=CreateImage(32,32) SetBuffer ImageBuffer(player) Rect 0,0,32,32 target=CreateImage(64,64) SetBuffer ImageBuffer(target) Rect 0,0,64,64 bullet=CreateImage(1,1) SetBuffer ImageBuffer(bullet) Rect 0,0,1,1 SetBuffer BackBuffer() MidHandle player MidHandle target MidHandle bullet px=400 py=500 tx=400 ty=50 t_dir=1 bul_speed=2 bul_count=0 Type bul Field image Field x#,y# Field angle End Type While Not KeyHit(1) Cls If KeyDown(203) Then px=px-1:If px<20 Then px=20 If KeyDown(205) Then px=px+1:If px>750 Then px=750 If KeyHit(57) Then Gosub createbullet DrawImage player,px,py DrawImage target,tx,ty Gosub updatetarget Gosub updatebullet Text 0,0," bul="+bul_count Flip Wend End .createbullet b.bul=New bul bimage=CopyImage(bullet) bx=px by=py bangle=ATan2(tx-px,ty-py) bul_count=bul_count+1 Return .updatebullet For b.bul=Each bul bangle=ATan2(tx-bx,ty-by) DrawImage bimage,bx,by bx=bx+Sin(bangle)*bul_speed by=by+Cos(bangle)*bul_speed If by<0 Then FreeImage bimage Delete b.bul bul_count=bul_count-1 ElseIf ImagesCollide(bimage,bx,by,0,target,tx,ty,0) Then FreeImage bimage Delete b.bul bul_count=bul_count-1 End If Next Return .updatetarget tx=tx+t_dir If tx>750 Or tx<50 Then t_dir=t_dir*-1 Return [/code:1:c325a57191] Hoffe ich konnte in irgendeiner hinsicht euer Space-Shooter progger dasein erleichtern ^_^ |