PtokaX forum

Hi,

I almost finished my BanMe script... But there is one big problem... I can't make the reason part work... I'll explain:

The user kan timeban himself with the time he/she gives... Now I want it like this:
#banme

I have made this (some parts of the script):

Code Select Expand

function DataArrival(curUser, data)
   if (strsub(data, 1, 1) == "<" ) then
    data=strsub(data,1,strlen(data)-1)
    s,e,cmd = strfind(data,"%b<>%s+(%S+)")

....

    elseif (cmd == Bancmd) then
     local s,e,time,reason= strfind(data,"%b<>%s+%S+%s+(%A+)+s%+(.+)")
      if time == nil or reason == nil then
       curUser:SendData(Bot, "Syntax error! Please use: "..Bancmd.." to ban yourself! Reason is optional. Min. timeban = "..minBan.." minute(s)! Max timeban = "..maxBan.." minutes! Be careful with this command. Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
      else      
       TrigBen(curUser,time,reason,data)
      end
    return 1
    end
   end
end

--WITH THE FUNCTION:

function TrigBen(curUser,time,reason,data)
if time then
local time = tonumber(time)
         if (time >= maxBan) then
          time = maxBan
         elseif (time >= minBan) then
          time = minBan
         end
         if reason == nil then
         curUser:SendPM(Bot, "You have banned yourself for "..time.." minutes and without any reason! Hope to see you back again :) Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
          SendToAll(Bot, "*** The user: "..curUser.sName.." has banned himself/herself for "..time.." minutes...! Reason: UNKNOWN! ***")
           if (opNote == "1") then
            SendPmToOps(Bot, "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! ***")
           elseif (opNote == "2") then
            SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! ***")
           end
         else
          curUser:SendPM(Bot, "You have banned yourself for "..time.." minutes with the reason: "..reason..". Hope to see you back again :) Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!")
          SendToAll(Bot, "*** The user: "..curUser.sName.." has banned himself/herself for "..time.." minutes. This was his/her reason: "..reason.." ***")
           if (opNote == "1") then
            SendPmToOps(Bot, "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! His/here reason: "..reason.." ***")
  elseif (opNote == "2") then
            SendPmToOps(frmHub:GetOpChatName(), "*** The user "..curUser.sName.." has banned himself/herself for "..time.." minutes! His/here reason: "..reason.." ***")
          end
        end
       curUser:TimeBan(time)
        else
         curUser:SendData(Bot, "Min. timeban = "..minBan.." minute(s)! Max timeban = "..maxBan.." minutes! Be careful with this command.")  
        end
  return 1
end


I think only the string part is wrong... why?? I don't know. If I test it, always this message will appear:

Code Select Expand

Syntax error! Please use: #banme to ban yourself! Reason is optional. Min. timeban = 1 minute(s)! Max timeban = 1440 minutes! Be careful with this command. Please don't spam us by e-mail with your own mistakes. We won't unban you! You knew the risks...!
It looks like thisone is wrong:

Code Select Expand

local s,e,time,reason= strfind(data,"%b<>%s+%S+%s+(%A+)+s%+(.+)")Is it wrong?? And why is it wrong? I don't understand this.

I have also another question about this... All strings will start with this:

Code Select Expand

_,_,var1,var2  or s,e,var1,var2What does the "s" and "e"  mean?

Please help me finishing my script, and please explain what I did wrong

local s,e,time,reason= strfind(data,"%b<>%s+%S+%s+(%A+)+s%+(.+)")
you made a tiny typing error here.
before grabbing the reason you typed +s%+
this should be %s*
and as the reason can be optional you should also replace (.+) for (.*).
+ means 1 or more, while * means 0 or more (returns "" when not found).

plop

Hi,

first of all, thanx for your reply plop. I have spent a lot of time on this script because I like this language and try to understand this language very well... :)

I have changed the string, indeed, that was a little typing error. After fixing this, I still got the same problem.

String:local s,e,time,reason= strfind(data,"%b<>%s+%S+%s+(%A+)+%s+(.*)")
I have tried also some other things, like changing (.*) into (%S+)... Same problem.

Maybe something else I have to change?