Hi, das DrawRect ist schon drin, hat nichts geholfen.... Hier nun der Code
RotoCopy:
// num = das Sprite was gedreht werden soll
// drehungs_step = nächste drehung IN Grad
// Start_num ab wo die Sprites gespeichert werden.
FUNCTION RotoCopy: num, drehungs_step, start_num
LOCAL XX, YY, Spitzenmass
GETSPRITESIZE num, XX, YY
Spitzenmass = SQR( POW(XX,2) + POW(YY,2) )
FOR Winkel = 0 TO 359 STEP drehungs_step
DRAWRECT 0,0,Spitzenmass,Spitzenmass, RGB(255, 0, 128)
ROTOSPRITE num,(Spitzenmass-XX)/2, (Spitzenmass-YY)/2, Winkel
GRABSPRITE start_num + Winkel / drehungs_step, 0, 0, Spitzenmass, Spitzenmass
CLEARSCREEN
NEXT
ENDFUNCTION
SpriteMid:
//Sprite mittelpunktabhängig zeichnen
FUNCTION Sprite_Mid: num, X, Y
LOCAL XX, YY
GETSPRITESIZE num , XX, YY
DRAWSPRITE num, X-XX/2, Y-YY/2
ENDFUNCTION
Die Loop:
INC tank_angle, KEY(203) - KEY(205)
IF tank_angle < 0 THEN tank_angle=359
IF tank_angle > 359 THEN tank_angle=0
INC tank_speed, (KEY(200) - KEY(208)) * 0.2
tank_speed = tank_speed * 0.9 // Hier die Windkraft anpassen
INC tank_x, tank_speed * COS(tank_angle)
INC tank_y, tank_speed * -SIN(tank_angle)
DrawMap()
Sprite_Mid(tank_angle,tank_x,tank_y)
//ROTOSPRITE 0,tank_x,tank_y,tank_angle
PRINT "Winkel :" + tank_angle,100,100
Check_Collision()
SHOWSCREEN
SMOOTHSHADING ist,wie gesagt auf False... bin da grad etwas ratlos, woran könnte es denn liegen?
LG