can you convert please
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

can you convert please

Started by Tw?sT?d-d?v, 16 November, 2005, 23:20:08

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Tw?sT?d-d?v

16 November, 2005, 23:20:08
Hi scripters .... found this script and wandered if you can convert to lua 5 please ..... and if its worth using

-- sneaky anti advertising bot by plop
-- it replaces the url's users post for your own.   lol
-- let them work for you, instead of against you
-- thx again for the hints from rabidwombat


WEBSITE = "http://www.undergroundempires.tk/"
HUBADRESS ="empires.mine.nu"

OKSITES = { ["http://www.optimaldc.tk/"] = 1, ["http://www.empiresdc.tk/"] = 1 }

OKHUBS = { ["empires.mine.nu"] = 1, ["optimal.mine.nu"] = 1, ["empires.mine.nu"] = 1}

function DataArrival(user, data)
   if user.iProfile == -1 or user.iProfile == 3 then
      if (strsub(data, 1, 1) == "<") then
      --if not(strsub(data, 1, 4) == "$To:") then 
         data = strsub(data, 1, (strlen(data)-1))
         local s,e,msg,webadver,msg2 = strfind(data, "%b<>%s(.*)http://([^%.]+%.[^%.]+%.%S+)(.*)$")
         if webadver ~= nil then 
            local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
            if webby == nil then webby = webadver end
            if OKSITES[webby] == nil then
               SendToAll(user.sName, msg..WEBSITE..msg2)
               return 1
            end
         else 
            local s,e,msg,webadver,msg2 = strfind(data, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
            if webadver ~= nil then
               local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
               if webby == nil then webby = webadver end
               if OKSITES[webby] == nil then
                  SendToAll(user.sName, msg..WEBSITE..msg2)
                  return 1
               end
            else
               local s,e, adver = strfind(data, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
               if adver ~= nil then 
                  local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                  if hubby == nil then hubby = adver end
                  if OKHUBS[hubby] == nil then
                     SendToAll(user.sName, HUBADRESS)
                     return 1
                  end
               else
                  local s,e,msg,adver,msg2 = strfind(data, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
                  if adver ~= nil then 
                     local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                     if hubby == nil then hubby = adver end
                     if OKHUBS[hubby] == nil then
                        SendToAll(user.sName, msg.." "..HUBADRESS..msg2)
                        return 1
                     end
                  end
               end
            end
         end
      else
         --local s,e,to,text = strfind(data, "%$To: (%S+) From: %S %$(.+)$") 
                            local s,e,to,text = strfind(data,    "%$To:%s(%S+)%sFrom:%s%S+%s$(.*)$")
         if(to == nil) then return 0 end
         to = GetItemByName(to)
         if to.iProfile == -1 or to.iProfile == 3 then
            text = strsub(text, 1, (strlen(text)-1))
            local s,e,msg,webadver,msg2 = strfind(text, "%b<>%s(.*)http://([^%.]+%.[^%.]+%.%S+)(.*)$")
            if webadver ~= nil then 
               local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
               if webby == nil then webby = webadver end
               if OKSITES[webby] == nil then
                  SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
                  return 1
               end
            else 
               local s,e,msg,webadver,msg2 = strfind(text, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
               if webadver ~= nil then
                  local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
                  if webby == nil then webby = webadver end
                  if OKSITES[webby] == nil then
                     SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
                     return 1
                  end
               else
                  local s,e, adver = strfind(text, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
                  if adver ~= nil then 
                     local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                     if hubby == nil then hubby = adver end
                     if OKHUBS[hubby] == nil then
                        SendPmToNick(to.sName, user.sName, HUBADRESS)
                        return 1
                     end
                  else
                     local s,e,msg,adver,msg2 = strfind(text, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
                     if adver ~= nil then 
                        local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                        if hubby == nil then hubby = adver end
                        if OKHUBS[hubby] == nil then
                           SendPmToNick(to.sName, user.sName, msg.." "..HUBADRESS..msg2)
                           return 1
                        end
                     end
                  end
               end
            end
         end
      end
   end
end

6Marilyn6Manson6

#1
17 November, 2005, 07:39:38 Last Edit: 17 November, 2005, 07:57:47 by 6Marilyn6Manson6
Hi, try this: (Not Tested)

-- sneaky anti advertising bot by plop
-- it replaces the url's users post for your own.   lol
-- let them work for you, instead of against you
-- thx again for the hints from rabidwombat
-- Converted by 6Marilyn6Manson6 by 17/11/2005

WEBSITE = "http://www.undergroundempires.tk/"
HUBADRESS ="empires.mine.nu"

OKSITES = { ["http://www.optimaldc.tk/"] = 1, ["http://www.empiresdc.tk/"] = 1 }
OKHUBS = { ["empires.mine.nu"] = 1, ["optimal.mine.nu"] = 1, ["empires.mine.nu"] = 1}

function ChatArrival(user, data)
	if user.iProfile == -1 or user.iProfile == 3 then
		data = string.sub(data, 1, (string.len(data)-1))
		local s,e,msg,webadver,msg2 = string.find(data, "%b<>%s(.*)[URL]http://[/URL]([^%.]+%.[^%.]+%.%S+)(.*)$")
		if webadver ~= nil then 
		local s,e,webby = string.find(webadver, "(%S+%.[^%.]+%.%a+)/.*")
			if webby == nil then webby = webadver end
				if OKSITES[webby] == nil then
					SendToAll(user.sName, msg..WEBSITE..msg2)
					return 1
				end
			else 
			local s,e,msg,webadver,msg2 = string.find(data, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
				if webadver ~= nil then
				local s,e,webby = string.find(webadver, "(%S+%.[^%.]+%.%a+)/.*")
					if webby == nil then webby = webadver end
						if OKSITES[webby] == nil then
							SendToAll(user.sName, msg..WEBSITE..msg2)
							return 1
						end
					else
					local s,e, adver = string.find(data, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
					if adver ~= nil then 
					local s,e,hubby = string.find(adver, "(%S+%.[^%.]+%.%a+)/.*")
						if hubby == nil then hubby = adver end
							if OKHUBS[hubby] == nil then
								SendToAll(user.sName, HUBADRESS)
								return 1
							end
						else
						local s,e,msg,adver,msg2 = string.find(data, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
							if adver ~= nil then 
							local s,e,hubby = string.find(adver, "(%S+%.[^%.]+%.%a+)/.*")
								if hubby == nil then hubby = adver end
									if OKHUBS[hubby] == nil then
										SendToAll(user.sName, msg.." "..HUBADRESS..msg2)
										return 1
									end
							end
					end
			end
	end
	else
	local s,e,to,text = string.find(data,    "%$To:%s(%S+)%sFrom:%s%S+%s$(.*)$")
		if(to == nil) then return 0 end
		to = GetItemByName(to)
			if to.iProfile == -1 or to.iProfile == 3 then
			text = string.sub(text, 1, (string.len(text)-1))
			local s,e,msg,webadver,msg2 = string.find(text, "%b<>%s(.*)[URL]http://[/URL]([^%.]+%.[^%.]+%.%S+)(.*)$")
				if webadver ~= nil then 
				local s,e,webby = string.find(webadver, "(%S+%.[^%.]+%.%a+)/.*")
					if webby == nil then webby = webadver end
						if OKSITES[webby] == nil then
							SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
							return 1
						end
					else 
					local s,e,msg,webadver,msg2 = string.find(text, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
						if webadver ~= nil then
							local s,e,webby = string.find(webadver, "(%S+%.[^%.]+%.%a+)/.*")
							if webby == nil then webby = webadver end
								if OKSITES[webby] == nil then
									SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
									return 1
								end
							else
							local s,e, adver = string.find(text, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
							if adver ~= nil then 
							local s,e,hubby = string.find(adver, "(%S+%.[^%.]+%.%a+)/.*")
								if hubby == nil then hubby = adver end
									if OKHUBS[hubby] == nil then
										SendPmToNick(to.sName, user.sName, HUBADRESS)
										return 1
									end
								else
								local s,e,msg,adver,msg2 = string.find(text, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
									if adver ~= nil then 
										local s,e,hubby = string.find(adver, "(%S+%.[^%.]+%.%a+)/.*")
											if hubby == nil then hubby = adver end
												if OKHUBS[hubby] == nil then
													SendPmToNick(to.sName, user.sName, msg.." "..HUBADRESS..msg2)
													return 1
												end
												end
										end
								end
						end
				end
		end
end

C ya

Tw?sT?d-d?v

#2
17 November, 2005, 18:05:32
cheers 6Marilyn6Manson6 gonna test it now  :D

6Marilyn6Manson6

#3
17 November, 2005, 18:53:42
QuoteOriginally posted by (uk)jay
cheers 6Marilyn6Manson6 gonna test it now  :D


:D
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk