PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: lazyj189 on 21 October, 2003, 07:14:49

Title: help with robocop
Post by: lazyj189 on 21 October, 2003, 07:14:49
function DoDcPlusChecks(user)

   for key,checkWord in forbiddenWords do
      if strfind(user.sMyInfoString, checkWord, 1, 1) then
         -- I spend no words to the stupid [DONKEY]
         WriteKickBan(date("%d").."/"..date("%m").."-"..date("%Y").." "..date("%T").." "..user.sName.." ("..user.sIP..") - Reason: MlDonkey Client")
         --user:TempBan()
         --user:Disconnect()
         RedirectsUser(user)
         break
      end
   end

function RedirectsUser(user)
   SendToNick(user.sName, "<" ..sBot.."> So you are going to be redirected to: "..frmHub:GetRedirectAddress())
   SendToNick(user.sName, "<" ..sBot.."> Redirecting..")
   user:SendData("$ForceMove "..frmHub:GetRedirectAddress())
end



Will this redirect the mldonkeys or do I have the command wrong?  I've tried tempbanning and permbanning and just disconnecting.  I'm hoping that MLDonkeys follow redirects so I can just send them away.  Please help.
Title:
Post by: lazyj189 on 21 October, 2003, 07:46:24
is there a "user:Redirect(Hub address) command that would work in here by any chance so I could redirect to another address than the one I have setup in the hub software?
Title:
Post by: klownietklowniet on 21 October, 2003, 20:50:24
You can do:

        local rd = frmHub:GetRedirectAddress()
         user:SendData("$ForceMove "..rd.."|")
Title:
Post by: lazyj189 on 25 October, 2003, 23:48:29
how about not sending them to the redirect hub that I have setup in the network settings.  I would much prefer to redirect them to "hell" or at least somewhere totally away from me.
Title:
Post by: lazyj189 on 26 October, 2003, 22:04:36
if (sYNFakeShare == "1") and checkFake(user)then
      WriteKickBan(date("%d").."/"..date("%m").."-"..date("%Y").." "..date("%T").." "..user.sName.." ("..user.sIP..") was banned - Reason: Fakeshare!")
      SendToOps(sBot,"Banned: <"..user.sName.."> because he's using a fakeshare!  - IP: "..user.sIP)
      user:SendData(sBot, "You seem to be using a fakeshare client!")
      SendToNick(user.sName, "<" ..sBot.."> Disconnects...")
      user:Ban()
      user:NickBan()
      user:Disconnect()
   end

What would I add if I wanted it to show in the mainchat with the kick message the amount in GB that the user was supposedly sharing?
Title:
Post by: kepp on 27 October, 2003, 23:17:47
Can i use it like this?

RedirectAddress1 = "xxx.no-ip.org"
RedirectAddress2 = "xxx.no-ip.org"

user:SendData("$ForceMove "..RedirectAddress1.."|")
user:SendData("$ForceMove "..RedirectAddress2.."|")

I mean, If i make a script with a command like +rd1

see my point?
Title:
Post by: lazyj189 on 28 October, 2003, 08:58:50
ya I see it.  Something like that would be awesome to have.  Back in the day *barf* of NMDC hub, the script I had running in my hub allowed for 3 different redirect addresses.  1 redirect for minimum shares, 1 redirect for dc++ abusers, and 1 redirect address for overflow.  Having the option for multiple redirect addresses inside the script would be great.  I've been trying to make the mldonkey program work on my system so I can better understand how it works so maybe I can come up with something to keep them from "attacking" my hub (not trying to just sound self centered).  As long as the mldonkey client follows redirects, it would probably be best to try and redirect them away somewhere else.  If I'm not mistaken, I believe there is a hub somewhere on the DC network that allows donkeys to log into it's hub.  I'd be more than happy to redirect them all there.  All that if you line of code will work.  I'm no expert on scripting, hell I just get lucky most of the time when I do fiddle with scripts.  Could use someone else's input on that line of code.
Title:
Post by: kepp on 28 October, 2003, 13:10:30
No syntax errors, but i don't know for sure if it works

sBot = "<[DoNKEY]>"

Donkey = { "mldonkey","mldc","client","MLDONKEY","moglo" }

badClients = { "_koala","XKing","repika","[REPLiKA]","pepek","0.233B","0.233A","0.181fr","0.241A","0.24A","Echoes" }

RedirectAddressA = "xxx.no-ip.com"
RedirectAddressB = "xxx2.no-ip.com"

function DoDcPlusChecks(user)

for key,checkWord in Donkey do
if strfind(user.sMyInfoString, checkWord, 1, 1) then
user:SendData("$ForceMove "..RedirectAddressA.."|")
end
end


function CheckBadClients(user)

for key,chekword in badClients do
if strfind(user.sMyInfoString, checkword, 1, 1) then
user:SendData("$ForceMove "..RedirectAddressB.."|")
end
end
end
end