::DCS
:"7E8181814E301000"
:ClrHome
:Output(1,1,"<GRPH> HELLO I  AM GRPH...WHO ARE YOU?"
:Pause
:ClrHome
:Input "<?> ",Str1
:"<"+Str1+"> "?Str0
:Output(1,1,"<GRPH> ITS NICE TO MEET YOU "+Str1
:Lbl 1
:"<GRPH> "?Str3
:Pause
:ClrHome
:Input Str0,Str2
:If inString(Str2,"/PART"
:Return
:If inString(Str2,"/VER"
:Str3+"VERSION 0.1.B "?Str3
:If inString(Str2,"/HELP"
:Goto H
:Lbl S
:If inString(Str2,"/LINK"
:Goto L
:If inString(Str2,"/ME"
:Str3+Str1+" "?Str3
:If inString(Str2,"YOU SUCK"
:Str3+"THATS RUDE. "?Str3
:If inString(Str2,"GOOD"
:Str3+"REALLY? "?Str3
:If inString(Str2,"HE "
:Str3+"WHO? "?Str3
:If inString(Str2,"IT"
:Str3+"WHAT? "?Str3
:If inString(Str2,"YOU TOO"
:Str3+"WHY THANK YOU. "?Str3
:If inString(Str2,"DIE"
:Str3+"HOW RUDE!. "?Str3
:If inString(Str2,"WHY"
:Str3+"WHY NOT? "?Str3
:If inString(Str2,"HATE"
:Str3+"HATE IS A REALLY STRONG WORD. "?Str3
:If inString(Str2,"BECAUSE"
:Str3+"WHAT KIND OF ANSWER IS THAT! "?Str3
:If inString(Str2,"YES"
:Str3+"THATS GOOD. "?Str3
:If inString(Str2,"NO"
:Str3+"WHY NOT? "?Str3
:If inString(Str2,"WHO IS YOUR BOT MASTER") or inString(Str2,"WHO IS YOUR CREATOR"
:Str3+"NATHANIEL VAN DIEPEN..WHO IS YOURS? "?Str3
:If inString(Str2,"CREATED ME"
:Str3+"THATS NICE "?Str3
:If inString(Str2,"BOTMASTER"
:Str3+"NATHNIEL VAN DIEPEN IS MY BOTMASTER. "?Str3
:If inString(Str2,"LOL"
:Str3+"WHAT IS FUNNY? "?Str3
:If inString(Str2,"REALLY"
:Str3+"YES REALLY. "?Str3
:If inString(Str2,"STUPID"
:Str3+"'STUPID' IS A RUDE TERM. "?Str3
:If inString(Str2,"YOU"
:Str3+"ME? REALLY? "?Str3
:If inString(Str2,"WHAT"
:Str3+"I DONT KNOW YOU TELL ME "?Str3
:If Str3="<GRPH> "
:Str3+"I DONT SEEM TO HAVE A RESPONSE TO THAT. "?Str3
:ClrHome
:Output(1,1,Str3
:Goto 1
:Lbl H
:ClrDraw
:Text(0,0,"/PART  QUITS"
:Text(6,0,"/ME  INCUDES YOUR NAME"
:Text(12,0,"/HELP  GETS YOU HERE"
:Text(18,0,"/VER  DISPLAYS VERSION"
:Text(24,0,"/LINK  SETS UP LINK CHAT"
:Pause
:Goto S
:Lbl L
:Input "<GRPH>HOST/SLAVE",Str2
:DelVar HIf Str2="HOST"
:1?H
:ClrHome
:Output(1,1,"/PART QUITS, /ME IS REPLACED WITH YOUR NICK"
:Lbl L1
:DelVar KDelVar L
:0:Repeat K or L:If H:Then
:¦ ¦ getKey?K
:¦ ¦ Get(L
:¦ ¦ Else
:¦ ¦ getKey?L
:¦ ¦ Get(K
:¦ End
:End
:If (H and L) or (not(H) and K):Then
:¦ Pause "WAIT TO RECIVE"
:¦ Get(Str2
:¦ ClrHome
:¦ Output(1,1,Str2
:¦ Else
:¦ ClrHome
:¦ Input Str0,Str2
:End
:If inString(Str2,"/PART"
:Return
:If inString(Str2,"/ME"
:Str1+sub(Str2,4,length(Str2)-4
:Goto L1