scores command for one arm bandit

[Taime_Down]

Hi,
i was wondering if theres a way  to  have a command  scores  fof  this script......



---------------------------------------------

-- -- -- --

-- "The One Armed Bandit" --

-- Created by: FlipDeluXe --

-- Date: May 10 2003 --

-- -- -- --

---------------------------------------------













botName="?Ro?oCop????"

wins="bandit_wins.txt"

plays="bandit_plays.txt"

A=5

credit=0

player="foo"



function Main()



OnOrOff="off"



end





function DataArrival(user, data)

if( strsub(data, 1, 1) == "<" ) then

-- remove end pipe

data=strsub(data,1,strlen(data)-1)

-- parse the command

s,e,cmd = strfind( data, "%b<>%s+(%S+)" )



if (cmd=="!insert") and (OnOrOff=="off") then











OnOrOff="on"

A=3

player=user.sName

SendToAll(botName, "Yeah!! "..player.." just threw in a buck!")

SendToAll(botName, "started. Pull with >> !hit << in Main Chat!")

SendToAll("credits left:",A)













elseif (cmd=="!hit") and A == 0 then

OnOrOff="off"

SendToAll(botName, "Outta credits, insert coin.")





elseif (cmd=="!hit") and (OnOrOff=="off") then

SendToAll(botName, "Outta credits, insert coin!")



elseif (cmd=="!hit") and (OnOrOff=="on") and (player~=user.sName) then

SendToAll(botName, "Sorry "..user.sName.." you must wait until "..player.." is done with his round.")



elseif (cmd=="!hit") and (OnOrOff=="on") and (player==user.sName) then









local first=random(1,8)

local second=random(1,8)

local third=random(1,8)

local rollone="@"

local rolltwo="@"

local rollthree="@"



A=A-1

SendToAll("credits left:",A)

if first == 1 and second == 1 and third == 1 then

SendToAll(botName, "Cool " ..user.sName.. ", you just won 10 bucks!")

credit=credit+10

elseif first == 2 and second == 2 and third == 2 then

SendToAll(botName, "Great!! " ..user.sName.." 20 bucks for you!")

credit=credit+20

elseif first == 3 and second == 3 and third == 3 then

SendToAll(botName, user.sName..", just won 30 bucks...")

credit=credit+30

elseif first == 4 and second == 4 and third == 4 then

SendToAll(botName, "Wow! "..user.sName.." it must be your lucky day, 40 bucks!!")

credit=credit+40

elseif first == 5 and second == 5 and third == 5 then

SendToAll(botName, "yeah!! " ..user.sName.." cha-ching 50 bucks!!!")

credit=credit+50

elseif first == 6 and second == 6 and third == 6 then

SendToAll(botName, "Woohoo!! " ..user.sName.." You're on a winning spree!! 70 bucks!!!")

credit=credit+70

elseif first == 7 and second == 7 and third == 7 then

SendToAll(botName, "Wow, you won 90 bucks " ..user.sName.."!!")

credit=credit+90

elseif first == 8 and second == 8 and third == 8 then

SendToAll(botName, "Awesome!! " ..user.sName.." You just hit the jackpot! cha-ching 100 bucks!!!")

credit=credit+100





elseif first == 1 and second == 1 and third ~= 1 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 2 and second == 2 and third ~= 2 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 3 and second == 3 and third ~= 3 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 4 and second == 4 and third ~= 4 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 5 and second == 5 and third ~= 5 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 6 and second == 6 and third ~= 6 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 7 and second == 7 and third ~= 7 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 8 and second == 8 and third ~= 8 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1





elseif first ~= 1 and second == 1 and third == 1 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 2 and second == 2 and third == 2 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 3 and second == 3 and third == 3 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 4 and second == 4 and third == 4 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 5 and second == 5 and third == 5 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 6 and second == 6 and third == 6 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 7 and second == 7 and third == 7 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= 8 and second == 8 and third == 8 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1





elseif first == 1 and second ~= 1 and third == 1 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 2 and second ~= 2 and third == 2 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 3 and second ~= 3 and third == 3 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 4 and second ~= 4 and third == 4 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 5 and second ~= 5 and third == 5 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 6 and second ~= 6 and third == 6 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 7 and second ~= 7 and third == 7 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first == 8 and second ~= 8 and third == 8 then

SendToAll(botName, "Great!! " ..user.sName.." a buck for you!")

credit=credit+1

elseif first ~= second and first ~= third then

SendToAll(botName,"Ahhh, too bad "..user.sName.." you won nothing...")







end





if first == 1 then

rollone="@"

elseif first == 2 then

rollone="$"

elseif first == 3 then

rollone="#"

elseif first == 4 then

rollone="&"

elseif first == 5 then

rollone="B"

elseif first == 6 then

rollone="O"

elseif first == 7 then

rollone="%"

elseif first == 8 then

rollone="?"

end



if second == 1 then

rolltwo="@"

elseif second == 2 then

rolltwo="$"

elseif second == 3 then

rolltwo="#"

elseif second == 4 then

rolltwo="&"

elseif second == 5 then

rolltwo="B"

elseif second == 6 then

rolltwo="O"

elseif second == 7 then

rolltwo="%"

elseif second == 8 then

rolltwo="?"

end



if third == 1 then

rollthree="@"

elseif third == 2 then

rollthree="$"

elseif third == 3 then

rollthree="#"

elseif third == 4 then

rollthree="&"

elseif third == 5 then

rollthree="B"

elseif third == 6 then

rollthree="O"

elseif third == 7 then

rollthree="%"

elseif third == 8 then

rollthree="?"

end

SendToAll(" ----------------------------------")

SendToAll(" One-Armed-Bandit \r\n")

SendToAll(" >>>> "..rollone.." - "..rolltwo.." - "..rollthree.." <<<< \r")

--SendToAll(" "..first.." "..second.." "..third.." \r\n")

SendToAll(" ----------------------------------")





if A == 0 then

OnOrOff="off"

SendToAll(botName, "Outta credits, insert coin.")

end



if (credit~=0) and (OnOrOff=="off") then

appendto(wins)

write("\t"," "..user.sName.." won "..credit.." Bucks \r\n")

writeto()

credit=0

end



if (A==0) and (OnOrOff=="off") then

appendto(plays)

write("",""..player.." \r\n")

writeto()



end







end

end

end




I cant find any ,  and my users   want a way  to see whos  winnin.  it has a log  ...but  i see no  way  to post in  the  main  or  PM.
 If i have overlooked something....i'm sorry  !

   thanx
       ?@?m?~?w??


 ???????T?@M?T????
 taime.mine.nu

[plop]

take a look @ the versions from phatty/chilla, those may hold your answer.

plop