One script I toyed with , morning coffee works ...
--- begin " RW?One-ArmedBandit.lua "
-------------------------------------------------------------------------------
--- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ---
--- "The One Armed Bandit" ---
--- Created by: FlipDeluXe ---
--- Date: May 10 2003 ---
--- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ---
--- touched by Herodes' one arm :) ---
--- Date: July 27 2004 ---
--- RW in the title of the script is for : ReWrite ---
--- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ---
-------------------------------------------------------------------------------
--- there is !insert to start the game... ( FlipDeluxe )
--- Pull the arm with !hit ... ( FlipDeluxe )
--- At any point there is !oknow to take your bucks and go .. :) ( Herodes )
-------------------------------------------------------------------------------
----------------- edit this at will ...
botName="Bandit"
----------------- pls dont touch below here ..
----------------- or if you touch dont blame either of the authors .. :)
A = 5
player=""
function Main()
OnOrOff="off"
end
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=="!insert") and (OnOrOff=="off") then
startT = date("%X")
credit = 0
OnOrOff="on"
A=5
player=user.sName
SendToAll(botName, "Alright!, "..player.." just threw in a buck! Let's see what he can do ...")
SendToAll(botName, "started. Pull with !hit in Main Chat!")
SendToAll("Credits left : ",A)
elseif (cmd=="!hit") then
if (A == 0) then
OnOrOff="off"
SendToAll(botName, "Better insert a coin if you wanna play with me ...")
elseif (OnOrOff=="off") then
SendToAll(botName, "Better insert a coin if you wanna play with me ...")
elseif (OnOrOff=="on") then
if (player~=user.sName) then
SendToAll(botName, "Sorry "..user.sName.." you must wait until "..player.." is done with his round.")
elseif (player == user.sName) then
Pull()
A=A-1
SendToAll("\t...----------------o-0-o----------------...")
SendToAll("\t? One-Armed-Bandit ?")
SendToAll("\t? >>> "..Associate(first).." - "..Associate(second).." - "..Associate(third).." <<< ?")
SendToAll("\t"..first.." "..second.." "..third)
SendToAll("\t```----------------o-0-o----------------```" )
Reward = { [1] = { [1] = "Cool " ..user.sName.. ", you just won 10 bucks!", ["bucks"] = 10},
[2] = { [1] = "Great!! " ..user.sName.." 20 bucks for you!", ["bucks"] = 20},
[3] = { [1] = user.sName..", just won 30 bucks...", ["bucks"] = 30},
[4] = { [1] = "Wow! "..user.sName.." it must be your lucky day, 40 bucks!!", ["bucks"]=40},
[5] = { [1] = "yeah!! " ..user.sName.." cha-ching 50 bucks!!!", ["bucks"] = 50},
[6] = { [1] = "Woohoo!! " ..user.sName.." You're on a winning spree!! 70 bucks!!!", ["bucks"] = 70},
[7] = { [1] = "Wow, you won 90 bucks " ..user.sName.."!!", ["bucks"] = 90},
[8] = { [1] = "Awesome!! " ..user.sName.." You just hit the jackpot! cha-ching 100 bucks!!!", ["bucks"] = 100},
[9] = { [1] = "Great!! " ..user.sName.." a buck for you!", ["bucks"] = 1},
}
for i, v in Reward do
failed = 0
if (first == i) then
if (second == i) then
if (third == i) then
SendToAll( botName, Reward[i][1] )
A = A + Reward[i]["bucks"]
credit = credit + Reward[i]["bucks"]
SendToAll("A : credit is "..credit.." because I added "..Reward[i]["bucks"])
break
elseif ( third ~= i ) then
SendToAll( botName, Reward[9][1] )
A = A + Reward[9]["bucks"]
credit = credit + Reward[9]["bucks"]
SendToAll("B : credit is "..credit.." because I added "..Reward[9]["bucks"])
break
end
end
if (second ~= i) then
if (third == i) then
SendToAll( botName, Reward[9][1] )
A = A + Reward[9]["bucks"]
credit = credit + Reward[9]["bucks"]
SendToAll("C : credit is "..credit.." because I added "..Reward[9]["bucks"] )
break
elseif (third ~= i) then failed = 1 end
end
end
if ( first ~= i ) then
if ( second == i ) then
if ( third == i ) then
SendToAll( botName, Reward[9][1] )
A = A + Reward[9]["bucks"]
credit = credit + Reward[9]["bucks"]
SendToAll("D : credit is "..credit.." because I added "..Reward[9]["bucks"] )
break
elseif ( third ~= i ) then
failed = 1
end
elseif (second ~= i ) then failed = 1 end
end
end
if ( failed == 1 ) then SendToAll(botName,"Ahhh, too bad "..user.sName.." you won nothing...") end
SendToAll("Credits left : ",A)
if ( A == 0) then
OnOrOff="off"
SendToAll(botName, "Outta credits, insert coin.")
end
if (OnOrOff == "off") then IQuit(user, startT, A) end
end
end
elseif (cmd == "!oknow") then
if OnOrOff == "on" then
OnOrOff="off"
if (credit ~= 0 ) then
SendToAll(botName, user.sName.." has taken the money... He dont wanna play with me ...")
else SendToAll(botName, user.sName.." is a quiter ...")
end
IQuit(user, startT, A, "quit")
end
end
end
end
function Associate(draw)
fruits = { [1] = "@", [2] = "$", [3] = "#", [4] = "&", [5] = "?", [6] = "O", [7] = "%", [8] = "?"}
local rollnum = ""
for i ,v in fruits do
if i == draw then
rollnum = v
end
end
return rollnum
end
function Pull()
first = random(1,8)
second = random(1,8)
third = random(1,8)
return first, second, third
end
function IQuit(user, startT, A, quit)
if (credit ~= 0) then
appendto("bandit_wins.txt")
if quit ~= nil then
write( " \r\n - ? -"..user.sName.." won "..credit.." bucks - started playing at "..startT.." ended at "..date("%X ").." ? "..date("on %d/%m-%Y").." ? * quiter *")
else write( " \r\n - ? -"..user.sName.." won "..credit.." bucks - started playing at "..startT.." ended at "..date("%X ").." ? "..date("on %d/%m-%Y"))
end
writeto()
credit = 0
end
appendto("bandit_plays.txt")
if quit ~= nil then
write("\r\n - ? -"..player.." - started playing at "..startT.." ended at "..date("%X ").." ? "..date("on %d/%m-%Y").." ? * quiter *")
else write("\r\n - ? -"..player.." - started playing at "..startT.." ended at "..date("%X ").." ? "..date("on %d/%m-%Y"))
end
writeto()
end