PtokaX forum

QuoteOriginally posted by blackwings
This isn't tested, but I think it should work =

Code Select Expand

--##Simple blocking of users that has VIP in username, but isn't a VIP
--##Made by blackwings

function DataArrival(User , data)
if strsub(data, 1, 7) == "$MyINFO"  and User.iProfile ~= 2 then
if strfind(data, "vip") then
User:Disconnect()
end
end
end

Quote



string = "   Welcome to Heaven   "
   

stringloop = string
length = 20
speed = 1300

function Main()
   SetTimer(speed)
   StartTimer()
   stringloop = gsub(stringloop, " ", " ")
end

function OnTimer()
   if T == nil then
      T = strsub(stringloop, 1, length)
      frmHub:RegBot("<  "..T.."  >")
   else
      frmHub:UnregBot("<  "..T.."  >")
      stringloop = strsub(stringloop, 2, -1)
      if strlen(stringloop) < length then
         stringloop = stringloop.." "..string
      end
      T = strsub(stringloop, 1, length)
      frmHub:RegBot("<  "..T.."  >")
   end
end

function OnExit()
   frmHub:UnregBot("<  "..T.."  >")
end

function DataArrival(user, data)
   if( strsub(data, 1, 1) == "<" ) then
      if user.iProfile == 0 then
         local s,e,cmd,onoff = strfind(data,"^%b<>%s+(%S+)%s*(%S*)")
         user:SendData(cmd)
         if cmd == "!restartscripts" then
            frmHub:UnregBot("-->"..T.."<--")
            StopTimer()
         elseif cmd == "!light" then
            user:SendData(onoff)
            if onoff == "on" then
               --SetTimer(speed)
               T = nil
               StartTimer()
               User:SendData(" started")
               return 1
            elseif onoff == "off" then
               StopTimer()
               frmHub:UnregBot("-->"..T.."<--")
               T = nil
               User:SendData(" stopped")
               return 1
            end
         end
      --else
         --user:SendData(" user level 2 low")
      end
   end
end


[/quote]



Maybe someone can help me in eliminating my problem ;)

QuoteOriginally posted by Herodes
strfind(user.sName, "[VvIiPp-]*")

I am using regular expressions ...

[VvIiPp-]* means if there is any case of any of the leters V I P and a dash ( - )  it will even get -v-I-P- ...

QuoteOriginally posted by Herodes
as soon as the user sends a myinfo ptx has a user.sName for him .. no need to check if it is a myinfo arriving ..

QuoteOriginally posted by blackwings

QuoteOriginally posted by Herodes
strfind(user.sName, "[VvIiPp-]*")

I am using regular expressions ...

[VvIiPp-]* means if there is any case of any of the leters V I P and a dash ( - )  it will even get -v-I-P- ...

this seems to work=

Code Select Expand

--##Simple blocking of users that has VIP in username, but isn't a VIP
--##Made by blackwings
--##Fixed the little bug
--##Fixed another bug
--##Added dynamic VIP prefix check
bot="Nick_cheker"
function DataArrival(User , data)
if strsub(data, 1, 7) == "$MyINFO"  and
if strfind(User.sName, "[VvIiPp-]*") then
User:SendData(bot," Remove Vip from your nick!")
User:Disconnect()
end
end
endSo I don't really need those other calculation that you made to make it check dynamiclly :)

Or am I wrong??

QuoteOriginally posted by blackwings
doh, how do I do so it will only check in the beginning of the username, I have tried to use = strlower(strsub(user.sName,1,5) in many different ways, but I can't get it to work T-T

QuoteOriginally posted by Herodes
as soon as the user sends a myinfo ptx has a user.sName for him .. no need to check if it is a myinfo arriving ..

Ok, but how do I in a simple way make it only do the dynamic search in the beginning?

QuoteOriginally posted by blackwings
*EDIT*ignore the message I wrote here before I edited this post.*EDIT*

This one works, it's search for vip dynamically in the the beginning of the username, it's simple and fast.

 =

Code Select Expand

--##Simple blocking of users that has VIP in username, but isn't a VIP
--##Made by blackwings
--##Fixed the little bug
--##Fixed another bug

bot="Nick_cheker"

function DataArrival(User , data)
if strfind(User.sName, "^[VvIiPp-%[]()]*") and User.iProfile ~= 2 then
User:SendData(bot," Remove Vip from your nick!")
User:Disconnect()
end
end

QuoteOriginally posted by imby
Caused a problem with someone with [ at the start of his name to. A vip.

Ubikk - best to wait till someone sorts this, assuming everyone doesn't ignore it!

QuoteOriginally posted by Ubikk
And I thought this was an easy script :D

QuoteOriginally posted by blackwings
my first version of my script does already do the thinge with  checking for vip with different brackets and mine is much simplier bastya ;) What we are trying to do is a dynamix search for VIP in the beginning of the username.

QuoteOriginally posted by bastya_elvtars
btw to give u a hint: search for alphabet chars only, the others may be gsubbed with ""

if my script aint good... :S

QuoteOriginally posted by bastya_elvtars
Yea, i was bothering for a week when i found the right pattern matching

This checks:

(prefix)
[prefix]
{prefxi}

and the combos of these brackets: {prefix] for example

more exact search is almost impossible

Code Select Expand

-- BadPrefixCheck by bastya_elvtars (the rock n' roll doctor)
-- based on AllowNick by Mutor
-- checks the prefix, it must be in right the beginning of the nick
-- checks only unregged users. if they log i with a bad account it means they are guests

-- // config

badpref ={ -- use lowercase please
"[vip]",
"[op]",
"[su]",
"(vip)", -- etc lost patience here :P
}

-- // end of config

function DataArrival(user,data)
   if strsub(data, 1, 13) == "$ValidateNick" then
      local sdata=strsub(data,1,strlen(data)-1)
      local _,_,nm=strfind(sdata,"$ValidateNick%s+(%S+)")
      determineprefix(nm)
   end
end

function NewUserConnected(user)
   if user.iProfile == -1 then
      if checkprefix(user)=="shit" then  return 1 end
   end
end

function determineprefix(data)
   local _,_,pr = strfind(data, "^([%[%{%(]%S+[%)%}%]])%S+")
   prefix=strlower(pr)
end

function checkprefix(user)
    local prefixes={}
      for a=1,getn(badpref) do
         prefixes[badpref[a]]=1
      end
      if not prefixes[prefix] then
         user:SendData("NickNameCheck", "\r\nYou are not allowed to use this prefix::"..prefix)
         user:Disconnect() prefixes=nil return "shit"
   end prefixes={}
end
if it does not work, someone might fix it, cause i will soon start home and cone only back on 28th

QuoteOriginally posted by 6Marilyn6Manson6
For all combinations:

QuoteOriginally posted by blackwings

QuoteOriginally posted by 6Marilyn6Manson6
For all combinations:

well, I just took the 3 most common ones :P
You know, to just have it simple and if anyone wants to add more, then they are welcome to do it  :)

QuoteOriginally posted by Ubikk
I hope your last script works, blakcwings, cause I'm tired of my hub members complaints :(

QuoteOriginally posted by blackwings

QuoteOriginally posted by Ubikk
I hope your last script works, blakcwings, cause I'm tired of my hub members complaints :(

It should work without a problem, because this is a exact search, not dynamic, so there won't be problems with users username.

QuoteOriginally posted by blackwings
NL, does your script do a dynamic search for VIP? (I mean different combination of big and small letters?)

EDIT: %p punctuation characters o.O
why did you choose to use that NL?

QuoteOriginally posted by NightLitch
%p is for every symbol char. as I understand it...

if you can break thourgh my VIP Check plz tell me how...

/NL

QuoteOriginally posted by NightLitch
Here this is a the final piece you will ever need.
You can put in more Tags you don't want...

Code Select Expand

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Updated:
--                      - Checks for users that should not have [VIP] or [REG]
--                        in the Nickname.
-- Advanced Tags:  [__V--i--P__}, {_V_]i[_P_}
--###############################################--
BotName = "TagCheck"
--###############################################--
iTags = {
["vip"] = "Remove VIP Tag from your nickname !!",
["reg"] = "Remove REG Tag from your nickname !!",
}
--###############################################--
function DataArrival(sUser,sData)
if strsub(sData, 1,7) == "$MyINFO" then
local _,_,sTag = strfind(strlower(sData), "[%[%{%(](%S+)[%]%}%)]")
if sTag then
local _,_,p1,p2,p3 = strfind(sTag, "%p*(%a*)%p*(%a*)%p*(%a*)%p*")
sTag = p1..p2..p3
if iTags[sTag] then
sUser:SendData(BotName, iTags[sTag])
sUser:Disconnect()
end
end
end
end
--###############################################--
--// NightLitch

//NL

QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

QuoteOriginally posted by imby

QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

I did, it works good, but... now we're on LUA 5  :D

*hint hint*

QuoteOriginally posted by blackwings

QuoteOriginally posted by imby

QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

I did, it works good, but... now we're on LUA 5  :D

*hint hint*

heh, you have the ptokax beta :P you found out what the adress to the hub where PPK is >_>