14-02-2016, 04:15
Odpalcie i pohejtujcie...
A wy ile dinarów dla Archona?
Kod:
10 poke 53272,23
20 poke 53280,1: poke 53281,1: poke 646,0
30 ? chr$(147)
40 ? " ": ? " ": ? " ": ? " "
50 ? " ": ? " ": ? " ": ? " "
60 ? " BaudelaireGaudi"
70 poke 198,0: wait 198,1
80 ? " "
90 ? " Prezentuje dziwna gre"
100 poke 198,0: wait 198,1
110 ? " ...pod tytulem..."
120 poke 198,0: wait 198,1
130 ? chr$(147)
140 poke 53280,0: poke 53281,0: poke 646,1
150 ? " ": ? " ": ? " ": ? " "
160 ? " ": ? " ": ? " ": ? " "
170 ? " ARHN.EU"
180 poke 198,0: wait 198,1
190 ? " DAJ ARCHONOWI DINARY"
200 poke 198,0: wait 198,1
210 ? " ": ? " ": ? " ": ? " "
220 ? " Wcisnij jakis klawisz"
230 poke 198,0: wait 198,1
240 ? chr$(147)
250 ? " ": ? " ": ? " ": ? " "
260 ? " Zasady sa proste:"
270 ? " "
280 ? " 1 tap = 1 Dinar"
290 ? " Dinary dla Archona. Sprobuj i ty!"
300 ? " ": ? " ": ? " "
310 ? " ...mlem..."
320 ? " ": ? " ": ? " ": ? " "
330 ? " ": ? " ": ? " ": ? " "
340 ? " Wcisnij klawisz, by dinary Archona"
350 poke 198,0: wait 198,1
360 a%=0
370 ? chr$(147)
380 ? " ": ? " ": ? " ": ? " "
390 ? " ": ? " ": ? " ": ? " "
400 ? " ": ? " "
410
420 ? " Tap, tap, tap! Tapaj wiecej!"
430 ? " ": ? " "
440 ? " Archon ma juz "a%" dinarow."
450 a%=a%+1
460 poke 198,0: wait 198,1
470 if a%=>50 then poke 646,int(rnd(1)*15)+1
480 if a%=>100 then poke 53280,int(rnd(1)*15)+1
490 if a%=>200 then poke 53281,int(rnd(1)*15)+1
500 goto 370