Keskustelu: Koodit: QB: chätti jossa tietokone vastailee

'*** Hieno sätti By Chaosworm
RANDOMIZE TIMER
alkuruutu:
 CLS
 PRINT "Tervetuloa Chattiin."
 PRINT "Valvojilla on AINA nimimerkin lopussa (VAL). Älä usko ihmisiin,"
 PRINT "jotka väittävät olevansa valvojia ilman (VAL) - tunnusta nimimerkin"
 PRINT "lopussa."
 PRINT
 PRINT "Kirjoita nimimerkkisi."
 INPUT nimimerkki$
 CLS
 PRINT "Kirjoita salasanasi."
 PRINT "Salasanassa on 5 merkkiä."
 PRINT "Jos sinulla ei ole käyttäjätunnusta, se rekisteröityy automaattisesti."
 INPUT sala$
 CLS
GOTO Chat

Chat:
CLS
 DO
 INPUT "sano: ", a$
 PRINT nimimerkki$; " sanoo: "; a$
 sanoomita = INT(RND * 20)
 IF sanoomita = 0 THEN PRINT "Ootsiki sanoo: Meen syömään kun mulla on nälkä."
 IF sanoomita = 1 THEN PRINT "anni367 sanoo: Moi kaikki!"
 IF sanoomita = 2 THEN PRINT "Jätkä X sanoo: Älkää viisastelko pliis."
 IF sanoomita = 3 THEN PRINT "Jenna93 sanoo: Onko viski vaaleanpunaista?"
 IF sanoomita = 4 THEN PRINT "Aragorn sanoo: Mitä kävi kun Aku Ankka kuoli?"
 IF sanoomita = 5 THEN PRINT "Järkevä sanoo: Puhukaa järkeviä eli puhukaa musta XD!"
 IF sanoomita = 6 THEN PRINT "Jymi(VAL) sanoo: Chat menee kiinni 10 min. päästä jos jaksan laittaa."
 IF sanoomita = 7 THEN PRINT "Cheatti sanoo: Stick Soldiers 2 on peli siinä on koodeja"
 IF sanoomita = 8 THEN PRINT "Chaosworm(VAL) sanoo: Kunnioittakaa chattia, tein sitä 15 minuuttia."
 IF sanoomita = 9 THEN PRINT "voinko  sanoo: että kukka on sukka?"
IF sanoomita = 10 THEN PRINT "Kysyjä  sanoo: Onks kukaa muu Turuus käyny."
IF sanoomita = 11 THEN PRINT "HeMu Li sanoo: Oon intiaana"
IF sanoomita = 12 THEN PRINT "Kekkone sanoo: jaa että sillai."
IF sanoomita = 13 THEN PRINT "Keksi(VAL) sanoo: Miks joku on Jokunen?"
IF sanoomita = 14 THEN PRINT "Maybeer sanoo: Ostakko olutta oon oulusta oooooo"
IF sanoomita = 15 THEN PRINT "Karvine sanoo: Jo on h u o n o t jutut teillä."
IF sanoomita = 16 THEN PRINT "Kukkoka sanoo: na. Voi ei. OON KUKKOKANA!"
IF sanoomita = 17 THEN PRINT "onlyGuy(VAL) sanoo: Sinut on potkittu chatista pois, "; nimimerkki$; ".": PRINT "Chaosworm(VAL) sanoo: Älkää PLIIS tehkö tota ne ketkä sanoo olevasa valvojia."
IF sanoomita = 18 THEN PRINT "voinko  sanoo: että kulta on multa?"
IF sanoomita = 19 THEN PRINT "Keksi(VAL) sanoo: HuoH!"
LOOP UNTIL INKEY$ = CHR$(27)