Simulacija rada u grill(evima!)
Cao svima koji su radili u bilo kakvom obliku grila, cevabdzinice ili slicnog ugostiteljskog objekata (kao ja jedno vreme!) a poseban pozdrav onima koji to NISU radili, a MISLE DA JE LAK posao
Naime, imam jednu igricu (dole izlistanu) koju sam napravio pre par dana cisto ilustracije radi - koliko je to tezak posao!
Da bi ste je pokrenuli, prvo treba da je ukucate, ali pre kucanja treba vam Euphoric.exe (emulator Extended Basic-a) koji je besplatan od FabriceFrance i moze se skinuti sa njihovog oficijelnog sajta, ako se ne varam ovo im je url:
http://yahoolistspider.home.insightbb.com/
click on Emulators&tools pa na Euphoric (Fabrice France) za download.
Po "downloadovanju" emulatora, ako vam je mrsko da je kucate (a normalno, morate je ukucati bez greske!), javite mi se na mail brana@hotmail.com, mogu vam je poslati kao attachment program; sam emulator je negde oko 1-1,5Mbt-a a moj program je prilicno kratak, koristi 240x200 graficki ekran (vectordraw) i daje REALNU simulaciju TEZINE rada u Grill-u hehehe. Grafika je skromna (priznajem) ali je igra jako realna; imacete jedno VECE da usluzite do STOTINU musterija kojima se ZURI i ne zele puno da CEKAJU a na vama je sve - da pratite njihove narudzbine, da radite za grill-om i da ih usluzujete (Grill sa jednim radnikom u smeni!) Morate znati napamet cene, nigde ne smete pogresiti, imate "meni" na raspolaganju ali jako malo "slobodnog vremena" sve u svemu - realna simulacija ovog posla!!!
Volio bih da ga zainteresovani posetioci probaju, strasno me interesuju povratni komentari?
Malo izvinjenje sto je koristen Extended Basic za ovaj program, mozda vecina ljudi smatra isti zastarelim, mada se u njemu jako lako mogu za vrlo kratko vreme uraditi raznorazne stvari a Euphoric.EXE emulator mi je s tim u cilju najfleksibilniji
Puno pozdrava
Brana
brana@hotmail.com
063/8133681 (+381638133681)
1 PAPER0:INK2:Q2=156:W2=91:Q3=176:W3=111:Q4=196:W4=131:Q5=216:W5=151
2 HIRESRINTCHR$(17):Q6=56:W6=111:Q7=36:W7=151:A2=Q2+15:S2=W2-15:A3=Q3+15
3 DRAW239,0,1RAW0,199,1RAW-239,0,1RAW0,-199,1:CURSET50,30,0:S3=W3-15
4 DATA 66,114,97,110,97,64,114,115,116,101,108,46,110,101,116
5 PRINT"One moment, please...":FORA=1TO15
6 READL:CURMOV7,0,0:CHARL,0,1:NEXTA
7 CURSET50,100,0:A4=Q4+15:S4=W4-15:A5=Q5+15:S5=W5-15:LIVE=10
8 DRAW0,-10,1RAW5,0,1RAW0,5,1RAW-5,0,1
9 CURMOV15,5,0:SPEED=50
10 DRAW0,-10,1RAW5,0,1RAW0,5,1RAW-5,0,1RAW5,5,1
11 CURMOV15,0,1:W=10
13 DRAW-5,0,1RAW0,-5,1RAW5,0,1RAW-5,0,1RAW0,-5,1RAW5,0,1
14 CURMOV15,0,1
15 DRAW-5,0,1RAW5,10,1RAW-5,0,1
16 CURMOV20,0,0
17 DRAW-5,0,1RAW0,-5,1RAW5,0,1RAW-5,0,1RAW0,-5,1RAW5,0,1
18 CURMOV10,10,1
19 DRAW0,-10,1RAW5,10,1RAW0,-10,1
20 CURMOV10,0,0
21 DRAW10,0,1RAW-5,0,1RAW0,10,1
22 CURMOV20,-10,0
23 DRAW-5,0,1RAW5,10,1RAW-5,0,1
24 CURMOV15,0,1:CURMOV0,-10,1=4RINTRINTRINT"LOADING..."
25 FORA=1TO7:IFA=4THENPRINTRINTRINT"PRESS F4 TO ACCELERATE!"
26 FORS=10TO130
27 CURSET10,S,1
28 FILL1,1,A
29 NEXTS,A:S=110RINTRINTRINT"PRESS F5 FOR NORMAL SPEED"
30 FORA=20TO70:S=S-1
31 CURSET0,A,0RAW239,0,0
32 CURSET0,S,0RAW239,0,0
33 NEXTARINTRINTRINT
34 CURSET20,30,1
35 DRAW198,0,1RAW0,50,1RAW-198,0,1RAW0,-50,1
36 DATA 66,85,68,73,78,32,71,82,73,76
37 CURSET50,50,0
38 FORA=1TO10:READL:CHARL,0,1:CURMOV14,0,0:NEXTA
39 CURSET20,110,1
40 CURMOV0,40,1
41 DRAW0,-40,1RAW10,0,1RAW0,20,1RAW-10,0,1RAW10,20,1
42 CURMOV20,0,1
43 DRAW-5,-5,1RAW0,-30,1RAW5,-5,1RAW5,5,1RAW0,30,1RAW-5,5,1
44 CURMOV20,0,1
45 DRAW0,-40,1RAW5,10,1RAW5,-10,1RAW0,40,1
46 CURMOV15,0,1
47 DRAW5,-40,1RAW5,40,1:CURMOV-2,-5,1RAW-7,0,1
48 CURMOV2,5,0:CURMOV7,0,1:CURMOV15,0,1
49 DRAW0,-40,1RAW10,40,1RAW0,-40,1
50 CURMOV15,0,1:CURMOV0,10,1
51 DRAW0,30,1
52 CURMOV15,0,0:CURMOV0,-40,1
53 DRAW5,0,1RAW0,35,1RAW-5,5,1RAW-5,-5,1
54 CURMOV25,5,1
55 DRAW5,-40,1RAW5,40,1:CURMOV-2,-5,1RAW-7,0,1
56 CURMOV2,5,0:CURMOV7,0,1:CURMOV15,-10,1
57 DRAW5,5,1RAW-5,5,1RAW-5,-5,1RAW5,-5,1RINTCHR$(140);"Press a key!"
58 CURMOV0,-5,1
59 DRAW5,-25,1RAW-10,0,1RAW5,25,1
60 REPEAT:S=INT(1+RND(1)*7)
61 FORA=100TO150 STEP INT(1+RND(1)*3)
62 CURSET15,A,0
63 FILL1,1,S
64 NEXTA:A$=KEY$
65 UNTIL NOTA$=""
100 HIRESRINTCHR$(17)
101 DRAW239,0,1RAW0,199,1RAW-239,0,1RAW0,-199,1:CURSET50,30,0
102 CURSET0,70,1RAW150,0,1
103 DRAW89,89,1
104 CURSET30,80,1RAW50,0,1RAW0,20,1RAW-50,0,1RAW0,-20,1
105 CURSET25,110,1RAW0,70,1RAW-20,0,1RAW0,-70,1
106 DRAW20,0,1:CURSET93,83,0:CHAR63,0,1
107 DATA 71,82,73,76,83,85,80,80,76,89,84,82,65,83,72
108 CURSET40,90,1
109 FORA=1TO4
110 READS:CHARS,0,1:CURMOV10,0,0:NEXTA:CURSET15,120,0
111 FORA=1TO6:READS:CHARS,0,1:CURMOV0,10,0:NEXTA
112 CURSET2,2,1RAW235,0,1RAW0,195,1RAW-235,0,1RAW0,-195,1
113 CURSET204,183,0:FORA=1TO5:READS:CHARS,0,1:CURMOV6,0,0:NEXTA
114 CURMOV5,-1,0RAW-40,0,1RAW0,10,1
115 CURSET80,197,0RAW0,-15,1RAW50,0,1RAW0,15,1
116 DATA 77,69,78,85
117 CURSET90,187,0
118 FORA=1TO4:READS:CHARS,0,1:CURMOV8,0,0:NEXTA
200 GOTO250
201 PRINTRINTRINT"Narudzba za porciju Cevapa":WAIT150:RETURN
202 PRINTRINTRINT"Narudzba za Pljeskavicu":WAIT150:RETURN
203 PRINTRINTRINT"Narudzba za sendvic sa Virslom":WAIT150:RETURN
204 PRINTRINTRINT"Narudzba za Hamburger":WAIT150:RETURN
205 PRINTRINTRINT"Narudzba za topli Sendvic":WAIT150:RETURN
250 PRINTRINTRINT"Molimo sacekajte Vasu prvu musteriju"
300 A=0:S=0=0:Q1=56:W1=151:CURSETQ1,W1,0:CIRCLE10,1:AA$="@"
301 A$=KEY$:IFNOTA$=""THENAA$=A$:CURSETQ1,W1,0:CIRCLE10,0
302 IFAA$="E"THEN63998ELSEIFA$=""THEN400 ELSEPRINTRINTRINT
303 IFASC(AA$)=8THENQ1=Q1-10
304 IFASC(AA$)=9THENQ1=Q1+10
305 IFASC(AA$)=10THENW1=W1+10
306 IFASC(AA$)=11THENW1=W1-10
307 IFQ1<36 THEN Q1=36
308 IFQ1>216 THEN Q1=216
309 IFW1<111 AND Q1<96 THEN W1=111
310 IFQ1>86 AND W1<91 THEN W1=91
311 IFW1>171 THEN W1=171
312 IFQ1=Q6ANDW1=W6THEN550
313 IFQ1=Q7ANDW1=W7THEN500
314 IFAA$="R"THENINPUT"RUN AGAIN";A$:IFA$="Y"THENTEXT:RUN
315 IFLIVE<1THENTEXTRINT"IZGUBILI STE!":END
316 IFNOTAA$="@"THENAA$="@"
317 IFQ1=Q2ANDW1=W2ANDNOTP$(1)=""THEN610
318 IFQ1=Q3ANDW1=W3ANDNOTP$(2)=""THEN620
319 IFQ1=Q4ANDW1=W4ANDNOTP$(3)=""THEN630
320 IFQ1=Q5ANDW1=W5ANDNOTP$(4)=""THEN640
321 IFQ1=Q2ANDW1<W2THENW1=W2
322 IFW1=W2ANDQ1>Q2THENQ1=Q2
323 IFQ1=Q3ANDW1<W3THENW1=W3
324 IFW1=W3ANDQ1>Q3THENQ1=Q3
325 IFQ1=Q4ANDW1<W4THENW1=W4
326 IFW1=W4ANDQ1>Q4THENQ1=Q4
327 IFQ1=Q5ANDW1<W5THENW1=W5
328 IFW1=W5ANDQ1>Q5THENQ1=Q5
329 IFQ1=96 AND W1=91 THEN GOSUB800
330 IFSP<2 THENSP=3
331 IFQ1=216 AND W1=171 THEN CURSETQ1,W1,0:CIRCLE10,1:GOTO900
332 IFLI=>100 THEN 950
333 IFW1=171 AND Q1=86 THEN960
334 IFW1=171 AND Q1=96 THEN961
335 IFW1=171 AND Q1=106THEN962
336 IFW1=171 AND Q1=116THEN963
337 IFW1=171 AND Q1=126THEN964
399 CURSETQ1,W1,0:CIRCLE10,1:GOTO301
400 X=INT(1+RND(1)*SP):IFX=1THEN401ELSE450
401 R=INT(1+RND(1)*4):T=INT(1+RND(1)*5)
402 IFP$(R)=""THEN410 ELSE 450
410 SPEED=SP-1:ONTGOTO411,412,413,414,415
411 P$(R)="CEVAPI":GOTO416
412 P$(R)="PLJESKAVICA":GOTO416
413 P$(R)="VIRSLA":GOTO416
414 P$(R)="HAMBURGER":GOTO416
415 P$(R)="SENDVIC"
416 ONTGOSUB201,202,203,204,205ING:WAIT60
417 ONRGOTO418,419,420,421
418 CURSETA2,S2,0:CIRCLE7,1:GOTO422
419 CURSETA3,S3,0:CIRCLE7,1:GOTO422
420 CURSETA4,S4,0:CIRCLE7,1:GOTO422
421 CURSETA5,S5,0:CIRCLE7,1
422 '
450 FORA=1TO4
451 IFNOTP$(A)=""THENP(A)=P(A)+1:GOSUB740
452 IFP(A)>99THENGOSUB460
453 NEXTA
454 GOTO498
460 PRINTRINTRINT"Izgubili ste musteriju!"
461 PRINTP$(A);" narudzbina je otkazana..":ZAP
462 ONAGOTO463,464,465,466
463 CURSETA2,S2,0:CIRCLE7,0:GOTO467
464 CURSETA3,S3,0:CIRCLE7,0:GOTO467
465 CURSETA4,S4,0:CIRCLE7,0:GOTO467
466 CURSETA5,S5,0:CIRCLE7,0
467 P$(A)=""(A)=0:LIVE=LIVE-1
468 RETURN
482 '
498 GOTO301
499 '-------------------
500 GOSUB510RINT"Uzeti iz frizidera? (P)ljeskav.,"
501 PRINT"(S)endv.,(H)amb.,(C)evapi,(V)irsla?"
502 GETA$:TAKEN$="NISTA"
503 IFA$="P"THENTAKEN$="PLJESKAVICA"
504 IFA$="S"THENTAKEN$="SENDVIC"
505 IFA$="H"THENTAKEN$="HAMBURGER"
506 IFA$="C"THENTAKEN$="CEVAPI"
507 IFA$="V"THENTAKEN$="VIRSLA"
508 PRINTRINTRINTTAKEN$;" je uzeta iz frizidera..."
509 GOTO301
510 IFGRIL$=""THENRETURN
511 PRINTRINTRINT"Imate artikal koji niste prodali!":GOTO301
549 '----------------
550 GOTO565
551 IFRO$=""THENRO$=TA$RINTRINTRINTRO$;" stavljen na Rostilj...":GOTO301
552 IFGRIL$=""THENGRI$=ROS$:ROS$=""RINTRINTRINTGR$;" uzet za prodaju"
553 GOTO301
560 PRINTRINTRINT"Niste nista uzeli za Rostilj...":GOTO301
561 '---
565 IFNOTGRIL$=""THENPRINTRINTRINT"Imate artikal za prodaju...":GOTO301
566 IFROSTILJ$=""ANDTAKEN$=""ORROS$=""ANDTAK$="NISTA"THEN560
567 GOTO551
570 '----------------
600 STOP
610 IFP$(1)=GRIL$THENGOSUB700:GOTO611ELSEGOSUB720:GOTO301
611 P$(1)="":GRIL$="":TA$="":CURSETA2,S2,0:CIRCLE7,0:GOSUB730:GOTO301
612 '
620 IFP$(2)=GRIL$THENGOSUB700:GOTO621ELSEGOSUB720:GOTO301
621 P$(2)="":GRIL$="":TA$="":CURSETA3,S3,0:CIRCLE7,0:GOSUB730:GOTO301
622 '
630 IFP$(3)=GRIL$THENGOSUB700:GOTO631ELSEGOSUB720:GOTO301
631 P$(3)="":GRIL$="":TA$="":CURSETA4,S4,0:CIRCLE7,0:GOSUB730:GOTO301
632 '
640 IFP$(4)=GRIL$THENGOSUB700:GOTO641ELSEGOSUB720:GOTO301
641 P$(4)="":GRIL$="":TA$="":CURSETA5,S5,0:CIRCLE7,0:GOSUB730:GOTO301
642 '
700 PRINTRINTRINT"Cena ";GRIL$;:IFGRIL$=""THEN720
701 INPUTA:IFA>4THEN701
702 IFGR$="PLJESKAVICA"ORGR$="CEVAPI"THENS=4
703 IFGR$="HAMBURGER"THENS=3
704 IFGR$="VIRSLA"THENS=2
705 IFGR$="SENDVIC"THENS=1
706 IFNOTA=STHENPRINTRINTRINT"Netacna cena, molimo ponovite":WAIT60:GOTO700
707 RETURN
712 '
720 PRINTRINTRINT"Artikal dajete pogresnoj musteriji.."
721 RETURN
730 PRINTRINTRINT"Cestitamo! Musterija je zadovoljna.":LI=LI+1:RETURN
740 ONAGOTO741,742,743,744
741 IFA=1THENCURSETA2,S2,0:GOSUB750:RETURN
742 IFA=2THENCURSETA3,S3,0:GOSUB750:RETURN
743 IFA=3THENCURSETA4,S4,0:GOSUB750:RETURN
744 IFA=4THENCURSETA5,S5,0:GOSUB750:RETURN
745 SHOOT:TEXTRINT"PROGRAM ERROR!":STOP
750 FORL=1TO6:CIRCLEL,1:NEXTL
751 FORL=1TO6:CIRCLEL,0:NEXTL
752 RETURN
799 STOP
800 PRINTRINTRINT"Game Parameters:":WAITW
801 '
802 '
803 '
804 PRINT"Your score (1 to 100) is:"LI:WAITW
805 PRINT"Current Game Speed (1-50) is"49-SP:WAITW
806 RETURN
850 PRINTRINTRINT"POBEDILI STE!":WAIT300:TEXT
851 END
900 IFGR$=""THENPRINTRINTRINT"Nemate nista za bacanje":GOTO301
901 PRINTRINTRINT"Sigurno zelite baciti ";GR$RINT"(Y/N)":GETA$RINTRIN
TRINT
902 IFA$="Y"THEN903 ELSE 301
903 GR$="":LI=LI-9:TA$=""
904 PRINTRINTRINT"9 Poena Vam je oduzeto zbog toga."
905 GOTO301
950 TEXTRINT"VASA SMENA JE ZAVRSENA."
951 PRINT"UREDNO STE RADILI POSAO."
952 PRINT"CESTITAMO, POBEDILI STE!"
953 END
960 PRINTRINTRINT"Topli sendvic = 1km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
961 PRINTRINTRINT"Sendvic sa virslom = 2km":CURSETQ1,W1,0:CIRCLE10,1:GOTO30
1
962 PRINTRINTRINT"Hamburger = 3km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
963 PRINTRINTRINT"Pljeskavica = 4km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
964 PRINTRINTRINT"Cevapi = 4km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
63998 PRINT"PROGRAM HAS FINISHED.. PRESS A KEY.."
63999 GETA$:IFA$="E"THENENDELSETEXT:LIST100-499
eof
Cao svima koji su radili u bilo kakvom obliku grila, cevabdzinice ili slicnog ugostiteljskog objekata (kao ja jedno vreme!) a poseban pozdrav onima koji to NISU radili, a MISLE DA JE LAK posao
Naime, imam jednu igricu (dole izlistanu) koju sam napravio pre par dana cisto ilustracije radi - koliko je to tezak posao!
Da bi ste je pokrenuli, prvo treba da je ukucate, ali pre kucanja treba vam Euphoric.exe (emulator Extended Basic-a) koji je besplatan od FabriceFrance i moze se skinuti sa njihovog oficijelnog sajta, ako se ne varam ovo im je url:
http://yahoolistspider.home.insightbb.com/
click on Emulators&tools pa na Euphoric (Fabrice France) za download.
Po "downloadovanju" emulatora, ako vam je mrsko da je kucate (a normalno, morate je ukucati bez greske!), javite mi se na mail brana@hotmail.com, mogu vam je poslati kao attachment program; sam emulator je negde oko 1-1,5Mbt-a a moj program je prilicno kratak, koristi 240x200 graficki ekran (vectordraw) i daje REALNU simulaciju TEZINE rada u Grill-u hehehe. Grafika je skromna (priznajem) ali je igra jako realna; imacete jedno VECE da usluzite do STOTINU musterija kojima se ZURI i ne zele puno da CEKAJU a na vama je sve - da pratite njihove narudzbine, da radite za grill-om i da ih usluzujete (Grill sa jednim radnikom u smeni!) Morate znati napamet cene, nigde ne smete pogresiti, imate "meni" na raspolaganju ali jako malo "slobodnog vremena" sve u svemu - realna simulacija ovog posla!!!
Volio bih da ga zainteresovani posetioci probaju, strasno me interesuju povratni komentari?
Malo izvinjenje sto je koristen Extended Basic za ovaj program, mozda vecina ljudi smatra isti zastarelim, mada se u njemu jako lako mogu za vrlo kratko vreme uraditi raznorazne stvari a Euphoric.EXE emulator mi je s tim u cilju najfleksibilniji
Puno pozdrava
Brana
brana@hotmail.com
063/8133681 (+381638133681)
1 PAPER0:INK2:Q2=156:W2=91:Q3=176:W3=111:Q4=196:W4=131:Q5=216:W5=151
2 HIRESRINTCHR$(17):Q6=56:W6=111:Q7=36:W7=151:A2=Q2+15:S2=W2-15:A3=Q3+15
3 DRAW239,0,1RAW0,199,1RAW-239,0,1RAW0,-199,1:CURSET50,30,0:S3=W3-15
4 DATA 66,114,97,110,97,64,114,115,116,101,108,46,110,101,116
5 PRINT"One moment, please...":FORA=1TO15
6 READL:CURMOV7,0,0:CHARL,0,1:NEXTA
7 CURSET50,100,0:A4=Q4+15:S4=W4-15:A5=Q5+15:S5=W5-15:LIVE=10
8 DRAW0,-10,1RAW5,0,1RAW0,5,1RAW-5,0,1
9 CURMOV15,5,0:SPEED=50
10 DRAW0,-10,1RAW5,0,1RAW0,5,1RAW-5,0,1RAW5,5,1
11 CURMOV15,0,1:W=10
13 DRAW-5,0,1RAW0,-5,1RAW5,0,1RAW-5,0,1RAW0,-5,1RAW5,0,1
14 CURMOV15,0,1
15 DRAW-5,0,1RAW5,10,1RAW-5,0,1
16 CURMOV20,0,0
17 DRAW-5,0,1RAW0,-5,1RAW5,0,1RAW-5,0,1RAW0,-5,1RAW5,0,1
18 CURMOV10,10,1
19 DRAW0,-10,1RAW5,10,1RAW0,-10,1
20 CURMOV10,0,0
21 DRAW10,0,1RAW-5,0,1RAW0,10,1
22 CURMOV20,-10,0
23 DRAW-5,0,1RAW5,10,1RAW-5,0,1
24 CURMOV15,0,1:CURMOV0,-10,1=4RINTRINTRINT"LOADING..."
25 FORA=1TO7:IFA=4THENPRINTRINTRINT"PRESS F4 TO ACCELERATE!"
26 FORS=10TO130
27 CURSET10,S,1
28 FILL1,1,A
29 NEXTS,A:S=110RINTRINTRINT"PRESS F5 FOR NORMAL SPEED"
30 FORA=20TO70:S=S-1
31 CURSET0,A,0RAW239,0,0
32 CURSET0,S,0RAW239,0,0
33 NEXTARINTRINTRINT
34 CURSET20,30,1
35 DRAW198,0,1RAW0,50,1RAW-198,0,1RAW0,-50,1
36 DATA 66,85,68,73,78,32,71,82,73,76
37 CURSET50,50,0
38 FORA=1TO10:READL:CHARL,0,1:CURMOV14,0,0:NEXTA
39 CURSET20,110,1
40 CURMOV0,40,1
41 DRAW0,-40,1RAW10,0,1RAW0,20,1RAW-10,0,1RAW10,20,1
42 CURMOV20,0,1
43 DRAW-5,-5,1RAW0,-30,1RAW5,-5,1RAW5,5,1RAW0,30,1RAW-5,5,1
44 CURMOV20,0,1
45 DRAW0,-40,1RAW5,10,1RAW5,-10,1RAW0,40,1
46 CURMOV15,0,1
47 DRAW5,-40,1RAW5,40,1:CURMOV-2,-5,1RAW-7,0,1
48 CURMOV2,5,0:CURMOV7,0,1:CURMOV15,0,1
49 DRAW0,-40,1RAW10,40,1RAW0,-40,1
50 CURMOV15,0,1:CURMOV0,10,1
51 DRAW0,30,1
52 CURMOV15,0,0:CURMOV0,-40,1
53 DRAW5,0,1RAW0,35,1RAW-5,5,1RAW-5,-5,1
54 CURMOV25,5,1
55 DRAW5,-40,1RAW5,40,1:CURMOV-2,-5,1RAW-7,0,1
56 CURMOV2,5,0:CURMOV7,0,1:CURMOV15,-10,1
57 DRAW5,5,1RAW-5,5,1RAW-5,-5,1RAW5,-5,1RINTCHR$(140);"Press a key!"
58 CURMOV0,-5,1
59 DRAW5,-25,1RAW-10,0,1RAW5,25,1
60 REPEAT:S=INT(1+RND(1)*7)
61 FORA=100TO150 STEP INT(1+RND(1)*3)
62 CURSET15,A,0
63 FILL1,1,S
64 NEXTA:A$=KEY$
65 UNTIL NOTA$=""
100 HIRESRINTCHR$(17)
101 DRAW239,0,1RAW0,199,1RAW-239,0,1RAW0,-199,1:CURSET50,30,0
102 CURSET0,70,1RAW150,0,1
103 DRAW89,89,1
104 CURSET30,80,1RAW50,0,1RAW0,20,1RAW-50,0,1RAW0,-20,1
105 CURSET25,110,1RAW0,70,1RAW-20,0,1RAW0,-70,1
106 DRAW20,0,1:CURSET93,83,0:CHAR63,0,1
107 DATA 71,82,73,76,83,85,80,80,76,89,84,82,65,83,72
108 CURSET40,90,1
109 FORA=1TO4
110 READS:CHARS,0,1:CURMOV10,0,0:NEXTA:CURSET15,120,0
111 FORA=1TO6:READS:CHARS,0,1:CURMOV0,10,0:NEXTA
112 CURSET2,2,1RAW235,0,1RAW0,195,1RAW-235,0,1RAW0,-195,1
113 CURSET204,183,0:FORA=1TO5:READS:CHARS,0,1:CURMOV6,0,0:NEXTA
114 CURMOV5,-1,0RAW-40,0,1RAW0,10,1
115 CURSET80,197,0RAW0,-15,1RAW50,0,1RAW0,15,1
116 DATA 77,69,78,85
117 CURSET90,187,0
118 FORA=1TO4:READS:CHARS,0,1:CURMOV8,0,0:NEXTA
200 GOTO250
201 PRINTRINTRINT"Narudzba za porciju Cevapa":WAIT150:RETURN
202 PRINTRINTRINT"Narudzba za Pljeskavicu":WAIT150:RETURN
203 PRINTRINTRINT"Narudzba za sendvic sa Virslom":WAIT150:RETURN
204 PRINTRINTRINT"Narudzba za Hamburger":WAIT150:RETURN
205 PRINTRINTRINT"Narudzba za topli Sendvic":WAIT150:RETURN
250 PRINTRINTRINT"Molimo sacekajte Vasu prvu musteriju"
300 A=0:S=0=0:Q1=56:W1=151:CURSETQ1,W1,0:CIRCLE10,1:AA$="@"
301 A$=KEY$:IFNOTA$=""THENAA$=A$:CURSETQ1,W1,0:CIRCLE10,0
302 IFAA$="E"THEN63998ELSEIFA$=""THEN400 ELSEPRINTRINTRINT
303 IFASC(AA$)=8THENQ1=Q1-10
304 IFASC(AA$)=9THENQ1=Q1+10
305 IFASC(AA$)=10THENW1=W1+10
306 IFASC(AA$)=11THENW1=W1-10
307 IFQ1<36 THEN Q1=36
308 IFQ1>216 THEN Q1=216
309 IFW1<111 AND Q1<96 THEN W1=111
310 IFQ1>86 AND W1<91 THEN W1=91
311 IFW1>171 THEN W1=171
312 IFQ1=Q6ANDW1=W6THEN550
313 IFQ1=Q7ANDW1=W7THEN500
314 IFAA$="R"THENINPUT"RUN AGAIN";A$:IFA$="Y"THENTEXT:RUN
315 IFLIVE<1THENTEXTRINT"IZGUBILI STE!":END
316 IFNOTAA$="@"THENAA$="@"
317 IFQ1=Q2ANDW1=W2ANDNOTP$(1)=""THEN610
318 IFQ1=Q3ANDW1=W3ANDNOTP$(2)=""THEN620
319 IFQ1=Q4ANDW1=W4ANDNOTP$(3)=""THEN630
320 IFQ1=Q5ANDW1=W5ANDNOTP$(4)=""THEN640
321 IFQ1=Q2ANDW1<W2THENW1=W2
322 IFW1=W2ANDQ1>Q2THENQ1=Q2
323 IFQ1=Q3ANDW1<W3THENW1=W3
324 IFW1=W3ANDQ1>Q3THENQ1=Q3
325 IFQ1=Q4ANDW1<W4THENW1=W4
326 IFW1=W4ANDQ1>Q4THENQ1=Q4
327 IFQ1=Q5ANDW1<W5THENW1=W5
328 IFW1=W5ANDQ1>Q5THENQ1=Q5
329 IFQ1=96 AND W1=91 THEN GOSUB800
330 IFSP<2 THENSP=3
331 IFQ1=216 AND W1=171 THEN CURSETQ1,W1,0:CIRCLE10,1:GOTO900
332 IFLI=>100 THEN 950
333 IFW1=171 AND Q1=86 THEN960
334 IFW1=171 AND Q1=96 THEN961
335 IFW1=171 AND Q1=106THEN962
336 IFW1=171 AND Q1=116THEN963
337 IFW1=171 AND Q1=126THEN964
399 CURSETQ1,W1,0:CIRCLE10,1:GOTO301
400 X=INT(1+RND(1)*SP):IFX=1THEN401ELSE450
401 R=INT(1+RND(1)*4):T=INT(1+RND(1)*5)
402 IFP$(R)=""THEN410 ELSE 450
410 SPEED=SP-1:ONTGOTO411,412,413,414,415
411 P$(R)="CEVAPI":GOTO416
412 P$(R)="PLJESKAVICA":GOTO416
413 P$(R)="VIRSLA":GOTO416
414 P$(R)="HAMBURGER":GOTO416
415 P$(R)="SENDVIC"
416 ONTGOSUB201,202,203,204,205ING:WAIT60
417 ONRGOTO418,419,420,421
418 CURSETA2,S2,0:CIRCLE7,1:GOTO422
419 CURSETA3,S3,0:CIRCLE7,1:GOTO422
420 CURSETA4,S4,0:CIRCLE7,1:GOTO422
421 CURSETA5,S5,0:CIRCLE7,1
422 '
450 FORA=1TO4
451 IFNOTP$(A)=""THENP(A)=P(A)+1:GOSUB740
452 IFP(A)>99THENGOSUB460
453 NEXTA
454 GOTO498
460 PRINTRINTRINT"Izgubili ste musteriju!"
461 PRINTP$(A);" narudzbina je otkazana..":ZAP
462 ONAGOTO463,464,465,466
463 CURSETA2,S2,0:CIRCLE7,0:GOTO467
464 CURSETA3,S3,0:CIRCLE7,0:GOTO467
465 CURSETA4,S4,0:CIRCLE7,0:GOTO467
466 CURSETA5,S5,0:CIRCLE7,0
467 P$(A)=""(A)=0:LIVE=LIVE-1
468 RETURN
482 '
498 GOTO301
499 '-------------------
500 GOSUB510RINT"Uzeti iz frizidera? (P)ljeskav.,"
501 PRINT"(S)endv.,(H)amb.,(C)evapi,(V)irsla?"
502 GETA$:TAKEN$="NISTA"
503 IFA$="P"THENTAKEN$="PLJESKAVICA"
504 IFA$="S"THENTAKEN$="SENDVIC"
505 IFA$="H"THENTAKEN$="HAMBURGER"
506 IFA$="C"THENTAKEN$="CEVAPI"
507 IFA$="V"THENTAKEN$="VIRSLA"
508 PRINTRINTRINTTAKEN$;" je uzeta iz frizidera..."
509 GOTO301
510 IFGRIL$=""THENRETURN
511 PRINTRINTRINT"Imate artikal koji niste prodali!":GOTO301
549 '----------------
550 GOTO565
551 IFRO$=""THENRO$=TA$RINTRINTRINTRO$;" stavljen na Rostilj...":GOTO301
552 IFGRIL$=""THENGRI$=ROS$:ROS$=""RINTRINTRINTGR$;" uzet za prodaju"
553 GOTO301
560 PRINTRINTRINT"Niste nista uzeli za Rostilj...":GOTO301
561 '---
565 IFNOTGRIL$=""THENPRINTRINTRINT"Imate artikal za prodaju...":GOTO301
566 IFROSTILJ$=""ANDTAKEN$=""ORROS$=""ANDTAK$="NISTA"THEN560
567 GOTO551
570 '----------------
600 STOP
610 IFP$(1)=GRIL$THENGOSUB700:GOTO611ELSEGOSUB720:GOTO301
611 P$(1)="":GRIL$="":TA$="":CURSETA2,S2,0:CIRCLE7,0:GOSUB730:GOTO301
612 '
620 IFP$(2)=GRIL$THENGOSUB700:GOTO621ELSEGOSUB720:GOTO301
621 P$(2)="":GRIL$="":TA$="":CURSETA3,S3,0:CIRCLE7,0:GOSUB730:GOTO301
622 '
630 IFP$(3)=GRIL$THENGOSUB700:GOTO631ELSEGOSUB720:GOTO301
631 P$(3)="":GRIL$="":TA$="":CURSETA4,S4,0:CIRCLE7,0:GOSUB730:GOTO301
632 '
640 IFP$(4)=GRIL$THENGOSUB700:GOTO641ELSEGOSUB720:GOTO301
641 P$(4)="":GRIL$="":TA$="":CURSETA5,S5,0:CIRCLE7,0:GOSUB730:GOTO301
642 '
700 PRINTRINTRINT"Cena ";GRIL$;:IFGRIL$=""THEN720
701 INPUTA:IFA>4THEN701
702 IFGR$="PLJESKAVICA"ORGR$="CEVAPI"THENS=4
703 IFGR$="HAMBURGER"THENS=3
704 IFGR$="VIRSLA"THENS=2
705 IFGR$="SENDVIC"THENS=1
706 IFNOTA=STHENPRINTRINTRINT"Netacna cena, molimo ponovite":WAIT60:GOTO700
707 RETURN
712 '
720 PRINTRINTRINT"Artikal dajete pogresnoj musteriji.."
721 RETURN
730 PRINTRINTRINT"Cestitamo! Musterija je zadovoljna.":LI=LI+1:RETURN
740 ONAGOTO741,742,743,744
741 IFA=1THENCURSETA2,S2,0:GOSUB750:RETURN
742 IFA=2THENCURSETA3,S3,0:GOSUB750:RETURN
743 IFA=3THENCURSETA4,S4,0:GOSUB750:RETURN
744 IFA=4THENCURSETA5,S5,0:GOSUB750:RETURN
745 SHOOT:TEXTRINT"PROGRAM ERROR!":STOP
750 FORL=1TO6:CIRCLEL,1:NEXTL
751 FORL=1TO6:CIRCLEL,0:NEXTL
752 RETURN
799 STOP
800 PRINTRINTRINT"Game Parameters:":WAITW
801 '
802 '
803 '
804 PRINT"Your score (1 to 100) is:"LI:WAITW
805 PRINT"Current Game Speed (1-50) is"49-SP:WAITW
806 RETURN
850 PRINTRINTRINT"POBEDILI STE!":WAIT300:TEXT
851 END
900 IFGR$=""THENPRINTRINTRINT"Nemate nista za bacanje":GOTO301
901 PRINTRINTRINT"Sigurno zelite baciti ";GR$RINT"(Y/N)":GETA$RINTRIN
TRINT
902 IFA$="Y"THEN903 ELSE 301
903 GR$="":LI=LI-9:TA$=""
904 PRINTRINTRINT"9 Poena Vam je oduzeto zbog toga."
905 GOTO301
950 TEXTRINT"VASA SMENA JE ZAVRSENA."
951 PRINT"UREDNO STE RADILI POSAO."
952 PRINT"CESTITAMO, POBEDILI STE!"
953 END
960 PRINTRINTRINT"Topli sendvic = 1km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
961 PRINTRINTRINT"Sendvic sa virslom = 2km":CURSETQ1,W1,0:CIRCLE10,1:GOTO30
1
962 PRINTRINTRINT"Hamburger = 3km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
963 PRINTRINTRINT"Pljeskavica = 4km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
964 PRINTRINTRINT"Cevapi = 4km":CURSETQ1,W1,0:CIRCLE10,1:GOTO301
63998 PRINT"PROGRAM HAS FINISHED.. PRESS A KEY.."
63999 GETA$:IFA$="E"THENENDELSETEXT:LIST100-499
eof