Keskustelu: Koodit: QB: Tohtori

DECLARE SUB ukkeli ()
DIM SHARED kysymyksesi AS STRING
CLS
SCREEN 9

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"

'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, 140)-(360, 140), 0
CIRCLE (320, 140), 40, 12
SLEEP 3
CIRCLE (320, 140), 40, 0
LINE (270, 140)-(360, 140), 12



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










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

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

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