Speed TimeBAN message!
 

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

Speed TimeBAN message!

Started by TTB, 13 April, 2005, 16:49:13

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

TTB

Hi,

New ban script... Easy to use.  

-- Made by TTB, 13-04-2005 scripted in LUA5
-- Timeban for low speed with message...
-- usage: #sb  
-------------------------------------------

-- ## Start edit here ## --

Bot = "?Bot-Player?"		-- Your bot name
cmd1 = 	"#sb"			-- Command with prefix
time = 30			-- Time of the timeban
speedmin = 100			-- Minimum speed in KBs.

-- Here you can put your extra message if you like. This will send to the victim in PM!
extramessage = "If you don't agree, send an e-mail to: . Please don't spam us with your own mistakes!"

-- ## Don't change script below if you don't know LUA ## --

function ChatArrival(curUser, data)
local s,e,cmd, vic, speed = string.find(data, "%b<>%s+(%S+)%s*(%S*)%s*(%d*).*|")
local speed = tonumber(speed)
	if cmd == cmd1 then
		if not (curUser.bOperator or curUser.iProfile >=4) then
			curUser:SendData(Bot, "*** You are not allowed to use this nice command!")
			elseif vic == nil or speed == nil then
				curUser:SendData(Bot, "*** Syntax error! Usage: "..cmd1.."  ")
			elseif  speed >= speedmin then 
				curUser:SendData(Bot, "*** Min. speed is set to "..speedmin.."KBs! "..speed.."KBs even or more!")
			elseif (GetItemByName(vic) == nil) then
                        	curUser:SendData(Bot, "The user:  '"..vic.."' is not online a.t.m. Speedban command denied!")
		
		else      
                        local victim = GetItemByName(vic)          
                        if victim.iProfile ~= 0 and victim.iProfile ~= 1 and victim.iProfile ~= 4 and victim.iProfile ~= 5 then	                        
				SendPmToOps(Bot, "*** The user: "..vic.." has been timebanned by "..curUser.sName.." for speed issues! Victim speed: "..speed.." KBs!")
				SendToAll(Bot, curUser.sName.." timebanned user "..vic.." for: "..time.." minutes - Reason: Your speed is below "..speedmin.." KBs! In fact, it is "..speed.." KBs. Read PM for more info!")
				victim:SendPM(Bot, "You are timebanned for "..time.." minutes by "..curUser.sName.." because: Your speed is below "..speedmin.." KBs. In fact, it is "..speed.." KBs. "..extramessage)
				victim:TimeBan(time)
			else
				curUser:SendData(Bot, "You can't kick a crew member!!")
			end
		end
		return 1
	end
end
TTB

(? ?.??.-> Admin @ Surfnet hubs <-.??.???)

SMF spam blocked by CleanTalk