sleeping policeman
 

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

sleeping policeman

Started by lynyrd, 15 January, 2004, 00:37:54

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

lynyrd

hi! im a bit confused about this script..
is it for stoping search bots? i found it on dc
code:
-------------------------------------------------------------------------------------------------------
                              Script = "The Sleeping Policeman"
                                        Written by the Doctor.

-------------------------------------------------------------------------------------------------------
-- Enforcing the Stop and Search -- This section makes sure that only a human who stops to search will
----------------------------------- remain free to enter. Search bots will aquire a criminal record. :)
---- Details: It will not matter what they are called, nor where they come from, but if they come to cop
-- a quick feel of the inventory they will make themselves known by their deeds and get a fair cop.


function Main(##)                          -- Set NAME to something no-one can have; make it Officious.
  NAME="Hub-Security"
  MONOSTABLE=0
end

function NewUserConnected(curUser)       -- A policeman can only feel one collar properly at a time. :)
  if (MONOSTABLE==0) then
    NAME=curUser.sName
    SEARCH=0
    MONOSTABLE=1
    SetTimer(5000)
    StartTimer()
  end
end

function DataArrival(PISSING, RAZORS)    -- A cunning copper disables the razor by extracting the urine.
  if (NAME==PISSING.sName) then
    if (strsub(RAZORS, 1, 7) == "$Search") then
    SEARCH=1
    end
  end
end

function OnTimer()                       -- A resident policeman also has to be as discreet as a butler.
  SendToNick(NAME, "     "..NAME.."...  Welcome To "..frmHub:GetHubName()..".")
  NAME="Hub-Security"
  MONOSTABLE=0
  StopTimer()
end

function UserDisconnected(curUser)       -- Intruders may leave freely, but the door is barred with iron.
  if (NAME==curUser.sName) then
    if (SEARCH==1) then
      frmHub:AddRegUser(NAME, "SB - "..(random()+mod(clock()/1E3,1))*1E15, 0)
    end
    StopTimer()
  end
end
-----------------------------------------------------------------------------------------------

SMF spam blocked by CleanTalk