Keskustelu: Koodit: QB: Tohtori

DECLARE SUB keketus ()
DECLARE SUB arpominenl ()
DECLARE SUB homotus ()
DECLARE SUB arpominenh ()
DECLARE SUB arpominen ()
DECLARE SUB ukkeli ()
DIM SHARED lause AS STRING
DIM SHARED lausahdus AS STRING
DIM SHARED kysymyksesi AS STRING
CLS
SCREEN 9
lause = "onpas siinä erikoinen nimi, mutta ihan hyväksyttävä"
lausahdus = "Onpa siinä tyhmä nimi, äitisi ja isäsi taisivat olla kännissä kun antoivat sinulle nimen"
DO
 ukkeli 'Kutsutaan ukkeli SUBia
kysymys:

LOCATE 20, 2
PRINT "                                                  " 'Pyyhitään mahdollinen kysymys
LOCATE 1, 1
PRINT "                                                                                                                                           " 'Pyyhitään mahdollinen vastaus

LOCATE 20, 1
INPUT "> ", kysymyksesi
kysymyksesi = LCASE$(kysymyksesi)



'Jos kysymys sisältää jonkun lauseen/sanan niin vastataan siihen
IF INSTR(kysymyksesi, "mitä kuuluu") THEN LOCATE 1, 1: PRINT "Hyvää, entä itsellesi?"
IF INSTR(kysymyksesi, "hyvää") THEN LOCATE 1, 1: PRINT "Sepä mukavaa"
IF INSTR(kysymyksesi, "huonoa") THEN LOCATE 1, 1: PRINT "Mikäs nyt on?"
IF INSTR(kysymyksesi, "ei kuulu sulle") THEN LOCATE 1, 1: PRINT "No ei sitten"
IF INSTR(kysymyksesi, "oletko homo") THEN LOCATE 1, 1: PRINT "TOTTA HELVETISSŽ"
IF INSTR(kysymyksesi, "voinko kysyä sinulta mitä tahansa") THEN LOCATE 1, 1: PRINT "tottakai"
IF INSTR(kysymyksesi, "mikä sinun nimesi on") THEN LOCATE 1, 1: PRINT "Tohtori Sykerö, Entä sinun"
IF INSTR(kysymyksesi, "minun nimeni on") THEN arpominen
IF INSTR(kysymyksesi, "onko") THEN arpominenh
IF INSTR(kysymyksesi, "mitkä ovat seuraavat lottonumerot") THEN arpominenl:  ELSE LOCATE 1, 1: PRINT "En ymmärrä sinua"
'Jos huvittaa voit tietenkin lisätä sanoja, mutta tämä on vain koodivikki :)

'Lopetus mahdollisuus
IF INSTR(kysymyksesi, "hyvästi") THEN END

'Se puhuu!
LINE (270, 150)-(360, 150), 0
CIRCLE (320, 150), 40, 12
SLEEP 3
CIRCLE (320, 150), 40, 0
LINE (270, 150)-(360, 150), 12



LOOP UNTIL INKEY$ = CHR$(27) 'Loopataan kunnes painetaan ESC


                                                       SUB arpominen
vastaus = INT(RND * 3)
IF vastaus = 1 THEN LOCATE 1, 1: PRINT "Onpa siinä tyhmä nimi, äitisi ja isäsi taisivat olla kännissä kun antoivat sinulle nimen"
IF vastaus = 2 THEN LOCATE 1, 1: PRINT "onpas siinä erikoinen nimi, mutta ihan hyväksyttävä"
IF vastaus = 3 THEN LOCATE 1, 1: PRINT "onpas siinä erikoinen nimi, mutta ihan hyväksyttävä"
END SUB

SUB arpominenh
IF INSTR(kysymyksesi, "homo") THEN CALL homotus
IF INSTR(kysymyksesi, "keke") THEN CALL keketus




END SUB

                           SUB arpominenl
vastausl = INT(RND * 5)
IF vastausl = 1 THEN LOCATE 1, 1: PRINT "2,11,13,24,34,35,39 ja lisänumerot ovat 4,10,15 "
IF vastausl = 2 THEN LOCATE 1, 1: PRINT "1,4,16,18,23,27,33 ja lisänumerot ovat 3,19,35"
IF vastausl = 3 THEN LOCATE 1, 1: PRINT "3,8,14,17,26,34,37 ja lisänumerot ovat 10,20,30"
IF vastausl = 4 THEN LOCATE 1, 1: PRINT "6,7,19,22,25,28,38 ja lisänumerot ovat 9,19,29"
IF vastausl = 5 THEN LOCATE 1, 1: PRINT "4,5,6,14,15,16,36 ja lisänumerot ovat 1,2,3"
END SUB

SUB homotus
vastaush = INT(RND * 2 + 1)
IF vastaush = 1 THEN LOCATE 1, 1: PRINT "Tottakai, tiedän sen kokemuksesta"
IF vastaush = 2 THEN LOCATE 1, 1: PRINT "Ei ole, olen varma siitä"
IF vastaush = 3 THEN LOCATE 1, 1: PRINT "Mahdollisesti, en voi tietää varmasti"

END SUB

SUB keketus
vastauskeke = INT(RND * 2)
IF vastauskeke = 1 THEN LOCATE 1, 1: PRINT "Joo, on se aika Keke"
IF vastauskeke = 2 THEN LOCATE 1, 1: PRINT "Ei se oo yhtään Keke"

END SUB

SUB ukkeli
' Pää
CIRCLE (320, 120), 120, 7

' Silmät
CIRCLE (280, 90), 20, 1
PAINT (280, 90), 1
CIRCLE (280, 90), 5, 0
PAINT (280, 90), 0
CIRCLE (340, 90), 20, 1
PAINT (340, 90), 1
CIRCLE (340, 90), 5, 0
PAINT (340, 90), 0

' Suu
LINE (270, 150)-(360, 150), 12
END SUB