Efekt kursu Archona - prosty klikacz.

BaudelaireGaudi · (Ten post był ostatnio modyfikowany: 14-02-2016, 01:19 przez BaudelaireGaudi. )

Odpalcie i pohejtujcie...

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

A wy ile dinarów dla Archona?