Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Finished Lua 4 scripts => Topic started by: c h i l l a on 26 January, 2004, 19:53:14

Title: One Armed Bandit
Post by: c h i l l a on 26 January, 2004, 19:53:14
still fresh but already quiet cool.

Code Select
--One Armed Bandit by chill
--Stops on command

bot = "-Bandit-"

BPrefix = "+"
cmd1 = "insert"
cmd2 = "spin"
cmd3 = "stop"
cmd4 = "bstats"

BPlayers = {}
BSpin = {}
BPoints = {}
dofile("BPoints.txt")

scount = 0

function Main()
SetTimer(1000)
StartTimer()
end

function OnTimer()
for i,v in BSpin do
BSpin[i].Time = BSpin[i].Time + 1
if BSpin[i].Time == 5 then
doShowSpin(i)
end
end
scount = scount +1
if scount == 300 then
WriteTable(BPoints,"BPoints","BPoints.txt")
end
end

function OnExit()
WriteTable(BPoints,"BPoints","BPoints.txt")
end

function DataArrival(curUser,data)
if strsub(data,1,1) == "<" then
data = strsub(data,1,strlen(data)-1)
_,_,word1 = strfind(data,"^%b<>%s+(%S+)")
if word1 and BFUNCS[word1] then
BFUNCS[word1](curUser,data)
end
end
end
--------------------------------------------------------------------------
-- SHOW ONE SPIN
--------------------------------------------------------------------------
function doShowSpin(curNick)
local num = random(getn(BSpin[curNick].Wheel))
local num1 = BSpin[curNick].Wheel[num]
local num2 = random(9)
for i = 1,getn(BSpin[curNick].WheelChar) do
if i == num1 then
BSpin[curNick].WheelChar[i] = num2
end
end
curUser = GetItemByName(curNick)
if curUser then
curUser:SendData(bot,"\r\n"..
"\t--------------------------\r\n\r\n"..
"\t---- "..BSpin[curNick].WheelChar[1].." ---- "..BSpin[curNick].WheelChar[2].." ---- "..BSpin[curNick].WheelChar[3].." ----\r\n\r\n"..
"\t--------------------------\r\n")
else
BSpin[curNick] = nil
return
end
BSpin[curNick].Time = 0
tremove(BSpin[curNick].Wheel,num)
if getn(BSpin[curNick].Wheel) == 0 then
BPoints[curUser.sName] = BPoints[curUser.sName] or 0
local curSum = {}
for i = 1,3 do
if curSum[BSpin[curNick].WheelChar[i]] then
curSum[BSpin[curNick].WheelChar[i]] = curSum[BSpin[curNick].WheelChar[i]] + 1
else
curSum[BSpin[curNick].WheelChar[i]] = 1
end
end
for i,v in curSum do
if curSum[i] == 2 then
BPoints[curUser.sName] = BPoints[curUser.sName] + i
curUser:SendData(bot,"You get "..i.." Point(s).")
elseif curSum[i] == 3 then
BPoints[curUser.sName] = BPoints[curUser.sName] + (i*10)
curUser:SendData(bot,"You get "..(i*10).." Point(s).")
if i == 9 then
BPoints[curUser.sName] = BPoints[curUser.sName] + 300
curUser:SendData(bot,"*****  JAKPOT YOU GET 300 extra Points.")
end
end
end
BSpin[curNick] = nil
end
end
--------------------------------------------------------------------------
-- SAVE POINTS
--------------------------------------------------------------------------
function WriteTable(table,tablename,file)
local handle = openfile(file,"w")
write(handle,tablename.." = {\n")
for i,v in table do
write(handle,"["..format('%q',i).."] = "..v..",\n")
end
write(handle,"}")
closefile(handle)
end
--------------------------------------------------------------------------
-- BANDIT FUNCS
--------------------------------------------------------------------------
BFUNCS = {

[BPrefix..cmd1] = function(curUser,data)
local _,_,num = strfind(data,"(%d+)$")
if not BPlayers[curUser.sName] and tonumber(num) and tonumber(num) <= 20 and tonumber(num) > 0 then
BPlayers[curUser.sName] = tonumber(num)
curUser:SendData(bot,"You have inserted "..num.." coins.")
else
curUser:SendData(bot,"We are no bank.We don't store or give out money.")
end
end,

[BPrefix..cmd2] = function(curUser,data)
if BPlayers[curUser.sName] and not BSpin[curUser.sName] then
BPlayers[curUser.sName] = BPlayers[curUser.sName] - 1
if BPlayers[curUser.sName] == 0 then
BPlayers[curUser.sName] = nil
end
BSpin[curUser.sName] = {
Wheel = { 1,2,3 },
WheelChar = { "X","X","X" },
Time = 0,
}
curUser:SendData(bot,"Spinning the Wheel.\r\n\r\n"..
"\t--------------------------\r\n\r\n"..
"\t---- X ---- X ---- X ----\r\n\r\n"..
"\t--------------------------\r\n")
else
curUser:SendData(bot,"You need to insert a coin first.")
end
end,

[BPrefix..cmd3] = function(curUser,data)
if BSpin[curUser.sName] then
doShowSpin(curUser.sName)
end
end,

[BPrefix..cmd4] = function(curUser,data)
TCopy = {}

for i,v in BPoints do

tinsert(TCopy,{i,v})

end

sort(TCopy,function(a,b) return(a[2]>b[2]) end)
local msg = "-- Top Bandits ---\r\n\r\n"
for i = 1,getn(TCopy) do
msg = msg.."\t# "..i.."  -  "..TCopy[i][1]..",  Points: "..TCopy[i][2].."\r\n"
end
curUser:SendData(bot,msg)
end,
}
Title:
Post by: Anna on 20 May, 2005, 00:59:16
I guess this one is in lua4?

can it be made into lua5? would be appreciated, since I think this is the one I used to have, for some reason the copy on my comp seem to have been lost somewhere along the way when hub was updated :(
Title:
Post by: jiten on 20 May, 2005, 07:34:14
Here goes a fast one:
Code Select
--Lua 5 version by jiten
--One Armed Bandit by chill
--Stops on command

bot = "-Bandit-"

BPrefix = "+"
cmd1 = "insert"
cmd2 = "spin"
cmd3 = "stop"
cmd4 = "bstats"

BPlayers = {}
BSpin = {}
BPoints = {}

scount = 0

function Main()
if loadfile("BPoints.txt") then dofile("BPoints.txt") end
SetTimer(1000)
StartTimer()
end

function OnTimer()
for i,v in BSpin do
BSpin[i].Time = BSpin[i].Time + 1
if BSpin[i].Time == 5 then
doShowSpin(i)
end
end
scount = scount +1
if scount == 300 then
WriteTable(BPoints,"BPoints","BPoints.txt")
end
end

function OnExit()
WriteTable(BPoints,"BPoints","BPoints.txt")
end

function ChatArrival(curUser,data)
local data = string.sub(data,1,-2)
_,_,word1 = string.find(data,"^%b<>%s+(%S+)")
if word1 and BFUNCS[word1] then
return BFUNCS[word1](curUser,data), 1
end
end
--------------------------------------------------------------------------
-- SHOW ONE SPIN
--------------------------------------------------------------------------
function doShowSpin(curNick)
local num = math.random(table.getn(BSpin[curNick].Wheel))
local num1 = BSpin[curNick].Wheel[num]
local num2 = math.random(9)
for i = 1,table.getn(BSpin[curNick].WheelChar) do
if i == num1 then
BSpin[curNick].WheelChar[i] = num2
end
end
curUser = GetItemByName(curNick)
if curUser then
curUser:SendData(bot,"\r\n"..
"\t--------------------------\r\n\r\n"..
"\t---- "..BSpin[curNick].WheelChar[1].." ---- "..BSpin[curNick].WheelChar[2].." ---- "..BSpin[curNick].WheelChar[3].." ----\r\n\r\n"..
"\t--------------------------\r\n")
else
BSpin[curNick] = nil
return
end
BSpin[curNick].Time = 0
table.remove(BSpin[curNick].Wheel,num)
if table.getn(BSpin[curNick].Wheel) == 0 then
BPoints[curUser.sName] = BPoints[curUser.sName] or 0
local curSum = {}
for i = 1,3 do
if curSum[BSpin[curNick].WheelChar[i]] then
curSum[BSpin[curNick].WheelChar[i]] = curSum[BSpin[curNick].WheelChar[i]] + 1
else
curSum[BSpin[curNick].WheelChar[i]] = 1
end
end
for i,v in curSum do
if curSum[i] == 2 then
BPoints[curUser.sName] = BPoints[curUser.sName] + i
curUser:SendData(bot,"You get "..i.." Point(s).")
elseif curSum[i] == 3 then
BPoints[curUser.sName] = BPoints[curUser.sName] + (i*10)
curUser:SendData(bot,"You get "..(i*10).." Point(s).")
if i == 9 then
BPoints[curUser.sName] = BPoints[curUser.sName] + 300
curUser:SendData(bot,"*****  JAKPOT YOU GET 300 extra Points.")
end
end
end
BSpin[curNick] = nil
end
end
--------------------------------------------------------------------------
-- SAVE POINTS
--------------------------------------------------------------------------
Serialize = function(tTable,sTableName,hFile,sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n");
for key,value in tTable do
if (type(value) ~= "function") then
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Serialize(value,sKey,hFile,sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
end
hFile:write(sTab.."}");
end

WriteTable = function(table,tablename,file)
local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close()
end
--------------------------------------------------------------------------
-- BANDIT FUNCS
--------------------------------------------------------------------------
BFUNCS = {

[BPrefix..cmd1] = function(curUser,data)
local _,_,num = string.find(data,"(%d+)$")
if not BPlayers[curUser.sName] and tonumber(num) and tonumber(num) <= 20 and tonumber(num) > 0 then
BPlayers[curUser.sName] = tonumber(num)
curUser:SendData(bot,"You have inserted "..num.." coins.")
else
curUser:SendData(bot,"We are no bank.We don't store or give out money.")
end
end,

[BPrefix..cmd2] = function(curUser,data)
if BPlayers[curUser.sName] and not BSpin[curUser.sName] then
BPlayers[curUser.sName] = BPlayers[curUser.sName] - 1
if BPlayers[curUser.sName] == 0 then
BPlayers[curUser.sName] = nil
end
BSpin[curUser.sName] = {
Wheel = { 1,2,3 },
WheelChar = { "X","X","X" },
Time = 0,
}
curUser:SendData(bot,"Spinning the Wheel.\r\n\r\n"..
"\t--------------------------\r\n\r\n"..
"\t---- X ---- X ---- X ----\r\n\r\n"..
"\t--------------------------\r\n")
else
curUser:SendData(bot,"You need to insert a coin first.")
end
end,

[BPrefix..cmd3] = function(curUser,data)
if BSpin[curUser.sName] then
doShowSpin(curUser.sName)
end
end,

[BPrefix..cmd4] = function(curUser,data)
TCopy = {}

for i,v in BPoints do

table.insert(TCopy,{i,v})

end

table.sort(TCopy,function(a,b) return(a[2]>b[2]) end)
local msg = "-- Top Bandits ---\r\n\r\n"
for i = 1,table.getn(TCopy) do
msg = msg.."\t# "..i.."  -  "..TCopy[i][1]..",  Points: "..TCopy[i][2].."\r\n"
end
curUser:SendData(bot,msg)
end,
}
[edit] stop bug fixed
Cheers
Title:
Post by: Anna on 20 May, 2005, 14:19:57
Thanx :D

Tested it... but the stop command dont seem to work at all.. it never stops for me... :( once I do spin it keep spinning til script is stoped it seem....
Title:
Post by: Dessamator on 20 May, 2005, 14:52:41
in theory its not supposed to stop, it should go on until...
but it can be solved, :)
Title:
Post by: jiten on 20 May, 2005, 14:54:45
QuoteOriginally posted by Anna
Thanx :D

Tested it... but the stop command dont seem to work at all.. it never stops for me... :( once I do spin it keep spinning til script is stoped it seem....
First script updated. It should work well now.
It had a small error (disadvantages of fast converting) :D

Cheers
Text only | Text with Images