well heres a little calculator it does add, subtract, divide and multiple, its a bit useless, but it will help you learn if you arre heading towards neural net
--Calculator by Phatty
--v1.00
Addit = "!add"
Subtract = "!sub"
Multiple = "!mult"
Divide = "!div"
Bot = "J???"
function DataArrival(user,data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,main,nur = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)")
if cmd == Addit then
Add = main + nur
i = Add
user:SendData(Bot,i)
return 1
elseif cmd == Subtract then
Sub = main - nur
i = Sub
user:SendData(Bot,i)
return 1
elseif cmd == Multiple then
Mut = main * nur
i = Mut
user:SendData(Bot,i)
return 1
elseif cmd == Divide then
Div = main / nur
i = Div
user:SendData(Bot,i)
return 1
end
end
end
l8rr,,
-phatty
Little update :o)
--Calculator by Phatty
--v1.11
--Added Invalid usage message
Addit = "!add"
Subtract = "!sub"
Multiple = "!mult"
Divide = "!div"
Bot = "J???"
function DataArrival(user,data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,main,nur = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)")
if cmd == Addit then
if main == nil or nr == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
Add = main + nur
i = Add
user:SendData(Bot,i)
return 1
end
elseif cmd == Subtract then
if main == nil or nr == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
Sub = main - nur
i = Sub
user:SendData(Bot,i)
return 1
end
elseif cmd == Multiple then
if main == nil or nr == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
Mut = main * nur
i = Mut
user:SendData(Bot,i)
return 1
end
elseif cmd == Divide then
if main == nil or nr == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
Div = main / nur
i = Div
user:SendData(Bot,i)
return 1
end
end
end
end
l8rr,,
-phatty
Ehh... who will need THAT???
Games--okej, news--okej, but a calculator???
Hmm... i think no1 needs one... but you never know....before they do.. :)
like i said no great but helps learn abit about lua ;)
well dont ask me why but here is v1.2 lol
--Calculator by Phatty
--v1.2
--Added Invalid usage message
--useage: sum = example : sum 1 + 1
Bot = "Calculator"
function DataArrival(user,data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if cmd == "sum" then
s,e,cmd,nr1,what,nr2 = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)%s+(%S+)")
if nr2 == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
if what == "+" then
Add = nr1 + nr2
i = Add
user:SendData(Bot,"The sum: "..nr1..what..nr2.." = "..i)
return 1
elseif what == "-" then
Sub = nr1 - nr2
i = Sub
user:SendData(Bot,"The sum: "..nr1..what..nr2.." = "..i)
return 1
elseif what == "x" then
Mut = nr1 * nr2
i = Mut
user:SendData(Bot,"The sum: "..nr1..what..nr2.." = "..i)
return 1
elseif what == "/" then
Div = nr1 / nr2
i = Div
user:SendData(Bot,"The sum: "..nr1..what..nr2.." = "..i)
return 1
end
end
end
end
end
just a little bit better :)
--Calculator by Phatty
--v1.21
--Added Invalid usage message
--useage: sum = example : sum 1 + 1
Bot = "Calculator"
function DataArrival(user,data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if cmd == "sum" then
s,e,cmd,nr1,what,nr2 = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)%s+(%S+)")
if nr2 == nil then
user:SendData(Bot, "Not a valid usage please try again ;)")
return 1
else
if what == "+" then
sum = nr1 + nr2
elseif what == "-" then
sum = nr1 - nr2
elseif what == "x" then
sum = nr1 * nr2
elseif what == "/" then
sum = nr1 / nr2
end
user:SendData(Bot,"The sum: "..nr1..what..nr2.." = "..sum)
return 1
end
end
end
end
remember i was kinda newbie wehn i first wrote it :P