FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Mah-Jong américain
par Jean Claude Hier à 19:37

» StratégoV8 et V9
par Jean Claude Hier à 13:18

» Problème avec Deepl
par Klaus Hier à 0:34

» Déformation d'image en trapèze
par Klaus Dim 14 Jan 2018 - 16:22

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» KGF_dll - nouvelles versions
par Minibug Ven 12 Jan 2018 - 0:21

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» HVIEWER
par Klaus Mer 10 Jan 2018 - 2:06

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

» Bonne fêtes de fin d'année ! Meilleurs Vœux 2018 !
par Jicehel Jeu 4 Jan 2018 - 17:28

» Mah-Jong international
par jjn4 Jeu 4 Jan 2018 - 16:55

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 game for practice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 6 Juil 2013 - 21:04

Danke für den Hinweis.

Ich habe Probleme mit den Zeilen 457 und 458.
Sie sollen wie die Zeilen 479 und 480 funktionieren.

Warum läuft die Zeit weiter, wenn die Fahrt beendet ist. "Endzeit"

@ Jicehel
@ All

Thanks for the note.

I have problems with the lines 457 and 458
They are like the lines 479 and 480 work.

Why the time continues to run when the run is completed. "End Time"

@ Jicehel
@ Tous

Merci pour la note.

J'ai des problèmes avec les lignes 457 et 458
Ils sont comme les lignes 479 et 480 travail.

Pourquoi le temps continue à fonctionner lorsque la course est terminée. "Heure de fin"

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 13 Juil 2013 - 14:37

@Jichel,
ich habe deine Vorlage angepasst.
Ich habe jedoch Schwierigkeiten beim Erstellen einer Pause, wenn die LKW in der
Endzone angekommen sind. Es sollte dann eine Standzeit laufen.
Für jede Ankunft individuell.
Die Pause sollte mit in die Tabelle eingesetzt werden. Wie folgt.
Horizontal, Vertikal, Pause - (A1,1), (A1,2), (A1,3)
Wenn es deine Zeit erlaubt, bitte hilf mir.

I have adapted your presentation.
Nevertheless, I have difficulties with the construction of a break, if the truck in that
Final zone have come. Then a state time should run.
For every arrival individually.
The break should be used with in the table. As follows.
Horizontally, Vertically, break - (A1,1), (A1,2), (A1,3)
If it permits your time, please help me.

j'ai adapté ta présentation.
Donc, j'ai des difficultés à l'élaboration d'une pause, si le CAMION dans elle
La zone finale sont arrivés. Un temps de place devait courir alors.
Pour chaque arrivée individuellement.
La pause devait être mise avec dans le tableau. Comme c'est indiqué plus loin.
Horizontalement, Verticalement, la pause - (A1,1), (A1,2), (A1,3)
Si cela permet ton temps, s'il vous plaît Aide moi.


Code:

 ' ******************************************************************************
 ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER *********************************
 ' ******************************************************************************
 '
 dim i%
 dim j%
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
top 0,0 : LEFT 0,0 : width 0,screen_x : height 0,SCREEN_Y-40
color 0,0,0,0                                              :' schwarz / black
caption 0,"SIMULATION LKW-VERKEHR FABRIK - LAGER "
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
 for i% = 1 to 20
 sub_menu 9700 + i% : parent 9700 + i%,9700
 select i%
 case 1 : caption 9701," STOP LKW all"
 case 2 : caption 9702," START LKW all "
' case 3 : caption 9703," START LKW02 "
' case 4 : caption 9704," START LKW03 "
' case 5 : caption 9705," START LKW04 "
' case 6 : caption 9706," START LKW05 "
' case 7 : caption 9707," START LKW06 "
' case 8 : caption 9708," START LKW07 "
' case 9 : caption 9709," START LKW08 "
' case 10: caption 9710," START LKW09 "
' case 11: caption 9711," START LKW10 "
' case 20: caption 9720,"  "
end_select
next i%
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS%      : SEITE_RECHTS% = (SCREEN_X - 130-40)
DIM SEITE_LINKS%      : SEITE_LINKS%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Gebäude DEFINIEREN ***************************
DIM SEITE_RECHTS01%    : SEITE_RECHTS01% = (SCREEN_X - 100)
DIM SEITE_LINKS01%    : SEITE_LINKS01%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS02%    : SEITE_RECHTS02% = (SCREEN_X - 120)
DIM SEITE_LINKS02%    : SEITE_LINKS02%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS03%    : SEITE_RECHTS03% = (SCREEN_X - 120 -95 -42 +5)
DIM SEITE_LINKS03%    : SEITE_LINKS03%  = 0095
' ******************************************************************************
DIM SEITE_OBEN%      : SEITE_OBEN%  = 000
DIM SEITE_UNTEN%    : SEITE_UNTEN%  = 000
'
' *** FABRIK erstellen *********************************************************
edit 9800 :color 9800,000,255,000
TOP 9800,108 :LEFT 9800,10 :HEIGHT 9800,600 :WIDTH 9800,75
' *** Andockstellen Fabrik *****************************************************
j% = 0
for  i% = 8001 to 8020
edit i% :top i%,110+j% :left i%,15 :width  i%,60 :height i%,25 :j% = j% + 30
next i%
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON 9810
TOP 9810,108 : LEFT 9810,85 : HEIGHT 9810,600 : WIDTH 9810,19
' *** Zulieferer erstellen *****************************************************
edit 9820 : text 9820,"  Lager01" : :color 9820,000,255,000
TOP 9820,108 : LEFT 9820,SEITE_RECHTS01% : HEIGHT 9820,600 : WIDTH 9820,75
' *** Andockstellen Zulieferer *************************************************
j% = 0
for  i% = 8021 to 8040
edit i% :top i%,110+j% :left i%,SEITE_RECHTS01% + 10 :width i%,60 :height i%,25 :j% = j% + 30
next  i%
' *** RAMPEN Zulieferer erstellen **********************************************
BUTTON 9830
TOP 9830,108 : LEFT 9830,SEITE_RECHTS02% : HEIGHT 9830,600 : WIDTH 9830,19
' ******************************************************************************
' *** LABEL ERSTELLEN **********************************************************
label main
label halt
label start
label FAHRTDATENFUERLKW
'
' ******************************************************************************
dim sens%
dim dir%
dim LKW%
dim Anzahl_LKW%      : Anzahl_LKW%    = 4
dim Anzahl_Fahrten%  : Anzahl_Fahrten% = 11
dim Z1%
'
' *** Geschwindigkeit pro LKW **************************************************
 dim v%(Anzahl_LKW%)
'
 v%(1) = 5
 v%(2) = 4
 v%(3) = 9
 v%(4) = 7
 '
 ' ***
 dim RICHTUNG_horizontal%(Anzahl_LKW%,Anzahl_Fahrten%)
 ' ***
 dim RICHTUNG_vertikal%(Anzahl_LKW%,Anzahl_Fahrten%)
 ' ***
 dim delta_horizontal%(Anzahl_LKW%)
 ' ***
 dim delta_vertikal%(Anzahl_LKW%)
 ' ***
 dim pos%(Anzahl_LKW%)
' ******************************************************************************
 Gosub FAHRTDATENFUERLKW
'
' ******************************************************************************
ON_CLICK 9701,halt
ON_CLICK 9702,start
 ' ON_CLICK 9703,area03
 ' ON_CLICK 9704,area04
 ' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
 ' ON_CLICK 9720,start
 timer 9998 : timer_interval 9998,60 : on_timer 9998,main : timer_off 9998
 '
 end
 '
 ' *** TIMER INITIALISIERUNG ***************************************************
 start:
 timer_on 9998
 return
 '
' *****************************************************************************
' *****************************************************************************
 main:
 timer_off_all
 '
  for LKW% = 1 to Anzahl_LKW%

 '
 if (left(LKW%)<SEITE_LINKS%) or (left(LKW%)>SEITE_RECHTS02%) then v%(LKW%) = 0 - v%(LKW%)

 if delta_horizontal%(LKW%)=0 and delta_vertikal%(LKW%) = 0

 sens% = v%(LKW%)/abs(v%(LKW%))

 pos%(LKW%) = pos%(LKW%) + sens%

 if pos%(LKW%) < 1 then pos%(LKW%) = 1

 if pos%(LKW%) > 11 then pos%(LKW%) = Anzahl_Fahrten%    :' <--  Anzahl der Fahrtwechsel

 delta_horizontal%(LKW%) = sens% * RICHTUNG_horizontal%(LKW%,pos%(LKW%))

 delta_vertikal%(LKW%) = sens% * RICHTUNG_vertikal%(LKW%,pos%(LKW%))

 end_if
 ' ***************************
 if abs(delta_horizontal%(LKW%)) > 0

 dir% = RICHTUNG_horizontal%(LKW%,pos%(LKW%))/abs(RICHTUNG_horizontal%(LKW%,pos%(LKW%)))

 delta_horizontal%(LKW%) = abs(delta_horizontal%(LKW%)) - abs(v%(LKW%))

 if delta_horizontal%(LKW%) < 0

 left LKW%,left(LKW%) + (abs(v%(LKW%)) + delta_horizontal%(LKW%))*sens%*dir%

 delta_horizontal%(LKW%) = 0

 else

 left LKW%,left(LKW%) + v%(LKW%)*dir%

 end_if

 end_if
 ' ***************************
 if abs(delta_vertikal%(LKW%)) > 0

 dir% = RICHTUNG_vertikal%(LKW%,pos%(LKW%))/abs(RICHTUNG_vertikal%(LKW%,pos%(LKW%)))

 delta_vertikal%(LKW%) = abs(delta_vertikal%(LKW%)) - abs(v%(LKW%))

 if delta_vertikal%(LKW%) < 0

 top LKW% ,top(LKW%) + (abs(v%(LKW%)) + delta_vertikal%(LKW%))*sens%*dir%

 delta_vertikal%(LKW%) = 0

 else

 top LKW%,top(LKW%) + v%(LKW%)*dir%

 end_if

 end_if
 '
 next LKW%
 '
 timer_on 9998
 '
 return
'
' ******************************************************************************
' *** PROGRAMM ANHALTEN ********************************************************
halt:
timer_off_all
terminate
' ******************************************************************************
' ******************************************************************************
FAHRTDATENFUERLKW:
'
' *** SYMBOLE FÜR LKW erstellen ************************************************
for    i% = 1 to Anzahl_LKW%
edit  i%
top    i%,80+30*i%
'
if i% = 1 then left i%,SEITE_LINKS%
if i% = 2 then left i%,SEITE_LINKS%
if i% = 3 then left i%,SEITE_LINKS%
if i% = 4 then left i%,SEITE_RECHTS03%+95
'
width  i%,45 :height i%,25
'
if i% = 1 then color i%,255,000,000
if i% = 2 then color i%,000,255,000
if i% = 3 then color i%,020,200,255
if i% = 4 then color i%,240,240,020
'
text  i%,"LKW"+STR$(i%)
'
if i% = 1 then pos%(i%) = 0
if i% = 2 then pos%(i%) = 0
if i% = 3 then pos%(i%) = 0
if i% = 4 then pos%(i%) = 0
next  i%
' *** Text für Andockstellen links *********************************************
text 8001," Tor 1  " :text 8002," Tor 2  " :text 8003," Tor 3  " :text 8004," Tor 4  "
text 8005," Tor 5  " :text 8006," Tor 6  " :text 8007," Tor 7  " :text 8008," Tor 8  "
text 8009," Tor 9  " :text 8010," Tor 10 " :text 8011," Tor 11 " :text 8012," Tor 12 "
text 8013," Tor 13 " :text 8014," Tor 14 " :text 8015," Tor 15 " :text 8016," Tor 16 "
text 8017," Tor 17 " :text 8018," Tor 18 " :text 8019," Tor 19 " :text 8020," Tor 20 "
' *** Text für Andockstellen rechts ********************************************
text 8021," Co. AA" :text 8022," Co. BB" :text 8023," Co. CC" :text 8024," Co. DD"
text 8025," Co. EE" :text 8026," Co. FF" :text 8027," Co. GG" :text 8028," Co. HH"
text 8029," Co. II" :text 8030," Co. JJ" :text 8031," Co. KK" :text 8032," Co. LL"
text 8033," Co. MM" :text 8034," Co. NN" :text 8035," Co. OO" :text 8036," Co. PP"
text 8037," Co. QQ" :text 8038," Co. RR" :text 8039," Co. SS" :text 8040," Co. TT"
' ******************************************************************************
' ------------------------------------------------------------------------------
'  Richtung nach rechts  =  (SEITE_RECHTS03%/2)
'  Richtung nach links    =  0-(SEITE_RECHTS03%/2)
'  Richtung nach unten    =  POSITIV    xxx    STEP 30 - 510
'  Richtung nach oben    =  NEGATIV  -xxx    STEP -30 - 510
' ------------------------------------------------------------------------------
' *** DATEN FÜR LKW 001 ********************************************************
 Z1% = 1
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = 000                  : RICHTUNG_vertikal%(Z1%,02) = 120
 RICHTUNG_horizontal%(Z1%,03) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000                  : RICHTUNG_vertikal%(Z1%,07) = -120
 RICHTUNG_horizontal%(Z1%,08) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000                  : RICHTUNG_vertikal%(Z1%,11) = 000
' *** DATEN FÜR LKW 002 ********************************************************
 Z1% = 2
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = 000                : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000                : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000                : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000                : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000                : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000                : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000                : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000                : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000                : RICHTUNG_vertikal%(Z1%,11) = 000
' *** DATEN FÜR LKW 003 ********************************************************
 Z1% = 3
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 510
 RICHTUNG_horizontal%(Z1%,02) = 000                : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
' *** DATEN FÜR LKW 004 ********************************************************
 Z1% = 4
 RICHTUNG_horizontal%(Z1%,01) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 180
 RICHTUNG_horizontal%(Z1%,02) = 000                  : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
'
Return

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Sam 13 Juil 2013 - 20:36

Pas eu beaucoup de temps pour réfléchir, mais il faut voir pour gérer 2 choses:
D'une par remplacer le timer_all_off par le timer_off du timer car à priori, sinon ça peut créer des problème avec le timer qui est assez rapide. Je ne sais pas comment c'est implémenté, mais il semble que le temps qu'il fasse le timer_all_off il a le temps de mettre plusieurs requète en attente. Donc au bout d'un certain temps, ça affiche une erreur.

Après, je n'ai pas trop réfléchi, mais je pense qu'il faut faire un truc du genre :
Code:
main:
timer_off 9998

 '
  for LKW% = 1 to Anzahl_LKW%

 '
 if (left(LKW%)<SEITE_LINKS%) or (left(LKW%)>SEITE_RECHTS02%) then v%(LKW%) = 0 - v%(LKW%)

 if delta_horizontal%(LKW%)=0 and delta_vertikal%(LKW%) = 0

 sens% = v%(LKW%)/abs(v%(LKW%))

 pos%(LKW%) = pos%(LKW%) + sens%

 if pos%(LKW%) < 1 then pos%(LKW%) = 1 : v%(LKW%) = 0 - v%(LKW%)

 if pos%(LKW%) > Anzahl_Fahrten% then pos%(LKW%) = Anzahl_Fahrten%  : v%(LKW%) = 0 - v%(LKW%) :' <--  Anzahl der Fahrtwechsel

 delta_horizontal%(LKW%) = sens% * RICHTUNG_horizontal%(LKW%,pos%(LKW%))

 delta_vertikal%(LKW%) = sens% * RICHTUNG_vertikal%(LKW%,pos%(LKW%))

 end_if
 

 ' ***************************
 if abs(delta_horizontal%(LKW%)) > 0

 dir% = RICHTUNG_horizontal%(LKW%,pos%(LKW%))/abs(RICHTUNG_horizontal%(LKW%,pos%(LKW%)))

 delta_horizontal%(LKW%) = abs(delta_horizontal%(LKW%)) - abs(v%(LKW%))

 if delta_horizontal%(LKW%) < 0

 left LKW%,left(LKW%) + (abs(v%(LKW%)) + delta_horizontal%(LKW%))*sens%*dir%

 delta_horizontal%(LKW%) = 0

 else

 left LKW%,left(LKW%) + v%(LKW%)*dir%

 end_if

 end_if
 ' ***************************
 if abs(delta_vertikal%(LKW%)) > 0

 dir% = RICHTUNG_vertikal%(LKW%,pos%(LKW%))/abs(RICHTUNG_vertikal%(LKW%,pos%(LKW%)))

 delta_vertikal%(LKW%) = abs(delta_vertikal%(LKW%)) - abs(v%(LKW%))

 if delta_vertikal%(LKW%) < 0

 top LKW% ,top(LKW%) + (abs(v%(LKW%)) + delta_vertikal%(LKW%))*sens%*dir%

 delta_vertikal%(LKW%) = 0

 else

 top LKW%,top(LKW%) + v%(LKW%)*dir%

 end_if

 end_if
 '
 next LKW%
 '
 timer_on 9998
 '
 return

Mais bon, il faudrait prendre un papier et un crayon et réfléchir calmement, mais pas ce soir: ce soir pizza puis direction Meaux pour un son et lumière + feu d'artifice Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 13 Juil 2013 - 20:52

@Jichel,
Lass dir Zeit, ich bin diese Woche auf Dienstreise.
Aber ich hoffe immer noch, daß andere Mitglieder helfen.
Erst mal vielen Dank.

Give to you time, I am this week on official journey.
But I still hope that other members help.
For the moment many thanks.

Donne du temps, je suis cette semaine sur la mission.
Mais j'espère encore que les autres membres aident.
Remercie seulement donc plusieurs.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 14 Juil 2013 - 14:42

Hallo Panoramics,

Klaus hatte ein Programm Stundenplan veröffentlicht.
Leider kann ich es nicht finden.
Wer hat einen "LinK" ?

Klaus had published a programme Timetable.
Unfortunately, I cannot find it.
Who has a "LinK" ?

Klaus avait publié un programme Emploi du temps.
Malheureusement je ne peux pas le trouver.
Qui a un "LinK" ?

Danke
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 14 Juil 2013 - 22:40

Hallo an alle,

Hier die letzte Version von Spiel für die Praxis.
Das Programm ist für eine Nachricht zulang.
Deshalb in 3 Teilen und diese werden gepflegt.

Es sind 10 LKW's eingerichtet.
Kann auf mehr LKW's erweitert werden.
Es kann jeder LKW einzeln gefahren werden.
Es sind bis 99 Fahrtrichtungen möglich.

Es fehlt noch:
Pausenzeit an den Beladestellen.
Menü ist noch nicht optimal.

Mitarbeit und neue Ideen sind willkommen.

Hello, to everybody,

Here the last version of play for the practise.
The programme is for news help yourselves.
Therefore, in 3 parts and this are maintained.

It are furnished 10 LKW's.
Can be extended on more LKW's.
It can be driven of every truck individually.
It are possible to 99 directions of the traffic.

It is still absent:
Break time at the loading places.
Menu is not optimum yet.

Cooperation and new ideas are welcome.

Salut à tous,

Ici la dernière version du jeu pour la pratique.
Le programme est pour une nouvelle sers-toi.
Pour cette raison dans 3 parties et celui-ci sont soignés.

C'est aménagés 10 LKW's.
Peut être élargi sur plus de LKW's.
Cela peut être conduit séparément de chaque CAMION.
C'est possibles jusqu'à 99 sens de la marche.

Il manque encore :
Temps de pauses aux lieux de coffre.
Le menu est pas encore optimal.

La collaboration et les nouvelles idées sont bienvenues.


Dernière édition par Severin le Dim 14 Juil 2013 - 22:53, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 14 Juil 2013 - 22:48

Teil 1 -14.07.2013-

Code:

 ' ******************************************************************************
 ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER *********************************
 ' ******************************************************************************
 '
 dim i%
 dim j%
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
top 0,0 : LEFT 0,0 : width 0,screen_x : height 0,SCREEN_Y-40
color 0,0,0,0                                              :' schwarz / black
caption 0,"SIMULATION LKW-VERKEHR FABRIK - LAGER "
' *** Bilder laden *************************************************************
DIM DIR_A$
'    DIR_A$ = "c:\"
DIM Speicherplatz_Bild01$
'    Speicherplatz_Bild01$ = DIR_A$ + "1PC-ZEIT\03_PC-Zeit_BILDER\LKW_Auflierer.BMP"
Speicherplatz_Bild01$ = "LKW_Auflieger.BMP"
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
 for i% = 1 to 20
 sub_menu 9700 + i% : parent 9700 + i%,9700
 select i%
 case 01 : caption 9701," STOP LKW all"
 case 02 : caption 9702," START LKW all "
 case 03 : caption 9703," START LKW01 "
 case 4 : caption 9704," START LKW02 "
 case 5 : caption 9705," START LKW03 "
 case 6 : caption 9706," START LKW04 "
 case 7 : caption 9707," START LKW05 "
 case 8 : caption 9708," START LKW06 "
 case 9 : caption 9709," START LKW07 "
 case 10: caption 9710," START LKW08 "
 case 11: caption 9711," START LKW09 "
 case 12: caption 9712," START LKW10 "
' case 20: caption 9720,"  "
end_select
next i%
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS%      : SEITE_RECHTS%  = (SCREEN_X - 130-40)
DIM SEITE_LINKS%      : SEITE_LINKS%    = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Gebäude DEFINIEREN ***************************
DIM SEITE_RECHTS01%    : SEITE_RECHTS01% = (SCREEN_X - 100)
DIM SEITE_LINKS01%    : SEITE_LINKS01%  = 0095
DIM SEITE_OBEN%        : SEITE_OBEN%    = 108
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS02%    : SEITE_RECHTS02% = (SCREEN_X - 120)
DIM SEITE_LINKS02%    : SEITE_LINKS02%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS03%    : SEITE_RECHTS03% = (SCREEN_X - 120 -95 -42 +5)
DIM SEITE_LINKS03%    : SEITE_LINKS03%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Andockstellen DEFINIEREN *********************
DIM SEITE_OBEN04%      : SEITE_OBEN04%  = SEITE_OBEN% + 2
DIM SEITE_UNTEN%      : SEITE_UNTEN%    = 000
' *** DARSTELLUNGS-BILDSCHIRM für LKW Position DEFINIEREN *********************
DIM SEITE_OBEN05%      : SEITE_OBEN05%  = SEITE_OBEN% - 28
' *** Gebäude Linke Seite erstellen ********************************************
edit 9800 :color 9800,000,255,000
TOP 9800,SEITE_OBEN% :LEFT 9800,10 :HEIGHT 9800,600 :WIDTH 9800,75
' *** Andockstellen Linke Seite erstellen **************************************
BUTTON 9810 :TOP 9810,SEITE_OBEN% :LEFT 9810,85 :HEIGHT 9810,600 :WIDTH 9810,19
' *** Gebäude Rechte Seite erstellen *******************************************
edit 9820 :color 9820,000,255,000
TOP 9820,SEITE_OBEN% :LEFT 9820,SEITE_RECHTS01% :HEIGHT 9820,600 :WIDTH 9820,75
' *** Andockstellen Rechte Seite erstellen *************************************
BUTTON 9830 :TOP 9830,SEITE_OBEN% :LEFT 9830,SEITE_RECHTS02% :HEIGHT 9830,600 :WIDTH 9830,19
' *** Andockstellen Linke Seite leere Textfelder erstellen *********************
j% = 0
for  i% = 8001 to 8020
edit i% :top i%,SEITE_OBEN04% + j% :left i%,15 :width i%,60 :height i%,25 :j% = j% + 30
next i%
' *** Andockstellen Rechte Seite leere Textfelder erstellen ********************
j% = 0
for  i% = 8021 to 8040
edit i% :top i%,SEITE_OBEN04% + j% :left i%,SEITE_RECHTS01% + 10 :width i%,60 :height i%,25 :j% = j% + 30
next i%
' ******************************************************************************
' *** LABEL ERSTELLEN **********************************************************
label main                    : ' Start Hauptrogramm
label halt_Lkw_all            : ' Stop  für alle  LKW
label start_Lkw_all          : ' Start für alle  LKW
label Start_Lkw_01            : ' Start für einen LKW
label Start_Lkw_02            : ' Start für einen LKW
label Start_Lkw_03            : ' Start für einen LKW
label Start_Lkw_04            : ' Start für einen LKW
label Start_Lkw_05            : ' Start für einen LKW
label Start_Lkw_06            : ' Start für einen LKW
label Start_Lkw_07            : ' Start für einen LKW
label Start_Lkw_08            : ' Start für einen LKW
label Start_Lkw_09            : ' Start für einen LKW
label Start_Lkw_10            : ' Start für einen LKW
label FAHRTDATENFUERLKW
'
' ******************************************************************************
dim sens%            : '
dim dir%              : '
dim LKW%              : '
dim Anzahl_LKW%      : Anzahl_LKW%    = 10
dim Anzahl_Fahrten%  : Anzahl_Fahrten% = 99
dim Zaehler_LKW%      : Zaehler_LKW%    = 1
dim Z1%              :' Variable für Anzahl_LKW% in Datentabelle
'
' *** Geschwindigkeit pro LKW **************************************************
 dim v%(Anzahl_LKW%)
 v%(01) = 5          : ' Geschwindigkeit für LKW_01
 v%(02) = 4          : ' Geschwindigkeit für LKW_02
 v%(03) = 9          : ' Geschwindigkeit für LKW_03
 v%(04) = 7          : ' Geschwindigkeit für LKW_04
 v%(05) = 7          : ' Geschwindigkeit für LKW_05
 v%(06) = 7          : ' Geschwindigkeit für LKW_06
 v%(07) = 7          : ' Geschwindigkeit für LKW_07
 v%(08) = 7          : ' Geschwindigkeit für LKW_08
 v%(09) = 7          : ' Geschwindigkeit für LKW_09
 v%(10) = 1          : ' Geschwindigkeit für LKW_10
 ' *** Variablen für horizontal Fahrt ******************************************
 dim RICHTUNG_horizontal%(Anzahl_LKW%,Anzahl_Fahrten%)
' *** Variablen für vertikal Fahrt *********************************************
 dim RICHTUNG_vertikal%(Anzahl_LKW%,Anzahl_Fahrten%)
 ' ***
 dim delta_horizontal%(Anzahl_LKW%)
 ' ***
 dim delta_vertikal%(Anzahl_LKW%)
 ' ***
 dim pos%(Anzahl_LKW%)
' ******************************************************************************
 Gosub FAHRTDATENFUERLKW
'
' ******************************************************************************
ON_CLICK 9701,halt_Lkw_all
ON_CLICK 9702,start_Lkw_all
ON_CLICK 9703,Start_Lkw_01
ON_CLICK 9704,Start_Lkw_02
ON_CLICK 9705,Start_Lkw_03
ON_CLICK 9706,Start_Lkw_04
ON_CLICK 9707,Start_Lkw_05
ON_CLICK 9708,Start_Lkw_06
ON_CLICK 9709,Start_Lkw_07
ON_CLICK 9710,Start_Lkw_08
ON_CLICK 9711,Start_Lkw_09
ON_CLICK 9712,Start_Lkw_10
'
' Time Interval = 10  <--- Je kleiner um so schneller und flüssiger
timer 9998 : timer_interval 9998,10 : on_timer 9998,main : timer_off 9998
'
end
' *** TIMER INITIALISIERUNG ****************************************************
start_Lkw_all:
timer_on 9998
inactive 9702 :inactive 9703 :inactive 9704 :inactive 9705 :inactive 9706
inactive 9707 :inactive 9708 :inactive 9709 :inactive 9710 :inactive 9711
inactive 9712
return
'
Start_Lkw_01:
Anzahl_LKW% = 1 :Zaehler_LKW% = 1 :timer_on 9998
inactive 9702 : inactive 9703
return
'
Start_Lkw_02:
Anzahl_LKW%  = 2  : Zaehler_LKW%    = 2 :timer_on 9998
inactive 9702 : inactive 9704
return
'
Start_Lkw_03:
Anzahl_LKW%    = 3  : Zaehler_LKW%    = 3 :timer_on 9998
inactive 9702  : inactive 9705
return
'
Start_Lkw_04:
Anzahl_LKW%    = 4  : Zaehler_LKW%    = 4 :timer_on 9998
inactive 9702  : inactive 9706
return
'
Start_Lkw_05:
Anzahl_LKW%    = 5  : Zaehler_LKW%    = 5 :timer_on 9998
inactive 9702  : inactive 9707
return
'
Start_Lkw_06:
Anzahl_LKW%    = 6  : Zaehler_LKW%    = 6 :timer_on 9998
inactive 9702  : inactive 9708
return
'
Start_Lkw_07:
Anzahl_LKW%    = 7  : Zaehler_LKW%    = 7 :timer_on 9998
inactive 9702  : inactive 9709
return
'
Start_Lkw_08:
Anzahl_LKW%    = 8  : Zaehler_LKW%    = 8 :timer_on 9998
inactive 9702  : inactive 9710
return
'
Start_Lkw_09:
Anzahl_LKW%    = 9  : Zaehler_LKW%    = 9 :timer_on 9998
inactive 9702  : inactive 9711
return
'
Start_Lkw_10:
Anzahl_LKW%    = 10  : Zaehler_LKW%    = 10 :timer_on 9998
inactive 9702  : inactive 9712
return
'
' *****************************************************************************
' *****************************************************************************
main:
timer_off_all                                    :' Timer ausschalten
'
for LKW% = Zaehler_LKW% to Anzahl_LKW%            :' Beginn Zählschleife Anzahl LKW

 '
 if (left(LKW%)<SEITE_LINKS%) or (left(LKW%)>SEITE_RECHTS02%) then v%(LKW%) = 0 - v%(LKW%)

 if delta_horizontal%(LKW%) = 0 and delta_vertikal%(LKW%) = 0

 sens% = v%(LKW%)/abs(v%(LKW%))

 pos%(LKW%) = pos%(LKW%) + sens%

 if pos%(LKW%) < 1 then pos%(LKW%) = 1

 if pos%(LKW%) > 99 then pos%(LKW%) = Anzahl_Fahrten%    :' <--  Anzahl der Fahrtwechsel

 delta_horizontal%(LKW%) = sens% * RICHTUNG_horizontal%(LKW%,pos%(LKW%))

 delta_vertikal%(LKW%)  = sens% * RICHTUNG_vertikal%(LKW%,pos%(LKW%))

 end_if

' *** Horizontal Bewegung ******************************************************

 if abs(delta_horizontal%(LKW%)) > 0

 dir% = RICHTUNG_horizontal%(LKW%,pos%(LKW%))/abs(RICHTUNG_horizontal%(LKW%,pos%(LKW%)))

 delta_horizontal%(LKW%) = abs(delta_horizontal%(LKW%)) - abs(v%(LKW%))

 if delta_horizontal%(LKW%) < 0

 left LKW%,left(LKW%) + (abs(v%(LKW%)) + delta_horizontal%(LKW%))*sens%*dir%

 delta_horizontal%(LKW%) = 0

 else

 left LKW%,left(LKW%) + v%(LKW%)*dir%

 end_if

 end_if

' *** Vertikal Bewegung ********************************************************

 if abs(delta_vertikal%(LKW%)) > 0

 dir% = RICHTUNG_vertikal%(LKW%,pos%(LKW%))/abs(RICHTUNG_vertikal%(LKW%,pos%(LKW%)))

 delta_vertikal%(LKW%) = abs(delta_vertikal%(LKW%)) - abs(v%(LKW%))

 if delta_vertikal%(LKW%) < 0

 top LKW% ,top(LKW%) + (abs(v%(LKW%)) + delta_vertikal%(LKW%))*sens%*dir%

 delta_vertikal%(LKW%) = 0

 else

 top LKW%,top(LKW%) + v%(LKW%)*dir%

 end_if

 end_if
 '
 next LKW%                  :' End Zählschleife Anzahl LKW
 '
 timer_on 9998              :' Timer einschalten
 '
 return                    :' Rücksprung nach
'
' ******************************************************************************
' *** PROGRAMM ANHALTEN ********************************************************
halt_Lkw_all:
timer_off_all
terminate
' ******************************************************************************
' ******************************************************************************
FAHRTDATENFUERLKW:
'
' *** SYMBOLE FÜR LKW erstellen ************************************************
for    i% = 1 to Anzahl_LKW%
' *** LKW als Symbol ***********************************************************
edit  i%
' *** LKW als Bild *************************************************************
' picture  i%
top    i%,SEITE_OBEN05% + (30*i%)
' ******************************************************************************
' *** Position links  =  SEITE_LINKS%
' *** Position rechts =  SEITE_RECHTS03%+95
' ******************************************************************************
if i% = 01 then left i%,SEITE_LINKS%
if i% = 02 then left i%,SEITE_LINKS%
if i% = 03 then left i%,SEITE_LINKS%
if i% = 04 then left i%,SEITE_RECHTS03%+95
if i% = 05 then left i%,SEITE_LINKS%
if i% = 06 then left i%,SEITE_LINKS%
if i% = 07 then left i%,SEITE_LINKS%
if i% = 08 then left i%,SEITE_LINKS%
if i% = 09 then left i%,SEITE_LINKS%
if i% = 10 then left i%,SEITE_LINKS%
' *** Abmessung der LKW's ******************************************************
width  i%,45 :height i%,25
' *** LKW als Bild *************************************************************
' FILE_LOAD  i%,Speicherplatz_Bild01$
' STRETCH_ON i%
' SHOW      i%
' *** LKW als Symbol ***********************************************************
if i% = 01 then color i%,255,000,000
if i% = 02 then color i%,000,255,000
if i% = 03 then color i%,020,200,255
if i% = 04 then color i%,240,240,020
if i% = 05 then color i%,255,255,255
if i% = 06 then color i%,255,255,255
if i% = 07 then color i%,255,255,255
if i% = 08 then color i%,255,255,255
if i% = 09 then color i%,255,255,255
if i% = 10 then color i%,255,255,255
' *** Beschriftung der LKW's ***************************************************
text  i%,"Linie "+STR$(i%)
'
if i% = 01 then pos%(i%) = 0
if i% = 02 then pos%(i%) = 0
if i% = 03 then pos%(i%) = 0
if i% = 04 then pos%(i%) = 0
if i% = 05 then pos%(i%) = 0
if i% = 06 then pos%(i%) = 0
if i% = 07 then pos%(i%) = 0
if i% = 08 then pos%(i%) = 0
if i% = 09 then pos%(i%) = 0
if i% = 10 then pos%(i%) = 0
next  i%
' *** Text für Andockstellen links *********************************************
text 8001," Tor 1  " :text 8002," Tor 2  " :text 8003," Tor 3  " :text 8004," Tor 4  "
text 8005," Tor 5  " :text 8006," Tor 6  " :text 8007," Tor 7  " :text 8008," Tor 8  "
text 8009," Tor 9  " :text 8010," Tor 10 " :text 8011," Tor 11 " :text 8012," Tor 12 "
text 8013," Tor 13 " :text 8014," Tor 14 " :text 8015," Tor 15 " :text 8016," Tor 16 "
text 8017," Tor 17 " :text 8018," Tor 18 " :text 8019," Tor 19 " :text 8020," Tor 20 "
' *** Text für Andockstellen rechts ********************************************
text 8021," Co. AA" :text 8022," Co. BB" :text 8023," Co. CC" :text 8024," Co. DD"
text 8025," Co. EE" :text 8026," Co. FF" :text 8027," Co. GG" :text 8028," Co. HH"
text 8029," Co. II" :text 8030," Co. JJ" :text 8031," Co. KK" :text 8032," Co. LL"
text 8033," Co. MM" :text 8034," Co. NN" :text 8035," Co. OO" :text 8036," Co. PP"
text 8037," Co. QQ" :text 8038," Co. RR" :text 8039," Co. SS" :text 8040," Co. TT"
' ******************************************************************************
' ------------------------------------------------------------------------------
'  Richtung nach rechts  =  (SEITE_RECHTS03%/2)
'  Richtung nach links    =  0-(SEITE_RECHTS03%/2)
'  Richtung nach unten    =  POSITIV    xxx    STEP 30 - 510
'  Richtung nach oben    =  NEGATIV  -xxx    STEP -30 - 510
' ------------------------------------------------------------------------------
' *** DATEN FÜR LKW 001 ********************************************************
 Z1% = 1
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/4)  : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = 000                  : RICHTUNG_vertikal%(Z1%,02) = 120
 RICHTUNG_horizontal%(Z1%,03) = 0-(SEITE_RECHTS03%/4) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000                  : RICHTUNG_vertikal%(Z1%,07) = -120
 RICHTUNG_horizontal%(Z1%,08) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = (SEITE_RECHTS03%/2)  : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000                  : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' ******************************************************************************
' *** End Teil 1 ***************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 14 Juil 2013 - 22:51

Teil 2-14.07.2013-

Code:
' ******************************************************************************
' *** Start Teil 2 *************************************************************
' ******************************************************************************
' *** DATEN FÜR LKW 002 ********************************************************
 Z1% = 2
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = 000                : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000                : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000                : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000                : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000                : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000                : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000                : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000                : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000                : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' *** DATEN FÜR LKW 003 ********************************************************
 Z1% = 3
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 510
 RICHTUNG_horizontal%(Z1%,02) = 000                : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,09) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' *** DATEN FÜR LKW 004 ********************************************************
 Z1% = 4
 RICHTUNG_horizontal%(Z1%,01) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 180
 RICHTUNG_horizontal%(Z1%,02) = 000                  : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' *** DATEN FÜR LKW 005 ********************************************************
 Z1% = 5
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' *** DATEN FÜR LKW 006 ********************************************************
 Z1% = 6
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' ******************************************************************************
' ******************************************************************************
' *** End Teil 2 ***************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 14 Juil 2013 - 22:52

Teil 3-14.07.2013-

Code:
' ******************************************************************************
' *** Start Teil 3 *************************************************************
' ******************************************************************************
' *** DATEN FÜR LKW 007 ********************************************************
 Z1% = 7
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' ******************************************************************************
' *** DATEN FÜR LKW 008 ********************************************************
 Z1% = 8
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' ******************************************************************************
' *** DATEN FÜR LKW 009 ********************************************************
 Z1% = 9
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 000 : RICHTUNG_vertikal%(Z1%,97) = 000
 RICHTUNG_horizontal%(Z1%,98) = 000 : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
' ******************************************************************************
' *** DATEN FÜR LKW 010 ********************************************************
 Z1% = 10
 RICHTUNG_horizontal%(Z1%,01) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,01) = 000
 RICHTUNG_horizontal%(Z1%,02) = (SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,02) = 000
 RICHTUNG_horizontal%(Z1%,03) = 000 : RICHTUNG_vertikal%(Z1%,03) = 000
 RICHTUNG_horizontal%(Z1%,04) = 000 : RICHTUNG_vertikal%(Z1%,04) = 000
 RICHTUNG_horizontal%(Z1%,05) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,06) = 000 : RICHTUNG_vertikal%(Z1%,05) = 000
 RICHTUNG_horizontal%(Z1%,07) = 000 : RICHTUNG_vertikal%(Z1%,06) = 000
 RICHTUNG_horizontal%(Z1%,08) = 000 : RICHTUNG_vertikal%(Z1%,07) = 000
 RICHTUNG_horizontal%(Z1%,09) = 000 : RICHTUNG_vertikal%(Z1%,08) = 000
 RICHTUNG_horizontal%(Z1%,10) = 000 : RICHTUNG_vertikal%(Z1%,10) = 000
 RICHTUNG_horizontal%(Z1%,11) = 000 : RICHTUNG_vertikal%(Z1%,11) = 000
 RICHTUNG_horizontal%(Z1%,12) = 000 : RICHTUNG_vertikal%(Z1%,12) = 000
 RICHTUNG_horizontal%(Z1%,13) = 000 : RICHTUNG_vertikal%(Z1%,13) = 000
 RICHTUNG_horizontal%(Z1%,14) = 000 : RICHTUNG_vertikal%(Z1%,14) = 000
 RICHTUNG_horizontal%(Z1%,15) = 000 : RICHTUNG_vertikal%(Z1%,15) = 000
 RICHTUNG_horizontal%(Z1%,16) = 000 : RICHTUNG_vertikal%(Z1%,16) = 000
 RICHTUNG_horizontal%(Z1%,17) = 000 : RICHTUNG_vertikal%(Z1%,17) = 000
 RICHTUNG_horizontal%(Z1%,18) = 000 : RICHTUNG_vertikal%(Z1%,18) = 000
 RICHTUNG_horizontal%(Z1%,19) = 000 : RICHTUNG_vertikal%(Z1%,19) = 000
 RICHTUNG_horizontal%(Z1%,20) = 000 : RICHTUNG_vertikal%(Z1%,20) = 000
 RICHTUNG_horizontal%(Z1%,21) = 000 : RICHTUNG_vertikal%(Z1%,21) = 000
 RICHTUNG_horizontal%(Z1%,22) = 000 : RICHTUNG_vertikal%(Z1%,22) = 000
 RICHTUNG_horizontal%(Z1%,23) = 000 : RICHTUNG_vertikal%(Z1%,23) = 000
 RICHTUNG_horizontal%(Z1%,24) = 000 : RICHTUNG_vertikal%(Z1%,24) = 000
 RICHTUNG_horizontal%(Z1%,25) = 000 : RICHTUNG_vertikal%(Z1%,25) = 000
 RICHTUNG_horizontal%(Z1%,26) = 000 : RICHTUNG_vertikal%(Z1%,26) = 000
 RICHTUNG_horizontal%(Z1%,27) = 000 : RICHTUNG_vertikal%(Z1%,27) = 000
 RICHTUNG_horizontal%(Z1%,28) = 000 : RICHTUNG_vertikal%(Z1%,28) = 000
 RICHTUNG_horizontal%(Z1%,29) = 000 : RICHTUNG_vertikal%(Z1%,29) = 000
 RICHTUNG_horizontal%(Z1%,30) = 000 : RICHTUNG_vertikal%(Z1%,30) = 000
 RICHTUNG_horizontal%(Z1%,31) = 000 : RICHTUNG_vertikal%(Z1%,31) = 000
 RICHTUNG_horizontal%(Z1%,32) = 000 : RICHTUNG_vertikal%(Z1%,32) = 000
 RICHTUNG_horizontal%(Z1%,33) = 000 : RICHTUNG_vertikal%(Z1%,33) = 000
 RICHTUNG_horizontal%(Z1%,34) = 000 : RICHTUNG_vertikal%(Z1%,34) = 000
 RICHTUNG_horizontal%(Z1%,35) = 000 : RICHTUNG_vertikal%(Z1%,35) = 000
 RICHTUNG_horizontal%(Z1%,36) = 000 : RICHTUNG_vertikal%(Z1%,36) = 000
 RICHTUNG_horizontal%(Z1%,37) = 000 : RICHTUNG_vertikal%(Z1%,37) = 000
 RICHTUNG_horizontal%(Z1%,38) = 000 : RICHTUNG_vertikal%(Z1%,38) = 000
 RICHTUNG_horizontal%(Z1%,39) = 000 : RICHTUNG_vertikal%(Z1%,39) = 000
 RICHTUNG_horizontal%(Z1%,40) = 000 : RICHTUNG_vertikal%(Z1%,40) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,41) = 000 : RICHTUNG_vertikal%(Z1%,41) = 000
 RICHTUNG_horizontal%(Z1%,42) = 000 : RICHTUNG_vertikal%(Z1%,42) = 000
 RICHTUNG_horizontal%(Z1%,43) = 000 : RICHTUNG_vertikal%(Z1%,43) = 000
 RICHTUNG_horizontal%(Z1%,44) = 000 : RICHTUNG_vertikal%(Z1%,44) = 000
 RICHTUNG_horizontal%(Z1%,45) = 000 : RICHTUNG_vertikal%(Z1%,45) = 000
 RICHTUNG_horizontal%(Z1%,46) = 000 : RICHTUNG_vertikal%(Z1%,46) = 000
 RICHTUNG_horizontal%(Z1%,47) = 000 : RICHTUNG_vertikal%(Z1%,47) = 000
 RICHTUNG_horizontal%(Z1%,48) = 000 : RICHTUNG_vertikal%(Z1%,48) = 000
 RICHTUNG_horizontal%(Z1%,49) = 000 : RICHTUNG_vertikal%(Z1%,49) = 000
 RICHTUNG_horizontal%(Z1%,50) = 000 : RICHTUNG_vertikal%(Z1%,50) = 000
 RICHTUNG_horizontal%(Z1%,51) = 000 : RICHTUNG_vertikal%(Z1%,51) = 000
 RICHTUNG_horizontal%(Z1%,52) = 000 : RICHTUNG_vertikal%(Z1%,52) = 000
 RICHTUNG_horizontal%(Z1%,53) = 000 : RICHTUNG_vertikal%(Z1%,53) = 000
 RICHTUNG_horizontal%(Z1%,54) = 000 : RICHTUNG_vertikal%(Z1%,54) = 000
 RICHTUNG_horizontal%(Z1%,55) = 000 : RICHTUNG_vertikal%(Z1%,55) = 000
 RICHTUNG_horizontal%(Z1%,56) = 000 : RICHTUNG_vertikal%(Z1%,56) = 000
 RICHTUNG_horizontal%(Z1%,57) = 000 : RICHTUNG_vertikal%(Z1%,57) = 000
 RICHTUNG_horizontal%(Z1%,58) = 000 : RICHTUNG_vertikal%(Z1%,58) = 000
 RICHTUNG_horizontal%(Z1%,59) = 000 : RICHTUNG_vertikal%(Z1%,59) = 000
 RICHTUNG_horizontal%(Z1%,60) = 000 : RICHTUNG_vertikal%(Z1%,60) = 000
 RICHTUNG_horizontal%(Z1%,61) = 000 : RICHTUNG_vertikal%(Z1%,61) = 000
 RICHTUNG_horizontal%(Z1%,62) = 000 : RICHTUNG_vertikal%(Z1%,62) = 000
 RICHTUNG_horizontal%(Z1%,63) = 000 : RICHTUNG_vertikal%(Z1%,63) = 000
 RICHTUNG_horizontal%(Z1%,64) = 000 : RICHTUNG_vertikal%(Z1%,64) = 000
 RICHTUNG_horizontal%(Z1%,65) = 000 : RICHTUNG_vertikal%(Z1%,65) = 000
 RICHTUNG_horizontal%(Z1%,66) = 000 : RICHTUNG_vertikal%(Z1%,66) = 000
 RICHTUNG_horizontal%(Z1%,67) = 000 : RICHTUNG_vertikal%(Z1%,67) = 000
 RICHTUNG_horizontal%(Z1%,68) = 000 : RICHTUNG_vertikal%(Z1%,68) = 000
 RICHTUNG_horizontal%(Z1%,69) = 000 : RICHTUNG_vertikal%(Z1%,69) = 000
 RICHTUNG_horizontal%(Z1%,70) = 000 : RICHTUNG_vertikal%(Z1%,70) = 000
 RICHTUNG_horizontal%(Z1%,71) = 000 : RICHTUNG_vertikal%(Z1%,71) = 000
 RICHTUNG_horizontal%(Z1%,72) = 000 : RICHTUNG_vertikal%(Z1%,72) = 000
 RICHTUNG_horizontal%(Z1%,73) = 000 : RICHTUNG_vertikal%(Z1%,73) = 000
 RICHTUNG_horizontal%(Z1%,74) = 000 : RICHTUNG_vertikal%(Z1%,74) = 000
 RICHTUNG_horizontal%(Z1%,75) = 000 : RICHTUNG_vertikal%(Z1%,75) = 000
 RICHTUNG_horizontal%(Z1%,76) = 000 : RICHTUNG_vertikal%(Z1%,76) = 000
 RICHTUNG_horizontal%(Z1%,77) = 000 : RICHTUNG_vertikal%(Z1%,77) = 000
 RICHTUNG_horizontal%(Z1%,78) = 000 : RICHTUNG_vertikal%(Z1%,78) = 000
 RICHTUNG_horizontal%(Z1%,79) = 000 : RICHTUNG_vertikal%(Z1%,79) = 000
 RICHTUNG_horizontal%(Z1%,80) = 000 : RICHTUNG_vertikal%(Z1%,80) = 000
 RICHTUNG_horizontal%(Z1%,81) = 000 : RICHTUNG_vertikal%(Z1%,81) = 000
 RICHTUNG_horizontal%(Z1%,82) = 000 : RICHTUNG_vertikal%(Z1%,82) = 000
 RICHTUNG_horizontal%(Z1%,83) = 000 : RICHTUNG_vertikal%(Z1%,83) = 000
 RICHTUNG_horizontal%(Z1%,84) = 000 : RICHTUNG_vertikal%(Z1%,84) = 000
 RICHTUNG_horizontal%(Z1%,85) = 000 : RICHTUNG_vertikal%(Z1%,85) = 000
 RICHTUNG_horizontal%(Z1%,86) = 000 : RICHTUNG_vertikal%(Z1%,86) = 000
 RICHTUNG_horizontal%(Z1%,87) = 000 : RICHTUNG_vertikal%(Z1%,87) = 000
 RICHTUNG_horizontal%(Z1%,88) = 000 : RICHTUNG_vertikal%(Z1%,88) = 000
 RICHTUNG_horizontal%(Z1%,89) = 000 : RICHTUNG_vertikal%(Z1%,89) = 000
 RICHTUNG_horizontal%(Z1%,90) = 000 : RICHTUNG_vertikal%(Z1%,90) = 000
 RICHTUNG_horizontal%(Z1%,91) = 000 : RICHTUNG_vertikal%(Z1%,91) = 000
 RICHTUNG_horizontal%(Z1%,92) = 000 : RICHTUNG_vertikal%(Z1%,92) = 000
 RICHTUNG_horizontal%(Z1%,93) = 000 : RICHTUNG_vertikal%(Z1%,93) = 000
 RICHTUNG_horizontal%(Z1%,94) = 000 : RICHTUNG_vertikal%(Z1%,94) = 000
 RICHTUNG_horizontal%(Z1%,95) = 000 : RICHTUNG_vertikal%(Z1%,95) = 000
 RICHTUNG_horizontal%(Z1%,96) = 000 : RICHTUNG_vertikal%(Z1%,96) = 000
 RICHTUNG_horizontal%(Z1%,97) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,97) = 30
 RICHTUNG_horizontal%(Z1%,98) = 0-(SEITE_RECHTS03%/2) : RICHTUNG_vertikal%(Z1%,98) = 000
 RICHTUNG_horizontal%(Z1%,99) = 000 : RICHTUNG_vertikal%(Z1%,99) = 000
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Lun 15 Juil 2013 - 0:16

@Jichel

nur ein Gedanke.

Wir geben x Pixel, dann gehe x Pixel nach rechts.
Wir geben x Pixel, dann gehe x Pixel nach unten.
Wenn wir geben x Pixel, bleibe x Pixel stehen.

seulement une idée.


Nous donnons x le pixel, alors va x le pixel à droite.

Nous donnons x le pixel, alors va x le pixel en bas.

Si nous donnons x le pixel, s'arrête x le pixel.

' *** Variablen für horizontal Fahrt
dim RICHTUNG_horizontal%(Anzahl_LKW%,Anzahl_Fahrten%)
' *** Variablen für vertikal Fahrt
dim RICHTUNG_vertikal%(Anzahl_LKW%,Anzahl_Fahrten%)

Neu ' *** Variablen für keine Fahrt
dim RICHTUNG_standplatz%(Anzahl_LKW%,Anzahl_Fahrten%)
' ***


dim delta_horizontal%(Anzahl_LKW%)
' ***
dim delta_vertikal%(Anzahl_LKW%)

Neu ' ***
dim delta_standplatz%(Anzahl_LKW%)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Lun 15 Juil 2013 - 11:43

Yes Severin, you have differents way to do it. You can add another tabs to manage the speed or waiting time for example. In the tab, the speed can be positive only, if it's negative, it's could be a waiting time (a number of cycles to wait for example) to manage it, when you change of step in the travel, if the speed value is negative, you change value of a counter (example: IF speed(LKW%, pos(LKW%)) < 0 THEN wait(LKW%)= 0 - speed(LKW%, pos(LKW%))
and you test each cycle if you have to wait. If counter is positiv, you decrease it and go next car else you manage de move.

Another thing, better than having 3 parts to manage, you could you a data structure to have data.
Structure could be something like:
DATA "LKW1",delta_h1,delta_v1,speed1,delta_hl2,delta_v2,speed2,...
It's coulb be alot easiest to manage i think and after you'll be able to replace data structure by data in a file to let user register the moves.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Lun 15 Juil 2013 - 14:40

@Jicehel

Hilfe !!! Ich schaffe das nicht.

Aide!!! Je ne crée pas cela.

affraid Embarassed Embarassed affraid Embarassed Embarassed affraid confused confused confused 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Lun 15 Juil 2013 - 15:35

Ce n'est qu'une idée pour que tu puisses l'implémenter comme tu veux.
Je vais essayer de reprendre un peu mon Pacman là où j'en étais pour avancer un peu. Je me suis libéré du temps en arrêtant certains jeux chronophages, mais je ne peux pas reprendre ton programme (en plus il n'est pas dans ma langue naturelle et par conséquent, j'ai toujours un peu de mal à rentrer dedans). Je te laisse chercher ta solution et je peux te donner des pistes sur comment faire ou t'aider ponctuellement si tu as un problème de fonctionnement, mais je ne vais pas modifier le code pour toi, je ne voudrais pas te retirer le plaisir de la recherche et de la création. En plus, je suis en vacances à partir de jeudi soir, je vais avoir des choses à préparer et je vais essayer d'avancer un peu sur mes propres créations pendant quelques heures histoires d'être sûr de pouvoir livrer les articles dans les temps.
Si tu ne comprends pas l'idée que j'ai exposé dans mon dernier post, je peux t'expliquer même en anglais, par contre pour l'allemand, il faudra attendre l'intervention de Klaus, j'aurais trop peur en utilisant Google trad d'écrire un message qui me ferait passer pour un français fortement alcoolisé...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 21 Juil 2013 - 2:12

Guten Abend,
hier meine neuste Version 21.07.2013  01:0323:29
Wer kann mir sagen wie ich eine Zeitschleife verlassen kann ?
Ich möchte zurück ins Menü zum Neustart.
Verbesserungen willkommen.

Good evening,

here my newest version 7/21/2013 01:0323:29
Who can tell me how I can leave a timer loop?
I would want to go back to the menu for a new start.
Improvements welcome.

Bonsoir,

ici mon 21/07/2013 de version le plus nouveau 01:0323:29
Qui peut me dire comment je peux quitter une boucle de minuteur ?
Je voudrais retourner au menu pour un nouveau début.
Améliorations bienvenues.


Code:
' ******************************************************************************
' *** SIMULATION LKW-VERKEHR FABRIK - LAGER *********************************
' ******************************************************************************
dim i%
dim j%
' ------------------------------------------------------------------------------
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
top 0,0 : LEFT 0,0 : width 0,screen_x : height 0,SCREEN_Y-40
color 0,0,0,0                                              :' schwarz / black
caption 0,"SIMULATION LKW-VERKEHR FABRIK - LAGER "
' ------------------------------------------------------------------------------
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
 for i% = 1 to 20
 sub_menu 9700 + i% : parent 9700 + i%,9700
 select i%
 case 1 : caption 9701," Programm END "
 case 2 : caption 9702," START LKW all "
 case 3 : caption 9703," START LKW01 "
 case 4 : caption 9704," START LKW02 "
 case 5 : caption 9705," START LKW03 "
 case 6 : caption 9706," START LKW04 "
 case 7 : caption 9707," STOP LKW all "
' case 20: caption 9720,"  "
end_select
next i%
' ------------------------------------------------------------------------------
' *** DARSTELLUNGS-BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS%      : SEITE_RECHTS% = (SCREEN_X - 130-50)
DIM SEITE_LINKS%      : SEITE_LINKS%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Gebäude DEFINIEREN ***************************
DIM SEITE_RECHTS01%    : SEITE_RECHTS01% = (SCREEN_X - 110)
DIM SEITE_LINKS01%    : SEITE_LINKS01%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS02%    : SEITE_RECHTS02% = (SCREEN_X - 130)
DIM SEITE_LINKS02%    : SEITE_LINKS02%  = 0095
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS03%    : SEITE_RECHTS03% = (SCREEN_X - 130 -50)
DIM SEITE_LINKS03%    : SEITE_LINKS03%  = 0095
' *** Grenzen für Fahrwege auf Bildschirm langer Fahrweg ***********************
DIM SEITE_RECHTS04%    : SEITE_RECHTS04% = (SCREEN_X - 165)
DIM SEITE_LINKS04%    : SEITE_LINKS04%  = 0095
' *** Grenzen für Fahrwege auf Bildschirm kurzer Fahrweg links *****************
DIM SEITE_RECHTS05%    : SEITE_RECHTS05% = 0095 + 0100
DIM SEITE_LINKS05%    : SEITE_LINKS05%  = 0095
' *** Grenzen für Fahrwege auf Bildschirm kurzer Fahrweg rechts ****************
DIM SEITE_RECHTS06%    : SEITE_RECHTS06% = (SCREEN_X - 165)
DIM SEITE_LINKS06%    : SEITE_LINKS06%  = (SCREEN_X - 165-101)
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege in Tabelle DEFINIEREN ********
DIM FAHR_WEG_01%      : FAHR_WEG_01%    =    (SCREEN_X - 170 - 95)
DIM FAHR_WEG_02%      : FAHR_WEG_02%    = 0 - (SCREEN_X - 170 - 95)
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege links in Tabelle DEFINIEREN **
DIM FAHR_WEG_03%      : FAHR_WEG_03%    = 100      :' immer 200 Pixel
DIM FAHR_WEG_04%      : FAHR_WEG_04%    = 0 - 100  :' immer 200 Pixel
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege rechts in Tabelle DEFINIEREN *
DIM FAHR_WEG_05%      : FAHR_WEG_05%    = 101      :' immer 200 Pixel
DIM FAHR_WEG_06%      : FAHR_WEG_06%    = 0 - 101  :' immer 200 Pixel
' ------------------------------------------------------------------------------
' 1680 x 1050 = Fahr_weg_01% = 1415
' 1280 x 1024 = Fahr_weg_01% = 1015
'
' ------------------------------------------------------------------------------
' ******************************************************************************
DIM SEITE_OBEN01%      : SEITE_OBEN01% = 108  :' Fabrik, Zulieferer, Rampen
DIM SEITE_OBEN02%      : SEITE_OBEN02% = 110  :' Andockstellen
' ------------------------------------------------------------------------------
' ******************************************************************************
DIM SEITE_UNTEN01%    : SEITE_UNTEN01%  = 000
'
' *** FABRIK erstellen *********************************************************
edit 9800 :color 9800,000,255,000
TOP 9800,SEITE_OBEN01% :LEFT 9800,10 :HEIGHT 9800,600 :WIDTH 9800,75
' *** Andockstellen Fabrik *****************************************************
j% = 0
for  i% = 8001 to 8020
edit i% :top i%,SEITE_OBEN02%+j% :left i%,15 :width  i%,60 :height i%,25 :j% = j% + 30
next i%
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON 9810
TOP 9810,SEITE_OBEN01% : LEFT 9810,85 : HEIGHT 9810,600 : WIDTH 9810,19
' *** Zulieferer erstellen *****************************************************
edit 9820 : color 9820,000,255,000
TOP 9820,SEITE_OBEN01% : LEFT 9820,SEITE_RECHTS01% : HEIGHT 9820,600 : WIDTH 9820,75
' *** Andockstellen Zulieferer *************************************************
j% = 0
for  i% = 8041 to 8060
edit i% :top i%,SEITE_OBEN02%+j% :left i%,SEITE_RECHTS01% + 10 :width i%,60 :height i%,25 :j% = j% + 30
next  i%
' *** RAMPEN Zulieferer erstellen **********************************************
BUTTON 9830
TOP 9830,SEITE_OBEN01% : LEFT 9830,SEITE_RECHTS02% : HEIGHT 9830,600 : WIDTH 9830,19
' *** Hilfsfelder zur Kontrolle ************************************************
EDIT 5000: TOP 5000,30: LEFT 5000,Screen_X/2-60: HEIGHT 5000,25 :WIDTH 5000,120
COLOR 5000,000,255,000: Text 5000," Anzahl Fahrten : "

' j% = 0
' for  i% = 5001 to 5002
' Button i% :top i%,770 :left i%,45 + j% :width i%,65 :height i%,25 :' j% = j% + 50
' caption i%," STOP LKW"
' next  i%
' *** LABEL ERSTELLEN **********************************************************
label main
label halt
label start
label Start_Lkw_01
label Start_Lkw_02
label Start_Lkw_03
label Start_Lkw_04
label Stop_LKW
label FAHRTDATENFUERLKW
label Weiter01                      :' LKW nach rechts fahren langer Weg
label Weiter02                      :' LKW nach rechts fahren kurzer Weg linke Seite
label Weiter03                      :' LKW nach rechts fahren kurzer Weg rechte Seite
label Weiter04                      :' LKW nach links fahren langer Weg
label Weiter05                      :' LKW nach links fahren kurzer Weg
label Weiter06
label Weiter07                      :' Auswahl LKW nach oben oder unten fahren
label Weiter08                      :' LKW nach unten fahren
label Weiter09                      :' LKW nach oben fahren
label Weiter10                      :' Pause an Ladestelle

label Weiter80                      :' Für alle LKW
label Weiter81                      :' Für 1. LKW
label Weiter82                      :' Für 2. LKW
label Weiter83                      :' Für 3. LKW
label Weiter84                      :' Für 4. LKW
label Weiter99
'
' ******************************************************************************
dim Zaehler%            :' Zaehler% = 1        :' Zähler für dir gelesenen Zeilen
dim LKW%
dim Anzahl_LKW%      : Anzahl_LKW%    = 4
dim Anzahl_Fahrten%  : Anzahl_Fahrten% = 21
dim Zaehler_LKW%      : Zaehler_LKW%    = 1
dim Z1%
dim Ankunft%(Anzahl_LKW%)
' ------------------------------------------------------------------------------
' *** Geschwindigkeit pro LKW **************************************************
dim v%(Anzahl_LKW%)    :' Übergabe Variable
dim v1%(Anzahl_LKW%)    :' Hilfsvariable für Fahrgeschwindigkeit
dim v2%(Anzahl_LKW%)    :' Bechleunigungs- und Bremsgescheindigkeit
dim v3%(Anzahl_LKW%)    :'
dim v4%(Anzahl_LKW%)
' *** Hilfsvariable zur Übernahme der Geschwindigkeit **************************
v%(1) = 0 : v%(2) = 0 : v%(3) = 0 : v%(4) = 0
' *** Normale Geschwindigkeit für horizontale Fahrt
v1%(1) = 5 : v1%(2) = 5 :v1%(3) = 5 :v1%(4) = 5
' *** Beschleunigungs- und Bremsgescheingigkeit für horizontale Fahrt **********
v2%(1) = 1 :v2%(2) = 1 :v2%(3) = 1 :v2%(4) = 1
' *** Standgeschwindigkeit = 0  wenn Zielpunkt erreicht ************************
v3%(1) = 0 :v3%(2) = 0 :v3%(3) = 0 :v3%(4) = 0
' *** Normale Geschwindigkeit für verikale Fahrt *******************************
v4%(1) = 2 :v4%(2) = 2 :v4%(3) = 2 :v4%(4) = 2
' ***
dim R_horiz%(Anzahl_LKW%,Anzahl_Fahrten%)
' ***
dim R_vert%(Anzahl_LKW%,Anzahl_Fahrten%)
' ***
dim R_stand%(Anzahl_LKW%,Anzahl_Fahrten%)
' ***
dim D_01_horiz%(Anzahl_LKW%)  :' Langer Weg von links nach rechts
dim D_02_horiz%(Anzahl_LKW%)  :' Kurzer Weg von nur linke Seite
dim D_03_horiz%(Anzahl_LKW%)  :' Kurzer Weg von nur rechte Seite
' ***
dim delta_vertikal%(Anzahl_LKW%)
' ***
dim delta_platzstand%(Anzahl_LKW%)
' ***
dim pos%(Anzahl_LKW%)

' ******************************************************************************
Gosub FAHRTDATENFUERLKW
'
' ******************************************************************************
ON_CLICK 9701,halt
ON_CLICK 9702,start
ON_CLICK 9703,Start_Lkw_01
ON_CLICK 9704,Start_Lkw_02
ON_CLICK 9705,Start_Lkw_03
ON_CLICK 9706,Start_Lkw_04
ON_CLICK 9707,Stop_LKW

' ------------------------------------------------------------------------------
' *** TIMER INITIALISIERUNG ****************************************************
 timer 9998                  :' Timer erstellen
 timer_interval 9998,60      :' Timer interval festlegen
 on_timer 9998,main          :' Timer starten und Startlabel festlegen
 timer_off 9998              :' Timer ausschalten
 '
 end
' ------------------------------------------------------------------------------
' *** Timer Stoppen ************************************************************
Stop_LKW:
 timer_off 9998
end
' ------------------------------------------------------------------------------
' *** LKW starten einzeln oder alle ********************************************
start:
Anzahl_LKW% = 4 :Zaehler_LKW% = 1 :timer_on 9998
return
'
Start_Lkw_01:
Anzahl_LKW% = 1 :Zaehler_LKW% = 1 :timer_on 9998
return
'
Start_Lkw_02:
Anzahl_LKW% = 2 :Zaehler_LKW% = 2 :timer_on 9998
return
'
Start_Lkw_03:
Anzahl_LKW% = 3 :Zaehler_LKW% = 3 :timer_on 9998
return
'
Start_Lkw_04:
Anzahl_LKW% = 4 :Zaehler_LKW% = 4 :timer_on 9998
return
' ------------------------------------------------------------------------------
' ******************************************************************************
' *** Timer Schleife ***********************************************************
main:
timer_off_all
'
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
if Anzahl_LKW% = 4 and Zaehler_LKW% = 1 then goto Weiter80
if Anzahl_LKW% = 1 and Zaehler_LKW% = 1 then goto Weiter81
if Anzahl_LKW% = 2 and Zaehler_LKW% = 2 then goto Weiter82
if Anzahl_LKW% = 3 and Zaehler_LKW% = 3 then goto Weiter83
if Anzahl_LKW% = 4 and Zaehler_LKW% = 4 then goto Weiter84
'
end
' ------------------------------------------------------------------------------
Weiter80:
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then Anzahl_LKW%    = 4
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then Zaehler_LKW%    = 1
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then Anzahl_Fahrten% = Anzahl_Fahrten% + 1
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then v4%(1) = 2
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then v4%(2) = 2
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then v4%(3) = 2
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then v4%(4) = 2
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
goto weiter99
' ------------------------------------------------------------------------------
Weiter81:
if Ankunft%(1) = 1 then Anzahl_LKW%    = 1
if Ankunft%(1) = 1 then Zaehler_LKW%    = 1
if Ankunft%(1) = 1 then Anzahl_Fahrten% = Anzahl_Fahrten% + 1
if Ankunft%(1) = 1 then v4%(1) = 2
if Ankunft%(1) = 1 then v4%(2) = 2
if Ankunft%(1) = 1 then v4%(3) = 2
if Ankunft%(1) = 1 then v4%(4) = 2
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
goto weiter99
' ------------------------------------------------------------------------------
Weiter82:
if Ankunft%(2) = 1 then Anzahl_LKW%    = 2
if Ankunft%(2) = 1 then Zaehler_LKW%    = 2
if Ankunft%(2) = 1 then Anzahl_Fahrten% = Anzahl_Fahrten% + 1
if Ankunft%(2) = 1 then v4%(1) = 2
if Ankunft%(2) = 1 then v4%(2) = 2
if Ankunft%(2) = 1 then v4%(3) = 2
if Ankunft%(2) = 1 then v4%(4) = 2
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
goto weiter99
' ------------------------------------------------------------------------------
Weiter83:
if Ankunft%(3) = 1 then Anzahl_LKW%    = 3
if Ankunft%(3) = 1 then Zaehler_LKW%    = 3
if Ankunft%(3) = 1 then Anzahl_Fahrten% = Anzahl_Fahrten% + 1
if Ankunft%(3) = 1 then v4%(1) = 2
if Ankunft%(3) = 1 then v4%(2) = 2
if Ankunft%(3) = 1 then v4%(3) = 2
if Ankunft%(3) = 1 then v4%(4) = 2
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
goto weiter99
' ------------------------------------------------------------------------------
Weiter84:
if Ankunft%(4) = 1 then Anzahl_LKW%    = 4
if Ankunft%(4) = 1 then Zaehler_LKW%    = 4
if Ankunft%(4) = 1 then Anzahl_Fahrten% = Anzahl_Fahrten% + 1
if Ankunft%(4) = 1 then v4%(1) = 2
if Ankunft%(4) = 1 then v4%(2) = 2
if Ankunft%(4) = 1 then v4%(3) = 2
if Ankunft%(4) = 1 then v4%(4) = 2
Text 5000," Anzahl Fahrten : "+STR$(Anzahl_Fahrten%)
goto weiter99
' ------------------------------------------------------------------------------
Weiter99:
if Anzahl_Fahrten% = 21 then Text 5000," Anzahl Fahrten : ENDE "
if Anzahl_Fahrten% = 21 then goto Stop_LKW
'
Ankunft%(1)= 999 :Ankunft%(2)= 999 :Ankunft%(3)= 999 :Ankunft%(4)= 999
' ------------------------------------------------------------------------------
' *** LKW% ist der äußere Zähler der Schleife **********************************
'
for LKW% = Zaehler_LKW% to Anzahl_LKW%
' ------------------------------------------------------------------------------
' *** Auswahl LKW nach links oder rechts fahren ********************************
'
' *** Fahrt nach rechts
if R_horiz%(LKW%,Anzahl_Fahrten%) = FAHR_WEG_01%  then goto weiter01
if R_horiz%(LKW%,Anzahl_Fahrten%) = 100          then goto weiter02
if R_horiz%(LKW%,Anzahl_Fahrten%) = 101          then goto weiter03
' *** Fahrt nach links
if R_horiz%(LKW%,Anzahl_Fahrten%) = FAHR_WEG_02%  then goto weiter04
if R_horiz%(LKW%,Anzahl_Fahrten%) = -100          then goto weiter05
if R_horiz%(LKW%,Anzahl_Fahrten%) = -101          then goto weiter06
'
' ------------------------------------------------------------------------------
' *** LKW nach rechts fahren langer Weg ****************************************
weiter01:
'
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS04% + 30 then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS04% - 5 > D_01_horiz%(LKW%) - 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS04% - 5 = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS04% - 5 = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS04% - 5 = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** LKW nach rechts fahren von linker Seite kurzer Weg ***********************
weiter02:
'
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS05%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS05% + 30 then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS05% - 5 > D_02_horiz%(LKW%) - 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS05% - 5 = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS05% - 5 = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS05% - 5 = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** LKW nach rechts fahren von rechter Seite kurzer Weg **********************
weiter03:
'
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS06%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS06% + 30 then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS06% - 0 > D_03_horiz%(LKW%) - 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS06% - 0 = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS06% - 0 = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS06% - 0 = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** LKW nach links fahren langer Weg *****************************************
weiter04:
'
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS04% - 30 then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS04% - 5 = D_01_horiz%(LKW%) + 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS04% + 5 = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS04% + 5 = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS04% + 5 = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** LKW nach links fahren kurzer Weg *****************************************
weiter05:
'
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS05% + 5  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS05% - 30 then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS05% + 5 = D_02_horiz%(LKW%) + 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS05% + 0 = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS05% + 0 = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS05% + 0 = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** LKW nach links fahren kurzer Weg ****************************************
weiter06:
'
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS06% + 0  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS06% + 30  then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS06% - 5 = D_03_horiz%(LKW%) + 30 then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS06% + 0 = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS06% + 0 = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS06% + 0 = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
'
goto weiter07
' ------------------------------------------------------------------------------
' *** Auswahl LKW nach oben oder unten fahren **********************************
weiter07:
'
if R_vert%(LKW%,Anzahl_Fahrten%) = 0  then goto weiter10
if R_vert%(LKW%,Anzahl_Fahrten%) > 0  then goto weiter08
if R_vert%(LKW%,Anzahl_Fahrten%) < 0  then goto weiter09
' ------------------------------------------------------------------------------
' *** LKW nach unten fahren ****************************************************
Weiter08:
'
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten%)
' *** Normalfahrstrecke nach unten
top LKW%,top(LKW%) + v4%(LKW%)
' *** Stop der Fahrt nach unten
if top(LKW%) =  pos%(LKW%) + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
' *** Sprung zur Pause an Ladestelle
goto weiter10
' ------------------------------------------------------------------------------
' *** LKW nach oben fahren *****************************************************
Weiter09:
'
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten%)
' *** Normalfahrstrecke nach oben
top LKW%,top(LKW%) - v4%(LKW%)
' *** Stop der Fahrt nach oben
if top(LKW%) =  pos%(LKW%)  + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
' *** Sprung zur Pause an Ladestelle
goto weiter10
' ------------------------------------------------------------------------------
' *** Pause an Ladestelle
Weiter10:
'
if Ankunft%(1)+Ankunft%(2)+Ankunft%(3)+Ankunft%(4) = 4 then wait 999
' ------------------------------------------------------------------------------
' *** Ende Zählschleife alle LKW's einmal durchlaufen **************************
next LKW%
' ------------------------------------------------------------------------------
' *** Timer einschalten ********************************************************
timer_on 9998
' ------------------------------------------------------------------------------
' *** Rücksprung zum Label main: ***********************************************
return
end
' ------------------------------------------------------------------------------
' *** PROGRAMM ANHALTEN UND BEENDEN ********************************************
halt:
timer_off_all
terminate
' ******************************************************************************
' ******************************************************************************
FAHRTDATENFUERLKW:
'
' *** SYMBOLE FÜR LKW erstellen ************************************************
Anzahl_Fahrten% = 1

for    i% = 1 to Anzahl_LKW%
edit  i%
top    i%,80+30*i%
'
if i% = 1 then left i%,SEITE_LINKS04%                      :' SEITE_RECHTS04%
if i% = 2 then left i%,SEITE_RECHTS04%
if i% = 3 then left i%,SEITE_LINKS04%                      :' SEITE_RECHTS04%
if i% = 4 then left i%,SEITE_RECHTS04%
'
width  i%,45 :height i%,25
'
if i% = 1 then color i%,255,000,000
if i% = 2 then color i%,000,255,000
if i% = 3 then color i%,020,200,255
if i% = 4 then color i%,240,240,020
'
text  i%,"Linie "+STR$(i%)
'
if i% = 1 then pos%(i%) = top(1)
if i% = 2 then pos%(i%) = top(2)
if i% = 3 then pos%(i%) = top(3)
if i% = 4 then pos%(i%) = top(4)
'
next  i%
' *** Text für Andockstellen links *********************************************
text 8001," Tor 1  " :text 8002," Tor 2  " :text 8003," Tor 3  " :text 8004," Tor 4  "
text 8005," Tor 5  " :text 8006," Tor 6  " :text 8007," Tor 7  " :text 8008," Tor 8  "
text 8009," Tor 9  " :text 8010," Tor 10 " :text 8011," Tor 11 " :text 8012," Tor 12 "
text 8013," Tor 13 " :text 8014," Tor 14 " :text 8015," Tor 15 " :text 8016," Tor 16 "
text 8017," Tor 17 " :text 8018," Tor 18 " :text 8019," Tor 19 " :text 8020," Tor 20 "
' *** Text für Andockstellen rechts ********************************************
text 8041," Co. AA" :text 8042," Co. BB" :text 8043," Co. CC" :text 8044," Co. DD"
text 8045," Co. EE" :text 8046," Co. FF" :text 8047," Co. GG" :text 8048," Co. HH"
text 8049," Co. II" :text 8050," Co. JJ" :text 8051," Co. KK" :text 8052," Co. LL"
text 8053," Co. MM" :text 8054," Co. NN" :text 8055," Co. OO" :text 8056," Co. PP"
text 8057," Co. QQ" :text 8058," Co. RR" :text 8059," Co. SS" :text 8060," Co. TT"
' ******************************************************************************
' ------------------------------------------------------------------------------
'  Richtung nach rechts  =  FAHR_WEG_01%    kompletter Weg
'  Richtung nach links    =  FAHR_WEG_02%    kompletter Weg
' ***
'  Richtung nach rechts  =  FAHR_WEG_03%  150 Pixel - Teilweg nach rechts
'  Richtung nach links    =  FAHR_WEG_04%  150 Pixel - Teilweg zurück von reechts
' ***
'  Richtung nach rechts  =  FAHR_WEG_05%  150 Pixel - Teilweg nach rechts
'  Richtung nach links    =  FAHR_WEG_06%  150 Pixel - Teilweg zurück von reechts
' ***
'  Richtung nach unten    =  POSITIV    xxx    STEP 30 - 510
'  Richtung nach oben    =  NEGATIV  -xxx    STEP -30 - 510
' ------------------------------------------------------------------------------
' *** DATEN FÜR LKW 001 FAHREN VON LINKS NACH RECHTS ***************************
 Z1% = 1
 R_horiz%(Z1%,01) = FAHR_WEG_01% : R_vert%(Z1%,01) = 120  :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_02% : R_vert%(Z1%,02) = 000  :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_01% : R_vert%(Z1%,03) = 000  :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_02% : R_vert%(Z1%,04) = 000  :R_stand%(Z1%,04) = 000
 R_horiz%(Z1%,05) = FAHR_WEG_01% : R_vert%(Z1%,05) = -90  :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_02% : R_vert%(Z1%,06) = 000  :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_01% : R_vert%(Z1%,07) = 000  :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_02% : R_vert%(Z1%,08) = 000  :R_stand%(Z1%,08) = 000
 R_horiz%(Z1%,09) = FAHR_WEG_01% : R_vert%(Z1%,09) = 000  :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_02% : R_vert%(Z1%,10) = 000  :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_01% : R_vert%(Z1%,11) = 000  :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_02% : R_vert%(Z1%,12) = 000  :R_stand%(Z1%,12) = 000
 R_horiz%(Z1%,13) = FAHR_WEG_01% : R_vert%(Z1%,13) = 000  :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_02% : R_vert%(Z1%,14) = 000  :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_01% : R_vert%(Z1%,15) = -90  :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_02% : R_vert%(Z1%,16) = 000  :R_stand%(Z1%,16) = 000
 R_horiz%(Z1%,17) = FAHR_WEG_01% : R_vert%(Z1%,17) = 000  :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_02% : R_vert%(Z1%,18) = 000  :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_01% : R_vert%(Z1%,19) = 000  :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_02% : R_vert%(Z1%,20) = 000  :R_stand%(Z1%,20) = 000
 R_horiz%(Z1%,21) = 000          : R_vert%(Z1%,21) = 000  :R_stand%(Z1%,21) = 000
' *** DATEN FÜR LKW 002 FAHRTEN NUR RECHTE SEITE *******************************
 Z1% = 2
 R_horiz%(Z1%,01) = FAHR_WEG_06% : R_vert%(Z1%,01) = 000 :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_05% : R_vert%(Z1%,02) = 060 :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_06% : R_vert%(Z1%,03) = 000 :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_05% : R_vert%(Z1%,04) = 060 :R_stand%(Z1%,04) = 000
 R_horiz%(Z1%,05) = FAHR_WEG_06% : R_vert%(Z1%,05) = 000 :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_05% : R_vert%(Z1%,06) = 060 :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_06% : R_vert%(Z1%,07) = 000 :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_05% : R_vert%(Z1%,08) = 060 :R_stand%(Z1%,08) = 000
 R_horiz%(Z1%,09) = FAHR_WEG_06% : R_vert%(Z1%,09) = 000 :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_05% : R_vert%(Z1%,10) = 060 :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_06% : R_vert%(Z1%,11) = 000 :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_05% : R_vert%(Z1%,12) = 060 :R_stand%(Z1%,12) = 000
 R_horiz%(Z1%,13) = FAHR_WEG_06% : R_vert%(Z1%,13) = 000 :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_05% : R_vert%(Z1%,14) = 060 :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_06% : R_vert%(Z1%,15) = 000 :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_05% : R_vert%(Z1%,16) = 060 :R_stand%(Z1%,16) = 000
 R_horiz%(Z1%,17) = FAHR_WEG_06% : R_vert%(Z1%,17) = 000 :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_05% : R_vert%(Z1%,18) = -60 :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_06% : R_vert%(Z1%,19) = 000 :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_05% : R_vert%(Z1%,20) = 000 :R_stand%(Z1%,20) = 000
 R_horiz%(Z1%,21) = 000          : R_vert%(Z1%,21) = 000 :R_stand%(Z1%,21) = 000
' *** DATEN FÜR LKW 003 FAHREN NUR LINKE SEITE *********************************
 Z1% = 3
 R_horiz%(Z1%,01) = FAHR_WEG_03% : R_vert%(Z1%,01) = 060 :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_04% : R_vert%(Z1%,02) = 000 :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_03% : R_vert%(Z1%,03) = 060 :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_04% : R_vert%(Z1%,04) = 000 :R_stand%(Z1%,04) = 000
 R_horiz%(Z1%,05) = FAHR_WEG_03% : R_vert%(Z1%,05) = 060 :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_04% : R_vert%(Z1%,06) = 000 :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_03% : R_vert%(Z1%,07) = 060 :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_04% : R_vert%(Z1%,08) = 000 :R_stand%(Z1%,08) = 000
 R_horiz%(Z1%,09) = FAHR_WEG_03% : R_vert%(Z1%,09) = 060 :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_04% : R_vert%(Z1%,10) = 000 :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_03% : R_vert%(Z1%,11) = 060 :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_04% : R_vert%(Z1%,12) = 000 :R_stand%(Z1%,12) = 000
 R_horiz%(Z1%,13) = FAHR_WEG_03% : R_vert%(Z1%,13) = 060 :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_04% : R_vert%(Z1%,14) = 000 :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_03% : R_vert%(Z1%,15) = 060 :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_04% : R_vert%(Z1%,16) = 000 :R_stand%(Z1%,16) = 000
 R_horiz%(Z1%,17) = FAHR_WEG_03% : R_vert%(Z1%,17) = 000 :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_04% : R_vert%(Z1%,18) = 000 :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_03% : R_vert%(Z1%,19) = 000 :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_04% : R_vert%(Z1%,20) = 000 :R_stand%(Z1%,20) = 000
 R_horiz%(Z1%,21) = 000          : R_vert%(Z1%,21) = 000 :R_stand%(Z1%,21) = 000
' *** DATEN FÜR LKW 004 FAHREN VON RECHTS NACH LINKS ***************************
 Z1% = 4
 R_horiz%(Z1%,01) = FAHR_WEG_02% : R_vert%(Z1%,01) = -90 :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_01% : R_vert%(Z1%,02) = 000 :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_02% : R_vert%(Z1%,03) = 090 :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_01% : R_vert%(Z1%,04) = 000 :R_stand%(Z1%,04) = 000
 R_horiz%(Z1%,05) = FAHR_WEG_02% : R_vert%(Z1%,05) = 090 :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_01% : R_vert%(Z1%,06) = 000 :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_02% : R_vert%(Z1%,07) = 090 :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_01% : R_vert%(Z1%,08) = 000 :R_stand%(Z1%,08) = 000
 R_horiz%(Z1%,09) = FAHR_WEG_02% : R_vert%(Z1%,09) = -270 :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_01% : R_vert%(Z1%,10) = 000 :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_02% : R_vert%(Z1%,11) = 000 :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_01% : R_vert%(Z1%,12) = 000 :R_stand%(Z1%,12) = 000
 R_horiz%(Z1%,13) = FAHR_WEG_02% : R_vert%(Z1%,13) = 090 :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_01% : R_vert%(Z1%,14) = 000 :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_02% : R_vert%(Z1%,15) = 090 :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_01% : R_vert%(Z1%,16) = 000 :R_stand%(Z1%,16) = 000
 R_horiz%(Z1%,17) = FAHR_WEG_02% : R_vert%(Z1%,17) = 090 :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_01% : R_vert%(Z1%,18) = 000 :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_02% : R_vert%(Z1%,19) = -270 :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_01% : R_vert%(Z1%,20) = 000 :R_stand%(Z1%,20) = 000
 R_horiz%(Z1%,21) = 000          : R_vert%(Z1%,21) = 000 :R_stand%(Z1%,21) = 000
'
Return



Dernière édition par Severin le Lun 22 Juil 2013 - 0:31, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10411
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: game for practice   Dim 21 Juil 2013 - 16:31

Ohne in Dein Programm einzusteigen, kann ich Dir folgenden Hinweis geben:
verwende ein BUTTON Objekt, dessen ON_CLICK Event ein TIMER_OFF Kommando für den gewünschten Timer enthält. Die Timeschleife ist gestoppt, da kein neues TIMER Event geschehen kann.

Sans rentrer dans ton programe, je peux te donner le tuyau suivant:
utilise un objet BUTTON, ont l'évènement ON_CLICK contient une commande TIMER_OFF pour le TIMER souhaité. La boucle du timer est stoppée, car aucun nouvel évènement TIMER ne se produira plus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Lun 22 Juil 2013 - 0:39

Danke Klaus, es hat funktioniert. cheers 

Oben neue Version. Im Endstadium wird für jeden LKW ein eigener Zeitgeber, und eigene
Pausenzeit möglich sein. Es wird noch etwas dauern, da ich wieder auf Dienstreise gehen
muss.

On top new version. In the final stage becomes for every truck own timer, and own
Be possible for break time. It will last a little bit, because I go again on official journey
has to go.

En haut la nouvelle version. Dans le stade final devient pour chaque CAMION un propre donneur de temps, et les propres
Le temps de pauses être possible. Cela durera encore un peu, puisque je vont de nouveau sur la mission
doit.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 28 Juil 2013 - 23:34

Hallo an Alle,

hier die neuste Version vom 28.7.2013
Wie gehabt in 2 Teilen.
Ich verzichte auf Übersetzung, die kann jeder selbst machen.
Ich will nicht wie ein betrunkener dastehen.


Code:
' ******************************************************************************
' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ************************************
' ******************************************************************************
dim i% : dim j%
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
top 0,0 :LEFT 0,0 :width 0,screen_x :height 0,SCREEN_Y-40 :color 0,0,0,0 :' black
caption 0,"SIMULATION LKW-VERKEHR FABRIK - LAGER "
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
for i% = 1 to 20
sub_menu 9700 + i% : parent 9700 + i%,9700
select i%
case 1  : caption 9701," Programm END "
case 2  : caption 9702," START LKW all "
case 3  : caption 9703," STOP LKW all "
case 4  : caption 9704," START LKW01 "
case 5  : caption 9705," START LKW02 "
case 8  : caption 9708," STOP LKW01 "
case 9  : caption 9709," STOP LKW02 "
end_select
next i%
' ******************************************************************************
DIM Weg01%      : Weg01%  = 45
DIM Weg02%      : Weg02%  = 80
DIM Weg04%      : Weg04%  = 160    :' Fixwert nicht ändern
' *** DARSTELLUNGS-BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS%      : SEITE_RECHTS% = (SCREEN_X - 130-50)
DIM SEITE_LINKS%      : SEITE_LINKS%  = 95
' *** DARSTELLUNGS-BILDSCHIRM für Gebäude DEFINIEREN ***************************
DIM SEITE_RECHTS01%    : SEITE_RECHTS01% = (SCREEN_X - 110)
DIM SEITE_LINKS01%    : SEITE_LINKS01%  = 95
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS02%    : SEITE_RECHTS02% = (SCREEN_X - 130)
DIM SEITE_LINKS02%    : SEITE_LINKS02%  = 95
' *** DARSTELLUNGS-BILDSCHIRM für Rampen DEFINIEREN ****************************
DIM SEITE_RECHTS03%    : SEITE_RECHTS03% = (SCREEN_X - 130 -50)
DIM SEITE_LINKS03%    : SEITE_LINKS03%  = 95
' *** Grenzen für Fahrwege auf Bildschirm langer Fahrweg ***********************
DIM SEITE_RECHTS04%    : SEITE_RECHTS04% = (SCREEN_X - Weg04%)
DIM SEITE_LINKS04%    : SEITE_LINKS04%  = 90
' *** Grenzen für Fahrwege auf Bildschirm kurzer Fahrweg links *****************
DIM SEITE_RECHTS05%    : SEITE_RECHTS05% = 90 + Weg01%
DIM SEITE_LINKS05%    : SEITE_LINKS05%  = 90
' *** Grenzen für Fahrwege auf Bildschirm kurzer Fahrweg rechts ****************
DIM SEITE_RECHTS06%    : SEITE_RECHTS06% = (SCREEN_X - Weg04%)
DIM SEITE_LINKS06%    : SEITE_LINKS06%  = (SCREEN_X - Weg04% - Weg02%)
' *** Grenzen für Fahrwege auf Bildschirm langer Fahrweg zum verschieben *******
DIM SEITE_RECHTS07%    : SEITE_RECHTS07% = (SCREEN_X - Weg04% - Weg02%)
DIM SEITE_LINKS07%    : SEITE_LINKS07%  = 90 + Weg01%
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrweg kompltt nach rechts ***********
DIM FAHR_WEG_01%      : FAHR_WEG_01%    =    (SCREEN_X - Weg04% - 90)
DIM FAHR_WEG_02%      : FAHR_WEG_02%    = 0 - (SCREEN_X - Weg04% - 90)
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege links in Tabelle DEFINIEREN **
DIM FAHR_WEG_03%      : FAHR_WEG_03%    =    Weg01%      :' immer 100 Pixel
DIM FAHR_WEG_04%      : FAHR_WEG_04%    = 0 - Weg01%      :' immer 100 Pixel
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege rechts in Tabelle DEFINIEREN *
DIM FAHR_WEG_05%      : FAHR_WEG_05%    =    Weg02%      :' immer 101Pixel
DIM FAHR_WEG_06%      : FAHR_WEG_06%    = 0 - Weg02%    :' immer 101 Pixel
' *** DARSTELLUNGS-BILDSCHIRM Grenze für Fahrwege nach rechts zum verschieben **
DIM FAHR_WEG_07%      : FAHR_WEG_07%    =    (SCREEN_X - Weg04% - 90 - Weg02% )
DIM FAHR_WEG_08%      : FAHR_WEG_08%    = 0 - (SCREEN_X - Weg04% - 90 - Weg02% )
' *** Fahrweg horitontal auf Null gesetzt **************************************
DIM FAHR_WEG_99%      : FAHR_WEG_99%    = 0
' *** DARSTELLUNGS-BILDSCHIRM Bereich des Bremsweges ***************************
DIM Brems_WEG_01%      : Brems_WEG_01%  = 30        :' immer 30 Pixel
' ------------------------------------------------------------------------------
DIM SEITE_OBEN01%      : SEITE_OBEN01% = 57  :' Fabrik, Zulieferer, Rampen
DIM SEITE_OBEN02%      : SEITE_OBEN02% = 60  :' Andockstellen
' ******************************************************************************
DIM SEITE_UNTEN01%    : SEITE_UNTEN01%  = 855 :' Höhe der Gebäude
' *** Anzeige der Fahrt-Nr. für LKW 01 *****************************************
EDIT 5000: TOP 5000,20: LEFT 5000,Screen_X/8+150: HEIGHT 5000,20 :WIDTH 5000,120
COLOR 5000,255,000,000: Text 5000," LKW01 Fahrt Nr.: "
' *** Anzeige der Fahrt-Nr. für LKW 02 *****************************************
EDIT 5001: TOP 5001,20: LEFT 5001,Screen_X/8+300: HEIGHT 5001,20 :WIDTH 5001,120
COLOR 5001,000,255,000: Text 5001," LKW02 Fahrt Nr.: "
' *** Darstellung der Fahrfläche ***********************************************
Picture 5900 : TOP 5900,57 : LEFT 5900,135 : HEIGHT 5900,855
WIDTH 5900,(SCREEN_X - 160 - 135) :COLOR 5900,070,070,080
' *** LABEL ERSTELLEN **********************************************************
label main_101 :label main_202
label halt
label start_LKW_all :label Stop_LKW_all
label Start_Lkw_01  :label Start_Lkw_02
label Stop_LKW_01  :label Stop_LKW_02
label FAHRTDATENFUERLKW
label LKW_ERSTELLEN
label VARIABLEN_NEU_INITZIALISIEREN
' *** Ablauf für LKW 01
label Weiter101                      :' LKW nach rechts fahren langer Weg
label Weiter102                      :' LKW nach rechts fahren kurzer Weg linke Seite
label Weiter103                      :' LKW nach rechts fahren kurzer Weg rechte Seite
label Weiter104                      :' LKW nach links fahren langer Weg
label Weiter105                      :' LKW nach links fahren kurzer Weg
label Weiter106                      :'
label Weiter107                      :' Auswahl LKW nach oben oder unten fahren
label Weiter108                      :' LKW nach unten fahren
label Weiter109                      :' LKW nach oben fahren
label Weiter110                      :' Pause an Ladestelle
label Weiter111
' *** Ablauf für LKW 02
label Weiter211 :label Weiter212 : label Weiter213 : label Weiter214
label Weiter215 :label Weiter216 : label Weiter217 : label Weiter218
label Weiter219 :label Weiter220 : label Weiter221
label Weiter173 :label Weiter174 :' für Wartezeit Be- und Entladen
label Weiter273 :label Weiter274
' ******************************************************************************
dim Zaehler%            :' Zaehler% = 1        :' Zähler für dir gelesenen Zeilen
dim LKW%
dim Anzahl_LKW%        : Anzahl_LKW%      = 2
dim Anzahl_Fahrten%    : Anzahl_Fahrten%  = 80
dim Anzahl_Fahrten1%  : Anzahl_Fahrten1% = 80
dim Anzahl_Fahrten2%  : Anzahl_Fahrten2% = 80
dim Letzte_Fahrten%    : Letzte_Fahrten%  = 80
dim Zaehler_LKW%      : Zaehler_LKW%    = 1
dim Z1%
dim Ankunft%(Anzahl_LKW%)
' *** Geschwindigkeit pro LKW **************************************************
dim v%(Anzahl_LKW%)    :' Übergabe Variable
dim v1%(Anzahl_LKW%)    :' Hilfsvariable für Fahrgeschwindigkeit
dim v2%(Anzahl_LKW%)    :' Bechleunigungs- und Bremsgescheindigkeit
dim v3%(Anzahl_LKW%)    :'
dim v4%(Anzahl_LKW%)
' *** Hilfsvariable zur Übernahme der Geschwindigkeit **************************
v%(1) = 0 : v%(2) = 0
' *** Normale Geschwindigkeit für horizontale Fahrt
v1%(1) = 14 : v1%(2) = 14
' *** Beschleunigungs- und Bremsgescheingigkeit für horizontale Fahrt **********
v2%(1) = 1 :v2%(2) = 1
' *** Standgeschwindigkeit = 0  wenn Zielpunkt erreicht ************************
v3%(1) = 0 :v3%(2) = 0
' *** Normale Geschwindigkeit für verikale Fahrt *******************************
v4%(1) = 4 :v4%(2) = 4
' ***
dim R_horiz%(Anzahl_LKW%,Anzahl_Fahrten%)
dim R_vert%(Anzahl_LKW%,Anzahl_Fahrten%)
dim R_stand%(Anzahl_LKW%,Anzahl_Fahrten%)
dim D_01_horiz%(Anzahl_LKW%)  :' Langer Weg von links nach rechts
dim D_02_horiz%(Anzahl_LKW%)  :' Kurzer Weg von nur linke Seite
dim D_03_horiz%(Anzahl_LKW%)  :' Kurzer Weg von nur rechte Seite
dim delta_vertikal%(Anzahl_LKW%)
dim delta_platzstand%(Anzahl_LKW%)
dim pos%(Anzahl_LKW%)
dim Uhr01% :dim Uhr02%
' ******************************************************************************
Gosub FAHRTDATENFUERLKW
Gosub LKW_ERSTELLEN
' ***Click im MENÜ *************************************************************
ON_CLICK 9701,halt
ON_CLICK 9702,start_LKW_all
ON_CLICK 9703,Stop_Lkw_all
ON_CLICK 9704,Start_Lkw_01
ON_CLICK 9705,Start_Lkw_02
ON_CLICK 9708,Stop_LKW_01
ON_CLICK 9709,Stop_LKW_02
timer 9991                  :' Timer LKW 01 erstellen
timer 9992                  :' Timer LKW 02 erstellen
end
' *** Timer Stoppen ************************************************************
Stop_LKW_all:
timer_off 9991 :timer_off 9992:end
Stop_LKW_01:
timer_off 9991 :end
Stop_LKW_02:
timer_off 9992 :end
start_LKW_all:
if Anzahl_Fahrten% = Letzte_Fahrten% then Gosub VARIABLEN_NEU_INITZIALISIEREN
Anzahl_LKW% = 2 :Zaehler_LKW% = 2
timer_interval 9991,50            :' Timer interval für LKW 01 festlegen
timer_interval 9992,50            :' Timer interval für LKW 02 festlegen
on_timer      9991,main_101      :' Timer Startlabel für LKW 01 festlegen
on_timer      9992,main_202      :' Timer Startlabel für LKW 01 festlegen
timer_on      9991              :' Timer Starten
timer_on      9992              :' Timer Starten
return
Start_Lkw_01:
if Anzahl_Fahrten% = Letzte_Fahrten% then Gosub VARIABLEN_NEU_INITZIALISIEREN
Anzahl_LKW% = 2 :Zaehler_LKW% = 2
timer_interval 9991,10 :on_timer 9991,main_101 timer_on 9991 :return
Start_Lkw_02:
if Anzahl_Fahrten% = Letzte_Fahrten% then Gosub VARIABLEN_NEU_INITZIALISIEREN
Anzahl_LKW% = 2 :Zaehler_LKW% = 2
timer_interval 9992,10 :on_timer 9992,main_202 :timer_on 9992 :return
' *** Timer Schleife 1 für LKW 01 **********************************************
main_101:
timer_off 9991
Text 5000," LKW01 Fahrt Nr.: "+STR$(Anzahl_Fahrten1%)
' ------------------------------------------------------------------------------
if Ankunft%(1) = 1 then Anzahl_LKW%    = 1
if Ankunft%(1) = 1 then Zaehler_LKW%    = 1
if Ankunft%(1) = 1 then Anzahl_Fahrten1% = Anzahl_Fahrten1% + 1
if Ankunft%(1) = 1 then v4%(1) = 2
Text 5000," LKW01 Fahrt Nr.: "+STR$(Anzahl_Fahrten1%)
' ------------------------------------------------------------------------------
if Anzahl_Fahrten1% = Letzte_Fahrten% then Text 5000," Anzahl Fahrten : ENDE "
if Anzahl_Fahrten1% = Letzte_Fahrten% then goto Stop_LKW_01
Ankunft%(1)= 999
' *** LKW% ist der äußere Zähler der Schleife **********************************
LKW% = 1
' *** Auswahl LKW nach links oder rechts fahren ********************************
' *** Fahrt nach rechts
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_99% then goto weiter107
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_07% then goto weiter101
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_01% then goto weiter101
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_03% then goto weiter102
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_05% then goto weiter103
' *** Fahrt nach links
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_99% then goto weiter107
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_08% then goto weiter111
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_02% then goto weiter104
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_04% then goto weiter105
if R_horiz%(LKW%,Anzahl_Fahrten1%) = Fahr_weg_06% then goto weiter106
' *** LKW nach rechts fahren langer Weg ****************************************
weiter101:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS04% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS04%  > D_01_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach rechts fahren von linker Seite kurzer Weg ***********************
weiter102:
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS05%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS05% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS05%  > D_02_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach rechts fahren von rechter Seite kurzer Weg **********************
weiter103:
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach rechts
if left(LKW%) = SEITE_LINKS06%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS06% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach rechts
left LKW%,left(LKW%) + v%(LKW%)
' *** Bremsstrecke nach rechts
if left(LKW%) - SEITE_LINKS06%  > D_03_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle rechts
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach links fahren langer Weg *****************************************
weiter104:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS04% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS04%  < D_01_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach links fahren langer Weg 2 ***************************************
weiter111:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS07%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS07% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS07%  < D_01_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach links fahren kurzer Weg *****************************************
weiter105:
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS05%  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS05% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS05%  < D_02_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** LKW nach links fahren kurzer Weg ****************************************
weiter106:
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten1%)
' *** Anfahrstrecke  nach links
if left(LKW%) = SEITE_RECHTS06%  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS06% + Brems_WEG_01%  then v%(LKW%) = v1%(LKW%)
' *** Normalfahrstrecke nach links
left LKW%,left(LKW%) - v%(LKW%)
' *** Bremsstrecke nach links
if left(LKW%) - SEITE_RECHTS06% < D_03_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
' *** LKW steht an Ladestelle links
if left(LKW%) - SEITE_RECHTS06% = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS06% = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
' *** Neue vertikal Position an Ladestelle festlegen
if left(LKW%) - SEITE_RECHTS06% = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter107
' *** Auswahl LKW nach oben oder unten fahren **********************************
weiter107:
if R_vert%(LKW%,Anzahl_Fahrten1%) = 0  then goto weiter110
if R_vert%(LKW%,Anzahl_Fahrten1%) > 0  then goto weiter108
if R_vert%(LKW%,Anzahl_Fahrten1%) < 0  then goto weiter109
' *** LKW nach unten fahren ****************************************************
Weiter108:
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten1%)
' *** Normalfahrstrecke nach unten
top LKW%,top(LKW%) + v4%(LKW%)
' *** Stop der Fahrt nach unten
if top(LKW%) =  pos%(LKW%) + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
if top(LKW%) =  pos%(LKW%) + delta_vertikal%(LKW%) then Ankunft%(LKW%) = 1
' *** Sprung zur Pause an Ladestelle
goto weiter110
' *** LKW nach oben fahren *****************************************************
Weiter109:
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten1%)
' *** Normalfahrstrecke nach oben
top LKW%,top(LKW%) - v4%(LKW%)
' *** Stop der Fahrt nach oben
if top(LKW%) =  pos%(LKW%)  + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
if top(LKW%) =  pos%(LKW%)  + delta_vertikal%(LKW%) then Ankunft%(LKW%) = 1
' *** Sprung zur Pause an Ladestelle
goto weiter110
' *** Prüfen ob Pause an Ladestelle erforderlich *******************************
Weiter110:
if R_stand%(LKW%,Anzahl_Fahrten1%) = 0 then goto Weiter174
if R_stand%(LKW%,Anzahl_Fahrten1%) > 0 then goto Weiter173
' *** Länge der Pause an Ladestelle durchführen ********************************
Weiter173:
delta_platzstand%(Anzahl_LKW%) =  R_stand%(LKW%,Anzahl_Fahrten1%)
Uhr01% = Uhr01% + 1
if Uhr01% = delta_platzstand%(Anzahl_LKW%) then  Ankunft%(LKW%) = 1
if Uhr01% = delta_platzstand%(Anzahl_LKW%) then  Uhr01% = 0
goto weiter174
' *** Timer einschalten ********************************************************
Weiter174:
timer_on 9991 : return
end
' *** Timer Schleife 2 *********************************************************
main_202:
timer_off 9992
Text 5001," LKW02 Fahrt Nr.: "+STR$(Anzahl_Fahrten2%)
if Ankunft%(2) = 1 then Anzahl_LKW%    = 2
if Ankunft%(2) = 1 then Zaehler_LKW%    = 2
if Ankunft%(2) = 1 then Anzahl_Fahrten2% = Anzahl_Fahrten2% + 1
if Ankunft%(2) = 1 then v4%(2) = 2
Text 5001," LKW02 Fahrt Nr.: "+STR$(Anzahl_Fahrten2%)
if Anzahl_Fahrten2% = Letzte_Fahrten% then Text 5001," LKW02 Fahrt Nr. : ENDE "
if Anzahl_Fahrten2% = Letzte_Fahrten% then goto Stop_LKW_02
Ankunft%(2)= 999
LKW% = 2
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_99% then goto weiter217
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_07% then goto weiter211
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_01% then goto weiter211
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_03% then goto weiter212
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_05% then goto weiter213
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_99% then goto weiter217
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_08% then goto weiter221
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_02% then goto weiter214
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_04% then goto weiter215
if R_horiz%(LKW%,Anzahl_Fahrten2%) =  Fahr_weg_06% then goto weiter216
weiter211:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_LINKS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS04% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) + v%(LKW%)
if left(LKW%) - SEITE_LINKS04%  > D_01_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_LINKS04%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter212:
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_LINKS05%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS05% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) + v%(LKW%)
if left(LKW%) - SEITE_LINKS05%  > D_02_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_LINKS05%  = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter213:
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_LINKS06%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_LINKS06% + Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) + v%(LKW%)
if left(LKW%) - SEITE_LINKS06%  > D_03_horiz%(LKW%) - Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_LINKS06%  = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter214:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_RECHTS04%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS04% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) - v%(LKW%)
if left(LKW%) - SEITE_RECHTS04%  < D_01_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_RECHTS04%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter221:
D_01_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_RECHTS07%      then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS07% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) - v%(LKW%)
if left(LKW%) - SEITE_RECHTS07%  < D_01_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_RECHTS07%  = D_01_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter215:
D_02_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_RECHTS05%  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS05% - Brems_WEG_01% then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) - v%(LKW%)
if left(LKW%) - SEITE_RECHTS05%  < D_02_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_RECHTS05%  = D_02_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter216:
D_03_horiz%(LKW%)  =  R_horiz%(LKW%,Anzahl_Fahrten2%)
if left(LKW%) = SEITE_RECHTS06%  then v%(LKW%) = v2%(LKW%)
if left(LKW%) = SEITE_RECHTS06% + Brems_WEG_01%  then v%(LKW%) = v1%(LKW%)
left LKW%,left(LKW%) - v%(LKW%)
if left(LKW%) - SEITE_RECHTS06%  < D_03_horiz%(LKW%) + Brems_WEG_01% then v%(LKW%) = v2%(LKW%)
if left(LKW%) - SEITE_RECHTS06%  = D_03_horiz%(LKW%) then v%(LKW%) = v3%(LKW%)
if left(LKW%) - SEITE_RECHTS06%  = D_03_horiz%(LKW%) then Ankunft%(LKW%) = 1
if left(LKW%) - SEITE_RECHTS06%  = D_03_horiz%(LKW%) then pos%(LKW%) = top(LKW%)
goto weiter217
weiter217:
if R_vert%(LKW%,Anzahl_Fahrten2%) = 0  then goto weiter220
if R_vert%(LKW%,Anzahl_Fahrten2%) > 0  then goto weiter218
if R_vert%(LKW%,Anzahl_Fahrten2%) < 0  then goto weiter219
Weiter218:
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten2%)
top LKW%,top(LKW%) + v4%(LKW%)
if top(LKW%) =  pos%(LKW%) + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
if top(LKW%) =  pos%(LKW%) + delta_vertikal%(LKW%) then Ankunft%(LKW%) = 1
goto weiter220
Weiter219:
delta_vertikal%(LKW%) = R_vert%(LKW%,Anzahl_Fahrten2%)
top LKW%,top(LKW%) - v4%(LKW%)
if top(LKW%) =  pos%(LKW%)  + delta_vertikal%(LKW%) then v4%(LKW%) = v3%(LKW%)
if top(LKW%) =  pos%(LKW%)  + delta_vertikal%(LKW%) then Ankunft%(LKW%) = 1
goto weiter220
Weiter220:
if R_stand%(LKW%,Anzahl_Fahrten2%) = 0 then goto Weiter274
if R_stand%(LKW%,Anzahl_Fahrten2%) > 0 then goto Weiter273
Weiter273:
delta_platzstand%(Anzahl_LKW%) =  R_stand%(LKW%,Anzahl_Fahrten2%)
Uhr02% = Uhr02% + 1
if Uhr02% = delta_platzstand%(Anzahl_LKW%) then  Ankunft%(LKW%) = 1
if Uhr02% = delta_platzstand%(Anzahl_LKW%) then  Uhr02% = 0
goto weiter274
Weiter274:
timer_on 9992 :return
end
' *** PROGRAMM ANHALTEN UND BEENDEN ********************************************
halt:
timer_off_all:terminate
' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Dim 28 Juil 2013 - 23:36

Teil 2

Code:


' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
' -------------------------------------------------------------------------- ----
LKW_ERSTELLEN:
' *** SYMBOLE FÜR LKW erstellen ************************************************
for    i% = Zaehler_LKW%  to Anzahl_LKW%
edit  i% : top    i%,43+16*i%
if i% = 1 then left i%,SEITE_LINKS04%                      :' SEITE_RECHTS04%
if i% = 2 then left i%,SEITE_LINKS04%
width  i%,45 :height i%,16
if i% = 1 then color i%,255,000,000
if i% = 2 then color i%,000,255,000
text  i%,"  Linie "+STR$(i%)
if i% = 1 then top 1,43 + (16 * 20)
if i% = 2 then top 2,43 + (16 * 47)
if i% = 1 then pos%(i%) = top(1)
if i% = 2 then pos%(i%) = top(2)
next  i%
RETURN
' ------------------------------------------------------------------------------
VARIABLEN_NEU_INITZIALISIEREN:
Anzahl_Fahrten1% = 1
Anzahl_Fahrten2% = 1
for    i% = Zaehler_LKW%  to Anzahl_LKW%
top    i%,43+16*i%
if i% = 1 then left i%,SEITE_LINKS04%                      :' SEITE_RECHTS04%
if i% = 2 then left i%,SEITE_LINKS04%
width  i%,45 :height i%,16
if i% = 1 then color i%,255,000,000
if i% = 2 then color i%,000,255,000
text  i%,"Linie "+STR$(i%)
if i% = 1 then top 1,43 + (16 * 20)
if i% = 2 then top 2,43 + (16 * 47)
if i% = 1 then pos%(i%) = top(1)
if i% = 2 then pos%(i%) = top(2)
next  i%
RETURN
' ------------------------------------------------------------------------------
FAHRTDATENFUERLKW:
' *** FABRIK erstellen *********************************************************
edit 9800 :color 9800,000,255,000
TOP 9800,SEITE_OBEN01% :LEFT 9800,10 :HEIGHT 9800,SEITE_UNTEN01% :WIDTH 9800,75
' *** RAMPEN FABRIK erstellen **************************************************
EDIT 9810
TOP 9810,SEITE_OBEN01% : LEFT 9810,85 : HEIGHT 9810,SEITE_UNTEN01% : WIDTH 9810,19
' *** Andockstellen Fabrik *****************************************************
j% = 0
for  i% = 8001 to 8053
edit i% :top i%,SEITE_OBEN02%+j% :left i%,15 :width  i%,60 :height i%,16
j% = j% + 16
next i%
' *** Text für Andockstellen links - Fabrik
text 8001," Tor 1  M" :text 8002," Tor 2  M" :text 8003," Tor 3  M" :text 8004," Tor 4  M"
text 8005," Tor 5  M" :text 8006," Tor 7  M" :text 8007," Tor 8  M" :text 8008," Tor 9  M"
text 8009," Tor 10  M" :text 8010," Tor 11  M" :text 8011," Tor 12  M" :text 8012," Tor 21  M"
text 8013," Tor 22  M" :text 8014," Tor 23  M" :text 8015," Tor 24  M" :text 8016," Tor 26  M"
text 8017," Tor 27  M" :text 8018," Tor 28  M" :text 8019," Tor 29  M" :text 8020," Tor 32  M"
text 8021," Tor 33  M" :text 8022," Tor 34  M" :text 8023," Tor 35  M" :text 8024," Tor 36  M"
text 8025," Tor 37  M" :text 8026," Tor 38  M" :text 8027," Tor 39  M" :text 8028," Tor 40  M"
text 8029," Tor 45  M" :text 8030," Tor 46  M" :text 8031," Tor 47  M" :text 8032," Tor 48  M"
text 8033," Tor 49  M" :text 8034," Tor 401 H" :text 8035," Tor 402 H" :text 8036," Tor 403 H"
text 8037," Tor 404 H" :text 8038," Tor 405 H" :text 8039," Tor 406 H" :text 8040," Tor 407 H"
text 8041," Tor 408 H" :text 8042," Tor 430 H" :text 8043," Tor 431 H" :text 8044," Tor 432 H"
text 8045," Tor 433 H" :text 8046," Tor 434 H" :text 8047," Tor 104 N" :text 8048," Tor 105 N"
text 8049," Tor 106 N" :text 8050," Tor 107 N" :text 8051," Tor 108 N" :text 8052," Tor 109 N"
text 8053," Tor 110 N"
' *** Färben der dauerhaft belegte Andockstellen links Fabrik
color 8006,230,020,200 : Hint 8006," ??? "
color 8014,230,020,200 : Hint 8014," ??? "
color 8016,230,020,200 : Hint 8016," ??? "
color 8018,230,020,200 : Hint 8018," ??? "
color 8029,230,020,200 : Hint 8029," ??? "
color 8030,230,020,200 : Hint 8030," ??? "
color 8031,230,020,200 : Hint 8031," ??? "
' *** Färben der Andockstellen Niederstetten
Color 8047,215,240,095 :Color 8048,215,240,095 :Color 8049,215,240,095
Color 8050,215,240,095 :Color 8051,215,240,095 :Color 8052,215,240,095
Color 8053,215,240,095
' *** Färben der Andockstellen Hollenbach 401 bis 408
Color 8034,215,210,110 :Color 8035,215,210,110 :Color 8036,215,210,110
Color 8037,215,210,110 :Color 8038,215,210,110 :Color 8039,215,210,110
Color 8040,215,210,110 :Color 8041,215,210,110
' *** Färben der Andockstellen Hollenbach 430 bis 434
Color 8042,215,190,110 :Color 8043,215,190,110 :Color 8044,215,190,110
Color 8045,215,190,110 :Color 8046,215,190,110
' *** Färben der Andockstellen Mulfingen 32 bis 40
Color 8020,000,230,000 :Color 8021,000,230,000 :Color 8022,000,230,000
Color 8023,000,230,000 :Color 8024,000,230,000 :Color 8025,000,230,000
Color 8026,000,230,000 :Color 8027,000,230,000 :Color 8028,000,230,000
' *** Zulieferer erstellen *****************************************************
edit 9820 : color 9820,000,255,000
TOP 9820,SEITE_OBEN01% : LEFT 9820,SEITE_RECHTS01% : HEIGHT 9820,SEITE_UNTEN01% : WIDTH 9820,85
' *** RAMPEN Zulieferer erstellen **********************************************
EDIT 9830
TOP 9830,SEITE_OBEN01% : LEFT 9830,SEITE_RECHTS02% : HEIGHT 9830,SEITE_UNTEN01% : WIDTH 9830,19
' *** Andockstellen Zulieferer *************************************************
j% = 0
for  i% = 8101 to 8153
edit i% :top i%,SEITE_OBEN02%+j% :left i%,SEITE_RECHTS01% + 10 :width i%,70 :height i%,16
j% = j% + 16
next  i%
' *** Text für Andockstellen rechts - Zulieferer
text 8101," Tor 1 Wall  ":text 8102," Tor 2 Wall  " :text 8103," Tor 3 Wall  " :text 8104," Tor 4 Wall  "
text 8105,"              ":text 8106," Tor 1 Crails" :text 8107," Tor 2 Crails" :text 8108," Tor 3 Crails"
text 8109,"              ":text 8110," Tor 1 Künz 1" :text 8111," Tor 2 Künz 1" :text 8112," Tor 3 Künz 1"
text 8113,"              ":text 8114," Tor 1 Künz 2" :text 8115,"            " :text 8116," Tor 1 Satt  "
text 8117," Tor 2 Satt  ":text 8118," Tor 3 Satt  " :text 8119," Tor 4 Satt  " :text 8120," Tor 5 Satt  "
text 8121," Tor 6 Satt  ":text 8122," Tor 7 Satt  " :text 8123," Tor 8 Satt  " :text 8124,"            "
text 8125," Tor 1 Satt  ":text 8126," Tor 2 Satt  " :text 8127," Tor 3 Satt  " :text 8128," Tor 4 Satt  "
text 8129," Tor 5 Satt  ":text 8130," Tor 6 Satt  " :text 8131," Tor 7 Satt  " :text 8132," Tor 8 Satt  "
text 8133," Tor 8 Satt  ":text 8134," Tor 10 Satt " :text 8135," Tor 11 Satt " :text 8136," Tor 12 Satt "
text 8137," Tor 13 Satt  ":text 8138," Tor 14 Satt " :text 8139," Tor 15 Satt " :text 8140,"            "
text 8141," Tor 1 Thor  ":text 8142,"            " :text 8143," Tor 1 Dörr  " :text 8144," Tor 2 Dörr  "
text 8145," Tor1 SMWA    ":text 8146," Tor1 SMWA  " :text 8147," Tor 1 MT/RA " :text 8148,"            "
text 8149," Tor1 Stadt 1 ":text 8150," Tor1 Stadt 2" :text 8151,"            " :text 8152," Tor 1 PVSB  "
text 8153," Tor 2 PVSB    "
' *** Freie Andockstellen rechts Zuliefer
color 8105,130,130,130 :color 8109,130,130,130 :color 8113,130,130,130
color 8115,130,130,130 :color 8124,130,130,130 :color 8140,130,130,130
color 8142,130,130,130 :color 8148,130,130,130 :color 8151,130,130,130
' *** Dauerhaft belegte Andockstellen rechts Zuliefer
color 8103,230,020,200 : Hint 8103," Ist für Abholer von Luftfracht freizuhalten"
' *** Wechselbrücke für Dürr erstellen *****************************************
edit 99 : top 99,43+16*44 : left 99,SEITE_RECHTS04%  : width 99,45 : height 99,16
text 99, "Auflieg." :color 99,130,130,130
hint 99," Eine Wechselbrücke steht permanent bei Dörr "
' *** Folgende Variablen sind in Fahrtabelle einzutragen ***********************
'  Richtung nach rechts  =  FAHR_WEG_01%    kompletter Weg
'  Richtung nach links    =  FAHR_WEG_02%    kompletter Weg
'  Richtung nach rechts  =  FAHR_WEG_07%    kompletter Weg, verkürzt um 101 Pixel
'  Richtung nach links    =  FAHR_WEG_08%    kompletter Weg, verkürzt um 101 Pixel
'  Richtung nach rechts  =  FAHR_WEG_03%  100 Pixel - Teilweg von links nach rechts
'  Richtung nach links    =  FAHR_WEG_04%  100 Pixel - Teilweg von rechts nach links
'  Richtung nach rechts  =  FAHR_WEG_05%  101 Pixel - Teilweg von rechts nach links
'  Richtung nach links    =  FAHR_WEG_06%  101 Pixel - Teilweg von links nach rechts
'  Richtung nach unten    =  POSITIV    xxx    STEP 16
'  Richtung nach oben    =  NEGATIV  -xxx    STEP -16
' *** DATEN FÜR LKW 001 Linie 1  ***********************************************
 Z1% = 1
' --- 1. Fahr Früh -------------------------------------------------------------
' *** Fahrt von Tor 32 zum Tor 1
 R_horiz%(Z1%,01) = FAHR_WEG_03%  : R_vert%(Z1%,01) =  000 :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_99%  : R_vert%(Z1%,02) = -304 :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_04%  : R_vert%(Z1%,03) =  000 :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_99%  : R_vert%(Z1%,04) =  000 :R_stand%(Z1%,04) = 001
' *** Fahrt vom Tor 1 zu PVS
 R_horiz%(Z1%,05) = FAHR_WEG_07%  : R_vert%(Z1%,05) =  000 :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_99%  : R_vert%(Z1%,06) =  832 :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_05%  : R_vert%(Z1%,07) =  000 :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_99%  : R_vert%(Z1%,08) =  000 :R_stand%(Z1%,08) = 001
' *** Fahrt von PVS zum Tor 1
 R_horiz%(Z1%,09) = FAHR_WEG_06%    : R_vert%(Z1%,09) =  000 :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_99%    : R_vert%(Z1%,10) = -832 :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_08%    : R_vert%(Z1%,11) =  000 :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_99%    : R_vert%(Z1%,12) =  000 :R_stand%(Z1%,12) = 001
' *** Fahrt vom Tor 1 zum Tor 4
 R_horiz%(Z1%,13) = FAHR_WEG_03%    : R_vert%(Z1%,13) =  000 :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_99%    : R_vert%(Z1%,14) =  48 :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_04%    : R_vert%(Z1%,15) =  000 :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_99%    : R_vert%(Z1%,16) =  000 :R_stand%(Z1%,16) = 001
' *** Fahrt vom Tor 4 zum Tor 8
 R_horiz%(Z1%,17) = FAHR_WEG_03%    : R_vert%(Z1%,17) =  000 :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_99%    : R_vert%(Z1%,18) =  48 :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_04%    : R_vert%(Z1%,19) =  000 :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_99%    : R_vert%(Z1%,20) =  000 :R_stand%(Z1%,20) = 001
' *** fahrt vom Tor 8 zum Tor 21
 R_horiz%(Z1%,21) = FAHR_WEG_03%    : R_vert%(Z1%,21) =  000 :R_stand%(Z1%,21) = 000
 R_horiz%(Z1%,22) = FAHR_WEG_99%    : R_vert%(Z1%,22) =  80 :R_stand%(Z1%,22) = 000
 R_horiz%(Z1%,23) = FAHR_WEG_04%    : R_vert%(Z1%,23) =  000 :R_stand%(Z1%,23) = 000
 R_horiz%(Z1%,24) = FAHR_WEG_99%    : R_vert%(Z1%,24) =  000 :R_stand%(Z1%,24) = 001
' *** Fahrt von Tor 21 zum Tor 48
 R_horiz%(Z1%,25) = FAHR_WEG_03%    : R_vert%(Z1%,25) =  000 :R_stand%(Z1%,25) = 000
 R_horiz%(Z1%,26) = FAHR_WEG_99%    : R_vert%(Z1%,26) =  320 :R_stand%(Z1%,26) = 000
 R_horiz%(Z1%,27) = FAHR_WEG_04%    : R_vert%(Z1%,27) =  000 :R_stand%(Z1%,27) = 000
 R_horiz%(Z1%,28) = FAHR_WEG_99%    : R_vert%(Z1%,28) =  000 :R_stand%(Z1%,28) = 001
' *** Fahrt vom Tor 48 zum Tor 430
 R_horiz%(Z1%,29) = FAHR_WEG_03%    : R_vert%(Z1%,29) =  000 :R_stand%(Z1%,29) = 000
 R_horiz%(Z1%,30) = FAHR_WEG_99%    : R_vert%(Z1%,30) =  160 :R_stand%(Z1%,30) = 000
 R_horiz%(Z1%,31) = FAHR_WEG_04%    : R_vert%(Z1%,31) =  000 :R_stand%(Z1%,31) = 000
 R_horiz%(Z1%,32) = FAHR_WEG_99%    : R_vert%(Z1%,32) =  000 :R_stand%(Z1%,32) = 001
' *** Fahrt vom Tor 430 zum Tor 104
 R_horiz%(Z1%,33) = FAHR_WEG_03%    : R_vert%(Z1%,33) =  000 :R_stand%(Z1%,33) = 000
 R_horiz%(Z1%,34) = FAHR_WEG_99%    : R_vert%(Z1%,34) =  80 :R_stand%(Z1%,34) = 000
 R_horiz%(Z1%,35) = FAHR_WEG_04%    : R_vert%(Z1%,35) =  000 :R_stand%(Z1%,35) = 000
 R_horiz%(Z1%,36) = FAHR_WEG_99%    : R_vert%(Z1%,36) =  000 :R_stand%(Z1%,36) = 001
' *** Fahrt vom Tor 104 zum Tor 12
 R_horiz%(Z1%,37) = FAHR_WEG_03%    : R_vert%(Z1%,37) =  000 :R_stand%(Z1%,37) = 000
 R_horiz%(Z1%,38) = FAHR_WEG_99%    : R_vert%(Z1%,38) = -576 :R_stand%(Z1%,38) = 000
 R_horiz%(Z1%,39) = FAHR_WEG_04%    : R_vert%(Z1%,39) =  000 :R_stand%(Z1%,39) = 000
 R_horiz%(Z1%,40) = FAHR_WEG_99%    : R_vert%(Z1%,40) =  000 :R_stand%(Z1%,40) = 001
' *** Fahrt vom Tor 12 zum Tor 1
 R_horiz%(Z1%,41) = FAHR_WEG_03%    : R_vert%(Z1%,41) =  000 :R_stand%(Z1%,41) = 000
 R_horiz%(Z1%,42) = FAHR_WEG_99%    : R_vert%(Z1%,42) = -160 :R_stand%(Z1%,42) = 000
 R_horiz%(Z1%,43) = FAHR_WEG_04%    : R_vert%(Z1%,43) =  000 :R_stand%(Z1%,43) = 000
 R_horiz%(Z1%,44) = FAHR_WEG_99%    : R_vert%(Z1%,44) =  000 :R_stand%(Z1%,44) = 001
' --- 2. Fahrt Mittags ---------------------------------------------------------
' *** Fahrt vom Tor 1 zu PVS
 R_horiz%(Z1%,45) = FAHR_WEG_07%    : R_vert%(Z1%,45) =  000 :R_stand%(Z1%,45) = 000
 R_horiz%(Z1%,46) = FAHR_WEG_99%    : R_vert%(Z1%,46) =  832 :R_stand%(Z1%,46) = 000
 R_horiz%(Z1%,47) = FAHR_WEG_05%    : R_vert%(Z1%,47) =  000 :R_stand%(Z1%,47) = 000
 R_horiz%(Z1%,48) = FAHR_WEG_99%    : R_vert%(Z1%,48) =  000 :R_stand%(Z1%,48) = 001
' *** Fahrt von PVS zum Tor 1
 R_horiz%(Z1%,49) = FAHR_WEG_06%    : R_vert%(Z1%,49) =  000 :R_stand%(Z1%,49) = 000
 R_horiz%(Z1%,50) = FAHR_WEG_99%    : R_vert%(Z1%,50) = -832 :R_stand%(Z1%,50) = 000
 R_horiz%(Z1%,51) = FAHR_WEG_08%    : R_vert%(Z1%,51) =  000 :R_stand%(Z1%,51) = 000
 R_horiz%(Z1%,52) = FAHR_WEG_99%    : R_vert%(Z1%,52) =  000 :R_stand%(Z1%,52) = 001
' *** Fahrt vom Tor 1 zum Tor 4
 R_horiz%(Z1%,53) = FAHR_WEG_03%    : R_vert%(Z1%,53) =  000 :R_stand%(Z1%,53) = 000
 R_horiz%(Z1%,54) = FAHR_WEG_99%    : R_vert%(Z1%,54) =  48 :R_stand%(Z1%,54) = 000
 R_horiz%(Z1%,55) = FAHR_WEG_04%    : R_vert%(Z1%,55) =  000 :R_stand%(Z1%,55) = 000
 R_horiz%(Z1%,56) = FAHR_WEG_99%    : R_vert%(Z1%,56) =  000 :R_stand%(Z1%,56) = 001
' *** Fahrt vom Tor 4 zum Tor 8
 R_horiz%(Z1%,57) = FAHR_WEG_03%    : R_vert%(Z1%,57) =  000 :R_stand%(Z1%,57) = 000
 R_horiz%(Z1%,58) = FAHR_WEG_99%    : R_vert%(Z1%,58) =  48 :R_stand%(Z1%,58) = 000
 R_horiz%(Z1%,59) = FAHR_WEG_04%    : R_vert%(Z1%,59) =  000 :R_stand%(Z1%,59) = 000
 R_horiz%(Z1%,60) = FAHR_WEG_99%    : R_vert%(Z1%,60) =  000 :R_stand%(Z1%,60) = 001
' *** fahrt vom Tor 8 zum Tor 21
 R_horiz%(Z1%,61) = FAHR_WEG_03%    : R_vert%(Z1%,61) =  000 :R_stand%(Z1%,61) = 000
 R_horiz%(Z1%,62) = FAHR_WEG_99%    : R_vert%(Z1%,62) =  80 :R_stand%(Z1%,62) = 000
 R_horiz%(Z1%,63) = FAHR_WEG_04%    : R_vert%(Z1%,63) =  000 :R_stand%(Z1%,63) = 000
 R_horiz%(Z1%,64) = FAHR_WEG_99%    : R_vert%(Z1%,64) =  000 :R_stand%(Z1%,64) = 001
' *** Fahrt von Tor 21 zum Tor 32
 R_horiz%(Z1%,65) = FAHR_WEG_03%    : R_vert%(Z1%,65) =  000 :R_stand%(Z1%,65) = 000
 R_horiz%(Z1%,66) = FAHR_WEG_99%    : R_vert%(Z1%,66) =  128 :R_stand%(Z1%,66) = 000
 R_horiz%(Z1%,67) = FAHR_WEG_04%    : R_vert%(Z1%,67) =  000 :R_stand%(Z1%,67) = 000
 R_horiz%(Z1%,68) = FAHR_WEG_99%    : R_vert%(Z1%,68) =  000 :R_stand%(Z1%,68) = 001
' *** Fahrt vom Tor 32 zum Tor 48
 R_horiz%(Z1%,69) = FAHR_WEG_03%    : R_vert%(Z1%,69) =  000 :R_stand%(Z1%,69) = 000
 R_horiz%(Z1%,70) = FAHR_WEG_99%    : R_vert%(Z1%,70) =  192 :R_stand%(Z1%,70) = 000
 R_horiz%(Z1%,71) = FAHR_WEG_04%    : R_vert%(Z1%,71) =  000 :R_stand%(Z1%,71) = 000
 R_horiz%(Z1%,72) = FAHR_WEG_99%    : R_vert%(Z1%,72) =  000 :R_stand%(Z1%,72) = 001
' *** Fahrt vom Tor 48 zum Tor 430
 R_horiz%(Z1%,73) = FAHR_WEG_03%    : R_vert%(Z1%,73) =  000 :R_stand%(Z1%,73) = 000
 R_horiz%(Z1%,74) = FAHR_WEG_99%    : R_vert%(Z1%,74) =  160 :R_stand%(Z1%,74) = 000
 R_horiz%(Z1%,75) = FAHR_WEG_04%    : R_vert%(Z1%,75) =  000 :R_stand%(Z1%,75) = 000
 R_horiz%(Z1%,76) = FAHR_WEG_99%    : R_vert%(Z1%,76) =  000 :R_stand%(Z1%,76) = 001
' *** Fahrt vom Tor 430 zum Tor 104
 R_horiz%(Z1%,77) = FAHR_WEG_03%    : R_vert%(Z1%,77) = 000  :R_stand%(Z1%,77) = 000
 R_horiz%(Z1%,78) = FAHR_WEG_99%    : R_vert%(Z1%,78) = 80  :R_stand%(Z1%,78) = 000
 R_horiz%(Z1%,79) = FAHR_WEG_04%    : R_vert%(Z1%,79) = 000  :R_stand%(Z1%,79) = 000
 R_horiz%(Z1%,80) = FAHR_WEG_99%    : R_vert%(Z1%,80) =  000 :R_stand%(Z1%,80) = 001
' *** DATEN FÜR LKW 002 FAHREN VON RECHTS NACH LINKS ***************************
 Z1% = 2
' --- 1. Rundfahrt -------------------------------------------------------------
' *** Fahrt vom Tor 104 zum Tor 430
 R_horiz%(Z1%,01) = FAHR_WEG_03% : R_vert%(Z1%,01) = 000 :R_stand%(Z1%,01) = 000
 R_horiz%(Z1%,02) = FAHR_WEG_99% : R_vert%(Z1%,02) = -80 :R_stand%(Z1%,02) = 000
 R_horiz%(Z1%,03) = FAHR_WEG_04% : R_vert%(Z1%,03) = 000 :R_stand%(Z1%,03) = 000
 R_horiz%(Z1%,04) = FAHR_WEG_99% : R_vert%(Z1%,04) = 000 :R_stand%(Z1%,04) = 001
' *** Fahrt vom Tor 430 zum Tor 1
 R_horiz%(Z1%,05) = FAHR_WEG_03% : R_vert%(Z1%,05) = 000 :R_stand%(Z1%,05) = 000
 R_horiz%(Z1%,06) = FAHR_WEG_99% : R_vert%(Z1%,06) = -656 :R_stand%(Z1%,06) = 000
 R_horiz%(Z1%,07) = FAHR_WEG_04% : R_vert%(Z1%,07) = 000 :R_stand%(Z1%,07) = 000
 R_horiz%(Z1%,08) = FAHR_WEG_99% : R_vert%(Z1%,08) = 000 :R_stand%(Z1%,08) = 001
' *** Fahrt vom Tor 1 zum Tor 4
 R_horiz%(Z1%,09) = FAHR_WEG_03% : R_vert%(Z1%,09) = 000 :R_stand%(Z1%,09) = 000
 R_horiz%(Z1%,10) = FAHR_WEG_99% : R_vert%(Z1%,10) = 48  :R_stand%(Z1%,10) = 000
 R_horiz%(Z1%,11) = FAHR_WEG_04% : R_vert%(Z1%,11) = 000 :R_stand%(Z1%,11) = 000
 R_horiz%(Z1%,12) = FAHR_WEG_99% : R_vert%(Z1%,12) = 000 :R_stand%(Z1%,12) = 001
' *** Fahrt vom Tor 4 zum Tor 8
 R_horiz%(Z1%,13) = FAHR_WEG_03% : R_vert%(Z1%,13) = 000 :R_stand%(Z1%,13) = 000
 R_horiz%(Z1%,14) = FAHR_WEG_99% : R_vert%(Z1%,14) = 48  :R_stand%(Z1%,14) = 000
 R_horiz%(Z1%,15) = FAHR_WEG_04% : R_vert%(Z1%,15) = 000 :R_stand%(Z1%,15) = 000
 R_horiz%(Z1%,16) = FAHR_WEG_99% : R_vert%(Z1%,16) = 000 :R_stand%(Z1%,16) = 001
' *** Fahrt vom Tor 8 zum Tor 48
 R_horiz%(Z1%,17) = FAHR_WEG_03% : R_vert%(Z1%,17) = 000 :R_stand%(Z1%,17) = 000
 R_horiz%(Z1%,18) = FAHR_WEG_99% : R_vert%(Z1%,18) = 400 :R_stand%(Z1%,18) = 000
 R_horiz%(Z1%,19) = FAHR_WEG_04% : R_vert%(Z1%,19) = 000 :R_stand%(Z1%,19) = 000
 R_horiz%(Z1%,20) = FAHR_WEG_99% : R_vert%(Z1%,20) = 000 :R_stand%(Z1%,20) = 001
' *** Fahrt vom Tor 48 zum Tor 21
 R_horiz%(Z1%,21) = FAHR_WEG_03% : R_vert%(Z1%,21) = 000 :R_stand%(Z1%,21) = 000
 R_horiz%(Z1%,22) = FAHR_WEG_99% : R_vert%(Z1%,22) = -320:R_stand%(Z1%,22) = 000
 R_horiz%(Z1%,23) = FAHR_WEG_04% : R_vert%(Z1%,23) = 000 :R_stand%(Z1%,23) = 000
 R_horiz%(Z1%,24) = FAHR_WEG_99% : R_vert%(Z1%,24) = 000 :R_stand%(Z1%,24) = 001
' *** Fahrt vom Tor 21 zum Tor 104
 R_horiz%(Z1%,25) = FAHR_WEG_03% : R_vert%(Z1%,25) = 000 :R_stand%(Z1%,25) = 000
 R_horiz%(Z1%,26) = FAHR_WEG_99% : R_vert%(Z1%,26) = 560 :R_stand%(Z1%,26) = 000
 R_horiz%(Z1%,27) = FAHR_WEG_04% : R_vert%(Z1%,27) = 000 :R_stand%(Z1%,27) = 000
 R_horiz%(Z1%,28) = FAHR_WEG_99% : R_vert%(Z1%,28) = 000 :R_stand%(Z1%,28) = 001
' --- 2. Rundfahrt -------------------------------------------------------------
' *** Fahrt vom Tor 104 zum Tor 430
 R_horiz%(Z1%,29) = FAHR_WEG_03% : R_vert%(Z1%,29) = 000 :R_stand%(Z1%,29) = 000
 R_horiz%(Z1%,30) = FAHR_WEG_99% : R_vert%(Z1%,30) = -80 :R_stand%(Z1%,30) = 000
 R_horiz%(Z1%,31) = FAHR_WEG_04% : R_vert%(Z1%,31) = 000 :R_stand%(Z1%,31) = 000
 R_horiz%(Z1%,32) = FAHR_WEG_99% : R_vert%(Z1%,32) = 000 :R_stand%(Z1%,32) = 001
' *** Fahrt vom Tor 430 zum Tor 1
 R_horiz%(Z1%,33) = FAHR_WEG_03% : R_vert%(Z1%,33) = 000 :R_stand%(Z1%,33) = 000
 R_horiz%(Z1%,34) = FAHR_WEG_99% : R_vert%(Z1%,34) = -656:R_stand%(Z1%,34) = 000
 R_horiz%(Z1%,35) = FAHR_WEG_04% : R_vert%(Z1%,35) = 000 :R_stand%(Z1%,35) = 000
 R_horiz%(Z1%,36) = FAHR_WEG_99% : R_vert%(Z1%,36) = 000 :R_stand%(Z1%,36) = 001
' *** Fahrt vom Tor 1 zum Tor 4
 R_horiz%(Z1%,37) = FAHR_WEG_03% : R_vert%(Z1%,37) = 000 :R_stand%(Z1%,37) = 000
 R_horiz%(Z1%,38) = FAHR_WEG_99% : R_vert%(Z1%,38) = 48  :R_stand%(Z1%,38) = 000
 R_horiz%(Z1%,39) = FAHR_WEG_04% : R_vert%(Z1%,39) = 000 :R_stand%(Z1%,39) = 000
 R_horiz%(Z1%,40) = FAHR_WEG_99% : R_vert%(Z1%,40) = 000 :R_stand%(Z1%,40) = 001
' *** Fahrtm vo Tor 4 zum Tor 8
 R_horiz%(Z1%,41) = FAHR_WEG_03% : R_vert%(Z1%,41) = 000 :R_stand%(Z1%,41) = 000
 R_horiz%(Z1%,42) = FAHR_WEG_99% : R_vert%(Z1%,42) = 48  :R_stand%(Z1%,42) = 000
 R_horiz%(Z1%,43) = FAHR_WEG_04% : R_vert%(Z1%,43) = 000 :R_stand%(Z1%,43) = 000
 R_horiz%(Z1%,44) = FAHR_WEG_99% : R_vert%(Z1%,44) = 000 :R_stand%(Z1%,44) = 001
' *** Fahrt vom Tor 8 zum Tor 48
 R_horiz%(Z1%,45) = FAHR_WEG_03% : R_vert%(Z1%,45) = 000 :R_stand%(Z1%,45) = 000
 R_horiz%(Z1%,46) = FAHR_WEG_99% : R_vert%(Z1%,46) = 400 :R_stand%(Z1%,46) = 000
 R_horiz%(Z1%,47) = FAHR_WEG_04% : R_vert%(Z1%,47) = 000 :R_stand%(Z1%,47) = 000
 R_horiz%(Z1%,48) = FAHR_WEG_99% : R_vert%(Z1%,48) = 000 :R_stand%(Z1%,48) = 001
' *** Fahrt vom Tor 48 zum Tor 430
 R_horiz%(Z1%,49) = FAHR_WEG_03% : R_vert%(Z1%,49) = 000 :R_stand%(Z1%,49) = 000
 R_horiz%(Z1%,50) = FAHR_WEG_99% : R_vert%(Z1%,50) = 160 :R_stand%(Z1%,50) = 000
 R_horiz%(Z1%,51) = FAHR_WEG_04% : R_vert%(Z1%,51) = 000 :R_stand%(Z1%,51) = 000
 R_horiz%(Z1%,52) = FAHR_WEG_99% : R_vert%(Z1%,52) = 000 :R_stand%(Z1%,52) = 001
' *** Fahrt vom Tor 430 zum Tor 104
 R_horiz%(Z1%,53) = FAHR_WEG_03% : R_vert%(Z1%,53) = 000 :R_stand%(Z1%,53) = 000
 R_horiz%(Z1%,54) = FAHR_WEG_99% : R_vert%(Z1%,54) = 80  :R_stand%(Z1%,54) = 000
 R_horiz%(Z1%,55) = FAHR_WEG_04% : R_vert%(Z1%,55) = 000 :R_stand%(Z1%,55) = 000
 R_horiz%(Z1%,56) = FAHR_WEG_99% : R_vert%(Z1%,56) = 000 :R_stand%(Z1%,56) = 001
' --- 3. Rundfahrt -------------------------------------------------------------
' *** Fahrt vom Tor 104 zum Tor 430
 R_horiz%(Z1%,57) = FAHR_WEG_03% : R_vert%(Z1%,57) = 000 :R_stand%(Z1%,57) = 000
 R_horiz%(Z1%,58) = FAHR_WEG_99% : R_vert%(Z1%,58) = -80 :R_stand%(Z1%,58) = 000
 R_horiz%(Z1%,59) = FAHR_WEG_04% : R_vert%(Z1%,59) = 000 :R_stand%(Z1%,59) = 000
 R_horiz%(Z1%,60) = FAHR_WEG_99% : R_vert%(Z1%,60) = 000 :R_stand%(Z1%,60) = 001
' *** Fahrt vom Tor 430 zum Tor 1
 R_horiz%(Z1%,61) = FAHR_WEG_03% : R_vert%(Z1%,61) = 000 :R_stand%(Z1%,61) = 000
 R_horiz%(Z1%,62) = FAHR_WEG_99% : R_vert%(Z1%,62) = -656:R_stand%(Z1%,62) = 000
 R_horiz%(Z1%,63) = FAHR_WEG_04% : R_vert%(Z1%,63) = 000 :R_stand%(Z1%,63) = 000
 R_horiz%(Z1%,64) = FAHR_WEG_99% : R_vert%(Z1%,64) = 000 :R_stand%(Z1%,64) = 001
' *** Fahrt vom Tor 1 zum Tor 4
 R_horiz%(Z1%,65) = FAHR_WEG_03% : R_vert%(Z1%,65) = 000 :R_stand%(Z1%,65) = 000
 R_horiz%(Z1%,66) = FAHR_WEG_99% : R_vert%(Z1%,66) = 48  :R_stand%(Z1%,66) = 000
 R_horiz%(Z1%,67) = FAHR_WEG_04% : R_vert%(Z1%,67) = 000 :R_stand%(Z1%,67) = 000
 R_horiz%(Z1%,68) = FAHR_WEG_99% : R_vert%(Z1%,68) = 000 :R_stand%(Z1%,68) = 001
' *** Fahrtm vo Tor 4 zum Tor 8
 R_horiz%(Z1%,69) = FAHR_WEG_03% : R_vert%(Z1%,69) = 000 :R_stand%(Z1%,69) = 000
 R_horiz%(Z1%,70) = FAHR_WEG_99% : R_vert%(Z1%,70) = 48  :R_stand%(Z1%,70) = 000
 R_horiz%(Z1%,71) = FAHR_WEG_04% : R_vert%(Z1%,71) = 000 :R_stand%(Z1%,71) = 000
 R_horiz%(Z1%,72) = FAHR_WEG_99% : R_vert%(Z1%,72) = 000 :R_stand%(Z1%,72) = 001
' *** Fahrt vom Tor 8 zum Tor 48
 R_horiz%(Z1%,73) = FAHR_WEG_03% : R_vert%(Z1%,73) = 000 :R_stand%(Z1%,73) = 000
 R_horiz%(Z1%,74) = FAHR_WEG_99% : R_vert%(Z1%,74) = 400 :R_stand%(Z1%,74) = 000
 R_horiz%(Z1%,75) = FAHR_WEG_04% : R_vert%(Z1%,75) = 000 :R_stand%(Z1%,75) = 000
 R_horiz%(Z1%,76) = FAHR_WEG_99% : R_vert%(Z1%,76) = 000 :R_stand%(Z1%,76) = 001
' *** Fahrt vom Tor 48 zu PVS
 R_horiz%(Z1%,77) = FAHR_WEG_07% : R_vert%(Z1%,77) = 000 :R_stand%(Z1%,77) = 000
 R_horiz%(Z1%,78) = FAHR_WEG_99% : R_vert%(Z1%,78) = 320 :R_stand%(Z1%,78) = 000
 R_horiz%(Z1%,79) = FAHR_WEG_05% : R_vert%(Z1%,79) = 000 :R_stand%(Z1%,79) = 000
 R_horiz%(Z1%,80) = FAHR_WEG_99% : R_vert%(Z1%,80) = 000 :R_stand%(Z1%,80) = 001
 '
Return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: game for practice   

Revenir en haut Aller en bas
 
game for practice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Retour à l'auberge au lieu d'un game over
» Marion Game
» Life is a game. You can be a player or a toy.
» [Game Develop] - Texte, collision, sauvegarde et autre...
» Comprendre la logique Game Dev Tycoon

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: