Calculator

[pHaTTy]

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

[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

[Alexei]

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..

[pHaTTy]

like i said no great but helps learn abit about lua ;)

[pHaTTy]

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

[pHaTTy]

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