Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!
Werbeanzeige
Zitat von »Stupidedia«
Delphi (Programmiersprache)
Ich glaube das war etwas missverständlich. Ich meinte nicht die Spieler, sondern die Grafiker, die an dem Projekt mitarbeiten sollen. Hat man gute Assets, dann braucht man die ja nicht mehr, es seiden einer der anderen Grafiker ist abgesprungen oder man braucht mehr davon.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 |
function fps:Integer; begin if (now-_t)*1000<>0 then Result:=Round(_fps / ((now-_t)*100000)); _t:=now; _fps:=0; end; procedure _AI; begin CBat.y:=Ball.y-50; Ball.y:=Ball.y+(Ball.ydir*Ball.ymult); Ball.x:=Ball.x+(Ball.xdir*Ball.xmult); if Ball.y<1 then Ball.ydir:=0-Ball.ydir; if Ball.y>Form2.Height-Ball._img.Height-1 then Ball.ydir:=0-Ball.ydir; if Ball.x<10 then if PBat.y-1<Ball.y then if PBat.y+PBat._img.Height+1>Ball.y then begin Ball.xdir:=1; if Ball.y>=PBat.y then if Ball.y<=PBat.y+40 then ball.ydir:=Ball.ydir-1; if Ball.y>=PBat.y+80 then if Ball.y<=PBat.y+120 then ball.ydir:=Ball.ydir+1; end; if Ball.x>Form2.Width-CBat._img.Width-4 then if CBat.y-1<Ball.y then if CBat.y+CBat._img.Height+1>Ball.y then begin Ball.xdir:=-1; if Ball.y>=CBat.y then if Ball.y<=CBat.y+40 then ball.ydir:=Ball.ydir-1; if Ball.y>=CBat.y+80 then if Ball.y<=CBat.y+120 then ball.ydir:=Ball.ydir+1; end; if Ball.x<0 then pointforC; if Ball.x>Form2.Width then pointforP; end; procedure _go; begin _game:=True; while _game=True do begin Sleep(8); if _stop=False then if mymode='cpu' then _AI; PBat.y:=Mouse.CursorPos.Y-60; Form2.cyAdvPaintBox1.Refresh; if GetAsyncKeyState(VK_ESCAPE)<>0 then begin _game:=False; Form2.Close; _stop:=True; end; end; end; procedure setscene; begin with Form2 do begin Ball.x:=50; Ball.y:=50; Ball.ydir:=1; Ball.ymult:=3; Ball.xmult:=3; Ball.xdir:=1; PBat._img:=Form2.img1.Picture.Graphic; CBat._img:=Form2.img1.Picture.Graphic; Ball._img:=Form2.img2.Picture.Graphic; setpoints(0,0); cyAdvPaintBox1.Show; _t:=Now; end; end; procedure TForm2.cyAdvPaintBox1Paint(Sender: TObject); begin inc(_fps); cyAdvPaintBox1.Canvas.Brush.Color:=clBlack; cyAdvPaintBox1.Canvas.Font.Color:=clWhite; cyAdvPaintBox1.Canvas.Font.Size:=24; cyAdvPaintBox1.Canvas.TextOut(Round(Form2.Width*0.5)-100,0,'Esc 2 Escape'); cyAdvPaintBox1.Canvas.TextOut(3,Form2.Height-50,P1); cyAdvPaintBox1.Canvas.TextOut(Form2.Width-length(P2)*20,Form2.Height-50,P2); cyAdvPaintBox1.Canvas.Font.Size:=10; cyAdvPaintBox1.Canvas.TextOut(0,0,TimeToStr(Now)); cyAdvPaintBox1.Canvas.TextOut(0,30,'FPS: '+IntToStr(fps)); cyAdvPaintBox1.Canvas.Draw(0,PBat.y,Pbat._img); cyAdvPaintBox1.Canvas.Draw(Form2.Width-Cbat._img.Width,CBat.y,Cbat._img); cyAdvPaintBox1.Canvas.Draw(Ball.x,Ball.y,ball._img); end; |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »minecrawler« (18.11.2010, 15:37)
Werbeanzeige