Mai 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | Calendrier |
|
| | game for practice | |
| | |
Auteur | Message |
---|
Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: game for practice Mer 26 Juin 2013 - 20:50 | |
| Guten Abend an alle, ich will ein Spiel für die Praxis erstellen. Die Fahrzeuge sollen alle fahren mit unterschiedlicher Geschwindigkeit. Hier mein Programmanfang. Ich komme nicht weiter. Es fährt immer nur ein Fahrzeug. Wer hat Vorschläge. Good evening to all, I want to create a game for practice. The vehicles will all go at different speeds. Here is my start of the program. I do not come on. It always drives only one car. Anyone who has suggestions. Bonsoir à tous, Je veux créer un jeu pour la pratique. Les véhicules iront tous à des vitesses différentes. Voici mon début du programme. Je ne viens pas. Il entraîne toujours une seule voiture. Toute personne qui a des suggestions. - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' ' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ******************************** ' FORM 0000 TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-40 caption 0000,"SIMULATION LKW-VERKEHR FABRIK - LAGER " color 0000,000,000,000 :' schwarz / black ' ' ****************************************************************************** ' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************ main_menu 9700 sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700 sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700 sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700 sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700 sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700 sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700 sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700 sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700 sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700 sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700 sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700 sub_menu 9712:CAPTION 9712," ":parent 9712,9700 sub_menu 9713:CAPTION 9713," ":parent 9713,9700 sub_menu 9714:CAPTION 9714," ":parent 9714,9700 sub_menu 9715:CAPTION 9715," ":parent 9715,9700 sub_menu 9716:CAPTION 9716," ":parent 9716,9700 sub_menu 9717:CAPTION 9717," ":parent 9717,9700 sub_menu 9718:CAPTION 9718," ":parent 9718,9700 sub_menu 9719:CAPTION 9719," ":parent 9719,9700 sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700 ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS% : SEITE_RECHTS% = (SCREEN_X - 150-30) DIM SEITE_LINKS% : SEITE_LINKS% = 100 DIM SEITE_OBEN% DIM SEITE_UNTEN% ' ' *** FABRIK erstellen ********************************************************* BUTTON 9800 CAPTION 9800,"Fabrik Severin" TOP 9800,108 LEFT 9800,10 HEIGHT 9800,300 WIDTH 9800,85 ' ' *** RAMPEN FABRIK erstellen ************************************************** BUTTON 9810 ' TOP 9810,108 LEFT 9810,95 HEIGHT 9810,300 WIDTH 9810,19 ' ' *** Lager03 erstellen ******************************************************** BUTTON 9860 CAPTION 9860,"Lager03 Severin" TOP 9860,408 LEFT 9860,10 HEIGHT 9860,300 WIDTH 9860,85 ' ' *** RAMPEN LAGER03 erstellen ************************************************* BUTTON 9870 ' TOP 9870,408 LEFT 9870,95 HEIGHT 9870,300 WIDTH 9870,19 ' ' *** Lager01 erstellen ******************************************************** BUTTON 9820 CAPTION 9820,"Lager01 Severin" TOP 9820,108 LEFT 9820,SCREEN_X-120 HEIGHT 9820,300 WIDTH 9820,85 ' ' *** RAMPEN LAGER01 erstellen ************************************************* BUTTON 9830 ' TOP 9830,108 LEFT 9830,SCREEN_X-140 HEIGHT 9830,300 WIDTH 9830,19 ' ' *** Lager02 erstellen ******************************************************** BUTTON 9840 CAPTION 9840,"Lager02 Severin" TOP 9840,408 LEFT 9840,SCREEN_X-120 HEIGHT 9840,300 WIDTH 9840,85 ' ' *** RAMPEN LAGER02 erstellen ************************************************* BUTTON 9850 ' TOP 9850,408 LEFT 9850,SCREEN_X-140 HEIGHT 9850,300 WIDTH 9850,19 ' ' *** LABEL ERSTELLEN ********************************************************** label main label halt label start label NACHRECHTES label NACHLINKS label STEHERECHTS label STEHELINKS ' *** LKW GESCHWINDIGKEIT EINSTELLEN ******************************************* dim delta1% : delta1% = 10 dim delta2% : delta2% = 10 dim delta3% : delta3% = 10 dim delta4% : delta4% = 10 dim delta5% : delta5% = 10 dim delta6% : delta6% = 10 dim delta7% : delta7% = 10 dim delta8% : delta8% = 10 dim delta9% : delta9% = 10 dim delta10% : delta10% = 10
' ****************************************************************************** dim v1% : v1% = 1 dim v2% : v2% = 1 dim v3% : v3% = 1 dim v4% : v4% = 1 dim v5% : v5% = 1 dim v6% : v6% = 1 dim v7% : v7% = 1 dim v8% : v8% = 1 dim v9% : v9% = 1 dim v10% : v10% = 1
' ****************************************************************************** dim cpt1% : cpt1% = v1% dim cpt2% : cpt2% = v2% : DIM i2% dim cpt3% : cpt3% = v3% dim cpt4% : cpt4% = v4% dim cpt5% : cpt5% = v5% dim cpt6% : cpt6% = v6% dim cpt7% : cpt7% = v7% dim cpt8% : cpt8% = v8% dim cpt9% : cpt9% = v9% dim cpt10% : cpt10% = v10%
' ****************************************************************************** dim k2% dim k1%
button 01 : top 01,110 : left 01,0100 : width 01,45 : height 01,25 : caption 01,"LKW1" button 11 : top 11,110 : left 11,0015 : width 11,45 : height 11,25 : caption 11,"0000" button 21 : top 21,110 : left 21,SCREEN_X-90 : width 21,45 : height 21,25 : caption 21,"0000"
button 02 : top 02,140 : left 02,0100 : width 02,45 : height 02,25 : caption 02,"LKW2" button 12 : top 12,140 : left 12,0015 : width 12,45 : height 12,25 : caption 12,"0000" button 22 : top 22,140 : left 22,SCREEN_X-90 : width 22,45 : height 22,25 : caption 22,"0000"
button 03 : top 03,170 : left 03,0100 : width 03,45 : height 03,25 : caption 03,"LKW3" button 13 : top 13,170 : left 13,0015 : width 13,45 : height 13,25 : caption 13,"0000" button 23 : top 23,170 : left 23,SCREEN_X-90 : width 23,45 : height 23,25 : caption 23,"0000"
button 04 : top 04,200 : left 04,0100 : width 04,45 : height 04,25 : caption 04,"LKW4" button 14 : top 14,200 : left 14,0015 : width 14,45 : height 14,25 : caption 14,"0000" button 24 : top 24,200 : left 24,SCREEN_X-90 : width 24,45 : height 24,25 : caption 24,"0000"
button 05 : top 05,230 : left 05,0100 : width 05,45 : height 05,25 : caption 05,"LKW5" button 15 : top 15,230 : left 15,0015 : width 15,45 : height 15,25 : caption 15,"0000" button 25 : top 25,230 : left 25,SCREEN_X-90 : width 25,45 : height 25,25 : caption 25,"0000"
button 06 : top 06,260 : left 06,0100 : width 06,45 : height 06,25 : caption 06,"LKW6" button 16 : top 16,260 : left 16,0015 : width 16,45 : height 16,25 : caption 16,"0000" button 26 : top 26,260 : left 26,SCREEN_X-90 : width 26,45 : height 26,25 : caption 26,"0000"
button 07 : top 07,290 : left 07,0100 : width 07,45 : height 07,25 : caption 07,"LKW7" button 17 : top 17,290 : left 17,0015 : width 17,45 : height 17,25 : caption 17,"0000" button 27 : top 27,290 : left 27,SCREEN_X-90 : width 27,45 : height 27,25 : caption 27,"0000"
button 08 : top 08,320 : left 08,0100 : width 08,45 : height 08,25 : caption 08,"LKW8" button 18 : top 18,320 : left 18,0015 : width 18,45 : height 18,25 : caption 18,"0000" button 28 : top 28,320 : left 28,SCREEN_X-90 : width 28,45 : height 28,25 : caption 28,"0000"
button 09 : top 09,350 : left 09,0100 : width 09,45 : height 09,25 : caption 09,"LKW9" button 19 : top 19,350 : left 19,0015 : width 19,45 : height 19,25 : caption 19,"0000" button 29 : top 29,350 : left 29,SCREEN_X-90 : width 29,45 : height 29,25 : caption 29,"0000"
button 10 : top 10,380 : left 10,0100 : width 10,45 : height 10,25 : caption 10,"LKW10" button 20 : top 20,380 : left 20,0015 : width 20,45 : height 20,25 : caption 20,"0000" button 30 : top 30,380 : left 30,SCREEN_X-90 : width 30,45 : height 30,25 : caption 30,"0000"
' *** ON_CLICK 9701,halt ' ON_CLICK 9702,area02 ' 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 ' end ' ' *** TIMER INITIALISIERUNG *************************************************** start: timer 9998 timer_interval 9998,60 on_timer 9998,main ' ' ***************************************************************************** ' *** PROGRAMM LKW FÄHRT ****************************************************** main: timer_off_all cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1() cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2() cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3() cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4() cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5() cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6() cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7() cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8() cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9() cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10() on_timer 9998,main return
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 1 FAHREN ************************************************************* sub LKW1() if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1% left 1,left(1) + delta1% end_sub
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 2 FAHREN ************************************************************* sub LKW2() if k2% = 101 then goto NACHLINKS if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS ' stop ' *** Fahrt nach rechts ******************************************************* NACHRECHTES: caption 12,"0000" left 2,left(2) + delta2% end_sub ' *** Steht rechts ************************************************************* STEHERECHTS: k2% = k2% + 1 caption 22,k2% if k2% = 101 then k1% = 0 if k2% = 101 then goto NACHLINKS end_sub ' ***************************************************************************** ' *** Fahrt nach links ******************************************************** NACHLINKS: caption 22,"0000" if (left(2)<102) then goto STEHELINKS left 2,left(2) - delta2% end_sub ' *** Steht links ************************************************************* STEHELINKS: left 02,0100 k1% = k1% + 1 caption 12,k1% if k1% = 101 then k2% = 0 if k1% = 101 then goto NACHLINKS end_sub ' ****************************************************************************** ' ****************************************************************************** ' *** LKW 3 FAHREN ************************************************************* sub LKW3() if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3% left 3,left(3) + delta3% end_sub
sub LKW4() if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4% left 4,left(4) + delta4% end_sub
sub LKW5() if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5% left 5,left(5) + delta5% end_sub
sub LKW6() if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6% left 6,left(6) + delta6% end_sub
sub LKW7() if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7% left 7,left(7) + delta7% end_sub
sub LKW8() if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8% left 8,left(8) + delta8% end_sub
sub LKW9() if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9% left 9,left(9) + delta9% end_sub
sub LKW10() if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10% left 10,left(10) + delta10% end_sub
halt: timer_off_all terminate NEU 1.7.2013 10:00
Dernière édition par Severin le Lun 1 Juil 2013 - 10:08, édité 1 fois | |
| | | Klaus
Nombre de messages : 12295 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: game for practice Jeu 27 Juin 2013 - 10:05 | |
| So wie das Programm aufgebaut ist, kann es nicht anders funktionieren.
Die ganze Aktion findet im Programm-Aufbau statt, vor dem END Kommando. Es ist eine vollständig lineare Programmierung: innerhalb einer Schleife "FOR FAHRT0% = 1 TO FAHRT1%" wird est LKW1 bedient, mit seiner kompletten Fahrt, dann LKW2. Die anderen sind noch nicht programmiert.
Wenn Du willst, dass alle gleichzeitig fahren, hast Du 2 möglichkeiten:
1. Lass die Hauptschleife über die LKWs gehen, anstatt über die Anzahl der Fahrten. So wird jeder LKW jedesmal ein Stückchen bewegt, und Du hast den Eindruck, dass alle gleichzeitig fahren.
2. Gieb jedem LKW einen timer. Die ON-TIMER Event-Routinen bewegen ihren LKW jeweils ein Stückchen und hören dann auf. Vorteil: Du kannst jedem timer ein eigenes TIMER_INTERVAL geben, und damit fallen die ganzen WAIT Kommandos flach. | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Jeu 27 Juin 2013 - 10:35 | |
| Je ne comprends pas ce qui est écrit en allemand, j'ai hésité à répondre hier car je ne sais pas forcément tourner les choses diplomatiquement pour dire que c'est la structure même du programme qui est incorrecte. Il faudrait soit un timer par voiture (ce que je ne crois pas utile) soit une boucle avec un timer et des compteurs (par exemple 1 par voitures) qui déclenche une action quand ils arrivent à 0 et reprennent alors une valeur correspondant à la vitesse de déplacement voulu (en nombre de fois le temps du timer) et qui soit décrémenté à chaque déclenchement de la boucle. Après pour gérer la trajectoire, il faudrait faire un tableau avec les déplacements souhaités par étapes et un marqueur de direction pour indiquer dans quel sens se déplace la voiture. Enfin, il y a sans doute d'autres solutions, mais c'est la première à laquelle je pense.
PS: pour créer les voitures, tu devrais faire une boucle en incrémentant un compteur de 1 à 10 et en ajoutant 30 en Y pour chaque voiture.
| |
| | | Klaus
Nombre de messages : 12295 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: game for practice Jeu 27 Juin 2013 - 10:44 | |
| Tu as raison, Jicehel. C'est exactement ce que je lui ai proposé dans mon post précédent.
@Severin: Du kannst auch ein SCENE2D verwenden, mit SPRITEs als LKWs. Ansonsten gelten dieselben Bermerkungen für die Steuerung. Es ist nur eine optische Verbesserun: Du kannst einen Hintergrund lagen, sowie eine BMP Datei für jeden LKW, um ihnen ein ansprechenderes Design zu geben. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Jeu 27 Juin 2013 - 20:20 | |
| @ Klaus @ Jicehel
könnt ihr mal ein Beispiel geben ? Habe das mit dem Timer noch nicht verstanden.
times can you give an example? Have not yet understood the timer.
fois pouvez-vous donner un exemple? N'ont pas encore compris la minuterie. | |
| | | Klaus
Nombre de messages : 12295 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: game for practice Ven 28 Juin 2013 - 11:41 | |
| Ein einfaches Bespiel: - Code:
-
label LKW1, LKW2, halt, activate_timers
dim delta1% : delta1% = 10 dim delta2% : delta2% = 10
button 1 : top 1,40 : left 1,10 : caption 1,"LKW1" button 2 : top 2,200 : left 2,400 : caption 2,"LKW2"
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 11 : timer_interval 11,100 timer 12 : timer_interval 12,200 gosub activate_timers
end
activate_timers: on_timer 11,LKW1 on_timer 12,LKW2 return LKW1: timer_off_all if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1% left 1,left(1) + delta1% gosub activate_timers return LKW2: timer_off_all if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2% left 2,left(2) + delta2% gosub activate_timers return halt: timer_off_all terminate | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Ven 28 Juin 2013 - 12:27 | |
| Merci Klaus, je n'ai pas eu le temps de faire un exemple hier soir. J'ai repris ton source pour aller plus vite pour mettre au clair mon idée qui est très proche de la tienne mais se base sur une boucle principale déclenché par un timer unique (le métronome du jeu) et les voitures qui se déplace selon une fréquence dépendant de ce métronome. Le source donne ça: - Code:
-
label main, halt
dim delta1% : delta1% = 10 dim delta2% : delta2% = 10
dim v1% : v1% = 1 dim v2% : v2% = 2
dim cpt1% : cpt1% = v1% dim cpt2% : cpt2% = v2%
button 1 : top 1,40 : left 1,10 : caption 1,"LKW1" button 2 : top 2,200 : left 2,400 : caption 2,"LKW2"
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 11 : timer_interval 11,60 gosub main
end
main: timer_off_all cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1() cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2() on_timer 11,main return
sub LKW1() if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1% left 1,left(1) + delta1% end_sub
sub LKW2() if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2% left 2,left(2) + delta2% end_sub
halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Ven 28 Juin 2013 - 19:44 | |
| Danke, muss den Code noch analysieren. Thanks must analyze the code yet. Merci encore doivent analyser le code. | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Sam 29 Juin 2013 - 10:47 | |
| J'avais un peu de temps, j'ai revu mon exemple d'avant en plus logique. C'est la vitesse que l'on règle et pas le nombre de fois la boucle (c'est moins logique sinon) J'ai mis en place la boucle de création des voiture et celle de la boucle principale pour faciliter les choses et bouger plus facilement les 10 voitures. - Code:
-
label main, halt
dim v%(10) v%(1) = 10 : v%(2) = 5 : v%(3) = 9 : v%(4) = 12 : v%(5) = 4 v%(6) = 2 : v%(7) = 15 : v%(8) = 5 : v%(9) = 6 : v%(10) = 11
dim i%
for i%=1 to 10 button i% : top i%,10+30*i% : left i%,10 : caption i%,"LKW"+STR$(i%) next i% button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 11 : timer_interval 11,60 : on_timer 11,main
end
main: timer_off_all for i%=1 to 10 if (left(i%)<10) or (left(i%)>400) then v%(i%) = 0 - v%(i%) left i%,left(i%) + v%(i%) next i% timer_on 11 return
halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 13:46 | |
| @ Jicehel Danke für die Version 2. Ich habe die Anzahl Fahrzeuge erhöht. Ab Fahrzeug 11 Fehler. Das Problem trift bei der Version von Klaus schon bei 6 Fahrzeugen auf. In deiner ersten Version schon bei 7 Fahrzeugen auf. Thanks for the version 2 I have increased the number of vehicles. From vehicle 11 errors. The problem trift on vehicles already at 6 in the version by Klaus. In your first version on vehicles already at 7. Merci pour la version 2 J'ai augmenté le nombre de véhicules. De 11 véhicules erreurs. Le problème trift sur des véhicules déjà à 6 dans la version par Klaus. Dans votre première version sur des véhicules déjà à 7. - Code:
-
color 0,0,0,0 height 0,700 width 0,800
label main, halt
dim v%(15) v%(1) = 10 : v%(2) = 5 : v%(3) = 9 : v%(4) = 12 : v%(5) = 4 v%(6) = 2 : v%(7) = 15 : v%(8) = 5 : v%(9) = 6 : v%(10) = 11 v%(11) = 2 : v%(12) = 15 : v%(13) = 5 : v%(14) = 6 : v%(15) = 11 dim i%
for i%=1 to 15 button i% : top i%,10+30*i% : left i%,10 : caption i%,"LKW"+STR$(i%) next i%
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 11 : timer_interval 11,60 : on_timer 11,main
end
main: timer_off_all for i%=1 to 15 if (left(i%)<10) or (left(i%)>600) then v%(i%) = 0 - v%(i%) left i%,left(i%) + v%(i%) next i% timer_on 11 return
halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 13:51 | |
| @ Jicehel Erweiterte Version 1 Extended Version 1 Extended Version 1 - Code:
-
label main, halt
color 0,0,0,0
dim delta1% : delta1% = 10 dim delta2% : delta2% = 10 dim delta3% : delta3% = 10 dim delta4% : delta4% = 10 dim delta5% : delta5% = 10 dim delta6% : delta6% = 10 dim delta7% : delta7% = 10 dim delta8% : delta8% = 10
dim v1% : v1% = 1 dim v2% : v2% = 1 dim v3% : v3% = 1 dim v4% : v4% = 1 dim v5% : v5% = 1 dim v6% : v6% = 1 dim v7% : v7% = 1 dim v8% : v8% = 2
dim cpt1% : cpt1% = v1% dim cpt2% : cpt2% = v2% dim cpt3% : cpt3% = v3% dim cpt4% : cpt4% = v4% dim cpt5% : cpt5% = v5% dim cpt6% : cpt6% = v6% dim cpt7% : cpt7% = v7% dim cpt8% : cpt8% = v8%
button 1 : top 1,40 : left 1,10 : caption 1,"LKW1" button 2 : top 2,70 : left 2,400 : caption 2,"LKW2" button 3 : top 3,100 : left 3,10 : caption 3,"LKW3" button 4 : top 4,130 : left 4,400 : caption 4,"LKW4" button 5 : top 5,160 : left 5,10 : caption 5,"LKW5" button 6 : top 6,190 : left 6,400 : caption 6,"LKW6" button 7 : top 7,220 : left 7,10 : caption 7,"LKW7" button 8 : top 8,250 : left 8,400 : caption 8,"LKW8"
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 11 : timer_interval 11,30 gosub main
end
main: timer_off_all cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1() cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2() cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3() cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4() cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5() cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6() cpt5%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7() cpt6%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8() on_timer 11,main return
sub LKW1() if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1% left 1,left(1) + delta1% end_sub
sub LKW2() if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2% left 2,left(2) + delta2% end_sub
sub LKW3() if (left(3)<10) or (left(3)>400) then delta3% = 0 - delta3% left 3,left(3) + delta3% end_sub
sub LKW4() if (left(4)<10) or (left(4)>400) then delta4% = 0 - delta4% left 4,left(4) + delta4% end_sub
sub LKW5() if (left(5)<10) or (left(5)>400) then delta5% = 0 - delta5% left 5,left(5) + delta5% end_sub
sub LKW6() if (left(6)<10) or (left(6)>400) then delta6% = 0 - delta6% left 6,left(6) + delta6% end_sub
sub LKW7() if (left(7)<10) or (left(7)>400) then delta7% = 0 - delta7% left 7,left(7) + delta7% end_sub
sub LKW8() if (left(8)<10) or (left(8)>400) then delta8% = 0 - delta8% left 8,left(8) + delta8% end_sub
halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 13:53 | |
| @ Klaus Erweiterte Version - Code:
-
label LKW1, LKW2, LKW3, LKW4, LKW5, LKW6 label halt label activate_timers
color 0,0,0,0
' *** LKW_Geschwindigkeit einstellen ******************************************* dim delta1% : delta1% = 10 dim delta2% : delta2% = 10 dim delta3% : delta3% = 10 dim delta4% : delta4% = 10 dim delta5% : delta5% = 10 dim delta6% : delta6% = 10
' *** LKW erstellen ************************************************************ button 1 : top 1,40 : left 1,10 : caption 1,"LKW1" button 2 : top 2,70 : left 2,400 : caption 2,"LKW2" button 3 : top 3,100 : left 3,10 : caption 3,"LKW3" button 4 : top 4,130 : left 4,400 : caption 4,"LKW4" button 5 : top 5,160 : left 5,10 : caption 5,"LKW5" button 6 : top 6,190 : left 6,400 : caption 6,"LKW6" ' button 7 : top 7,200 : left 7,400 : caption 7,"LKW7" ' button 8 : top 8,200 : left 8,400 : caption 8,"LKW8"
' *** STOP_BUTTEN erstellen **************************************************** button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
' *** TIMER initialisieren ***************************************************** timer 11 : timer_interval 11,60 timer 12 : timer_interval 12,300 timer 13 : timer_interval 13,300 timer 14 : timer_interval 14,300 timer 15 : timer_interval 15,300 timer 16 : timer_interval 16,300 gosub activate_timers
end
' *** PROGRAM ABLAUF *********************************************************** activate_timers: on_timer 11,LKW1 on_timer 12,LKW2 on_timer 13,LKW3 on_timer 14,LKW4 on_timer 15,LKW5 on_timer 16,LKW6 return
LKW1: timer_off_all if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1% left 1,left(1) + delta1% gosub activate_timers return
LKW2: timer_off_all if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2% left 2,left(2) + delta2% gosub activate_timers return
LKW3: timer_off_all if (left(3)<10) or (left(3)>400) then delta3% = 0 - delta3% left 3,left(3) + delta3% gosub activate_timers return
LKW4: timer_off_all if (left(4)<10) or (left(4)>400) then delta4% = 0 - delta4% left 4,left(4) + delta4% gosub activate_timers return
LKW5: timer_off_all if (left(5)<10) or (left(5)>400) then delta5% = 0 - delta5% left 5,left(5) + delta5% gosub activate_timers return
LKW6: timer_off_all if (left(6)<10) or (left(6)>400) then delta6% = 0 - delta6% left 6,left(6) + delta6% gosub activate_timers return
halt: timer_off_all terminate
| |
| | | papydall
Nombre de messages : 7008 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: game for practice Sam 29 Juin 2013 - 14:00 | |
| @Severin
L’identificateur 11 est déjà pris pour un BUTTON. Modifie le numéro du TIMER 11 par TIMER 110 (ligne 21 et ligne 32) par exemple et ça marchera.
The identifier 11 is already taken for a BUTTON. Modify the number of the TIMER 11 by TIMER 110 (line 21 and line 32) for example and that will work.
Die Nummer 11 ist für einen BUTTON schon gehalten. Ändere die Nummer des TIMER 11 von TIMER 110 (Linie 21 und Linie 32) zum Beispiel und das wird gehen.
Dernière édition par papydall le Sam 29 Juin 2013 - 14:13, édité 1 fois | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 14:10 | |
| @papydall
Danke papydall
Version 2 von Jicehel ist ok. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 14:14 | |
| @ Klaus @Jicehel
Wo ist das Problem der ersten Versionen. Die gefallen mir besser da ich jedem Fahrzeug einen eigenen Weg geben kann.
@ Klaus @ Jicehel
Where is the problem of the first versions. I like them better because I can give each vehicle its own way.
@ Klaus @ Jicehel
Où est le problème des premières versions. Je les aime mieux parce que je peux donner à chaque véhicule son propre chemin. | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Sam 29 Juin 2013 - 15:14 | |
| le problème est que tu fais des boucles pour chaque véhicule les une à la suite des autres. tes voitures ne peuvent donc pas bouger en même temps. Pour les faire bouger selon leur propre déplacement, il te suffit de te faire une tableau de déplacement (des cases virutelles si tu veux) Tu peux par exemple implémenter ça sous la forme d'un tableau en supposant par exemple que chaque voiture a 5 mouvements, ça peut donner quelque chose de ce style. (Bon pour ne pas perdre trop de temps, je l'ai implémenté avec 3 voitures seulement, après tu n'a plus qu'à adapter un peu ...) - Code:
-
label main, halt
dim i%,sens% dim nb_car% : nb_car% = 3
dim v%(nb_car%) v%(1) = 10 : v%(2) = 5 : v%(3) = 9
dim depl_h%(nb_car%,5), depl_v%(nb_car%,5), delta_h%(nb_car%), delta_v%(nb_car%), pos%(nb_car%)
depl_h%(1,1) = 100 : depl_v%(1,1) = 0 depl_h%(1,2) = 0 : depl_v%(1,2) = 50 depl_h%(1,3) = 200 : depl_v%(1,3) = 0 depl_h%(1,4) = 0 : depl_v%(1,4) = -50 depl_h%(1,5) = 200 : depl_v%(1,5) = 0
depl_h%(2,1) = 50 : depl_v%(2,1) = 0 depl_h%(2,2) = 100 : depl_v%(2,2) = 0 depl_h%(2,3) = 0 : depl_v%(2,3) = -50 depl_h%(2,4) = 200 : depl_v%(2,4) = 0 depl_h%(2,5) = 100 : depl_v%(2,5) = 50
depl_h%(3,1) = 300 : depl_v%(3,1) = 0 depl_h%(3,2) = 0 : depl_v%(3,2) = -50 depl_h%(3,3) =-100 : depl_v%(3,3) = 0 depl_h%(3,4) = 0 : depl_v%(3,4) = 50 depl_h%(3,5) = 300 : depl_v%(3,5) = 0
for i%=1 to nb_car% button i% : top i%,10+30*i% : left i%,10 : caption i%,"LKW"+STR$(i%) pos%(i%) = 0 next i% button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt
timer 98 : timer_interval 98,60 : on_timer 98,main
end
main: timer_off_all for i%=1 to nb_car% if delta_h%(i%)=0 and delta_v%(i%) = 0 sens% = v%(i%)/abs(v%(i%)) pos%(i%) = pos%(i%) + sens% if pos%(i%) < 1 then pos%(i%) = 1 if pos%(i%) > 5 then pos%(i%) = 5 delta_h%(i%) = sens% * depl_h%(i%,pos%(i%)) delta_v%(i%) = sens% * depl_v%(i%,pos%(i%)) end_if if (left(i%)<10) or (left(i%)>400) then v%(i%) = 0 - v%(i%) if abs(delta_h%(i%)) > 0 delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%)) if delta_h%(i%) < 0 left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens% else left i%,left(i%) + v%(i%) end_if end_if if abs(delta_v%(i%)) > 0 delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%)) if delta_v%(i%) < 0 top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens% else end_if top i%,top(i%) + v%(i%) end_if next i% timer_on 98 return
halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 29 Juin 2013 - 22:02 | |
| @Jicehel Danke für die neu Version. Aber die "main" hat einen Fehler. Ich kann den nicht finden. Zu stark verknüpft. Stelle mal die neie Version ein- Wenn es deine Zeit erlaubt, bitte mal testen. @ Jicehel Merci pour la nouvelle version. Mais le "principal" comporte une erreur. Je ne peux pas trouver le fichier. Fortement lié. Point fois le Neie une version Si votre temps le permet, s'il vous plaît les temps de test. - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' ' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ******************************** ' FORM 0000 TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-40 caption 0000,"SIMULATION LKW-VERKEHR FABRIK - LAGER " color 0000,000,000,000 :' schwarz / black ' ' ****************************************************************************** ' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************ main_menu 9700 sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700 sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700 sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700 sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700 sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700 sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700 sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700 sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700 sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700 sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700 sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700 sub_menu 9712:CAPTION 9712," ":parent 9712,9700 sub_menu 9713:CAPTION 9713," ":parent 9713,9700 sub_menu 9714:CAPTION 9714," ":parent 9714,9700 sub_menu 9715:CAPTION 9715," ":parent 9715,9700 sub_menu 9716:CAPTION 9716," ":parent 9716,9700 sub_menu 9717:CAPTION 9717," ":parent 9717,9700 sub_menu 9718:CAPTION 9718," ":parent 9718,9700 sub_menu 9719:CAPTION 9719," ":parent 9719,9700 sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700 ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS% : SEITE_RECHTS% = (SCREEN_X - 150) DIM SEITE_LINKS% : SEITE_LINKS% = 150 DIM SEITE_OBEN% DIM SEITE_UNTEN% ' ' *** FABRIK erstellen ********************************************************* BUTTON 9800 CAPTION 9800,"Fabrik Severin" TOP 9800,108 LEFT 9800,10 HEIGHT 9800,300 WIDTH 9800,75 ' ' *** RAMPEN FABRIK erstellen ************************************************** BUTTON 9810 ' TOP 9810,108 LEFT 9810,85 HEIGHT 9810,300 WIDTH 9810,19 ' ' *** Lager03 erstellen ******************************************************** BUTTON 9860 CAPTION 9860,"Lager03 Severin" TOP 9860,408 LEFT 9860,10 HEIGHT 9860,300 WIDTH 9860,75 ' ' *** RAMPEN LAGER03 erstellen ************************************************* BUTTON 9870 ' TOP 9870,408 LEFT 9870,85 HEIGHT 9870,300 WIDTH 9870,19 ' ' *** Lager01 erstellen ******************************************************** BUTTON 9820 CAPTION 9820,"Lager01 Severin" TOP 9820,108 LEFT 9820,1480 HEIGHT 9820,300 WIDTH 9820,85 ' ' *** RAMPEN LAGER01 erstellen ************************************************* BUTTON 9830 ' TOP 9830,108 LEFT 9830,1460 HEIGHT 9830,300 WIDTH 9830,19 ' ' *** Lager02 erstellen ******************************************************** BUTTON 9840 CAPTION 9840,"Lager02 Severin" TOP 9840,398 LEFT 9840,1480 HEIGHT 9840,300 WIDTH 9840,85 ' ' *** RAMPEN LAGER02 erstellen ************************************************* BUTTON 9850 ' TOP 9850,398 LEFT 9850,1460 HEIGHT 9850,300 WIDTH 9850,19 ' ' *** LABEL ERSTELLEN ********************************************************** label main label halt label start ' *** dim i% dim sens% dim nb_car% : nb_car% = 3
dim v%(nb_car%)
v%(1) = 10 : v%(2) = 8 : v%(3) = 9 ' *** dim depl_h%(nb_car%,5) ' *** dim depl_v%(nb_car%,5) ' *** dim delta_h%(nb_car%) ' *** dim delta_v%(nb_car%) ' *** dim pos%(nb_car%) ' ' *** DATEN FÜR LKW 001 ******************************************************** depl_h%(1,1) = 660 : depl_v%(1,1) = 0 depl_h%(1,2) = 000 : depl_v%(1,2) = 100 depl_h%(1,3) = 000 : depl_v%(1,3) = 0 depl_h%(1,4) = 000 : depl_v%(1,4) = -100 depl_h%(1,5) = 660 : depl_v%(1,5) = 0 ' *** DATEN FÜR LKW 002 ******************************************************** depl_h%(2,1) = 660 : depl_v%(2,1) = 0 depl_h%(2,2) = 000 : depl_v%(2,2) = 200 depl_h%(2,3) = 000 : depl_v%(2,3) = 0 depl_h%(2,4) = 000 : depl_v%(2,4) = -200 depl_h%(2,5) = 660 : depl_v%(2,5) = 0 ' *** DATEN FÜR LKW 003 ******************************************************** depl_h%(3,1) = 660 : depl_v%(3,1) = 0 depl_h%(3,2) = 000 : depl_v%(3,2) = 150 depl_h%(3,3) = 000 : depl_v%(3,3) = 0 depl_h%(3,4) = 000 : depl_v%(3,4) = -150 depl_h%(3,5) = 660 : depl_v%(3,5) = 0 ' *** SYMBOLE FÜR LKW erstellen ************************************************ for i% = 1 to nb_car% button i% top i%,80+30*i% left i%,100 width i%,45 height i%,25 caption i%,"LKW"+STR$(i%) pos%(i%) = 0 next i% ' *** ON_CLICK 9701,halt ' ON_CLICK 9702,area02 ' 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 ' end ' ' *** TIMER INITIALISIERUNG *************************************************** start: timer 9998 : timer_interval 9998,60 : on_timer 9998,main ' ' ***************************************************************************** ' ***************************************************************************** main: timer_off_all ' for i% = 1 to nb_car% ' if delta_h%(i%)=0 and delta_v%(i%) = 0 sens% = v%(i%)/abs(v%(i%)) pos%(i%) = pos%(i%) + sens% if pos%(i%) < 1 then pos%(i%) = 1 if pos%(i%) > 5 then pos%(i%) = 5 delta_h%(i%) = sens% * depl_h%(i%,pos%(i%)) delta_v%(i%) = sens% * depl_v%(i%,pos%(i%)) end_if ' *** if (left(i%)<100) or (left(i%)>1421) then v%(i%) = 0 - v%(i%) if abs(delta_h%(i%)) > 0 delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%)) if delta_h%(i%) < 0 left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens% else left i%,left(i%) + v%(i%) end_if end_if ' *** if abs(delta_v%(i%)) > 0 delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%)) if delta_v%(i%) < 0 top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens% else end_if top i%,top(i%) + v%(i%) end_if ' next i% ' timer_on 9998 ' return ' ' ****************************************************************************** ' *** PROGRAMM ANHALTEN ******************************************************** halt: timer_off_all terminate | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Dim 30 Juin 2013 - 2:25 | |
| ok, sorry Severin, just came back. I have watch the program and i have seen that i forgot to reinit the counters as they should. So i have directly modified your program with good values. - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' dim i%
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ******************************** ' FORM 0000 top 0,0 : LEFT 0,0 : width 0,screen_x : height 0,SCREEN_Y-80 : 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 " case 2 : caption 9702," START LKW01 " 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," START LKW all " end_select next i% ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS% : SEITE_RECHTS% = (SCREEN_X - 150) DIM SEITE_LINKS% : SEITE_LINKS% = 100 DIM SEITE_OBEN% DIM SEITE_UNTEN% ' ' *** FABRIK erstellen ********************************************************* BUTTON 9800 : CAPTION 9800,"Fabrik Severin" TOP 9800,108 : LEFT 9800,10 : HEIGHT 9800,300 : WIDTH 9800,75 ' ' *** RAMPEN FABRIK erstellen ************************************************** BUTTON 9810 TOP 9810,108 : LEFT 9810,85 : HEIGHT 9810,300 : WIDTH 9810,19 ' ' *** Lager03 erstellen ******************************************************** BUTTON 9860 : CAPTION 9860,"Lager03 Severin" TOP 9860,408 : LEFT 9860,10 : HEIGHT 9860,300 : WIDTH 9860,75 ' ' *** RAMPEN LAGER03 erstellen ************************************************* BUTTON 9870 : TOP 9870,408 : LEFT 9870,85 : HEIGHT 9870,300 : WIDTH 9870,19 ' ' *** Lager01 erstellen ******************************************************** BUTTON 9820 : CAPTION 9820,"Lager01 Severin" : TOP 9820,108 : LEFT 9820,1480 HEIGHT 9820,300 : WIDTH 9820,85 ' ' *** RAMPEN LAGER01 erstellen ************************************************* BUTTON 9830 : TOP 9830,108 : LEFT 9830,1460 : HEIGHT 9830,300 : WIDTH 9830,19 ' ' *** Lager02 erstellen ******************************************************** BUTTON 9840 : CAPTION 9840,"Lager02 Severin" TOP 9840,398 : LEFT 9840,1480 : HEIGHT 9840,300 WIDTH 9840,85 ' ' *** RAMPEN LAGER02 erstellen ************************************************* BUTTON 9850 TOP 9850,398: LEFT 9850,1460 : HEIGHT 9850,300 : WIDTH 9850,19 ' ' *** LABEL ERSTELLEN ********************************************************** label main, halt, start ' *** dim sens%,dir% dim nb_car% : nb_car% = 3 dim v%(nb_car%)
v%(1) = 10 : v%(2) = 8 : v%(3) = 9 ' *** dim depl_h%(nb_car%,5) ' *** dim depl_v%(nb_car%,5) ' *** dim delta_h%(nb_car%) ' *** dim delta_v%(nb_car%) ' *** dim pos%(nb_car%) ' ' *** DATEN FÜR LKW 001 ******************************************************** depl_h%(1,1) = 660 : depl_v%(1,1) = 0 depl_h%(1,2) = 000 : depl_v%(1,2) = 100 depl_h%(1,3) = 100 : depl_v%(1,3) = 0 depl_h%(1,4) = 000 : depl_v%(1,4) = -100 depl_h%(1,5) = 660 : depl_v%(1,5) = 0 ' *** DATEN FÜR LKW 002 ******************************************************** depl_h%(2,1) = 660 : depl_v%(2,1) = 0 depl_h%(2,2) = 000 : depl_v%(2,2) = 200 depl_h%(2,3) = 100 : depl_v%(2,3) = 0 depl_h%(2,4) = 000 : depl_v%(2,4) = -200 depl_h%(2,5) = 660 : depl_v%(2,5) = 0 ' *** DATEN FÜR LKW 003 ******************************************************** depl_h%(3,1) = 660 : depl_v%(3,1) = 0 depl_h%(3,2) = 000 : depl_v%(3,2) = 150 depl_h%(3,3) = 100 : depl_v%(3,3) = 0 depl_h%(3,4) = 000 : depl_v%(3,4) = -150 depl_h%(3,5) = 660 : depl_v%(3,5) = 0 ' *** SYMBOLE FÜR LKW erstellen ************************************************ for i% = 1 to nb_car% button i% top i%,80+30*i% : left i%,SEITE_LINKS% : width i%,45 : height i%,25 caption i%,"LKW"+STR$(i%) pos%(i%) = 0 next i% ' *** ON_CLICK 9701,halt ' ON_CLICK 9702,area02 ' 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 i% = 1 to nb_car% ' if (left(i%)<SEITE_LINKS%) or (left(i%)>SEITE_RECHTS%) then v%(i%) = 0 - v%(i%) if delta_h%(i%)=0 and delta_v%(i%) = 0 sens% = v%(i%)/abs(v%(i%)) pos%(i%) = pos%(i%) + sens% if pos%(i%) < 1 then pos%(i%) = 1 if pos%(i%) > 5 then pos%(i%) = 5 delta_h%(i%) = sens% * depl_h%(i%,pos%(i%)) delta_v%(i%) = sens% * depl_v%(i%,pos%(i%)) end_if
if abs(delta_h%(i%)) > 0 dir% = depl_h%(i%,pos%(i%))/abs(depl_h%(i%,pos%(i%))) delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%)) if delta_h%(i%) < 0 left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens%*dir% delta_h%(i%) = 0 else left i%,left(i%) + v%(i%)*dir% end_if end_if ' *** if abs(delta_v%(i%)) > 0 dir% = depl_v%(i%,pos%(i%))/abs(depl_v%(i%,pos%(i%))) delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%)) if delta_v%(i%) < 0 top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens%*dir% delta_v%(i%) = 0 else top i%,top(i%) + v%(i%)*dir% end_if end_if ' next i% ' timer_on 9998 ' return ' ' ****************************************************************************** ' *** PROGRAMM ANHALTEN ******************************************************** halt: timer_off_all terminate | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Lun 1 Juil 2013 - 1:45 | |
| @Jicehel @Panoramics Danke für die neue Version. Ich bin doch auf die erste Version zurück gegangen. Es fehlten noch die Beladezeiten. Achte auf Fahrzeug "LKW2". Es hat jetzt Beladezeiten. Eventuell ist der Code noch holprig, aber er läuft. Verbesseungen sind willkommen. Auch von anderen Panoramics Thanks for the new version. I did go back to the first version. It still lacked the loading times. Pay attention to vehicle "LKW2". It now has loading times. Maybe the code is still rough, but it runs. Improvements are welcome. By other Panoramics Merci pour la nouvelle version. Je ne reviens à la première version. Il manquait encore les temps de chargement. Faites attention aux véhicules "LKW2". Il a maintenant temps de chargement. Peut-être que le code est toujours rude, mais il fonctionne. Les améliorations sont les bienvenues. En d'autres Panoramiques - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' ' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ******************************** ' FORM 0000 TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-40 caption 0000,"SIMULATION LKW-VERKEHR FABRIK - LAGER " color 0000,000,000,000 :' schwarz / black ' ' ****************************************************************************** ' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************ main_menu 9700 sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700 sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700 sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700 sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700 sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700 sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700 sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700 sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700 sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700 sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700 sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700 sub_menu 9712:CAPTION 9712," ":parent 9712,9700 sub_menu 9713:CAPTION 9713," ":parent 9713,9700 sub_menu 9714:CAPTION 9714," ":parent 9714,9700 sub_menu 9715:CAPTION 9715," ":parent 9715,9700 sub_menu 9716:CAPTION 9716," ":parent 9716,9700 sub_menu 9717:CAPTION 9717," ":parent 9717,9700 sub_menu 9718:CAPTION 9718," ":parent 9718,9700 sub_menu 9719:CAPTION 9719," ":parent 9719,9700 sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700 ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS% : SEITE_RECHTS% = (SCREEN_X - 150-30) DIM SEITE_LINKS% : SEITE_LINKS% = 100 DIM SEITE_OBEN% DIM SEITE_UNTEN% ' ' *** FABRIK erstellen ********************************************************* BUTTON 9800 CAPTION 9800,"Fabrik Severin" TOP 9800,108 LEFT 9800,10 HEIGHT 9800,300 WIDTH 9800,85 ' ' *** RAMPEN FABRIK erstellen ************************************************** BUTTON 9810 ' TOP 9810,108 LEFT 9810,95 HEIGHT 9810,300 WIDTH 9810,19 ' ' *** Lager03 erstellen ******************************************************** BUTTON 9860 CAPTION 9860,"Lager03 Severin" TOP 9860,408 LEFT 9860,10 HEIGHT 9860,300 WIDTH 9860,85 ' ' *** RAMPEN LAGER03 erstellen ************************************************* BUTTON 9870 ' TOP 9870,408 LEFT 9870,95 HEIGHT 9870,300 WIDTH 9870,19 ' ' *** Lager01 erstellen ******************************************************** BUTTON 9820 CAPTION 9820,"Lager01 Severin" TOP 9820,108 LEFT 9820,SCREEN_X-120 HEIGHT 9820,300 WIDTH 9820,85 ' ' *** RAMPEN LAGER01 erstellen ************************************************* BUTTON 9830 ' TOP 9830,108 LEFT 9830,SCREEN_X-140 HEIGHT 9830,300 WIDTH 9830,19 ' ' *** Lager02 erstellen ******************************************************** BUTTON 9840 CAPTION 9840,"Lager02 Severin" TOP 9840,408 LEFT 9840,SCREEN_X-120 HEIGHT 9840,300 WIDTH 9840,85 ' ' *** RAMPEN LAGER02 erstellen ************************************************* BUTTON 9850 ' TOP 9850,408 LEFT 9850,SCREEN_X-140 HEIGHT 9850,300 WIDTH 9850,19 ' ' *** LABEL ERSTELLEN ********************************************************** label main label halt label start label NACHRECHTES label NACHLINKS label STEHERECHTS label STEHELINKS ' *** LKW GESCHWINDIGKEIT EINSTELLEN ******************************************* dim delta1% : delta1% = 10 dim delta2% : delta2% = 10 dim delta3% : delta3% = 10 dim delta4% : delta4% = 10 dim delta5% : delta5% = 10 dim delta6% : delta6% = 10 dim delta7% : delta7% = 10 dim delta8% : delta8% = 10 dim delta9% : delta9% = 10 dim delta10% : delta10% = 10
' ****************************************************************************** dim v1% : v1% = 1 dim v2% : v2% = 1 dim v3% : v3% = 1 dim v4% : v4% = 1 dim v5% : v5% = 1 dim v6% : v6% = 1 dim v7% : v7% = 1 dim v8% : v8% = 1 dim v9% : v9% = 1 dim v10% : v10% = 1
' ****************************************************************************** dim cpt1% : cpt1% = v1% dim cpt2% : cpt2% = v2% : DIM i2% dim cpt3% : cpt3% = v3% dim cpt4% : cpt4% = v4% dim cpt5% : cpt5% = v5% dim cpt6% : cpt6% = v6% dim cpt7% : cpt7% = v7% dim cpt8% : cpt8% = v8% dim cpt9% : cpt9% = v9% dim cpt10% : cpt10% = v10%
' ****************************************************************************** dim k2% dim k1%
button 01 : top 01,110 : left 01,0100 : width 01,45 : height 01,25 : caption 01,"LKW1" button 11 : top 11,110 : left 11,0015 : width 11,45 : height 11,25 : caption 11,"0000" button 21 : top 21,110 : left 21,SCREEN_X-90 : width 21,45 : height 21,25 : caption 21,"0000"
button 02 : top 02,140 : left 02,0100 : width 02,45 : height 02,25 : caption 02,"LKW2" button 12 : top 12,140 : left 12,0015 : width 12,45 : height 12,25 : caption 12,"0000" button 22 : top 22,140 : left 22,SCREEN_X-90 : width 22,45 : height 22,25 : caption 22,"0000"
button 03 : top 03,170 : left 03,0100 : width 03,45 : height 03,25 : caption 03,"LKW3" button 13 : top 13,170 : left 13,0015 : width 13,45 : height 13,25 : caption 13,"0000" button 23 : top 23,170 : left 23,SCREEN_X-90 : width 23,45 : height 23,25 : caption 23,"0000"
button 04 : top 04,200 : left 04,0100 : width 04,45 : height 04,25 : caption 04,"LKW4" button 14 : top 14,200 : left 14,0015 : width 14,45 : height 14,25 : caption 14,"0000" button 24 : top 24,200 : left 24,SCREEN_X-90 : width 24,45 : height 24,25 : caption 24,"0000"
button 05 : top 05,230 : left 05,0100 : width 05,45 : height 05,25 : caption 05,"LKW5" button 15 : top 15,230 : left 15,0015 : width 15,45 : height 15,25 : caption 15,"0000" button 25 : top 25,230 : left 25,SCREEN_X-90 : width 25,45 : height 25,25 : caption 25,"0000"
button 06 : top 06,260 : left 06,0100 : width 06,45 : height 06,25 : caption 06,"LKW6" button 16 : top 16,260 : left 16,0015 : width 16,45 : height 16,25 : caption 16,"0000" button 26 : top 26,260 : left 26,SCREEN_X-90 : width 26,45 : height 26,25 : caption 26,"0000"
button 07 : top 07,290 : left 07,0100 : width 07,45 : height 07,25 : caption 07,"LKW7" button 17 : top 17,290 : left 17,0015 : width 17,45 : height 17,25 : caption 17,"0000" button 27 : top 27,290 : left 27,SCREEN_X-90 : width 27,45 : height 27,25 : caption 27,"0000"
button 08 : top 08,320 : left 08,0100 : width 08,45 : height 08,25 : caption 08,"LKW8" button 18 : top 18,320 : left 18,0015 : width 18,45 : height 18,25 : caption 18,"0000" button 28 : top 28,320 : left 28,SCREEN_X-90 : width 28,45 : height 28,25 : caption 28,"0000"
button 09 : top 09,350 : left 09,0100 : width 09,45 : height 09,25 : caption 09,"LKW9" button 19 : top 19,350 : left 19,0015 : width 19,45 : height 19,25 : caption 19,"0000" button 29 : top 29,350 : left 29,SCREEN_X-90 : width 29,45 : height 29,25 : caption 29,"0000"
button 10 : top 10,380 : left 10,0100 : width 10,45 : height 10,25 : caption 10,"LKW10" button 20 : top 20,380 : left 20,0015 : width 20,45 : height 20,25 : caption 20,"0000" button 30 : top 30,380 : left 30,SCREEN_X-90 : width 30,45 : height 30,25 : caption 30,"0000"
' *** ON_CLICK 9701,halt ' ON_CLICK 9702,area02 ' 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 ' end ' ' *** TIMER INITIALISIERUNG *************************************************** start: timer 9998 timer_interval 9998,60 on_timer 9998,main ' ' ***************************************************************************** ' *** PROGRAMM LKW FÄHRT ****************************************************** main: timer_off_all cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1() cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2() cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3() cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4() cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5() cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6() cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7() cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8() cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9() cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10() on_timer 9998,main return
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 1 FAHREN ************************************************************* sub LKW1() if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1% left 1,left(1) + delta1% end_sub
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 2 FAHREN ************************************************************* sub LKW2() if k2% = 101 then goto NACHLINKS if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS ' stop ' *** Fahrt nach rechts ******************************************************* NACHRECHTES: caption 12,"0000" left 2,left(2) + delta2% end_sub ' *** Steht rechts ************************************************************* STEHERECHTS: k2% = k2% + 1 caption 22,k2% if k2% = 101 then k1% = 0 if k2% = 101 then goto NACHLINKS end_sub ' ***************************************************************************** ' *** Fahrt nach links ******************************************************** NACHLINKS: caption 22,"0000" if (left(2)<102) then goto STEHELINKS left 2,left(2) - delta2% end_sub ' *** Steht links ************************************************************* STEHELINKS: left 02,0100 k1% = k1% + 1 caption 12,k1% if k1% = 101 then k2% = 0 if k1% = 101 then goto NACHLINKS end_sub ' ****************************************************************************** ' ****************************************************************************** ' *** LKW 3 FAHREN ************************************************************* sub LKW3() if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3% left 3,left(3) + delta3% end_sub
sub LKW4() if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4% left 4,left(4) + delta4% end_sub
sub LKW5() if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5% left 5,left(5) + delta5% end_sub
sub LKW6() if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6% left 6,left(6) + delta6% end_sub
sub LKW7() if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7% left 7,left(7) + delta7% end_sub
sub LKW8() if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8% left 8,left(8) + delta8% end_sub
sub LKW9() if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9% left 9,left(9) + delta9% end_sub
sub LKW10() if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10% left 10,left(10) + delta10% end_sub
halt: timer_off_all terminate NEU 01.07.2013 10:00 | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Mar 2 Juil 2013 - 20:42 | |
| Hallo an alle, wie bekomme ich die rote Lini fest, ohne das der LKW sie zerstört ? Hello to all, how do I get the red Lini fixed without destroying the truck? Bonjour à tous, comment puis-je obtenir le Lini rouge fixe sans détruire le camion? Neu 2.7.2013 20:00 - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' ' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ******************************** ' FORM 0000 TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-40 caption 0000,"SIMULATION LKW-VERKEHR FABRIK - LAGER " color 0000,000,000,000 :' schwarz / black ' ' ****************************************************************************** ' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************ main_menu 9700 sub_menu 9701:CAPTION 9701," STOP LKW all":parent 9701,9700 sub_menu 9702:CAPTION 9702," START LKW all ":parent 9702,9700 sub_menu 9703:CAPTION 9703," START LKW01 ":parent 9703,9700 sub_menu 9704:CAPTION 9704," START LKW02 ":parent 9704,9700 sub_menu 9705:CAPTION 9705," START LKW03 ":parent 9705,9700 sub_menu 9706:CAPTION 9706," START LKW04 ":parent 9706,9700 sub_menu 9707:CAPTION 9707," START LKW05 ":parent 9707,9700 sub_menu 9708:CAPTION 9708," START LKW06 ":parent 9708,9700 sub_menu 9709:CAPTION 9709," START LKW07 ":parent 9709,9700 sub_menu 9710:CAPTION 9710," START LKW08 ":parent 9710,9700 sub_menu 9711:CAPTION 9711," START LKW09 ":parent 9711,9700 sub_menu 9712:CAPTION 9712," START LKW10 ":parent 9712,9700 sub_menu 9713:CAPTION 9713," ":parent 9713,9700 sub_menu 9714:CAPTION 9714," ":parent 9714,9700 sub_menu 9715:CAPTION 9715," ":parent 9715,9700 sub_menu 9716:CAPTION 9716," ":parent 9716,9700 sub_menu 9717:CAPTION 9717," ":parent 9717,9700 sub_menu 9718:CAPTION 9718," ":parent 9718,9700 sub_menu 9719:CAPTION 9719," DATEN ":parent 9719,9700 sub_menu 9720:CAPTION 9720," ":parent 9720,9700 ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS% : SEITE_RECHTS% = (SCREEN_X - 150-20) DIM SEITE_LINKS% : SEITE_LINKS% = 100 DIM SEITE_OBEN% DIM SEITE_UNTEN% DIM NR% DIM Zeile%
' ****************************************************************************** ' *** FABRIK erstellen ********************************************************* BUTTON 9800 :TOP 9800,105 :LEFT 9800,10 :WIDTH 9800,85 :HEIGHT 9800,305 :CAPTION 9800,"Fabrik Severin" ' ' *** RAMPEN FABRIK erstellen ************************************************** BUTTON 9810 :TOP 9810,105 :LEFT 9810,95 :WIDTH 9810,19 :HEIGHT 9810,305 ' ' *** Lager03 erstellen ******************************************************** BUTTON 9860 :TOP 9860,415 :LEFT 9860,10 :WIDTH 9860,85 :HEIGHT 9860,303 :CAPTION 9860,"Lager03 Severin" ' ' *** RAMPEN LAGER03 erstellen ************************************************* BUTTON 9870 :TOP 9870,415 :LEFT 9870,95 : WIDTH 9870,19 :HEIGHT 9870,303 ' ' *** Lager01 erstellen ******************************************************** BUTTON 9820 :TOP 9820,105 :LEFT 9820,SCREEN_X-110 :WIDTH 9820,85 :HEIGHT 9820,303 :CAPTION 9820,"Lager01 Severin" ' ' *** RAMPEN LAGER01 erstellen ************************************************* BUTTON 9830 :TOP 9830,105 :LEFT 9830,SCREEN_X-130 :WIDTH 9830,19 :HEIGHT 9830,303 ' ' *** Lager02 erstellen ******************************************************** BUTTON 9840 :TOP 9840,415 :LEFT 9840,SCREEN_X-110 : WIDTH 9840,85 :HEIGHT 9840,303 :CAPTION 9840,"Lager02 Severin" ' ' *** RAMPEN LAGER02 erstellen ************************************************* BUTTON 9850 :TOP 9850,415 :LEFT 9850,SCREEN_X-130 : WIDTH 9850,19 :HEIGHT 9850,303 ' ' *** PARKINGZONE ERSTELLEN **************************************************** BUTTON 9890 :TOP 9890,((SCREEN_y/4)*3)-5 :LEFT 9890,SCREEN_X/2-150 : WIDTH 9890,80 :HEIGHT 9890,160 :CAPTION 9890,"Parking Zone1" BUTTON 9895 :TOP 9895,((SCREEN_y/4)*3)-5 :LEFT 9895,SCREEN_X/2+70 : WIDTH 9895,80 :HEIGHT 9895,160 :CAPTION 9895,"Parking Zone2" ' ' ****************************************************************************** ' *** LABEL ERSTELLEN ********************************************************** label main label halt label start label NACHRECHTES_2 label NACHLINKS_2 label STEHERECHTS_2 label STEHELINKS_2 ' label AUSWAHL_1 :label AUSWAHL_2 :label AUSWAHL_3 :label AUSWAHL_4 label AUSWAHL_5 :label AUSWAHL_6 :label AUSWAHL_7 :label AUSWAHL_8 label AUSWAHL_9 :label AUSWAHL_10 ' ' *** LKW GESCHWINDIGKEIT EINSTELLEN ******************************************* dim delta1% : delta1% = 10 :dim delta2% : delta2% = 20 :dim delta3% : delta3% = 10 dim delta4% : delta4% = 10 :dim delta5% : delta5% = 10 :dim delta6% : delta6% = 10 dim delta7% : delta7% = 10 :dim delta8% : delta8% = 10 :dim delta9% : delta9% = 10 dim delta10% : delta10% = 10
' ****************************************************************************** dim v1% : v1% = 1 dim v2% : v2% = 1 dim v3% : v3% = 1 dim v4% : v4% = 1 dim v5% : v5% = 1 dim v6% : v6% = 1 dim v7% : v7% = 1 dim v8% : v8% = 1 dim v9% : v9% = 1 dim v10% : v10% = 1
' ****************************************************************************** dim cpt1% : cpt1% = v1% dim cpt2% : cpt2% = v2% : DIM i2% dim cpt3% : cpt3% = v3% dim cpt4% : cpt4% = v4% dim cpt5% : cpt5% = v5% dim cpt6% : cpt6% = v6% dim cpt7% : cpt7% = v7% dim cpt8% : cpt8% = v8% dim cpt9% : cpt9% = v9% dim cpt10% : cpt10% = v10%
' *** BELADEZEIT : ENTLADEZEIT ************************************************* DIM B_ZEIT_01% : DIM B_ZEIT_11% DIM B_ZEIT_02% : DIM B_ZEIT_12% DIM B_ZEIT_03% : DIM B_ZEIT_13%
DIM D_ZEIT_02% : DIM D_ZEIT_12% :D_ZEIT_02% = 100 : D_ZEIT_12% = 110
DIM S_ZEIT_01% : DIM S_ZEIT_11% :S_ZEIT_11% = 70 DIM S_ZEIT_02% : DIM S_ZEIT_12% :S_ZEIT_12% = 100 DIM S_ZEIT_03% : DIM S_ZEIT_13% :S_ZEIT_13% = 80 DIM S_ZEIT_04% : DIM S_ZEIT_14% :S_ZEIT_14% = 110 DIM S_ZEIT_05% : DIM S_ZEIT_15% :S_ZEIT_15% = 120 DIM S_ZEIT_06% : DIM S_ZEIT_16% :S_ZEIT_16% = 100 DIM S_ZEIT_07% : DIM S_ZEIT_17% :S_ZEIT_17% = 60 DIM S_ZEIT_08% : DIM S_ZEIT_18% :S_ZEIT_18% = 100 DIM S_ZEIT_09% : DIM S_ZEIT_19% :S_ZEIT_19% = 30 DIM S_ZEIT_10% : DIM S_ZEIT_20% :S_ZEIT_20% = 90 ' ' *** 5 x LKW ERSTELLEN IN PARKINGZONE linke ********************************** Zeile% = -30 For NR% = 1 TO 5 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-140 :width NR%,45 :height NR%,25 :caption NR%,"LKW"+Str$(NR%) NEXT NR% ' ' *** 5 x LKW ERSTELLEN IN PARKINGZONE rechts ********************************* Zeile% = -30 For NR% = 6 TO 10 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+100 :width NR%,45 :height NR%,25 :caption NR%,"LKW"+Str$(NR%) NEXT NR% ' ' *** 1. STANDZEITZÄHLER LINKS ************************************************* Zeile% = 80 For NR% = 11 TO 20 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 1. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = 80 For NR% = 21 TO 30 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-75 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 1. STANDPLATZNUMMER LINKS ************************************************ Zeile% = 80 For NR% = 31 TO 40 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%-30) NEXT NR% ' ' *** 1. STANDPLATZNUMMER RECHTS *********************************************** Zeile% = 80 For NR% = 41 TO 50 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-110 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%-40) NEXT NR% ' ' *** 2. STANDZEITZÄHLER LINKS ************************************************* Zeile% = 390 For NR% = 111 TO 120 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 2. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = 390 For NR% = 121 TO 130 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-75 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 2. STANDPLATZNUMMER LINKS ************************************************ Zeile% = 390 For NR% = 131 TO 140 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%-120) NEXT NR% ' ' *** 2. STANDPLATZNUMMER RECHTS *********************************************** Zeile% = 390 For NR% = 141 TO 150 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-110 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%-130) NEXT NR% ' ' Mittellinie zeichnen ********************************************************* 2d_pen_color 255,0,0 2d_line SCREEN_X/2,70,SCREEN_X/2,SCREEN_Y -130
' ****************************************************************************** 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 end ' ' *** TIMER INITIALISIERUNG *************************************************** start: timer 9998 timer_interval 9998,60 on_timer 9998,main ' ' ***************************************************************************** ' *** PROGRAMM LKW FÄHRT ****************************************************** main: timer_off_all cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1() ' cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2() ' cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3() ' cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4() ' cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5() ' cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6() ' cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7() ' cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8() ' cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9() ' cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10() on_timer 9998,main return
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 1 FAHREN ************************************************************* sub LKW1() ' *** Startzeit für Fahrt von Parking Zone nach rechts ************************ if S_ZEIT_01% = S_ZEIT_11% then goto AUSWAHL_1 S_ZEIT_01% = S_ZEIT_01% + 1 caption 11,S_ZEIT_01% if S_ZEIT_01% = S_ZEIT_11% then goto AUSWAHL_1 end_sub ' ****************************************************************************** AUSWAHL_1: if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1% left 1,left(1) + delta1% end_sub
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 2 FAHREN ************************************************************* sub LKW2() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_02% = 100 then goto AUSWAHL_2 S_ZEIT_02% = S_ZEIT_02% + 1 caption 12,S_ZEIT_02% if S_ZEIT_02% = 100 then goto AUSWAHL_2 end_sub ' ****************************************************************************** AUSWAHL_2: if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES_2 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS_2 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS_2 ' stop ' *** Fahrt nach rechts ******************************************************** NACHRECHTES_2: caption 12,"0000" left 2,left(2) + delta2% end_sub ' *** Steht rechts ************************************************************* STEHERECHTS_2: B_ZEIT_12% = B_ZEIT_12% + 1 caption 22,B_ZEIT_12% if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0 if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2 end_sub ' ***************************************************************************** ' *** Fahrt nach links ******************************************************** NACHLINKS_2: caption 22,"0000" if (left(2)<102) then goto STEHELINKS_2 left 2,left(2) - delta2% end_sub ' *** Steht links ************************************************************* STEHELINKS_2: left 02,0100 B_ZEIT_02% = B_ZEIT_02% + 1 caption 12,B_ZEIT_02% if B_ZEIT_02% = D_ZEIT_12% then B_ZEIT_12% = 0 if B_ZEIT_02% = D_ZEIT_12% then goto NACHLINKS_2 end_sub ' ****************************************************************************** ' *** LKW 3 FAHREN ************************************************************* sub LKW3() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3 S_ZEIT_03% = S_ZEIT_03% + 1 caption 13,S_ZEIT_03% if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3 end_sub ' ****************************************************************************** AUSWAHL_3: if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3% left 3,left(3) + delta3% end_sub ' ****************************************************************************** sub LKW4() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4 S_ZEIT_04% = S_ZEIT_04% + 1 caption 14,S_ZEIT_04% if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4 end_sub ' ****************************************************************************** AUSWAHL_4: if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4% left 4,left(4) + delta4% end_sub ' ****************************************************************************** sub LKW5() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5 S_ZEIT_05% = S_ZEIT_05% + 1 caption 15,S_ZEIT_05% if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5 end_sub ' ****************************************************************************** AUSWAHL_5: if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5% left 5,left(5) + delta5% end_sub ' ****************************************************************************** sub LKW6() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_06% = S_ZEIT_16% then goto AUSWAHL_6 S_ZEIT_06% = S_ZEIT_06% + 1 caption 16,S_ZEIT_06% if S_ZEIT_06% = S_ZEIT_16% then goto AUSWAHL_6 end_sub ' ****************************************************************************** AUSWAHL_6: if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6% left 6,left(6) + delta6% end_sub ' ****************************************************************************** sub LKW7() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7 S_ZEIT_07% = S_ZEIT_07% + 1 caption 17,S_ZEIT_07% if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7 end_sub ' ****************************************************************************** AUSWAHL_7: if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7% left 7,left(7) + delta7% end_sub ' ****************************************************************************** sub LKW8() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8 S_ZEIT_08% = S_ZEIT_08% + 1 caption 18,S_ZEIT_08% if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8 end_sub ' ****************************************************************************** AUSWAHL_8: if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8% left 8,left(8) + delta8% end_sub ' ****************************************************************************** sub LKW9() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9 S_ZEIT_09% = S_ZEIT_09% + 1 caption 19,S_ZEIT_09% if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9 end_sub ' ****************************************************************************** AUSWAHL_9: if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9% left 9,left(9) + delta9% end_sub ' ****************************************************************************** sub LKW10() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10 S_ZEIT_10% = S_ZEIT_10% + 1 caption 20,S_ZEIT_10% if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10 end_sub ' ****************************************************************************** AUSWAHL_10: if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10% left 10,left(10) + delta10% end_sub ' ****************************************************************************** halt: timer_off_all terminate | |
| | | Klaus
Nombre de messages : 12295 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: game for practice Mar 2 Juil 2013 - 21:49 | |
| Das ist leider unmöglich. Alles, was Du auf Form 0 scheibst, sei es per PRINT oder 2D Kommandos zum Zeichnen, wird von allem Möglichen verwischt. Selbst ein Wordpad Fenster, das sich zeitweise über Dein Programmfenster legt, lässt diese Linie verschwinden.
Die Lösung ? Bilde ein Object PICTURE, dessen Höhe die Länge Deines Striches ist, und desses Breite 1 oder 2 Pixel ist. Dann gieb diesem Picture die entsprechende Farbe un plaziere es an die richtige Position - fertig. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Mar 2 Juil 2013 - 22:02 | |
| | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 6 Juil 2013 - 1:11 | |
| Guten Abend an alle Hier die neuste Version. - Code:
-
' ****************************************************************************** ' *** SIMULATION LKW-VERKEHR FABRIK - LAGER ********************************* ' ****************************************************************************** ' *** FORM 0000 ERSTELLEN UND AN BILDSCHIRM ANPASSEN *************************** ' FORM 0000 TOP 0000,0 LEFT 0000,0 width 0000,SCREEN_X height 0000,SCREEN_Y-40 caption 0000,"SIMULATION LKW-VERKEHR FABRIK - LAGER " color 0000,000,000,000 :' schwarz / black ' ' ****************************************************************************** ' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************ main_menu 9700 sub_menu 9701:CAPTION 9701," STOP LKW all":parent 9701,9700 sub_menu 9702:CAPTION 9702," START LKW all ":parent 9702,9700 sub_menu 9703:CAPTION 9703," DATA LKW01 ":parent 9703,9700 sub_menu 9704:CAPTION 9704," DATA LKW02 ":parent 9704,9700 sub_menu 9705:CAPTION 9705," DATA LKW03 ":parent 9705,9700 sub_menu 9706:CAPTION 9706," DATA LKW04 ":parent 9706,9700 sub_menu 9707:CAPTION 9707," DATA LKW05 ":parent 9707,9700 sub_menu 9708:CAPTION 9708," DATA LKW06 ":parent 9708,9700 sub_menu 9709:CAPTION 9709," DATA LKW07 ":parent 9709,9700 sub_menu 9710:CAPTION 9710," DATA LKW08 ":parent 9710,9700 sub_menu 9711:CAPTION 9711," DATA LKW09 ":parent 9711,9700 sub_menu 9712:CAPTION 9712," DATA LKW10 ":parent 9712,9700 sub_menu 9713:CAPTION 9713," ":parent 9713,9700 sub_menu 9714:CAPTION 9714," ":parent 9714,9700 sub_menu 9715:CAPTION 9715," ":parent 9715,9700 sub_menu 9716:CAPTION 9716," ":parent 9716,9700 sub_menu 9717:CAPTION 9717," ":parent 9717,9700 sub_menu 9718:CAPTION 9718," ":parent 9718,9700 sub_menu 9719:CAPTION 9719," ":parent 9719,9700 sub_menu 9720:CAPTION 9720," ":parent 9720,9700 ' ' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN *************************************** DIM SEITE_RECHTS_00% : SEITE_RECHTS_00% = SCREEN_X/2-24 DIM SEITE_LINKS_00% : SEITE_LINKS_00% = SCREEN_X/2-120
DIM SEITE_RECHTS_01% : SEITE_RECHTS_01% = SCREEN_X/2-24 DIM SEITE_LINKS_01% : SEITE_LINKS_01% = SCREEN_X/2-120
DIM SEITE_OBEN% DIM SEITE_UNTEN% DIM NR% DIM Zeile%
' ****************************************************************************** ' *** FABRIK erstellen ********************************************************* EDIT 9800 :TOP 9800,105 :LEFT 9800,10 :WIDTH 9800,85 :HEIGHT 9800,305 : color 9800,50,140,15 ' *** RAMPEN FABRIK erstellen ************************************************** EDIT 9810 :TOP 9810,105 :LEFT 9810,95 :WIDTH 9810,19 :HEIGHT 9810,305:color 9810,200,200,210 ' *** Lager03 erstellen ******************************************************** EDIT 9860 :TOP 9860,415 :LEFT 9860,10 :WIDTH 9860,85 :HEIGHT 9860,303 : color 9860,150,20,30 ' *** RAMPEN LAGER03 erstellen ************************************************* EDIT 9870 :TOP 9870,415 :LEFT 9870,95 : WIDTH 9870,19 :HEIGHT 9870,303:color 9870,200,200,210 ' *** Lager01 erstellen ******************************************************** EDIT 9820 :TOP 9820,105 :LEFT 9820,SCREEN_X-120 :WIDTH 9820,85 :HEIGHT 9820,303 :color 9820,150,20,30 ' *** RAMPEN LAGER01 erstellen ************************************************* EDIT 9830 :TOP 9830,105 :LEFT 9830,SCREEN_X-140 :WIDTH 9830,19 :HEIGHT 9830,303:color 9830,200,200,210 ' *** Lager02 erstellen ******************************************************** EDIT 9840 :TOP 9840,415 :LEFT 9840,SCREEN_X-120 : WIDTH 9840,85 :HEIGHT 9840,303 :color 9840,150,20,30 ' *** RAMPEN LAGER02 erstellen ************************************************* EDIT 9850 :TOP 9850,415 :LEFT 9850,SCREEN_X-140 : WIDTH 9850,19 :HEIGHT 9850,303:color 9850,200,200,210 ' *** PARKINGZONE ERSTELLEN **************************************************** EDIT 9890 :TOP 9890,((SCREEN_y/4)*3)-5 :LEFT 9890,SCREEN_X/2-260 : WIDTH 9890,140 :HEIGHT 9890,155 :color 9890,100,200,230 EDIT 9895 :TOP 9895,((SCREEN_y/4)*3)-5 :LEFT 9895,SCREEN_X/2+120 : WIDTH 9895,140 :HEIGHT 9895,155 :color 9895,100,200,230 ' ' ****************************************************************************** ' *** LABEL ERSTELLEN ********************************************************** ' ****************************************************************************** label main label halt label start ' label STARTZEIT_01 label NACHRECHTS_01 label NACHOBEN_01 label NACHLINKS_01 label STANDZEIT_011 label STANDZEIT_012 label NACHUNTEN_01 label ENDZEIT_01 ' label STARTZEIT_06 label NACHRECHTS_06 label NACHOBEN_06 label NACHLINKS_06 label STANDZEIT_061 label STANDZEIT_062 label NACHUNTEN_06 label ENDZEIT_06 ' label Weiter_01: label Weiter_02: label Weiter_03: label Weiter_04: label Weiter_05 label Weiter_06: label Weiter_07: label Weiter_08: label Weiter_09: label Weiter_10 label Weiter_11: label Weiter_12: label Weiter_13: label Weiter_14:' label Weiter_15 ' label Weiter_101:label Weiter_102:label Weiter_103:label Weiter_104:label Weiter_105 label Weiter_106:label Weiter_107:label Weiter_108:label Weiter_109:label Weiter_110 label Weiter_111:label Weiter_112:label Weiter_113:label Weiter_114:' label Weiter_115 ' DIM FLAGGE_01% : FLAGGE_01% = 0 DIM FLAGGE_02% : FLAGGE_02% = 0 DIM FLAGGE_03% : FLAGGE_03% = 0 DIM FLAGGE_04% : FLAGGE_04% = 0 DIM FLAGGE_05% : FLAGGE_05% = 0 DIM FLAGGE_06% : FLAGGE_06% = 0 DIM FLAGGE_07% : FLAGGE_07% = 0 DIM FLAGGE_08% : FLAGGE_08% = 0 DIM FLAGGE_09% : FLAGGE_09% = 0 DIM FLAGGE_10% : FLAGGE_10% = 0 DIM FLAGGE_11% : FLAGGE_11% = 0 DIM FLAGGE_12% : FLAGGE_12% = 0 DIM FLAGGE_13% : FLAGGE_13% = 0 DIM FLAGGE_14% : FLAGGE_14% = 0 ' DIM FLAGGE_101% : FLAGGE_101% = 0 DIM FLAGGE_102% : FLAGGE_102% = 0 DIM FLAGGE_103% : FLAGGE_103% = 0 DIM FLAGGE_104% : FLAGGE_104% = 0 DIM FLAGGE_105% : FLAGGE_105% = 0 DIM FLAGGE_106% : FLAGGE_106% = 0 DIM FLAGGE_107% : FLAGGE_107% = 0 DIM FLAGGE_108% : FLAGGE_108% = 0 DIM FLAGGE_109% : FLAGGE_109% = 0 DIM FLAGGE_110% : FLAGGE_110% = 0 DIM FLAGGE_111% : FLAGGE_111% = 0 DIM FLAGGE_112% : FLAGGE_112% = 0 DIM FLAGGE_113% : FLAGGE_113% = 0 DIM FLAGGE_114% : FLAGGE_114% = 0 ' ' ******************************************************************************
label NACHRECHTS_2
label NACHLINKS_2
label STEHERECHTS_2
label STEHELINKS_2
label AUSWAHL_2 :label AUSWAHL_3 :label AUSWAHL_4 label AUSWAHL_5 :label AUSWAHL_6 :label AUSWAHL_7 :label AUSWAHL_8 label AUSWAHL_9 :label AUSWAHL_10 ' ' *** LKW GESCHWINDIGKEIT EINSTELLEN ******************************************* dim delta1% : delta1% = 1 dim delta2% : delta2% = 1 dim delta3% : delta3% = 1 dim delta4% : delta4% = 1 dim delta5% : delta5% = 1 dim delta6% : delta6% = 1 dim delta7% : delta7% = 1 dim delta8% : delta8% = 1 dim delta9% : delta9% = 1 dim delta10% :delta10% = 1
' *** BELADEZEIT : ENTLADEZEIT ************************************************* DIM S_ZEIT_01% : DIM S_ZEIT_11% : S_ZEIT_01% = 0 : S_ZEIT_11% = 50 DIM B_ZEIT_01% : DIM B_ZEIT_11% : B_ZEIT_01% = 0 : B_ZEIT_11% = 50 DIM B_ZEIT_02% : DIM B_ZEIT_12% : B_ZEIT_02% = 0 : B_ZEIT_12% = 50 DIM B_ZEIT_03% : DIM B_ZEIT_13% : B_ZEIT_03% = 0 : B_ZEIT_13% = 50 DIM E_ZEIT_01% : DIM E_ZEIT_11% : E_ZEIT_01% = 0 : E_ZEIT_11% = 50 ' DIM S_ZEIT_101% : DIM S_ZEIT_111% : S_ZEIT_101% = 0 : S_ZEIT_111% = 90 DIM B_ZEIT_101% : DIM B_ZEIT_111% : B_ZEIT_101% = 0 : B_ZEIT_111% = 90 DIM B_ZEIT_102% : DIM B_ZEIT_112% : B_ZEIT_102% = 0 : B_ZEIT_112% = 90 DIM B_ZEIT_103% : DIM B_ZEIT_113% : B_ZEIT_103% = 0 : B_ZEIT_113% = 90 DIM E_ZEIT_101% : DIM E_ZEIT_111% : E_ZEIT_101% = 0 : E_ZEIT_111% = 90
DIM D_ZEIT_02% : DIM D_ZEIT_12% :D_ZEIT_02% = 100 : D_ZEIT_12% = 110
' DIM S_ZEIT_01% : DIM S_ZEIT_11% :S_ZEIT_11% = 100 DIM S_ZEIT_02% : DIM S_ZEIT_12% :S_ZEIT_12% = 100 DIM S_ZEIT_03% : DIM S_ZEIT_13% :S_ZEIT_13% = 80 DIM S_ZEIT_04% : DIM S_ZEIT_14% :S_ZEIT_14% = 110 DIM S_ZEIT_05% : DIM S_ZEIT_15% :S_ZEIT_15% = 120 ' DIM S_ZEIT_06% : DIM S_ZEIT_16% :S_ZEIT_16% = 100 DIM S_ZEIT_07% : DIM S_ZEIT_17% :S_ZEIT_17% = 60 DIM S_ZEIT_08% : DIM S_ZEIT_18% :S_ZEIT_18% = 100 DIM S_ZEIT_09% : DIM S_ZEIT_19% :S_ZEIT_19% = 30 DIM S_ZEIT_10% : DIM S_ZEIT_20% :S_ZEIT_20% = 90 ' ' ****************************************************************************** ' *** Fahrplan für LKW 1 ******************************************************* ' DIM LKW_01% : LKW_01% = 01 DIM LKW_06% : LKW_06% = 06
DIM FAHRT_01$(10,3) ' ' ------------------------------------------------------------------------------ ' Startpunkt : Zielpunkt : Standdauer ' ----------------------------------------------------------------------------- FAHRT_01$(00,1) = "0000" : FAHRT_01$(00,2) = "0000" : FAHRT_01$(00,3) = "0100" FAHRT_01$(01,1) = "P161" : FAHRT_01$(01,2) = "M190" : FAHRT_01$(01,3) = "0000" FAHRT_01$(02,1) = "P190" : FAHRT_01$(02,2) = "M191" : FAHRT_01$(02,3) = "0000" FAHRT_01$(03,1) = "M191" : FAHRT_01$(03,2) = "M180" : FAHRT_01$(03,3) = "0000" FAHRT_01$(04,1) = "M180" : FAHRT_01$(04,2) = "L040" : FAHRT_01$(04,3) = "0100" FAHRT_01$(05,1) = "L040" : FAHRT_01$(05,2) = "R050" : FAHRT_01$(05,3) = "0100" FAHRT_01$(06,1) = "R050" : FAHRT_01$(06,2) = "M180" : FAHRT_01$(06,3) = "0000" FAHRT_01$(07,1) = "M180" : FAHRT_01$(07,2) = "M190" : FAHRT_01$(07,3) = "0000" FAHRT_01$(08,1) = "M190" : FAHRT_01$(08,2) = "P191" : FAHRT_01$(08,3) = "0000" FAHRT_01$(09,1) = "M191" : FAHRT_01$(09,2) = "P161" : FAHRT_01$(09,3) = "0000" FAHRT_01$(10,1) = "0000" : FAHRT_01$(10,2) = "0000" : FAHRT_01$(10,3) = "0100" ' ' ****************************************************************************** ' *** Zeitanzeige für 10 LKW'S *************************************************
NR% = 500 :edit NR% :top NR%,15 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%," Startzeit" NR% = 502 :edit NR% :top NR%,40 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%," Endzeit " NR% = 504 :edit NR% :top NR%,65 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%," Dauer "
Zeile% = 250 For NR% = 511 TO 520 Zeile% = Zeile% + 80 edit NR% :top NR%,15 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000" NEXT NR%
Zeile% = 250 For NR% = 541 TO 550 Zeile% = Zeile% + 80 edit NR% :top NR%,40 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000" NEXT NR% ' Zeile% = 250 For NR% = 561 TO 570 Zeile% = Zeile% + 80 edit NR% :top NR%,65 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000" NEXT NR% ' ' *** 1. STANDZEITZÄHLER LINKS ************************************************* Zeile% = 80 For NR% = 11 TO 20 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 1. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = 80 For NR% = 21 TO 30 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-85 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 1. STANDPLATZNUMMER LINKS ************************************************ Zeile% = 80 For NR% = 31 TO 40 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 : caption NR%,"L"+Str$(NR%) NEXT NR% ' ' *** 1. STANDPLATZNUMMER RECHTS *********************************************** Zeile% = 80 For NR% = 41 TO 50 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-120 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%) NEXT NR% ' ' *** 2. STANDZEITZÄHLER LINKS ************************************************* Zeile% = 390 For NR% = 111 TO 120 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 2. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = 390 For NR% = 121 TO 130 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-85 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 2. STANDPLATZNUMMER LINKS ************************************************ Zeile% = 390 For NR% = 131 TO 140 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%) NEXT NR% ' ' *** 2. STANDPLATZNUMMER RECHTS *********************************************** Zeile% = 390 For NR% = 141 TO 150 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X-120 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%) NEXT NR% ' ' *** 3. STANDZEITZÄHLER LINKS ************************************************* Zeile% = -30 For NR% = 151 TO 155 Zeile% = Zeile% + 30 button NR% :top NR%,(((SCREEN_y/4)*3))+Zeile% :left NR%,SCREEN_X/2-205 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 3. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = -30 For NR% = 156 TO 160 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+160 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 4. STANDZEITZÄHLER LINKS ************************************************* Zeile% = -30 For NR% = 201 TO 205 Zeile% = Zeile% + 30 button NR% :top NR%,(((SCREEN_y/4)*3))+Zeile% :left NR%,SCREEN_X/2-255 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 4. STANDZEITZÄHLER RECHTS ************************************************ Zeile% = -30 For NR% = 206 TO 210 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+210 :width NR%,45 :height NR%,25 :caption NR%,"0000" NEXT NR% ' ' *** 3. STANDPLATZNUMMER LINKS ************************************************ Zeile% = -30 For NR% = 161 TO 165 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-153:width NR%,30 :height NR%,25 :caption NR%,"P"+Str$(NR%) NEXT NR% ' ' *** 3. STANDPLATZNUMMER RECHTS *********************************************** Zeile% = -30 For NR% = 166 TO 170 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+125 :width NR%,30 :height NR%,25 :caption NR%,"P"+Str$(NR%) NEXT NR% ' ' Mittellinie zeichnen ********************************************************* Picture 8000 :top 8000,110 :left 8000,SCREEN_X/2-1 :width 8000,2 :height 8000,SCREEN_Y -220 :color 8000,255,0,0 ' ' *** Mittellinie NUMMER ******************************************************* Zeile% = 80 For NR% = 171 TO 180 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X/2-15 :width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%) NEXT NR% ' Zeile% = 390 For NR% = 181 TO 190 Zeile% = Zeile% + 30 button NR% :top NR%,Zeile% :left NR%,SCREEN_X/2-15 :width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%) NEXT NR% ' Zeile% = -30 For NR% = 191 TO 195 Zeile% = Zeile% + 30 button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-15:width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%) NEXT NR% ' ' *** 5 x LKW ERSTELLEN IN PARKINGZONE linke ********************************** Zeile% = -30 For NR% = 1 TO 5 Zeile% = Zeile% + 30 EDIT NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-120 :width NR%,45 :height NR%,25 :color NR%,255,0,0 :Text NR%,"LKW"+Str$(NR%) NEXT NR% ' ' *** 5 x LKW ERSTELLEN IN PARKINGZONE rechts ********************************* Zeile% = -30 For NR% = 6 TO 10 Zeile% = Zeile% + 30 EDIT NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+75 :width NR%,45 :height NR%,25 :color NR%,255,0,0 :Text NR%,"LKW"+Str$(NR%) NEXT NR% ' ' ****************************************************************************** ON_CLICK 9701,halt ON_CLICK 9702,start ' ON_CLICK 9703,DATA_LKW01 ' 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
text 511,time$ text 516,time$ return ' ' ***************************************************************************** ' *** PROGRAMM LKW FÄHRT ****************************************************** main: timer_off_all LKW_1() ' LKW2() ' LKW3() ' LKW4() ' LKW5() LKW_6() ' LKW7() ' LKW8() ' LKW9() ' LKW10() on_timer 9998,main return
' ****************************************************************************** ' ****************************************************************************** ' *** LKW 1 FAHREN ************************************************************* sub LKW_1() ' if FLAGGE_01% = 0 then goto Weiter_01 if FLAGGE_01% = 1 then goto Weiter_02 ' END ' *** Startzeit für Fahrt von Parking Zone nach rechts ************************* Weiter_01: if FLAGGE_01% = 1 then goto Weiter_02 if S_ZEIT_01% < S_ZEIT_11% then goto STARTZEIT_01 if S_ZEIT_01% = S_ZEIT_11% then goto Weiter_02 ' END ' *** Fahrt aus Parkingzone **************************************************** Weiter_02: if FLAGGE_02% = 1 then goto Weiter_03 FLAGGE_01% = 1 if left(LKW_01%) < left(191)-9 then goto NACHRECHTS_01 if left(LKW_01%) = left(191)-9 then goto Weiter_03 ' END ' *** Fahrt zum 1. Quer-Knoten nach oben aus Parkplatz ************************* Weiter_03: if FLAGGE_03% = 1 then goto Weiter_04 FLAGGE_02% = 1 if top(1) > top(190) then goto NACHOBEN_01 if top(1) = top(190) then goto Weiter_04 ' END ' ****************************************************************************** ' *** Fahrt nach oben ********************************************************** Weiter_04: if FLAGGE_04% = 1 then goto Weiter_05 FLAGGE_03% = 1 if top(1) > top(180) then goto NACHOBEN_01 if top(1) = top(180) then goto Weiter_05 ' END ' *** Fahrt nach links ********************************************************* Weiter_05: if FLAGGE_05% = 1 then goto Weiter_06 FLAGGE_04% = 1
if (left(40)+40) - (left(1)) > ABS(30) then delta1% = 5 if (left(40)+40) - (left(1)) < ABS(30) then delta1% = 1
if left(1) > left(40)+40 then goto NACHLINKS_01
if left(1) = left(40)+40 then goto Weiter_06 ' END ' *** Beladezeit links ******************************************************* Weiter_06: if FLAGGE_06% = 1 then goto Weiter_07 FLAGGE_05% = 1 if B_ZEIT_01% = B_ZEIT_11% then goto Weiter_07 if left(1) = left(40)+40 then color 1,0,255,0 if left(1) = left(40)+40 then goto STANDZEIT_011 ' END ' *** Fahrt nach rechts außen ************************************************** Weiter_07: if FLAGGE_07% = 1 then goto Weiter_08 FLAGGE_06% = 1
if (left(50)-55) - (left(1)) < ABS(30) then delta1% = 1 if (left(50)-55) - (left(1)) > ABS(30) then delta1% = 5
if left(1) < left(50)-55 then goto NACHRECHTS_01
if left(1) = left(50)-55 then goto Weiter_08 ' END ' *** Entladezeit rechts ******************************************************* Weiter_08: if FLAGGE_08% = 1 then goto Weiter_09 FLAGGE_07% = 1 if B_ZEIT_02% = B_ZEIT_12% then goto Weiter_09 if left(1) = left(50)-55 then color 1,255,0,0 if left(1) = left(50)-55 then goto STANDZEIT_012 ' END ' *** Fahrt nach links zur Mitte *********************************************** Weiter_09: if FLAGGE_09% = 1 then goto Weiter_10 FLAGGE_08% = 1
' if (left(1)) - left(180)-9 > -30 then delta1% = 5 ' if (left(1)) - left(180)-9 < -30 then delta1% = 1
if left(1) > left(180)-9 then goto NACHLINKS_01 if left(1) = left(180)-9 then goto Weiter_10 ' END ' ****************************************************************************** ' *** Fahrt zum 1. Quer-Knoten nach unten zum Parkplatz ************************ Weiter_10: if FLAGGE_10% = 1 then goto Weiter_11 FLAGGE_09% = 1 if top(1) < top(190) then goto NACHUNTEN_01 if top(1) = top(190) then goto Weiter_11 ' END ' *** Fahrt nach unten zum Parkplatz ******************************************* Weiter_11: if FLAGGE_11% = 1 then goto Weiter_12 FLAGGE_10% = 1 if top(1) < top(191) then goto NACHUNTEN_01 if top(1) = top(191) then goto Weiter_12 ' END ' *** Fahrt in Parkplatz ******************************************************* Weiter_12: if FLAGGE_12% = 1 then goto Weiter_13 FLAGGE_11% = 1 if left(1) > SCREEN_X/2-120 then goto NACHLINKS_01 if left(1) = SCREEN_X/2-120 then goto Weiter_13
END ' ****************************************************************************** Weiter_13: if FLAGGE_13% = 1 then goto Weiter_14 FLAGGE_12% = 1 if E_ZEIT_01% < E_ZEIT_11% then goto ENDZEIT_01 if E_ZEIT_01% = E_ZEIT_11% then goto Weiter_14 ' END ' ****************************************************************************** Weiter_14: text 541,Time$ timer_off_all : END_sub ' ****************************************************************************** ' *** STARTZEIT FÜR LKW ******************************************************** STARTZEIT_01: ' S_ZEIT_01% = S_ZEIT_01% + 1 caption 151,S_ZEIT_01% end_sub ' ' *** LKW aus Parkzone ********************************************************* NACHRECHTS_01: ' left 1,left(1) + delta1% end_sub ' ' *** LKW fährt nach oben ****************************************************** NACHOBEN_01: ' top 1,top(1) - delta1% end_sub ' ' *** LKW fährt nach links ***************************************************** NACHLINKS_01: ' left 1,left(1) - delta1% end_sub ' ' *** Beladezeit links ********************************************************* STANDZEIT_011: ' B_ZEIT_01% = B_ZEIT_01% + 1 caption 20,B_ZEIT_01% end_sub ' ' *** Beladezeit rechts ******************************************************** STANDZEIT_012: B_ZEIT_02% = B_ZEIT_02% + 1 caption 30,B_ZEIT_02% ' end_sub ' ' *** LKW fährt nach UNTEN **************************************************** NACHUNTEN_01: ' top 1,top(1) + delta1% end_sub ' ' *** LKW fährt nach UNTEN **************************************************** ENDZEIT_01: E_ZEIT_01% = E_ZEIT_01% + 1 caption 201,E_ZEIT_01% ' end_sub ' ' ****************************************************************************** ' ****************************************************************************** ' *** LKW 2 FAHREN ************************************************************* sub LKW2() ' *** Startzeit für Fahrt nach rechts ****************************************** if B_ZEIT_02% = 100 then goto AUSWAHL_02 B_ZEIT_12% = B_ZEIT_12% + 1 caption 22,B_ZEIT_12% if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0 if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2 end_sub ' ****************************************************************************** AUSWAHL_2: if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTS_2 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS_2 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS_2 ' stop ' *** Fahrt nach rechts ******************************************************** NACHRECHTS_2: caption 12,"0000" left 2,left(2) + delta2% end_sub ' *** Steht rechts ************************************************************* STEHERECHTS_2: B_ZEIT_12% = B_ZEIT_12% + 1 caption 22,B_ZEIT_12% if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0 if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2 end_sub ' ***************************************************************************** ' *** Fahrt nach links ******************************************************** NACHLINKS_2: caption 22,"0000" if (left(2)<102) then goto STEHELINKS_2 left 2,left(2) - delta2% end_sub ' *** Steht links ************************************************************* STEHELINKS_2: left 02,0100 B_ZEIT_02% = B_ZEIT_02% + 1 caption 12,B_ZEIT_02% if B_ZEIT_02% = D_ZEIT_12% then B_ZEIT_12% = 0 if B_ZEIT_02% = D_ZEIT_12% then goto NACHLINKS_2 end_sub ' ****************************************************************************** ' *** LKW 3 FAHREN ************************************************************* sub LKW3() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3 S_ZEIT_03% = S_ZEIT_03% + 1 caption 153,S_ZEIT_03% if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3 end_sub ' ****************************************************************************** AUSWAHL_3: if (left(3)<SEITE_LINKS_00%) or (left(3)>SEITE_RECHT_00S%) then delta3% = 0 - delta3% left 3,left(3) + delta3% end_sub ' ****************************************************************************** sub LKW4() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4 S_ZEIT_04% = S_ZEIT_04% + 1 caption 154,S_ZEIT_04% if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4 end_sub ' ****************************************************************************** AUSWAHL_4: if (left(4)<SEITE_LINKS_00%) or (left(4)>SEITE_RECHTS_00%) then delta4% = 0 - delta4% left 4,left(4) + delta4% end_sub ' ****************************************************************************** sub LKW5() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5 S_ZEIT_05% = S_ZEIT_05% + 1 caption 155,S_ZEIT_05% if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5 end_sub ' ****************************************************************************** AUSWAHL_5: if (left(5)<SEITE_LINKS_00%) or (left(5)>SEITE_RECHTS_00%) then delta5% = 0 - delta5% left 5,left(5) + delta5% end_sub ' ****************************************************************************** ' ****************************************************************************** ' *** LKW 6 FAHREN ************************************************************* sub LKW_6() ' if FLAGGE_101% = 0 then goto Weiter_101 if FLAGGE_101% = 1 then goto Weiter_102 ' END ' *** Startzeit für Fahrt von Parking Zone nach rechts ************************* Weiter_101: if FLAGGE_101% = 1 then goto Weiter_102 if S_ZEIT_101% < S_ZEIT_111% then goto STARTZEIT_06 if S_ZEIT_101% = S_ZEIT_111% then goto Weiter_102 ' END ' *** Fahrt aus Parkingzone **************************************************** Weiter_102: if FLAGGE_102% = 1 then goto Weiter_103 FLAGGE_101% = 1 if left(6) > left(191)-9 then goto NACHLINKS_06 if left(6) = left(191)-9 then goto Weiter_103 ' END ' *** Fahrt zum 1. Quer-Knoten nach oben aus Parkplatz ************************* Weiter_103: if FLAGGE_103% = 1 then goto Weiter_104 FLAGGE_102% = 1 if top(6) > top(190) then goto NACHOBEN_06 if top(6) = top(190) then goto Weiter_104 ' END ' ****************************************************************************** ' *** Fahrt nach oben ********************************************************** Weiter_104: if FLAGGE_104% = 1 then goto Weiter_105 FLAGGE_103% = 1 if top(6) > top(171) then goto NACHOBEN_06 if top(6) = top(171) then goto Weiter_105 ' END ' *** Fahrt nach links ********************************************************* Weiter_105: if FLAGGE_105% = 1 then goto Weiter_106 FLAGGE_104% = 1
if (left(31)+40) - (left(6)) > ABS(30) then delta6% = 5 if (left(31)+40) - (left(6)) < ABS(30) then delta6% = 1
if left(6) > left(40)+40 then goto NACHLINKS_06
if left(6) = left(40)+40 then goto Weiter_106 ' END ' *** Beladezeit links ******************************************************* Weiter_106: if FLAGGE_106% = 1 then goto Weiter_107 FLAGGE_105% = 1 if B_ZEIT_101% = B_ZEIT_111% then goto Weiter_107 if left(6) = left(31)+40 then color 6,0,255,0 if left(6) = left(31)+40 then goto STANDZEIT_061 ' END ' *** Fahrt nach rechts außen ************************************************** Weiter_107: if FLAGGE_107% = 1 then goto Weiter_108 FLAGGE_106% = 1
if (left(41)-55) - (left(6)) < ABS(30) then delta6% = 1 if (left(41)-55) - (left(6)) > ABS(30) then delta6% = 5
if left(6) < left(41)-55 then goto NACHRECHTS_06
if left(6) = left(41)-55 then goto Weiter_108 ' END ' *** Entladezeit rechts ******************************************************* Weiter_108: if FLAGGE_108% = 1 then goto Weiter_109 FLAGGE_107% = 1 if B_ZEIT_102% = B_ZEIT_112% then goto Weiter_109 if left(6) = left(41)-55 then color 6,255,0,0 if left(6) = left(41)-55 then goto STANDZEIT_062 ' END ' *** Fahrt nach links zur Mitte *********************************************** Weiter_109: if FLAGGE_109% = 1 then goto Weiter_110 FLAGGE_108% = 1
' if (left(6)) - left(180)-9 > -30 then delta6% = 5 ' if (left(6)) - left(180)-9 < -30 then delta6% = 1
if left(6) > left(171)-9 then goto NACHLINKS_06 if left(6) = left(171)-9 then goto Weiter_110 ' END ' ****************************************************************************** ' *** Fahrt zum 1. Quer-Knoten nach unten zum Parkplatz ************************ Weiter_110: if FLAGGE_110% = 1 then goto Weiter_111 FLAGGE_109% = 1 if top(6) < top(190) then goto NACHUNTEN_06 if top(6) = top(190) then goto Weiter_111 ' END ' *** Fahrt nach unten zum Parkplatz ******************************************* Weiter_111: if FLAGGE_111% = 1 then goto Weiter_112 FLAGGE_110% = 1 if top(6) < top(191) then goto NACHUNTEN_06 if top(6) = top(191) then goto Weiter_112 ' END ' *** Fahrt in Parkplatz ******************************************************* Weiter_112: if FLAGGE_112% = 1 then goto Weiter_113 FLAGGE_111% = 1 if left(6) < SCREEN_X/2+75 then goto NACHRECHTS_06 if left(6) = SCREEN_X/2+75 then goto Weiter_113
END ' ****************************************************************************** Weiter_113: if FLAGGE_113% = 1 then goto Weiter_114 FLAGGE_112% = 1 if E_ZEIT_101% < E_ZEIT_111% then goto ENDZEIT_06 if E_ZEIT_101% = E_ZEIT_111% then goto Weiter_114 ' END ' ****************************************************************************** Weiter_114: text 546,Time$ timer_off_all : END_sub ' ' ****************************************************************************** ' *** STARTZEIT FÜR LKW ******************************************************** STARTZEIT_06: ' S_ZEIT_101% = S_ZEIT_101% + 1 caption 156,S_ZEIT_101% end_sub ' ' *** LKW aus Parkzone ********************************************************* NACHRECHTS_06: ' left 6,left(6) + delta6% end_sub ' ' *** LKW fährt nach oben ****************************************************** NACHOBEN_06: ' top 6,top(6) - delta6% end_sub ' ' *** LKW fährt nach links ***************************************************** NACHLINKS_06: ' left 6,left(6) - delta6% end_sub ' ' *** Beladezeit links ********************************************************* STANDZEIT_061: ' B_ZEIT_101% = B_ZEIT_101% + 1 caption 11,B_ZEIT_101% end_sub ' ' *** Beladezeit rechts ******************************************************** STANDZEIT_062: B_ZEIT_102% = B_ZEIT_102% + 1 caption 21,B_ZEIT_102% ' end_sub ' ' *** LKW fährt nach UNTEN **************************************************** NACHUNTEN_06: ' top 6,top(6) + delta6% end_sub ' ' *** LKW fährt nach UNTEN **************************************************** ENDZEIT_06: E_ZEIT_101% = E_ZEIT_101% + 1 caption 206,E_ZEIT_101% ' end_sub ' ' ****************************************************************************** ' ****************************************************************************** ' ****************************************************************************** sub LKW7() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7 S_ZEIT_07% = S_ZEIT_07% + 1 caption 157,S_ZEIT_07% if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7 end_sub ' ****************************************************************************** AUSWAHL_7: if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7% left 7,left(7) + delta7% end_sub ' ****************************************************************************** sub LKW8() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8 S_ZEIT_08% = S_ZEIT_08% + 1 caption 158,S_ZEIT_08% if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8 end_sub ' ****************************************************************************** AUSWAHL_8: if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8% left 8,left(8) + delta8% end_sub ' ****************************************************************************** sub LKW9() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9 S_ZEIT_09% = S_ZEIT_09% + 1 caption 159,S_ZEIT_09% if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9 end_sub ' ****************************************************************************** AUSWAHL_9: if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9% left 9,left(9) + delta9% end_sub ' ****************************************************************************** sub LKW10() ' *** Startzeit für Fahrt nach rechts ****************************************** if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10 S_ZEIT_10% = S_ZEIT_10% + 1 caption 160,S_ZEIT_10% if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10 end_sub ' ****************************************************************************** AUSWAHL_10: if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10% left 10,left(10) + delta10% end_sub ' ****************************************************************************** halt: timer_off_all terminate ' ******************************************************************************
Dernière édition par Severin le Dim 7 Juil 2013 - 2:25, édité 2 fois | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: game for practice Sam 6 Juil 2013 - 8:30 | |
| Neu Version 6.7.13 8:29 oben
Neu Version 6.7.13 20:05 oben
Neu Version 7.7.13 02:05 oben
Dernière édition par Severin le Dim 7 Juil 2013 - 2:13, édité 2 fois | |
| | | Jicehel
Nombre de messages : 5947 Age : 51 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: game for practice Sam 6 Juil 2013 - 9:22 | |
| you make an conception error as you define your timer in the event proc "start" so when you clic again you try to create again the same object, so you have an error. 2 solutions: Move the definition of your timer before the line end and stop timer start timer when you clic on start. So this make from line 340 - Code:
-
timer 9998 : timer_interval 9998,60 : on_timer 9998,main : timer_off 9998 end ' ' *** TIMER INITIALISIERUNG *************************************************** start: timer_on 9998 return ' | |
| | | Contenu sponsorisé
| Sujet: Re: game for practice | |
| |
| | | | game for practice | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |