Ca tourne mais ça n'avance pas bien

if scancode=37 then Ang=Ang-5:Tourne%=1
if scancode=39 then Ang=Ang+5:Tourne%=1
Ang=mod(Ang,360)
print_locate 10,10:print str$(Ang)
if Tourne%=1 then GOSUB Rota : GOSUB Tracer

    REPEAT
'
if scancode=37 then Ang=Ang-5:Tourne%=1
if scancode=39 then Ang=Ang+5:Tourne%=1
if scancode=38 then Pas=Pas+5:Avance%=1
if scancode=40 then Pas=Pas-5:Avance%=1
'
Ang=mod(Ang,360)
Angrad=Ang * pi/180
print_locate 10,10:print str$(Ang)
'
if Tourne%=1 then GOSUB ROTA : GOSUB TRACER
if Avance%=1 then GOSUB TRANS: GOSUB TRACER
'
    UNTIL scancode=27

caption 0, "TANK move ESC pour arrêter !!!"
rem 320 240
'
rem ===============
rem LABELs de Cadix
rem ===============
'
    LABEL ROTA, TRACER,TRANS
'
' Affichage des éléments
'
top  0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
'
picture 1:full_space 1:2d_target_is 1
color 1,50,130,13
'
' Dimensions du rectangle
'
dim LargRect%,HautRect%
    LargRect%=64:HautRect%=32
'
' Calcul du centre de la fenêtre
'
dim xc,yc
    xc=int(width(1)/2)
    yc=int(height(1)/2)
'
' On place les 4 coins du rectangle
'
dim xhd,xhg,xbg,xbd
dim yhd,yhg,ybg,ybd
'
xhd=xc+int(LargRect%/2)
yhd=yc-int(HautRect%/2)
xhg=xc-int(LargRect%/2)
yhg=yc-int(HautRect%/2)
xbg=xhg
ybg=yc+int(HautRect%/2)
xbd=xhd
ybd=ybg
'
' On trace le rectangle initial
'
2d_line xhd,yhd,xhg,yhg
2d_line xhg,yhg,xbg,ybg
2d_line xbg,ybg,xbd,ybd
2d_line xbd,ybd,xhd,yhd
'
' DIMs pour les calculs liés à la ROTAtion
'
dim x1,y1,x2,y2,x3,y3,x4,y4
rem ce sont les xhd, yhd etc. transformés par ROTAtion
dim xx1,yy1,xx2,yy2,xx3,yy3,xx4,yy4
rem ce sont les coordonnées transitoires
dim mathg,mathd,matbg,matbd
rem ce sont les coordonnées de la matrice, Néo !
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4
rem ce sont les coordonnées pour effacement
'
' DIMs translation
'
dim Pas
    Pas=0
'
' On prépare l'effacement du rectangle
'
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd
oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
'
' Angle en degrés converti en radians
'
dim Ang,pi:pi= 4* ATN(1)
Ang=0
dim Angrad
rem c'est l'angle converti en radians
rem Angrad=Ang * pi/180
'
' DIMs pour saisie des commandes
'
dim Tourne%,Avance%
rem c'est un flag !
'
rem ====================
rem SAISIE des COMMANDES
rem ====================
'
    REPEAT
'
if scancode=37 then Ang=Ang-5:Tourne%=1
if scancode=39 then Ang=Ang+5:Tourne%=1
if scancode=38 then Pas=Pas+5:Avance%=1
if scancode=40 then Pas=Pas-5:Avance%=1
'
Ang=mod(Ang,360)
Angrad=Ang * pi/180
print_locate 10,10:print str$(Ang)
'
if Tourne%=1 then GOSUB ROTA : GOSUB TRACER
if Avance%=1 then GOSUB TRANS: GOSUB TRACER
'
    UNTIL scancode=27

'
' FIN des préliminaires
'
  END
'
' Tout droit
'
  TRANS:
'
xc= xc +Pas*cos(Angrad):yc= yc +Pas*sin(Angrad)
xhd=xhd+Pas*cos(Angrad):yhd=yhd+Pas*sin(Angrad)
xhg=xhg+Pas*cos(Angrad):yhg=yhg+Pas*sin(Angrad)
xbg=xbg+Pas*cos(Angrad):ybg=ybg+Pas*sin(Angrad)
xbd=xbd+Pas*cos(Angrad):ybd=ybd+Pas*sin(Angrad)
'
' Remise du flag à FAUX
'
  Avance%=0
'
  RETURN
'
' Silence on tourne
'
  ROTA:
'
mathg=cos(Angrad)
mathd=sin(Angrad)
matbg=0-sin(Angrad)
matbd=cos(Angrad)
'
xx1=xhd-xc :xx2=xhg-xc :xx3=xbg-xc :xx4=xbd-xc
yy1=yhd-yc :yy2=yhg-yc :yy3=ybg-yc :yy4=ybd-yc
'
' Calcul matriciel
'
xhd=(mathg*xx1)+(matbg*yy1):yhd=(mathd*xx1)+(matbd*yy1)
xhg=(mathg*xx2)+(matbg*yy2):yhg=(mathd*xx2)+(matbd*yy2)
xbg=(mathg*xx3)+(matbg*yy3):ybg=(mathd*xx3)+(matbd*yy3)
xbd=(mathg*xx4)+(matbg*yy4):ybd=(mathd*xx4)+(matbd*yy4)

xhd=xhd+xc :xhg=xhg+xc :xbg=xbg+xc :xbd=xbd+xc
yhd=yhd+yc :yhg=yhg+yc :ybg=ybg+yc :ybd=ybd+yc
'
' Remise du flag à FAUX
  Tourne%=0
'
  RETURN

'
  TRACER:
'
' Tracé du nouveau tank
'
' Tempo
'
wait 100
rem Changer cette valeur pour une ROTAtion +- fluide
'
2d_line xhd,yhd,xhg,yhg
2d_line xhg,yhg,xbg,ybg
2d_line xbg,ybg,xbd,ybd
2d_line xbd,ybd,xhd,yhd
'
' Effacement de l'ancien tank
'
rem wait 1000
2d_pen_color 50,130,13
2d_line oldx1,oldy1,oldx2,oldy2
2d_line oldx2,oldy2,oldx3,oldy3
2d_line oldx3,oldy3,oldx4,oldy4
2d_line oldx4,oldy4,oldx1,oldy1
2d_pen_color 0,0,0
'
' Affecter ces coordonnées aux coord d'effacement
'
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd
oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
'
rem xp = A * x(1) + C * y(1) : yp = B * x(1) + D * y(1)
'
  RETURN
'
  END

' ********************************************************************************
'                Tanks v1.1 by Froggy One & Jicehel
' ********************************************************************************
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC" ==> MET FIN AU PROGRAMME:.... CASE 27  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE ==> PIVOTER À GAUCHE:....... CASE 37  *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE ==> AVANCER:................. CASE 38  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE ==> PIVOTER À DROITE:....... CASE 39  *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE ==> RECULER:................. CASE 40  *
' ********************************************************************************

' déclaration des étiquettes pour gérer les événements
label t1,t2

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd

xhd=xc+(LargRect%/2): yhd=yc-(HautRect%/2)
xhg=xc-(LargRect%/2): yhg=yc-(HautRect%/2)
xbg=xhg : ybg=yc+(HautRect%/2)
xbd=xhd : ybd=ybg


' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien triangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 1

' Angle en radians
dim Angrad

Trace_rectangle()
on_key_down 0,t1
on_key_up 0,t2

end

sub Trace_rectangle()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhd-xc))+((0-sin(Angrad))*(yhd-yc))+xc
  yhd=(sin(Angrad)*(xhd-xc))+(cos(Angrad)*(yhd-yc))+yc
  xhg=(cos(Angrad)*(xhg-xc))+((0-sin(Angrad))*(yhg-yc))+xc
  yhg=(sin(Angrad)*(xhg-xc))+(cos(Angrad)*(yhg-yc))+yc
  xbg=(cos(Angrad)*(xbg-xc))+((0-sin(Angrad))*(ybg-yc))+xc
  ybg=(sin(Angrad)*(xbg-xc))+(cos(Angrad)*(ybg-yc))+yc
  xbd=(cos(Angrad)*(xbd-xc))+((0-sin(Angrad))*(ybd-yc))+xc
  ybd=(sin(Angrad)*(xbd-xc))+(cos(Angrad)*(ybd-yc))+yc
  if (int(xhd) = int(xbd+0.4)) or (int(xhd+0.4) = int(xbd))
    if xhd > xhg
      xhd=xc+(LargRect%/2): yhd=yc-(HautRect%/2)
      xhg=xc-(LargRect%/2): yhg=yhd
      xbg=xhg : ybg=yc+(HautRect%/2)
      xbd=xhd : ybd=ybg
    else
      xbg=xc+(LargRect%/2): ybg=yc-(HautRect%/2)
      xhd=xc-(LargRect%/2): yhd=yc+(HautRect%/2)
      xhg=xbg : yhg=yhd
      xbd=xhd : ybd=ybg
    end_if
  end_if
  xc=(xhd+xbg)/2 : yc=(yhd+ybg)/2
  Angrad = 0
End_Sub

sub trans()
  xhd=xhd+Pas*cos(Angrad):yhd=yhd+Pas*sin(Angrad)
  xhg=xhg+Pas*cos(Angrad):yhg=yhg+Pas*sin(Angrad)
  xbg=xbg+Pas*cos(Angrad):ybg=ybg+Pas*sin(Angrad)
  xbd=xbd+Pas*cos(Angrad):ybd=ybd+Pas*sin(Angrad)
  xc=(xhd+xbg)/2 : yc=(yhd+ybg)/2
  pas = 0
end_sub


t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
return

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20 : Tourne()
  if tfd=1 then Angrad=Angrad + pi/20 : Tourne()
  if tfh=1 then Pas=Pas+3 : trans()
  if tfb=1 then Pas=Pas-3 : trans()
  Trace_rectangle()
end_sub

' ********************************************************************************
'                Tanks v1.1 by Froggy One & Jicehel
' ********************************************************************************
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC" ==> MET FIN AU PROGRAMME:.... CASE 27  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE ==> PIVOTER À GAUCHE:....... CASE 37  *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE ==> AVANCER:................. CASE 38  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE ==> PIVOTER À DROITE:....... CASE 39  *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE ==> RECULER:................. CASE 40  *
' ********************************************************************************

' déclaration des étiquettes pour gérer les événements
label t1,t2

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd
dim xhdi,xhgi,xbgi,xbdi,yhdi,yhgi,ybgi,iybd


xhdi=LargRect%/2: yhdi=0-(HautRect%/2)
xhgi=0-(LargRect%/2): yhgi=yhdi
xbgi=xhgi : ybgi=HautRect%/2
xbdi=xhdi : ybdi=ybgi

xhd=xc+xhdi : yhd=yc+yhdi
xhg=xc+xhgi : yhg=yc+yhgi
xbg=xc+xbgi : ybg=yc+ybgi
xbd=xc+xbdi : ybd=yc+ybdi

' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien triangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 1

' Angle en radians
dim Angrad

Trace_rectangle()
on_key_down 0,t1
on_key_up 0,t2

end

sub Trace_rectangle()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhdi))+((0-sin(Angrad))*yhdi)+xc
  yhd=(sin(Angrad)*(xhdi))+(cos(Angrad)*yhdi)+yc
  xhg=(cos(Angrad)*(xhgi))+((0-sin(Angrad))*(yhgi))+xc
  yhg=(sin(Angrad)*(xhgi))+(cos(Angrad)*yhgi)+yc
  xbg=(cos(Angrad)*(xbgi))+((0-sin(Angrad))*ybg))+xc
  ybg=(sin(Angrad)*(xbgi))+(cos(Angrad)*ybgi)+yc
  xbd=(cos(Angrad)*(xbdi))+((0-sin(Angrad))*(ybdi)+xc
  ybd=(sin(Angrad)*(xbdi))+(cos(Angrad)*(ybdi)+yc
End_Sub

sub trans()
  DIM_LOCAL delta_x,delta_y
  delta_x=Pas*cos(Angrad):delta_y=Pas*sin(Angrad)
  xhd=xhd+delta_x:yhd=yhd+delta_y
  xhg=xhg+delta_x:yhg=yhg+delta_y
  xbg=xbg+delta_x:ybg=ybg+delta_y
  xbd=xbd+delta_x:ybd=ybd+delta_y
  xc=xc+delta_x:yc=yc+delta_y
end_sub


t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
return

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20 : Tourne()
  if tfd=1 then Angrad=Angrad + pi/20 : Tourne()
  if tfh=1 then Pas=Pas+3 : trans()
  if tfb=1 then Pas=Pas-3 : trans()
  Trace_rectangle()
end_sub

********************************************************************************
'                Tanks v1.1 by Froggy One & Jicehel
' ********************************************************************************
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC" ==> MET FIN AU PROGRAMME:.... CASE 27  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE ==> PIVOTER À GAUCHE:....... CASE 37  *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE ==> AVANCER:................. CASE 38  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE ==> PIVOTER À DROITE:....... CASE 39  *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE ==> RECULER:................. CASE 40  *
' ********************************************************************************

' déclaration des étiquettes pour gérer les événements
label t1,t2

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd
dim xhdi,xhgi,xbgi,xbdi,yhdi,yhgi,ybgi,ybdi


xhdi=LargRect%/2: yhdi=0-(HautRect%/2)
xhgi=0-(LargRect%/2): yhgi=yhdi
xbgi=xhgi : ybgi=HautRect%/2
xbdi=xhdi : ybdi=ybgi

xhd=xc+xhdi : yhd=yc+yhdi
xhg=xc+xhgi : yhg=yc+yhgi
xbg=xc+xbgi : ybg=yc+ybgi
xbd=xc+xbdi : ybd=yc+ybdi

' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien rectangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 1

' Angle en radians
dim Angrad

Trace_rectangle()
on_key_down 0,t1
on_key_up 0,t2

end

sub Trace_rectangle()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhdi))+((0-sin(Angrad))*yhdi)+xc
  yhd=(sin(Angrad)*(xhdi))+(cos(Angrad)*yhdi)+yc
  xhg=(cos(Angrad)*(xhgi))+((0-sin(Angrad))*(yhgi))+xc
  yhg=(sin(Angrad)*(xhgi))+(cos(Angrad)*yhgi)+yc
  xbg=(cos(Angrad)*(xbgi))+((0-sin(Angrad))*ybgi)+xc
  ybg=(sin(Angrad)*(xbgi))+(cos(Angrad)*ybgi)+yc
  xbd=(cos(Angrad)*(xbdi))+((0-sin(Angrad))*ybdi)+xc
  ybd=(sin(Angrad)*(xbdi))+(cos(Angrad)*ybdi)+yc
End_Sub

sub trans()
  DIM_LOCAL delta_x,delta_y
  delta_x=Pas*cos(Angrad):delta_y=Pas*sin(Angrad)
  xhd=xhd+delta_x:yhd=yhd+delta_y
  xhg=xhg+delta_x:yhg=yhg+delta_y
  xbg=xbg+delta_x:ybg=ybg+delta_y
  xbd=xbd+delta_x:ybd=ybd+delta_y
  xc=xc+delta_x:yc=yc+delta_y
end_sub


t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
return

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20 : Tourne()
  if tfd=1 then Angrad=Angrad + pi/20 : Tourne()
  if tfh=1 then Pas=Pas+3 : trans()
  if tfb=1 then Pas=Pas-3 : trans()
  Trace_rectangle()
end_sub

if tfh=1 then Pas=min(3,Pas+3) : trans()
if tfb=1 then Pas=max(3,Pas-3) : trans()

' ************************************************* '
'                Tanks v1.1 by Froggy One & Jicehel '
' ************************************************* '
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC"  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE  *
dim ztp,ztop : ztop=32 : ' *    BARRE    *
' ****************************************

' Déclaration des étiquettes pour gérer les événements
label t1,t2,boucle

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd
dim xhdi,xhgi,xbgi,xbdi,yhdi,yhgi,ybgi,ybdi


xhdi=LargRect%/2: yhdi=0-(HautRect%/2)
xhgi=0-(LargRect%/2): yhgi=yhdi
xbgi=xhgi : ybgi=HautRect%/2
xbdi=xhdi : ybdi=ybgi

xhd=xc+xhdi : yhd=yc+yhdi
xhg=xc+xhgi : yhg=yc+yhgi
xbg=xc+xbgi : ybg=yc+ybgi
xbd=xc+xbdi : ybd=yc+ybdi

' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien rectangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 1

' Angle en radians
dim Angrad

' Tourelle
dim oldxc,oldyc,cibx,ciby

' Compteur

  TIMER 9 : timer_interval 9,250

' The PROGRAMME

  Trace_rectangle()
  Trace_tourelle()
  on_key_down 0,t1
  on_key_up  0,t2
  on_timer 9,boucle
 
end

sub Trace_rectangle()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd
end_sub

sub Trace_tourelle()
  2d_fill_color 50,130,13
 
  ' On efface l'ancienne tourelle
  2d_pen_color 50,130,13
  2d_circle oldxc,oldyc,(HautRect%/2)-2
  2d_line oldxc,oldyc,oldxc+4*cos(Angrad),oldyc+4*sin(Angrad)
 
  ' On affiche la nouvelle
  2d_pen_color 0,0,0
  2d_circle xc,yc,(HautRect%/2)-2
  2d_line xc,yc,xc+((HautRect%/2)-2)*cos(Angrad),yc+((HautRect%/2)-2)*sin(Angrad)
  oldxc=xc:oldyc=yc
 
end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhdi))+((0-sin(Angrad))*yhdi)+xc
  yhd=(sin(Angrad)*(xhdi))+(cos(Angrad)*yhdi)+yc
  xhg=(cos(Angrad)*(xhgi))+((0-sin(Angrad))*(yhgi))+xc
  yhg=(sin(Angrad)*(xhgi))+(cos(Angrad)*yhgi)+yc
  xbg=(cos(Angrad)*(xbgi))+((0-sin(Angrad))*ybgi)+xc
  ybg=(sin(Angrad)*(xbgi))+(cos(Angrad)*ybgi)+yc
  xbd=(cos(Angrad)*(xbdi))+((0-sin(Angrad))*ybdi)+xc
  ybd=(sin(Angrad)*(xbdi))+(cos(Angrad)*ybdi)+yc
End_Sub

sub trans()
  DIM_LOCAL delta_x,delta_y
  delta_x=Pas*cos(Angrad):delta_y=Pas*sin(Angrad)
  xhd=xhd+delta_x:yhd=yhd+delta_y
  xhg=xhg+delta_x:yhg=yhg+delta_y
  xbg=xbg+delta_x:ybg=ybg+delta_y
  xbd=xbd+delta_x:ybd=ybd+delta_y
  xc=xc+delta_x:yc=yc+delta_y
end_sub

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20 : Tourne()
  if tfd=1 then Angrad=Angrad + pi/20 : Tourne()
  if tfh=1 then Pas= 3  : trans()
  if tfb=1 then Pas=-3  : trans()
  if ztp=1 then Pas=0    : trans()
  Trace_rectangle()
  Trace_tourelle()
end_sub

t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  if key_down_code=ztop then ztp=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
  if key_down_code=ztop then ztp=0
return

boucle:
      bouge()
      tourne()
      trans()
        if mouse_right_down(1)=1
        cibx=mouse_x_position(1)
        ciby=mouse_y_position(1)
        end_if
return

' ************************************************* '
'                Tanks v1.2 by Froggy One & Jicehel '
' ************************************************* '
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC"  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE  *
dim ztp,ztop : ztop=32 : ' *    BARRE    *
' ****************************************

' Déclaration des étiquettes pour gérer les événements
label t1,t2,boucle

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd
dim xhdi,xhgi,xbgi,xbdi,yhdi,yhgi,ybgi,ybdi


xhdi=LargRect%/2: yhdi=0-(HautRect%/2)
xhgi=0-(LargRect%/2): yhgi=yhdi
xbgi=xhgi : ybgi=HautRect%/2
xbdi=xhdi : ybdi=ybgi

xhd=xc+xhdi : yhd=yc+yhdi
xhg=xc+xhgi : yhg=yc+yhgi
xbg=xc+xbgi : ybg=yc+ybgi
xbd=xc+xbdi : ybd=yc+ybdi

' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien rectangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 0

' Angle en radians
dim Angrad

' Tourelle
dim oldxc,oldyc,cibx,ciby,OldAngrad

' Compteur

  TIMER 9 : timer_interval 9,150

' The PROGRAMME

  on_key_down 0,t1
  on_key_up  0,t2
  on_timer 9,boucle

end

sub Trace_Tank()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13 : 2D_fill_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On efface l'ancienne tourelle
  2d_circle oldxc,oldyc,(HautRect%/2)-2 : 2d_pen_width 3
  2d_line oldxc+((HautRect%/2)-2)*cos(OldAngrad),oldyc+((HautRect%/2)-2)*sin(OldAngrad),oldxc+1.5*HautRect%*cos(OldAngrad),oldyc+1.5*HautRect%*sin(OldAngrad)
  2d_pen_width 1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0  : 2D_fill_color 200,200,200
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On affiche la nouvelle tourelle
  2d_circle xc,yc,(HautRect%/2)-2 : 2d_pen_width 3
  2d_line xc+((HautRect%/2)-2)*cos(Angrad),yc+((HautRect%/2)-2)*sin(Angrad),xc+1.5*HautRect%*cos(Angrad),yc+1.5*HautRect%*sin(Angrad)
  oldxc=xc:oldyc=yc:oldAngrad=Angrad : 2d_pen_width 1

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhdi))+((0-sin(Angrad))*yhdi)+xc
  yhd=(sin(Angrad)*(xhdi))+(cos(Angrad)*yhdi)+yc
  xhg=(cos(Angrad)*(xhgi))+((0-sin(Angrad))*(yhgi))+xc
  yhg=(sin(Angrad)*(xhgi))+(cos(Angrad)*yhgi)+yc
  xbg=(cos(Angrad)*(xbgi))+((0-sin(Angrad))*ybgi)+xc
  ybg=(sin(Angrad)*(xbgi))+(cos(Angrad)*ybgi)+yc
  xbd=(cos(Angrad)*(xbdi))+((0-sin(Angrad))*ybdi)+xc
  ybd=(sin(Angrad)*(xbdi))+(cos(Angrad)*ybdi)+yc
End_Sub

sub trans()
  DIM_LOCAL delta_x,delta_y
  delta_x=Pas*cos(Angrad):delta_y=Pas*sin(Angrad)
  xhd=xhd+delta_x:yhd=yhd+delta_y
  xhg=xhg+delta_x:yhg=yhg+delta_y
  xbg=xbg+delta_x:ybg=ybg+delta_y
  xbd=xbd+delta_x:ybd=ybd+delta_y
  xc=xc+delta_x:yc=yc+delta_y
end_sub

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20
  if tfd=1 then Angrad=Angrad + pi/20
  if tfh=1 then Pas= 5
  if tfb=1 then Pas=-5
  if ztp=1 then Pas=0
end_sub

t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  if key_down_code=ztop then ztp=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
  if key_down_code=ztop then ztp=0
return

boucle:
      bouge()
      tourne()
      trans()
      Trace_tank()
      if mouse_right_down(1)=1
        cibx=mouse_x_position(1)
        ciby=mouse_y_position(1)
        caption 0,"TANK move ESC pour arrêter !!!  - Cible ("+str$(cibx)+";"+str$(ciby)+")"
      end_if
return

' ************************************************* '
'                Tanks v1.2 by Froggy One & Jicehel '
' ************************************************* '
dim esc,cesc : cesc=27 : ' * TOUCHE "ESC"  *
dim tfg,ctfg : ctfg=37 : ' * FLÈCHE GAUCHE *
dim tfh,ctfh : ctfh=38 : ' * FLÈCHE HAUTE  *
dim tfd,ctfd : ctfd=39 : ' * FLÈCHE DROITE *
dim tfb,ctfb : ctfb=40 : ' * FLÈCHE BASSE  *
dim ztp,ztop : ztop=32 : ' *    BARRE    *
' ****************************************

' Déclaration des étiquettes pour gérer les événements
label t1,t2,boucle

' Initialisation de la fenêtre principale
caption 0, "TANK move ESC pour arrêter !!!"
top  0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
' Initialisation de la surface de jeu
picture 1:full_space 1:2d_target_is 1: color 1,50,130,13

' Déclaration des constantes
dim pi:pi= 4* ATN(1)

' Dimensions du rectangle
dim LargRect%,HautRect% :  LargRect%=64:HautRect%=32
' Centre du rectangle et initialisation au centre de l'écran
dim xc,yc :  xc=int(width(1)/2):  yc=int(height(1)/2)

' Déclaration et initialisation des quatres coins du rectangle
dim xhd,xhg,xbg,xbd,yhd,yhg,ybg,ybd
dim xhdi,xhgi,xbgi,xbdi,yhdi,yhgi,ybgi,ybdi


xhdi=LargRect%/2: yhdi=0-(HautRect%/2)
xhgi=0-(LargRect%/2): yhgi=yhdi
xbgi=xhgi : ybgi=HautRect%/2
xbdi=xhdi : ybdi=ybgi

xhd=xc+xhdi : yhd=yc+yhdi
xhg=xc+xhgi : yhg=yc+yhgi
xbg=xc+xbgi : ybg=yc+ybgi
xbd=xc+xbdi : ybd=yc+ybdi

' Déclaration des variables permettant de stocker les coordonnées pour effacement
dim oldx1,oldx2,oldx3,oldx4,oldy1,oldy2,oldy3,oldy4

' On initialise les valeurs de l'ancien rectangle fictif
oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

' Déclaration de la vitesse de déplacement
dim pas : pas = 0

' Angle en radians
dim Angrad

' Tourelle
dim oldxc,oldyc,cibx,ciby,OldAngrad,AngTir,grandx,grandy,hypo
dim CosAngTir,SinAngTir
    CosAngTir=1:SinAngTir=0
dim OldCosAngTir,OldSinAngTir

' Compteur

  TIMER 9 : timer_interval 9,150

' The PROGRAMME

  on_key_down 0,t1
  on_key_up  0,t2
  on_timer 9,boucle

end

sub Trace_Tank()

  ' On efface les 4 côtés de l'ancien rectangle
  2d_pen_color 50,130,13 : 2D_fill_color 50,130,13
  2d_line oldx1,oldy1,oldx2,oldy2 : 2d_line oldx2,oldy2,oldx3,oldy3
  2d_line oldx3,oldy3,oldx4,oldy4 : 2d_line oldx4,oldy4,oldx1,oldy1

  ' On efface l'ancienne tourelle
  2d_circle oldxc,oldyc,(HautRect%/2)-2 : 2d_pen_width 2 : rem 3
  rem 2d_line oldxc+((HautRect%/2)-2)*cos(OldAngrad),oldyc+((HautRect%/2)-2)*sin(OldAngrad),oldxc+1.5*HautRect%*cos(OldAngrad),oldyc+1.5*HautRect%*sin(OldAngrad)
  2d_line oldxc+((HautRect%/2)-2)*OldCosAngTir,  oldyc+((HautRect%/2)-2)*OldSinAngTir,  oldxc+1.5*HautRect%*OldCosAngTir,  oldyc+1.5*HautRect%*OldSinAngTir
  2d_pen_width 1

  ' On trace les 4 côtés du nouveau rectangle
  2d_pen_color 0,0,0  : 2D_fill_color 50,130,13: rem 200,200,200
  2d_line xhd,yhd,xhg,yhg: 2d_line xhg,yhg,xbg,ybg
  2d_line xbg,ybg,xbd,ybd: 2d_line xbd,ybd,xhd,yhd

  ' On affiche la nouvelle tourelle
  2d_circle xc,yc,(HautRect%/2)-2 : 2d_pen_width 2 : rem 3
  rem 2d_line xc+((HautRect%/2)-2)*cos(Angrad),yc+((HautRect%/2)-2)*sin(Angrad),xc+1.5*HautRect%*cos(Angrad),yc+1.5*HautRect%*sin(Angrad)
  2d_line xc+((HautRect%/2)-2)*CosAngTir,  yc+((HautRect%/2)-2)*SinAngTir,  xc+1.5*HautRect%*CosAngTir,  yc+1.5*HautRect%*SinAngTir

  ' on mémorise les coordonnées pour effacer la tourelle next time

  OldCosAngTir=CosAngTir:OldSinAngTir=SinAngTir
  oldxc=xc:oldyc=yc:oldAngrad=Angrad : 2d_pen_width 1

  ' On mémorise les coordonnées pour effacer le rectangle la prochaine fois
  oldx1=xhd:oldx2=xhg:oldx3=xbg:oldx4=xbd: oldy1=yhd:oldy2=yhg:oldy3=ybg:oldy4=ybd

end_sub

Sub Tourne()
  xhd=(cos(Angrad)*(xhdi))+((0-sin(Angrad))*yhdi)+xc
  yhd=(sin(Angrad)*(xhdi))+(cos(Angrad)*yhdi)+yc
  xhg=(cos(Angrad)*(xhgi))+((0-sin(Angrad))*(yhgi))+xc
  yhg=(sin(Angrad)*(xhgi))+(cos(Angrad)*yhgi)+yc
  xbg=(cos(Angrad)*(xbgi))+((0-sin(Angrad))*ybgi)+xc
  ybg=(sin(Angrad)*(xbgi))+(cos(Angrad)*ybgi)+yc
  xbd=(cos(Angrad)*(xbdi))+((0-sin(Angrad))*ybdi)+xc
  ybd=(sin(Angrad)*(xbdi))+(cos(Angrad)*ybdi)+yc
End_Sub

sub trans()
  DIM_LOCAL delta_x,delta_y
  delta_x=Pas*cos(Angrad):delta_y=Pas*sin(Angrad)
  xhd=xhd+delta_x:yhd=yhd+delta_y
  xhg=xhg+delta_x:yhg=yhg+delta_y
  xbg=xbg+delta_x:ybg=ybg+delta_y
  xbd=xbd+delta_x:ybd=ybd+delta_y
  xc=xc+delta_x:yc=yc+delta_y
end_sub

sub bouge()
  if esc=1 then terminate
  if tfg=1 then Angrad=Angrad - pi/20
  if tfd=1 then Angrad=Angrad + pi/20
  if tfh=1 then Pas= 5
  if tfb=1 then Pas=-5
  if ztp=1 then Pas=0
end_sub

sub vise()
  if mouse_right_down(1)=1
        cibx=mouse_x_position(1)
        ciby=mouse_y_position(1)
        grandx=(cibx-xc)
        grandy=(ciby-yc)
        hypo=sqr((grandx*grandx)+(grandy*grandy))
        CosAngTir=grandx/hypo
        SinAngTir=grandy/hypo
        caption 0,"TANK move ESC pour arrêter !!!  - Cible ("+str$(cibx)+";"+str$(ciby)+")"
  end_if
end_sub

t1:
  if key_down_code=cesc then esc=1
  if key_down_code=ctfg then tfg=1
  if key_down_code=ctfh then tfh=1
  if key_down_code=ctfd then tfd=1
  if key_down_code=ctfb then tfb=1
  if key_down_code=ztop then ztp=1
  bouge()
return

t2:
  if key_down_code=cesc then esc=0
  if key_down_code=ctfg then tfg=0
  if key_down_code=ctfh then tfh=0
  if key_down_code=ctfd then tfd=0
  if key_down_code=ctfb then tfb=0
  if key_down_code=ztop then ztp=0
return

boucle:
      bouge()
      vise()
      tourne()
      trans()
      Trace_tank()

return