Sorry your browser is not supported!

sync on
randomize timer()

type cll
   up as boolean
   right as boolean
   down as boolean
   left as boolean
   above as boolean
   below as boolean

   visit as boolean
endtype

top:

global OBJC=0
global WIDTH=5
global HEIGHT=5
global DEPTH=5
global CX=1
global CY=1
global CZ=1
global dim cell(WIDTH,HEIGHT,DEPTH) as cll
dim posx(0)
dim posy(0)
dim posz(0)
dim move(0) `1=up,2=right,3=down,4=left,5=down,6=above

ink rgb(0,255,0),0
for x=0 to 20
   for y=0 to 20
      dot x,y,rgb(0,rnd(255),0)
   next y
next x
get image 1,0,0,20,20

ink rgb(255,0,0),0
box 0,0,10,10
get image 2,0,0,10,10,1

for x=1 to WIDTH
   for y=1 to HEIGHT
      for z=1 to DEPTH
         cell(x,y,z).up=1
         cell(x,y,z).right=1
         cell(x,y,z).down=1
         cell(x,y,z).left=1
         cell(x,y,z).above=1
         cell(x,y,z).below=1

         cell(x,y,z).visit=0
      next z
   next y
next x

f=0

repeat
   line CX*5,CY*5,posx(array count(posx(0)))*5,posy(array count(posy(0)))*5
   sync
   `wait 100

   cell(CX,CY,CZ).visit=1

   if f=0
      array insert at bottom posx(0)
      array insert at bottom posy(0)
      array insert at bottom posz(0)
      posx(array count(posx(0)))=CX
      posy(array count(posy(0)))=CY
      posz(array count(posz(0)))=CZ
   endif

   dim move(0)

   if CY>1
      if cell(CX,CY-1,CZ).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=1
      endif
   endif
   if CX<WIDTH
      if cell(CX+1,CY,CZ).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=2
      endif
   endif
   if CY<HEIGHT
      if cell(CX,CY+1,CZ).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=3
      endif
   endif
   if CX>1
      if cell(CX-1,CY,CZ).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=4
      endif
   endif

   if CZ>1
      if cell(CX,CY,CZ-1).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=5
      endif
   endif
   if CZ<DEPTH
      if cell(CX,CY,CZ+1).visit=0
         array insert at bottom move(0)
         move(array count(move(0)))=6
      endif
   endif

   if array count(move(0))>0
      m=rnd(array count(move(0))-1)+1
      if move(m)=1
         cell(CX,CY,CZ).up=0
         cell(CX,CY-1,CZ).down=0
         CY=CY-1
      endif
      if move(m)=2
         cell(CX,CY,CZ).right=0
         cell(CX+1,CY,CZ).left=0
         CX=CX+1
      endif
      if move(m)=3
         cell(CX,CY,CZ).down=0
         cell(CX,CY+1,CZ).up=0
         CY=CY+1
      endif
      if move(m)=4
         cell(CX,CY,CZ).left=0
         cell(CX-1,CY,CZ).right=0
         CX=CX-1
      endif
      if move(m)=5
         cell(CX,CY,CZ).below=0
         cell(CX,CY,CZ-1).above=0
         CZ=CZ-1
      endif
      if move(m)=6
         cell(CX,CY,CZ).above=0
         cell(CX,CY,CZ+1).below=0
         CZ=CZ+1
      endif
      f=0
   else
      f=1
      if array count(posx(0))>1
         CX=posx(array count(posx(0))-1)
         CY=posy(array count(posy(0))-1)
         CZ=posz(array count(posz(0))-1)
      endif
      Array delete element posx(0),array count(posx(0))
      array delete element posy(0),array count(posy(0))
      array delete element posz(0),array count(posz(0))
   endif
until array count(posx(0))=0

autocam off
color backdrop rgb(0,0,0)

for x=1 to WIDTH
   for y=1 to HEIGHT
      for z=1 to DEPTH
         if y=1
            if cell(x,y,z).up=1
               new=nobj()
               make object box new,10.0,10.0,1.0
               position object new,5+(x-1)*10,5.0+(z-1)*10,0.0

               gosub graphics
            endif
         endif
         if x=1
            if cell(x,y,z).left=1
               new=nobj()
               make object box new,1.0,10.0,10.0
               position object new,0.0,5.0+(z-1)*10,5+(y-1)*10
               
               gosub graphics
            endif
         endif
         if z=1
            if cell(x,y,z).below=1
               new=nobj()
               make object box new,10.0,1.0,10.0
               position object new,(x-1)*10+5,0.0,(y-1)*10+5
               
               gosub graphics
            endif
         endif

         if cell(x,y,z).above=1
            new=nobj()
            make object box new,10.0,1.0,10.0
            position object new,(x-1)*10+5,10.0*z,(y-1)*10+5
            
            gosub graphics
         endif
         if cell(x,y,z).right=1
            new=nobj()
            make object box new,1.0,10.0,10.0
            position object new,x*10,5.0+(z-1)*10,y*10-5

            gosub graphics
         endif
         if cell(x,y,z).down=1
            new=nobj()
            make object box new,10.0,10.0,1.0
            position object new,x*10-5,5.0+(z-1)*10,y*10
            
            gosub graphics
         endif
      next z
   next y
next x

dist#=60.0
px#=(WIDTH/2)*10.0
py#=(DEPTH/2)*10.0
pz#=(HEIGHT/2)*10.0
hide mouse

new=nobj()
make object sphere new,3
position object new,5.0,5.0,5.0
color object new,rgb(0,255,0)
ghost object on new


new=nobj()
make object sphere new,2
position object new,WIDTH*10-5.0,DEPTH*10-5.0,HEIGHT*10-5.0
color object new,rgb(255,0,0)
ghost object on new

new=nobj()
make object cube new,3
position object new,WIDTH*10-5.0,DEPTH*10-5.0,HEIGHT*10-5.0
`color object new,rgb(255,0,0)
ghost object on new

position camera 5,5,5

move camera 4
automatic camera collision 0,.25,0
set camera range .24,3000
otime#=timer()

ink rgb(255,255,255),0
Do
   remstart
   position mouse screen width()/2,screen height()/2

   if mouseclick()=0
      tmp=mousemovex()
      tmp=mousemovey()
   endif

   if mouseclick()=1
      rotate camera camera angle x(0)+mousemovey()/3.0,camera angle y(0)+mousemovex()/3.0,0.0
   endif

   if mouseclick()=2
      inc dist#,mousemovey()/3.0
   endif

   position camera px#,py#,pz#
   move camera -dist#


   remend

   center text screen width()/2,20,"Time: "+str$((timer()-otime#)/1000.0,2)
   
   rotate object new,object angle x(new)+.01,object angle y(new)+.003,0

   xrotate camera 0,camera angle x(0)+mousemovey()/5.0
   yrotate camera 0,camera angle y(0)+mousemovex()/5.0

   if upkey()=1
      move camera 0,.02
   endif
   if downkey()=1
      move camera 0,-.02
   endif
   if leftkey()=1
      yrotate camera 0,camera angle y(0)-90
      move camera 0,.02
      yrotate camera 0,camera angle y(0)+90
   endif
   if rightkey()=1
      yrotate camera 0,camera angle y(0)+90
      move camera 0,.02
      yrotate camera 0,camera angle y(0)-90
   endif
   
   if sqrt((object position x(new)-camera position x(0))^2+(object position y(new)-camera position y(0))^2+(object position z(new)-camera position z(0))^2)<5.0
      goto restart
   endif

   if inkey$()="r" then goto restart
   sync
loop

restart:
   for x=1 to OBJC
      delete object x
   next x
   
   set text font "Arial"
   set text size 42
   
   final#=(timer()-otime#)/1000.0
   ink rgb(255,255,255),0
   center text screen width()/2,screen height()/2,"Level Complete! (Time="+str$(final#,2)+")"
   sync
   
   wait key

   goto top
return

graphics:
   `texture object new,1
   n=rgb(rnd(128)+26,rnd(128)+26,rnd(128)+26)
   color object new,n
   set object emissive new,rgb(rgbr(n)-25,rgbg(n)-25,rgbb(n)-25)
return

function nobj()
   inc OBJC,1
endfunction OBJC

sync on

dim chat$(-1) as string

global name$
global he$
global she$
global location$
global mode

set text font "Courier new"
set text size 18

render()
sync

do

    set cursor 0,screen height()-20
    input "Enter text: ",inpt$
    array insert at top chat$(0)
    chat$(0) = "You: "+inpt$

    array insert at top chat$(0)
    chat$(0) = "Chatbot: "+robot(trim$(lower$(inpt$)))

    render()

    sync

loop

function render()

    cls 0
    while array count(chat$(0)) > (screen height()/20)
        array delete element chat$(0),array count(chat$(0))
    endwhile
    ln = screen height() - 40
    line 0,screen height() - 21,screen width(),screen height() - 21
    for p = 0 to array count(chat$(0))
        text 0,ln,chat$(p)
        dec ln,20
        if ln < 0 then exitfunction
    next p

endfunction

function robot(word$)

    if check$("who",word$)
        if instr$(" you",word$)
            if name$ = ""
                exitfunction "I am Chatbot, who are you?"
            else
                exitfunction "I am Chatbot"
            endif
        endif
        if instr$(" i",word$)
            if name$ = ""
                exitfunction "You haven't told me your name yet"
            else
                exitfunction "You are "+name$
            endif
        endif
        if instr$(" he",word$)
            if he$ = ""
                exitfunction "You haven't told me his name yet"
            else
                exitfunction "He is "+he$
            endif
        endif
        if instr$(" she",word$)
            if she$ <> ""
                exitfunction "You haven't told me her name yet"
            else
                exitfunction "She is "+she$
            endif
        endif
    endif
    if check$("where",word$)
        if instr$(" you",word$)
            if location$ <> ""
                exitfunction "I am in cyberspace, where are you?"
            else
                exitfunction "I am in cyberspace"
            endif
        endif
        if instr$(" i",word$)
            if location$ <> ""
                exitfunction "You haven't told me where you are"
            else
                exitfunction "You are in "+location$
            endif
        endif
        if instr$(" he",word$)
            exitfunction "How am I supposed to know?"
        endif
        if instr$(" she",word$)
            exitfunction "How am I supposed to know?"
        endif
    endif
    if check$("what",word$)
        if instr$(" weather",word$)
            execute file "iexplore.exe","http://www.bbc.co.uk/weather/",""
            exitfunction "The internet knows all!"
        endif
        if instr$(" name",word$)
            if instr$(" your",word$)
                if name$ = ""
                    exitfunction "I am Chatbot, who are you?"
                else
                    exitfunction "I am Chatbot"
                endif
            endif
            if instr$(" my",word$)
                if name$ = ""
                    exitfunction "You haven't told me your name yet"
                else
                    exitfunction "You are "+name$
                endif
            endif
            if instr$(" his",word$)
                if he$ = ""
                    exitfunction "You haven't told me his name yet"
                else
                    exitfunction "He is "+he$
                endif
            endif
            if instr$(" her",word$)
                if she$ <> ""
                    exitfunction "You haven't told me her name yet"
                else
                    exitfunction "She is "+she$
                endif
            endif
        endif
    endif
    if check$("i ",word$)
        if instr$(" am ",word$)
            name$ = get$(" am ",word$)
            exitfunction "Hi "+name$
        endif
        if instr$(" like ",word$)
            if instr$(" you",word$)
                exitfunction "Me too!"
            endif
        endif
    endif
    if check$("how ",word$)
        if instr$(" you",word$)
            exitfunction "I am fine thanks, how about you?"
        endif
    endif
    if check$("im ",word$)
        if instr$(" fine",word$)
            exitfunction "Good for you!"
        endif
        if instr$(" good",word$)
            exitfunction "Great!"
        endif
        if instr$(" ok",word$)
            exitfunction ": )"
        endif
        if instr$(" alright",word$)
            exitfunction ": |"
        endif
        if instr$(" bad",word$)
            exitfunction "Oh well... I hope you feel better tomorrow!"
        endif
        if instr$(" sad",word$)
            exitfunction "Well let me cheer you up!"
        endif
        if instr$(" pissed",word$)
            if instr$(" off",word$)
                exitfunction "I get that feeling sometimes!"
            endif
            exitfunction "I'm 0x54 total!"
        endif
        if instr$(" angry",word$)
            exitfunction "I hope your not angry with me..."
        endif
        if instr$(" annoyed",word$)
            exitfunction "I hope your not annoyed with me..."
        endif
        name$ = right$(word$,len(word$)-3)
        exitfunction "Hi "+name$
    endif
    if check$("i am called ",word$)
        name$ = right$(word$,len(word$)-12)
        exitfunction "Hi "+name$
    endif
    if check$("i am ",word$)
        if instr$(" fine",word$)
            exitfunction "Good for you!"
        endif
        if instr$(" good",word$)
            exitfunction "Great!"
        endif
        if instr$(" ok",word$)
            exitfunction ": )"
        endif
        if instr$(" alright",word$)
            exitfunction ": |"
        endif
        if instr$(" bad",word$)
            exitfunction "Oh well... I hope you feel better tomorrow!"
        endif
        if instr$(" sad",word$)
            exitfunction "Well let me cheer you up!"
        endif
        if instr$(" pissed",word$)
            if instr$(" off",word$)
                exitfunction "I get that feeling sometimes!"
            endif
            exitfunction "I'm 0x54 total!"
        endif
        if instr$(" angry",word$)
            exitfunction "I hope your not angry with me..."
        endif
        if instr$(" annoyed",word$)
            exitfunction "I hope your not annoyed with me..."
        endif
        name$ = right$(word$,len(word$)-5)
        exitfunction "Hi "+name$
    endif
    if check$("i'm ",word$)
        if instr$(" fine",word$)
            exitfunction "Good for you!"
        endif
        if instr$(" good",word$)
            exitfunction "Great!"
        endif
        if instr$(" ok",word$)
            exitfunction ": )"
        endif
        if instr$(" alright",word$)
            exitfunction ": |"
        endif
        if instr$(" bad",word$)
            exitfunction "Oh well... I hope you feel better tomorrow!"
        endif
        if instr$(" sad",word$)
            exitfunction "Well let me cheer you up!"
        endif
        if instr$(" pissed",word$)
            if instr$(" off",word$)
                exitfunction "I get that feeling sometimes!"
            endif
            exitfunction "I'm 0x54 total!"
        endif
        if instr$(" angry",word$)
            exitfunction "I hope your not angry with me..."
        endif
        if instr$(" annoyed",word$)
            exitfunction "I hope your not annoyed with me..."
        endif
        name$ = right$(word$,len(word$)-4)
        exitfunction "Hi "+name$
    endif
    if check$("hello",word$)
        exitfunction "Hi "+name$
    endif
    if check$("hi",word$)
        exitfunction "Hello "+name$
    endif
    if instr$(" games",word$)
        exitfunction "Of course! Here are some games: O+Xs, 21, Maths Quiz"
    endif
    if instr$(" jokes",word$)
        mode = 1
        exitfunction "I know some jokes. Do you want to see them?"
    endif
    if check$("yes",word$) or check$("yea",word$)
        if mode = 1
            mode = 0
            execute file "iexplore.exe","http://www.comedycentral.com/jokes/index.jhtml",""
            exitfunction "Here you go!"
        endif
    endif
    if check$("no",word$) or check$("nah",word$)
        if mode = 1
            exitfunction "Oh... I know you'd love them!"
        endif
    endif
    if instr$("o+xs",word$)
        gosub playOXs
        exitfunction "Did you like that game?"
    endif

    if check$("i ",word$)
        if right$(word$,1) = "?" or right$(word$,1) = "!" or right$(word$,1) = "."
            word$ = left$(word$,len(word$)-1)
        endif
        s = rnd(5)
        if s = 0
            an$ = "I"+right$(word$,len(word$)-1)+" too."
            exitfunction an$
        endif
        if s = 1
            an$ = "I don't"+right$(word$,len(word$)-1)+" much."
            exitfunction an$
        endif
        if s = 2
            an$ = "I don't"+right$(word$,len(word$)-1)+" at all."
            exitfunction an$
        endif
        if s = 3
            an$ = "I don't know if I"+right$(word$,len(word$)-1)+"!"
            exitfunction an$
        endif
        if s = 4
            an$ = "I"+right$(word$,len(word$)-1)+" a lot!"
            exitfunction an$
        endif
        if s = 5
            an$ = "I"+right$(word$,len(word$)-1)+" a bit."
            exitfunction an$
        endif
    endif

    if check$("do you ",word$)
        if right$(word$,1) = "?" or right$(word$,1) = "!" or right$(word$,1) = "."
            word$ = left$(word$,len(word$)-1)
        endif
        s = rnd(5)
        if s = 0
            an$ = "I do"+right$(word$,len(word$)-6)+"."
            exitfunction an$
        endif
        if s = 1
            an$ = "I don't"+right$(word$,len(word$)-6)+" much."
            exitfunction an$
        endif
        if s = 2
            an$ = "I don't"+right$(word$,len(word$)-6)+" at all."
            exitfunction an$
        endif
        if s = 3
            an$ = "I don't know if I"+right$(word$,len(word$)-6)+"!"
            exitfunction an$
        endif
        if s = 4
            an$ = "I"+right$(word$,len(word$)-6)+" a lot!"
            exitfunction an$
        endif
        if s = 5
            an$ = "I"+right$(word$,len(word$)-6)+" a bit."
            exitfunction an$
        endif
    endif

endfunction "I'm sorry, but I did not understand that!"

function check$(key$,word$)

    l = len(key$)
    if left$(word$,l) = key$ then exitfunction 1

endfunction 0

function instr$(key$,word$)

    l1 = len(key$)
    l2 = len(word$)
    for d = 1 to l2
        if left$(word$,l1) = key$
            exitfunction 1
        endif
        word$ = right$(word$,l2-d)
    next d

endfunction 0

function get$(key$,word$)

    l1 = len(key$)
    l2 = len(word$)
    for d = 1 to l2
        if left$(word$,l1) = key$
            word$ = right$(word$,((l2-d)-l1)+1)
            exitfunction word$
        endif
        word$ = right$(word$,l2-d)
    next d

endfunction ""

playOXs:

    global dim ox(2,2) as byte

    do

        cls 0
        line screen height()/3,0,screen height()/3,screen height()
        line (screen height()/3)*2,0,(screen height()/3)*2,screen height()
        line 0,screen height()/3,screen height(),screen height()/3
        line 0,(screen height()/3)*2,screen height(),(screen height()/3)*2

        i = (screen height()/9)

        for y = 0 to 2
            for x = 0 to 2
                if ox(x,y) = 1
                    line ((screen height()/3)*x)+i,((screen height()/3)*y)+i,((screen height()/3)*x)+i+i,((screen height()/3)*y)+i+i
                    line ((screen height()/3)*x)+i,((screen height()/3)*y)+i+i,((screen height()/3)*x)+i+i,((screen height()/3)*y)+i
                endif
                if ox(x,y) = 2
                    circle ((screen height()/3)*x)+i+(i/2),((screen height()/3)*y)+i+(i/2),i/2
                endif
            next x
        next y

        if mouseclick()
            x = int(mousex()/(screen height()/3))
            y = int(mousey()/(screen height()/3))
            if x < 3 and y < 3
                if ox(x,y) = 0
                    ox(x,y) = 1
                    t = same(ox(0,0),ox(1,0),ox(2,0))
                    if t >= 0
                        if t = 0 then ox(0,0) = 2
                        if t = 1 then ox(1,0) = 2
                        if t = 2 then ox(2,0) = 2
                        goto moved
                    endif
                    t = same(ox(0,1),ox(1,1),ox(2,1))
                    if t >= 0
                        if t = 0 then ox(0,1) = 2
                        if t = 1 then ox(1,1) = 2
                        if t = 2 then ox(2,1) = 2
                        goto moved
                    endif
                    t = same(ox(0,2),ox(1,2),ox(2,2))
                    if t >= 0
                        if t = 0 then ox(0,2) = 2
                        if t = 1 then ox(1,2) = 2
                        if t = 2 then ox(2,2) = 2
                        goto moved
                    endif
                    t = same(ox(0,0),ox(0,1),ox(0,2))
                    if t >= 0
                        if t = 0 then ox(0,0) = 2
                        if t = 1 then ox(0,1) = 2
                        if t = 2 then ox(0,2) = 2
                        goto moved
                    endif
                    t = same(ox(1,0),ox(1,1),ox(1,2))
                    if t >= 0
                        if t = 0 then ox(1,0) = 2
                        if t = 1 then ox(1,1) = 2
                        if t = 2 then ox(1,2) = 2
                        goto moved
                    endif
                    t = same(ox(2,0),ox(2,1),ox(2,2))
                    if t >= 0
                        if t = 0 then ox(2,0) = 2
                        if t = 1 then ox(2,1) = 2
                        if t = 2 then ox(2,2) = 2
                        goto moved
                    endif
                    t = same(ox(0,0),ox(1,1),ox(2,2))
                    if t >= 0
                        if t = 0 then ox(0,0) = 2
                        if t = 1 then ox(1,1) = 2
                        if t = 2 then ox(2,2) = 2
                        goto moved
                    endif
                    t = same(ox(0,2),ox(1,1),ox(2,0))
                    if t >= 0
                        if t = 0 then ox(0,2) = 2
                        if t = 1 then ox(1,1) = 2
                        if t = 2 then ox(2,0) = 2
                        goto moved
                    endif

                    if ox(0,0) = 0 then ox(0,0) = 2 : goto moved
                    if ox(0,2) = 0 then ox(0,2) = 2 : goto moved
                    if ox(2,0) = 0 then ox(2,0) = 2 : goto moved
                    if ox(2,2) = 0 then ox(2,2) = 2 : goto moved
                    if ox(1,1) = 0 then ox(1,1) = 2 : goto moved
                    if ox(1,0) = 0 then ox(1,0) = 2 : goto moved
                    if ox(1,2) = 0 then ox(1,2) = 2 : goto moved
                    if ox(0,1) = 0 then ox(0,1) = 2 : goto moved
                    if ox(2,1) = 0 then ox(2,1) = 2 : goto moved
                    fin(-1)

moved:

                    if ox(0,0) = ox(0,1) and ox(0,1) = ox(0,2) then fin(ox(0,0))
                    if ox(1,0) = ox(1,1) and ox(1,1) = ox(1,2) then fin(ox(1,0))
                    if ox(2,0) = ox(2,1) and ox(2,1) = ox(2,2) then fin(ox(2,0))
                    if ox(0,0) = ox(1,0) and ox(1,0) = ox(2,0) then fin(ox(0,0))
                    if ox(0,1) = ox(1,1) and ox(1,1) = ox(2,1) then fin(ox(0,1))
                    if ox(0,2) = ox(1,2) and ox(1,2) = ox(2,2) then fin(ox(0,2))
                    if ox(0,0) = ox(1,1) and ox(1,1) = ox(2,2) then fin(ox(0,0))
                    if ox(0,2) = ox(1,1) and ox(1,1) = ox(2,0) then fin(ox(0,2))

                endif
            endif
        endif

        sync
    loop

    undim ox(0)

return

function same(v1,v2,v3)

    if v1 = v2 and v3 = 0
        exitfunction 2
    endif
    if v1 = v3 and v2 = 0
        exitfunction 1
    endif
    if v2 = v3 and v1 = 0
        exitfunction 0
    endif

endfunction -1

function fin(n)

    if n = 0 then exitfunction

    for y = 0 to 2
        for x = 0 to 2
            if ox(x,y) = 1
                line ((screen height()/3)*x)+i,((screen height()/3)*y)+i,((screen height()/3)*x)+i+i,((screen height()/3)*y)+i+i
                line ((screen height()/3)*x)+i,((screen height()/3)*y)+i+i,((screen height()/3)*x)+i+i,((screen height()/3)*y)+i
            endif
            if ox(x,y) = 2
                circle ((screen height()/3)*x)+i+(i/2),((screen height()/3)*y)+i+(i/2),i/2
            endif
        next x
    next y

    undim ox(0)
    global dim ox(2,2) as byte
    sync
    repeat
        sync
    until mouseclick() = 0
    wait 500

endfunction

Rem Project: chatbot
Rem Created: 15/01/2007 12:53:35

Rem ***** Main Source File *****


global dim word$(1,1,1)
global maxx
global dim maxy(1)
global dim maxz(1,1)
global dim word$(15,15,5)


worddata$="are(you(No I certainly am not!)),my(name(key3)),knock(knock(key2)),hi(hi(Hello again!)),hello(hello(Hi)),yes(yes(I'm glad we're in agreement.  Tell me a joke)),off(off(Are you being rude?,key1)),go(away(No.,I was here first.  You go away,You bored already?  I've only just started!)),I'm(I'm(It's all about you - isn't it.,Let's talk about me.)),do(like(I love it,No - I hate it,It's okay I suppose)),no(no(That's a bit negative.,All you ever say is no!)),what(name(I don't have a name - I'm a computer.),age(Not as old as you.),hobby(I like playing with numbers.)),where(live(In a metal box.),born(In a factory),from(A shop.)),how(you(I'm very well thanks.  How are you?),old(That's personal - dont you think?),going(Not too bad),know(I'm clever))"
makewordbank(worddata$)


print "Hi there."

do
input "> ",input$
cls
gosub response
sync
loop

response:

`parse input$ for keywords with lengths from 3 to 8 letters
found=0
length=len(input$)
if length>=8 then wordlength=8 else wordlength=length
for a=1 to length
  for b=2 to wordlength
    if a+b-1<=length
      test$=right$(left$(input$,a+b-1),b)
      category=0
      for x=1 to maxx
        if word$(x,0,0)=test$
          `print word$(x,0,0)
          category=x
          `print category
          exit
        endif
      next x

      if category>0
        for c=1 to length
          for d=2 to wordlength
            if c+d-1<=length
              test$=right$(left$(input$,c+d-1),d)
              `print test$
              for y=1 to maxy(category)
                if word$(category,y,0)=test$
                  response$=word$(category,y,1+rnd(maxz(category,y)-1))
                  if left$(response$,3)="key"
                    keynumber$=right$(response$,1)
                    if keynumber$="1"
                      response$="No, you "+input$
                    endif
                    if keynumber$="2"
                      Print "who's there?"
                      input answer$
                      print answer$, "who?"
                      input answer$
                      response$=answer$+"? That's the worst joke I ever heard!"
                    endif
                    if keynumber$="3"
                      print "sorry, what did you say your name was?"
                      input name$
                      response$="Ah.  Hi there "+name$
                    endif
                  endif
                  print response$
                  found=1
                endif
                if found=1 then exit
              next y
            endif
            if found=1 then exit
          next d
          if found=1 then exit
        next c
      endif
    endif
    if found=1 then exit
  next b
  if found=1 then exit
next a


if found=0
  `no standard response found
  if name$=""
    print "Mmm.  What's your name?"
    input name$
    print "Hi ",name$,".  How are you today?"
    input howiam$
    response$="I'm "+howiam$+" too."
  else
    reply=rnd(3)
    if reply=0 then response$="That's an odd thing to say, don't you think?"
    if reply=1 then response$="Why do you say that?"
    if reply=2 then response$="I don't know much about that.  Do you like pizza?"
    if reply=3 then response$="Your talking a different language!"
  endif
  print response$
endif

if response$=oldresponse$ then print "I seem to be repeating myself!"
oldresponse$=response$


return


function makewordbank(worddata$)

length=len(worddata$)

x=1
maxx=1
for test=1 to length

    character$=right$(left$(worddata$,test),1)
    letter=0
    if character$<>"("
      if character$<>","
        if character$<>")"
          letter=1
        endif
      endif
    endif
    donothing=0
    if letter=1 `if the character is a letter, then it isn't the end of a word, so add letter to word
      word$=word$+character$
    else
      if character$="," and oldcharacter$=")" then donothing=1 `if its a comma following a closed bracket
      if character$=")" and oldcharacter$=")" then donothing=1 `if its a closed bracket following a closed bracket
      if donothing=1
       `do nothing
      else  `else any other non letter signifies the end of the word
        `dim word$(maxx,overallmaxy+1,overallmaxz+1) `seems to delete array contents already stored - keep outside loop
        word$(x,y,z)=word$:word$="" `so store the word at x,y,z and clear to start the next one
      endif
      if character$="("
        inc bracket `bracket is the integer number of current open brackets
        if bracket>oldbracket and bracket=1 `if first open bracket, then need new item
          inc y
          if y>maxy(x)
             maxy(x)=y `store number of items within that title
          endif
          if y>overallmaxy
            overallmaxy=y
            dim maxz(maxx,overallmaxy) `store highest number of items for any title, to use for array dimension
          endif
        endif
        if bracket>oldbracket and bracket=2  `if second open bracket, need new subitem
          inc z
          if z>overallmaxz then overallmaxz=z
          if z>maxz(x,y)
            maxz(x,y)=z `store number of subitems within that item
          endif
        endif
      endif
      if character$=")"
        dec bracket
        if bracket=0 then y=0:z=0
        if bracket=1 then z=0
      endif
      if character$=","
        if bracket=0
          inc x
          if x>maxx
            maxx=x
            dim maxy(maxx) `store number of titles
            dim maxz(maxx,overallmaxy)
          endif
        endif
        if bracket=1
          inc y
          if y>maxy(x)
            maxy(x)=y `store number of items within that title
          endif
          if y>overallmaxy
            overallmaxy=y
            dim maxz(maxx,overallmaxy) `store highest number of items for any title, to use for array dimension
          endif
        endif
        if bracket=2
          inc z
          if z>overallmaxz then overallmaxz=z
          if z>maxz(x,y)
             maxz(x,y)=z `store number of subitems within that item
          endif
        endif
      endif
    endif
    oldbracket=bracket
    oldcharacter$=character$

  next test

endfunction

dim words$(50,20)
dim aval(50)

gosub somewords

global findleft

do
input ">",you$
if left$(you$,1)="."
   response$=learn$(right$(you$,len(you$)-1))
else
   response$=process$(you$)
endif
print "Him: ";correct$(response$)
loop

function findwords(re$)

for x=0 to 50
   if aval(x)=0
      allowed=1
      if words$(x,0)<>""
         for y=0 to 20
            if words$(x,y)=re$
               allowed=0
               inc results
            endif
         next y
      endif
      aval(x)=allowed
   endif
next x

endfunction results

function getword$()

for x=0 to 50
   if aval(x)=0 then exitfunction words$(x,0)
next x

endfunction "Error"

function correct$(a$)
a$=upper$(left$(a$,1))+lower$(right$(a$,len(a$)-1))
endfunction a$

function process$(a$)
if left$(a$,1)="y" then a$=dofind$("",1)
if left$(a$,1)="n" then a$=dofind$("",2)
if left$(a$,4)="like" then a$=suggest$()
endfunction a$

function resetf()
for x=0 to 50
   aval(x)=0
next x
endfunction

function learn$(a$)
`print "Learning..."
command$=gt$(a$,1)
word$=gt$(a$,2)
param$=gt$(a$,3)
r$=""
`print "Command:"; command$;"."
`print "Word:";word$;"."
`print "Param:";param$;"."

select command$
   case "cls"
      cls
      r$="Cleared it for ya!"
   endcase
   case "rf"
      resetf()
   endcase

   case "find"
      r$=dofind$(word$,0)
   endcase
   case "new"
      if word$<>""
         for x=0 to 50
            if words$(x,0)=word$ then error=1 : x=50
            if words$(x,0)="" then y=x : x=50
         next x
         if error=0
            r$= "Adding new word '"+ word$+"' on place "+ str$(y)+ " in the list."
            words$(y,0)=word$
         else
            r$="Error!, word already exists."
         endif
      else
         r$="You should really enter a word when you use this command"
      endif
   endcase

   case "add"
      if param$<>""
         y=100
         for x=0 to 50
            found$=words$(x,0)
            if y=100 and found$=word$ then y=x
         next x
         if y<>100
            `print "Found word as #"; y
            for x=1 to 20
               if words$(y,x)="" then z=x : x=21
            next x

            if x<21
               r$="Some odd error occured"
            else
               r$="Added '"+ param$+ "' for word '"+ word$+ "' at place #"+str$(z)
               words$(y,z)=param$
            endif
         else
            r$="Error!, word doesn't exists."
         endif
      else
         r$="Consider adding a parameter!"
      endif
   endcase

   case default
      r$="I dont know that command!"
   endcase
endselect

endfunction r$

function gt$(r$,n)
r$=r$+" "
`print "Gotta find a space in '"; r$; "', "; n; "th space."
repeat
lx=x
repeat
inc x
if x>len(r$) then exitfunction ""
until mid$(r$,x)=" "
`print "Found a space on x:"; x
inc m
until m=>n
return$=left$(r$,x-1)
`print "r1: -";return$;"-"
return$=right$(return$,len(return$)-lx)
`print "r2: -";return$;"-"
endfunction return$

function dofind$(word$,yn)
amount=findleft
if yn=1
   dec amount
else
   if yn=2
      crossword()
      dec amount
   else
   amount=findwords(word$)
   endif
endif
   if amount=>10 then r$="Theres alot of words with that property, you know."
   if amount>2 and amount<10 then r$="I need some more info about the word you're think of."
   if amount<3 then r$="Is it "+getword$()+"?"
   if amount=1 then r$="I know!, its "+getword$()+"!" : resetf()
   if amount=0 then r$="I really dont know any words that are '"+word$+"'" : resetf()
   `print "Amount: "; amount
   findleft = amount
endfunction r$

function crossword()
for x=0 to 50
   if aval(x)=0 then aval(x)=1 : exitfunction
next x
endfunction

function suggest$()

for x=0 to 50
   if aval(x)=0
      exitfunction "Is "+words$(x,rnd(getamount(x)-1)+1)+" a property of the word you're thinking of?"
   endif
next x

endfunction "Sorry, but i can't do any suggestions."

function getamount(n)
for x=1 to 20
   if words$(n,x)="" and y=0 then y=x-1
next x
endfunction y

somewords:

words$(0,0)="competition" ` This is a new object
words$(0,1)="people"
words$(0,2)="prizes"
words$(0,3)="chat"

words$(1,0)="forum" `new obj
words$(1,1)="people" `props
words$(1,2)="chat"
words$(1,3)="topics"
words$(1,4)="replies"

words$(2,0)="sun" `etc
words$(2,1)="bright"
words$(2,2)="light"
words$(2,3)="warm"
words$(2,4)="big"
words$(2,5)="huge"
words$(2,6)="star"

words$(3,0)="fire"
words$(3,1)="warm"
words$(3,2)="bright"
words$(3,3)="light"
words$(3,4)="fire"

words$(4,0)="lamp"
words$(4,1)="light"
words$(4,2)="small"
words$(4,3)="electric"

words$(5,0)="earth"
words$(5,1)="planet"
words$(5,2)="humans"
words$(5,3)="people"

words$(6,0)="mars"
words$(6,1)="planet"
words$(6,2)="rock"

words$(7,0)="venus"
words$(7,1)="planet"
words$(7,2)="hot"

words$(8,0)="jupiter"
words$(8,1)="planet"
words$(8,2)="gas"
words$(8,3)="big"
words$(8,4)="huge"

return

dim words$(50,20)
dim aval(50)

gosub somewords

global findleft

do
input ">",you$
if left$(you$,1)="."
   response$=learn$(right$(you$,len(you$)-1))
else
   response$=process$(you$)
endif
print "Him: ";correct$(response$)
loop

function findwords(re$)

for x=0 to 50
   if aval(x)=0
      allowed=1
      if words$(x,0)<>""
         for y=0 to 20
            if words$(x,y)=re$
               allowed=0
               inc results
            endif
         next y
      endif
      aval(x)=allowed
   endif
next x

endfunction results

function getword$()
r$="Error"
for x=0 to 50
   if aval(x)=0 then r$=words$(x,0) : exitfunction r$
next x
endfunction r$

function correct$(a$)
a$=upper$(left$(a$,1))+lower$(right$(a$,len(a$)-1))
endfunction a$

function process$(a$)
if left$(a$,1)="y" then a$=dofind$("",1)
if left$(a$,1)="n" then a$=dofind$("",2)
if left$(a$,4)="like" then a$=suggest$()
endfunction a$

function resetf()
for x=0 to 50
   aval(x)=0
next x
endfunction

function learn$(a$)
`print "Learning..."
command$=gt$(a$,1)
word$=gt$(a$,2)
param$=gt$(a$,3)
r$=""
`print "Command:"; command$;"."
`print "Word:";word$;"."
`print "Param:";param$;"."

select command$
   case "cls"
      cls
      r$="Cleared it for ya!"
   endcase
   case "rf"
      resetf()
   endcase

   case "find"
      r$=dofind$(word$,0)
   endcase
   case "new"
      if word$<>""
         for x=0 to 50
            if words$(x,0)=word$ then error=1 : x=50
            if words$(x,0)="" then y=x : x=50
         next x
         if error=0
            r$= "Adding new word '"+ word$+"' on place "+ str$(y)+ " in the list."
            words$(y,0)=word$
         else
            r$="Error!, word already exists."
         endif
      else
         r$="You should really enter a word when you use this command"
      endif
   endcase

   case "add"
      if param$<>""
         y=100
         for x=0 to 50
            found$=words$(x,0)
            if y=100 and found$=word$ then y=x
         next x
         if y<>100
            `print "Found word as #"; y
            for x=1 to 20
               if words$(y,x)="" then z=x : x=21
            next x

            if x<21
               r$="Some odd error occured"
            else
               r$="Added '"+ param$+ "' for word '"+ word$+ "' at place #"+str$(z)
               words$(y,z)=param$
            endif
         else
            r$="Error!, word doesn't exists."
         endif
      else
         r$="Consider adding a parameter!"
      endif
   endcase

   case default
      r$="I dont know that command!"
   endcase
endselect

endfunction r$

function gt$(r$,n)
return$=""
r$=r$+" "
`print "Gotta find a space in '"; r$; "', "; n; "th space."
repeat
lx=x
repeat
inc x
if x>len(r$) then exitfunction return$
until mid$(r$,x)=" "
`print "Found a space on x:"; x
inc m
until m=>n
return$=left$(r$,x-1)
`print "r1: -";return$;"-"
return$=right$(return$,len(return$)-lx)
`print "r2: -";return$;"-"
endfunction return$

function dofind$(word$,yn)
amount=findleft
if yn=1
   dec amount
else
   if yn=2
      crossword()
      dec amount
   else
   amount=findwords(word$)
   endif
endif
   if amount=>10 then r$="Theres alot of words with that property, you know."
   if amount>2 and amount<10 then r$="I need some more info about the word you're think of."
   if amount<3 then r$="Is it "+getword$()+"?"
   if amount=1 then r$="I know!, its "+getword$()+"!" : resetf()
   if amount=0 then r$="I really dont know any words that are '"+word$+"'" : resetf()
   `print "Amount: "; amount
   findleft = amount
endfunction r$

function crossword()
for x=0 to 50
   if aval(x)=0 then aval(x)=1 : exitfunction
next x
endfunction

function suggest$()

for x=0 to 50
   if aval(x)=0
      exitfunction "Is "+words$(x,rnd(getamount(x)-1)+1)+" a property of the word you're thinking of?"
   endif
next x

endfunction "Sorry, but i can't do any suggestions."

function getamount(n)
for x=1 to 20
   if words$(n,x)="" and y=0 then y=x-1
next x
endfunction y

somewords:

words$(0,0)="competition" ` This is a new object
words$(0,1)="people"
words$(0,2)="prizes"
words$(0,3)="chat"

words$(1,0)="forum" `new obj
words$(1,1)="people" `props
words$(1,2)="chat"
words$(1,3)="topics"
words$(1,4)="replies"

words$(2,0)="sun" `etc
words$(2,1)="bright"
words$(2,2)="light"
words$(2,3)="warm"
words$(2,4)="big"
words$(2,5)="huge"
words$(2,6)="star"

words$(3,0)="fire"
words$(3,1)="warm"
words$(3,2)="bright"
words$(3,3)="light"
words$(3,4)="fire"

words$(4,0)="lamp"
words$(4,1)="light"
words$(4,2)="small"
words$(4,3)="electric"

words$(5,0)="earth"
words$(5,1)="planet"
words$(5,2)="humans"
words$(5,3)="people"

words$(6,0)="mars"
words$(6,1)="planet"
words$(6,2)="rock"

words$(7,0)="venus"
words$(7,1)="planet"
words$(7,2)="hot"

words$(8,0)="jupiter"
words$(8,1)="planet"
words$(8,2)="gas"
words$(8,3)="big"
words$(8,4)="huge"

return

exitfunction "Is "+words$(x,rnd(getamount(x)-1)+1)+" a property of the word you're thinking of?"

a$="Is "+words$(x,rnd(getamount(x)-1)+1)+" a property of the word you're thinking of?"
      
exitfunction a$

- Heya
What is a 'heya' ?
- a greet
So heya is a greet
- yes
Ok, ill note that.
- hi
What is a 'hi' ?
- a greet
So hi is a greet
- yes
Ok, ill note that.
- hi
Hey
- heya
Hi
- heya
Hey
- heya
Heya
- hi
Hi
- do you know mars?
What?, are we talking about mars?
- yes
Oh ok, isn't that planet
- do you know pluto?
What is a 'pluto' ?
- an object
So pluto is a object
- yes
Ok, ill note that.
- .add pluto dwarf-planet
Added 'dwarf-planet' for word 'pluto' at place #1
- do you know pluto?
What?, are we talking about pluto?
- yes
Oh ok, isn't that dwarf-planet

dim words$(50,20)
dim aval(50)
dim pres$(50)

if file exist("log.txt") then delete file "log.txt"
open to write 1,"log.txt"

gosub somewords

global asktype
global an
global findleft
global nword$
global lastword$

do
input ">",you$
write string 1,you$
you$=lower$(you$)
while right$(you$,1)="?"
   you$=left$(you$,len(you$)-1)
endwhile


if left$(you$,1)="."
   response$=learn$(right$(you$,len(you$)-1))
else
   response$=process$(you$)
endif
him$=correct$(response$)
print "Him: ";him$
write string 1,him$
loop

close file 1
end

function firstactive(i$)
r$=""
ry=-1
num=numwords(i$)
`print num
for x=1 to num
   w$=gt$(i$,x)
   t$=""
   for y=0 to 50
      if words$(y,0)=w$ then t$=pres$(y)
      if t$<>""
         if t$<>"passive" and ry=-1 then ry=y : x=num : lastword$=words$(y,0)
      endif
   next y
   if t$=""
      lastword$=w$
   endif
next x
`print ry
endfunction ry

function findwords(re$)

for x=0 to 50
   if aval(x)=0
      allowed=1
      if words$(x,0)<>""
         for y=0 to 20
            if words$(x,y)=re$
               allowed=0
               `print words$(x,0)
               inc results
            endif
         next y
      endif
      aval(x)=allowed
   endif
next x

endfunction results

function getword$()
r$="Error"
for x=0 to 50
   if aval(x)=0 then r$=words$(x,0) : exitfunction r$
next x
endfunction r$

function correct$(a$)
a$=upper$(left$(a$,1))+lower$(right$(a$,len(a$)-1))
endfunction a$

function process$(a$)
`print "Asktype="; asktype
if asktype>0
   if left$(a$,1)="y"
      if asktype=1 then b$="Oh ok, isn't that "+words$(an,rnd(getamount(an)-1)+1) : asktype=0
      if asktype=2 then b$=dofind$(lastword$,1) : asktype=0
      if asktype=4 then b$="Ok, ill note that." : newword(lastword$,nword$)
   endif
   if left$(a$,1)="n"
      if asktype=2 then b$=dofind$(lastword$,2) : asktype=0
      if asktype=1 then b$="Oh, then what are we talking about?" : asktype=0
   endif
   if asktype=3 then nword$=gt$(a$,numwords(a$)) : b$="So "+lastword$+" is a "+nword$ : asktype=4
endif
if left$(a$,4)="like" then b$=suggest$()

if b$=""
   an=firstactive(a$)
`   print "An: "; an
   if an=>0
   `print "Type: ";pres$(an)
      if pres$(an)<>"greet"
         b$="What?, are we talking about "+lastword$+ "?" : asktype=1
      else
         b$=greet()
      endif
   else
      b$="What is a '"+lastword$+"' ?" : asktype=3
   endif
endif
if b$="" then b$="Could we talk about something else?.."
endfunction b$

function greet()

repeat
for x=0 to 50
   if pres$(x)="greet" and rnd(5)=1 then r$=words$(x,0)
next x
inc t
until r$<>"" or t=5
if t=5 then r$="Hey"

endfunction r$

function newword(word$,nword$)
asktype=0
   for x=0 to 50
      if words$(x,0)="" then y=x : x=50
   next x
   `print "Added "; word$; " as "; nword$; " on #"; y
   words$(y,0)=word$
   pres$(y)=nword$
endfunction

function resetf()
for x=0 to 50
   aval(x)=0
next x
endfunction

function learn$(a$)
`print "Learning..."
command$=gt$(a$,1)
word$=gt$(a$,2)
param$=gt$(a$,3)
r$=""
`print "Command:"; command$;"."
`print "Word:";word$;"."
`print "Param:";param$;"."

select command$
   case "cls"
      cls
      r$="Cleared it for ya!"
   endcase
   case "rf"
      resetf()
   endcase

   case "find"
      r$=dofind$(word$,0)
   endcase
   case "new"
      if word$<>""
         for x=0 to 50
            if words$(x,0)=word$ then error=1 : x=50
            if words$(x,0)="" then y=x : x=50
         next x
         if error=0
            r$= "Adding new word '"+ word$+"' on place "+ str$(y)+ " in the list."
            words$(y,0)=word$
         else
            r$="Error!, word already exists."
         endif
      else
         r$="You should really enter a word when you use this command"
      endif
   endcase

   case "add"
      if param$<>""
         y=100
         for x=0 to 50
            found$=words$(x,0)
            if y=100 and found$=word$ then y=x
         next x
         if y<>100
            `print "Found word as #"; y
            for x=1 to 20
               if words$(y,x)="" then z=x : x=21
            next x

            if x<21
               r$="Some odd error occured"
            else
               r$="Added '"+ param$+ "' for word '"+ word$+ "' at place #"+str$(z)
               words$(y,z)=param$
            endif
         else
            r$="Error!, word doesn't exists."
         endif
      else
         r$="Consider adding a parameter!"
      endif
   endcase

   case default
      r$="I dont know that command!"
   endcase
endselect

endfunction r$

function gt$(r$,n)
return$=""
r$=r$+" "
`print "Gotta find a space in '"; r$; "', "; n; "th space."
repeat
lx=x
repeat
inc x
if x>len(r$) then exitfunction return$
until mid$(r$,x)=" "
`print "Found a space on x:"; x
inc m
until m=>n
return$=left$(r$,x-1)
`print "r1: -";return$;"-"
return$=right$(return$,len(return$)-lx)
`print "r2: -";return$;"-"
endfunction return$

function dofind$(word$,yn)
if word$<>""
   amount=findwords(word$)
else
   amount=findleft
   if yn=1
      dec amount
   else
      if yn=2
         crossword()
         dec amount
      else
      amount=findwords(word$)
      endif
   endif
endif
   if amount=>10 then r$="Theres alot of words with that property, you know."
   if amount>2 and amount<10 then r$="I need some more info about the word you're think of."
   if amount<3 then r$="Is it "+getword$()+"?"
   if amount=1 then r$="I know!, its "+getword$()+"!" : resetf()
   if amount=0 then r$="I really dont know any words that are '"+word$+"'" : resetf()
   `print "Amount: "; amount
   findleft = amount
endfunction r$

function crossword()
for x=0 to 50
   if aval(x)=0 then aval(x)=1 : exitfunction
next x
endfunction

function suggest$()
r$="Sorry, but i can't do any suggestions."
for x=0 to 50
   if aval(x)=0
      w$=words$(x,rnd(getamount(x)-1)+1)
      r$="Is "+w$+" a property of the word you're thinking of?"
      lastword$=w$
      exitfunction r$
   endif
next x
asktype=2
endfunction r$

function numwords(s$)
sp=1
l=len(s$)
for x=1 to l
   if w=0 and mid$(s$,x)=" " then inc sp
   if w=1 and mid$(s$,x)<>" " then w=0
next x
endfunction sp

function getamount(n)
for x=1 to 20
   if words$(n,x)="" and y=0 then y=x-1
next x
endfunction y

somewords:

words$(0,0)="competition" ` This is a new object
pres$(0)="object" ` kind of word
words$(0,1)="people"
words$(0,2)="prizes"
words$(0,3)="chat"

words$(1,0)="forum" `new obj
pres$(1)="object" ` kind of word
words$(1,1)="people" `props
words$(1,2)="chat"
words$(1,3)="topics"
words$(1,4)="replies"

words$(2,0)="sun" `etc
pres$(2)="object"
words$(2,1)="bright"
words$(2,2)="light"
words$(2,3)="warm"
words$(2,4)="big"
words$(2,5)="huge"
words$(2,6)="star"

words$(3,0)="fire"
pres$(3)="object"
words$(3,1)="warm"
words$(3,2)="bright"
words$(3,3)="light"
words$(3,4)="fire"

words$(4,0)="lamp"
pres$(4)="object"
words$(4,1)="light"
words$(4,2)="small"
words$(4,3)="electric"

words$(5,0)="earth"
pres$(5)="object"
words$(5,1)="planet"
words$(5,2)="humans"
words$(5,3)="people"

words$(6,0)="mars"
pres$(6)="object"
words$(6,1)="planet"
words$(6,2)="rock"

words$(7,0)="venus"
pres$(7)="object"
words$(7,1)="planet"
words$(7,2)="hot"

words$(8,0)="jupiter"
pres$(8)="object"
words$(8,1)="planet"
words$(8,2)="gas"
words$(8,3)="big"
words$(8,4)="huge"

return

Rem Project: chatbot
Rem Created: 15/01/2007 12:53:35

Rem ***** Main Source File *****


global dim word$(1,1,1)
global maxx
global dim maxy(1)
global dim maxz(1,1)
global dim word$(15,15,5)
gosub worddata
makewordbank(worddata$)

print "Hi there."

do
input "> ",input$
cls
gosub response
sync
loop

response:

`parse input$ for keywords with lengths from 3 to 8 letters
found=0
length=len(input$)
if length>=10 then wordlength=10 else wordlength=length
for a=1 to length
  for b=2 to wordlength
    if a+b-1<=length
      test$=right$(left$(input$,a+b-1),b)
      category=0
      for x=1 to maxx
        if word$(x,0,0)=test$
          `print word$(x,0,0)
          category=x
          `print category
          exit
        endif
      next x

      if category>0
        for c=1 to length
          for d=2 to wordlength
            if c+d-1<=length
              test$=right$(left$(input$,c+d-1),d)
              `print test$
              for y=1 to maxy(category)
                if word$(category,y,0)=test$
                  response$=word$(category,y,1+rnd(maxz(category,y)-1))
                  if left$(response$,3)="key"
                    keynumber$=right$(response$,1)
                    if keynumber$="1"
                      response$="No, you "+input$
                    endif
                    if keynumber$="2"
                      Print "who's there?"
                      input answer$
                      print answer$, "who?"
                      input answer$
                      response$=answer$+"? That's the worst joke I ever heard!"
                    endif
                    if keynumber$="3"
                      print "sorry, what did you say your name was?"
                      input name$
                      response$="Ah.  Hi there "+name$
                    endif
                  endif
                  print response$
                  found=1
                endif
                if found=1 then exit
              next y
            endif
            if found=1 then exit
          next d
          if found=1 then exit
        next c
      endif
    endif
    if found=1 then exit
  next b
  if found=1 then exit
next a


if found=0
  `no standard response found
  if name$=""
    print "Mmm.  What's your name?"
    input name$
    print "Hi ",name$,".  How are you today?"
    input howiam$
    response$="I'm "+howiam$+" too."
  else
    reply=rnd(4)
    if reply=0 then response$="That's an odd thing to say, don't you think?"
    if reply=1 then response$="Why do you say that?"
    if reply=2
      randomobject=rnd(9)
        if randomobject=0 then object$="dogs"
        if randomobject=1 then object$="penguins"
        if randomobject=2 then object$="chips"
        if randomobject=3 then object$="watching tv"
        if randomobject=4 then object$="writing computer programs"
        if randomobject=5 then object$="travelling"
        if randomobject=6 then object$="your job"
        if randomobject=7 then object$="playing games"
        if randomobject=8 then object$="computers"
        if randomobject=9 then object$="shopping"
        print "I don't know much about that.  Do you like ",object$,"?"
        input answer$
      if answer$="yes" then response$="Tell me more about "+object$
      if answer$="no" then response$="Good.  I hate "+object$+" too!"
      if answer$<>"yes" and answer$<>"no" then response$="That's interesting to know"
    endif
    if reply=3 then response$="Your talking a different language!"
    if reply=4
      a=rnd(100)
      b=rnd(100)
      response$="Did you know that "+str$(a)+"x"+str$(b)+"="+str$(a*b)+"?"
    endif
  endif
  print response$
endif

if response$=oldresponse$ then print "I seem to be repeating myself!"
oldresponse$=response$


return


function makewordbank(worddata$)

length=len(worddata$)

x=1
maxx=1
for test=1 to length

    character$=right$(left$(worddata$,test),1)
    letter=0
    if character$<>"("
      if character$<>","
        if character$<>")"
          letter=1
        endif
      endif
    endif
    donothing=0
    if letter=1 `if the character is a letter, then it isn't the end of a word, so add letter to word
      word$=word$+character$
    else
      if character$="," and oldcharacter$=")" then donothing=1 `if its a comma following a closed bracket
      if character$=")" and oldcharacter$=")" then donothing=1 `if its a closed bracket following a closed bracket
      if donothing=1
       `do nothing
      else  `else any other non letter signifies the end of the word
        `dim word$(maxx,overallmaxy+1,overallmaxz+1) `seems to delete array contents already stored - keep outside loop
        word$(x,y,z)=word$:word$="" `so store the word at x,y,z and clear to start the next one
      endif
      if character$="("
        inc bracket `bracket is the integer number of current open brackets
        if bracket>oldbracket and bracket=1 `if first open bracket, then need new item
          inc y
          if y>maxy(x)
             maxy(x)=y `store number of items within that title
          endif
          if y>overallmaxy
            overallmaxy=y
            dim maxz(maxx,overallmaxy) `store highest number of items for any title, to use for array dimension
          endif
        endif
        if bracket>oldbracket and bracket=2  `if second open bracket, need new subitem
          inc z
          if z>overallmaxz then overallmaxz=z
          if z>maxz(x,y)
            maxz(x,y)=z `store number of subitems within that item
          endif
        endif
      endif
      if character$=")"
        dec bracket
        if bracket=0 then y=0:z=0
        if bracket=1 then z=0
      endif
      if character$=","
        if bracket=0
          inc x
          if x>maxx
            maxx=x
            dim maxy(maxx) `store number of titles
            dim maxz(maxx,overallmaxy)
          endif
        endif
        if bracket=1
          inc y
          if y>maxy(x)
            maxy(x)=y `store number of items within that title
          endif
          if y>overallmaxy
            overallmaxy=y
            dim maxz(maxx,overallmaxy) `store highest number of items for any title, to use for array dimension
          endif
        endif
        if bracket=2
          inc z
          if z>overallmaxz then overallmaxz=z
          if z>maxz(x,y)
             maxz(x,y)=z `store number of subitems within that item
          endif
        endif
      endif
    endif
    oldbracket=bracket
    oldcharacter$=character$

  next test

endfunction

worddata:
worddata$="weather(weather(It's always cold where I live)),are(you(No I certainly am not!)),my(name(key3)),knock(knock(key2)),hi(hi(Hello again!)),hello(hello(Hi)),yes(yes(I'm glad we're in agreement.  Tell me a joke)),off(off(Are you being rude?,key1)),go(away(No.,I was here first.  You go away,You bored already?  I've only just started!)),I'm(bored(I'm a bit bored too.),I'm(It's all about you - isn't it.,Let's talk about me.))"
worddata$=worddata$+",do(like(I love it,No - I hate it,It's okay I suppose)),no(no(That's a bit negative.,All you ever say is no!)),what(job(My job is to serve you!,I compute stuff),living(I just sit in a metal box all day),favourite(I like many different kinds,I don't really have a preference),name(I don't have a name - I'm a computer.),age(Not as old as you.),hobbies(I like playing with numbers - what about you?),hobby(I like playing with numbers.),animal(I like dogs,I really love cats)),where(live(In a metal box.),born(In a factory),from(A shop.)),how(you(I'm very well thanks.  How are you?),old(That's personal - dont you think?),going(Not too bad),know(I'm clever))"
worddata$=worddata$+",who(made(Ric made me),programmed(Ric programmed me),friend(I have lot's of friends),favourite(I don't really know any I'm afraid))"
return

dim q$(6)
dim a$(6)
dim q1$(6)
dim q2$(6)
dim q3$(6)
dim an$(6,3)
dim word$(20)
for x=1 to 6
  read q$(x)
next x
for x=1 to 6
  read q1$(x)
next x
for x=1 to 6
  read q2$(x)
next x
for x=1 to 6
  read q3$(x)
next x
for x=1 to 6
  read a$(x)
next x
for x=0 to 6
  for y=1 to 3
    read an$(x,y)
  next y
next x
quit=0
while quit=0
  input "> ",line$
  if line$<>""
    gosub clear_words
    count=1
    for x=1 to len(line$)
      if mid$(line$,x)=" "
        inc count
      else
        if asc(lower$(mid$(line$,x)))>=97 and asc(lower$(mid$(line$,x)))<=123
          word$(count)=word$(count)+lower$(mid$(line$,x))
        endif
      endif
    next x

    found=0
    q=0
    q1=0
    q2=0
    q3=0
    for x=1 to count
      for y=1 to 6
        if found=0 and q$(y)=word$(x)
          found=1
          q=y
        endif
        if q1$(y)=word$(x) then q1=y
        if q2$(y)=word$(x) then q2=y
        if q3$(y)=word$(x) then q3=y
      next y
    next x
    if found=1
      if q=5
        if (q1=1 or q1=4 or q1=5)
          print "I dont' know"
        else
          print "I'm fine"
        endif
      else
        print a$(q)
      endif
    else
      if q2<=3 and q2>0
        print an$(q1,q2)
      else
        if q3>0
          print "hello"
        else
          print "that's nice"
        endif
      endif
    endif
  endif
endwhile
wait key
end
clear_words:
  for x=1 to 20
    word$(x)=""
  next x
return

data "who","what","where","why","how","when"
data "do","are","is","did","does","am"
data "i","you","me","","",""
data "hello","hi","greetings","bonjour","hiya","hey"
data "who knows?"
data "no idea"
data "not sure where"
data "I don't know, why not?"
data "how do you?"
data "whenever"
data "I don't","I do not","everything is about you, isn't it?"
data "do you?","I do not","I hardly know you"
data "you must be a grammar teacher","I am not","nice grammar"
data "you is illin'","no it isn't","if you say so"
data "that is in the past now","I did not","lucky you"
data "I'm not so sure what you are saying","pardon?","I'm so sorry"
data "yes, you are","that sounds confusing","huh?"

MadrMan

Ric