hello all
i have some problem
my hub is Ptokax 0,330 debug 1525
OS 2003 Ram 512MB cpu 1ghz internert conections 10Mbit
skript runing
Robo 8,0b
hubtime 1,5
zRightclicker
[8-Ball] - v0.21
when i have abut 1600-1900 usesr its starts to lagg alot
and then i restarts the hus software and after that it?s start to lagg
at 1100-1300 users
is?t the roboscript?
when i look att adv options and in the memory disp
ther are to [8-Ball] - v0.21 thats runing and they are using same amount of memmory
yes a have restarted the hub.
-- [8-Ball] - v0.21
--
-- Written by bonki 2003
--
-- ABOUT:
-- A very simple magic 8-ball implementation.
--
-- AVAILABLE COMMANDS:
-- !-LADY-
--
-- If iInterval is set it even answers if somebody asks a question in main chat
-- and nobody answers after iInterval milliseconds.
--
-- CHANGELOG:
-- v0.21: Bugfix: Auto-answer is now not sent when users PM eachother
-- v0.2: Added: Auto-answer in main chat, see "available commands" for further details.
-- Added: Neat-looking tag :)
-- v0.11: Bugfix: can't remember :P
-- v0.1: Initial Version
sVer = "0.21";
sName = "-LADY-"
sAskPhrase = "!-LADY-";
iInterval = 8 * 100;
--iInterval = nil; -- uncomment this if you don't want to use this feature
aAnswers = {
"Ska jag sga en hemlis!!",
"Har platinablonderat har",
"Jag har 2 tuttar utav silikon",
"Skyll allt pa ISOTOP",
"Nu skaaaaaaaalaaaaaaaar vi alla PARTYYYYYY",
"Far hicka nu sorry all",
"Vill tanka film nan me lediga slot",
"*Rkpaus*",
"Kissen r st",
"Fraga Kraven han stller ju dumma fragor till mig ju",
"Drop dead u fellow",
"I like KJP_SF",
"Im The QUEEN BOSS THE KING",
"Putte dricker l",
"Bli kristen o ga till kyrkan med dig",
"Amatrer dr",
"Bttre kan ni vl",
"Nej.",
"JA.",
"NOOOOOOOOOOOOOOOOOOO!",
"Sjlvklart.",
"THE_BOSS R GUD.",
"Yeah :)",
"HELL NO!",
"Aldrig!",
"Never ever.",
"Vad haander er !",
"No...now go and blame ISOTOP!",
"Rkna inte med det.",
"Inte en chans!",
"Mitt svar r nej.",
"Va loliga ni ar.",
"Vill me ha mat!",
"Min klla sger nej...",
"Yes, haller med.",
"koncentrera dig o fraga igen.",
":D.",
"Sager inget ;-)",
"Anvand hyvet. (A)bort, (R)etry, (I)gnore?_",
"Jag rknar 50 percent.",
"Jag vet men sger inget :-)",
"r det fest hr eller???",
"Fraga din mamma, she knows better than a stupid billard ball!",
"Skojar du eller?",
"Vad? Fattar nada",
"Huh?",
"Blah blahhh blahh...",
"Skojar du elller!",
"Menar du allvar?",
"Haha, jag gillar dig...funny guy, you are :-)",
"Geeeeee...Vilken j*vl*fraga",
"Sluta sup :-P",
"Vad tror du om mig egentligen?",
"Hur ska jag kunna veta",
"Och dom sger jag stller idiotfrger...",
"Get a life and leave me alone!",
"Jag gr som jag vill",
"TRUE NORWEGIAN BLACK METAL!!!", -- sue me!!!",
"KRAAAAVEN????",
"Ask RabidWombat, he'll know for sure :-)", -- honor to whom honor is due! :-)",
"W-e a-r-e B-o-r-g, y-o-u w-i-l-l b-e a-s-s-i-m-i-l-a-t-e-d, R-e-s-i-s-t-a-n-c-e i-s f-u-t-i-l-e ! Err...I mean...No.",
"Jag r trstig, vad sger du Boss...",
};
sLastNick = nil;
function Main()
randomseed(clock());
bot = { sBotName = sName,
sBotVer = sVer,
sBotEmail = "bonki@no-spam.net",
sBotSpeed = "Sol", -- "Speed of Light" =)
sBotTag = "<++ V:"..sVer..",P:bonki,T:"..getn(aAnswers)..">",
sBotDescr = "Magic LADY-Bot v"..sVer.." written by bonki 2003",
iBotShare = 0 };
frmHub:RegBot(bot.sBotName);
UpdateBotInfo();
SetTimer(iInterval);
end
function NewUserConnected(curUser)
curUser:SendData(sBotInfo);
end
function OpConnected(curUser)
curUser:SendData(sBotInfo);
end
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 == sAskPhrase) then
SendToAll(sData);
-- quick-check whether it COULD be a question somehow
if (strfind(strsub(args, -3), "%?") and strfind(args, "%s+")) then
SendToAll(bot.sBotName, GetRandomSentence());
else
SendToAll(bot.sBotName, "I'm a magic LADY you fool. Ask me a question or leave me alone!");
end
return 1;
end
if (iInterval) then
if (strfind(strsub(args, -3), "%?") and strfind(args, "%s+")) then
bQuestion = 1;
StartTimer();
else
bQuestion = nil;
StopTimer();
end
end
return 0;
end
function OnTimer()
if (bQuestion) then
SendToAll(bot.sBotName, GetRandomSentence());
end
StopTimer();
end
function GetRandomSentence()
local iRnd = random(getn(aAnswers));
return aAnswers[iRnd];
end
function UpdateBotInfo()
sBotInfo = "$MyINFO $ALL "..bot.sBotName.." "..bot.sBotDescr..bot.sBotTag.."$ $"..bot.sBotSpeed..strchar(1).."$"..bot.sBotEmail.."$"..bot.iBotShare.."$" ;
end
in this script is ther somthing worng what its "Syntax error: `)' expected;
last token read: `then' at line 201 in string "
-- Simple Illegalist v0.1
-- Created by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking
-- some changes by Skippy and RabidWombat and OpiumVolage and trucker
-- add tables warn and kick by nErBoS
BotName = "[Angels]Doc"
function Main()
frmHub:RegBot(BotName)
frmHub:EnableSearchData(1)
end
Files = {
["bestiality"]="Bestiality porn is *sick porn* and not allowed in this hub...Unshare and reconnect!",
["r@ygold"]="R@ygold porn is *sick porn* and not allowed in this hub...Unshare and reconnect!",
["underage"]="Underage porn is*sick porn* and not allowed in this hub...Unshare and reconnect!",
["preteen"]="Preteen porn is *sick porn* and not allowed in this hub...Unshare and reconnect!",
["download10 .dat"]="Remove done kazaafiles,unfinsihed files, read share rules,...Unshare and reconnect!",
["INCOMPLETE~"]="You are being kicked because incomplite files,read share rules,...Unshare and reconnect!",
["_INCOMPLETE__"]="Remove files that begins with _INCOMPLETE__ it is incomplete WinMX download files..Unshare and reconnect!",
[".part.met"]="Remove files that ends with .part.met it is incomplete eDonkey/eMule download file...Unshare and reconnect!",
[".antifrag"]="Dont share incomplete download's(.antifrag)...Unshare and reconnect!",
}
--warn = {}
--kick = {}
saveData = { }
usersimune = {"[Angels]-=TheKing=-","Domino","KJP_SF","'[VIP]AnotherGuy","'[VIP]Blue",
"'[VIP]Bullit","'[VIP]Carro","'[VIP]Fjodor","'[VIP]Gamersdot","'[VIP]iSOTOP",
"'[VIP]Mysan","'[VIP]Putte68","'[VIP]Tahu","'[VIP]Tokfan","'[VIP]Webbelina",
"Gudfadern","[ANGELS]Busan","[Angels]Carmen","[Angels]Evil","[Angels]Kraven",
"[ANGELS]MI@","[Angels]Muffalotta","[Angels]Sirgul"} -- Usres you want to not be checked
--log
--kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main
-----------//////////////////////////////////////------------------------------------------------------
kickLogNew = "_Kick Log.txt"
function Serialize(tTable, sTableName, hFile, sTab)
assert(tTable, "tTable equals nil");
assert(sTableName, "sTableName equals nil");
assert(hFile, "hFile equals nil");
assert(type(tTable) == "table", "tTable must be a table!");
assert(type(sTableName) == "string", "sTableName must be a string!");
sTab = sTab or "";
write(hFile, sTab..sTableName.." ={\n" );
for key, value in tTable do
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
if(type(value) == "table") then
Serialize(value, sKey, hFile, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
write(hFile, sTab.."\t"..sKey.." = "..sValue);
end
write(hFile, ",\n");
end
write(hFile, sTab.."}");
end
function SaveToFile(file , table , tablename)
local hFile = openfile(file, "w");
Serialize(table, tablename, hFile);
closefile(hFile);
end
function LoadFromFile (file)
assert(readfrom(file),file.." is not found.Generating new "..file..". All is fine. Don't panic.")
dostring(read("*all"))
readfrom()
end
function saveLogData(t,n,i,r,p,a)
if saveData[n] then
saveData[n][t] = {}
else
saveData[n] = {}
saveData[n][t] = {}
end
saveData[n][t] = {
["IP"] = i,
["REASON"] = r,
["Path"] = p,
["ACTION"] = a
}
Serialize(saveData, "saveData", kickLogNew)
end
function saveKickCount(n,kC,wC)
if not saveData[user.sName] then
saveData[user.sName] = {}
end
if wC == "" then
saveData[user.sName]["KickCount"] = kC
Serialize(saveData, "saveData", kickLogNew)
else
saveData[user.sName]["WarnCount"] = wC
Serialize(saveData, "saveData", kickLogNew)
end
end
LoadFromFile(kickLogNew)
-----------//////////////////////////////////////------------------------------------------------------
function NewUserConnected(user)
if not saveData[user.sName] then
saveData[user.sName] = {}
end
if (saveData[user.sName]["WarnCount"] == nil or saveData[user.sName]["WarnCount"] == 4) then
saveData[user.sName]["WarnCount"] = 0
saveKickCount(user.sName,0,"")
end
if (saveData[user.sName]["KickCount"] == nil or saveData[user.sName]["KickCount"] == 4) then
saveData[user.sName]["WarnCount"] = 0
saveKickCount(user.sName,"",0)
end
for i,v in Files do
user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i)
end
end
function DataArrival(user, data)
-----------//////////////////////////////////////------------------------------------------------------
local timeNow = GetTime() --//ths will prevent double entries for the same kick even if the script i plugged this into tries.
-----------//////////////////////////////////////------------------------------------------------------
if( strsub(data, 1, 3) == "$SR" ) then
_,_,nick = strfind( data, "\05(%S*)|$" )
local s,e,path = strfind(data, "$SR%s+%S+%s+(.+)%x+%s+%x+/%x+")
if( nick == BotName) then
for i=1,getn(usersimune) do
if (user.bOperator or user.sName == usersimune) then
return 1
end
end
if (GetProfileName(user.iProfile) == "VIP") then
if (saveData[user.sName]["KickCount"] == 3) then
ClearNill(user)
saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, 4,"")
Reason = FindWhat(data)
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path)
user:SendPM(BotName,"You have been banned. "..Reason)
if (main == "Active" ) then
SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
end
if (main == "Deactive") then
return 1
end
user:Ban()
elseif (saveData[user.sName]["WarnCount"] == 3 or saveData[user.sName]["KickCount"] == 1 or saveData[user.sName]["KickCount"] == 2) then
ClearNill(user)
saveData[user.sName]["WarnCount"] = saveData[user.sName]["WarnCount"] + 1
saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, saveData[user.sName]["KickCount"],"")
saveKickCount(user.sName, "",saveData[user.sName]["WarnCount"])
Reason = FindWhat(data)
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..saveData[user.sName]["KickCount"].." kicks. Reason: "..Reason.." FILE: "..path)
user:SendPM(BotName,"You have been kicked "..saveData[user.sName]["KickCount"].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
--appendto(kicklog)
-----------------------------------//only thing i don't konw werks is user.sIP... i'm not a ptokax sciptor..
saveLogData(timeNow, user.sName, user.sIP, Reason, path, "Temp Ban")
-----------//////////////////////////////////////------------------------------------------------------
--write("\r\n"..user.sName.."|"..Reason.."|"..path.."|"..kick[user.sName].."|"..GetTime())
--writeto()
if (main == "Active" ) then
SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
end
if (main == "Deactive") then
return 1
end
user:TempBan()
elseif (saveData[user.sName]["WarnCount"] == 0 or saveData[user.sName]["WarnCount"] == 1 or saveData[user.sName]["WarnCount"] == 2) then
ClearNill(user)
saveData[user.sName]["WarnCount"] = saveData[user.sName]["WarnCount"] + 1
saveKickCount(user.sName, "",saveData[user.sName]["WarnCount"])
Reason = FindWhat(data)
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..saveData[user.sName]["WarnCount"].." warns. Reason: "..Reason.." FILE: "..path)
user:SendPM(BotName, "You have been warned "..saveData[user.sName]["WarnCount"].." time(s) at 3 you will be kicked. "..Reason.." FILE: "..path)
user:SendPM(BotName, "You can come back when you have corrected the problem")
user:SendPM(BotName, "Disconnected...")
-----------------------------------//only thing i don't konw werks is user.sIP... i'm not a ptokax sciptor..
saveLogData(timeNow, user.sName, user.sIP, Reason, path, "Disconnect")
-----------//////////////////////////////////////------------------------------------------------------
user:Disconnect()
end
elseif not(user.bOperator and GetProfileName(user.iProfile) == "VIP" and user.sName == usersimune) then --this will solve the double log i think
if (saveData[user.sName]["KickCount"] == 3) then
ClearNill(user)
saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, saveData[user.sName]["KickCount"],"")
Reason = FindWhat(data)
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path)
user:SendPM(BotName,"You have been banned. "..Reason)
if (main == "Active" ) then
SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
end
if (main == "Deactive") then
return 1
end
-----------------------------------//only thing i don't konw werks is user.sIP... i'm not a ptokax sciptor..
saveLogData(timeNow, user.sName, user.sIP, Reason, path, "Ban")
-----------//////////////////////////////////////------------------------------------------------------
user:Ban()
elseif (saveData[user.sName]["KickCount"] == 0 or saveData[user.sName]["KickCount"] == 1 or saveData[user.sName]["KickCount"] then
ClearNill(user)
saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, saveData[user.sName]["KickCount"],"")
user:SendData(Bot, saveData[user.sName]["KickCount"])
Reason = FindWhat(data)
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..saveData[user.sName]["KickCount"].." kicks. Reason: "..Reason.." FILE: "..path)
user:SendPM(BotName,"You have been kicked "..saveData[user.sName]["KickCount"].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
--appendto(kicklog)
-----------------------------------//only thing i don't konw werks is user.sIP... i'm not a ptokax sciptor..
saveLogData(timeNow, user.sName, user.sIP, Reason, path, "Temp Ban")
-----------//////////////////////////////////////------------------------------------------------------
--write("\r\n"..user.sName.."|"..Reason.."|"..path.."|"..kick[user.sName].."|"..GetTime())
--writeto()
if (main == "Active" ) then
SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
end
if (main == "Deactive") then
return 1
end
user:TempBan()
end
is any bug in Robo that att 2000 users
or what
i have the ptokax log file but i dont will help me
end yes i have to reinstall all software and skript
and i don?t knowe programing
small questions but to me they are big
thanks for your time
/Domino
For the second script try changing this ...
saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, saveData[user.sName]["KickCount"],"")
user:SendData(Bot, saveData[user.sName]["KickCount"])to this saveData[user.sName]["KickCount"] = saveData[user.sName]["KickCount"] + 1
saveKickCount(user.sName, saveData[user.sName]["KickCount"])
user:SendData(Bot, saveData[user.sName]["KickCount"])Hope it helps. ..
i don't know if you upload stuff with your client but check the next graph.
Maximum upload speed of 10.000 Mbit's
can handle maximum 2023 users
-------------------------------------------------
Upload per second: 10.000 Mbits 1.250 MB
Upload per minute: 118.585 Mbits 14.823 MB
Upload per hour: 6.948 Gbits 889.391 MB
Upload per day: 166.761 Gbits 20.845 GB
Upload per month: 4.886 Tbits 625.353 GB
-------------------------------------------------
This is just the uploaded data
-------------------------------------------------this is for a old version of verlihub, ptokax uses a bit more upload.
plop
Thanks a lot