ai 2

StringCaseSense, off
f1::
;-----------grab info from email-----------
clipboard=
send ^a
sleep 250
Send ^c
;-----------check if owe money-----------
varfrom:=SubStr(Clipboard,1,InStr(Clipboard,"`n")-1)
StringReplace, varfrom, varfrom, From, , All
StringReplace, varfrom, varfrom, `r, , All
FileRead, varowemoney, C:\Users\Thom\Desktop\owe us money.txt
varfrom=%varfrom%
IfInString, varowemoney, %varfrom%
 {
 msgbox, This person owes money do not take order
 Return
 }

StringReplace, Clipboard, Clipboard, subject, , All
StringReplace, Clipboard, Clipboard, can, , All
StringReplace, Clipboard, Clipboard, i, , All
StringReplace, Clipboard, Clipboard, buy, , All
StringReplace, Clipboard, Clipboard, some, , All
If clipboard Contains goats
 {
 Msgbox, This is for the Animal dept. 100 percent chance
 send ^n
 send {right}
 send {enter}
 sleep 300
 clipboard=Yes I will get your order in right away
 send ^v
 return
 }

AIguess=0
If clipboard Contains g
 {
 AIguess++
 }
If clipboard Contains o
 {
 AIguess++
 }
If clipboard Contains a
 {
 AIguess++
 }
If clipboard Contains t
 {
 AIguess++
 }
If clipboard Contains s
 {
 AIguess++
 }
varpercent:= 100/5
varpercent:= AIguess*20
IfGreaterOrEqual, AIguess , 4
 {
 Msgbox, This is for the Animal dept. AI=%varpercent% percent chance
 send ^n
 send {right}
 send {enter}
 sleep 300
 clipboard=Yes I will get your order in right away
 send ^v
 return
 }
IfGreaterOrEqual, AIguess , 3
 {
 Msgbox, This is for the Animal dept. AI=%varpercent% percent chance
 send ^n
 send {right}
 send {enter}
 sleep 300
 clipboard=Yes I will get your order in right away
 send ^v
 return
 }
 else
 {
 Msgbox, Im not sure where this should go
 }