sBotName = "DiceBot"; 

sRollPhrase = "!d"; 



tDice = { 

["20"] = 1, 

["12"] = 1, 

["10"] = 1, 

["6"] = 1, 

}; 



function DataArrival(curUser, sData) 

local _, _, cmd, args = strfind(sData, "%b<>%s+(%S+)%s*([^%|]*)%|$"); 



if (cmd == nil) then 

return 0; end; 



cmd = strlower(cmd); 





if (cmd == sRollPhrase) then 

if (tonumber(args)) then 

if (tDice[args]) then 

SendToAll(sData); 

SendToAll(sBotName, curUser.sName.." rolled a "..random(args).."."); 

else 

curUser:SendData(sData); 

curUser:SendData(sBotName, "No such dice!"); 

end 

else 

curUser:SendData(sData); 

curUser:SendData(sBotName, "Syntax: "..sRollPhrase.." <dice>"); 

end 



return 1; 

end 

end -- bonki