Simulacija rada u grill(evima!)

[Brana2]

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

 

[Pjer_Nis]

Svasta. A jel simulira i miris grill-a? 8)

 

[Brana2]

Svasta. A jel simulira i miris grill-a? 8)

Ljudi, ili ja ne umem biti kreativan, ili VI stvarno imate bolesan smisao za humor?

Brana

P.S. - mama me je ucila da ako nemam nesto lepo da kazem, onda bolje da NISTA ne kazem, zar se ne slazes sa tim?

 

[codemaker]

Svasta. A jel simulira i miris grill-a? 8)

Ljudi, ili ja ne umem biti kreativan, ili VI stvarno imate bolesan smisao za humor?

Brana

P.S. - mama me je ucila da ako nemam nesto lepo da kazem, onda bolje da NISTA ne kazem, zar se ne slazes sa tim?

BIce da se ti malo sprdas sa ljudima ovde.
Ili ti je strasno dosadno, posebno danas. Vidim nagruvao si poruka veceras u maltene svim oblastima, od softvera, preko hardvera do ne znam cega. Na sve odgovras, svaka cast. Svuda imas odgovor, na sve brate!
Kome treba da instalise emulacijinu emulacije emulaciju, pa da ucitava/ukucava arhaicne komande, da bi "igrao" neku arhaicnu igricu? Stvarno mislim da ne da nemas smisla za humor, vec da ne postujes ljude ovde, predlazuci im ovo gore. To smo pre 20 godina, preko radija skidali na kasetofone za XP, Commodore...
Sta se dogadja sa tobom prijatelju? Ajde probudi se. Ako se zabavljas za svoj racun sa tim Oricima i 8 bita, ok, ali ne smaraj ljude , molim te.
Ali stvarno te molim

I, kad ti vec odgovoram, kad odgovras, nemoj molim te da citiras nekoga ko je napisao 2km posta, samo da bi mu odgovorio sa dva reda, trosis vreme sebi i nama

 

[Leka]

Eeeeeh a kada se samo setim da smo se zalili na Duduka...On je jos i bio dobar...

@codemaker

Provericu u recniku sta znaci rec "arhaicne",jel moze definicija za nas "neuke"?

 

[Leka]

"Sendvic sa virslom = 2km"
Hehehe...ni u Turiji nema takve.

 

[Pjer_Nis]

Svasta. A jel simulira i miris grill-a? 8)

Ljudi, ili ja ne umem biti kreativan, ili VI stvarno imate bolesan smisao za humor?

Brana

P.S. - mama me je ucila da ako nemam nesto lepo da kazem, onda bolje da NISTA ne kazem, zar se ne slazes sa tim?

Izvini molim te ako sam te uvredio,
Nisam na prvu loptu video o kakvom se ingenioznom softveru ovde radi
Sto rece kolega codemaker, takve stvari su bile aktuelne pre 20 godina, kad bih malo preturio po kuci nasao bih neku kasetu sa programima za ZX Spectrum koje sam tada pravio i bio na njih veoma ponosan, i bilo bi mi merak da ih ponovo pogledam, ali mi na pamet ne bi palo da time smaram forumase, koji za taj kod nisu emotivno vezani.
Na ovaj topic vise necu da se javljam, a ti slobodno nastavi da poducavas one kojima je to potrebno.

Pozdrav svima, including yourself!

 

[codemaker]

Eeeeeh a kada se samo setim da smo se zalili na Duduka...On je jos i bio dobar...

@codemaker

Provericu u recniku sta znaci rec "arhaicne",jel moze definicija za nas "neuke"?

E jesi cepidlaka Omak'o mi se prst za levo 2cm i dole 1cm, boze moj, desava se
Kad pomenu Duduka, pa gde je taj covek, smislja neko novo pitanje? Koju li ce temu ovoga puta izabrati da "nacne"? Da mu se nije stogod desilo?, puj, puj..

 

[Brana2]

Ja stvarno volim da radim programe u Euphoric emulatoru (na PC-ju) a OricLyghtForce (Francuski) mail server je sada mrtav, postavio sam ovaj i par slicnih oglas na nasem forumu (forumu u nasoj zemlji) zato sto sam mislio da cu ovde mozda naci srodnu dusu, ocigledno je da to necu uspeti - nikoga ta oblast ne zanima - bar kad su u pitanju stanovnici moje zemlje. Nisam znao da je to kod nas toliko sve napredno iz oblasti racunarstva da apsolutno nema ljubitelja Orica! Nisam ocekivao odgovore od nezainteresovanih, nego od zainteresovanih ljudi. Jedina moja greska je sto sam mozda trebao staviti post pod rubrikom hobi umesto racunari.

Sendvic sa virslom - 2KM (Konvertabilne Marke), ja sam iz republike Srpske, sta da radim, KM je ovde valuta a ne merna jedinica za duzinu - shodno tome je i tako u programu napisan(a)!

Zao mi je zbog ociglednog nezadovoljstva koje sam vam prouzrokovao, pokusacu naci srodnu dusu sto se Euphoric emulatora tice na nekom drugom forumu a ovaj vise necu posecivati...na tu temu... nikada.

zbogom

Brana