<?xml version="1.0"?>
<rss version="2.0"><channel><title>Proctections Latest Topics</title><link>https://www.coders-resources.net/ipb/forums/forum/77-proctections/</link><description>Proctections Latest Topics</description><language>en</language><item><title>Set USB flash drive to READONLY in Windows</title><link>https://www.coders-resources.net/ipb/forums/topic/6568-set-usb-flash-drive-to-readonly-in-windows/</link><description><![CDATA[<p style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	Here are two Windows .cmd batch file scripts that will enable you to make your removable flash drives read-only and writeable again.
</p>

<p style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	Reasons for doing this?:
</p>

<ul style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	<li>
		Prevent a virus infected computer from infecting your files.
	</li>
	<li>
		Prevent a public computer's antivirus program from deleting your files.
	</li>
	<li>
		Prevent some idiot from deleting or corrupting your porn. Your porn should corrupt them!
	</li>
	<li>
		Prevent a smart tv, photo kiosk, car stereo, android, etc from adding folders and shit to your drive.
	</li>
</ul>

<p style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	These scripts basically perform a simple series of<span> </span><code style="background-color:#ffffff; border-radius:4px; color:#333333; font-size:16px; padding:0px">DISKPART</code><span> </span>commands, namely<span> </span><code style="background-color:#ffffff; border-radius:4px; color:#333333; font-size:16px; padding:0px">ATTRIBUTES DISK SET READONLY</code><span> </span>and<span> </span><code style="background-color:#ffffff; border-radius:4px; color:#333333; font-size:16px; padding:0px">ATTRIBUTES DISK CLEAR READONLY</code>, upon the drive which the scripts are executed from.<br>
	They must be<span> </span><em>Run As Administrator</em><span> </span>-- Right-click the files in Windows Explorer.
</p>

<p style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	ProTip: You obviously can't create or modify files when your drive is set to read-only. So, um, copy both files before testing this.<br>
	Additionally, some drives may appear like files are being written to them, but you're probably just seeing Windows write caching. Eject and reinsert the drive to confirm that changes are impossible and discarded while the drive is set to read-only.
</p>

<p style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">
	 
</p>

<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_4590_5" style=""><span class="kwd">file</span><span class="pun">:</span><span class="pln"> disk-readonly</span><span class="pun">.</span><span class="pln">cmd

</span><span class="pun">@</span><span class="pln">rem disk-readonly</span><span class="pun">.</span><span class="pln">cmd script by Raccoon </span><span class="lit">2016</span><span class="pln">
</span><span class="pun">@</span><span class="pln">rem </span><span class="kwd">DISKPART</span><span class="pun">:</span><span class="pln"> ATTR DISK SET</span><span class="pun">/</span><span class="pln">CLEAR READONLY
</span><span class="pun">@</span><span class="pln">echo off
fltmc </span><span class="pun">&gt;</span><span class="pln">nul </span><span class="lit">2</span><span class="pun">&gt;&amp;</span><span class="lit">1</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> goto admin </span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> goto noadmin </span><span class="pun">)</span><span class="pln">
</span><span class="pun">:</span><span class="pln">noadmin
echo This script must be </span><span class="str">'Run As Administrator'</span><span class="pun">.</span><span class="pln">
echo Exiting</span><span class="pun">...</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause
</span><span class="kwd">exit</span><span class="pln">

</span><span class="pun">:</span><span class="pln">admin
echo Setting drive </span><span class="pun">%~</span><span class="pln">d0 to READONLY</span><span class="pun">...</span><span class="pln">
echo </span><span class="pun">^&gt;^&gt;</span><span class="pln"> ARE YOU SURE</span><span class="pun">?</span><span class="pln"> </span><span class="pun">^&lt;^&lt;</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause
</span><span class="pun">(</span><span class="pln">echo sel vol </span><span class="pun">%~</span><span class="pln">d0 </span><span class="pun">&amp;</span><span class="pln"> echo list vol </span><span class="pun">&amp;</span><span class="pln"> echo attr disk set readonly </span><span class="pun">&amp;</span><span class="pln"> echo detail disk</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> diskpart
echo</span><span class="pun">.</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
if </span><span class="pun">%</span><span class="pln">ERRORLEVEL</span><span class="pun">%</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="pun">(</span><span class="pln">
  echo SUCCESS</span><span class="pun">!</span><span class="pln"> Drive </span><span class="pun">%~</span><span class="pln">d0 should now be READONLY</span><span class="pun">.</span><span class="pln">
</span><span class="pun">)</span><span class="pln"> else </span><span class="pun">(</span><span class="pln">
  echo Failure setting </span><span class="pun">%~</span><span class="pln">d0 to READONLY</span><span class="pun">.</span><span class="pln">
</span><span class="pun">)</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause end-of-script</span></pre>

<p>
	 
</p>

<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_4590_7" style=""><span class="kwd">file</span><span class="pun">:</span><span class="pln"> disk-writeable</span><span class="pun">.</span><span class="pln">cmd

</span><span class="pun">@</span><span class="pln">rem disk-writeable</span><span class="pun">.</span><span class="pln">cmd script by Raccoon </span><span class="lit">2016</span><span class="pln">
</span><span class="pun">@</span><span class="pln">rem </span><span class="kwd">DISKPART</span><span class="pun">:</span><span class="pln"> ATTR DISK SET</span><span class="pun">/</span><span class="pln">CLEAR READONLY
</span><span class="pun">@</span><span class="pln">echo off
fltmc </span><span class="pun">&gt;</span><span class="pln">nul </span><span class="lit">2</span><span class="pun">&gt;&amp;</span><span class="lit">1</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> goto admin </span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> goto noadmin </span><span class="pun">)</span><span class="pln">
</span><span class="pun">:</span><span class="pln">noadmin
echo This script must be </span><span class="str">'Run As Administrator'</span><span class="pun">.</span><span class="pln">
echo Exiting</span><span class="pun">...</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause
</span><span class="kwd">exit</span><span class="pln">

</span><span class="pun">:</span><span class="pln">admin
echo Setting drive </span><span class="pun">%~</span><span class="pln">d0 to WRITEABLE</span><span class="pun">...</span><span class="pln">
echo </span><span class="pun">^&gt;^&gt;</span><span class="pln"> ARE YOU SURE</span><span class="pun">?</span><span class="pln"> </span><span class="pun">^&lt;^&lt;</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause
</span><span class="pun">(</span><span class="pln">echo sel vol </span><span class="pun">%~</span><span class="pln">d0 </span><span class="pun">&amp;</span><span class="pln"> echo list vol </span><span class="pun">&amp;</span><span class="pln"> echo attr disk clear readonly </span><span class="pun">&amp;</span><span class="pln"> echo detail disk</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> diskpart
echo</span><span class="pun">.</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
if </span><span class="pun">%</span><span class="pln">ERRORLEVEL</span><span class="pun">%</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="pun">(</span><span class="pln">
  echo SUCCESS</span><span class="pun">!</span><span class="pln"> Drive </span><span class="pun">%~</span><span class="pln">d0 should now be WRITEABLE</span><span class="pun">.</span><span class="pln">
</span><span class="pun">)</span><span class="pln"> else </span><span class="pun">(</span><span class="pln">
  echo Failure setting </span><span class="pun">%~</span><span class="pln">d0 to WRITEABLE</span><span class="pun">.</span><span class="pln">
</span><span class="pun">)</span><span class="pln">
echo</span><span class="pun">.</span><span class="pln">
pause end-of-script</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">6568</guid><pubDate>Fri, 12 Jul 2024 01:54:15 +0000</pubDate></item><item><title>Multi DNS Reverse DNS Lookup</title><link>https://www.coders-resources.net/ipb/forums/topic/6567-multi-dns-reverse-dns-lookup/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_8795_4" style=""><span class="pun">;</span><span class="pln"> </span><span class="kwd">filename</span><span class="pun">:</span><span class="pln"> r_dns</span><span class="pun">.</span><span class="pln">mrc
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">----------------------------------------------</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Multi DNS Reverse DNS Lookup</span><span class="pun">.</span><span class="pln">  By Raccoon </span><span class="lit">2016</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">----------------------------------------------</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Usage</span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">dns </span><span class="pun">&lt;</span><span class="pln">address</span><span class="pun">/</span><span class="pln">ip</span><span class="pun">&gt;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">like normal</span><span class="pun">)</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Suppliments regular </span><span class="pun">/</span><span class="pln">dns lookups if an address returns more than one IP result</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Usage</span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">rdns </span><span class="pun">&lt;</span><span class="pln">address</span><span class="pun">/</span><span class="pln">ip</span><span class="pun">&gt;</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Resolves all IPs associated with an address</span><span class="pun">,</span><span class="pln"> and performs a reverse NS lookup on each IP</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> You can use optional switches from the </span><span class="pun">/</span><span class="pln">dns command </span><span class="pun">[-</span><span class="lit">46ch</span><span class="pun">].</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Examples</span><span class="pun">:</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">/</span><span class="pln">dns irc</span><span class="pun">.</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">org
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> Dns resolved irc</span><span class="pun">.</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">org to </span><span class="lit">141.213.238.252</span><span class="pln"> </span><span class="lit">91.217.189.5</span><span class="pln"> </span><span class="lit">66.225.225.225</span><span class="pln"> </span><span class="lit">128.39.65.230</span><span class="pln"> </span><span class="lit">193.163.220.3</span><span class="pln"> </span><span class="lit">67.218.118.62</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   </span><span class="lit">209.222.22.22</span><span class="pln"> </span><span class="lit">198.47.99.99</span><span class="pln"> </span><span class="lit">194.126.217.2</span><span class="pln"> </span><span class="lit">195.140.202.142</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">/</span><span class="pln">rdns irc</span><span class="pun">.</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">org
</span><span class="pun">;</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> RDNS </span><span class="pun">(</span><span class="lit">421ms</span><span class="pun">)</span><span class="pln"> irc</span><span class="pun">.</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">org </span><span class="pun">(</span><span class="lit">10</span><span class="pun">):</span><span class="pln"> </span><span class="lit">128.39.65.230</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">underworld</span><span class="pun">.</span><span class="pln">no</span><span class="pun">]</span><span class="pln"> </span><span class="lit">195.140.202.142</span><span class="pun">[</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">port80</span><span class="pun">.</span><span class="pln">se</span><span class="pun">]</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   </span><span class="lit">91.217.189.5</span><span class="pun">[</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">portlane</span><span class="pun">.</span><span class="pln">se</span><span class="pun">]</span><span class="pln"> </span><span class="lit">141.213.238.252</span><span class="pun">[</span><span class="pln">pegasus</span><span class="pun">.</span><span class="pln">us</span><span class="pun">.</span><span class="pln">itd</span><span class="pun">.</span><span class="pln">umich</span><span class="pun">.</span><span class="pln">edu</span><span class="pun">]</span><span class="pln"> </span><span class="lit">66.225.225.225</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">servercentral</span><span class="pun">.</span><span class="pln">net</span><span class="pun">]</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   </span><span class="lit">194.126.217.2</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">efnet</span><span class="pun">.</span><span class="pln">fr</span><span class="pun">]</span><span class="pln"> </span><span class="lit">193.163.220.3</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">inet</span><span class="pun">.</span><span class="pln">tele</span><span class="pun">.</span><span class="pln">dk</span><span class="pun">]</span><span class="pln"> </span><span class="lit">209.222.22.22</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">choopa</span><span class="pun">.</span><span class="pln">net</span><span class="pun">]</span><span class="pln"> </span><span class="lit">67.218.118.62</span><span class="pun">[</span><span class="pln">no-rdns</span><span class="pun">]</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   </span><span class="lit">198.47.99.99</span><span class="pun">[</span><span class="pln">irc</span><span class="pun">.</span><span class="pln">mzima</span><span class="pun">.</span><span class="pln">net</span><span class="pun">]</span><span class="pln">

ALIAS RDNS </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">switches
  if </span><span class="pun">(-*</span><span class="pln"> iswm </span><span class="pun">$</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">switches </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> tokenize </span><span class="lit">32</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo -stic info </span><span class="pun">*</span><span class="pln"> </span><span class="kwd">RDNS</span><span class="pun">:</span><span class="pln"> There is already an RDNS being processed</span><span class="pun">.</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> return </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">0</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo -stic info </span><span class="pun">*</span><span class="pln"> </span><span class="kwd">Usage</span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">rdns </span><span class="pun">&lt;</span><span class="pln">address</span><span class="pun">/</span><span class="pln">ip</span><span class="pun">&gt;</span><span class="pln"> or </span><span class="pun">/</span><span class="pln">rdns </span><span class="pun">[-</span><span class="lit">46ch</span><span class="pun">]</span><span class="pln"> </span><span class="pun">&lt;</span><span class="pln">address</span><span class="pun">/</span><span class="pln">ip</span><span class="pun">&gt;</span><span class="pln"> </span><span class="pun">(</span><span class="kwd">see</span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">help </span><span class="pun">/</span><span class="pln">dns</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> return </span><span class="pun">}</span><span class="pln">
  set -eu120 </span><span class="pun">%</span><span class="pln">RDNS </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">tries </span><span class="lit">5</span><span class="pln">
  set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ticks </span><span class="pun">$</span><span class="pln">ticks
  set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">dns -c
  </span><span class="pun">.</span><span class="pln">dns </span><span class="pun">%</span><span class="pln">switches </span><span class="pun">%</span><span class="pln">RDNS
</span><span class="pun">}</span><span class="pln"> </span><span class="pun">;</span><span class="pln"> by Raccoon </span><span class="lit">2016</span><span class="pln">

On </span><span class="pun">*:</span><span class="kwd">DNS</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> </span><span class="pun">($</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">).</span><span class="pln">addr </span><span class="pun">==</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">($</span><span class="pln">v1 isin </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">($</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">).</span><span class="pln">ip </span><span class="pun">==</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">($</span><span class="pln">istok</span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ips</span><span class="pun">,$</span><span class="pln">v1</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(!%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr</span><span class="pun">)</span><span class="pln"> set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">).</span><span class="pln">addr
    dec -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue
    var </span><span class="pun">%</span><span class="pln">i </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">n </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">),</span><span class="pln"> </span><span class="pun">%</span><span class="pln">ip</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">addr
    while </span><span class="pun">(%</span><span class="pln">i </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">n</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      var </span><span class="pun">%</span><span class="pln">ip </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(%</span><span class="pln">i</span><span class="pun">).</span><span class="pln">ip
      var </span><span class="pun">%</span><span class="pln">addr </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(%</span><span class="pln">i</span><span class="pun">).</span><span class="pln">addr
      if </span><span class="pun">(!$</span><span class="pln">istok</span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ips</span><span class="pun">,%</span><span class="pln">ip</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ips </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ips </span><span class="pun">%</span><span class="pln">ip
        set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output </span><span class="pun">%</span><span class="pln">ip
        var </span><span class="pun">%</span><span class="pln">newipfound </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">true
        inc </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="lit">1</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">dns </span><span class="pun">%</span><span class="pln">ip
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">($</span><span class="pln">istok</span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output</span><span class="pun">,%</span><span class="pln">ip</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        if </span><span class="pun">(%</span><span class="pln">n </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          set -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output </span><span class="pun">$</span><span class="pln">reptok</span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output</span><span class="pun">,%</span><span class="pln">ip</span><span class="pun">,%</span><span class="pln">ip </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">(%</span><span class="pln">addr</span><span class="pun">,$</span><span class="pln">v1</span><span class="pun">,</span><span class="pln">no-rdns</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]],</span><span class="lit">0</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
        else </span><span class="pun">{</span><span class="pln"> noop </span><span class="pun">;</span><span class="pln"> not an rdns but a round robin because n </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      else </span><span class="pun">{</span><span class="pln"> noop </span><span class="pun">;</span><span class="pln"> discard</span><span class="pun">.</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">i
    </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">newipfound</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="lit">1</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">dns </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">tries </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      if </span><span class="pun">((%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">addr </span><span class="pun">==</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr</span><span class="pun">))</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        dec -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">tries </span><span class="lit">1</span><span class="pln">
        inc -eu120 </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="lit">1</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">dns </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">queue </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      var </span><span class="pun">%</span><span class="pln">ticks </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">calc</span><span class="pun">($</span><span class="pln">ticks </span><span class="pun">-</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">ticks</span><span class="pun">)</span><span class="pln">
      echo -atic notice </span><span class="pun">*</span><span class="pln"> RDNS </span><span class="pun">(</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">ticks </span><span class="pun">$+</span><span class="pln"> ms</span><span class="pun">)</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">addr </span><span class="pun">(</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">):</span><span class="pln"> </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.</span><span class="pln">output
      unset </span><span class="pun">%</span><span class="pln">RDNS</span><span class="pun">.*</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln">RDNS
    </span><span class="pun">}</span><span class="pln">
    haltdef
  </span><span class="pun">}</span><span class="pln">

  </span><span class="pun">;</span><span class="pln"> Multi-DNS </span><span class="pun">--</span><span class="pln"> automatically replace regular </span><span class="pun">/</span><span class="pln">dns output if multiple IP results</span><span class="pun">.</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">i </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">n </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">v1
    var </span><span class="pun">%</span><span class="pln">address </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">).</span><span class="pln">addr</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">ip </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">dns</span><span class="pun">(</span><span class="lit">0</span><span class="pun">).</span><span class="pln">ip
    while </span><span class="pun">(%</span><span class="pln">i </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">n</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      var </span><span class="pun">%</span><span class="pln">address </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">addtok</span><span class="pun">(%</span><span class="pln">address</span><span class="pun">,$</span><span class="pln">dns</span><span class="pun">(%</span><span class="pln">i</span><span class="pun">).</span><span class="pln">addr</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
      var </span><span class="pun">%</span><span class="pln">ip </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">addtok</span><span class="pun">(%</span><span class="pln">ip</span><span class="pun">,$</span><span class="pln">dns</span><span class="pun">(%</span><span class="pln">i</span><span class="pun">).</span><span class="pln">ip</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">i
    </span><span class="pun">}</span><span class="pln">
    echo -stic other </span><span class="pun">*</span><span class="pln"> Dns resolved </span><span class="pun">%</span><span class="pln">address to </span><span class="pun">%</span><span class="pln">ip
    haltdef
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> </span><span class="pun">;</span><span class="pln"> by Raccoon </span><span class="lit">2016</span><span class="pln">

</span><span class="pun">;</span><span class="pln"> End of Script</span><span class="pun">.</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">6567</guid><pubDate>Fri, 12 Jul 2024 01:50:21 +0000</pubDate></item><item><title>$is_nickspam() - Nickname Highlight Spam Detection</title><link>https://www.coders-resources.net/ipb/forums/topic/6564-is_nickspam-nickname-highlight-spam-detection/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_3102_4" style=""><span class="pun">;</span><span class="pln"> </span><span class="pun">$</span><span class="pln">is_nickspam</span><span class="pun">()</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> Nickname Highlight Spam Detector by Raccoon </span><span class="lit">2017</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Parameters</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">is_nickspam</span><span class="pun">(&lt;</span><span class="pln">channel</span><span class="pun">&gt;,&lt;</span><span class="pln">text</span><span class="pun">&gt;,[</span><span class="pln">M</span><span class="pun">=</span><span class="lit">6</span><span class="pun">],[</span><span class="pln">N</span><span class="pun">=</span><span class="lit">8</span><span class="pun">])</span><span class="pln">  </span><span class="kwd">eg</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">is_nickspam</span><span class="pun">($</span><span class="pln">chan</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">-,</span><span class="lit">6</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">  or just  </span><span class="pun">$</span><span class="pln">is_nickspam</span><span class="pun">($</span><span class="pln">chan</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">-)</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   Where M </span><span class="pun">(&gt;=</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> is minimum nickname length to regard</span><span class="pun">,</span><span class="pln"> and N </span><span class="pun">(&gt;=</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> is number of matches considered as spammy</span><span class="pun">.</span><span class="pln">  </span><span class="kwd">Defaults</span><span class="pun">:</span><span class="pln"> M </span><span class="pun">=</span><span class="pln"> </span><span class="lit">6</span><span class="pun">,</span><span class="pln"> N </span><span class="pun">=</span><span class="pln"> </span><span class="lit">8</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Returns</span><span class="pun">:</span><span class="pln"> Number of positive nickname matches in the string</span><span class="pun">,</span><span class="pln"> if it exceeds </span><span class="pun">[</span><span class="pln">N</span><span class="pun">].</span><span class="pln">  Returns </span><span class="lit">0</span><span class="pln"> if less than </span><span class="pun">[</span><span class="pln">N</span><span class="pun">].</span><span class="pln"> 
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Note</span><span class="pun">:</span><span class="pln"> This script looks at nickname parts that contain Letters</span><span class="pun">,</span><span class="pln"> Numbers and Underscores</span><span class="pun">,</span><span class="pln"> to detect variously decorated spam</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Example </span><span class="kwd">Usage</span><span class="pun">:</span><span class="pln">  </span><span class="pun">(</span><span class="pln">Un-comment the next </span><span class="lit">5</span><span class="pln"> lines to activate</span><span class="pun">,</span><span class="pln"> and enjoy</span><span class="pun">.)</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> On </span><span class="pun">@*:</span><span class="kwd">TEXT</span><span class="pun">:????????????????????????????????????????????????????????????*:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
</span><span class="pun">;</span><span class="pln">   if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">!</span><span class="pln">isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(!$($+(%,</span><span class="pln">_spamban</span><span class="pun">.,$</span><span class="pln">cid</span><span class="pun">,$</span><span class="pln">chan</span><span class="pun">,$</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">is_nickspam</span><span class="pun">($</span><span class="pln">chan</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">-))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
</span><span class="pun">;</span><span class="pln">     ban -k </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick </span><span class="lit">2</span><span class="pln"> Lame Highlight Spam Detected</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="pln">     inc -z </span><span class="pun">$+(%,</span><span class="pln">_spamban</span><span class="pun">.,$</span><span class="pln">cid</span><span class="pun">,$</span><span class="pln">chan</span><span class="pun">,$</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> </span><span class="lit">5</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
ALIAS is_nickspam </span><span class="pun">{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">chan </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">text </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="pun">%</span><span class="pln">nicklen </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">calc</span><span class="pun">($</span><span class="lit">3</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">0</span><span class="pun">,$</span><span class="pln">v1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="pln"> </span><span class="pun">%</span><span class="pln">nickspam </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">calc</span><span class="pun">($</span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">0</span><span class="pun">,$</span><span class="pln">v1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">text </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">mid</span><span class="pun">($</span><span class="pln">regsubex</span><span class="pun">(</span><span class="pln">is_nickspam</span><span class="pun">,!</span><span class="pln"> </span><span class="pun">%</span><span class="pln">text </span><span class="pun">!,/(*</span><span class="pln">UTF8</span><span class="pun">)(?:\</span><span class="pln">W</span><span class="pun">++|(?&lt;!\</span><span class="pln">w</span><span class="pun">)(?:\</span><span class="pln">w</span><span class="pun">{</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">nicklen </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">}|(\</span><span class="pln">w</span><span class="pun">++)(?=.*?\</span><span class="pln">W\1</span><span class="pun">(?:\</span><span class="pln">W</span><span class="pun">|$)))(?!\</span><span class="pln">w</span><span class="pun">))+/</span><span class="pln">g</span><span class="pun">,|),</span><span class="lit">2</span><span class="pun">,-</span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">chan ischan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">text</span><span class="pun">,</span><span class="lit">124</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">nickspam</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">fline</span><span class="pun">(%</span><span class="pln">chan</span><span class="pun">,/(?&lt;=^|\</span><span class="pln">W</span><span class="pun">)(?:</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">text </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">)(?=\</span><span class="pln">W</span><span class="pun">|$)/</span><span class="pln">i</span><span class="pun">,</span><span class="lit">0</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">nickspam</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> return </span><span class="pun">$</span><span class="pln">v1 </span><span class="pun">}</span><span class="pln">
  return </span><span class="lit">0</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> </span><span class="pun">;</span><span class="pln"> by Raccoon </span><span class="lit">2017</span><span class="pln"> Feb </span><span class="lit">28</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="kwd">http</span><span class="pun">://</span><span class="pln">www</span><span class="pun">.</span><span class="pln">mpaste</span><span class="pun">.</span><span class="pln">com</span><span class="pun">/</span><span class="pln">p</span><span class="pun">/</span><span class="pln">Tu7NJh </span><span class="pun">-</span><span class="pln"> </span><span class="kwd">http</span><span class="pun">://</span><span class="pln">hawkee</span><span class="pun">.</span><span class="pln">com</span><span class="pun">/</span><span class="pln">snippet</span><span class="pun">/</span><span class="lit">18055</span><span class="pun">/</span></pre>

<p>
	 
</p>

<p>
	<span style="background-color:#ffffff; color:#818486; font-size:16px; text-align:start">This script detects "Nickname Highlight Spam" in IRC. Works in both mIRC and AdiIRC.</span>
</p>
]]></description><guid isPermaLink="false">6564</guid><pubDate>Fri, 12 Jul 2024 01:43:49 +0000</pubDate></item><item><title>Mass join protection</title><link>https://www.coders-resources.net/ipb/forums/topic/5632-mass-join-protection/</link><description><![CDATA[<p>
	MASS JOIN KICKER II
</p>

<p>
	Stomps out large amounts of clones/spam bots from entering your channel. Triggered at 7 joins in 5 seconds, it automatically locks down the channel and kicks out all the clones/spam bots that come in.
</p>

<p>
	Just copy and paste to your remotes After loading if it asks to run initialization commands, click "Yes". Then right click and go down to MASS JOIN KICKER II and it can be toggled on and off.
</p>

<pre class="ipsCode prettyprint lang-c prettyprinted" id="ips_uid_7749_4" style=""><span class="pun">;</span><span class="pln">MASS JOIN KICKER II
</span><span class="pun">;</span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Contributors</span><span class="pun">:</span><span class="pln"> </span><span class="typ">Jethro_</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Thanks</span><span class="pln"> to</span><span class="pun">:</span><span class="pln"> </span><span class="typ">Hawkee</span><span class="pln"> </span><span class="typ">Forums</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">START</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> massjoin </span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">LOAD</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> massjoin </span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">CONNECT</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> massjoin </span><span class="pun">}</span><span class="pln">

alias </span><span class="pun">-</span><span class="pln">l massjoin </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">massjoin</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> hmake massjoin </span><span class="lit">750</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
alias </span><span class="pun">-</span><span class="pln">l abmj </span><span class="pun">{</span><span class="pln"> 
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="lit">12</span><span class="pun">,</span><span class="lit">1</span><span class="pun">*!</span><span class="lit">14</span><span class="pln"> MASS JOIN KICKER II </span><span class="pun"></span><span class="lit">12</span><span class="pun">!*</span><span class="pln">
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="lit">12</span><span class="pun">,</span><span class="lit">1</span><span class="pun">*!</span><span class="lit">14</span><span class="pln"> </span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pln"> </span><span class="pun"></span><span class="lit">12</span><span class="pun">!*</span><span class="pln">
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="lit">12</span><span class="pun">,</span><span class="lit">1</span><span class="pun">*!</span><span class="lit">14</span><span class="pln"> </span><span class="pun"></span><span class="pln">http</span><span class="pun">:</span><span class="com">//mirc-deluxe.webs.com 12!* </span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">@*:</span><span class="pln">JOIN</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">massjoin </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u15 </span><span class="pun">%</span><span class="pln">mj1 $addtok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,</span><span class="pln">$nick</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    hinc </span><span class="pun">-</span><span class="pln">mu5 massjoin JOIN </span><span class="lit">1</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">massjoin</span><span class="pun">,</span><span class="pln">JOIN</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">modechan </span><span class="pun">!=</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        mode $chan </span><span class="pun">+</span><span class="pln">im
        </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u15 </span><span class="pun">%</span><span class="pln">modechan $true
        </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u15 </span><span class="pun">%</span><span class="pln">mj2 </span><span class="lit">1</span><span class="pln">
        notice $chan </span><span class="pun"></span><span class="lit">12</span><span class="pun">*!</span><span class="pln"> </span><span class="pun"></span><span class="lit">4MASS</span><span class="pln"> JOIN DETECTED</span><span class="pun"></span><span class="lit">12</span><span class="pln"> </span><span class="pun">!*</span><span class="pln"> </span><span class="pun"></span><span class="lit">2</span><span class="pun">-</span><span class="pln"> </span><span class="pun"></span><span class="lit">12channel</span><span class="pln"> locked down </span><span class="kwd">for</span><span class="pun"></span><span class="lit">4</span><span class="pln"> </span><span class="lit">5</span><span class="pun">-</span><span class="lit">7</span><span class="pln"> minuets</span><span class="pun">.</span><span class="lit">12</span><span class="pln"> </span><span class="typ">Sorry</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> any inconvenience </span><span class="kwd">this</span><span class="pln"> may cause</span><span class="pun">.</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">timermjs </span><span class="lit">1</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> mode $chan </span><span class="pun">-</span><span class="pln">im
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">mj2 </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,%</span><span class="pln">mj2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> ison $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,%</span><span class="pln">mj2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isreg $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">mj2 </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">8</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timermj $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mj2 </span><span class="pun">-</span><span class="pln">m </span><span class="lit">1</span><span class="pln"> $calc</span><span class="pun">(</span><span class="lit">780</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mj2 kick $chan $gettok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,%</span><span class="pln">mj2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun"></span><span class="lit">2MASS</span><span class="pln"> JOIN KICKER II </span><span class="pun">-</span><span class="pln"> </span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pun"></span><span class="pln"> </span><span class="pun">}</span><span class="pln">
          elseif </span><span class="pun">(%</span><span class="pln">mj2 </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">8</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timermj $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mj2 </span><span class="pun">-</span><span class="pln">m </span><span class="lit">1</span><span class="pln"> $calc</span><span class="pun">(</span><span class="lit">897</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mj2</span><span class="pun">)</span><span class="pln"> kick $chan $gettok</span><span class="pun">(%</span><span class="pln">mj1</span><span class="pun">,%</span><span class="pln">mj2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun"></span><span class="lit">2MASS</span><span class="pln"> JOIN KICKER II </span><span class="pun">-</span><span class="pln"> </span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pun"></span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
        inc </span><span class="pun">%</span><span class="pln">mj2
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
menu status</span><span class="pun">,</span><span class="pln">query</span><span class="pun">,</span><span class="pln">nicklist</span><span class="pun">,</span><span class="pln">channel </span><span class="pun">{</span><span class="pln">
  MASS JOIN KICKER II </span><span class="pun">-</span><span class="pln"> $iif</span><span class="pun">(%</span><span class="pln">massjoin </span><span class="pun">=</span><span class="pln"> $true</span><span class="pun">,</span><span class="pln">ON</span><span class="pun">,</span><span class="pln">OFF</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">ON</span><span class="pun">:/</span><span class="typ">set</span><span class="pln"> </span><span class="pun">%</span><span class="pln">massjoin $true
  </span><span class="pun">.</span><span class="pln">OFF</span><span class="pun">:/</span><span class="typ">set</span><span class="pln"> </span><span class="pun">%</span><span class="pln">massjoin $false
  </span><span class="pun">.</span><span class="typ">About</span><span class="pun">:/</span><span class="pln">abmj
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5632</guid><pubDate>Mon, 17 Oct 2022 00:24:47 +0000</pubDate></item><item><title>Protection Script Z31</title><link>https://www.coders-resources.net/ipb/forums/topic/5627-protection-script-z31/</link><description><![CDATA[<p>
	A nice protection script, has channel protections from Deop, Ban, Kick and also has flood protections.
</p>

<p>
	 
</p>

<pre class="ipsCode prettyprint lang-c prettyprinted" id="ips_uid_4951_4" style=""><span class="pun">;</span><span class="typ">Protection</span><span class="pln"> </span><span class="typ">Script</span><span class="pln"> Z31
</span><span class="pun">;</span><span class="typ">Made</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> mIRC </span><span class="typ">Script</span><span class="pln"> Z31 
</span><span class="pun">;</span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Version</span><span class="pln"> </span><span class="lit">1.1</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">LOAD</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  writeini z31</span><span class="pun">.</span><span class="pln">ini main protect on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">5</span><span class="pun">,</span><span class="pln">on
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="typ">Protection</span><span class="pln"> </span><span class="typ">Script</span><span class="pln"> Z31 </span><span class="typ">Loaded</span><span class="pln"> successfuly</span><span class="pun">!</span><span class="pln"> </span><span class="typ">Use</span><span class="pln"> </span><span class="pun">/</span><span class="pln">protection </span><span class="kwd">for</span><span class="pln"> the options menu</span><span class="pun">!</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

menu channel</span><span class="pun">,</span><span class="pln">nicklist</span><span class="pun">,</span><span class="pln">query</span><span class="pun">,</span><span class="pln">status </span><span class="pun">{</span><span class="pln">
  </span><span class="typ">Protection</span><span class="pln"> </span><span class="typ">Script</span><span class="pln"> Z31</span><span class="pun">:/</span><span class="pln">protection
</span><span class="pun">}</span><span class="pln">

alias protection </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">m protect protect </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> op</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> kick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> massjoin</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> iflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> timer</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">7</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">7</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> num</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">8</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">8</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> pmflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini </span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Protect</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">9</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$protect</span><span class="pun">.</span><span class="pln">file</span><span class="pun">,</span><span class="lit">9</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

alias protect</span><span class="pun">.</span><span class="pln">file </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $readini</span><span class="pun">(</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">ini</span><span class="pun">,</span><span class="typ">Main</span><span class="pun">,</span><span class="typ">Protect</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">

alias z31</span><span class="pun">.</span><span class="pln">file </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $readini</span><span class="pun">(</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">ini</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">

alias exempt </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> add</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">01</span><span class="pln"> $addtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> del</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">01</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">01</span><span class="pln"> $remtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">1</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
        </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">1</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">01</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
          </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">1</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">return</span><span class="pln"> $false
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> user</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> add</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">02</span><span class="pln"> $addtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> del</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">02</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">02</span><span class="pln"> $remtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">2</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
        </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">2</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">02</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
          </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">return</span><span class="pln"> $false
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> host</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> add</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">03</span><span class="pln"> $addtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> del</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">03</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> $3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini z31</span><span class="pun">.</span><span class="pln">ini exempt </span><span class="lit">03</span><span class="pln"> $remtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">3</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
        </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">3</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$z31</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">exempt</span><span class="pun">,</span><span class="lit">03</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
          </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">3</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">return</span><span class="pln"> $false
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

dialog protect </span><span class="pun">{</span><span class="pln"> 
  size </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="lit">445</span><span class="pln"> </span><span class="lit">272</span><span class="pln">
  title </span><span class="typ">Protection</span><span class="pln">
  box </span><span class="str">"Protections"</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">140</span><span class="pln"> </span><span class="lit">205</span><span class="pln">
  check </span><span class="str">"DeOP Protection"</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">98</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"Kick Protection"</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">35</span><span class="pln"> </span><span class="lit">90</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"Ban Protection"</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">50</span><span class="pln"> </span><span class="lit">88</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"Mass Join Protection"</span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">65</span><span class="pln"> </span><span class="lit">115</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"Flood Protection"</span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">95</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"Invite Flood Protection"</span><span class="lit">7</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">95</span><span class="pln"> </span><span class="lit">128</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  text </span><span class="str">"Flood trigger:"</span><span class="lit">8</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  edit </span><span class="str">""</span><span class="lit">9</span><span class="pun">,</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">125</span><span class="pln"> </span><span class="lit">40</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  text </span><span class="str">"Joins/Messages"</span><span class="lit">10</span><span class="pun">,</span><span class="pln"> </span><span class="lit">65</span><span class="pln"> </span><span class="lit">130</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  text </span><span class="str">"in"</span><span class="lit">11</span><span class="pun">,</span><span class="pln"> </span><span class="lit">23</span><span class="pln"> </span><span class="lit">150</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  edit </span><span class="str">""</span><span class="lit">12</span><span class="pun">,</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">165</span><span class="pln"> </span><span class="lit">40</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  text </span><span class="str">"seconds."</span><span class="lit">13</span><span class="pun">,</span><span class="pln"> </span><span class="lit">65</span><span class="pln"> </span><span class="lit">170</span><span class="pln"> </span><span class="lit">50</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  check </span><span class="str">"PM Flood Protection"</span><span class="lit">28</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">190</span><span class="pln"> </span><span class="lit">113</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  box </span><span class="str">"Exceptions"</span><span class="lit">14</span><span class="pun">,</span><span class="pln"> </span><span class="lit">150</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">293</span><span class="pln"> </span><span class="lit">265</span><span class="pln">
  tab </span><span class="str">"Channels"</span><span class="lit">15</span><span class="pun">,</span><span class="pln"> </span><span class="lit">155</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">245</span><span class="pln">
  tab </span><span class="str">"Users"</span><span class="lit">16</span><span class="pln">
  tab </span><span class="str">"Hostmasks"</span><span class="lit">17</span><span class="pln">

  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">15</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">18</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">45</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">200</span><span class="pun">,</span><span class="pln">vsbar</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">15</span><span class="pln">
  button </span><span class="str">"Add"</span><span class="lit">19</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">15</span><span class="pln">
  button </span><span class="str">"Remove"</span><span class="lit">20</span><span class="pun">,</span><span class="pln"> </span><span class="lit">245</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">15</span><span class="pln">

  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">16</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">21</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">45</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">200</span><span class="pun">,</span><span class="pln">vsbar</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">16</span><span class="pln">
  button </span><span class="str">"Add"</span><span class="lit">22</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">16</span><span class="pln">
  button </span><span class="str">"Remove"</span><span class="lit">23</span><span class="pun">,</span><span class="pln"> </span><span class="lit">245</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">16</span><span class="pln">

  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">17</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">24</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">45</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">200</span><span class="pun">,</span><span class="pln">vsbar</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">17</span><span class="pln">
  button </span><span class="str">"Add"</span><span class="lit">25</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">17</span><span class="pln">
  button </span><span class="str">"Remove"</span><span class="lit">26</span><span class="pun">,</span><span class="pln"> </span><span class="lit">245</span><span class="pln"> </span><span class="lit">235</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab </span><span class="lit">17</span><span class="pln">

  button </span><span class="str">"Close"</span><span class="lit">27</span><span class="pun">,</span><span class="pln"> </span><span class="lit">35</span><span class="pln"> </span><span class="lit">225</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">ok
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">protect</span><span class="pun">:</span><span class="pln">init</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">op</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">kick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">3</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">4</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">massjoin</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">5</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">6</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">iflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">7</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">9</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">)</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">12</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln">

  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">18</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">

  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">21</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">

  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">24</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">pmflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c protect </span><span class="lit">28</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  unset </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.*</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">protect</span><span class="pun">:</span><span class="pln">sclick</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection op on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection op off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">3</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection kick on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection kick off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">4</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection ban on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection ban off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">5</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection massjoin on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection massjoin off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">6</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection flood on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection flood off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">7</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection iflood on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection iflood off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">19</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">7</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> enter the channel you wish to add to the exception </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oe</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">35</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">You</span><span class="pln"> must enter the </span><span class="com"># symbol before the channel name.,oh,Protection) }</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">35</span><span class="pun">)</span><span class="pln"> isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      exempt chan add </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">7</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">18</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">7</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">20</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">18</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the channel you wish to remove from the exception </span><span class="typ">list</span><span class="pln"> first</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">18</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove $did</span><span class="pun">(</span><span class="lit">18</span><span class="pun">).</span><span class="pln">seltext from the exception </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        exempt chan del $did</span><span class="pun">(</span><span class="lit">18</span><span class="pun">).</span><span class="pln">seltext
        did </span><span class="pun">-</span><span class="pln">r protect </span><span class="lit">18</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
          </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
            did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">18</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
            inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">4</span><span class="pln">
          </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">22</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">8</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> enter the user name you wish to add to the exception </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oe</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">8</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> $false</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">8</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> $null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      exempt user add </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">8</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">21</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">8</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">23</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">21</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the user name you wish to remove from the exception </span><span class="typ">list</span><span class="pln"> first</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">21</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove $did</span><span class="pun">(</span><span class="lit">21</span><span class="pun">).</span><span class="pln">seltext from the exception </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        exempt user del $did</span><span class="pun">(</span><span class="lit">21</span><span class="pun">).</span><span class="pln">seltext
        did </span><span class="pun">-</span><span class="pln">r protect </span><span class="lit">21</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
          </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
            did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">21</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
            inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">5</span><span class="pln">
          </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">25</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> enter the hostmask you wish to add to the exception </span><span class="typ">list</span><span class="pun">.</span><span class="pln"> NOTE</span><span class="pun">:</span><span class="pln"> </span><span class="typ">It</span><span class="pln"> must be a valid hostmask</span><span class="pun">!,</span><span class="pln">oe</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">46</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pln"> is not a valid host mask</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">46</span><span class="pun">)</span><span class="pln"> isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      exempt host add </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">24</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="lit">9</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">26</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">24</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the hostmask you wish to remove from the exception </span><span class="typ">list</span><span class="pln"> first</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">24</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove $did</span><span class="pun">(</span><span class="lit">24</span><span class="pun">).</span><span class="pln">seltext from the exception </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="typ">Protection</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">.</span><span class="pln">dump </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        exempt host del $did</span><span class="pun">(</span><span class="lit">24</span><span class="pun">).</span><span class="pln">seltext
        did </span><span class="pun">-</span><span class="pln">r protect </span><span class="lit">24</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
          </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
            did </span><span class="pun">-</span><span class="pln">a protect </span><span class="lit">24</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">),%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
            inc </span><span class="pun">%</span><span class="pln">Z31</span><span class="pun">.</span><span class="lit">6</span><span class="pln">
          </span><span class="pun">}</span><span class="pln">
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">28</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">28</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection pmflood on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection pmflood off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
  unset </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">.*</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">protect</span><span class="pun">:</span><span class="pln">edit</span><span class="pun">:</span><span class="lit">9</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">9</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection num $did</span><span class="pun">(</span><span class="lit">9</span><span class="pun">).</span><span class="pln">text </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">protect</span><span class="pun">:</span><span class="pln">edit</span><span class="pun">:</span><span class="lit">12</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">12</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> protection timer $did</span><span class="pun">(</span><span class="lit">12</span><span class="pun">).</span><span class="pln">text </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

alias </span><span class="typ">IsExempt</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">chan</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">user</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">1</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">3</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">6</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">7</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$exempt</span><span class="pun">(</span><span class="pln">host</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">9</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $false </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">DEOP</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">op</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$opnick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">op </span><span class="pun">=</span><span class="pln"> $true
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan </span><span class="pun">=</span><span class="pln"> $chan
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick </span><span class="pun">=</span><span class="pln"> $nick
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> chanserv op $chan $me
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">OP</span><span class="pun">:%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">op </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">kick </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">ban </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick ison $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mode $chan </span><span class="pun">-</span><span class="pln">ob </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">banmask
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">3</span><span class="pln"> </span><span class="pun">-</span><span class="pln">m </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1500</span><span class="pln"> kick $chan </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick </span><span class="typ">Kicked</span><span class="pln"> by $me </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="pln">OP </span><span class="typ">Abuse</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  unset </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-*</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">@*:</span><span class="pln">KICK</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">kick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$knick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">kick </span><span class="pun">=</span><span class="pln"> $true
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan </span><span class="pun">=</span><span class="pln"> $chan
      </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick </span><span class="pun">=</span><span class="pln"> $nick
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">4</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> join </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

alias </span><span class="typ">IsBanned</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isin $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$me</span><span class="pun">,</span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$host</span><span class="pun">,</span><span class="lit">4</span><span class="pun">,</span><span class="lit">46</span><span class="pun">)</span><span class="pln"> isin $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $false </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">@*:</span><span class="pln">BAN</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsBanned</span><span class="pun">(</span><span class="pln">$banmask</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u8 </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">ban $true
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u8 </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">banmask $banmask
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u8 </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan $chan
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u8 </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">nick $nick
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">6</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> mode $chan </span><span class="pun">-</span><span class="pln">bo $banmask $nick
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">7</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> kick $chan $nick </span><span class="typ">Kicked</span><span class="pln"> by $me </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="pln">OP </span><span class="typ">Abuse</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

raw </span><span class="pun">*:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">kick </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$numeric </span><span class="pun">==</span><span class="pln"> </span><span class="lit">471</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$numeric </span><span class="pun">==</span><span class="pln"> </span><span class="lit">473</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$numeric </span><span class="pun">==</span><span class="pln"> </span><span class="lit">474</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$numeric </span><span class="pun">==</span><span class="pln"> </span><span class="lit">475</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">timerZ31</span><span class="pun">.</span><span class="lit">5</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> chanserv invite </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan
      halt
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">^*:</span><span class="pln">NOTICE</span><span class="pun">:*:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">op </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">kick </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">ban </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">chanserv </span><span class="pun">=</span><span class="pln"> $strip</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">-)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">access denied isin </span><span class="pun">%</span><span class="pln">chanserv</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">permission denied isin </span><span class="pun">%</span><span class="pln">chanserv</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="typ">You</span><span class="pln"> </span><span class="kwd">do</span><span class="pln"> not have access isin </span><span class="pun">%</span><span class="pln">chanserv</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pln"> could not complete the operation on </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Access</span><span class="pln"> </span><span class="typ">Denied</span><span class="pun">)</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">not registered isin </span><span class="pun">%</span><span class="pln">chanserv</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="typ">ChanServ</span><span class="pln"> could not complete the operation on </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-</span><span class="pln">chan $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Channel</span><span class="pln"> not registered</span><span class="pun">)</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln">z31</span><span class="pun">-*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    unset </span><span class="pun">%</span><span class="pln">chanserv
    halt
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">@*:</span><span class="pln">JOIN</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">massjoin</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick isreg $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> $addtok</span><span class="pun">(%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="pln">$nick</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timerJOINS1 </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timerJOINS2 </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mode $chan </span><span class="pun">+</span><span class="pln">dim
      </span><span class="pun">.</span><span class="pln">timerJOINS</span><span class="pun">*</span><span class="pln"> off
      </span><span class="pun">.</span><span class="pln">timerMODE </span><span class="lit">1</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> mode $chan </span><span class="pun">-</span><span class="pln">dim
      clonek $chan
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

alias clonek </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">%</span><span class="pln">kick </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">kick </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],%</span><span class="pln">kick</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> ison $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timerCK $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">kick </span><span class="pun">-</span><span class="pln">m </span><span class="lit">1</span><span class="pln"> $calc</span><span class="pun">(</span><span class="lit">1300</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun">%</span><span class="pln">kick </span><span class="pun">+</span><span class="pln"> </span><span class="lit">660</span><span class="pun">)</span><span class="pln"> kick $chan $gettok</span><span class="pun">(%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],%</span><span class="pln">kick</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="typ">Mass</span><span class="pln"> </span><span class="typ">Join</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="typ">Clone</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">kick
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timerKICK</span><span class="pun">*)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timerKICK $</span><span class="pun">+</span><span class="pln"> $rand</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="lit">999</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> $calc</span><span class="pun">(</span><span class="pln">$numtok</span><span class="pun">(%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">2</span><span class="pun">)</span><span class="pln"> ck</span><span class="pun">.</span><span class="pln">us $1 </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

alias ck</span><span class="pun">.</span><span class="pln">us </span><span class="pun">{</span><span class="pln">
  unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
  unset </span><span class="pun">%</span><span class="pln">clones</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $1 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
  unset </span><span class="pun">%</span><span class="pln">kick
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">TEXT</span><span class="pun">:*:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> kick $chan $nick </span><span class="typ">Slow</span><span class="pln"> down</span><span class="pun">!</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="typ">Flooding</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$me </span><span class="pun">!</span><span class="pln">isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $chan by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">NOTICE</span><span class="pun">:*:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> kick $chan $nick </span><span class="typ">Slow</span><span class="pln"> down</span><span class="pun">!</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="typ">Flooding</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$me </span><span class="pun">!</span><span class="pln">isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $chan by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">ACTION</span><span class="pun">:*:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> kick $chan $nick </span><span class="typ">Slow</span><span class="pln"> down</span><span class="pun">!</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">(</span><span class="typ">Flooding</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(</span><span class="pln">$me </span><span class="pun">!</span><span class="pln">isop $chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
        </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $chan by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">TEXT</span><span class="pun">:*:?:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">pmflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> </span><span class="typ">Private</span><span class="pln"> </span><span class="typ">Message</span><span class="pln"> by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      close </span><span class="pun">-</span><span class="pln">m $nick
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">ACTION</span><span class="pun">:*:?:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">pmflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> </span><span class="typ">Private</span><span class="pln"> </span><span class="typ">Message</span><span class="pln"> by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      close </span><span class="pun">-</span><span class="pln">m $nick
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">NOTICE</span><span class="pun">:*:?:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">flood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timer $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $nick </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">ignore </span><span class="pun">-</span><span class="pln">u180 $nick $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> </span><span class="typ">Notice</span><span class="pln"> by $nick </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Ignored</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
      close </span><span class="pun">-</span><span class="pln">m $nick
      unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $nick </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="pln">INVITE</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">iflood</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="typ">Serv</span><span class="pln"> isin $nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsExempt</span><span class="pun">(</span><span class="pln">$nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">invites
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$timer</span><span class="pun">(</span><span class="pln">invite</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timerinvite </span><span class="lit">1</span><span class="pln"> $protection</span><span class="pun">(</span><span class="pln">timer</span><span class="pun">)</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">invites </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">invites </span><span class="pun">&gt;=</span><span class="pln"> $calc</span><span class="pun">(</span><span class="pln">$protection</span><span class="pun">(</span><span class="pln">num</span><span class="pun">)</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="lit">1</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      ignore </span><span class="pun">-</span><span class="pln">iu240 </span><span class="pun">*!*@*</span><span class="pln">
      echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="pun"></span><span class="lit">4Flooding</span><span class="pln"> </span><span class="typ">Detected</span><span class="pun">:</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> </span><span class="typ">Invite</span><span class="pln"> </span><span class="typ">Flood</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="typ">All</span><span class="pln"> invites ignored </span><span class="kwd">for</span><span class="pln"> </span><span class="lit">4</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5627</guid><pubDate>Sun, 16 Oct 2022 22:41:11 +0000</pubDate></item><item><title>IRC Guard 5000 (V5)- Black List</title><link>https://www.coders-resources.net/ipb/forums/topic/5626-irc-guard-5000-v5-black-list/</link><description><![CDATA[<p>
	V5 - Better, faster, stronger.
</p>

<p>
	About IRC Guard 5000: <a href="http://CodersElite.site90.net/PG5KHelp.htm" rel="external nofollow">http://CodersElite.site90.net/PG5KHelp.htm</a>
</p>

<p>
	First:<br>
	Just copy snippet below. Open notepad and paste code into notepad, the SAVE FILE AS<br>
	criptnamehere.mrc into your mIRC directory.
</p>

<p>
	Then:<br>
	In mIRC press ALT+R when the script editor pops up go to FILE select LOAD and select scriptnamehere.mrc and click okay, allow initialization commands to run.
</p>

<p>
	Or:<br>
	Once the file is saved into the mIRC directory use: /load -rs scriptnamehere.mrc and allow the initialization commands to run.
</p>

<p>
	IRC Guard 5000 (V5) is a blacklist made to repel pedophiles, creeps, trolls and other undesirable users on IRC. you must have channel operator (+o) status on a channel to use this script!
</p>

<p>
	Please report all bugs here!
</p>

<p>
	Looking for V4? Get the source code here: <a href="http://CodersElite.site90.net/PG5K.htm" rel="external nofollow">http://CodersElite.site90.net/PG5K.htm</a>
</p>

<p>
	 
</p>

<pre class="ipsCode prettyprint lang-c prettyprinted" id="ips_uid_4807_4" style=""><span class="pun">;</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">(</span><span class="pln">V5</span><span class="pun">)</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Better</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Faster</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Stronger</span><span class="pun">.</span><span class="pln">
</span><span class="pun">;</span><span class="typ">By</span><span class="pln"> </span><span class="typ">Neo</span><span class="pln"> </span><span class="typ">Nemesis</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Basically</span><span class="pln"> a black </span><span class="typ">list</span><span class="pln"> designed to 
</span><span class="pun">;</span><span class="pln">repel IRC stalkers</span><span class="pun">,</span><span class="pln"> creepers</span><span class="pun">,</span><span class="pln"> pedos
</span><span class="pun">;</span><span class="pln">and other undesirables
</span><span class="pun">;</span><span class="typ">Special</span><span class="pln"> thanks to </span><span class="typ">Jethro_</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Bofh</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Gemstone</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Manit</span><span class="pln"> and gasak </span><span class="pun">:</span><span class="pln">D
</span><span class="pun">;</span><span class="typ">And</span><span class="pln"> thanks to the memebers of </span><span class="typ">Hawkee</span><span class="pln"> forums</span><span class="pun">!</span><span class="pln">
</span><span class="pun">;</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> check on start
on </span><span class="pun">*:</span><span class="pln">LOAD</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun">*</span><span class="pln"> IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">(</span><span class="pln">V5</span><span class="pun">)</span><span class="pln"> is loading</span><span class="pun">...</span><span class="pln">
  </span><span class="pun">;</span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="lit">01</span><span class="pln"> on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">ban</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="typ">You</span><span class="pln"> are not welcome here</span><span class="pun">!</span><span class="pln">
  </span><span class="pun">;</span><span class="pln">checking </span><span class="kwd">for</span><span class="pln"> older versions
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isfile</span><span class="pun">(</span><span class="pln">PG5K</span><span class="pun">.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Do</span><span class="pln"> you wish to save old entries from V4</span><span class="pun">?,</span><span class="pln">yi</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> $chr</span><span class="pun">(</span><span class="lit">40</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> V5 $</span><span class="pun">+</span><span class="pln"> $chr</span><span class="pun">(</span><span class="lit">41</span><span class="pun">))</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun">*</span><span class="pln"> </span><span class="typ">Saving</span><span class="pln"> old entries and options</span><span class="pun">...</span><span class="pln">
        </span><span class="pun">;</span><span class="pln">saving old entries</span><span class="pun">.</span><span class="pln"> </span><span class="typ">Most</span><span class="pln"> of them save 
        </span><span class="pun">;</span><span class="pln">right over except </span><span class="kwd">for</span><span class="pln"> user white </span><span class="typ">list</span><span class="pun">.</span><span class="pln"> 
        </span><span class="pun">;</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">)</span><span class="pln"> is parsed</span><span class="pun">.</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">02</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ubl $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">02</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">03</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ibl $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">03</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">04</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">cwl $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">04</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">num </span><span class="lit">1</span><span class="pln">
          </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">num </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
            </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),%</span><span class="pln">num</span><span class="pun">,</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),%</span><span class="pln">num</span><span class="pun">,</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">hwl $addtok</span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">hwl</span><span class="pun">,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),</span><span class="pln">$num</span><span class="pun">,</span><span class="lit">44</span><span class="pun">),</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
            </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">uwl $addtok</span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">uwl</span><span class="pun">,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),</span><span class="pln">$num</span><span class="pun">,</span><span class="lit">44</span><span class="pun">),</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
            inc </span><span class="pun">%</span><span class="pln">num
          </span><span class="pun">}</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">06</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">nwl $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">06</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
          </span><span class="pun">;</span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">kickmsg</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="typ">You</span><span class="pln"> are not welcome here</span><span class="pun">!)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">opt on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">ban</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $remove</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">kickmsg</span><span class="pun">),</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">opt on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">ban</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="typ">You</span><span class="pln"> are not welcome here</span><span class="pun">!</span><span class="pln">
          remini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K    
        </span><span class="pun">}</span><span class="pln">      
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">opt</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">opt </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">(!%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">opt</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">on</span><span class="pun">,</span><span class="pln">ban</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="typ">You</span><span class="pln"> are not welcome here</span><span class="pun">!</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ubl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">02</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ubl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">03</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">ibl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">cwl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">06</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">cwl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">uwl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">07</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">uwl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">hwl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">08</span><span class="pln"> </span><span class="pun">%</span><span class="pln">crl</span><span class="pun">.</span><span class="pln">hwl </span><span class="pun">}</span><span class="pln">
  echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun">*</span><span class="pln"> IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> V5 has finished loading</span><span class="pun">.</span><span class="pln"> </span><span class="typ">Use</span><span class="pln"> </span><span class="pun">/</span><span class="pln">creep</span><span class="pun"></span><span class="pln"> to access the main menu</span><span class="pun">,</span><span class="pln"> you can also use </span><span class="pun">/</span><span class="pln">creep help</span><span class="pun"></span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> help</span><span class="pun">,</span><span class="pln"> or you can select it from the popup menus throughout mIRC</span><span class="pun">.</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">START</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">enable</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> PG5K_Update GET </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
alias creep </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">m creep creep </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> enable</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> update</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> scan1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> scan2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> scan3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">5</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> action</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">6</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> bantype</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">7</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">7</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> kickmsg</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$isid </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">8</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">01</span><span class="pln"> $puttok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">-,</span><span class="lit">8</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> add</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K $2 $addtok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">-,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> del</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K $2 </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K $2 $remtok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">),</span><span class="pln">$3</span><span class="pun">-,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> help</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> run http</span><span class="pun">:</span><span class="com">//CodersElite.site90.net/PG5KHelp.htm }</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> cmsg1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">/!</span><span class="pln">\ CREEP ALERT </span><span class="pun">/!</span><span class="pln">\</span><span class="pun"></span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">01</span><span class="pun">),</span><span class="lit">8</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> cmsg2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> </span><span class="pun"></span><span class="lit">4</span><span class="pun">/!</span><span class="pln">\ CREEP ALERT </span><span class="pun">/!</span><span class="pln">\</span><span class="pun"></span><span class="pln"> </span><span class="typ">You</span><span class="pln"> have been added to my black </span><span class="typ">list</span><span class="pln"> creep</span><span class="pun">!</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
alias creep</span><span class="pun">.</span><span class="pln">file </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $readini</span><span class="pun">(</span><span class="pln">PG5K</span><span class="pun">.</span><span class="pln">ini</span><span class="pun">,</span><span class="pln">PG5K</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
alias </span><span class="typ">IsListed</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $istok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">),</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
alias </span><span class="typ">IsListed_WC</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_WC </span><span class="lit">1</span><span class="pln">
  </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_WC </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$remove</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">05</span><span class="pun">),%</span><span class="pln">CRP_WC</span><span class="pun">,</span><span class="lit">44</span><span class="pun">),</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">42</span><span class="pun">))</span><span class="pln"> isin $1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $true </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">CRP_WC
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">return</span><span class="pln"> $false
</span><span class="pun">}</span><span class="pln">
alias C_LMngr </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> gui_bl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">C_LMngr</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">mo C_LMngr C_LMngr </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> gui_wl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">C_LMngr_</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">mo C_LMngr_ C_LMngr_ </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">;/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">iuihwcUHnd </span><span class="str">&lt;info&gt;</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> add</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> user name</span><span class="pun">,</span><span class="lit">02</span><span class="pun">,</span><span class="lit">07</span><span class="pun">,</span><span class="lit">0</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">i</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> ident</span><span class="pun">,</span><span class="lit">03</span><span class="pun">,</span><span class="lit">00</span><span class="pun">,</span><span class="lit">0</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">h</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> host mask</span><span class="pun">,</span><span class="lit">04</span><span class="pun">,</span><span class="lit">08</span><span class="pun">,</span><span class="lit">0</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">w</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> wildcard</span><span class="pun">,</span><span class="lit">05</span><span class="pun">,</span><span class="lit">00</span><span class="pun">,</span><span class="lit">0</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">c</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> channel</span><span class="pun">,</span><span class="lit">06</span><span class="pun">,</span><span class="lit">00</span><span class="pun">,</span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">U</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> user name</span><span class="pun">,</span><span class="lit">07</span><span class="pun">,</span><span class="lit">02</span><span class="pun">,</span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">H</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> host mask</span><span class="pun">,</span><span class="lit">08</span><span class="pun">,</span><span class="lit">04</span><span class="pun">,</span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">n</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_ </span><span class="pun">=</span><span class="pln"> network</span><span class="pun">,</span><span class="lit">09</span><span class="pun">,</span><span class="lit">00</span><span class="pun">,</span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> parse </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">===</span><span class="pln"> </span><span class="pun">-</span><span class="pln">d</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">;</span><span class="pln">add to update </span><span class="typ">list</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">:</span><span class="pln">parse 
    </span><span class="pun">%</span><span class="pln">CLM_p </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">CLM_</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">CLM_al </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">CLM_</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">CLM_ol </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">CLM_</span><span class="pun">,</span><span class="lit">3</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">CLM_c </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">CLM_</span><span class="pun">,</span><span class="lit">4</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(%</span><span class="pln">CLM_al</span><span class="pun">,</span><span class="pln">$3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">The</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_p </span><span class="str">' $+ $3- $+ '</span><span class="pln"> is already listed in the black </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">The</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_p </span><span class="str">' $+ $3- $+ '</span><span class="pln"> is already listed in the white </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oh IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_ol </span><span class="pun">!=</span><span class="pln"> </span><span class="lit">00</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(%</span><span class="pln">CLM_ol</span><span class="pun">,</span><span class="pln">$3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">The</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_p </span><span class="str">' $+ $3- $+ '</span><span class="pln"> is white listed and cannot be added to the black </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">The</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_p </span><span class="str">' $+ $3- $+ '</span><span class="pln"> is black listed and caoont be added to the white </span><span class="typ">list</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      creep add </span><span class="pun">%</span><span class="pln">CLM_al $3</span><span class="pun">-</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">a creep $iif</span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">30</span><span class="pun">)</span><span class="pln"> $3</span><span class="pun">-</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> $3</span><span class="pun">-</span><span class="pln"> added to the black </span><span class="typ">list</span><span class="pun">.</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        elseif </span><span class="pun">(%</span><span class="pln">CLM_c </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo </span><span class="pun">-</span><span class="pln">a </span><span class="pun"></span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $color</span><span class="pun">(</span><span class="pln">info</span><span class="pun">)</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> $3</span><span class="pun">-</span><span class="pln"> added to the white </span><span class="typ">list</span><span class="pun">.</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_p </span><span class="pun">==</span><span class="pln"> user name</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_Sca </span><span class="lit">1</span><span class="pln">
        </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_Sca </span><span class="pun">&lt;=</span><span class="pln"> $chan</span><span class="pun">(</span><span class="lit">0</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$3 ison $chan</span><span class="pun">(%</span><span class="pln">CRP_Sca</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isop $chan</span><span class="pun">(%</span><span class="pln">CRP_Sca</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> CR_J $3 $chan</span><span class="pun">(%</span><span class="pln">CRP_Sca</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
          inc </span><span class="pun">%</span><span class="pln">CRP_Sca
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">        
      </span><span class="kwd">goto</span><span class="pln"> end
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> del</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">CLM_r </span><span class="pun">=</span><span class="pln"> </span><span class="lit">2</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_r </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_r</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep del </span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_r $2</span><span class="pun">-</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> inc </span><span class="pun">%</span><span class="pln">CLM_r </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> clear</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> bl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      did </span><span class="pun">-</span><span class="pln">r creep </span><span class="lit">2</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_bln </span><span class="lit">2</span><span class="pln">
      </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_bln </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        remini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CRP_bln
        inc </span><span class="pun">%</span><span class="pln">CRP_bln
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> wl</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r creep </span><span class="lit">30</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_wln </span><span class="lit">6</span><span class="pln">
      </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_wln </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        remini PG5K</span><span class="pun">.</span><span class="pln">ini PG5K </span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CRP_wln
        inc </span><span class="pun">%</span><span class="pln">CRP_wln
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> load</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CLM_l </span><span class="lit">2</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_l </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM_l </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_id </span><span class="pun">=</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">CLM_l </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_id </span><span class="pun">=</span><span class="pln"> </span><span class="lit">30</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_l</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> didtok creep </span><span class="pun">%</span><span class="pln">CLM_id </span><span class="lit">44</span><span class="pln"> $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">0</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM_l</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">CLM_l
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">goto</span><span class="pln"> end
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
  unset </span><span class="pun">%</span><span class="pln">CLM_</span><span class="pun">*</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
alias CR_J </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">06</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">07</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">09</span><span class="pun">,</span><span class="pln">$network</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CR_Jwl </span><span class="lit">0</span><span class="pln">
  </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CR_Jwl </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">08</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,%</span><span class="pln">CR_Jwl</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">CR_Jwl
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">03</span><span class="pun">,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">33</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">02</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $false</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep add </span><span class="lit">02</span><span class="pln"> $1 </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">goto</span><span class="pln"> </span><span class="typ">User_Check</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">03</span><span class="pun">,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">33</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $false</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">02</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep add </span><span class="lit">03</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">33</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">goto</span><span class="pln"> </span><span class="typ">User_Check</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="typ">User_Check</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">02</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> </span><span class="typ">User_Run</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed_WC</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> </span><span class="typ">User_Run</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CR_N </span><span class="lit">0</span><span class="pln">
  </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CR_N </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">04</span><span class="pun">,</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,%</span><span class="pln">CR_N</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> </span><span class="typ">User_Run</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">CR_N
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">goto</span><span class="pln"> end
  </span><span class="pun">:</span><span class="typ">User_Run</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">action</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> CR_K $creep</span><span class="pun">(</span><span class="pln">bantype</span><span class="pun">)</span><span class="pln"> $2 $1 </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> CR_K </span><span class="lit">11</span><span class="pln"> $2 $1 </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">
alias CR_K </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">9</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    mode $2 </span><span class="pun">+</span><span class="pln">b $address</span><span class="pun">(</span><span class="pln">$3</span><span class="pun">,</span><span class="pln">$1</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">goto</span><span class="pln"> kick
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> </span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    mode $2 </span><span class="pun">+</span><span class="pln">b $3 $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">!*@*</span><span class="pln">
    </span><span class="kwd">goto</span><span class="pln"> kick
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> </span><span class="lit">11</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> kick </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">kick
  </span><span class="pun">.</span><span class="pln">timerCRP $</span><span class="pun">+</span><span class="pln"> $rand</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="lit">99999</span><span class="pun">)</span><span class="pln"> </span><span class="pun">-</span><span class="pln">m </span><span class="lit">1</span><span class="pln"> $rand</span><span class="pun">(</span><span class="lit">800</span><span class="pun">,</span><span class="lit">1600</span><span class="pun">)</span><span class="pln"> kick $2 $3 $creep</span><span class="pun">(</span><span class="pln">cmsg1</span><span class="pun">)</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="typ">Auto</span><span class="pln"> </span><span class="typ">Update</span><span class="pln">
alias PG5K_Update </span><span class="pun">{</span><span class="pln"> 
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> GET</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    sockclose PG5K
    sockopen PG5K coderselite</span><span class="pun">.</span><span class="pln">site90</span><span class="pun">.</span><span class="pln">net </span><span class="lit">80</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> </span><span class="typ">Run</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="lit">10</span><span class="pun">,</span><span class="pln">$2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">You</span><span class="pln"> already have </span><span class="kwd">this</span><span class="pln"> </span><span class="typ">list</span><span class="pln"> update</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to acquire the </span><span class="str">' $+ $2 $+ '</span><span class="pln"> </span><span class="typ">list</span><span class="pln"> update</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">5</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a PG5K_U </span><span class="lit">5</span><span class="pln"> UPDATING PLEASE WAIT
      </span><span class="pun">;</span><span class="pln">UGH </span><span class="pun">&gt;.&lt;</span><span class="pln"> </span><span class="typ">Below</span><span class="pln"> </span><span class="typ">Necessary</span><span class="pln"> </span><span class="kwd">for</span><span class="pln"> faster processing through large lists</span><span class="pun">.</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">3</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">02</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">3</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">4</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">03</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">4</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">5</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">04</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">5</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">6</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">05</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">6</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">7</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">06</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">7</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">8</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">07</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">8</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">9</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">08</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">9</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">10</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> none</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> AL_U </span><span class="lit">09</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">10</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">61</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      creep add </span><span class="lit">10</span><span class="pln"> $remove</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">1</span><span class="pun">,</span><span class="lit">164</span><span class="pun">)</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $2 </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">2</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">44</span><span class="pun">))</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">5</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a PG5K_U </span><span class="lit">5</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> complete </span><span class="pun">:)</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">List</span><span class="pln"> update </span><span class="str">' $+ $2 $+ '</span><span class="pln"> complete</span><span class="pun">.,</span><span class="pln">o</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">6</span><span class="pln">
      didtok PG5K_U </span><span class="lit">6</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">)</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">5</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a PG5K_U </span><span class="lit">5</span><span class="pln"> </span><span class="typ">My</span><span class="pln"> updates
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
alias AL_U </span><span class="pun">{</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">AL_U </span><span class="lit">1</span><span class="pln">
  </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">AL_U </span><span class="pun">&lt;=</span><span class="pln"> $numtok</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">-,</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$IsListed</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">-,%</span><span class="pln">AL_U</span><span class="pun">,</span><span class="lit">44</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> inc </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      creep add $1 $gettok</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">-,%</span><span class="pln">AL_U</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$remove</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">2</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">-,%</span><span class="pln">AL_U</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
        elseif </span><span class="pun">(</span><span class="pln">$remove</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;=</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">30</span><span class="pln"> $gettok</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">-,%</span><span class="pln">AL_U</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">:</span><span class="pln">inc
    inc </span><span class="pun">%</span><span class="pln">AL_U
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="pln">SOCKOPEN</span><span class="pun">:</span><span class="pln">PG5K</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  sockwrite </span><span class="pun">-</span><span class="pln">n $sockname GET </span><span class="pun">/</span><span class="pln">PG5KProtocol_II</span><span class="pun">.</span><span class="pln">htm HTTP</span><span class="pun">/</span><span class="lit">1.1</span><span class="pln">
  sockwrite </span><span class="pun">-</span><span class="pln">n $sockname </span><span class="typ">Host</span><span class="pun">:</span><span class="pln"> coderselite</span><span class="pun">.</span><span class="pln">site90</span><span class="pun">.</span><span class="pln">net
  sockwrite </span><span class="pun">-</span><span class="pln">n $sockname </span><span class="typ">Connection</span><span class="pun">:</span><span class="pln"> </span><span class="typ">Close</span><span class="pln">
  sockwrite </span><span class="pun">-</span><span class="pln">n $sockname </span><span class="typ">Content</span><span class="pun">-</span><span class="typ">Type</span><span class="pun">:</span><span class="pln"> text</span><span class="pun">/</span><span class="pln">html
  sockwrite </span><span class="pun">-</span><span class="pln">n $sockname $crlf
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">SOCKREAD</span><span class="pun">:</span><span class="pln">PG5K</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  sockread </span><span class="pun">%</span><span class="pln">PG5K_Ur
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">PG5K_Ur </span><span class="pun">==</span><span class="pln"> </span><span class="str">&lt;br&gt;</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> noop </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln">PG5K_Ur</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">62</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> PACKAGES</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">PG5K_UP </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">PG5K_Ur</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">62</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">PG5K_UP</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">164</span><span class="pun">)</span><span class="pln"> isin </span><span class="pun">%</span><span class="pln">PG5K_Ur</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">%</span><span class="pln">PG5K_UT </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">PG5K_Ur</span><span class="pun">,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">62</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln">PG5K_UT </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln">PG5K_Ur</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">62</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">PG5K_Ur </span><span class="pun">==</span><span class="pln"> CONTENT</span><span class="pun">&gt;</span><span class="pln">END</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    sockclose PG5K
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">PG5K_U</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">m PG5K_U PG5K_U </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">,</span><span class="lit">6</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">a PG5K_U </span><span class="lit">1</span><span class="pln"> </span><span class="typ">There</span><span class="pln"> are $numtok</span><span class="pun">(%</span><span class="pln">PG5K_UP</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> updates
      didtok PG5K_U </span><span class="lit">2</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> </span><span class="pun">%</span><span class="pln">PG5K_UP
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> didtok PG5K_U </span><span class="lit">6</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      did </span><span class="pun">-</span><span class="pln">z PG5K_U </span><span class="lit">6</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">placement
alias PG5K_U </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> x</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $calc</span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">x </span><span class="pun">-</span><span class="pln"> </span><span class="lit">306</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> y</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> $dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">y </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">return</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
dialog PG5K_U </span><span class="pun">{</span><span class="pln">
  size $PG5K_U</span><span class="pun">(</span><span class="pln">x</span><span class="pun">)</span><span class="pln"> $PG5K_U</span><span class="pun">(</span><span class="pln">y</span><span class="pun">)</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> </span><span class="lit">300</span><span class="pln">
  title IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="typ">List</span><span class="pln"> </span><span class="typ">Updates</span><span class="pln">
  box </span><span class="str">""</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">130</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">100</span><span class="pln">
  button </span><span class="str">"Get Update"</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">107</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Get Info"</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">95</span><span class="pln"> </span><span class="lit">107</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  box </span><span class="str">"My Updates"</span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">140</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">130</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">155</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">100</span><span class="pun">,</span><span class="pln">sort</span><span class="pun">,</span><span class="pln">hsbar
  button </span><span class="str">"Remove"</span><span class="lit">7</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">242</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Help"</span><span class="lit">8</span><span class="pun">,</span><span class="pln"> </span><span class="lit">95</span><span class="pln"> </span><span class="lit">242</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Close"</span><span class="lit">9</span><span class="pun">,</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">274</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">ok
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">PG5K_U</span><span class="pun">:</span><span class="pln">init</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a PG5K_U </span><span class="lit">1</span><span class="pln"> </span><span class="typ">There</span><span class="pln"> are $numtok</span><span class="pun">(%</span><span class="pln">PG5K_UP</span><span class="pun">,</span><span class="lit">44</span><span class="pun">)</span><span class="pln"> updates
  didtok PG5K_U </span><span class="lit">2</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> </span><span class="pun">%</span><span class="pln">PG5K_UP
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> didtok PG5K_U </span><span class="lit">6</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">z PG5K_U </span><span class="lit">6</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">PG5K_U</span><span class="pun">:</span><span class="pln">sclick</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the </span><span class="typ">list</span><span class="pln"> update package you would like to acquire</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> PG5K_Update </span><span class="typ">Run</span><span class="pln"> $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">seltext </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the </span><span class="typ">list</span><span class="pln"> update package you would like information about</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">seltext </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">2</span><span class="pun">,</span><span class="lit">164</span><span class="pun">),</span><span class="pln">oi</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> $gettok</span><span class="pun">(%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">seltext </span><span class="pun">]</span><span class="pln"> </span><span class="pun">],</span><span class="lit">1</span><span class="pun">,</span><span class="lit">164</span><span class="pun">))</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">6</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP </span><span class="pun">=</span><span class="pln"> $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the </span><span class="typ">list</span><span class="pln"> update you would like to remove</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove </span><span class="str">' $+ $did(6).seltext $+ '</span><span class="pln"> </span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        creep del </span><span class="lit">10</span><span class="pln"> $did</span><span class="pun">(</span><span class="lit">6</span><span class="pun">).</span><span class="pln">seltext
        did </span><span class="pun">-</span><span class="pln">r PG5K_U </span><span class="lit">6</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> didtok PG5K_U </span><span class="lit">6</span><span class="pln"> </span><span class="lit">44</span><span class="pln"> $creep</span><span class="pun">.</span><span class="pln">file</span><span class="pun">(</span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">8</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep help </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
dialog C_LMngr </span><span class="pun">{</span><span class="pln">
  size </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> </span><span class="lit">100</span><span class="pln">
  title IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Add</span><span class="pln"> to </span><span class="typ">Black</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  box </span><span class="str">"Entry to add"</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">45</span><span class="pln">
  edit </span><span class="str">""</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  radio </span><span class="str">"User name"</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">24</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">70</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"Host mask"</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">95</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">70</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"Ident"</span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">165</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">45</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"Wildcard"</span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">212</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">60</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  button </span><span class="str">"Add"</span><span class="lit">7</span><span class="pun">,</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Close"</span><span class="lit">8</span><span class="pun">,</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">cancel
  button </span><span class="str">"Help"</span><span class="lit">9</span><span class="pun">,</span><span class="pln"> </span><span class="lit">195</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr</span><span class="pun">:</span><span class="pln">init</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u
  did </span><span class="pun">-</span><span class="pln">c C_LMngr </span><span class="lit">3</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr</span><span class="pun">:</span><span class="pln">sclick</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">h </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">i </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">w </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> enter what you would like to enter into the black </span><span class="typ">list</span><span class="pln"> and select the appropriate category</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> 
      </span><span class="kwd">goto</span><span class="pln"> end
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">C_LM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">42</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid user name</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">C_LM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">h</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid host mask</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">C_LM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">i</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">42</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid ident</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">C_LM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">w</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">42</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid wildcard</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">:</span><span class="pln">add
      C_LMngr add </span><span class="pun">%</span><span class="pln">C_LM $did</span><span class="pun">(</span><span class="pln">C_LMngr</span><span class="pun">,</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text 
      dialog </span><span class="pun">-</span><span class="pln">x C_LMngr
      unset </span><span class="pun">%</span><span class="pln">C_LM
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr</span><span class="pun">:</span><span class="pln">close</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">C_LM </span><span class="pun">}</span><span class="pln">
dialog C_LMngr_ </span><span class="pun">{</span><span class="pln">
  size </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> </span><span class="lit">100</span><span class="pln">
  title IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="typ">Add</span><span class="pln"> to </span><span class="typ">White</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  box </span><span class="str">"Entry to add"</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">45</span><span class="pln">
  edit </span><span class="str">""</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  radio </span><span class="str">"Channel"</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">17</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">58</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"User name"</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">78</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">68</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"Host mask"</span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">148</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">71</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  radio </span><span class="str">"Network"</span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">218</span><span class="pln"> </span><span class="lit">55</span><span class="pln"> </span><span class="lit">60</span><span class="pln"> </span><span class="lit">15</span><span class="pln">
  button </span><span class="str">"Add"</span><span class="lit">7</span><span class="pun">,</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Close"</span><span class="lit">8</span><span class="pun">,</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">cancel
  button </span><span class="str">"Help"</span><span class="lit">9</span><span class="pun">,</span><span class="pln"> </span><span class="lit">195</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr_</span><span class="pun">:</span><span class="pln">init</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">c
  did </span><span class="pun">-</span><span class="pln">c C_LMngr_ </span><span class="lit">3</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr_</span><span class="pun">:</span><span class="pln">sclick</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">c </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">U </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">H </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">=</span><span class="pln"> </span><span class="pun">-</span><span class="pln">n </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> enter what you would like to enter into the white </span><span class="typ">list</span><span class="pln"> and select the appropriate category</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">goto</span><span class="pln"> end
    </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">c</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">35</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid channel</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">U</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">42</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid user name</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">H</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">33</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid host mask</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CLM </span><span class="pun">==</span><span class="pln"> </span><span class="pun">-</span><span class="pln">n</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$chr</span><span class="pun">(</span><span class="lit">32</span><span class="pun">)</span><span class="pln"> isin $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
          </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="str">' $+ $did(2).text $+ '</span><span class="pln"> is not a valid network</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
          </span><span class="kwd">goto</span><span class="pln"> end
        </span><span class="pun">}</span><span class="pln">
        </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> add </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">:</span><span class="pln">add
      C_LMngr add </span><span class="pun">%</span><span class="pln">CLM $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">text
      dialog </span><span class="pun">-</span><span class="pln">x C_LMngr_
      unset </span><span class="pun">%</span><span class="pln">CLM
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">C_LMngr_</span><span class="pun">:</span><span class="pln">close</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">CLM </span><span class="pun">}</span><span class="pln">
dialog creep </span><span class="pun">{</span><span class="pln">
  size </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="lit">1</span><span class="pln"> </span><span class="lit">300</span><span class="pln"> </span><span class="lit">311</span><span class="pln">
  title IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pln"> </span><span class="pun">[/</span><span class="pln">creep</span><span class="pun">]</span><span class="pln">
  box </span><span class="str">"Black List"</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">275</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">240</span><span class="pun">,</span><span class="pln">sort
  button </span><span class="str">"Add"</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">251</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Remove"</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">251</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Clear"</span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">195</span><span class="pln"> </span><span class="lit">251</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Help"</span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">70</span><span class="pln"> </span><span class="lit">284</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Close"</span><span class="lit">7</span><span class="pun">,</span><span class="pln"> </span><span class="lit">155</span><span class="pln"> </span><span class="lit">284</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">ok
  check </span><span class="str">":D"</span><span class="lit">8</span><span class="pun">,</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">289</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">18</span><span class="pun">,</span><span class="pln">push
  </span><span class="pun">;</span><span class="pln">tabs
  tab </span><span class="str">"Options"</span><span class="lit">9</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="lit">284</span><span class="pln"> </span><span class="lit">290</span><span class="pln"> </span><span class="lit">200</span><span class="pln">
  tab </span><span class="str">"White List"</span><span class="lit">10</span><span class="pln">
  tab </span><span class="str">"About"</span><span class="lit">11</span><span class="pln">
  button </span><span class="str">"Help"</span><span class="lit">12</span><span class="pun">,</span><span class="pln"> </span><span class="lit">70</span><span class="pln"> </span><span class="lit">485</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pln">
  button </span><span class="str">"Close"</span><span class="lit">13</span><span class="pun">,</span><span class="pln"> </span><span class="lit">155</span><span class="pln"> </span><span class="lit">485</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">cancel
  check </span><span class="str">":D"</span><span class="lit">14</span><span class="pun">,</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">490</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">18</span><span class="pun">,</span><span class="pln">push
  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">9</span><span class="pln"> </span><span class="str">"Options"</span><span class="pln">
  check </span><span class="str">"Enable black list"</span><span class="lit">15</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">310</span><span class="pln"> </span><span class="lit">93</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  box </span><span class="str">"List Update"</span><span class="lit">16</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">325</span><span class="pln"> </span><span class="lit">145</span><span class="pln"> </span><span class="lit">45</span><span class="pun">,</span><span class="pln">tab9
  check </span><span class="str">"Enable"</span><span class="lit">17</span><span class="pun">,</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">343</span><span class="pln"> </span><span class="lit">50</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  button </span><span class="str">"Check updates"</span><span class="lit">18</span><span class="pun">,</span><span class="pln"> </span><span class="lit">70</span><span class="pln"> </span><span class="lit">341</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">20</span><span class="pun">,</span><span class="pln">tab9
  box </span><span class="str">"User Scan5K"</span><span class="lit">19</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">370</span><span class="pln"> </span><span class="lit">145</span><span class="pln"> </span><span class="lit">65</span><span class="pun">,</span><span class="pln">tab9
  check </span><span class="str">"Scan user ident"</span><span class="lit">20</span><span class="pun">,</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">385</span><span class="pln"> </span><span class="lit">91</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  check </span><span class="str">"Scan nick changes"</span><span class="lit">21</span><span class="pun">,</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">400</span><span class="pln"> </span><span class="lit">105</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  check </span><span class="str">"Scan channel on join"</span><span class="lit">22</span><span class="pun">,</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">415</span><span class="pln"> </span><span class="lit">115</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  box </span><span class="str">"Action"</span><span class="lit">23</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">310</span><span class="pln"> </span><span class="lit">130</span><span class="pln"> </span><span class="lit">50</span><span class="pun">,</span><span class="pln">tab9
  radio </span><span class="str">"Kick user"</span><span class="lit">24</span><span class="pun">,</span><span class="pln"> </span><span class="lit">165</span><span class="pln"> </span><span class="lit">325</span><span class="pln"> </span><span class="lit">60</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  radio </span><span class="str">"Kick/ban user"</span><span class="lit">25</span><span class="pun">,</span><span class="pln"> </span><span class="lit">165</span><span class="pln"> </span><span class="lit">340</span><span class="pln"> </span><span class="lit">83</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab9
  box </span><span class="str">"Ban Type"</span><span class="lit">26</span><span class="pun">,</span><span class="pln"> </span><span class="lit">160</span><span class="pln"> </span><span class="lit">360</span><span class="pln"> </span><span class="lit">130</span><span class="pln"> </span><span class="lit">45</span><span class="pun">,</span><span class="pln">tab9
  combo </span><span class="lit">27</span><span class="pun">,</span><span class="pln"> </span><span class="lit">165</span><span class="pln"> </span><span class="lit">375</span><span class="pln"> </span><span class="lit">120</span><span class="pln"> </span><span class="lit">150</span><span class="pun">,</span><span class="pln">drop</span><span class="pun">,</span><span class="pln">tab9
  box </span><span class="str">"Kick Message"</span><span class="lit">28</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">435</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">42</span><span class="pun">,</span><span class="pln">tab9
  edit </span><span class="str">""</span><span class="lit">29</span><span class="pun">,</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> </span><span class="lit">449</span><span class="pln"> </span><span class="lit">270</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab9
  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">10</span><span class="pln"> </span><span class="str">"white list"</span><span class="pln">
  </span><span class="typ">list</span><span class="pln"> </span><span class="lit">30</span><span class="pun">,</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> </span><span class="lit">315</span><span class="pln"> </span><span class="lit">280</span><span class="pln"> </span><span class="lit">145</span><span class="pun">,</span><span class="pln">sort</span><span class="pun">,</span><span class="pln">tab10
  button </span><span class="str">"Add"</span><span class="lit">31</span><span class="pun">,</span><span class="pln"> </span><span class="lit">25</span><span class="pln"> </span><span class="lit">445</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab10
  button </span><span class="str">"Remove"</span><span class="lit">32</span><span class="pun">,</span><span class="pln"> </span><span class="lit">110</span><span class="pln"> </span><span class="lit">445</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab10
  button </span><span class="str">"Clear"</span><span class="lit">33</span><span class="pun">,</span><span class="pln"> </span><span class="lit">195</span><span class="pln"> </span><span class="lit">445</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">23</span><span class="pun">,</span><span class="pln">tab10
  </span><span class="pun">;</span><span class="pln">tab </span><span class="lit">11</span><span class="pln"> </span><span class="str">"about"</span><span class="pln">
  text </span><span class="str">"IRC Guard 5000"</span><span class="lit">34</span><span class="pun">,</span><span class="pln"> </span><span class="lit">98</span><span class="pln"> </span><span class="lit">345</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab11
  text </span><span class="str">"Version: 5.0.0 V5"</span><span class="lit">35</span><span class="pun">,</span><span class="pln"> </span><span class="lit">96</span><span class="pln"> </span><span class="lit">385</span><span class="pln"> </span><span class="lit">100</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab11
  text </span><span class="str">"By: Neo Nemesis"</span><span class="lit">36</span><span class="pun">,</span><span class="pln"> </span><span class="lit">98</span><span class="pln"> </span><span class="lit">400</span><span class="pln"> </span><span class="lit">80</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab11
  link </span><span class="str">"http://CodersElite.site90.net"</span><span class="lit">37</span><span class="pun">,</span><span class="pln"> </span><span class="lit">75</span><span class="pln"> </span><span class="lit">420</span><span class="pln"> </span><span class="lit">150</span><span class="pln"> </span><span class="lit">15</span><span class="pun">,</span><span class="pln">tab11
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">creep</span><span class="pun">:</span><span class="pln">init</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
  did </span><span class="pun">-</span><span class="pln">h creep </span><span class="lit">9</span><span class="pln">
  C_LMngr load
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">0</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">user@host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">1</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">2</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">3</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">4</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*!*@*.</span><span class="pln">host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">5</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">user@host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">6</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">7</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">8</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">9</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!*@*.</span><span class="pln">host
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">27</span><span class="pln"> </span><span class="lit">10</span><span class="pun">:</span><span class="pln"> nick</span><span class="pun">!*@*</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">enable</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">15</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">update</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">17</span><span class="pln"> 
    PG5K_Update GET
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">20</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">21</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">22</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">action</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> kick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">24</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">action</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">25</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">27</span><span class="pln"> $calc</span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">bantype</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  did </span><span class="pun">-</span><span class="pln">a creep </span><span class="lit">29</span><span class="pln"> $creep</span><span class="pun">(</span><span class="pln">kickmsg</span><span class="pun">)</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">creep</span><span class="pun">:</span><span class="pln">sclick</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> C_LMngr gui_bl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select a entry from the black </span><span class="typ">list</span><span class="pln"> you would like to remove</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove </span><span class="str">' $+ $did(2).seltext $+ '</span><span class="pln"> from the black </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      C_LMngr del $did</span><span class="pun">(</span><span class="lit">2</span><span class="pun">).</span><span class="pln">seltext 
      did </span><span class="pun">-</span><span class="pln">r creep </span><span class="lit">2</span><span class="pun">,</span><span class="lit">30</span><span class="pln">
      C_LMngr load
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to clear all entries from the black </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> C_LMngr clear bl </span><span class="pun">}</span><span class="pln">  
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep help </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">8</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    dialog </span><span class="pun">-</span><span class="pln">s creep $dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">x $dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">y </span><span class="lit">300</span><span class="pln"> </span><span class="lit">510</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">h creep </span><span class="lit">6</span><span class="pun">,</span><span class="lit">7</span><span class="pun">,</span><span class="lit">8</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">v creep </span><span class="lit">9</span><span class="pun">,</span><span class="lit">12</span><span class="pun">,</span><span class="lit">13</span><span class="pun">,</span><span class="lit">14</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">c creep </span><span class="lit">14</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">12</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep help </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">14</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    dialog </span><span class="pun">-</span><span class="pln">s creep $dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">x $dialog</span><span class="pun">(</span><span class="pln">creep</span><span class="pun">).</span><span class="pln">y </span><span class="lit">300</span><span class="pln"> </span><span class="lit">311</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">h creep </span><span class="lit">9</span><span class="pun">,</span><span class="lit">12</span><span class="pun">,</span><span class="lit">13</span><span class="pun">,</span><span class="lit">14</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">v creep </span><span class="lit">6</span><span class="pun">,</span><span class="lit">7</span><span class="pun">,</span><span class="lit">8</span><span class="pln">
    did </span><span class="pun">-</span><span class="pln">u creep </span><span class="lit">8</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">15</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep enable on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep enable off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">17</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">17</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep update on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep update off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">18</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> PG5K_Update GET </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">20</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">20</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan1 on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan1 off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">21</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">21</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan2 on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan2 off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">22</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">22</span><span class="pun">).</span><span class="pln">state </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan3 on </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep scan3 off </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">24</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep action kick </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">25</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep action ban </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">27</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep bantype $calc</span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">27</span><span class="pun">).</span><span class="pln">sel </span><span class="pun">-</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">31</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> C_LMngr gui_wl </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">32</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(!</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">30</span><span class="pun">).</span><span class="pln">sel</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Please</span><span class="pln"> select the entry from the white </span><span class="typ">list</span><span class="pln"> you wish to remove</span><span class="pun">.,</span><span class="pln">oh</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to remove </span><span class="str">' $+ $did(30).seltext $+ '</span><span class="pln"> from the white </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
        C_LMngr del $did</span><span class="pun">(</span><span class="lit">30</span><span class="pun">).</span><span class="pln">seltext 
        did </span><span class="pun">-</span><span class="pln">r creep </span><span class="lit">2</span><span class="pun">,</span><span class="lit">30</span><span class="pln">
        C_LMngr load
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">33</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CRP_DUMP $input</span><span class="pun">(</span><span class="typ">Are</span><span class="pln"> you sure you want to clear all entries from the white </span><span class="typ">list</span><span class="pun">?,</span><span class="pln">yw</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CRP_DUMP </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> C_LMngr clear wl </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did </span><span class="pun">==</span><span class="pln"> </span><span class="lit">37</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> run http</span><span class="pun">:</span><span class="com">//CodersElite.site90.net }</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">creep</span><span class="pun">:</span><span class="pln">edit</span><span class="pun">:</span><span class="lit">29</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$did</span><span class="pun">(</span><span class="lit">29</span><span class="pun">).</span><span class="pln">text</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep kickmsg $did</span><span class="pun">(</span><span class="lit">29</span><span class="pun">).</span><span class="pln">text </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">else</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> creep kickmsg </span><span class="typ">You</span><span class="pln"> are not welcome here</span><span class="pun">!</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">DIALOG</span><span class="pun">:</span><span class="pln">creep</span><span class="pun">:</span><span class="pln">close</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">C_LMngr</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">x C_LMngr </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">C_LMngr_</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">x C_LMngr </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$dialog</span><span class="pun">(</span><span class="pln">PG5K_U</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> dialog </span><span class="pun">-</span><span class="pln">x PG5K_U </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">checking system
</span><span class="pun">;</span><span class="pln">check </span><span class="kwd">for</span><span class="pln"> black listed users when they join
on </span><span class="pun">@*:</span><span class="pln">JOIN</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick </span><span class="pun">==</span><span class="pln"> $me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="kwd">goto</span><span class="pln"> end </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">enable</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> CR_J $nick $chan </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">:</span><span class="pln">end
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">check </span><span class="kwd">for</span><span class="pln"> black listed users in channel when you join </span><span class="pun">(</span><span class="pln">after being opped</span><span class="pun">)</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">OP</span><span class="pun">:#:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="pun">%</span><span class="pln">CR_Sc </span><span class="pun">=</span><span class="pln"> $true
    who $chan 
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">check </span><span class="kwd">for</span><span class="pln"> black listed users on nick change
on </span><span class="pun">*:</span><span class="pln">NICK</span><span class="pun">:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$creep</span><span class="pun">(</span><span class="pln">scan2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="typ">set</span><span class="pln"> </span><span class="pun">-</span><span class="pln">u0 </span><span class="pun">%</span><span class="pln">CR_nc </span><span class="lit">1</span><span class="pln">
    </span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CR_nc </span><span class="pun">&lt;=</span><span class="pln"> $chan</span><span class="pun">(</span><span class="lit">0</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$me isop $chan</span><span class="pun">(%</span><span class="pln">CR_nc</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$newnick ison $chan</span><span class="pun">(%</span><span class="pln">CR_nc</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> CR_J $newnick $chan</span><span class="pun">(%</span><span class="pln">CR_nc</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">CR_nc
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">scanning on join
raw </span><span class="lit">352</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CR_Sc </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    CR_J $6 $2 
    halt
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
raw </span><span class="lit">315</span><span class="pun">:*:</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">CR_Sc </span><span class="pun">==</span><span class="pln"> $true</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    unset </span><span class="pun">%</span><span class="pln">CR_Sc
    halt 
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">;</span><span class="pln">popup menus </span><span class="pun">-</span><span class="pln"> thanks to </span><span class="typ">Jethro_</span><span class="pln">
menu query</span><span class="pun">,</span><span class="pln">nicklist</span><span class="pun">,</span><span class="pln">channel</span><span class="pun">,</span><span class="pln">status</span><span class="pun">,</span><span class="pln">menubar </span><span class="pun">{</span><span class="pln">
  $iif</span><span class="pun">(</span><span class="pln">$menu </span><span class="pun">==</span><span class="pln"> nicklist</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Menu</span><span class="pun">:/</span><span class="pln">creep
  </span><span class="pun">.</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> </span><span class="typ">Manager</span><span class="pun">:/</span><span class="pln">PG5K_Update GET
  </span><span class="pun">.-</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Add</span><span class="pln"> </span><span class="typ">User</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Black</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Nickname</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">u $1
  </span><span class="pun">...</span><span class="typ">Ident</span><span class="pun">:</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">i $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">33</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Hostmask</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">0</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">1</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">2</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">3</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">4</span><span class="pln"> </span><span class="pun">*!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">5</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">6</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">6</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">7</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">7</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">8</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">9</span><span class="pln"> nick</span><span class="pun">!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">9</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">White</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Nickname</span><span class="pun">:/</span><span class="pln">C_Mngr add </span><span class="pun">-</span><span class="pln">U $1
  </span><span class="pun">...</span><span class="typ">Hostmask</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">0</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">1</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">2</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">3</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">4</span><span class="pln"> </span><span class="pun">*!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">5</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">6</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">6</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">7</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">7</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">8</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">9</span><span class="pln"> nick</span><span class="pun">!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">9</span><span class="pun">)</span><span class="pln">
  $iif</span><span class="pun">(</span><span class="pln">$menu </span><span class="pun">==</span><span class="pln"> query</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Menu</span><span class="pun">:/</span><span class="pln">creep
  </span><span class="pun">.</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> </span><span class="typ">Manager</span><span class="pun">:/</span><span class="pln">PG5K_Update GET
  </span><span class="pun">.-</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Add</span><span class="pln"> </span><span class="typ">User</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Black</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Nickname</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">u $1
  </span><span class="pun">...</span><span class="typ">Ident</span><span class="pun">:</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">i $gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2</span><span class="pun">,</span><span class="lit">33</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Hostmask</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">0</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">1</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">2</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">3</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">4</span><span class="pln"> </span><span class="pun">*!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">5</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">6</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">6</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">7</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">7</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">8</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">9</span><span class="pln"> nick</span><span class="pun">!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">h $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">9</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">White</span><span class="pln"> </span><span class="typ">List</span><span class="pln">
  </span><span class="pun">...</span><span class="typ">Nickname</span><span class="pun">:/</span><span class="pln">C_Mngr add </span><span class="pun">-</span><span class="pln">U $1
  </span><span class="pun">...</span><span class="typ">Hostmask</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">0</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">1</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">1</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">2</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">3</span><span class="pln"> </span><span class="pun">*!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">3</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">4</span><span class="pln"> </span><span class="pun">*!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">5</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">5</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">6</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">6</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">7</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">7</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">8</span><span class="pln"> nick</span><span class="pun">!*</span><span class="pln">user@</span><span class="pun">*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">8</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">....</span><span class="lit">9</span><span class="pln"> nick</span><span class="pun">!*@*.</span><span class="pln">host</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">H $address</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">,</span><span class="lit">9</span><span class="pun">)</span><span class="pln">
  $iif</span><span class="pun">(</span><span class="pln">$menu </span><span class="pun">==</span><span class="pln"> channel</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Menu</span><span class="pun">:/</span><span class="pln">creep
  </span><span class="pun">.</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> </span><span class="typ">Manager</span><span class="pun">:/</span><span class="pln">PG5K_Update GET
  </span><span class="pun">.</span><span class="typ">Whitelist</span><span class="pln"> </span><span class="typ">Channel</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Add</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">c $chan
  </span><span class="pun">..</span><span class="typ">Remove</span><span class="pun">:/</span><span class="pln">C_LMngr del $chan
  $iif</span><span class="pun">(</span><span class="pln">$menu </span><span class="pun">==</span><span class="pln"> status</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Menu</span><span class="pun">:/</span><span class="pln">creep
  </span><span class="pun">.</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> </span><span class="typ">Manager</span><span class="pun">:/</span><span class="pln">PG5K_Update GET
  </span><span class="pun">.-</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Whitelist</span><span class="pln"> </span><span class="typ">Network</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $network $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Add</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">n $network
  </span><span class="pun">..</span><span class="typ">Remove</span><span class="pun">:/</span><span class="pln">C_LMngr del $network
  </span><span class="pun">.</span><span class="typ">Whitelist</span><span class="pln"> </span><span class="typ">Server</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $server $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Add</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">n $server
  </span><span class="pun">..</span><span class="typ">Remove</span><span class="pun">:/</span><span class="pln">C_LMngr del $server
  $iif</span><span class="pun">(</span><span class="pln">$menu </span><span class="pun">==</span><span class="pln"> menubar</span><span class="pun">,</span><span class="pln">IRC </span><span class="typ">Guard</span><span class="pln"> </span><span class="lit">5000</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Main</span><span class="pln"> </span><span class="typ">Menu</span><span class="pun">:/</span><span class="pln">creep
  </span><span class="pun">.</span><span class="typ">List</span><span class="pln"> </span><span class="typ">Update</span><span class="pln"> </span><span class="typ">Manager</span><span class="pun">:/</span><span class="pln">PG5K_Update GET
  </span><span class="pun">.-</span><span class="pln">
  </span><span class="pun">.</span><span class="typ">Whitelist</span><span class="pln"> </span><span class="typ">Network</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $network $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Add</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">n $network
  </span><span class="pun">..</span><span class="typ">Remove</span><span class="pun">:/</span><span class="pln">C_LMngr del $network
  </span><span class="pun">.</span><span class="typ">Whitelist</span><span class="pln"> </span><span class="typ">Server</span><span class="pln"> </span><span class="pun">(</span><span class="pln"> $</span><span class="pun">+</span><span class="pln"> $server $</span><span class="pun">+</span><span class="pln"> </span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="typ">Add</span><span class="pun">:/</span><span class="pln">C_LMngr add </span><span class="pun">-</span><span class="pln">n $server
  </span><span class="pun">..</span><span class="typ">Remove</span><span class="pun">:/</span><span class="pln">C_LMngr del $server</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5626</guid><pubDate>Sun, 16 Oct 2022 22:38:25 +0000</pubDate></item><item><title>Autogline Ident on Irccloud</title><link>https://www.coders-resources.net/ipb/forums/topic/5612-autogline-ident-on-irccloud/</link><description><![CDATA[<p>
	this code is to make autogline on ident if user is using irccloud , if he is with mibbit hostmask the script will make gline on ident , if user is with hostmask of real ip than the script will gline the hostmask , is user is with irccloud but he has vhost than the script will make whois on user to see if he is from irccloud and gline ident , if he is not with irccloud than the script will make gline on ip , hope this script is useful  , the command is .g nick reason or without reason just .g nick , command can use only user that are in channel #opers , and thay can;t gline someone that isin too on channel #opers 
</p>

<p>
	 
</p>

<pre class="ipsCode prettyprint lang-c prettyprinted" id="ips_uid_909_4" style=""><span class="pln">on </span><span class="pun">*:</span><span class="pln">text</span><span class="pun">:.</span><span class="pln">g </span><span class="pun">*:#:{</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">%</span><span class="pln">reason $3</span><span class="pun">-</span><span class="pln">
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">%</span><span class="pln">glineirccloud on
  </span><span class="typ">set</span><span class="pln"> </span><span class="pun">%</span><span class="pln">idenGline $remtok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">.</span><span class="lit">0</span><span class="pun">),</span><span class="lit">1.64</span><span class="pun">),*,</span><span class="lit">0.33</span><span class="pun">)</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">irccloud</span><span class="pun">.</span><span class="pln">com isin $address</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick ison </span><span class="com">#opers) &amp;&amp; ($2 !ison #opers) || (mibbit.com isin $address($2,2)) { gline $addtok(%idenGline,*,64) +2h ° %reason ° | unset %glineirccloud | unset %idenGline | unset %reason }</span><span class="pln">
  elseif </span><span class="pun">(</span><span class="pln">irccloud</span><span class="pun">.</span><span class="pln">com </span><span class="pun">!</span><span class="pln">isin $address</span><span class="pun">(</span><span class="pln">$2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$nick ison </span><span class="com">#opers) &amp;&amp; ($2 !ison #opers) { whois $2 | set %glineirccloud on | set %reason $3- }</span><span class="pln">
  elseif </span><span class="pun">(</span><span class="pln">$2 ison </span><span class="com">#opers) &amp;&amp; ($nick ison #opers) { msg $nick Ju nuk mund te beni gline nje Ircop/Admin!! | unset %glineirccloud | unset %idenGline | unset %reason }</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
raw </span><span class="lit">378</span><span class="pun">:*:{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">glineirccloud </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">irccloud</span><span class="pun">.</span><span class="pln">com isin $6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    gline $addtok</span><span class="pun">(%</span><span class="pln">idenGline</span><span class="pun">,*,</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="lit">2h</span><span class="pln"> </span><span class="pun">°</span><span class="pln"> </span><span class="pun">%</span><span class="pln">reason </span><span class="pun">°</span><span class="pln">
    unset </span><span class="pun">%</span><span class="pln">glineirccloud
    unset </span><span class="pun">%</span><span class="pln">reason
    unset </span><span class="pun">%</span><span class="pln">idenGline
  </span><span class="pun">}</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(%</span><span class="pln">glineirccloud </span><span class="pun">==</span><span class="pln"> on</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">irccloud</span><span class="pun">.</span><span class="pln">com </span><span class="pun">!</span><span class="pln">isin $6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    gline $2 </span><span class="pun">+</span><span class="lit">2h</span><span class="pln"> </span><span class="pun">°</span><span class="pln"> </span><span class="pun">%</span><span class="pln">reason </span><span class="pun">°</span><span class="pln">
    unset </span><span class="pun">%</span><span class="pln">glineirccloud
    unset </span><span class="pun">%</span><span class="pln">reason
    unset </span><span class="pun">%</span><span class="pln">idenGline
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5612</guid><pubDate>Fri, 14 Oct 2022 02:37:25 +0000</pubDate></item><item><title>No Spam Chan v1.1</title><link>https://www.coders-resources.net/ipb/forums/topic/5611-no-spam-chan-v11/</link><description><![CDATA[<p>
	he script monitors the communication on the channel in order to search for the " # " symbol in the strings to detect advertising from other channels. If detected, it checks the real existence of such a channel by executing the " /WHO " command, and if it is on the list, it performs a "Kick+Ban" on the violator's nickname.
</p>

<pre class="ipsCode prettyprint lang-c prettyprinted" id="ips_uid_2027_4" style=""><span class="com">################################################### ####################</span><span class="pln">
</span><span class="com"># Name: No Spam Chan v1.1</span><span class="pln">
</span><span class="com"># Author: Epic (epicnet@mail.ru, http://epicnet.ru)</span><span class="pln">
</span><span class="com"># Description: The script monitors the communication on the channel in order to search for the symbol "#" in the strings to identify advertisements from other channels.</span><span class="pln">
</span><span class="com">################################################### ####################</span><span class="pln">

alias </span><span class="pun">-</span><span class="pln">l nospamchan </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">You</span><span class="pln"> can enable or disable options by changing the value to </span><span class="str">&lt;yes&gt;</span><span class="pln"> or </span><span class="str">&lt;no&gt;</span><span class="pln">
  </span><span class="pun">;---------------------</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> nick</span><span class="pun">!</span><span class="pln">ident@host
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> nick</span><span class="pun">!*</span><span class="lit">@host</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">ident@host
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">4</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> nick</span><span class="pun">!*@*</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">5</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">*!</span><span class="pln">ident@</span><span class="pun">*</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">6</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@host</span><span class="pln">
  </span><span class="pun">;#</span><span class="pln"> </span><span class="typ">Type</span><span class="pln"> </span><span class="lit">7</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">*!*</span><span class="lit">@subnet</span><span class="pun">*</span><span class="pln">
  </span><span class="pun">;---------------------</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan type</span><span class="pun">-</span><span class="pln">ban </span><span class="lit">6</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan kick yes
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan ban yes
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan kick</span><span class="pun">-</span><span class="pln">text </span><span class="typ">No</span><span class="pln"> channel ads</span><span class="pun">!</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">--------------------------------------------------</span><span class="pln"> </span><span class="pun">--------------------</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">TEXT</span><span class="pun">:*#*:#:</span><span class="pln"> nospamchan_check $nick $chan $strip</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">-)</span><span class="pln">
on </span><span class="pun">*:</span><span class="pln">ACTION</span><span class="pun">:*#*:#:</span><span class="pln"> nospamchan_check $nick $chan $strip</span><span class="pun">(</span><span class="pln">$1</span><span class="pun">-)</span><span class="pln">
alias </span><span class="pun">-</span><span class="pln">l nospamchan_check </span><span class="pun">{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$1 </span><span class="pun">==</span><span class="pln"> $server</span><span class="pun">)</span><span class="pln"> halt </span><span class="pun">|</span><span class="pln"> nospamchan
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan nick $1
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan chan $2
  </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan search $wildtok</span><span class="pun">(</span><span class="pln">$3</span><span class="pun">-,*#*,</span><span class="lit">1</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">who $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">search</span><span class="pun">)</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
raw </span><span class="lit">352</span><span class="pun">:*:</span><span class="pln"> </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">search</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">hadd </span><span class="pun">-</span><span class="pln">m nospamchan found $2 </span><span class="pun">|</span><span class="pln"> halt</span><span class="pun">}</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> haltdef
raw </span><span class="lit">315</span><span class="pun">:*:{</span><span class="pln">
  </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$2 </span><span class="pun">==</span><span class="pln"> $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">found</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">;---------------------</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> yes</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">5</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">7</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $</span><span class="pun">+(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),!*@*)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $</span><span class="pun">+(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">1</span><span class="pun">),</span><span class="lit">1</span><span class="pun">,</span><span class="lit">64</span><span class="pun">)</span><span class="pln"> </span><span class="pun">,@*)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">),</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
      </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">type</span><span class="pun">-</span><span class="pln">ban</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mode $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">b $</span><span class="pun">+(*!*@,</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$gettok</span><span class="pun">(</span><span class="pln">$address</span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="lit">5</span><span class="pun">),</span><span class="lit">2.64</span><span class="pun">),</span><span class="lit">1</span><span class="pun">-</span><span class="lit">2.46</span><span class="pun">),.*)</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">;---------------------</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">kick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> yes</span><span class="pun">)</span><span class="pln"> </span><span class="pun">.</span><span class="pln">kick $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> $hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">kick</span><span class="pun">-</span><span class="pln">text</span><span class="pun">)</span><span class="pln">
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">.</span><span class="pln">hdel </span><span class="pun">-</span><span class="pln">sw nospamchan nick
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">chan</span><span class="pun">))</span><span class="pln"> </span><span class="pun">.</span><span class="pln">hdel </span><span class="pun">-</span><span class="pln">sw nospamchan chan
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">search</span><span class="pun">))</span><span class="pln"> </span><span class="pun">.</span><span class="pln">hdel </span><span class="pun">-</span><span class="pln">sw nospamchan search
    </span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$hget</span><span class="pun">(</span><span class="pln">nospamchan</span><span class="pun">,</span><span class="pln">found</span><span class="pun">))</span><span class="pln"> </span><span class="pun">.</span><span class="pln">hdel </span><span class="pun">-</span><span class="pln">sw nospamchan found
    halt
  </span><span class="pun">}</span><span class="pln">
  haltdef
</span><span class="pun">}</span></pre>

<p>
	 
</p>
<p>
<a class="ipsAttachLink" href="https://www.coders-resources.net/ipb/forums/applications/core/interface/file/attachment.php?id=654&amp;key=993d5d40cfe77be8c8e7e46ece13a21d" data-fileExt='rar' data-fileid='654' data-filekey='993d5d40cfe77be8c8e7e46ece13a21d'>NoSpamChan_v1.1.rar</a></p>]]></description><guid isPermaLink="false">5611</guid><pubDate>Fri, 14 Oct 2022 02:34:13 +0000</pubDate></item><item><title>Abuse IP v1.0</title><link>https://www.coders-resources.net/ipb/forums/topic/5609-abuse-ip-v10/</link><description><![CDATA[<p>
	This script helps to extract IP address information from the website (along with abuse statistics and negative reviews) for display on the channel.
</p>

<p>
	Requirements: It is necessary to register a new account with your account on the site " https://www.abuseipdb.com " to be able to create your own individual API key, to maintain the daily operation of the script, with an independent daily limit on the limit. The free limit is " 1000 " IP views (checks) per day. Important: - You must keep your API key secret and never show it to anyone, because it will be tied to your account with all the statistics and usage limit.
</p>

<p>
	Settings: You can change the parameter settings of the script via the " abuseip_set " alias to the values you need.
</p>

<pre class="ipsCode prettyprint lang-html prettyprinted" id="ips_uid_5365_4" style=""><span class="pln">################################################### ####################
# Name: Abuse IP v1.0
# Author: Epic (epicnet@mail.ru, http://epicnet.ru)
# Description: Retrieves the website's IP address information (along with abuse statistics and negative reviews) to display on the channel.
# Requirement: It is necessary to register a new account with your account on the site "https://www.abuseipdb.com" in order to be able to create your own individual API key to maintain the daily work of the script, with an independent daily limit on the restriction. The free limit is "1000" IP views (checks) per day.
################################################### ####################

alias -l abuseip_set {
  %aip_link = https://api.abuseipdb.com/api/v2/check
  %aip_apikey = 6a31ca43fb50a3482c68051a7e765e16820d589a5f8509f1a9a169a88908d9811f232698840c40e7
  %aip_param = maxageindays=90 verbose accept=application/json
  %aip_path = scripts\AbuseIP\
  %aip_comm = !abuse,!ip,!info,!loc,!check
  %aip_color1 = 10 | %aip_color2 = 06 | %aip_color3 = 14 | %aip_color4 = 07 | %aip_color5 = 04
  %aip_operprefix = [ +%@&amp;~! ]
  %aip_timelimit = 10
  %aip_echodata = no
  %aip_showdata = ipAddress,hostnames,countryCode,countryName,isp,usageType,isPublic,isWhitelisted,abuseConfidenceScore,numDistinctUsers,totalReports,lastReportedAt
}
-------------------------------------------------- --------------------
on *:TEXT:*:#:{
  abuseip set | if ($istok(%aip_comm,$strip($1),44)) {
    var %aip_pnick $remove($nick($chan,$nick).pnick,$nick) | if (%aip_pnick !isin %aip_operprefix) { .notice $nick 14 Access denied. You do not have the required status on the channel. | halt}
    if ($2) {
      if (%aip_timelimit &gt; 0) {
        if ($hget(timelimit,$nick) != $null) { .notice $nick 14Command limit set. Wait: 07 $hget(timelimit,$nick) 14sec. | halt}
        .hadd -mz timelimit $nick %aip_timelimit
      }
      abuseip $2 $nick $chan
    }
    else .notice $nick Correct syntax: 12 %aip_comm </span><span class="tag">&lt;ip&gt;</span><span class="pln">
  }
}
alias -l abuseip {
  var %ww_num = $+(abuseip_,$rand(1,100000),_,$ticks)
  var %ww_ip = $strip($1) | var %ww_nick = $2 | var %ww_chan = $3
  var %ww_file = $+(%aip_path,%ww_num,.txt)
  var %ww_domen = $remove($gettok(%aip_link,2,47),$chr(47))
  var %ww_sreq = $+(%aip_link,?ipAddress=,%ww_ip,&amp;key=,%aip_apikey,&amp;,$replace(%aip_param,$chr(32),&amp;))
  if (https: isin %aip_link) { var %ww_flag -e | var %ww_port 443 } | else var %ww_port 80
  ;---------------
  if ($sock(%ww_num)) .sockclose %ww_num | if ($exists(%ww_file)) .remove %ww_file
  .sockopen %ww_flag %ww_num %ww_domen %ww_port
  .sockmark %ww_num %ww_ip %ww_nick %ww_chan %ww_domen %ww_file %ww_sreq
}
on *:SOCKOPEN:abuseip_*:{
  if ($sockerr) { echo -s Domain: $gettok($sock($sockname).mark,4,32) -&gt; Server is not available. | return}
  .sockwrite -nt $sockname GET $gettok($sock($sockname).mark,6,32) HTTP/1.1
  .sockwrite -nt $sockname Host: $gettok($sock($sockname).mark,4,32)
  .sockwrite -nt $sockname User-Agent: */*
  .sockwrite -nt $sockname $str($crlf,2)
  .sockwrite -nt $sockname
}
on *:SOCKREAD:abuseip_*:{
  if ($sockerr &gt; 0) { echo -s Domain: $gettok($sock($sockname).mark,4,32) -&gt; $error | return}
  :1 | .sockread %tempcip | if ($sockbr == 0) return | if (!%tempcip) goto 1
  if (!%wfile) var %wfile $gettok($sock($sockname).mark,5,32)
  if("data": isin %tempcip) {
    .write -i %wfile $mid(%tempcip,1,2000)
    var %sm1 $gettok($sock($sockname).mark,1,32)
    var %sm2 $gettok($sock($sockname).mark,2,32)
    var %sm3 $gettok($sock($sockname).mark,3,32)
    var %sm4 $gettok($sock($sockname).mark,4,32)
    var %sm5 $gettok($sock($sockname).mark,5,32)
    .sockclose $sock($sockname) | abuseip_mess %sm1 %sm2 %sm3 %sm4 %sm5 | halt
  }
  goto 1
}
alias -l abuseip_mess {
  var %mes_str $replace($remove($read($5,1),{"data":{,}},"),\/,/)
  if (%aip_echodata == yes) .echo -s %mes_str
  var %i 1 | while (%i &lt;= $numtok(%aip_showdata,44)) {
    var %mes_tok $gettok(%aip_showdata,%i,44) | var %mes_find $+(%mes_tok,$chr(58))
    var %mes_val $gettok($matchtok(%mes_str,%mes_find,1,44),2,58)
    if (ipAddress == %mes_tok) %mes_text = %mes_text $+(%aip_color1,IP:,$chr(32),%aip_color4,%mes_val)
    if (hostnames == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Host:,$chr(32),%aip_color2,%mes_val)
    if (domain == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Domain:,$chr(32),%aip_color2,%mes_val)
    if (countryCode == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Zone:,$chr(32),%aip_color2,%mes_val)
    if (countryName == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Country:,$chr(32),%aip_color2,%mes_val)
    if (isp == %mes_tok) %mes_text = %mes_text $+(%aip_color1,ISP:,$chr(32),%aip_color2,%mes_val)
    if (usageType == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Type:,$chr(32),%aip_color2,%mes_val)
    ;----------------
    if (isPublic == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Public:,$chr(32),%aip_color2,%mes_val)
    if (isWhitelisted == %mes_tok) {
      if (%mes_val == false) var %mc %aip_color5 | else var %mc %aip_color2
      %mes_text = %mes_text $+(%aip_color1,WhiteList:,$chr(32),%mc,%mes_val)
    }
    if (abuseConfidenceScore == %mes_tok) {
      if (%mes_val &gt; 0) var %mc %aip_color5 | else var %mc %aip_color2
      %mes_text = %mes_text $+(%aip_color1,Negative:,$chr(32),%mc,%mes_val,$chr(37))
    }
    if (numDistinctUsers == %mes_tok) {
      if (%mes_val &gt; 0) var %mc %aip_color5 | else var %mc %aip_color2
      %mes_text = %mes_text $+(%aip_color1,Users:,$chr(32),%mc,%mes_val)
    }
    if (totalReports == %mes_tok) {
      if (%mes_val &gt; 0) var %mc %aip_color5 | else var %mc %aip_color2
      %mes_text = %mes_text $+(%aip_color1,Reports:,$chr(32),%mc,%mes_val)
    }
    if (lastReportedAt == %mes_tok) %mes_text = %mes_text $+(%aip_color1,Last:,$chr(32),%aip_color2,%mes_val)
    if (%i &lt; $numtok(%aip_showdata,44)) %mes_text = $+(%mes_text,%aip_color3,$chr(44))
    inc %i
  }
  msg $3 %mes_text | unset %mes_text %tempcip | if ($exists($5)) .remove $5
}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5609</guid><pubDate>Fri, 14 Oct 2022 02:22:21 +0000</pubDate></item><item><title>Ban Assistance Dialog</title><link>https://www.coders-resources.net/ipb/forums/topic/5337-ban-assistance-dialog/</link><description><![CDATA[<p>
	This is a Ban Assist Dialog.<br>
	<br>
	It is a Menubar, Channel and nicklist menu item, There are a few Pre-Defined Kick messages integrated into the dialog.<br>
	<br>
	Update: Updated with _Teen_'s idea.. made the code a few line's smaller which is always better <span class="ipsEmoji">😜</span> Thanks _Teen_.<br>
	<br>
	Update #2: Added the Extended mode ban's and when you first load the dialog on a network, It will version the server to check what it is running, I have only added for it to work on InspIRCd and Unreal server's. Anything else will show up as Unknown and will only allow +b with no extended ban.<br>
	<br>
	You /may/ have to restart/Re-Connect to the network to get the Ext Ban type's to show up. <span class="ipsEmoji">😕</span>
</p>

<pre class="ipsCode prettyprint lang-html prettyprinted" id="ips_uid_2279_4" style=""><span class="pln">menu channel,menubar,nicklist {
Ban Assist:dialog $iif($dialog(ban_assist),-v,-m ban_assist) ban_assist
}
dialog ban_assist {
title "Ban Assist Dialog by Danneh"
size -1 -1 203 130
option dbu
box "Nicknames:", 1, 3 3 66 108
list 4, 6 10 59 97, size
box "Options:", 5, 73 3 127 108
combo 6, 101 14 95 50, size drop
text "Ban Type:", 7, 76 15 25 8
text "Example:", 8, 76 43 25 8
text "", 9, 76 50 120 8
text "Custom Kick message:", 10, 76 73 53 8, hide
edit "", 11, 76 79 120 10, hide autohs
button "Kick", 12, 77 94 37 12
button "Kick/Ban", 13, 118 94 37 12
button "Ok", 14, 50 115 37 12, ok
button "Cancel", 15, 109 115 37 12, cancel
text "Kick Message:", 16, 76 61 34 8
combo 17, 110 60 86 50, size drop
button "Ban Only", 18, 159 94 37 12
combo 19, 110 29 86 50, size drop
text "Ext Ban Type:", 20, 76 30 34 8
menu "File", 2
item "Close", 3, 2
}
on *:DIALOG:ban_assist:init:*: {
if (!$ini(ircd.ini,$network,version)) { .version }
if ($readini(ircd.ini,$network,version) == UnrealIRCd) { didtok $dname 19 124 Normal|~q:|~n:|~q: and ~n: }
if ($readini(ircd.ini,$network,version) == InspIRCd) { didtok $dname 19 124 Normal|m:|n:|O:|m: and n: }
if ($readini(ircd.ini,$network,version) == Unknown) { did -a $dname 19 Normal }
didtok $dname 6 124 1|2|3|4|5
didtok $dname 17 124 Spamming|Abusive Language|Caps|No PM Permission|Personal Attacks|Bad Attitude|Custom
var %a = 1
while (%a &lt;= $nick($active,0)) {
did -a $dname 4 $nick($active,%a)
inc %a
}
}
on *:DIALOG:ban_assist:menu:3: { dialog -x ban_assist }
on *:DIALOG:ban_assist:sclick:4,6,12,13,17-19: {
if (($did == 4) &amp;&amp; ($did(6).sel)) { did -ra $dname 9 $address($did(ban_assist,4).seltext,$did(6).sel) }
if ($did == 6) { did -ra $dname 9 $address($did(ban_assist,4).seltext,$did(6).sel) }
if ($did == 12) {
if ($did(17) != Custom) {
did -h $dname 10,11
if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to kick.,o) }
else {
if ($did(17) == Spamming) { kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
elseif ($did(17) == Abusive Language) { kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
elseif ($did(17) == Caps) { kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
elseif ($did(17) == No PM Permission) { kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
elseif ($did(17) == Personal Attacks) { kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
elseif ($did(17) == Bad Attitude) { kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
}
}
if ($did(17) == Custom) {
did -v $dname 10,11
if ($did(11) == $null) { noop $input(Please enter a Custom Kick Message.,o) }
else { kick $active $did(ban_assist,4).seltext $did(11) }
}
}
if ($did == 13) {
if ($did(17) != Custom) {
did -h $dname 10,11
if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to kick.,o) }
else {
if ($did(ban_assist,19).seltext == Normal) {
if ($did(17) == Spamming) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
elseif ($did(17) == Abusive Language) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
elseif ($did(17) == Caps) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
elseif ($did(17) == No PM Permission) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
elseif ($did(17) == Personal Attacks) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
elseif ($did(17) == Bad Attitude) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
}
else {
if ($did(19).seltext == ~q:) { var %a = mode $active +b ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == ~n:) { var %a = mode $active +b ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == ~q: and ~n:) { var %a = mode $active +bb ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == m:) { var %a = mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == n:) { var %a = mode $active +b n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == O:) { var %a = mode $active +b O: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == m: and n:) { var %a = mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == Normal) { var %a = mode $active +b $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(17) == Spamming) { var %b = kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
elseif ($did(17) == Abusive Language) { var %b = kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
elseif ($did(17) == Caps) { var %b = kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
elseif ($did(17) == No PM Permission) { var %b = kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
elseif ($did(17) == Personal Attacks) { var %b = kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
elseif ($did(17) == Bad Attitude) { var %b = kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
%a | %b
}
}
}
if ($did(17) == Custom) {
did -v $dname 10,11
if ($did(11) == $null) { noop $input(Please enter a Custom Kick Message.,o) }
else { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext $did(11) }
}
}
if ($did == 17) {
if ($did(17) != Custom) { did -h $dname 10,11 }
elseif ($did(17) == Custom) { did -v $dname 10,11 }
}
if ($did == 18) {
if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to Ban.,o) }
elseif ($did(19).seltext != Normal) {
if ($did(19).seltext == ~q:) { mode $active +b ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == ~n:) { mode $active +b ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == ~q: and ~n:) { mode $active +bb ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == m:) { mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == n:) { mode $active +b n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == O:) { mode $active +b O: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == m: and n:) { mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
elseif ($did(19).seltext == Normal) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) }
}
}
}
RAW 002:*:{
if (!$ini(ircd.ini,$network,version)) {
if (Unreal isin $2-) { writeini ircd.ini $network version UnrealIRCd }
if (InspIRCd isin $2-) { writeini ircd.ini $network version InspIRCd }
elseif (!$istok(Unreal|InspIRCd,$2-,124)) { writeini ircd.ini $network version Unknown }
}
}
RAW 351:*:{
if (!$ini(ircd.ini,$network,version)) {
if (Unreal isin $2-) { writeini ircd.ini $network version UnrealIRCd }
elseif (InspIRCd isin $2-) { writeini ircd.ini $network version InspIRCd }
elseif (!$istok(Unreal|InspIRCd,$2-,124)) { writeini ircd.ini $network version Unknown }
}
}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">5337</guid><pubDate>Mon, 18 Jul 2022 02:12:00 +0000</pubDate></item><item><title>mIRC Channel Protection Bot</title><link>https://www.coders-resources.net/ipb/forums/topic/5157-mirc-channel-protection-bot/</link><description><![CDATA[<p>
	add into a new remote file in a clean mirc
</p>

<p>
	About:<br>
	this is a multi server multi channel bot,<br>
	it will provide you with a user system for your channels and protect each user accordingly.<br>
	to begin youll have too add yourself as botowner and set your bots trigger
</p>

<p>
	in the bot type<br>
	/addowner Your-Nick<br>
	** You must be on the same channel and network as the bot
</p>

<p>
	then<br>
	/set %trigger !<br>
	** or any trigger you choose
</p>

<p>
	then your ready to set it up for a chanel.<br>
	first add your server to autojoin with ?addserver add server<br>
	then a channel to autojoin with ?autojoin add network #channel
</p>

<p>
	now your ready to set yourself as the channel owner by typing<br>
	!addowner nick channel<br>
	<strong>again the nick must be on the channel at the time of adding.</strong><br>
	its best if the bot is the real channel owner, and you get your status from the bot.
</p>

<p>
	now type<br>
	!commands<br>
	and take a look through the commands and have fun <span class="ipsEmoji">🙂</span>
</p>

<p>
	** COMMANDS<br>
	?about bot/nick<br>
	?act channel message<br>
	?addowner nick channel<br>
	?addadmin nick<br>
	?addop nick<br>
	?addhelper nick<br>
	?addvoice nick<br>
	?autojoin add/del/list network channel<br>
	?badnick add/del nick<br>
	?ban add/del nick reason<br>
	?baninfo total/nick<br>
	?bigflood on/off/status # ( eg: ?bigflood on 200 ) ( 200 characters per message sent )<br>
	?botmaster nick<br>
	?checknick nick<br>
	?clonescanner on/off<br>
	?commands<br>
	?cycle channel<br>
	?dns nick/address<br>
	?flood on/off/status #:# ( eg: ?flood on 10:3 )( 10 lines in 3 seconds )<br>
	?flyby on/off/status<br>
	?global messsage<br>
	?greet on/off message<br>
	?ircop scan channel<br>
	?kick nick reason<br>
	?kill<br>
	?lastseen nick<br>
	?modelock list/modes<br>
	?protect on off<br>
	?reboot<br>
	?relay on channel_1 channel_2<br>
	?remember info_here ( the first word of your info, will be the trigger to retrieve the info )<br>
	?rules<br>
	?say channel message<br>
	?set nick/password nick/password<br>
	?server add/del server<br>
	?spam on/off/status<br>
	?stats nick ( or: ?stats reset nick )<br>
	?topiclock on/off topic<br>
	?trigger trigger<br>
	/addowner nick ( Must be on the same channel )
</p>

<p>
	** NOTE<br>
	this bot recognises by nick and address, so if your hostmask changes alot<br>
	this would most likely not be a good bot for you
</p>

<p>
	<strong>Made on IrCQNet</strong><br>
	works with anope type services
</p>

<p>
	this is still a work in progress so im open to suggestion<br>
	although im tryin to keep away from such commands as !op !deop etc etc
</p>

<p>
	 
</p>

<pre class="ipsCode prettyprint lang-html prettyprinted" id="ips_uid_6736_4" style=""><span class="pln">;?about bot/nick
;?act channel message
;?addowner nick channel
;?addadmin nick 
;?addop nick 
;?addhelper nick
;?addvoice nick 
;?autojoin add/del/list network channel
;?badnick add/del nick
;?ban add/del nick reason
;?baninfo total/nick
;?bigflood on/off/status # ( eg: ?bigflood on 200 ) ( 200 characters per message sent )
;?botmaster nick
;?checknick nick
;?clonescanner on/off
;?commands
;?cycle channel
;?dns nick/address
;?flood on/off/status #:# ( eg: ?flood on 10:3 )( 10 lines in 3 seconds )
;?flyby on/off/status
;?forget info_here
;?global messsage
;?greet on/off message
;?ircop scan channel
;?kick nick reason
;?kill
;?lastseen nick
;?modelock list/modes
;?protect on off
;?reboot
;?relay on channel_1 channel_2
;?remember info_here ( the first word of your info, will be the trigger to retrieve the info )
;?remuser nick channel
;?rules
;?say channel message
;?set nick/password nick/password
;?server add/del server
;?spam on/off/status
;?stats nick ( or: ?stats reset nick )
;?topiclock on/off topic
;?trigger trigger
;/addowner nick ( Must be on the same channel )
/* 
On Load/Unload Events 
*/
on 1:load: { set %botstartdate $fulldate | echo -s 04,01**** Loaded %logo.l SassIRC 12,01m04,01I04,01R08,01C Channel Protection Bot %logo.r Coded By %logo.l PuNkTuReD %logo.r }
on 1:unload: { echo -s 04,01**** Unloaded %logo.l SassIRC 12,01m04,01I04,01R08,01C Channel Protection Bot %logo.r Coded By %logo.l PuNkTuReD %logo.r }
/* 
On Start/Exit Events 
*/
on *:start: { 
  if (!$hget(Badwords)) { hmake Badwords 20 }
  if ($exists(Badwords.hsh)) { hload Badwords Badwords.hsh } 
  if (!$hget(AutoJoin)) { hmake AutoJoin 20 }
  if ($exists(AutoJoin.hsh)) { hload AutoJoin AutoJoin.hsh } 
  if (!$hget(Servers)) { hmake Servers 20 }
  if ($exists(Servers.hsh)) { hload Servers Servers.hsh } 
  set -u5 %a 1
  set -u5 %b $hget(Servers,0).item
  while %a &lt;= %b {
    if (%a == 1) { server $hget(Servers,%a).item | inc %a }
    else { server -m $hget(Servers,%a).item | inc %a }
  }
  else { haltdef }
}
on *:exit: { 
  if ($hget(Servers)) { hsave -o Servers Servers.hsh }
  if ($hget(AutoJoin)) { hsave -o AutoJoin AutoJoin.hsh }
  if ($hget(Badwords)) { hsave -o Badwords Badwords.hsh }
} 
/* 
On Connect Event 
*/
on *:connect: { nick %botnick | identify %botpass | join $hget(Autojoin,$network) }
/* 
On Join/Part/Quit Events 
*/
on *:join:#: {
  set $+(%,$nick,totaljoin) $calc($($+(%,$nick,totaljoin),2) + 1)
  if ($($+(%,$chan,flyby),2) == on) { set -u60 $+(%,join,$chan,$nick) $nick }
  if (%serverrelay == on) &amp;&amp; ($chan == %rchan) { relayevent $network $nick joined # }
  if (%clonescanner == on) &amp;&amp; ($ialchan($strip($address($nick,2)),$chan,0) &gt; 1) { .msg $chan %logo.l $nick %logo.r is a clone. %logo.l $ialchan($strip($address($nick,2)),$chan,0) %logo.r Active connections. From %logo.l $strip($address($nick,2)) %logo.r } 
  if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 Join %logo.l $nick %logo.r }
  if ($nick == $me) &amp;&amp; ($chan == $gettok($readini(users.ini,modelock,$chan),1,32)) { .msg $chan %logo.l ModeLock Enforcer 04,01%logo.r | .msg $chan %logo.l Enforcing Modes %logo.r $gettok($readini(users.ini,modelock,$chan),2-,32) | mode $chan $gettok($readini(users.ini,modelock,$chan),2-,32) }
  if ($nick == $gettok($readini(badnicks.ini,$chan,$nick),1,32)) { ban -ku300 $chan $nick 2 Bad Nick. }
  if ($($+(%,greet,$chan),2) == on) { msg $chan $($+(%,joingreet,$chan),2) }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) { .msg $chan %logo.l Bot Master %logo.r04,01 $nick has joined. }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { .msg $chan %logo.l $chan 04,01Owner %logo.r  $+ $nick has joined. | mode $chan +qov $nick $nick $nick | halt }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { .msg $chan %logo.l $chan 04,01Admin %logo.r  $+ $nick has joined. | mode $chan +aov $nick $nick $nick | halt }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) { .msg $chan %logo.l $chan 04,01Op %logo.r  $+ $nick has joined. | mode $chan +ov $nick $nick | halt }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == helper) { .msg $chan %logo.l $chan 04,01Helper %logo.r  $+ $nick has joined. | mode $chan +hv $nick $nick | halt }
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == voice) { .msg $chan %logo.l $chan 04,01Voice %logo.r  $+ $nick has joined. | mode $chan +v $nick | halt }
}
on *:part:#: {
  set $+(%,$nick,totalparts) $calc($($+(%,$nick,totalparts),2) + 1)
  if (%serverrelay == on) &amp;&amp; ($chan == %rchan) { relayevent $network $nick parted # }
  if ($($+(%,join,$chan,$nick),2) == $nick) &amp;&amp; ($($+(%,$chan,flyby),2) == on) { $iif($+(%,flyby,$chan),inc $+(%,flyby,$chan),set $+(%,flyby,$chan) 1) | ban -u300 $chan $nick 2 Fly-By Protect | .msg $chan %logo.l $($+(%,join,$chan,$nick),2) %logo.r was Fly-By %logo.l $($+(%,flyby,$chan),2) %logo.r Since $($+(%,botstartdate),2) }
  if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 Part %logo.l $nick %logo.r } 
  if (!$read(lastseen.txt, w, * $+ $nick- $+ *)) { write lastseen.txt %logo.l $nick %logo.r was last seen leaving %logo.l $chan %logo.r On %logo.l $fulldate %logo.r }
  else { write -dw $+ * $+ $nick $+ * lastseen.txt | write lastseen.txt %logo.l $nick %logo.r was last seen leaving %logo.l $chan %logo.r On %logo.l $fulldate %logo.r }
}
on 1:quit: {
  chkflyby
  set $+(%,$nick,totalquits) $calc($($+(%,$nick,totalquits),2) + 1)
  if (*.split isin $strip($1-)) {
    if (!%ns) { ame 4,1%logo.l NetSplit Detected 4,1%logo.r | set -u180 %ns 1 }
  }
  if (%relay == on) { msg %chan2 Quit - %logo.l $nick %logo.r }  
  if (!$read(lastseen.txt, w, * $+ $nick $+ *)) { write lastseen.txt %logo.l $nick %logo.r was last seen leaving %logo.l $network %logo.r On %logo.l $fulldate %logo.r }
  else { write -dw $+ * $+ $nick $+ * lastseen.txt | write lastseen.txt %logo.l $nick %logo.r was last seen leaving %logo.l $network %logo.r On %logo.l $fulldate %logo.r }
  if (%serverrelay == on) {
    var %a = $comchan($nick,0)
    while (%a) {
      if ($comchan($nick,%a) == %rchan) { relayevent $network $nick quit: $iif(($1-),$1-,No Quit Message) | dec %a }
      else { dec %a }
    }
  }
}
/* 
On Nick Event 
*/
on *:nick: {
  if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 %logo.l $nick %logo.r is now %logo.l $newnick %logo.r } 
  if ($nick == $gettok($readini(users.ini,botmaster,$nick),1,32)) { writeini users.ini botmaster $newnick $newnick $gettok($readini(users.ini,botmaster,$nick),2,32) | remini users.ini botmaster $nick } 
  var %a = 1
  var %b = $comchan($newnick,0)
  while %a &lt;= %b { 
    if ($read(abuse.txt, w, $newnick $+ *)) { .msg $comchan($newnick,%a) $gettok($read(abuse.txt, w, $newnick $+ *),2-,32) }
    if ($newnick == $gettok($readini(badnicks.ini,$comchan($newnick,%a),$newnick),1,32)) { ban -ku300 $comchan($newnick,%a) $newnick 2 Bad Nick }
    if ($gettok($readini($+($network,users.ini),$comchan($newnick,%a),$nick),2,32) == owner) { writeini $+($network,users.ini) $comchan($newnick,%a) $newnick $gettok($readini(users.ini,$comchan($newnick,%a),$nick),1,32) owner | remini $+($network,users.ini) $comchan($newnick,%a) $nick }
    if ($gettok($readini($+($network,users.ini),$comchan($newnick,%a),$nick),2,32) == admin) { writeini $+($network,users.ini) $comchan($newnick,%a) $newnick $gettok($readini(users.ini,$comchan($newnick,%a),$nick),1,32) admin | remini $+($network,users.ini) $comchan($newnick,%a) $nick }
    if ($gettok($readini($+($network,users.ini),$comchan($newnick,%a),$nick),2,32) == op) { writeini $+($network,users.ini) $comchan($newnick,%a) $newnick $gettok($readini(users.ini,$comchan($newnick,%a),$nick),1,32) op | remini $+($network,users.ini) $comchan($newnick,%a) $nick }
    if ($gettok($readini($+($network,users.ini),$comchan($newnick,%a),$nick),2,32) == helper) { writeini $+($network,users.ini) $comchan($newnick,%a) $newnick $gettok($readini(users.ini,$comchan($newnick,%a),$nick),1,32) helper | remini $+($network,users.ini) $comchan($newnick,%a) $nick }
    if ($gettok($readini($+($network,users.ini),$comchan($newnick,%a),$nick),2,32) == voice) { writeini $+($network,users.ini) $comchan($newnick,%a) $newnick $gettok($readini(users.ini,$comchan($newnick,%a),$nick),1,32) voice | remini $+($network,users.ini) $comchan($newnick,%a) $nick }
    else { inc %a } 
} }
/* 
On dns Event 
*/
on 1:dns: {
  var %n = $dns(0)
  .msg %targ %logo.l DNS %logo.r Found %logo.l %n %logo.r Addresse(s) for %logo.l $dns(%n).addr %logo.r
  while (%n &gt; 0) { .msg %targ %logo.l DNS %logo.r Address: %logo.l $dns(%n).addr %logo.r Ip: %logo.l $dns(%n).ip %logo.r | dec %n
} }
/* 
On Topic Event 
*/
on 1:topic:#: {
  if ($nick == ChanServ) || ($nick == Pazuzu) { halt }
  if ($nick == $me) || ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { set $+(%,topic,$3) $1- | halt }
  if ($($+(%,topiclock,$chan),2) == on) { .msg $chan %logo.l Enforcing Topic %logo.r $($+(%,topic,$chan),2) | topic $chan $($+(%,topic,$chan),2) }
}
/* 
On Mode Event 
*/
on *:mode:#: {
  if ($($+(%,protect,$chan),2) == on) {
    if ($chan == $gettok($readini(users.ini,modelock,$chan),1,32)) { 
      if ($nick == ChanServ) || ($nick == Pazuzu) { halt }
      if ($nick == $me) || ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
      else { mode $chan $replace($1-,+,-) | .msg $chan %logo.l Enforcing Modes %logo.r $gettok($readini(users.ini,modelock,$chan),2-,32) | mode $chan $gettok($readini(users.ini,modelock,$chan),2-,32) }
} } }
/* 
On Ban/Unban Events 
*/
on *:ban:#: { set $+(%,$nick,totalbans) $calc($($+(%,$nick,totalbans),2) + 1) | write banned.txt %logo.l $chan %logo.r Ban %logo.l $banmask %logo.r was banned by %logo.l $nick %logo.r on %logo.l $fulldate %logo.r }
on *:unban:#: { write -dw $+ * $+ $2 $+ * banned.txt }
/* 
On Kick Event 
*/
on *:kick:#: { 
  set $+(%,$nick,totalkicks) $calc($($+(%,$nick,totalkicks),2) + 1) 
  if ($chan == %rchan) { relayevent $network $nick kicked $knick from # }
  if ($($+(%,protect,$chan),2) == on) {  
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    if ($address($knick,2) == $gettok($readini($+($network,users.ini),$chan,$knick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$knick),2,32) == op) { remini $+($network,users.ini) $chan $nick | invite $nick $chan | io | .msg $chan %logo.l $nick %logo.r You may not kick a channel op. | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | mode -o $nick }
    if ($address($knick,2) == $gettok($readini($+($network,users.ini),$chan,$knick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$knick),2,32) == admin) { remini $+($network,users.ini) $chan $nick | invite $nick $chan | io | .msg $chan %logo.l $nick %logo.r You may not kick a channel admin. | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | mode -o $nick }
    if ($address($knick,2) == $gettok($readini($+($network,users.ini),$chan,$knick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$knick),2,32) == owner) { remini $+($network,users.ini) $chan $nick | invite $nick $chan | io | .msg $chan %logo.l $nick %logo.r You may not kick a channel owner. | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | mode -o $nick }
} }
/* 
On Op/Deop Events 
*/
on *:op:#: { 
  if ($($+(%,protect,$chan),2) == on) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { .msg %chan2 Op %logo.l $opnick %logo.r by %logo.l $nick %logo.r } 
    if ($nick == $me) || ($nick == chanserv) || ($nick == Pazuzu) { halt }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == op) { halt }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == admin) { halt }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == owner) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    else { io | .msg $chan %logo.l $opnick %logo.r is not a %logo.l Op %logo.r in this channel. | mode $chan -o $opnick | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
} }
on *:deop:#: {
  if ($+(%,protect,$chan)) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { .msg %chan2 DeOp %logo.l $opnick %logo.r by %logo.l $nick %logo.r } 
    if ($nick == $me) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == owner) { remini $+($network,users.ini) $chan $nick | io | .msg $chan You may not deop a channel owner, You are now being stripped of your Op status. | mode $chan +o $opnick | mode $chan -o $nick }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == admin) { remini $+($network,users.ini) $chan $nick | io | .msg $chan You may not deop a channel admin, You are now being stripped of your Op status. | mode $chan +o $opnick | mode $chan -o $nick }
    if ($address($opnick,2) == $gettok($readini($+($network,users.ini),$chan,$opnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$opnick),2,32) == op) { remini $+($network,users.ini) $chan $nick | io | .msg $chan You may not deop a channel op, You are now being stripped of your Op status. | mode $chan +o $opnick | mode $chan -o $nick }
} }
/* 
On Help/Dehelp Events 
*/
on *:help:#: { 
  if ($+(%,protect,$chan)) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { .msg %chan2 Help %logo.l $hnick %logo.r by %logo.l $nick %logo.r } 
    if ($nick == $me) || ($nick == chanserv) || ($nick == Pazuzu) { halt }
    if ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == helper) || ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == op) { halt }
    if ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == admin) || ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == owner) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    if ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) != helper) { io | .msg $chan %logo.l $hnick %logo.r is not a %logo.l Helper %logo.r in this channel. | mode $chan -h $hnick | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
} }
on *:dehelp:#: {
  if ($+(%,protect,$chan)) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 DeHelp %logo.l $hnick %logo.r by %logo.l $nick %logo.r } 
    if ($nick == $me) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    if ($address($hnick,2) == $gettok($readini($+($network,users.ini),$chan,$hnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == owner) { io | .msg $chan You may not dehelp a channel owner, You are now being stripped of your Op status. | mode $chan +h $hnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($hnick,2) == $gettok($readini($+($network,users.ini),$chan,$hnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == admin) { io | .msg $chan You may not dehelp a channel admin, You are now being stripped of your Op status. | mode $chan +h $hnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($hnick,2) == $gettok($readini($+($network,users.ini),$chan,$hnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == op) { io | .msg $chan You may not dehelp a channel op, You are now being stripped of your Op status. | mode $chan +h $hnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($hnick,2) == $gettok($readini($+($network,users.ini),$chan,$hnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$hnick),2,32) == helper) { io | .msg $chan You may not dehelp a channel helper, You are now being stripped of your Op status. | mode $chan +h $hnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
} }
/* 
On Voice/Devoice Events 
*/
on *:voice:#: { 
  if ($+(%,protect,$chan)) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 Voice %logo.l $vnick %logo.r by %logo.l $nick %logo.r }
    if ($nick == $me) || ($nick == chanserv) || ($nick == Pazuzu) { halt } 
    if ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == voice) || ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == helper) || ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == op) { halt }
    if ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == admin) || ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == owner) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == helper) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt } 
    if ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) != voice) { io | .msg $chan %logo.l $vnick %logo.r is not a %logo.l Voice %logo.r in this channel. | mode $chan -v $vnick | .msg $chan %logo.l $nick %logo.r you are now being stripped of your %logo.l Op %logo.r status. | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
} }
on *:devoice:#: {
  if ($+(%,protect,$chan)) {
    if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 DeVoice %logo.l $vnick %logo.r by %logo.l $nick %logo.r } 
    if ($nick == $me) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == helper) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { halt }
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) { halt }
    if ($address($vnick,2) == $gettok($readini($+($network,users.ini),$chan,$vnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == owner) { io | .msg $chan You may not devoice a channel owner, You are now being stripped of your Op status. | mode $chan +v $vnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($vnick,2) == $gettok($readini($+($network,users.ini),$chan,$vnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == admin) { io | .msg $chan You may not devoice a channel admin, You are now being stripped of your Op status. | mode $chan +v $vnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($vnick,2) == $gettok($readini($+($network,users.ini),$chan,$vnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == op) { io | .msg $chan You may not devoice a channel op, You are now being stripped of your Op status. | mode $chan +v $vnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($vnick,2) == $gettok($readini($+($network,users.ini),$chan,$vnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == helper) { io | .msg $chan You may not devoice a channel helper, You are now being stripped of your Op status. | mode $chan +v $vnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
    if ($address($vnick,2) == $gettok($readini($+($network,users.ini),$chan,$vnick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$vnick),2,32) == voice) { io | .msg $chan You may not devoice a channel voice, You are now being stripped of your Op status. | mode $chan +v $vnick | remini $+($network,users.ini) $chan $nick | mode $chan -o $nick }
} }
/* 
On Notice Event 
*/
on *:notice:*:*: {
  if ($me * is already in use* isin $strip($1-)) { .msg nickserv ghost %botnick %botpass }
  if (Ghost with your nick has been killed* isin $strip($1-)) { .nick %botnick | .identify %botpass }
  if (STATUS isin $strip($1-)) { 
    if (0 isin $strip($1-)) { .msg %targ %logo.l %targnick %logo.r No such user online, or not registered. }
    if (1 isin $strip($1-)) { .msg %targ %logo.l %targnick %logo.r User not recognised as nick owner. }
    if (2 isin $strip($1-)) { .msg %targ %logo.l %targnick %logo.r User recognised as nick owner via Access List only. }
    if (3 isin $strip($1-)) { .msg %targ %logo.l %targnick %logo.r User recognised as nick owner via Identify command. }
} }

/* 
On Notify/UnNotify Events 
*/
on 1:notify: { 
  set $+(%,ticks,$network,$nick) 0
  $+(.timer,ticks,$network,$nick) 0 1 inc $($+(%,ticks,$network,$nick),1) 1
}
on 1:unotify: { 
  echo -a $nick was online for: $duration($($+(%,ticks,$network,$nick),2))
  $+(.timer,ticks,$network,$nick) off
  set $+(%,tickstotal,$network,$nick) $calc($($+(%,tickstotal,$network,$nick),2) + $($+(%,ticks,$network,$nick),2))
}
/*
Rawmode
*/
on *:rawmode:%rchan: { 
  if (%serverrelay == on) { relayevent $network $nick sets mode $1 on $2 } 
}
/* 
On Action Event 
*/
on *:action:*:*: { 
  set $+(%,$nick,totalmsg) $calc($($+(%,$nick,totalmsg),2) + 1)
  set $+(%,$nick,totalchar) $calc($len($1-) + $($+(%,$nick,totalchar),2))
  set $+(%,$nick,totalword) $calc($numtok($1-,32) + $($+(%,$nick,totalword),2))
  if (%serverrelay == on) &amp;&amp; ($chan == %rchan) { relayevent $network $+($chr(60),$nick) $1- }
  if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 %logo.l $nick %logo.r $1- } 
}
/* 
On Text Event 
*/
on *:text:*:*: {
  set $+(%,$nick,totalmsg) $calc($($+(%,$nick,totalmsg),2) + 1)
  set $+(%,$nick,totalchar) $calc($len($1-) + $($+(%,$nick,totalchar),2))
  set $+(%,$nick,totalword) $calc($numtok($1-,32) + $($+(%,$nick,totalword),2))
  if (%serverrelay == on) &amp;&amp; ($chan == %rchan) { relayevent $network $+($chr(60),$nick,$chr(62)) $1- }
  ;
  ; Flood Catcher ( #:# Lines:Seconds )
  ;
  if ($($+(%,$chan,flood),2) == on) { 
    set -u $+ $+(%,$chan,floodin),2) $+(%,$nick,flood) 1 
    if ($($+(%,$nick,flood),2) &gt;= $($+(%,$chan,floodlines),2)) { unset $+(%,$nick,flood) | ban -ku300 $chan $nick 2 Flooding. | .notice $nick You have been banned from %logo.l $chan %logo.r for Flooding. } 
  } 
  ;
  ; Flood Catcher ( Long Messages )
  ;
  if ($($+(%,$chan,bflood),2) == on) { 
    if ($len($strip($1-)) &gt;= $($+(%,$chan,bigflood),2)) { ban -ku300 $chan $nick 2 Flooding. | .notice $nick You have been banned from %logo.l $chan %logo.r for Flooding. } 
  } 
  ;
  ; single server relay
  ;
  if (%relay == on) &amp;&amp; ($chan == %chan1) { msg %chan2 %logo.l $nick %logo.r $1- } 
  if (!$read(info.txt, w,$1 $+ *)) { haltdef }
  if ($read(info.txt, w,$1 $+ *)) { if ($1) &amp;&amp; (!$2) { .msg $chan $read(info.txt, w,$1 $+ *) } }

  if ($($+(%,trigger,$nick),2) == 3) {
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) { unset $+(%,trigger,$nick) }
    else { .msg $chan %logo.l $nick %logo.r You are being ignored for 5 minutes, for trigger abuse. | ignore -u300 $nick | halt }
  }

  ;
  ; Public Commands
  ;
  if ($+(%trigger,about) == $strip($1)) {
    .timer 1 1 .notice $nick %logo.l SassIRC 12,01m04,01I04,01R08,01C Channel Protection Bot %logo.r Coded By %logo.l PuNkTuReD %logo.r
    .timer 1 4 .notice $nick Is currently being used on %logo.l $hget(Servers,0).item %logo.r server(s) in a total of %logo.l $+(%,totchans),2) %logo.r Channel(s), Last Reboot: %logo.l $uptime(server,2) %logo.r ago.
    .timer 1 7 .notice $nick %logo.l $+(%trigger,commands) %logo.r to see a list of available commands. 
  }
  if ($+(%trigger,checknick) == $strip($1)) {
    if (!$2) { eis | .msg $chan ?checknick command: ?checknick nick }
    else { set -u10 %targ $chan | set -u10 %targnick $2 | .msg nickserv status $2 }
  }
  if ($+(%trigger,commands) == $strip($1)) {
    .notice $nick 04,01**** %logo.l Bot Master %logo.r commands are 04,01Red. %logo.l Channel Owner %logo.r commands are 07,01Orange. %logo.l Public %logo.r commands are 08,01Yellow.
    ; Bot Master Commands
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) {
      .notice $nick 04,01?act nick/channel message - 04,01?addowner nick channel - 04,01?autojoin add/del/list network channel - 04,01?botmaster nick - 04,01?clonescanner on/off - 04,01?cycle channel - 
      .notice $nick 04,01?global messsage - 04,01?kill - 04,01?reboot - 04,01?relay on/off channel_1 channel_2 - 04,01?remember info_here - 04,01?say nick/channel message - 04,01?set nick/password nick/password - 04,01?server add/del server - 
    }
    ; Channel Owner Commands
    if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner ) { 
      .notice $nick 07,01?addadmin nick - 07,01?addop nick - 07,01?addhelper nick - 07,01?addvoice nick - 07,01?badnick add/del nick - 07,01?ban add/del nick reason - 07,01?baninfo total/banmask - 
      .notice $nick 07,01?bigflood on/off/status # - 07,01?flood on/off/status #:# - 07,01?flyby on/off/status - 07,01?greet on/off message - 07,01?kick nick reason - 07,01?modelock list/modes - 07,01?protect on/off - 07,01?spam on/off/status - 07,01?topiclock on/off topic - 
    }
    ; Public Commands
    .notice $nick 08,01?about - 08,01?checknick nick - 08,01?commands - 08,01?dns nick/address - 08,01?ircop scan channel - 08,01?lastseen nick - 08,01?stats nick - 08,01?rules -
  }
  if ($+(%trigger,dns) == $strip($1)) {
    if (!$2) { eis | .msg $chan ?dns command: ?dns address }
    if ($2) { set -u5 %targ $chan | .dns $2 }
  }
  if ($+(%trigger,ircop) == $strip($1)) {
    if (!$3) { eis | .msg $chan ?ircop command: ?ircop scan #channel }
    if ($2 == scan) { 
      if ($me ison $3) { set -u10 %msgchan $chan | set -u10 %chkchan1 $3 | ircopscan %chkchan1 }
      else { .msg $chan %logo.l $nick %logo.r I can only scan channels i am on. }
  } }
  if ($+(%trigger,lastseen) == $strip($1)) {
    if (!$2) { eis | .msg $chan ?lastseen command: ?lastseen nick | halt }
    if ($2) { 
      if ($2 ison $chan) { .msg $chan %logo.l Last Seen04,01 $2 %logo.r is on %logo.l $chan %logo.r already %logo.l $nick %logo.r }
      else {
        if ($2 == $gettok($read(lastseen.txt, w,* $+ $2- $+ *),2,32)) { .msg $chan %logo.l Last Seen04,01 $2 %logo.r $read(lastseen.txt, w,* $+ $2- $+ *) } 
        else { .msg $chan %logo.l Last Seen %logo.r I have No Records for $2  }
      }
  } }
  if ($+(%trigger,rules) == $strip($1)) {
    .timer 1 1 .msg $chan $iif($($+(%,protect,$chan),2) == on,$(%logo.l  Channel is being protected %logo.r ),) $iif($($+(%,protect,$chan),2) == on,Status protection (@ % +,Op Hop Voice) ,)
    .timer 1 4 .msg $chan $iif($chan == $gettok($readini(users.ini,modelock,$chan),1,32),$(%logo.l  Mode Lock %logo.r ),) $iif($chan == $gettok($readini(users.ini,modelock,$chan),1,32), $gettok($readini(users.ini,modelock,$chan),2-,32) ,)
    .timer 1 7 .msg $chan $iif($($+(%,topiclock,$chan),2) == on,$(%logo.l  Topic lock %logo.r ),) $iif($($+(%,topiclock,$chan),2) == on,$($+(%,topic,$chan),2) ,)
    .timer 1 10 .msg $chan $iif($($+(%,greet,$chan),2) == on,$(%logo.l  Greet Message %logo.r ),) $iif($($+(%,greet,$chan),2) == on,$($+(%,joingreet,$chan),2) ,)
    .timer 1 13 .msg $chan $iif($($+(%,sp,$chan),2) == on,$(%logo.l  Spam Protect %logo.r ),) $iif($($+(%,$chan,flyby),2) == on,$(%logo.l  Fly-By Protect %logo.r ),) $iif($($+(%,$chan,flood),2) == on,$(%logo.l  Flood Protect %logo.r ),) $iif($($+(%,$chan,bflood),2) == on,$(%logo.l  Big Flood Protect %logo.r ),)
  }
  if ($+(%trigger,stats) == $strip($1)) {
    if (!$2) { eis | .msg $chan ?stats command: ?stats nick | .msg $chan Or: ?stats reset nick | halt }
    if ($2) { 
      if ($2 == reset) &amp;&amp; ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) { unset $+(%,$3,*) | .msg $chan %logo.l Stats for04,01 $3 %logo.r Have Been Reset. | halt }
      else {
        if ($($+(%,$2,totaljoin),2)) {
          if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) {
            .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r Total Online Time %logo.l $duration($calc($($+(%,ticks,$network,$2),2) + $($+(%,tickstotal,$network,$2),2)))  %logo.r 
            halt
          }
          if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner) {
            .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r Total Online Time %logo.l $duration($calc($($+(%,ticks,$network,$2),2) + $($+(%,tickstotal,$network,$2),2)))  %logo.r
            halt
          }
          if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == admin) { 
            .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r Total Online Time %logo.l $duration($calc($($+(%,ticks,$network,$2),2) + $($+(%,tickstotal,$network,$2),2)))  %logo.r
            halt
          }
          if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == op) {
            .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r Total Online Time %logo.l $duration($calc($($+(%,ticks,$network,$2),2) + $($+(%,tickstotal,$network,$2),2)))  %logo.r
            halt
          }
          if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == helper) {
            .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r Total Online Time %logo.l $duration($calc($($+(%,ticks,$network,$2),2) + $($+(%,tickstotal,$network,$2),2)))  %logo.r
            halt
          }
          else { .msg $chan %logo.l Stats for04,01 $2 %logo.r Total Joins: %logo.l $iif($($+(%,$2,totaljoin),2),$($+(%,$2,totaljoin),2),0) %logo.r Total Parts: %logo.l $iif($($+(%,$2,totalparts),2),$($+(%,$2,totalparts),2),0) %logo.r Total Quits: %logo.l $iif($($+(%,$2,totalquits),2),$($+(%,$2,totalquits),2),0) %logo.r Total Bans: %logo.l $iif($($+(%,$2,totalbans),2),$($+(%,$2,totalbans),2),0) %logo.r Total Kicks: %logo.l $iif($($+(%,$2,totalkicks),2),$($+(%,$2,totalkicks),2),0) %logo.r Total Messages Sent: %logo.l $iif($($+(%,$2,totalmsg),2),$($+(%,$2,totalmsg),2),0) %logo.r Total Letters: %logo.l $iif($($+(%,$2,totalchar),2),$($+(%,$2,totalchar),2),0) %logo.r Total Words: %logo.l $iif($($+(%,$2,totalword),2),$($+(%,$2,totalword),2),0) %logo.r }
        }
        else { .msg $chan %logo.l Stats for04,01 $2 %logo.r No stats Recorded. } 
      } 
  } }
  ;
  ; Bot Master Commands
  ;
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),botmaster,$nick),2,32)) {
    if ($+(%trigger,act) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?act command: ?act nick/#channel message }
      if ($3) { .describe $chan %logo.l $me %logo.r $3- | .describe $2 $3- }
    }
    if ($+(%trigger,addowner) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?addowner command: ?addowner nick #channel }
      if ($3) { notify $2 | writeini $+($network,users.ini) $3 $2 $address($2,2) owner | .msg $chan Added %logo.l $2 %logo.r as %logo.l $3 %logo.r Owner. }
    }
    if ($+(%trigger,autojoin) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?autojoin command: ?autojoin add/del/list network #channel }
      if ($2 == add) { $iif(%totchans == $null,set %totchans 1,set %totchans $calc(%totchans + 1)) | hadd -m AutoJoin $3 $iif($hget(Autojoin,$3),$+($hget(Autojoin,$3),$chr(44),$4-),$+($4-,$chr(44))) | .msg $chan Added %logo.l $4 %logo.r to %logo.l $3 %logo.r Autojoin channel(s), I will join on my next reboot. }
      if ($2 == del) { 
        set %totchans $calc(%totchans - 1)
        hadd AutoJoin $3 $remtok($hget(Autojoin,$3),$4-,1,44) 
        .msg $chan Deleted %logo.l $4 %logo.r from %logo.l $3 %logo.r Autojoin channel(s), I will leave on my next reboot. 
      }
      if ($2 == list) { 
        if (!$3) { eis | .msg $chan ?autojoin command: ?autojoin list network }
        else { .msg $chan I auto join these channel(s) on $+($3,:) %logo.l $hget(Autojoin,$3) %logo.r }
    } }
    if ($+(%trigger,badnick) == $strip($1)) {
      if (!$4) { eis | .msg $chan ?badnick command: ?badnick add/del nick | halt }
      if ($2 == add) { writeini badnicks.ini $chan $3 $3 | .msg $chan %logo.l Bad Nick04,01 $3 %logo.r Added to bad nicks list for %logo.l $chan %logo.r | halt }
      if ($2 == del) { remini badnicks.ini $chan $3 | .msg $chan %logo.l Bad Nick04,01 $3 %logo.r Removed from bad nicks list for %logo.l $chan %logo.r | halt }
    }
    if ($+(%trigger,baninfo) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?baninfo command: ?baninfo total/banmask | halt } 
      if ($2 == total) { .msg $chan %logo.l Total Bans %logo.r $lines(banned.txt) | halt }
      if (!$read(banned.txt, w, * $+ $2- $+ *)) { .msg $chan No Such Ban Exists. | halt }
      else { .msg $chan $read(banned.txt, w, * $+ $2- $+ *) | halt }
    }
    if ($+(%trigger,botmaster) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?botmaster command: ?botmaster nick | halt } 
      if ($2) { notify $2 | writeini $+($network,users.ini) botmaster $2 $2 $address($2,2) | .msg $chan %logo.l $gettok($readini(users.ini,botmaster,$2),1,32) %logo.r  added to %logo.l Master List %logo.r }
    }
    if ($+(%trigger,clonescanner) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?clonescanner command: ?clonescanner on/off }
      if ($2 == on) { set %clonescanner on | .msg $chan %logo.l Clone Scanner %logo.r On }
      if ($2 == off) { set %clonescanner off | .msg $chan %logo.l Clone Scanner %logo.r Off }
    }
    if ($+(%trigger,cycle) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?cycle command: ?cycle #channel }
      if ($2) { .msg $2 %logo.l Cycling %logo.r as ordered by %logo.l $nick 04,01%logo.r | part $2 | .timer 1 1 join $2 } 
    }
    if ($+(%trigger,forget) == $strip($1)) { write $+(-ds,",$2-,") info.txt | msg $chan ok ill forget that. }
    if ($+(%trigger,global) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?global command: ?global message }
      if ($2) { Global $nick $2- }
    } 
    if ($+(%trigger,kill) == $strip($1)) { scon -a //ame %logo.l Killed %logo.r by %logo.l $nick %logo.r | exit -n }
    if ($+(%trigger,openini) == $strip($1)) { run $mircdirusers.ini }
    if ($+(%trigger,openmircdir) == $strip($1)) { run $mircdir }
    if ($+(%trigger,raw) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?raw command: ?raw command }
      if ($2) { $2- }
    }
    if ($+(%trigger,reboot) == $strip($1)) { scon -a //ame %logo.l Rebooting %logo.r as ordered by %logo.l $nick %logo.r command recieved on %logo.l $network %logo.r | exit -nr }
    if ($+(%trigger,relay) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?relay command: ?relay channel_1 channel_2 }
      if (on == $2) { join $3 | set %chan1 $3 | set %chan2 $4 | set %relay on | msg $chan %logo.l Relay %logo.r from %logo.l $3 %logo.r to %logo.l $4 %logo.r }
      if (off == $2) { part %chan1 | unset %chan1 %chan2 %relay | msg $chan %logo.l Relay %logo.r OFF  }
    }
    if ($+(%trigger,remember) == $strip($1)) { 
      if (!$2) { eis | .msg $chan ?remember command: ?remember info_here }
      if (!$read(info.txt, w, $2 *)) &amp;&amp; ($2) { write info.txt $2- | .msg $chan Ok, $nick $+ . | halt }
      if ($read(info.txt, w, $2 *)) &amp;&amp; ($2) { write -dw $+ $2 $+ * info.txt | write info.txt $2- | .msg $chan Ok, $nick $+ . Replaced previous info. | halt }
    }
    if ($+(%trigger,say) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?say command: ?say nick/#channel message }
      if ($3) { .msg $chan %logo.l $me %logo.r $3- | .msg $2 $3- }
    }
    if ($+(%trigger,server) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?server command: ?server add/del server }
      if ($2 == add) { hadd -m Servers $3- $3- | .msg $chan Added %logo.l $3 %logo.r as %logo.l Autojoin Server %logo.r }
      if ($2 == del) { hdel -m Servers $3- $3- | .msg $chan Deleted %logo.l $3 %logo.r as %logo.l Autojoin Server %logo.r }
    }
    if ($+(%trigger,set) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?set command: ?set nick/password nick/password }
      if ($2 == nick) { set %botnick $3 | nick $3 | identify %botpass | .notice $nick Set %logo.l $3 %logo.r as %logo.l BotNick %logo.r }
      if ($2 == password) { set %botpass $3 | identify $3 | .notice $nick Set %logo.l $3 %logo.r as %logo.l Password %logo.r }
    }
    if ($+(%trigger,trigger) == $strip($1)) { 
      if ($2) { set %trigger $2 | msg $chan Trigger is now %logo.l $2- %logo.r }
  } }
  ;
  ; Channel Owner Commands
  ;
  if ($strip($address($nick,2)) == $gettok($readini($+($network,users.ini),$chan,$nick),1,32)) &amp;&amp; ($gettok($readini($+($network,users.ini),$chan,$nick),2,32) == owner ) {
    if ($+(%trigger,addadmin) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?addadmin command: ?addadmin nick }
      if ($2) { notify $2 | writeini $+($network,users.ini) $chan $2 $address($2,2) admin | mode $chan +a $2 | .msg $chan Added %logo.l $2 %logo.r as %logo.l $chan %logo.r Admin. }
    }
    if ($+(%trigger,addhelper) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?addhelper command: ?addhelper nick  }
      if ($2) { notify $2 | writeini $+($network,users.ini) $chan $2 $address($2,2) helper | mode $chan +h $2 | .msg $chan Added %logo.l $2 %logo.r as %logo.l $chan %logo.r Helper. }
    }
    if ($+(%trigger,addop) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?addop command: ?addop nick }
      if ($2) { notify $2 | writeini $+($network,users.ini) $chan $2 $address($2,2) op | mode $chan +o $2 | .msg $chan Added %logo.l $2 %logo.r as %logo.l $chan %logo.r Op. }
    }
    if ($+(%trigger,addvoice) == $strip($1)) { 
      if (!$2) { eis | .msg $chan ?addvoice command: ?addvoice nick }
      if ($2) { notify $2 | writeini $+($network,users.ini) $chan $2 $address($2,2) voice | mode $chan +v $2 | .msg $chan Added %logo.l $2 %logo.r as %logo.l $chan %logo.r Voice. }
    }
    if ($+(%trigger,badnick) == $strip($1)) {
      if (!$4) { eis | .msg $chan ?badnick command: ?badnick add/del nick }
      if ($2 == add) { writeini badnicks.ini $chan $3 $3 | .msg $chan %logo.l Bad Nick $3 %logo.r Added to bad nicks list for %logo.l $chan %logo.r }
      if ($2 == del) { remini badnicks.ini $chan $3 | .msg $chan %logo.l Bad Nick $3 %logo.r Removed from bad nicks list for %logo.l $chan %logo.r }
    }
    if ($+(%trigger,ban) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?ban command: ?ban add/del nick reason }
      if ($2 == add) { ban -ku600 $chan $3 $4- | .msg $chan Banned %logo.l $3 %logo.r time %logo.l 15 Minute Ban %logo.r reason %logo.l $4- %logo.r }
      if ($2 == del) { mode $chan -b $gettok($read(banned.txt, w, * $+ $3- $+ *),6,32) | .msg $chan Unbanned %logo.l $3 %logo.r }
    }
    if ($+(%trigger,baninfo) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?baninfo command: ?baninfo total/banmask | halt } 
      if ($2 == total) { .msg $chan %logo.l Total Bans %logo.r $lines(banned.txt) | halt }
      if (!$read(banned.txt, w, * $+ $2- $+ *)) { .msg $chan No Such Ban Exists. | halt }
      else { .msg $chan $read(banned.txt, w, * $+ $2- $+ *) | halt }
    }
    if ($+(%trigger,bigflood) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?bigflood command: ?bigflood on/off/status $chr(35) | .msg $chan example: ?flood on 200 ( 200 characters per message sent ) }
      if ($2 == on) { 
        set $+(%,$chan,bflood) on 
        set $+(%,$chan,bigflood) $3 
        .msg $chan %logo.l $chan Big Flood Protect %logo.r is now On: $3
      }
      if ($2 == off) { set $+(%,$chan,bflood) off | .msg $chan %logo.l $chan Big Flood Protect %logo.r is now Off }
      if ($strip($2) == status) { .msg $chan %logo.l $chan Big Flood Protect %logo.r is currently: $($+(%,$chan,bflood),2) }
    }
    if ($+(%trigger,flood) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?flood command: ?flood on/off/status #:# | .msg $chan example: ?flood on 10:3 ( 10 messages in 3 seconds ) }
      if ($2 == on) { 
        set $+(%,$chan,floodlines) $gettok($3,1,58)
        set $+(%,$chan,floodin) $gettok($3,2,58)
        set $+(%,$chan,flood) on 
        .msg $chan %logo.l $chan Flood Protect %logo.r is now On: $3
      }
      if ($2 == off) { set $+(%,$chan,flood) off | .msg $chan %logo.l $chan Flood Protect %logo.r is now Off }
      if ($strip($2) == status) { .msg $chan %logo.l $chan Flood Protect %logo.r is currently: $($+(%,$chan,flood),2) }
    }
    if ($+(%trigger,flyby) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?flyby command: ?flyby on/off/status | halt } 
      if ($2 == on) { set $+(%,$chan,flyby) on | .msg $chan %logo.l $chan Fly By %logo.r is now On }
      if ($2 == off) { set $+(%,$chan,flyby) off | .msg $chan %logo.l $chan Fly By %logo.r is now Off }
      if ($strip($2) == status) { .msg $chan %logo.l $chan Fly By %logo.r is currently $($+(%,$chan,flyby),2) }
    }
    if ($+(%trigger,greet) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?greet command: ?greet on/off message }
      if ($2 == on) { set $+(%,greet,$chan) on | set $+(%,joingreet,$chan) $3- | .msg $chan Added %logo.l $3- %logo.r as %logo.l $chan %logo.r auto greet message. }
      if ($2 == off) { unset $+(%,greet,$chan) | .msg $chan Removed %logo.l $($+(%,joingreet,$chan),2) %logo.r as %logo.l $chan %logo.r auto greet message.  }
    }
    if ($+(%trigger,kick) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?kick command: ?kick nick reason }
      if ($3) { kick $chan $2 $3- | .msg $chan Kicked %logo.l $2 %logo.r from %logo.l $3 %logo.r }
    }
    if ($+(%trigger,modelock) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?modelock command: ?modelock list/modes }
      if ($2 == list) { .msg $chan %logo.l Enforcing Modes %logo.r for %logo.l $chan %logo.r $gettok($readini(users.ini,modelock,$chan),2-,32) | halt }
      else { writeini users.ini modelock $chan $chan $2- | mode $chan $2- | .msg $chan Mode %logo.l $2- %logo.r added to %logo.l $chan %logo.r }
    } 
    if ($+(%trigger,protect) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?protect command: ?protect on/off }
      if ($2 == on) { set $+(%,protect,$chan) on | .msg $chan %logo.l $chan Protection %logo.r is now On }
      if ($2 == off) { unset $+(%,protect,$chan) | .msg $chan %logo.l $chan Protection %logo.r is now Off }
    } 
    if ($+(%trigger,remuser) == $strip($1)) {
      if (!$3) { eis | .msg $chan ?remuser command: ?remuser nick chan }
      else { remini $+($network,users.ini) $3 $2 | mode $3 -aohv $2 $2 $2 $2 | .msg $chan %logo.l $2 %logo.r removed from %logo.l $3 %logo.r access. }
    }
    if ($+(%trigger,spam) == $strip($1)) { 
      if (!$2) { eis | .msg $chan ?spam command: ?spam on/off/status }
      if ($regex($strip($1-),/on|off/i)) { set $+(%,sp,$chan) $2 | .msg $chan %logo.l $chan Spam Protect %logo.r is now $($+(%,sp,$chan),2) $+ . }
      if ($strip($2) == status) { .msg $chan %logo.l $chan Spam Protect %logo.r is currently: $($+(%,sp,$chan),2) }
    } 
    if ($+(%trigger,topiclock) == $strip($1)) {
      if (!$2) { eis | .msg $chan ?topiclock command: ?topiclock on/off topic }
      if ($2 == on) {
        if (!$3) { eis | .msg $chan ?topiclock command: ?topiclock on/off topic }
        else { set $+(%,topic,$chan) $3- | set $+(%,topiclock,$chan) on | topic $chan $3- | .msg $chan %logo.l $chan Topiclock %logo.r On }
      }
      if ($2 == off) { unset $+(%,topiclock,$chan) | .msg $chan %logo.l $chan Topiclock %logo.r Off | halt }
  } }
  ;
  ; Bot Talk
  ;
  if ($me == $strip($1)) &amp;&amp; ($right($strip($1-),1) == ?) { 
    if (are you a bot isin $strip($1-)) { .msg $chan Of course I am! }
    if (annoying you isin $strip($1-)) { .msg $chan Most definitly $+($nick,!) Make them stop! | halt }
    set -u5 %randadv $rand(1,8)
    if (%randadv == 1) { .msg $chan What, You cant make decisions for yourself? }  
    if (%randadv == 2) { .msg $chan I wouldn't tell you if i knew. }  
    if (%randadv == 3) { .msg $chan Ask someone who cares. }  
    if (%randadv == 4) { .msg $chan I cant believe you just asked that!!! }  
    if (%randadv == 5) { .msg $chan Come back when Im not so drunk. }  
    if (%randadv == 6) { .msg $chan What sort of question is that? } 
    if (%randadv == 7) { .msg $chan Are you serious? }
    if (%randadv == 8) { .msg $chan You shouldn't be asking questions like that!! }
  } 
  ;
  ; Trigger flood 
  ;
  if ($left($1,1) == $($+(%,trigger),2)) { inc -u10 $+(%,trigger,$nick) } 
  ;
  ; Spam Catcher
  ;
  if ($regex($strip($1-),/\b(?:http|www|com|org|net)\b/i)) &amp;&amp; ($($+(%,sp,$chan),2) == on) { 
    if ($+(%,spam,$nick) == $null) { set $+(%,spam,$nick) 1 }
    else { inc $+(%,spam,$nick) 1 }
    if ($($+(%,spam,$nick),2) == 3) { unset $+(%,spam,$nick) | ban -ku300 $chan $nick 2 Spam/Advertising. | .notice $nick You have been banned from %logo.l $chan %logo.r for Spam/Advertising. }
    .msg $chan %logo.l $nick %logo.r Spamming is not allowed in this channel.
  } 
}
/* 
Aliases 
*/
alias addowner { notify $1 | writeini $+($network,users.ini) botmaster $1 $1 $address($1,2) | .msg $chan %logo.l $gettok($readini($+($network,users.ini),botmaster,$1),1,32) %logo.r  added to %logo.l Master List %logo.r }
alias eis { .msg $chan **** %logo.lIncorrect Syntax %logo.r ***** }
alias io { .msg $chan **** %logo.lIllegal Operation %logo.r ***** }
alias ircopscan { 
  if ($nick($1,0) &gt; 1000) { .msg %chkchan %logo.l IRCop Scan %logo.r halted - too many users on channel. } 
  else { .who $1 | set $+(%,ircopcheck,$1) 1 }  
} 
alias chkflyby {
  var %a = 1
  var %b = $comchan($nick,0) 
  while %a &lt;= %b { 
    if ($($+(%,join,$comchan($nick,%a),$nick),2) == $nick) { $iif($+(%,flyby,$comchan($nick,%a)),inc $+(%,flyby,$comchan($nick,%a)),set $+(%,flyby,$comchan($nick,%a)) 1) | ban -u300 $comchan($nick,%a) $nick 2 Fly-By Protect | .msg $comchan($nick,%a) %logo.l $($+(%,join,$comchan($nick,%a),$nick),2) %logo.r was Fly-By %logo.l $($+(%,flyby,$comchan($nick,%a)),2) %logo.r Since $($+(%,botstartdate),2) | halt }
    else { inc %a } 
} }
alias relayevent {
  var %a = $scon(0)
  while (%a) {
    if ($scon(%a).network == $1) { dec %a }
    else { scon %a msg %rchan $2- | dec %a }
} } 
alias global {
  scon -a //ame %logo.l Global Service Message %logo.r from %logo.l $m1 %logo.r on %logo.l $network %logo.r
  scon -a //ame %logo.l $1 %logo.r $2-
}
/* 
Raw Events 
*/
raw 315:*: { 
  if ($($+(%,ircopcheck,%chkchan1),2) != $null) { 
    if ($($+(%,ircops,%chkchan1),2) != $null) { .msg %msgchan %logo.l IRCops %logo.r on %chkchan1 $+ : $($+(%,ircops,%chkchan1),2) $+ . } 
    else { .msg %msgchan %logo.l IRCop Scan %logo.r No IRCops on %chkchan1 $+ . }
    unset %ircop* | .haltdef 
} }
raw 352:*: { 
  if ($($+(%,ircopcheck,%chkchan1),2) != $null) { 
    if (* isin $7) { set $+(%,ircops,%chkchan1) $($+(%,ircops,%chkchan1),2) $6 } 
    .haltdef 
} } 
/*
Menu
*/
menu channel,nicklist {
  Server relay
  .Set Relay Channel:set %rchan $$?"Channel name: example: #Help"
  .Relay Currently %serverrelay:set %serverrelay $iif((%serverrelay == on),off,on) | echo -a ***** Sever Relay is now %serverrelay 
  Add/Delete channel access
  .Add $$1 as owner:writeini $+($network,users.ini) $chan $address($$1,2) OWNER | mode $chan +q $$1 | .msg $chan Added %logo.l $$1 %logo.r as %logo.l $chan %logo.r Owner.
  .Add $$1 as admin:writeini $+($network,users.ini) $chan $address($$1,2) ADMIN | mode $chan +a $$1 | .msg $chan Added %logo.l $$1 %logo.r as %logo.l $chan %logo.r Admin.
  .Add $$1 as op:writeini $+($network,users.ini) $chan $address($$1,2) OP | mode $chan +o $$1 | .msg $chan Added %logo.l $$1 %logo.r as %logo.l $chan %logo.r Op.
  .Add $$1 as helper:writeini $+($network,users.ini) $chan $address($$1,2) HELPER | mode $chan +h $$1 | .msg $chan Added %logo.l $$1 %logo.r as %logo.l $chan %logo.r Helper.
  .Add $$1 as voice:writeini $+($network,users.ini) $chan $address($$1,2) VOICE | mode $chan +v $$1 | .msg $chan Added %logo.l $$1 %logo.r as %logo.l $chan %logo.r Voice.
  .Delete $$1:remini $+($network,users.ini) $chan $$1
  Global Message:global $$?"Message From" $$?"Message"
  Logo
  .Logo Left: set %logo.l $$?""
  .Logo Right: set %logo.r $$?""
}</span></pre>

<div class="code_block" id="code_block" style="display: block;">
	<div class="CodeMirror cm-s-mdn-like">
		<div style="overflow: hidden; position: relative; width: 3px; height: 0px; top: 5px; left: 44px;">
			<code class="language-mirc"><textarea autocapitalize="none" autocorrect="off" spellcheck="false" style="position: absolute; padding: 0px; width: 1px; height: 1em; outline: currentcolor none medium;" tabindex="0" wrap="off"></textarea></code>
		</div>
	</div>
</div>
]]></description><guid isPermaLink="false">5157</guid><pubDate>Thu, 28 Apr 2022 03:42:08 +0000</pubDate></item><item><title>Query Text Flood Protection</title><link>https://www.coders-resources.net/ipb/forums/topic/4581-query-text-flood-protection/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_7515_4" style="">
<span class="pln">on </span><span class="pun">^*:</span><span class="kwd">open</span><span class="pun">:?:</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">query</span><span class="pun">(</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">ignore -pu30 </span><span class="pun">*</span><span class="pln">
    silence </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">wildsite
    echo -a Query window flood detected</span><span class="pun">,</span><span class="pln"> ignoring messages for </span><span class="lit">30</span><span class="pln"> seconds</span><span class="pun">...</span><span class="pln">
    close -m
    haltdef
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4581</guid><pubDate>Tue, 23 Jun 2020 02:05:04 +0000</pubDate></item><item><title>mIRC personal flood protection</title><link>https://www.coders-resources.net/ipb/forums/topic/4574-mirc-personal-flood-protection/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_6418_4" style="">
<span class="pun">#</span><span class="kwd">Author</span><span class="pln"> </span><span class="pun">:</span><span class="pln"> SanitariuM </span><span class="pun">@</span><span class="pln"> Undernet </span><span class="pun">/</span><span class="pln"> small modifications from Sebastien </span><span class="pun">@</span><span class="pln"> undernet
</span><span class="pun">#</span><span class="kwd">Description</span><span class="pln"> </span><span class="pun">:</span><span class="pln">
</span><span class="pun">#</span><span class="pln">When triggered</span><span class="pun">,</span><span class="pln"> it will activate silence for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
</span><span class="pun">#</span><span class="pln">If you are flooded offline during this time</span><span class="pun">,</span><span class="pln"> you will activate silence upon reconnection</span><span class="pun">.</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> Private Flood Protection by SanitariuM</span><span class="pun">/</span><span class="pln">SeeknDestroy
</span><span class="pun">;</span><span class="pln"> This script protects against ALL types of private IRC </span><span class="kwd">floods</span><span class="pln"> </span><span class="pun">:</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Query</span><span class="pun">,</span><span class="pln"> Notice</span><span class="pun">,</span><span class="pln"> Invite</span><span class="pun">,</span><span class="pln"> CTCP</span><span class="pun">,</span><span class="pln"> and DCC Send</span><span class="pun">/</span><span class="pln">Chat</span><span class="pun">/</span><span class="pln">Fserve thru IRC Server </span><span class="pun">&amp;</span><span class="pln"> IP
</span><span class="pun">;</span><span class="pln"> The same settings apply to all of them</span><span class="pun">.</span><span class="pln">  </span><span class="lit">5</span><span class="pln"> in </span><span class="lit">5</span><span class="pln"> seconds</span><span class="pun">.</span><span class="pln">
 
on </span><span class="pun">*:</span><span class="kwd">connect</span><span class="pun">:{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p_flood</span><span class="pun">,</span><span class="pln">reconnect</span><span class="pun">.</span><span class="pln">protect</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    echo -as You were flooded offline</span><span class="pun">.</span><span class="pln">  Silence will be turned on in </span><span class="lit">3</span><span class="pln"> seconds</span><span class="pun">.</span><span class="pln">
    echo -as You will need to type </span><span class="pun">/</span><span class="pln">silence </span><span class="pun">-*</span><span class="pln"> to turn it off when you feel it is safe</span><span class="pun">.</span><span class="pln">
    if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> undernet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timersilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> silence </span><span class="pun">+*,~*!*@*</span><span class="pln">undernet</span><span class="pun">.</span><span class="pln">org </span><span class="pun">}</span><span class="pln">
    else </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timersilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> silence </span><span class="pun">+*</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">notice</span><span class="pun">:*:?:{</span><span class="pln">
  if </span><span class="pun">(!$</span><span class="pln">istok</span><span class="pun">(</span><span class="pln">chanserv nickserv memoserv helpserv x</span><span class="pun">,$</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood notice </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">notice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Notice </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">notice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">invite</span><span class="pun">:#:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood invite </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">invite</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Invite </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">invite</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:?:*:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood query </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">query</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Query </span><span class="pun">|</span><span class="pln"> close -m </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">query</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:=:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood chat </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Chat </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:!:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood fserve </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Fserve </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
ctcp </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">send</span><span class="pun">:?:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood send </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Send </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
ctcp </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:*:?:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood ctcp </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">ctcp</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence CTCP </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">ctcp</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">chat</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">chat </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Chat </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">send</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">send </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Send </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">fserve</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">fserve </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Fserve </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
alias p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> undernet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> silence </span><span class="pun">+*,~*!*@*</span><span class="pln">undernet</span><span class="pun">.</span><span class="pln">org </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln"> silence </span><span class="pun">+*</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">timerunsilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">180</span><span class="pln"> silence </span><span class="pun">-*</span><span class="pln">
  echo -as </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln"> Flood Detected</span><span class="pun">.</span><span class="pln">  Silencing for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
  hadd -mu60 p</span><span class="pun">.</span><span class="pln">flood reconnect</span><span class="pun">.</span><span class="pln">protect </span><span class="lit">1</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
alias p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc </span><span class="pun">{</span><span class="pln">
  dccserver off </span><span class="pun">|</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timerdccon </span><span class="lit">1</span><span class="pln"> </span><span class="lit">180</span><span class="pln"> dccserver on
  echo -as DCC </span><span class="pun">(</span><span class="pln">via IP</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> Flood Detected</span><span class="pun">.</span><span class="pln">  Disabling DCC for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4574</guid><pubDate>Sun, 21 Jun 2020 01:52:06 +0000</pubDate></item><item><title>Channel Botnet Flood Protection</title><link>https://www.coders-resources.net/ipb/forums/topic/4516-channel-botnet-flood-protection/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_8138_4" style="">
<span class="pln">alias ialscan </span><span class="pun">{</span><span class="pln">
  return </span><span class="pun">$</span><span class="pln">ialchan</span><span class="pun">($$</span><span class="lit">2</span><span class="pun">,$$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
alias ialnicks </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">i </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">z </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ialscan</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,$$</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">ns </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null
  while </span><span class="pun">(%</span><span class="pln">i </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">z</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">n </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ialchan</span><span class="pun">($$</span><span class="lit">2</span><span class="pun">,$$</span><span class="lit">1</span><span class="pun">,%</span><span class="pln">i</span><span class="pun">).</span><span class="pln">nick
    var </span><span class="pun">%</span><span class="pln">ns </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">addtok</span><span class="pun">(%</span><span class="pln">ns</span><span class="pun">,%</span><span class="pln">n</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
    inc </span><span class="pun">%</span><span class="pln">i </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  return </span><span class="pun">%</span><span class="pln">ns
</span><span class="pun">}</span><span class="pln">
 
alias ialkick </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">ii </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">zz </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ialscan</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,$$</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">ns </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ialnicks</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,$$</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">nm </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="lit">3</span><span class="pun">,$</span><span class="lit">3</span><span class="pun">-,</span><span class="pln">Clones from </span><span class="pun">$$</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  while </span><span class="pun">(%</span><span class="pln">ii </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">zz</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">n </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">gettok</span><span class="pun">(%</span><span class="pln">ns</span><span class="pun">,%</span><span class="pln">ii</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
    kick </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">%</span><span class="pln">n </span><span class="pun">%</span><span class="pln">nm
    inc </span><span class="pun">%</span><span class="pln">ii </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[</span><span class="pln">m</span><span class="pun">]</span><span class="pln">ass</span><span class="pun">[</span><span class="pln">k</span><span class="pun">]</span><span class="pln">ick</span><span class="pun">[</span><span class="pln">b</span><span class="pun">]</span><span class="pln">an
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">usage</span><span class="pln"> </span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">mkb </span><span class="pun">#</span><span class="pln">chan nick1 nick2 nick3 </span><span class="pun">...</span><span class="pln">
alias mkb </span><span class="pun">{</span><span class="pln">
  mb </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln">
  mk </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[</span><span class="pln">m</span><span class="pun">]</span><span class="pln">ass</span><span class="pun">[</span><span class="pln">b</span><span class="pun">]</span><span class="pln">an alias
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">usage</span><span class="pln"> </span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">mb </span><span class="pun">#</span><span class="pln">chan nick1 nick2 nick3 </span><span class="pun">...</span><span class="pln">
alias mb </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mode </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">str</span><span class="pun">(</span><span class="pln">b</span><span class="pun">,$</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
      unset </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  set -u10 </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  tokenize </span><span class="lit">32</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln">
  while </span><span class="pun">($</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">x </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">total </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ibl</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">check </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pln">
    var </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">address </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">),$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">),$</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">floodbanmask</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">))</span><span class="pln">
    while </span><span class="pun">(%</span><span class="pln">x </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">total</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      if </span><span class="pun">($</span><span class="pln">ibl</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan</span><span class="pun">,%</span><span class="pln">x</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">address</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">check </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
      inc </span><span class="pun">%</span><span class="pln">x </span><span class="lit">1</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(!%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">check</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      set </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks </span><span class="pun">$</span><span class="pln">addtok</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">,%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">ibl</span><span class="pun">.</span><span class="pln">address</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    tokenize </span><span class="lit">32</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln">
    if </span><span class="pun">($</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">,</span><span class="lit">32</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mode </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">str</span><span class="pun">(</span><span class="pln">b</span><span class="pun">,$</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
      </span><span class="pun">.</span><span class="pln">timermbban off
      unset </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timermbban </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> mode </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">str</span><span class="pun">(</span><span class="pln">b</span><span class="pun">,$</span><span class="pln">numtok</span><span class="pun">(%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
    </span><span class="pun">.</span><span class="pln">timermbban2 </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">mb</span><span class="pun">.</span><span class="pln">masks
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[</span><span class="pln">m</span><span class="pun">]</span><span class="pln">ass</span><span class="pun">[</span><span class="pln">k</span><span class="pun">]</span><span class="pln">ick alias
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">usage</span><span class="pln"> </span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">mk </span><span class="pun">#</span><span class="pln">chan nick1 nick2 nick3 </span><span class="pun">...</span><span class="pln">
alias mk </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">mk</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  tokenize </span><span class="lit">32</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln">
  while </span><span class="pun">($</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(!$</span><span class="pln">timer</span><span class="pun">(</span><span class="pln">mk</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      inc -u10 </span><span class="pun">%</span><span class="pln">mk </span><span class="lit">5</span><span class="pln">
      </span><span class="pun">.</span><span class="pln">timermk</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mk mk2 </span><span class="pun">%</span><span class="pln">mk</span><span class="pun">.</span><span class="pln">chan </span><span class="pun">$</span><span class="lit">1</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    tokenize </span><span class="lit">32</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> since </span><span class="pun">/</span><span class="pln">mk starts a timer</span><span class="pun">,</span><span class="pln"> </span><span class="pun">/</span><span class="pln">mk2 checks to see if they're
</span><span class="pun">;</span><span class="pln"> still there before kicking when kick timer</span><span class="pun">(</span><span class="pln">s</span><span class="pun">)</span><span class="pln"> trigger</span><span class="pun">(</span><span class="pln">s</span><span class="pun">)</span><span class="pln">
alias mk2 </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">2</span><span class="pln"> ison </span><span class="pun">$</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    inc -u30 </span><span class="pun">%</span><span class="pln">mktotal </span><span class="lit">1</span><span class="pln">
    ialkick </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mktotal
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="kwd">shitlist</span><span class="pun">:</span><span class="kwd">join</span><span class="pun">:#:{</span><span class="pln">
  mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
</span><span class="pun">}</span><span class="pln">
 
alias autoshit </span><span class="pun">{</span><span class="pln">
  set -u60 </span><span class="pun">%</span><span class="pln">auto</span><span class="pun">.</span><span class="pln">shitlist</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  msg </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> Auto-Shitlisting anyone joining for the next </span><span class="lit">60</span><span class="pln"> seconds
</span><span class="pun">}</span><span class="pln">
 
alias plusm </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> dalnet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">m </span><span class="pun">=</span><span class="pln"> M </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">m </span><span class="pun">=</span><span class="pln"> m </span><span class="pun">}</span><span class="pln">
  mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">m
  </span><span class="pun">.</span><span class="pln">timerminusr </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">120</span><span class="pln"> mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">m
</span><span class="pun">}</span><span class="pln">
 
alias plusr </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> dalnet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">r </span><span class="pun">=</span><span class="pln"> R </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">r </span><span class="pun">=</span><span class="pln"> r </span><span class="pun">}</span><span class="pln">
  mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">r
  </span><span class="pun">.</span><span class="pln">timerminusr </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">120</span><span class="pln"> mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">r
</span><span class="pun">}</span><span class="pln">
 
alias plusmr </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> dalnet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">mr </span><span class="pun">=</span><span class="pln"> MR </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">mr </span><span class="pun">=</span><span class="pln"> mr </span><span class="pun">}</span><span class="pln">
  mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">mr
  </span><span class="pun">.</span><span class="pln">timerminusmr </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="lit">120</span><span class="pln"> mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">-</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">%</span><span class="pln">mode</span><span class="pun">.</span><span class="pln">mr
</span><span class="pun">}</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">(</span><span class="pln">F</span><span class="pun">)</span><span class="pln">lood </span><span class="pun">(</span><span class="pln">S</span><span class="pun">)</span><span class="pln">hift </span><span class="pun">(</span><span class="pln">N</span><span class="pun">)</span><span class="pln">icks
alias fsn </span><span class="pun">{</span><span class="pln">
  set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.7</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.6</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.6</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.5</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.5</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.4</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.4</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.3</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.3</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.2</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.1</span><span class="pln"> </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  set </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.7</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.6</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.5</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.4</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.3</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.2</span><span class="pln"> </span><span class="pun">%</span><span class="pln">fsn</span><span class="lit">.1</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">timerunsetfsn </span><span class="lit">1</span><span class="pln"> </span><span class="lit">15</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
 
on </span><span class="pun">@*:</span><span class="kwd">join</span><span class="pun">:#:{</span><span class="pln">
  hadd -mu15 </span><span class="pun">$</span><span class="pln">chan joined </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">(%</span><span class="pln">auto</span><span class="pun">.</span><span class="pln">shitlist</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    auser shitlist </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
    mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
  </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">regex</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,/\</span><span class="pln">d\d\d</span><span class="pun">/))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    fsn </span><span class="pun">$</span><span class="pln">nick
    inc -u15 </span><span class="pun">%</span><span class="pln">random</span><span class="pun">.</span><span class="pln">nick</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">random</span><span class="pun">.</span><span class="pln">nick</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">random</span><span class="pun">.</span><span class="pln">nick</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">random</span><span class="pun">.</span><span class="pln">nick</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">random</span><span class="pun">.</span><span class="pln">nick</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">site </span><span class="pun">]</span><span class="pln"> </span><span class="pun">])</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      fsn </span><span class="pun">$</span><span class="pln">nick
      inc -u30 </span><span class="pun">%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
      if </span><span class="pun">(%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        plusm </span><span class="pun">$</span><span class="pln">chan
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        plusr </span><span class="pun">$</span><span class="pln">chan
        mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
      </span><span class="pun">}</span><span class="pln">
      elseif </span><span class="pun">(%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
        mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    inc -u30 </span><span class="pun">%</span><span class="pln">clone</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">site </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">@*:</span><span class="kwd">text</span><span class="pun">:*:#:{</span><span class="pln">
  if </span><span class="pun">(($</span><span class="pln">nick isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">exempt isin </span><span class="pun">$</span><span class="pln">level</span><span class="pun">($</span><span class="pln">fulladdress</span><span class="pun">)))</span><span class="pln"> halt
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">text</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    fsn </span><span class="pun">$</span><span class="pln">nick
    inc -u15 </span><span class="pun">%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  hadd -m text</span><span class="pun">.</span><span class="pln">floodpro </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">@*:</span><span class="kwd">action</span><span class="pun">:*:#:{</span><span class="pln">
  if </span><span class="pun">(($</span><span class="pln">nick isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">exempt isin </span><span class="pun">$</span><span class="pln">level</span><span class="pun">($</span><span class="pln">fulladdress</span><span class="pun">)))</span><span class="pln"> halt
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">text</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    fsn </span><span class="pun">$</span><span class="pln">nick
    inc -u15 </span><span class="pun">%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  hadd -m text</span><span class="pun">.</span><span class="pln">floodpro </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">@*:</span><span class="kwd">notice</span><span class="pun">:*:#:{</span><span class="pln">
  if </span><span class="pun">(($</span><span class="pln">nick isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">||</span><span class="pln"> </span><span class="pun">(</span><span class="pln">exempt isin </span><span class="pun">$</span><span class="pln">level</span><span class="pun">($</span><span class="pln">fulladdress</span><span class="pun">)))</span><span class="pln"> halt
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">text</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    fsn </span><span class="pun">$</span><span class="pln">nick
    inc -u15 </span><span class="pun">%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  hadd -m text</span><span class="pun">.</span><span class="pln">floodpro </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">@*:</span><span class="kwd">part</span><span class="pun">:#:{</span><span class="pln">
  if </span><span class="pun">(</span><span class="pln">exempt isin </span><span class="pun">$</span><span class="pln">level</span><span class="pun">($</span><span class="pln">fulladdress</span><span class="pun">))</span><span class="pln"> halt
  hadd -mu30 floodbanmask </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">($</span><span class="pln">chan</span><span class="pun">,</span><span class="pln">joined </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    inc -u5 </span><span class="pun">%</span><span class="pln">revolving</span><span class="pun">.</span><span class="pln">door</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">text</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    fsn </span><span class="pun">$</span><span class="pln">nick
    inc -u15 </span><span class="pun">%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">(%</span><span class="pln">revolving</span><span class="pun">.</span><span class="pln">door</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    plusmr </span><span class="pun">$</span><span class="pln">chan
    mb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
  </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">(%</span><span class="pln">revolving</span><span class="pun">.</span><span class="pln">door</span><span class="pun">.</span><span class="pln">floodpro</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">10</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    mb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> hadd -m text</span><span class="pun">.</span><span class="pln">floodpro </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
ctcp </span><span class="pun">*:*:#:{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(</span><span class="pln">exempt isin </span><span class="pun">$</span><span class="pln">level</span><span class="pun">($</span><span class="pln">fulladdress</span><span class="pun">))</span><span class="pln"> halt
    inc -u30 </span><span class="pun">%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln">ctcp</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln">ctcp</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusm </span><span class="pun">$</span><span class="pln">chan
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln">ctcp</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">fsn </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">|</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln">fsn</span><span class="pun">*</span><span class="pln">
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln">ctcp</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">15</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      plusr </span><span class="pun">$</span><span class="pln">chan
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">(%</span><span class="pln">repeat</span><span class="pun">.</span><span class="pln">counter</span><span class="pun">.</span><span class="pln">ctcp</span><span class="pun">.</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">7</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      mkb </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4516</guid><pubDate>Sat, 13 Jun 2020 02:37:14 +0000</pubDate></item><item><title>Private Flood Protection</title><link>https://www.coders-resources.net/ipb/forums/topic/4515-private-flood-protection/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_5616_4" style="">
<span class="pun">#</span><span class="kwd">Description</span><span class="pln"> </span><span class="pun">:</span><span class="pln">
</span><span class="pun">#</span><span class="pln">When triggered</span><span class="pun">,</span><span class="pln"> it will activate silence for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
</span><span class="pun">#</span><span class="pln">If you are flooded offline during this time</span><span class="pun">,</span><span class="pln"> you will activate silence upon reconnection</span><span class="pun">.</span><span class="pln">
 
</span><span class="pun">;</span><span class="pln"> Private Flood Protection by SanitariuM</span><span class="pun">/</span><span class="pln">SeeknDestroy
</span><span class="pun">;</span><span class="pln"> This script protects against ALL types of private IRC </span><span class="kwd">floods</span><span class="pln"> </span><span class="pun">:</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> Query</span><span class="pun">,</span><span class="pln"> Notice</span><span class="pun">,</span><span class="pln"> Invite</span><span class="pun">,</span><span class="pln"> CTCP</span><span class="pun">,</span><span class="pln"> and DCC Send</span><span class="pun">/</span><span class="pln">Chat</span><span class="pun">/</span><span class="pln">Fserve thru IRC Server </span><span class="pun">&amp;</span><span class="pln"> IP
</span><span class="pun">;</span><span class="pln"> The same settings apply to all of them</span><span class="pun">.</span><span class="pln">  </span><span class="lit">5</span><span class="pln"> in </span><span class="lit">5</span><span class="pln"> seconds</span><span class="pun">.</span><span class="pln">
 
on </span><span class="pun">*:</span><span class="kwd">connect</span><span class="pun">:{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p_flood</span><span class="pun">,</span><span class="pln">reconnect</span><span class="pun">.</span><span class="pln">protect</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    echo -as You were flooded offline</span><span class="pun">.</span><span class="pln">  Silence will be turned on in </span><span class="lit">3</span><span class="pln"> seconds</span><span class="pun">.</span><span class="pln">
    echo -as You will need to type </span><span class="pun">/</span><span class="pln">silence </span><span class="pun">-*</span><span class="pln"> to turn it off when you feel it is safe</span><span class="pun">.</span><span class="pln">
    if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> undernet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timersilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> silence </span><span class="pun">+*,~*!*@*</span><span class="pln">undernet</span><span class="pun">.</span><span class="pln">org </span><span class="pun">}</span><span class="pln">
    else </span><span class="pun">{</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timersilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3</span><span class="pln"> silence </span><span class="pun">+*</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">notice</span><span class="pun">:*:?:{</span><span class="pln">
  if </span><span class="pun">(!$</span><span class="pln">istok</span><span class="pun">(</span><span class="pln">chanserv nickserv memoserv helpserv x</span><span class="pun">,$</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">32</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood notice </span><span class="lit">1</span><span class="pln">
    if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">notice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Notice </span><span class="pun">}</span><span class="pln">
    elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">notice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">invite</span><span class="pun">:#:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood invite </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">invite</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Invite </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">invite</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:?:*:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood query </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">query</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence Query </span><span class="pun">|</span><span class="pln"> close -m </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">query</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:=:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood chat </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Chat </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">open</span><span class="pun">:!:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood fserve </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Fserve </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
ctcp </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:</span><span class="kwd">send</span><span class="pun">:?:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood send </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence DCC Send </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
ctcp </span><span class="pun">^</span><span class="lit">1</span><span class="pun">:*:?:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood ctcp </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">ctcp</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence CTCP </span><span class="pun">}</span><span class="pln">
  elseif </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">ctcp</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&gt;</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">chat</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">chat </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">chat</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Chat </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">send</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">send </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">send</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Send </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">dccserver</span><span class="pun">:</span><span class="kwd">fserve</span><span class="pun">:{</span><span class="pln">
  hinc -mu5 p</span><span class="pun">.</span><span class="pln">flood dcc</span><span class="pun">.</span><span class="pln">fserve </span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">hget</span><span class="pun">(</span><span class="pln">p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">,</span><span class="pln">dcc</span><span class="pun">.</span><span class="pln">fserve</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc Fserve </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
alias p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">silence </span><span class="pun">{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">network </span><span class="pun">==</span><span class="pln"> undernet</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> silence </span><span class="pun">+*,~*!*@*</span><span class="pln">undernet</span><span class="pun">.</span><span class="pln">org </span><span class="pun">}</span><span class="pln">
  else </span><span class="pun">{</span><span class="pln"> silence </span><span class="pun">+*</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">timerunsilence </span><span class="lit">1</span><span class="pln"> </span><span class="lit">180</span><span class="pln"> silence </span><span class="pun">-*</span><span class="pln">
  echo -as </span><span class="pun">$</span><span class="lit">1</span><span class="pun">-</span><span class="pln"> Flood Detected</span><span class="pun">.</span><span class="pln">  Silencing for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
  hadd -mu60 p</span><span class="pun">.</span><span class="pln">flood reconnect</span><span class="pun">.</span><span class="pln">protect </span><span class="lit">1</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
 
alias p</span><span class="pun">.</span><span class="pln">flood</span><span class="pun">.</span><span class="pln">dcc </span><span class="pun">{</span><span class="pln">
  dccserver off </span><span class="pun">|</span><span class="pln"> </span><span class="pun">.</span><span class="pln">timerdccon </span><span class="lit">1</span><span class="pln"> </span><span class="lit">180</span><span class="pln"> dccserver on
  echo -as DCC </span><span class="pun">(</span><span class="pln">via IP</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> Flood Detected</span><span class="pun">.</span><span class="pln">  Disabling DCC for </span><span class="lit">3</span><span class="pln"> minutes</span><span class="pun">.</span><span class="pln">
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4515</guid><pubDate>Sat, 13 Jun 2020 02:35:33 +0000</pubDate></item><item><title>access-manager.mrc</title><link>https://www.coders-resources.net/ipb/forums/topic/4513-access-managermrc/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_4323_4" style="">
<span class="pun">;</span><span class="pln"> Userlist System
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Version</span><span class="pun">:</span><span class="pln"> </span><span class="lit">5.2</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">Changelog</span><span class="pun">:</span><span class="pln">     
</span><span class="pun">;</span><span class="pln"> v1 was ugly</span><span class="pun">,</span><span class="pln"> and from </span><span class="lit">2001</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> v2 revamped completely</span><span class="pun">,</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> added levels and aliases
</span><span class="pun">;</span><span class="pln"> </span><span class="kwd">todo</span><span class="pun">:</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">set </span><span class="pun">(</span><span class="pln">chanset</span><span class="pun">)</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[]</span><span class="pln"> </span><span class="pun">%</span><span class="pln">var in menu</span><span class="pun">?</span><span class="pln">
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[</span><span class="pln">X</span><span class="pun">]</span><span class="pln"> combined aliases
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[</span><span class="pln">x</span><span class="pun">]</span><span class="pln"> lvl edits
</span><span class="pun">;</span><span class="pln"> </span><span class="pun">[]</span><span class="pln"> help files

alias user</span><span class="pun">.</span><span class="pln">list </span><span class="pun">{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  var </span><span class="pun">%</span><span class="pln">valid</span><span class="pun">.</span><span class="pln">levels </span><span class="pun">=</span><span class="pln"> op</span><span class="pun">,</span><span class="pln">voice</span><span class="pun">,</span><span class="pln">protect</span><span class="pun">,</span><span class="pln">bot</span><span class="pun">,</span><span class="pln">manager
  vas </span><span class="pun">%</span><span class="pln">pull</span><span class="pun">.</span><span class="pln">level </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pln"> </span><span class="pun">!</span><span class="pln">isin </span><span class="pun">%</span><span class="pln">valid</span><span class="pun">.</span><span class="pln">levels</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo -a </span><span class="pun">[</span><span class="pln">Error</span><span class="pun">]</span><span class="pln"> Invalid Level</span><span class="pun">,</span><span class="pln"> </span><span class="kwd">try</span><span class="pun">:</span><span class="pln"> </span><span class="pun">/</span><span class="pln">c</span><span class="pun">.</span><span class="pln">list </span><span class="pun">&lt;</span><span class="pln">op</span><span class="pun">|</span><span class="pln">voice</span><span class="pun">|</span><span class="pln">protect</span><span class="pun">|</span><span class="pln">bot</span><span class="pun">|</span><span class="pln">manager</span><span class="pun">&gt;</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">ini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo -at </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> List Empty </span><span class="pun">|</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">  
  echo -a </span><span class="pun"></span><span class="kwd">Listing</span><span class="pun">:</span><span class="lit">4</span><span class="pln"> </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun"></span><span class="pln">on</span><span class="pun"></span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun"></span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">o </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> while </span><span class="pun">(%</span><span class="pln">o </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> echo -a </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">$</span><span class="pln">ini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,$</span><span class="lit">1</span><span class="pun">,%</span><span class="pln">o</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> inc </span><span class="pun">%</span><span class="pln">o </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">

alias show</span><span class="pun">.</span><span class="pln">levels </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  echo -a command disabled for now
  msg </span><span class="pun">$</span><span class="pln">chan Levels for </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> with this </span><span class="kwd">mask</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$&amp;</span><span class="pln">
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">manager</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">manager</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">infoline</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autoop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autoop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autovoice</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autovoice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> keepop</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">keepop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">keepop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> bot</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">bot</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">bot</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln"> 
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">protect</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">protect</span><span class="pun">)</span><span class="pln">               
</span><span class="pun">}</span><span class="pln">


alias update</span><span class="pun">.</span><span class="pln">levels </span><span class="pun">{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">dbp2 </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  msg </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> Levels for </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> with this </span><span class="kwd">mask</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  msg </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">manager</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">manager</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">infoline</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autoop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autoop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autovoice</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autovoice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> keepop</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">keepop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">keepop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> bot</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">bot</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">bot</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln"> 
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">protect</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">protect</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp2</span><span class="pun">,</span><span class="pln"> suspend</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">suspend</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">suspend</span><span class="pun">)</span><span class="pln">        
</span><span class="pun">}</span><span class="pln">

alias c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">{</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">timershow</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  set </span><span class="pun">%</span><span class="pln">dbupchan </span><span class="pun">$</span><span class="pln">chan
  </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">$+</span><span class="pln"> show </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> update</span><span class="pun">.</span><span class="pln">levels </span><span class="pun">$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">%</span><span class="pln">dbupchan
  unset </span><span class="pun">%</span><span class="pln">dbupchan
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="kwd">JOIN</span><span class="pun">:#:{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> suspend</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$+([,$</span><span class="pln">nick</span><span class="pun">,])</span><span class="pln"> Is Suspended </span><span class="pun">|</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)))</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> return </span><span class="pun">}</span><span class="pln">
    msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">(</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">)</span><span class="pln"> </span><span class="pun">$</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> 
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    </span><span class="pun">.</span><span class="pln">mode </span><span class="pun">#</span><span class="pln"> </span><span class="pun">+</span><span class="pln">ov </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick 
    halt 
  </span><span class="pun">}</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$</span><span class="pln">nick 
    halt 
  </span><span class="pun">}</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">v </span><span class="pun">$</span><span class="pln">nick 
    halt
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="kwd">KICK</span><span class="pun">:#:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">knick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    ban -k </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$</span><span class="pln">knick is Protected</span><span class="pun">!</span><span class="pln"> </span><span class="pun">[</span><span class="kwd">Suspended</span><span class="pun">:</span><span class="pln"> </span><span class="lit">1h</span><span class="pun">]</span><span class="pln"> 
    writeini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3600</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="kwd">ban</span><span class="pun">:#:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="pln">bnick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">bnick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    mode </span><span class="pun">$</span><span class="pln">chan -bo</span><span class="pun">+</span><span class="pln">b </span><span class="pun">$</span><span class="pln">banmask </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> 
    kick </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$</span><span class="pln">bnick is Protected</span><span class="pun">!</span><span class="pln"> </span><span class="pun">[</span><span class="kwd">Suspended</span><span class="pun">:</span><span class="pln"> </span><span class="lit">1h</span><span class="pun">]</span><span class="pln">
    writeini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln">    
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">3600</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln">
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="kwd">DEOP</span><span class="pun">:#:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">opnick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> keepop</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">opnick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    mode </span><span class="pun">$</span><span class="pln">chan -o</span><span class="pun">+</span><span class="pln">o </span><span class="pun">$</span><span class="pln">nick </span><span class="pun">$</span><span class="pln">opnick 
    msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$</span><span class="pln">opnick has KeepOp Enabled on </span><span class="pun">$</span><span class="pln">opnick
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">

on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">input</span><span class="pun">:#:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">.</span><span class="pln">who</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> msg </span><span class="pun">$</span><span class="pln">chan Levels for </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> with this </span><span class="kwd">mask</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$&amp;</span><span class="pln">
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">manager</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">manager</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">infoline</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autoop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autoop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autovoice</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autovoice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> keepop</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">keepop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">keepop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> bot</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">bot</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">bot</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln"> 
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">protect</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">protect</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">
      </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> suspend</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">suspend</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">suspend</span><span class="pun">)</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="pln">msg </span><span class="pun">$</span><span class="pln">chan </span><span class="kwd">Infoline</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> 
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">.</span><span class="pln">mod</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">bot isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">autoop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp op </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">autovoice isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">v </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">keepop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp keepop </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">protect isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">manager isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">suspend isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">    
    if </span><span class="pun">(-</span><span class="pln">bot isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">autoop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp op </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -o </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">autovoice isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -v </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">keepop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp keepop </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">protect isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">manager isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">suspend isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">    
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">+</span><span class="pln">infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    writeini </span><span class="pun">%</span><span class="pln">dbp infoline </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-</span><span class="pln"> 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> msg </span><span class="pun">$</span><span class="pln">chan Added infoline to </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> on </span><span class="pun">$</span><span class="kwd">chan</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-</span><span class="pln">
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="lit">1</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> -infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    remini </span><span class="pun">%</span><span class="pln">dbp infoline </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="lit">1</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> msg </span><span class="pun">$</span><span class="pln">chan Removed infoline From </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> on </span><span class="pun">$</span><span class="pln">chan
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="kwd">text</span><span class="pun">:.</span><span class="pln">who </span><span class="pun">*:#:{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  msg </span><span class="pun">$</span><span class="pln">chan Levels for </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> with this </span><span class="kwd">mask</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  msg </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$&amp;</span><span class="pln">
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">manager</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">manager</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">infoline</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">infoline</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> op</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autoop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autoop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> voice</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">autovoice</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">autovoice</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> keepop</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">keepop</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">keepop</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">    
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> bot</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">bot</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">bot</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln"> 
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> protect</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">protect</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">protect</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$&amp;</span><span class="pln">
    </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> suspend</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="lit">3</span><span class="pun">+</span><span class="pln">suspend</span><span class="pun">,</span><span class="lit">4</span><span class="pun">-</span><span class="pln">suspend</span><span class="pun">)</span><span class="pln">    
  </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),</span><span class="pln">msg </span><span class="pun">$</span><span class="pln">chan </span><span class="kwd">Infoline</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> infoline</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)),$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="kwd">TEXT</span><span class="pun">:.</span><span class="pln">mod </span><span class="pun">*:#:{</span><span class="pln">
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">!==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    msg </span><span class="pun">$</span><span class="pln">chan you need </span><span class="pun"></span><span class="pln">manager</span><span class="pun"></span><span class="pln"> level to use this command</span><span class="pun">.</span><span class="pln">
    HALT 
  </span><span class="pun">}</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">readini</span><span class="pun">(%</span><span class="pln">dbp</span><span class="pun">,</span><span class="pln"> manager</span><span class="pun">,</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">))</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">bot isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">autoop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp opj </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">autovoice isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">v </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">keepop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp keepop </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">protect isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">manager isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(+</span><span class="pln">suspend isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> writeini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">    
    if </span><span class="pun">(-</span><span class="pln">bot isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">autoop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp op </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -o </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">autovoice isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -v </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">keepop isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp keepop </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">protect isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">manager isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">
    if </span><span class="pun">(-</span><span class="pln">suspend isin </span><span class="pun">$</span><span class="lit">3</span><span class="pun">-)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> remini </span><span class="pun">%</span><span class="pln">dbp suspend </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="lit">2</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> c</span><span class="pun">.</span><span class="pln">update </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln">    
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="kwd">text</span><span class="pun">:+</span><span class="pln">infoline </span><span class="pun">*:#:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">dbp </span><span class="pun">=</span><span class="pln"> database</span><span class="pun">\</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">#</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ini
  writeini </span><span class="pun">$+(%</span><span class="pln">dbp</span><span class="pun">)</span><span class="pln"> infoline </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln"> 
  </span><span class="pun">.</span><span class="pln">notice </span><span class="pun">$</span><span class="pln">nick Added infoline to </span><span class="pun">$</span><span class="pln">nick on </span><span class="pun">$</span><span class="kwd">chan</span><span class="pln"> </span><span class="pun">::</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">-</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
on </span><span class="pun">*:</span><span class="kwd">text</span><span class="pun">:</span><span class="kwd">-infoline</span><span class="pun">:#:{</span><span class="pln"> 
  remini </span><span class="pun">$+(%</span><span class="pln">dbp</span><span class="pun">)</span><span class="pln"> infoline </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> 
  </span><span class="pun">.</span><span class="pln">notice </span><span class="pun">$</span><span class="pln">nick Removed infoline From </span><span class="pun">$</span><span class="pln">nick on </span><span class="pun">$</span><span class="pln">chan
</span><span class="pun">}</span><span class="pln">

</span><span class="pun">#</span><span class="pln">menus 

menu nicklist </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">[</span><span class="pln">Userlist</span><span class="pun">]</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">Add
  </span><span class="pun">..</span><span class="kwd">manager</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To manager level on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Op</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> op </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To Op list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Voice</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To Voice list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">v </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">KeepOp</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> keepop </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To KeepOp list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Protect</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To protect list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Bot</span><span class="pun">:</span><span class="pln">writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> writeini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> opjoin </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Added </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> To Bot list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">#</span><span class="pln"> </span><span class="pun">+</span><span class="pln">o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">Remove
  </span><span class="pun">..</span><span class="kwd">manager</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> manager </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From manager list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Op</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> op </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From Op list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -o </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Voice</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> voice </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From Voice list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> mode </span><span class="pun">$</span><span class="pln">chan -v </span><span class="pun">$$</span><span class="lit">1</span><span class="pln">  
  </span><span class="pun">..</span><span class="kwd">KeepOp</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> KeepOp </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From KeepOp list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Protect</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> protect </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From protect list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
  </span><span class="pun">..</span><span class="kwd">Bot</span><span class="pun">:</span><span class="pln">remini </span><span class="pun">$+(</span><span class="pln">database</span><span class="pun">\,$</span><span class="pln">chan</span><span class="pun">,.</span><span class="pln">ini</span><span class="pun">)</span><span class="pln"> bot </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> echo -a Removed </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> From Bot list on </span><span class="pun">$</span><span class="pln">chan with this </span><span class="kwd">host</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">address</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">2</span><span class="pun">)</span><span class="pln">
</span><span class="pun">}</span><span class="pln">

menu channel </span><span class="pun">{</span><span class="pln">
  </span><span class="pun">[</span><span class="pln">Userlist</span><span class="pun">]</span><span class="pln">
  </span><span class="pun">.</span><span class="pln">Show
  </span><span class="pun">..</span><span class="kwd">Managers</span><span class="pun">:</span><span class="pln">user</span><span class="pun">.</span><span class="pln">list manager  
  </span><span class="pun">..</span><span class="kwd">Op</span><span class="pun">:</span><span class="pln">user</span><span class="pun">.</span><span class="pln">list op
  </span><span class="pun">..</span><span class="kwd">Voice</span><span class="pun">:</span><span class="pln">user</span><span class="pun">.</span><span class="pln">list voice
  </span><span class="pun">..</span><span class="kwd">Protect</span><span class="pun">:</span><span class="pln">user</span><span class="pun">.</span><span class="pln">list protect
  </span><span class="pun">..</span><span class="kwd">Bots</span><span class="pun">:</span><span class="pln">user</span><span class="pun">.</span><span class="pln">list bot 
</span><span class="pun">}</span><span class="pln">

on </span><span class="pun">*:</span><span class="kwd">LOAD</span><span class="pun">:{</span><span class="pln"> 
  echo -a Userlist v5</span><span class="lit">.2</span><span class="pln"> Succesfully loaded 
  echo -a Make sure the folder database has been created</span><span class="pun">.</span><span class="pln"> </span><span class="kwd">Type</span><span class="pun">:</span><span class="pln"> </span><span class="pun">//</span><span class="pln">run database</span><span class="pun"></span><span class="pln"> To verify</span><span class="pun">.</span><span class="pln">
  echo -a if you </span><span class="kwd">see</span><span class="pun">:</span><span class="pln"> </span><span class="pun">*</span><span class="pln"> </span><span class="pun">/</span><span class="kwd">run</span><span class="pun">:</span><span class="pln"> unable to open file </span><span class="str">'database'</span><span class="pln"> Then it failed</span><span class="pun">.</span><span class="pln">  </span><span class="pun">(</span><span class="pln">Will not usually fail</span><span class="pun">)</span><span class="pln">
  echo -a Just type</span><span class="pun"></span><span class="pln"> </span><span class="pun">/</span><span class="pln">mkdir database</span><span class="pun"></span><span class="pln"> or open your mIRC folder </span><span class="pun">(</span><span class="pln">where mirc</span><span class="pun">.</span><span class="pln">exe is</span><span class="pun">)</span><span class="pln"> and create it manually with read</span><span class="pun">/</span><span class="pln">write permissions
  mkdir database 
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4513</guid><pubDate>Sat, 13 Jun 2020 02:06:09 +0000</pubDate></item><item><title>autolimit.mrc</title><link>https://www.coders-resources.net/ipb/forums/topic/4512-autolimitmrc/</link><description><![CDATA[<pre class="ipsCode prettyprint lang-css prettyprinted" id="ips_uid_2466_4" style="">
<span class="pun">;</span><span class="pln">Auto-Limiter Remote Script 
on </span><span class="pun">*:</span><span class="kwd">load</span><span class="pun">:{</span><span class="pln"> 
  echo -a </span><span class="pun">-</span><span class="pln">
  echo -a You just Loaded The Channel Auto-Limit Remote</span><span class="pun">.</span><span class="pln">
  halt 
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="kwd">Op</span><span class="pun">:#:{</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">opnick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="kwd">Join</span><span class="pun">:#:{</span><span class="pln">
  if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">10</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="kwd">Part</span><span class="pun">:#:{</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> halt </span><span class="pun">}</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">nick</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
      </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
      </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit
    </span><span class="pun">}</span><span class="pln">
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="kwd">Quit</span><span class="pun">:{</span><span class="pln"> 
  var </span><span class="pun">%</span><span class="pln">q </span><span class="pun">=</span><span class="pln"> </span><span class="lit">1</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> while </span><span class="pun">(</span><span class="pln"> </span><span class="pun">%</span><span class="pln">q </span><span class="pun">&lt;=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">)</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">))</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
      var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">)</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ch</span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
      </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">)</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
    </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">)</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> raw -q mode </span><span class="pun">$</span><span class="pln">comchan</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">,%</span><span class="pln">q</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln">l </span><span class="pun">$</span><span class="pln">calc</span><span class="pun">(%</span><span class="pln">climit </span><span class="pun">-</span><span class="pln"> </span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> 
    inc </span><span class="pun">%</span><span class="pln">q
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> 
on </span><span class="pun">*:</span><span class="kwd">Mode</span><span class="pun">:#:{</span><span class="pln"> 
  if </span><span class="pun">(</span><span class="pln">l isin </span><span class="pun">$</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> set </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">ch</span><span class="pun">.</span><span class="pln">limit </span><span class="pun">$</span><span class="lit">2</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">nick </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
    if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      if </span><span class="pun">(</span><span class="pln">l isin </span><span class="pun">$</span><span class="lit">1</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
        inc -u10 </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">inclimit 
        if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">inclimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">&lt;</span><span class="pln"> </span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
          var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
          </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
          </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit
        </span><span class="pun">}</span><span class="pln">
      </span><span class="pun">}</span><span class="pln">
    </span><span class="pun">}</span><span class="pln"> 
  </span><span class="pun">}</span><span class="pln"> 
</span><span class="pun">}</span><span class="pln"> 
alias addlimit </span><span class="pun">{</span><span class="pln"> raw -q mode </span><span class="pun">$$</span><span class="lit">1</span><span class="pln"> </span><span class="pun">+</span><span class="pln">l </span><span class="pun">$</span><span class="pln">calc</span><span class="pun">($</span><span class="pln">nick</span><span class="pun">($$</span><span class="lit">1</span><span class="pun">,</span><span class="lit">0</span><span class="pun">)</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$</span><span class="lit">2</span><span class="pun">)</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> 

on </span><span class="lit">1</span><span class="pun">:</span><span class="kwd">Kick</span><span class="pun">:#:{</span><span class="pln"> 
  if </span><span class="pun">($</span><span class="pln">knick </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">me</span><span class="pun">)</span><span class="pln"> </span><span class="pun">&amp;&amp;</span><span class="pln"> </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> 
      var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> 
      </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit off 
      </span><span class="pun">.</span><span class="pln">timer </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> llimit </span><span class="lit">1</span><span class="pln"> </span><span class="lit">2</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit 
    </span><span class="pun">}</span><span class="pln"> 
  </span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln"> 
menu nicklist</span><span class="pun">,</span><span class="pln">channel </span><span class="pun">{</span><span class="pln"> 
  </span><span class="pun">-</span><span class="pln"> 
  Auto-Limit</span><span class="pun">(</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">iif</span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">!=</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">,</span><span class="pln">ON </span><span class="pun">+</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chr</span><span class="pun">(</span><span class="lit">41</span><span class="pun">),</span><span class="pln">OFF </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chr</span><span class="pun">(</span><span class="lit">41</span><span class="pun">))</span><span class="pln"> </span><span class="pun">:{</span><span class="pln"> 
    if </span><span class="pun">([</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">==</span><span class="pln"> </span><span class="pun">$</span><span class="pln">null</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">limit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">$$?=</span><span class="str">"Auto Limit Float Margin (1-999):"</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">%</span><span class="pln">limit </span><span class="pun">|</span><span class="pln"> set </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">|</span><span class="pln"> echo -a </span><span class="pun">***</span><span class="pln"> Turning ON the Autolimit </span><span class="kwd">on</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> if </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> var </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">=</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">]</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> addlimit </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">%</span><span class="pln">climit </span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> 
    else </span><span class="pun">{</span><span class="pln"> unset </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">limit </span><span class="pun">%</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">[</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">]</span><span class="pln"> </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">]</span><span class="pln"> </span><span class="pun">.</span><span class="pln">autolimit </span><span class="pun">|</span><span class="pln"> echo -a </span><span class="pun">***</span><span class="pln"> Turning OFF the Autolimit </span><span class="kwd">on</span><span class="pun">:</span><span class="pln"> </span><span class="pun">$</span><span class="pln">chan </span><span class="pun">$+</span><span class="pln"> </span><span class="pun">.</span><span class="pln"> </span><span class="pun">|</span><span class="pln"> if </span><span class="pun">($</span><span class="pln">me isop </span><span class="pun">$</span><span class="pln">chan</span><span class="pun">)</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> raw -q mode </span><span class="pun">#</span><span class="pln"> -l </span><span class="pun">}</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> 
  </span><span class="pun">}</span><span class="pln"> 
  </span><span class="pun">-</span><span class="pln"> 
</span><span class="pun">}</span></pre>

<p>
	 
</p>
]]></description><guid isPermaLink="false">4512</guid><pubDate>Sat, 13 Jun 2020 02:01:26 +0000</pubDate></item><item><title>Channel Control Dialog 1.2</title><link>https://www.coders-resources.net/ipb/forums/topic/2375-channel-control-dialog-12/</link><description><![CDATA[
<blockquote data-ipsquote="" class="ipsQuote" data-ipsquote-contentapp="forums" data-ipsquote-contenttype="forums" data-ipsquote-contentid="2375" data-ipsquote-contentclass="forums_Topic"><div>
<span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Recent Updates &amp; Modifications:</span></span></span><p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Updated 22 May 2012: (V1.2)</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Script will now write files to the script directory, Hopefully this will put an end to the WinVista/Win7 Problem which prevents applications writing into Program Files.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Fixed an issue when the BlackList Ban was applied, The re-population of the Channel Ban List to include the BlackListed Ban, resulted in double entries appearing.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** BlackList: Added a Date when the BlackList was added, and an optional reason which will be shown to the user in the Kick Message. NOTE: Due to this change, The 1.1 version is Incompatible with this 1.2 version, However, I have added a function which will update the BlackList Databases automatically, Please load this version into mIRC as normal, then in a channel window, type /ccdbupdate - This will then update the older database to this version, and send the older database to your Recycle Bin just incase you still need it. - Once Updated you will no longer require the feature, and you can safely delete it from the script, as it is not required in the main script itself.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Updated 6 May 2012: (V1.1)</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Added Numeric 482 (Channel Operator Status Needed) Support</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** From Now On, All New Releases Will Be Version Numbered, This Release is now V1.1</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Re-Aligned All The Dialogs so they match up perfectly (Sorry but it was annoying me)</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Enabled Horizontal Scroll in the "Set By" field on the Ban / Exception / Invite Page for servers which use full (user!ident@hostname) in the BEI Lists as sometimes it was too long to visibly see (You can now click in the field and press Home / End to see the whole text, The field remains Read Only)</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Enabled StatusBar to Notify on Server Prohibited Messages.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Updated 4 May 2012:</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Added Numeric 472 (Unknown Mode Numeric) Support</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Updated: 1 May 2012:</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Added A New BlackList Ban Feature: Entering #* instead of Channel Names, will make the Ban Globally Work, Regardless of Channel Ban Settings, If a user is spotted with the BlackListed Hostname, They will be Kicked+Banned from *ALL* Channels you are an Operator in.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Updated: 30 April 2012:</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Fixed 2 minor issues with BlackList Entry setting and deletion.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** BlackList Entries were not deleting correctly *Fixed</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Added a Checkbox with the Delete Function (so you won't accidentally delete them by accident)</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">** Now Checks Ban / Invite / Exception Support on the IRCd you are connected to, and will ONLY enable the lists / checkbuttons which the server supports.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">----</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">This is a Channel Control Dialog, intended to replace the crappy default mIRC-style one with one which has a nice set of features, which I hope you will find useful.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">This Channel Control Dialog allows you to modify the following aspects of a channel:</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Channel Mode Letters and now has Check Boxes for the most Common Channel Modes.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Channel Key Setting.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* User Limit Setting.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Channel Topic Setting.</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Ban List Add / Delete</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Exception List Add / Delete</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Invite List Add / Delete</span></span></span></p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">* Channel BlackList Feature (Add / Remove Hosts To Automatically Ban User On Sight)</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">Currently does NOT check for Channel Operator Rights, But nothing can be altered if you are not a Channel Operator anyway, as the IRCd / Services will stop / reverse any changes being made.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">LOADING INSTRUCTIONS:</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">1) You are better if you paste this into a NEW empty file, Example: ChannelControl.mrc</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">2) Type //run explorer $mircdir (using TWO forward slashes) into mIRC, This will open your mIRC folder, Paste the ChannelControl.mrc into that folder, and Confirm / OK any dialogs which pop-up.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">3) Inside mIRC, Type /load -rs $mircdir\ChannelControl.mrc This will load the script into mIRC.</span></span></span></p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">4) Goto a Channel Window (It will not work on the Status/Server Tab!), then Right-Click and select the option "Channel Control 1.2", which usually appears at the Bottom of the Channel Context Menu.</span></span></span></p>
<p> </p>
<p> </p>
<p><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">5) The Channel Control Dialog will then appear where you can Change the Channel settings.</span></span></span></p>
</div></blockquote>
<p> </p>
<p> </p>
<p><img src="http://www.hawkee.com/pictures/t_59854_qHGqQ1J0Gh6cafrCq3pA4hx9O.png" alt="t_59854_qHGqQ1J0Gh6cafrCq3pA4hx9O.png"> <img src="http://www.hawkee.com/pictures/t_59854_DHDJ3nHPdSPpBO4A2Dp41D9jP.png" alt="t_59854_DHDJ3nHPdSPpBO4A2Dp41D9jP.png"> <img src="http://www.hawkee.com/pictures/t_59854_wlx3e5zrufzNiFH7Wlgsrpw7P.png" alt="t_59854_wlx3e5zrufzNiFH7Wlgsrpw7P.png"></p>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;; Channel Control Dialog 1.2 by Amiga600 - To Replace The Crappy In-Built One :P; Posted on Hawkee Script Despository: http://www.hawkee.com/snippets/user/59854/; Ideally this should be saved to an external file "ChannelControl.mrc" for example; and imported into mIRC like follows: /load -rs ChannelControl.mrc; NOTE: Channel Control 1.1 BlackList will *NOT* work in this version, due to several; changes being made, notably, adding the Date which the blacklist was added and an; editable reason for the ban.; To Update your old database into the newer format, Type /ccdbupdate into mIRC after you; have loaded this script, It will then update your database, afterwards you can safely; remove the database updater from this script (section is right at the bottom of this file); Either call the Dialog up via the "Channel Control Dialog" in the right-click Channel; Menu, or type /chancont into mIRC directly.; This Script can be modified by the end user, provided credit is given to myself for creating it.; The Dialogs were created using DialogStudio, as I found it easier to do them with that program.dialog chancontrol {  title "Channel Control Dialog 1.2"  size -1 -1 375 200  option dbu  tab "General Settings", 1, 8 7 360 166  edit "", 2, 23 88 201 56, tab 1 multi limit 500  text "Channel Topic:", 3, 24 80 106 8, tab 1  text "Channel Creation Date:", 4, 24 39 102 8, tab 1  edit "", 5, 23 48 130 10, tab 1 read autohs center  text "Channel Key:", 8, 241 39 48 8, tab 1  edit "", 9, 240 48 50 10, tab 1 limit 30 center  edit "", 10, 311 48 29 10, tab 1 limit 3 center  text "User Limit:", 11, 313 39 27 8, tab 1  text "Channel Modes:", 13, 169 39 44 8, tab 1  text "Current Topic Length:", 31, 126 152 56 8, tab 1  button "Update Channel Topic", 39, 24 150 64 12, tab 1  edit "", 12, 168 48 49 10, tab 1 limit 20 center  edit "", 14, 184 151 40 10, tab 1 read center  button "Set Mode(s)", 15, 169 60 46 10, tab 1  button "Set", 16, 240 60 21 10, tab 1  button "Set Limit", 23, 312 60 27 10, tab 1  button "Un-Set", 24, 266 60 24 10, tab 1  text "Common Modes:", 49, 240 80 54 8, tab 1  check "Protected Topic", 50, 239 96 65 10, tab 1  check "No External Messages", 51, 239 112 69 10, tab 1  check "Moderated", 52, 239 128 50 10, tab 1  check "Secret", 53, 312 96 50 10, tab 1  check "Private", 54, 312 112 50 10, tab 1  check "Invite Only", 55, 312 128 50 10, tab 1  tab "Ban / Exception / Invite List's", 17  list 18, 12 32 115 105, disable tab 17 sort size hsbar  list 19, 131 32 115 105, disable tab 17 sort size hsbar  list 22, 249 32 115 105, disable tab 17 sort size hsbar  text "Channel Ban List:", 26, 13 24 44 8, tab 17  text "Channel Exception List:", 27, 132 24 67 8, tab 17  text "Channel Invite List:", 28, 251 24 61 8, tab 17  edit "", 29, 57 142 223 10, tab 17 center  text "Edit Entry:", 33, 15 143 39 8, tab 17  button "Delete", 35, 321 157 40 12, disable tab 17  button "Add", 36, 321 141 40 12, disable tab 17  edit "", 37, 57 156 223 10, tab 17 read autohs center  text "Set By / Date:", 38, 15 158 39 8, tab 17  radio "Exception", 40, 284 150 35 10, disable tab 17  radio "Invite", 41, 284 160 31 10, disable tab 17  radio "Ban", 34, 284 140 27 10, disable tab 17  tab "BlackList", 6  text "BlackList: (Entries Listed here will be Blacklisted on Channel Joins)", 7, 13 24 166 8, tab 6  list 25, 12 34 169 119, tab 6 size hsbar  text "Black List Ban's must always follow the USER!IDENT@HOST Format. Channel names must be separated by Spaces, and you can use #* to mean ALL Channels you are on.", 42, 192 112 169 22, tab 6  button "Add BlackList Ban", 43, 192 90 105 12, tab 6  button "Delete Selected BlackList Ban", 44, 95 156 89 12, disable tab 6  text "BlackList Ban: ( USER ! IDENT @ HOST )", 46, 192 25 166 8, tab 6  text "Channels To Ban This User On: (Eg. #Chat #Help - or #* for ALL)", 47, 192 47 167 8, tab 6  edit "", 30, 191 35 170 10, tab 6 autohs center  edit "", 32, 191 55 170 10, tab 6 autohs center  check "Enable Delete Button", 48, 17 157 71 10, tab 6  edit "", 45, 191 75 170 10, tab 6 autohs limit 400 center  text "Blacklist Reason: (Shown when the user is Kicked Out)", 57, 192 67 164 8, tab 6  text "NOTE: You *MUST* be a Channel Operator or IRCop in order for this BlackList to work on your chosen Channels.", 56, 191 144 169 16, tab 6  check "Default Reason", 58, 311 86 50 10, tab 6  button "OK", 20, 8 182 39 12, ok  button "Cancel", 21, 56 182 39 12, cancel  edit "Channel Control Dialog 1.2   (C)2012 Amiga600 @ http://www.hawkee.com/snippets/user/59854/", 99, 104 182 264 12, read autohs center}menu channel {  -  Channel Control 1.2:/chancont}#chancontroldialog off; Server-Support Numeric Handlingraw $5:/^[^ ]+ (.*)are supported by this server/i:{ tokenize 32 $regml(1) | num5-add $* }alias -l num5-add { hadd -m num5 $+($cid,_,$regsubex($1,/^(.*?)(=(.*))?$/,\1 $iif(\3,\3,$true))) }alias num5 { return $iif($hget(num5,$+($iif($2,$2,$cid),_,$1)),$v1,$false) }on *:DISCONNECT:{ if ($hget(num5)) { hdel -w num5 $+($cid,_*) } }alias version {  if ($hget(num5)) { hdel -w num5 $+($cid,_*) }  !version}; Other Raw Numeric Handlingraw *:*: {  if ($numeric == 332) {    ; Channel Topic    did -r chancontrol 2 1    did -o chancontrol 2 1 $3-    did -o chancontrol 14 1 $len($3-)  }  if ($numeric == 324) {    ; Channel Modes    did -o chancontrol 12 1 $3-    if (t isincs $3-) did -c chancontrol 50 1 ;Channel Topic    elseif (t !isincs $3-) did -u chancontrol 50 1    if (n isincs $3-) did -c chancontrol 51 1 ;No External Messages    elseif (n !isincs $3-) did -u chancontrol 51 1    if (m isincs $3-) did -c chancontrol 52 1 ;Moderated    elseif (m !isincs $3-) did -u chancontrol 52 1    if (s isincs $3-) did -c chancontrol 53 1 ;Secret    elseif (s !isincs $3-) did -u chancontrol 53 1    if (p isincs $3-) did -c chancontrol 54 1 ;Private    elseif (p !isincs $3-) did -u chancontrol 54 1    if (i isincs $3-) did -c chancontrol 55 1 ;Invite    elseif (i !isincs $3-) did -u chancontrol 55 1  }  if ($numeric == 329) {    ; Channel Creation Date    did -o chancontrol 5 1 $asctime($3)  }  if ($numeric == 367) {    ; Channel Ban List    var %output $3 ( $+ $4 $+ ) $asctime($5)    inc %chban 1    did -o chancontrol 18 %chban %output  }  if ($numeric == 348) {    ; Channel Exception List    var %output $3 ( $+ $4 $+ ) $asctime($5)    inc %chexc 1    did -o chancontrol 19 %chexc %output  }  if ($numeric == 346) {    ; Channel Invite List    var %output $3 ( $+ $4 $+ ) $asctime($5)    inc %chinv 1    did -o chancontrol 22 %chinv %output  }  if ($numeric == 472) || ($numeric == 482) {    ; Unknown Mode Character    did -o chancontrol 99 1 Error: $2-  }}on 1:dialog:chancontrol:*:*: {  ; Debug Line  ; if ($devent != mouse) echo -a DNAME: $dname - DEVENT: $devent - DID: $did  if ($devent = sclick) {    if ($did = 34) {	  ; Ban Checkmark	  set %listmode b	  did -eo chancontrol 36 1 Add Ban	  did -eo chancontrol 35 1 Del Ban    }    if ($did = 40) {	  ; Exception Checkmark	  set %listmode e	  did -eo chancontrol 36 1 Add Exception	  did -eo chancontrol 35 1 Del Exception    }    if ($did = 41) {	  ; Invite Checkmark	  set %listmode I	  did -eo chancontrol 36 1 Add Invite	  did -eo chancontrol 35 1 Del Invite    }  }  if ($devent = edit) {    if ($did = 2) {	  var %toplen $did(chancontrol,2,1).len	  inc %toplen $did(chancontrol,2,2).len	  inc %toplen $did(chancontrol,2,3).len	  inc %toplen $did(chancontrol,2,4).len	  inc %toplen $did(chancontrol,2,5).len	  inc %toplen $did(chancontrol,2,6).len	  inc %toplen $did(chancontrol,2,7).len	  inc %toplen $did(chancontrol,2,8).len	  did -o chancontrol 14 1 %toplen / $num5(TOPICLEN)    }  }  if ($devent = sclick) {    if ($did = 20) || ($did = 21) {	  .disable #chancontroldialog	  .timercccopy  off	  if ($hget(num5)) { hdel -w num5 $+($cid,_*) } ;Server-Numeric Handling    }    if ($did = 39) {	  ; Update Channel Topic	  var %chtopic $did(chancontrol,2,1) $+ $did(chancontrol,2,2) $+ $did(chancontrol,2,3) $+ $did(chancontrol,2,4) $+ $did(chancontrol,2,5) $+ $did(chancontrol,2,6) $+ $did(chancontrol,2,7)	  if (%chtopic != $null) { /topic %chname %chtopic | did -o chancontrol 99 1 Channel %chname Topic Updated. }    }    if ($did = 15) {	  ; Update Channel Modes	  if ($did(chancontrol,12,1) != $null) { /mode %chname %chmodes | /mode %chname | did -o chancontrol 99 1 Channel %chname Modes Updated. }      }    if ($did = 16) {	  ; Update Channel Key	  if ($did(chancontrol,9,1) != $null) { /mode %chname +k %chkey | /mode %chname | did -o chancontrol 99 1 Channel %chname Key/Password Updated. }    }    if ($did = 24) {	  ; Unset Channel Key	  /mode %chname -k $did(chancontrol,9,1)	  /mode %chname	  did -o chancontrol 99 1 Channel %chname Key/Password Removed.    }    if ($did = 23) {	  var %chset 0	  if ($did(chancontrol,10,1) &gt; 0) &amp;&amp; ($did(chancontrol,10,1) &lt; 999) { /var %chset 1 }	  if (%chset = 0) { /mode %chname -l | did -o chancontrol 99 1 Channel %chname Limit Removed. }	  if (%chset = 1) { /mode %chname +l $did(chancontrol,10,1) | did -o chancontrol 99 1 Channel %chname Limit Set To %chlim Users. }    }    if ($did = 18) {	  ; Handle Ban List	  set %listmode b	  did -o chancontrol 29 1 $gettok($did(chancontrol,18).seltext,1,32)	  did -o chancontrol 37 1 $gettok($did(chancontrol,18).seltext,2,32) on $gettok($did(chancontrol,18).seltext,3-,32)	  did -c chancontrol 34 1	  did -u chancontrol 40 1	  did -u chancontrol 41 1	  did -eo chancontrol 36 1 Add Ban	  did -eo chancontrol 35 1 Del Ban    }    if ($did = 19) {	  ; Exception List	  set %listmode e	  did -o chancontrol 29 1 $gettok($did(chancontrol,19).seltext,1,32)	  did -o chancontrol 37 1 $gettok($did(chancontrol,19).seltext,2,32) on $gettok($did(chancontrol,19).seltext,3-,32)	  did -u chancontrol 34 1	  did -c chancontrol 40 1	  did -u chancontrol 41 1	  did -eo chancontrol 36 1 Add Exception	  did -eo chancontrol 35 1 Del Exception    }    if ($did = 22) {	  ; Invite List	  set %listmode I	  did -o chancontrol 29 1 $gettok($did(chancontrol,22).seltext,1,32)	  did -o chancontrol 37 1 $gettok($did(chancontrol,22).seltext,2,32) on $gettok($did(chancontrol,22).seltext,3-,32)	  did -u chancontrol 34 1	  did -u chancontrol 40 1	  did -c chancontrol 41 1	  did -eo chancontrol 36 1 Add Invite	  did -eo chancontrol 35 1 Del Invite    }    if ($did = 36) {	  ; Add Button	  if (%listmode = b) {	    set %chban 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 18 1	    .mode %chname +b %banset	    .mode %chname +b	    did -o chancontrol 99 1 Channel %chname Ban %banset Added.	  }	  if (%listmode = e) {	    set %chexc 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 19 1	    .mode %chname +e %banset	    .mode %chname +e	    did -o chancontrol 99 1 Channel %chname Exception %banset Added.	  }	  if (%listmode = I) {	    set %chinv 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 22 1	    .mode %chname +I %banset	    .mode %chname +I	    did -o chancontrol 99 1 Channel %chname Invite %banset Added.	  }    }    if ($did = 35) {	  ; Delete Button	  if (%listmode = b) {	    set %chban 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 18 1	    .mode %chname -b %banset	    .mode %chname +b	    did -o chancontrol 99 1 Channel %chname Ban %banset Deleted.	  }	  if (%listmode = e) {	    set %chexc 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 19 1	    .mode %chname -e %banset	    .mode %chname +e	    did -o chancontrol 99 1 Channel %chname Exception %banset Deleted.	  }	  if (%listmode = I) {	    set %chinv 0	    var %temp $did(chancontrol,29)	    var %banset $gettok(%temp,1,32)	    did -r chancontrol 22 1	    .mode %chname -I %banset	    .mode %chname +I	    did -o chancontrol 99 1 Channel %chname Invite %banset Deleted.	  }    }    if ($did = 43) {	  ; Add To BlackList Button	  var %bantype $did(chancontrol,30)	  var %chans $did(chancontrol,32)	  var %reason $did(chancontrol,45)	  if (*!*@* !iswm %bantype) { did -o chancontrol 99 1 ERROR: Must be added in USER ! IDENT @ HOST format! | halt }	  if ($chr(35) !isin %chans) { did -o chancontrol 99 1 ERROR: Must be Proper Channels, eg. #Lobby #Fred | halt }	  if (%reason = $null) { did -o chancontrol 99 1 ERROR: You must either use the Default Reason or specify one! | halt }	  did -o chancontrol 99 1 Checking BlackList..	  var %tmp 0	  did -r chancontrol 25 1	  :ccread	  inc %tmp 1	  var %blk $read($scriptdir\ChanContBL12.txt,%tmp)	  var %frd $gettok(%blk,1,32)	  did -o chancontrol 25 %tmp %blk	  if (%frd = %bantype) { write -d $scriptdir\ChanContBL12.txt $did(25).seltext }	  if (%frd != $null) goto ccread	  write $scriptdir\ChanContBL12.txt $lower(%bantype) $str($chr(124),2) $lower(%chans) $str($chr(124),2) $fulldate $str($chr(124),2) %reason	  did -o chancontrol 99 1 Added/Updated BlackList Entry Successfully.	  /chancontupdateblacklist    }    if ($did = 44) {	  ; Delete BlackList Entry	  if ($exists($scriptdir\ChanContBL12.txt)) {	    write -dl $+ $did(25).sel $scriptdir\ChanContBL12.txt	    did -b chancontrol 44	    did -u chancontrol 48	    did -o chancontrol 99 1 BlackList Entry Successfully Deleted.	    /chancontupdateblacklist	  }    }    if ($did = 25) {	  ; BlackList Selection	  did -o chancontrol 30 1 $gettok($did(chancontrol,25).seltext,1,124)	  did -o chancontrol 32 1 $gettok($did(chancontrol,25).seltext,2,124)	  did -o chancontrol 45 1 $gettok($did(chancontrol,25).seltext,4,124)	  did -b chancontrol 44	  did -u chancontrol 48	  did -n chancontrol 45 1	  did -u chancontrol 58	  did -o chancontrol 99 1 %cccopy	  if ($gettok($did(chancontrol,25).seltext,1,124) != $null) { did -o chancontrol 99 1 BlackList Entry $gettok($did(chancontrol,25).seltext,1,124) was Added on $gettok($did(chancontrol,25).seltext,3,124) }    }    if ($did = 48) {	  ; Enable BlackList Delete Button	  if ($did(chancontrol,25).seltext = $null) { did -o chancontrol 99 1 Select A BlackList Entry Before Enabling Delete! | did -u chancontrol 48 | halt }	  if ($did(chancontrol,48).state = 1) { did -e chancontrol 44 }	  if ($did(chancontrol,48).state = 0) { did -b chancontrol 44 }    }    if ($did = 58) {	  ; Default Blacklist Button	  if ($did(chancontrol,58).state = 1) { did -m chancontrol 45 1 | did -o chancontrol 45 1 You Have Been BlackListed From This Channel - Good Day! }	  if ($did(chancontrol,58).state = 0) { did -n chancontrol 45 1 | did -o chancontrol 45 1 }    }    if ($did = 50) {	  ; Topic CheckBox	  if ($did(chancontrol,50).state = 1) { .mode %chname +t | did -o chancontrol 99 1 Channel %chname Protected Topic Lock Enabled. }	  if ($did(chancontrol,50).state = 0) { .mode %chname -t | did -o chancontrol 99 1 Channel %chname Protected Topic Lock Disabled. }	  .mode %chname    }    if ($did = 51) {	  ; No External Messages CheckBox	  if ($did(chancontrol,51).state = 1) { .mode %chname +n | did -o chancontrol 99 1 Channel %chname No External Messages Enabled. }	  if ($did(chancontrol,51).state = 0) { .mode %chname -n | did -o chancontrol 99 1 Channel %chname No External Messages Disabled. }	  .mode %chname    }    if ($did = 52) {	  ; Moderated CheckBox	  if ($did(chancontrol,52).state = 1) { .mode %chname +m | did -o chancontrol 99 1 Channel %chname Moderated Mode Enabled. }	  if ($did(chancontrol,52).state = 0) { .mode %chname -m | did -o chancontrol 99 1 Channel %chname Moderated Mode Disabled. }	  .mode %chname    }    if ($did = 53) {	  ; Secret CheckBox	  if ($did(chancontrol,53).state = 1) { .mode %chname +s | did -o chancontrol 99 1 Channel %chname Secret Mode Enabled. }	  if ($did(chancontrol,53).state = 0) { .mode %chname -s | did -o chancontrol 99 1 Channel %chname Secret Mode Disabled. }	  .mode %chname    }    if ($did = 54) {	  ; Private CheckBox	  if ($did(chancontrol,54).state = 1) { .mode %chname +p | did -o chancontrol 99 1 Channel %chname Private Mode Enabled. }	  if ($did(chancontrol,54).state = 0) { .mode %chname -p | did -o chancontrol 99 1 Channel %chname Private Mode Disabled. }	  .mode %chname    }    if ($did = 55) {	  ; Invite CheckBox	  if ($did(chancontrol,55).state = 1) { .mode %chname +i | did -o chancontrol 99 1 Channel %chname Invite Mode Enabled. }	  if ($did(chancontrol,55).state = 0) { .mode %chname -i | did -o chancontrol 99 1 Channel %chname Invite Mode Disabled. }	  .mode %chname    }  }}alias -l chancontupdateblacklist {  var %tmp 0  did -r chancontrol 25 1  /chancontsortbl $scriptdir\ChanContBL12.txt  :ccblackupd  inc %tmp 1  var %blk $read($scriptdir\ChanContBL12.txt,%tmp)  var %frd $gettok(%blk,1,124)  did -o chancontrol 25 %tmp %blk  if (%frd != $null) goto ccblackupd}on *:TOPIC:#: {  ; Detects and Updates on Topic Changes While Dialog Is Open  /topic $chan}alias chancontsortbl $iif($isfile($+(",$$1-,")),filter -affc $str($+(",$1-,",$chr(32)),2))#chancontroldialog endalias chancont {  if ($chan = $null) { echo -a ERROR: You must be on a Channel to call up the Channel Control Dialog!! | halt }  .enable #chancontroldialog  dialog $iif($dialog(chancontrol), -va, -m) chancontrol chancontrol  set %chban 0  set %chexc 0  set %chinv 0  set %chname $chan  .topic $chan  .mode $chan  set %cccopy Channel Control Dialog 1.2   (C)2012 Amiga600 @ http://www.hawkee.com/snippets/user/59854/  .timercccopy 0 20 did -o chancontrol 99 1 %cccopy  if (b isincs $gettok($chanmodes,1,44)) { .mode $chan +b | did -e chancontrol 18 | did -e chancontrol 34 1 | did -eo chancontrol 36 1 Add Ban | did -eo chancontrol 35 1 Del Ban | did -c chancontrol 34 1 }  elseif (b !isincs $gettok($chanmodes,1,44)) { did -o chancontrol 18 1 Un-Supported By The IRCd. }  if (e isincs $gettok($chanmodes,1,44)) { .mode $chan +e | did -e chancontrol 19 | did -e chancontrol 40 }  elseif (e !isincs $gettok($chanmodes,1,44)) { did -o chancontrol 19 1 Un-Supported By The IRCd. }  if (I isincs $gettok($chanmodes,1,44)) { .mode $chan +I | did -e chancontrol 22 | did -e chancontrol 41 }  elseif (I !isincs $gettok($chanmodes,1,44)) { did -o chancontrol 22 1 Un-Supported By The IRCd. }  set %listmode b  did -eo chancontrol 36 1 Add Ban  did -eo chancontrol 35 1 Del Ban  did -c chancontrol 34 1  .version  /chancontupdateblacklist}on *:JOIN:#: {  if ($exists($scriptdir\ChanContBL12.txt)) {    var %tmp 0    :cccheckbl    inc %tmp 1    var %blk $read($scriptdir\ChanContBL12.txt,%tmp)    var %blentry $gettok(%blk,1,124)    var %blchans $gettok(%blk,2,124)    var %blmsg $gettok(%blk,4,124)    if ($nick $+ !*@* = %blentry) { var %ban 1 }    if (%blentry iswm $address($nick,0)) { var %ban 1 }    if (%blentry iswm $address($nick,1)) { var %ban 1 }    if (%blentry iswm $address($nick,2)) { var %ban 1 }    if ($chan isin %blchans) || (#* isin %blchans) {	  if (%ban = 1) { .mode # +b %blentry | .kick # $nick BlackListed: %blmsg | set %chban 0 | .mode # +b | halt }    }    if (%blk != $null) goto cccheckbl  }}; -----------------------------------------------------------------------------------------------------; DATABASE UPDATER 1.1 TO 1.2; -----------------------------------------------------------------------------------------------------; NOTE: ONCE YOU HAVE SUCCESSFULLY UPDATED YOUR DATABASES, YOU CAN REMOVE THIS WHOLE SECTION BELOW;	   FROM THIS FILE, AS IT WILL NO LONGER BE REQUIRED FOR THIS SCRIPT TO FUNCTION.; EXTRA NOTE: DO _NOT_ DELETE ANYTHING ABOVE THIS SECTION, AS YOU MAY BREAK THE SCRIPTS FUNCTIONALITY!!; -----------------------------------------------------------------------------------------------------alias ccdbupdate {  echo -a *** Channel Control Dialog - 1.1 to 1.2 BlackList Database Updater ***  var %file $exists($scriptdir\ChanContBL.txt)  if (%file = $false) { echo -a Database file not found, or you have already updated it to 1.2 - If this is not the case, Check your Recycle Bin, then Restore the file before running this script again!! | halt }  echo -a *** Database found, I shall now read this in, and write it to the new database format..  var %tmp 0  :ccdbupdater  inc %tmp 1  var %blk $read($scriptdir\ChanContBL.txt,%tmp)  var %blentry $gettok(%blk,1,32)  var %blchans $gettok(%blk,2-,32)  if (%blentry != $null) {    echo -a *** Found Entry: BlackList HostMask: %blentry - BlackList Channels: %blchans    write $scriptdir\ChanContBL12.txt %blentry $str($chr(124),2) %blchans $str($chr(124),2) $fulldate $str($chr(124),2) You Are BlackListed From This Channel!  }  if (%blk != $null) goto ccdbupdater  echo -a *** All Entries Successfully Updated, Old Database has been moved to your Recycle Bin (you can safely delete this if the blacklist has been updated successfully)  echo -a NOTE: This updater is no longer required, You may safely edit the section out of your Channel Control file!  echo -a but only delete the lower section (it is clearly marked)  remove -b $scriptdir\ChanContBL.txt}</pre>
<div></div>
<p></p>
<p> </p>
<p><a href="http://www.hawkee.com" rel="external nofollow">http://www.hawkee.com</a></p>
]]></description><guid isPermaLink="false">2375</guid><pubDate>Wed, 23 May 2012 03:41:35 +0000</pubDate></item><item><title>Highlight flood protection</title><link>https://www.coders-resources.net/ipb/forums/topic/2344-highlight-flood-protection/</link><description><![CDATA[
<blockquote data-ipsquote="" class="ipsQuote" data-ipsquote-contentapp="forums" data-ipsquote-contenttype="forums" data-ipsquote-contentid="2344" data-ipsquote-contentclass="forums_Topic"><div><span style="color:#333333"><span style="font-family:Arial, Tahoma, Verdana"><span style="font-size:12px">This will automatically /notice and /ignore someone who floods the channel with your nick. Feel free to edit the numbers and whatnot</span></span></span></div></blockquote>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;on $*:text:$(/\Q $+ $me $+ \E\b/iS):#:{  if (%flood2. [ $+ [ $wildsite ] ] == $null) {    set -u6 %flood2. [ $+ [ $wildsite ] ] 1  }  elseif (%flood2. [ $+ [ $wildsite ] ] &gt;= 4) {    notice $nick 11,1Highlight flood detected14,1. 9,1You will now be ignored for6,1 5 9,1minutes14,1. 10,1Next time don't fucking highlight rape me14,1. 8,1Thank you and have a great fucking day14,1!    ignore -u300 $wildsite    unset %flood2. [ $+ [ $wildsite ] ]  }  else { inc -u6 %flood2. [ $+ [ $wildsite ] ] }}</pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">2344</guid><pubDate>Wed, 09 May 2012 16:27:13 +0000</pubDate></item><item><title>Multi Scanner</title><link>https://www.coders-resources.net/ipb/forums/topic/2075-multi-scanner/</link><description><![CDATA[
<p><span style="color:#ff0000">Put this in the Popups On Channel:</span></p>
<p><span style="color:#ff0000">Scanner:/scanner</span></p>
<p><span style="color:#ff0000">*****************</span></p>
<p><span style="color:#ff0000">You don't have to put it there, you can just say /scanner if you want.</span></p>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;; Ž Clone Scan,IRCop Scan,and away's scan v1 By LordBotTeam'''''''''''''''''''''''''''''''''''''''''''''''; Ž Usage: /scanner; Ž LOADINGon *:LOAD:{    else { echo $colour(info) -s -&gt; Multi Scanner By LordBotTeam. }    else { echo $coulour(info)-s -&gt; Please Like And/Or Comment At our www.Hawkee.com Page.}    else { echo $coulour(info)-s -&gt; Change things at your own risk!( Don't change anything unless you know what you are doing!  }}}alias scanner if ($dialog(scanner)) dialog -v scanner | else dialog -m scanner scannerdialog scanner {  title Multi All-In-One Scanner  size -1 -1 170 157  option dbu  box "Scanning", 1, 1 20 168 75  box "", 2, 1 93 168 19  check "Clones", 3, 4 99 40 10, push  check "ServOps", 4, 45 99 40 10, push  check "Aways", 5, 86 99 40 10, push  list 6, 4 28 162 53, size hide  list 7, 4 28 162 53, size hide  list 8, 4 28 162 53, size hide  box "Actions", 15, 1 112 100 30  text "Perform following action:", 16, 5 119 102 8  button "Start", 9, 146 98 20 12, disable  combo 10, 5 127 65 50, size drop  button "Perform", 11, 73 127 25 11, disable  box "Channels", 12, 102 112 67 30  text "Clone,Ops,and Away's Scannel v1 By Russ", 13, 3 146 100 13, disable  button "Finish", 14, 148 144 21 12, ok  text "Choose scan chan:", 17, 106 119 83 8  combo 18, 106 127 60 50, size drop  text "Nicks:", 19, 5 83 20 13, hide  edit "", 20, 20 81 92 10, read multi autovs return hide  text "Clone group(s):", 21, 115 83 40 13, hide  edit "", 22, 154 81 12 10, read hide  text "Server Operators(s):", 23, 130 83 40 13, hide  edit "", 24, 154 81 12 10, read hide  text "Away nick(s):", 25, 120 83 40 13, hide  edit "", 26, 154 81 12 10, read hide  text "Scan in:", 27, 6 83 40 13, hide  radio "Network", 28, 31 81 30 12, hide  radio "Spec. channels", 29, 71 81 45 12, hide  box "Network", 30, 1 0 168 21  combo 31, 85 8 80 100, drop  edit "", 32, 4 8 70 11, read  text "@", 33, 77 10 6 13}on *:dialog:scanner:*:*:{  if ($devent == init) {    mdx SetMircVersion $version | mdx MarkDialog $dname    mdx SetControlMDX $dname 6,7,8 ListView report flatsb grid rowselect showsel nosortheader single &gt; [ $mdx.vdll ]    did -i $dname 6 1 headerdims 275:1 30:2 | did -i $dname 6 1 headertext Host $ch9 $chr(35) | did -i $dname 7 1 headerdims 85:1 218:2 | did -i $dname 7 1 headertext IRCop Nick $ch9 Host | did -i $dname 8 1 headerdims 85:1 220:2 | did -i $dname 8 1 headertext Away Nick $ch9 Host    var %i = 1 | while (%i &lt;= 33) { mdx SetFont $dname %i 13 300 Tahoma | inc %i }    var %j = 1 | while ($scon(%j).server) { did -a $dname 31 $ifmatch | inc %j }    did -c $dname 18,31,32 1 | did -b $dname 10 | _grabinfo $did(31,1)  }  elseif ($devent == sclick) {    if ($did == 3) { did -u $dname 4,5 | dide 9,18 | didv 6,19,20,21,22 | did -h $dname 7,8,23,24,25,26,27,28,29 }    elseif ($did == 4) { did -u $dname 3,5 | dide 9 | did -h $dname 6,8,19,20,21,22,25,26 | did -b $dname 18 | didv 7,23,24,27,28,29 }    elseif ($did == 5) { did -u $dname 3,4 | dide 9,18 | didv 8,25,26 | did -h $dname 6,7,19,20,21,22,7,23,24,27,28,29 }    elseif ($did isnum 3-5) {	  if ($did($dname,$did).state == 0) { did -h $dname 6,7,8,19,20,21,22,23,24,25,26,27,28,29 | did -b $dname 9,11,18 }    }    elseif ($did == 6) { info $did(31).sel $gettok($did($dname,$did).seltext,6,32) }    elseif ($did == 9) {	  did -r $dname 10 | unset %s.action | var %action = scan $did(18).seltext $did(31).sel	  if ($did(18).seltext) {	    if ($did(3).state) %action clones	    elseif ($did(5).state) %action away	  }	  elseif ($did(4).state) {	    if (%ircop.type) %action ircops	    else echo $color(info) -a * All-In-One Scanner: Choose IRCoperator scan type!	  }    }    elseif ($did == 11) {	  if ($did(10).seltext) &amp;&amp; (($did(6).sel) || ($did(7).sel) || ($did(8).sel)) {	    scid $scon($did(31).sel)	    var %s.action = $did(10).text	    if ($did(3).state) clone.act $did(31).sel $iif($did(10).sel == 1,kick,kban)	    else { var %t.sel = $iif($did(4).state,7,8) | %s.action $gettok($did($dname,%t.sel).seltext,6,32) }	    scid -r	  }    }    elseif ($did == 18) { dialog -t $dname Scanning: $did(18).seltext }    elseif ($did == 28) { did -b $dname 18 | set %ircop.type network }    elseif ($did == 29) { dide 18 | set %ircop.type channel }    elseif ($did == 31) { var %sel = $did(31).sel | _grabinfo $did(31,%sel) }  }}alias -l _grabinfo {  var %i = 1, %sc = scanner, %dido = did -a %sc 18  while ($scon(%i)) {    if ($scon(%i).server == $1) {	  scid $scon(%i)	  did -r %sc 18	  did -o %sc 32 1 $scon(%i).me	  var %i = 1	  while ($chan(%i)) {	    %dido $ifmatch	    inc %i	  }	  scid -r	  break    }    inc %i  }  did -c %sc 18 1}alias -l scan {  if ($3 == clones) {    scid $scon($2) | did -r scanner 6 | if ($chan($1).ial != $true) &amp;&amp; ($me ison $1) .who $1    var %x = 1, %y = 1    if ($hget(_clones) == $null) { .hmake -s _clones 100 }    while (%x &lt;= $nick($1,0)) {	  if ($ialchan($address($nick($1,%x),2),$1,0) &gt; 1) { .hadd _clones $address($nick($1,%x),2) $hget(_clones,$address($nick($1,%x),2)) }	  inc %x    }    while (%y &lt;= $hget(_clones,0).item) {	  did -a scanner 6 $hget(_clones,%y).item $ch9 $ialchan($hget(_clones,%y).item,$1,0)	  inc %y    }    dide 11 | dialog -t scanner Finished Clone scanning: $did(scanner,18).seltext | did -o scanner 22 1 $calc($did(6).lines - 1) | didtok scanner 10 44 Kick,KickBan | did -c scanner 10 1 | scid -r | did -e scanner 10 | .hfree -s _clones  }  elseif ($3 == away) { scid $scon($2) | did -r scanner 8 | .enable #scanaway | .who $$1 | scid -r }  elseif ($3 == ircops) { scid $scon($2) | did -r scanner 7 | .enable #ircop-scan.net | if (%ircop.type == network) .who 0 o | else .who $did(scanner,18).seltext | scid -r }}alias -l info {  did -r scanner 20 | scid $scon($1)  var %x = 1, %y = 1  if ($hget(_info) == $null) { .hmake -s _info 100 }  while (%x &lt;= $ialchan($2,$did(scanner,18).seltext,0)) {    .hadd _info $ialchan($2,$did(scanner,18).seltext,%x).nick    inc %x  }  while (%y &lt;= $hget(_info,0).item) {    did -a scanner 20 $hget(_info,%y).item $+ ,    inc %y  }  did -ra scanner 20 $left($did(scanner,20).text,-1) | scid -r | .hfree -s _info}alias -l clone.act {  if ($me isop $did(scanner,18).seltext) {    scid $scon($1) | var %chan = $did(scanner,18).seltext , %t.user = $gettok($did(scanner,6).seltext,11,32) , %t.host = $gettok($did(scanner,6).seltext,6,32)    $iif($2 == kban,ban %chan %t.host 2)    var %i = 1    while (%i &lt;= %t.user) {	  var %t.nicks = $ialchan(%t.host,%chan,%i).nick	  kick %chan %t.nicks Clone %i out of %t.user	  inc %i    }    unset %chan,%t.nicks,%t.user,%t.host | scid -r  }}alias -l dide did -e scanner $1-alias -l didv did -v scanner $1-alias -l ch9 return $chr(9)alias -l mdx { if ($lock(dll)) return | if ($isid) return $dll($mdx.udll,$1,$iif($2- != $null,$2-,.)) | dll $shortfn($mdx.udll) $1- }alias -l mdx.udll { return $scriptdirmdx.dll }alias -l mdx.vdll { return $scriptdirviews.mdx }#ircop-scan.net offraw 315:*: .disable #ircop-scan.net | dialog -t scanner Finished IRCop scanning: $iif(%ircop.type == channel,$did(scanner,18).seltext),$network) | did -o scanner 24 1 $calc($did(scanner,7).lines - 1) | didtok scanner 10 44 /whois,/query | did -c scanner 10 1 | did -e scanner 10,11 | did -c scanner 18 1 | unset %ircop.type | haltraw 352:*: {  if (%ircop.type == channel) { if (* isin $7) { did -a scanner 7 $6 $chr(9) $address($6,2) } | haltdef }  else { did -a scanner 7 $6 $chr(9) $address($6,2) }  halt}#ircop-scan.net end#scanaway offraw 352:*: if (G isin $7) { did -a scanner 8 $6 $ch9 $address($6,2) | inc %scan.aways } | haltraw 315:*: dialog -t scanner Finished Away scanning: $did(scanner,18).seltext | did -o scanner 26 1 $calc($did(scanner,8).lines - 1) | .disable #scanaway | unset %scan.aways | didtok scanner 10 44 /whois,/query | did -c scanner 10 1 | did -e scanner 10,11 | did -c scanner 18 1 | halt#scanaway endmenu channel {  &amp;¤ Scan ¤:scanner}; Ž EOF</pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">2075</guid><pubDate>Tue, 21 Feb 2012 06:54:48 +0000</pubDate></item><item><title><![CDATA[Massjoin & Flood Dual Mode Dialog Script]]></title><link>https://www.coders-resources.net/ipb/forums/topic/2074-massjoin-flood-dual-mode-dialog-script/</link><description><![CDATA[
<p><span style="color:#0000cd">mIRC Kicking Clones Games for Server Zildjan.mine.nu:6667 by Team SpiralKinetics.</span></p>
<p><span style="color:#0000cd">A simple mIRC code intended to kick clones. Summary of the games detailed in the code dialog. </span></p>
<p> </p>
<p> </p>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]menu status,menubar,channel {  -  Spiralkinetics™ Dual Mode:/dialog $iif($dialog(dualmode),-o,-m) dualmode dualmode  Spiralkinetics™ MassJoin Clear cloneMJ.TXT:/write -c cloneMJ.txt  Spiralkinetics™ Flood Clear cloneFL.TXT:/write -c cloneFL.txt  -};[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]dialog dualmode {  title "SpiralKinetics Dual Mode Sock Configuration"  size -1 -1 210 180  option dbu  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  tab "Intro", 1, 5 2 200 150,  box "", 10, 10 15 190 135  text "Script: SpiralKinetics Dual Mode", 11, 15 20 180 10, tab 1 enable  text "Coder: Sabri", 12, 15 27 180 10, tab 1 enable  text "Tester: ItikRock, Ahseng, Cloud, Kereei and m11x", 13, 15 34 180 10, tab 1 enable  text "Disclaimer: This code belong to Team SpiralKinetics and we just lend it to whoever wish to use it.", 14, 15 41 180 20, tab 1 enable  text "Advisor: Bioshock and zildjan", 77, 15 59 180 10, tab 1 enable  text "Applications: Flooding and MassJoin Games at Server Zildjan.mine.nu:6667", 15, 15 65 180 10, tab 1 enable  text "Channel: Flooding #FLOOD / MassJoin #BIRC", 78, 15 72 180 10, tab 1 enable  text "Games Summary:-", 16, 15 82 180 10, tab 1 enable  text "Flood - (#FLOOD) Basic understanding are kicking clone on syntax error display on channel by each clone such as Long text etc.", 17, 15 90 180 20, tab 1 enable  text "MassJoin - (#BIRC) Basic understanding are kicking all join clone.", 18, 15 104 180 10, tab 1 enable  text "Team: SpiralKinetics Establish in 2010.", 19, 15 115 180 10, tab 1 enable  text "Team members comprise of: Bioshock (Founder) and Senior Members: Sabri, ItikRock, Kereei, Ahseng, Cloud and m11x", 20, 15 122 180 15, tab 1 enable  text "Like Us:", 21, 15 140 20 10, tab 1 enable  link "FaceBook Page: SpiralKinetics Productions", 22, 35 140 130 15, tab 1 enable  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  tab "MassJoin", 2, 5 2 170 130  box "MassJoin Configuration", 4, 15 20 180 125, tab 2  box "Groups", 23, 20 30 170 20, tab 2  text "Enable/Disable MassJoin Remote Groups:", 24, 25 38 99 10, enable tab 2  radio "Enable", 25, 127 36 25 10, left tab 2  box "", 26, 155 32 2 16, tab 2  radio "Disable", 27, 160 36 25 10, tab 2  box "Set Nick/Pass Sock`s", 28, 20 53 70 50, tab 2  text "Nick:", 29, 25 63 13 10, tab 2  edit "", 30, 40 63 45 10, center autohs tab 2  text "Pass:", 31, 25 78 13 10, tab 2  edit "", 32, 40 78 45 10, center pass autohs, tab 2  button "Set Nick/Pass", 33, 32 90 45 10, disable tab 2  box "", 34, 95 50 95 50, tab 2  text "Add Server eg.", 35, 125 55 40 10, tab 2  text "Zildjan.mine.nu PORT: 6667", 36, 109 62 68 10, tab 2  edit "", 37, 100 71 85 10, center autohs tab 2  edit "", 38, 118 85 25 10, center autohs tab 2  text "PORT:", 39, 100 86 15 10, tab 2  button "Add Server", 40, 146 85 40 10, disable tab 2  box "Set Channel e. #birc", 41, 20 105 63 37, tab 2  edit "", 42, 29 115 45 10, center autohs tab 2  button "Add Chan", 43, 32 128 40 10, disable tab 2  text "ON/OFF Your Sock`s", 44, 110 102 60 10, tab 2  button "Connect", 45, 95 112 40 15, tab 2  button "Disconnect", 46, 140 112 40 15, tab 2  text "Clear all MassJoin Setting:", 47, 85 132 70 10, tab 2  button "¤ Clear All ¤", 48, 152 130 40 12, tab 2  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  tab "Flood", 3, 5 2 170 130  box "Flood Configuration", 5, 15 20 180 125, tab 3  box "Groups", 49, 20 30 170 20, tab 3  text "Enable/Disable Flood Remote Groups:", 50, 25 38 99 10, enable tab 3  radio "Enable", 51, 127 36 25 10, left tab 3  box "", 52, 155 32 2 16, tab 3  radio "Disable", 53, 160 36 25 10, tab 3  box "Set Nick/Pass Sock`s", 54, 20 53 70 50, tab 3  text "Nick:", 55, 25 63 13 10, tab 3  edit "", 56, 40 63 45 10, center autohs tab 3  text "Pass:", 57, 25 78 13 10, tab 3  edit "", 58, 40 78 45 10, center pass autohs, tab 3  button "Set Nick/Pass", 59, 32 90 45 10, disable tab 3  box "", 60, 95 50 95 50, tab 3  text "Add Server eg.", 61, 125 55 40 10, tab 3  text "Zildjan.mine.nu PORT: 6667", 62, 109 62 68 10, tab 3  edit "", 63, 100 71 85 10, center autohs tab 3  edit "", 64, 118 85 25 10, center autohs tab 3  text "PORT:", 65, 100 86 15 10, tab 3  button "Add Server", 66, 146 85 40 10, disable tab 3  box "Set Channel e. #flood", 67, 20 105 63 37, tab 3  edit "", 68, 29 115 45 10, center autohs tab 3  button "Add Chan", 69, 32 128 40 10, disable tab 3  text "ON/OFF Your Sock`s", 70, 110 102 60 10, tab 3  button "Connect", 71, 95 112 40 15, tab 3  button "Disconnect", 72, 140 112 40 15, tab 3  text "Clear all Flood Setting:", 73, 85 132 70 10, tab 3  button "¤ Clear All ¤", 74, 152 130 40 12, tab 3  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  tab "Timing", 79, 5 2 170 130  box "MassJoin Timer/Isnum Tune", 80, 13 20 184 62, tab 79  box "Flood Timer/Isnum Tune", 81, 13 85 184 62, tab 79  text "Default setting isnum is 467-487 and larger than &gt; 497. Isnum: Setting must be in different between 20 - 22 lines. i.e:min-100-120, max-100-122. Larger than that may cause you excessing. Delay: Setting must be in different of 10 lines after direct isnum last line. i.e if direct isnum 100-120 you may set your starting delay line: 130. Try default setting.", 82, 15 28 180 33, enable tab 79  button "Use Default Setting", 83, 15 66 55 10, tab 79  box "", 84, 73 60 121 20, tab 79  text "Isnum:", 85, 75 67 17 10, tab 79  edit "", 86, 93 66 28 10, center autohs tab 79  text "&gt;", 87, 123 67 4 10, tab 79  edit "", 88, 130 66 15 10, center autohs tab 79  button "Use My Own", 89, 150 66 40 10, disable tab 79  text "Same as MassJoin. Default setting isnum is 367-387 and larger than &gt; 397. Isnum: Setting must be in different between 20 - 22 lines. i.e:min-100-120, max-100-122. Larger than that may cause you excessing. Delay: Setting must be in different of 10 lines after direct isnum last line. i.e if direct isnum 100-120 you may set your starting delay line: 130. Try default setting.", 90, 15 93 180 33, enable tab 79  button "Use Default Setting", 91, 15 131 55 10, tab 79  box "", 92, 73 125 121 20, tab 79  text "Isnum:", 93, 75 132 17 10, tab 79  edit "", 94, 93 131 28 10, center autohs tab 79  text "&gt;", 95, 123 132 4 10, tab 79  edit "", 96, 130 131 15 10, center autohs tab 79  button "Use My Own", 97, 150 131 40 10, disable tab 79  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  tab "Logo", 100, 5 2 170 130  box "MassJoin Logo Setting", 98, 13 20 184 62, tab 100  box "Flood Logo Setting", 99, 13 85 184 62, tab 100  box "", 101, 30 50 150 1, tab 100  box "", 102, 30 115 150 1, tab 100  text "`` Dûä£ Mødè Mässjøíñ :: «®¤Šþì®á£Kïnè†íçŠ™¤®»", 103, 15 29 180 10, center tab 100  button "Use Default Logo", 104, 32 37 60 10, tab 100  button "View/Echo", 105, 118 37 60 10, tab 100  edit "", 106, 16 55 178 10, autohs tab 100  button "View/Echo", 107, 20 68 50 10, tab 100  button "Use My Own", 108, 80 68 50 10, tab 100  button "Clear", 109, 140 68 50 10, tab 100  text "`` Dûä£ Mødè F£øød :: «®¤Šþì®á£Kïnè†íçŠ™¤®»", 110, 15 94 180 10, center tab 100  button "Use Default Logo", 111, 23 102 60 10, tab 100  button "View/Echo", 112, 127 102 60 10, tab 100  edit "", 113, 16 120 178 10, autohs tab 100  button "View/Echo", 114, 20 133 50 10, tab 100  button "Use My Own", 115, 80 133 50 10, tab 100  button "Clear", 116, 140 133 50 10, tab 100  ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  tab "Halting", 200, 5 2 170 130  box "MassJoin Channel", 117, 13 20 90 127, tab 200  check " MODE OP : ", 118, 62 30 37 10, left tab 200  check " MODE DEOP : ", 119, 49 45 43 10, left tab 200  check " JOIN : ", 120, 73 60 26 10, left tab 200  check " PART : ", 121, 65 75 27 10, left tab 200  check " BAN : ", 122, 75 90 24 10, left tab 200  check " UNBAN : ", 123, 61 105 31 10, left tab 200  check " KICK : ", 124, 74 120 25 10, left tab 200  text "To halt, set channel at MassJoin Tab. ie. #BIRC", 133, 16 130 80 20, center tab 200  box "Flood Channel", 125, 107 20 90 127, tab 200  check " : MODE OP ", 126, 116 30 83 10, tab 200  check " : MODE DEOP ", 127, 110 45 83 10, tab 200  check " : JOIN ", 128, 116 60 83 10, tab 200  check " : PART ", 129, 110 75 83 10, tab 200  check " : BAN ", 130, 116 90 83 10, tab 200  check " : UNBAN ", 131, 110 105 83 10, tab 200  check " : KICK ", 132, 116 120 83 10, tab 200  text "To halt, set channel at Flood Tab. ie. #FLOOD", 134, 110 130 80 20, center tab 200  ;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]  text "«®¤b£áçkŠKŠè®ìès¤®» :: «®¤Šþì®á£Kïnè†íçŠ™¤®»", 75, 8 162 135 10, disable  button "«®¤ CLOSE ¤®»", 76, 150 159 55 14, ok};[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]on 1:dialog:dualmode:*:*:{  if ($devent == edit) {	if ($did == 30) { did -e $dname 33 }	if ($did == 37) || ($did == 38) { did -e $dname 40 }	if ($did == 42) { did -e $dname 43 }	if ($did == 56) { did -e $dname 59 }	if ($did == 63) || ($did == 64) { did -e $dname 66 }	if ($did == 68) { did -e $dname 69 }	if ($did == 86) || ($did == 88) { did -e $dname 89 }	if ($did == 94) || ($did == 96) { did -e $dname 97 }  }  if ($devent == init) {	if ($group(#mjdialog) == on) { did -c $dname 25 }	if ($group(#mjdialog) == off) { did -c $dname 27 }	if ($group(#flooddialog) == on) { did -c $dname 51 }	if ($group(#flooddialog) == off) { did -c $dname 53 }	if (%MJsocknick) || (%MJpasssock) || (%MJserver) || (%MJport) || (%MJchan) || (%MJisnum) || (%MJafter) || (%MJlogo) {	  did -a $dname 30 %MJsocknick	  did -a $dname 32 %MJpassnick	  did -a $dname 37 %MJserver	  did -a $dname 38 %MJport	  did -a $dname 42 %MJchan	  did -a $dname 86 %MJisnum	  did -a $dname 88 %MJafter	  did -a $dname 106 %MJlogo	}	if (%FLsocknick) || (%FLpasssock) || (%FLserver) || (%FLport) || (%FLchan) || (%FLisnum) || (%FLafter) || (%FLlogo) {	  did -a $dname 56 %FLsocknick	  did -a $dname 58 %FLpassnick	  did -a $dname 63 %FLserver	  did -a $dname 64 %FLport	  did -a $dname 68 %FLchan	  did -a $dname 94 %FLisnum	  did -a $dname 96 %FLafter	  did -a $dname 113 %FLlogo	}	if ($group(#mjophalt) == on) { did -c $dname 118 }	if ($group(#mjophalt) == off) { did -u $dname 118 }	if ($group(#mjdeophalt) == on) { did -c $dname 119 }	if ($group(#mjdeophalt) == off) { did -u $dname 119 }	if ($group(#mjjoinhalt) == on) { did -c $dname 120 }	if ($group(#mjjoinhalt) == off) { did -u $dname 120 }	if ($group(#mjparthalt) == on) { did -c $dname 121 }	if ($group(#mjparthalt) == off) { did -u $dname 121 }	if ($group(#mjbanhalt) == on) { did -c $dname 122 }	if ($group(#mjbanhalt) == off) { did -u $dname 122 }	if ($group(#mjunbanhalt) == on) { did -c $dname 123 }	if ($group(#mjunbanhalt) == off) { did -u $dname 123 }	if ($group(#mjkickhalt) == on) { did -c $dname 124 }	if ($group(#mjkickhalt) == off) { did -u $dname 124 }	if ($group(#flophalt) == on) { did -c $dname 126 }	if ($group(#flophalt) == off) { did -u $dname 126 }	if ($group(#fldeophalt) == on) { did -c $dname 127 }	if ($group(#fldeophalt) == off) { did -u $dname 127 }	if ($group(#fljoinhalt) == on) { did -c $dname 128 }	if ($group(#fljoinhalt) == off) { did -u $dname 128 }	if ($group(#flparthalt) == on) { did -c $dname 129 }	if ($group(#flparthalt) == off) { did -u $dname 129 }	if ($group(#flbanhalt) == on) { did -c $dname 130 }	if ($group(#flbanhalt) == off) { did -u $dname 130 }	if ($group(#flunbanhalt) == on) { did -c $dname 131 }	if ($group(#flunbanhalt) == off) { did -u $dname 131 }	if ($group(#flkickhalt) == on) { did -c $dname 132 }	if ($group(#flkickhalt) == off) { did -u $dname 132 }  }  if ($devent == sclick) {	if ($did == 25) {	  if ($did(25).state == 0) { enable #mjdialog }	  if ($did(25).state == 1) { did -c $dname 25 | enable #mjdialog | .auser MJbot bot-bircX-03 }	}	if ($did == 27) {	  if ($did(27).state == 0) { disable #mjdialog }	  if ($did(27).state == 1) { did -c $dname 27 | disable #mjdialog | .flush MJbot }	}	if ($did == 51) {	  if ($did(51).state == 0) { enable #flooddialog }	  if ($did(51).state == 1) { did -c $dname 51 | enable #flooddialog }	}	if ($did == 53) {	  if ($did(53).state == 0) { disable #flooddialog }	  if ($did(53).state == 1) { did -c $dname 53 | disable #flooddialog }	}	if ($did == 33) {	  set %MJsocknick $did(30)	  set %MJpassnick $did(32)	}	if ($did == 40) {	  set %MJserver $did(37)	  set %MJport $did(38)	}	if ($did == 43) { set %MJchan $did(42) }	if ($did == 48) {	  did -r $dname 30,32	  did -r $dname 37,38	  did -r $dname 42	  did -b $dname 33,40,43	  disable #MJdialog	  did -c $dname 27	  did -u $dname 25	  flush MJbot	  unset %MJsocknick %MJpassnick	  unset %MJserver %MJport %MJchan	}	if ($did == 45) { .sockopen MJ_* %MJserver %MJport | .notify %MJsocknick }	if ($did == 46) { .sockwrite -n MJ_* quit | .sockclose MJ_* | .notify %MJsocknick }	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	if ($did == 59) {	  set %FLsocknick $did(56)	  set %FLpassnick $did(58)	}	if ($did == 66) {	  set %FLserver $did(63)	  set %FLport $did(64)	}	if ($did == 69) { set %FLchan $did(68) }	if ($did == 74) {	  did -r $dname 56,58	  did -r $dname 63,64	  did -r $dname 68	  did -b $dname 59,66,69	  disable #flooddialog	  did -c $dname 53	  did -u $dname 51	  unset %FLsocknick %FLpassnick	  unset %FLserver %FLport %FLchan	}	if ($did == 71) { .sockopen FL_* %FLserver %FLport | .notify %FLsocknick }	if ($did == 72) { sockwrite -n FL_* quit | .sockclose FL_* | .notify %FLsocknick }	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	if ($did == 83) {	  set %MJisnum 467-487	  set %MJafter 497	  did -b $dname 83	  did -e $dname 89	}	if ($did == 89) {	  set %MJisnum $did(86)	  set %MJafter $did(88)	  did -b $dname 89	  did -e $dname 83	}	if ($did == 91) {	  set %FLisnum 367-387	  set %FLafter 397	  did -b $dname 91	  did -e $dname 97	}	if ($did == 97) {	  set %FLisnum $did(94)	  set %FLafter $did(96)	  did -b $dname 97	  did -e $dname 91	}	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	if ($did == 104) { did -b $dname 104 | set %MJlogo `` 14D15ûä14£ M15ød14è Mä15ssjø14íñ :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14» }	if ($did == 105) {	  set %MJlogoview `` 14D15ûä14£ M15ød14è Mä15ssjø14íñ :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14»	  echo -at 	  echo -at NickClone was kicked by You ( $+ %MJlogoview $+ )	  echo -at 	  unset %MJlogoview	}	if ($did == 107) {	  set %logoview $did(106)	  echo -at 	  echo -at NickClone was kicked by You ( $+ %logoview $+ )	  echo -at 	  unset %logoview	}	if ($did == 108) { did -b $dname 108 | set %MJlogo $did(106) }	if ($did == 109) { did -r $dname 106 }	if ($did == 111) { set %FLlogo `` 14D15ûä14£ M15ød14è F15£øø14d :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14» }	if ($did == 112) {	  set %FLlogoview `` 14D15ûä14£ M15ød14è F15£øø14d :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14»	  echo -at 	  echo -at NickClone was kicked by You (» Swearing » %FLlogoview $+ )	  echo -at 	  unset %FLlogoview	}	if ($did == 114) {	  set %logoview $did(113)	  echo -at 	  echo -at NickClone was kicked by You (» Swearing » %logoview $+ )	  echo -at 	  unset %logoview	}	if ($did == 115) { did -b $dname 115 | set %FLlogo $did(113) }	if ($did == 116) { did -r $dname 113 }	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]	if ($did == 118) {	  if ($did(118).state == 0) { disable #mjophalt }	  if ($did(118).state == 1) { enable #mjophalt }	}	if ($did == 119) {	  if ($did(119).state == 0) { disable #mjdeophalt }	  if ($did(119).state == 1) { enable #mjdeophalt }	}	if ($did == 120) {	  if ($did(120).state == 0) { disable #mjjoinhalt }	  if ($did(120).state == 1) { enable #mjjoinhalt }	}	if ($did == 121) {	  if ($did(121).state == 0) { disable #mjparthalt }	  if ($did(121).state == 1) { enable #mjparthalt }	}	if ($did == 122) {	  if ($did(122).state == 0) { disable #mjbanhalt }	  if ($did(122).state == 1) { enable #mjbanhalt }	}	if ($did == 123) {	  if ($did(123).state == 0) { disable #mjunbanhalt }	  if ($did(123).state == 1) { enable #mjunbanhalt }	}	if ($did == 124) {	  if ($did(124).state == 0) { disable #mjkickhalt }	  if ($did(124).state == 1) { enable #mjkickhalt }	}	if ($did == 126) {	  if ($did(126).state == 0) { disable #flophalt }	  if ($did(126).state == 1) { enable #flophalt }	}	if ($did == 127) {	  if ($did(127).state == 0) { disable #fldeophalt }	  if ($did(127).state == 1) { enable #fldeophalt }	}	if ($did == 128) {	  if ($did(128).state == 0) { disable #fljoinhalt }	  if ($did(128).state == 1) { enable #fljoinhalt }	}	if ($did == 129) {	  if ($did(129).state == 0) { disable #flparthalt }	  if ($did(129).state == 1) { enable #flparthalt }	}	if ($did == 130) {	  if ($did(130).state == 0) { disable #flbanhalt }	  if ($did(130).state == 1) { enable #flbanhalt }	}	if ($did == 131) {	  if ($did(131).state == 0) { disable #flunbanhalt }	  if ($did(131).state == 1) { enable #flunbanhalt }	}	if ($did == 132) {	  if ($did(132).state == 0) { disable #flkickhalt }	  if ($did(132).state == 1) { enable #flkickhalt }	}  }  if ($devent == dclick) {	if ($did == 22) { /run https://www.facebook.com/spiralkineticsproductions }  }};[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]on *:SOCKCLOSE:MJ_*: { sockclose MJ_* | timersock 1 2 .sockopen MJ_* %MJserver %MJport }on *:SOCKOPEN:MJ_*: {  if ($sockerr != 0) { halt }  if ($sockerr &gt; 0) return  sockwrite -nt MJ_* connect $+ %MJserver $+ : $+ %MJport $+ / HTTP/1.0 $+ $crlf $+ $crlf  sockwrite -n MJ_* pong $gettok( $+ %MJserver $+ : $+ %MJport $+ ,1,58)  sockwrite -n MJ_* USER Dual.Mode * * : sock` «®¤Šþì®á£Kïnè†íçŠ™¤®»  sockwrite -nt MJ_* nick %MJsocknick  sockwrite -nt MJ_* nickserv identify %MJpassnick  sockwrite -nt MJ_* join %MJchan  sockwrite -nt MJ_* privmsg %MJchan !protect %MJsocknick  sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456  sockwrite -nt MJ_* PING $ticks}on *:SOCKREAD:MJ_*: {  sockread %tempMJ  if ($mid(%tempMJ,1,4) == PING) { sockwrite -nt MJ_* PONG $remove($remove(%tempMJ,ping :),ping) | halt }  if ($gettok(%tempMJ,2,32) == 386) { .sockwrite -nt MJ_* join %MJchan }};[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]on *:SOCKCLOSE:FL_*: { sockclose FL_* | timersock 1 2 .sockopen FL_* %FLserver %FLport }on *:SOCKOPEN:FL_*: {  if ($sockerr != 0) { halt }  if ($sockerr &gt; 0) return  sockwrite -nt FL_* connect $+ %FLserver $+ : $+ %FLport $+ / HTTP/1.0 $+ $crlf $+ $crlf  sockwrite -n FL_* pong $gettok( $+ %FLserver $+ : $+ %FLport $+ ,1,58)  sockwrite -n FL_* USER Dual.Mode * * : sock` «®¤Šþì®á£Kïnè†íçŠ™¤®»  sockwrite -nt FL_* nick %FLsocknick  sockwrite -nt FL_* nickserv identify %FLpassnick  sockwrite -nt FL_* join %FLchan  sockwrite -nt FL_* privmsg birc op %FLchan 123456  sockwrite -nt FL_* PING $ticks}on *:SOCKREAD:FL_*: {  sockread %tempFL  if ($mid(%tempFL,1,4) == PING) { sockwrite -nt FL_* PONG $remove($remove(%tempFL,ping :),ping) | halt }  if ($gettok(%tempFL,2,32) == 386) { .sockwrite -nt FL_* join %FLchan }};[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]#mjophalt onon ^*:op:%MJchan: halt#mjophalt end#mjdeophalt onon ^*:deop:%MJchan: halt#mjdeophalt end#mjjoinhalt onon ^*:join:%MJchan: halt#mjjoinhalt end#mjparthalt onon ^*:part:%MJchan: halt#mjparthalt end#mjbanhalt onon ^*:ban:%MJchan: halt#mjbanhalt end#mjunbanhalt onon ^*:unban:%MJchan: halt#mjunbanhalt end#mjkickhalt onon ^*:kick:%MJchan: halt#mjkickhalt end#flophalt onon ^1:op:%FLchan:$iif($nick != $me,haltdef)#flophalt end#fldeophalt onon ^*:deop:%FLchan: halt#fldeophalt end#fljoinhalt onon ^*:join:%FLchan: halt#fljoinhalt end#flparthalt onon ^*:part:%FLchan: halt#flparthalt end#flbanhalt onon ^*:ban:%FLchan: halt#flbanhalt end#flunbanhalt onon ^*:unban:%FLchan: halt#flunbanhalt end#flkickhalt onon ^1:kick:%FLchan:$iif($nick != $me,haltdef)#flkickhalt end;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]#mjdialog offON *:JOIN:%MJchan: {  .updatenl  if ($nick == %MJsocknick) || ($nick !isreg $chan) || ($nick isop $chan) || ($nick isin %protect) { halt }  .MJspiral}alias -l MJSpiral {  .inc -u5 %MJclone.join  .set %MJnick $nick | .set %MJchan $chan | .write cloneMJ.txt %MJnick  if (%MJclone.join isnum %MJisnum) { .sockwrite -nt MJ_* kick %MJchan %MJnick 9Direct %MJlogo | .return }  if (%MJclone.join &gt; %MJafter) { .timerGoTo 1 2 MJKinetics }  .halt  .return}alias -l MJKinetics {  .set %MJnick $read(cloneMJ.txt)  if (%MJnick != $null) {	if (%MJnick ison %MJchan) { sockwrite -nt MJ_* kick %MJchan %MJnick 8Delay %MJlogo }	.timerloopst 1 1 MJKinetics  }  if (%MJnick !ison %MJchan) {	.write -ds %MJnick cloneMJ.txt	.timerloopnd 1 0 MJKinetics  }}ON ^1:OP:%MJchan: {  if ($opnick == %MJsocknick) { .timerloopth 1 0 MJKinetics }  else { return }}on ^!*:kick:%MJchan: {  if ($knick == %MJsocknick) {	//sockwrite -nt MJ_* join %MJchan	//sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456  }}on +MJbot:text:*:%MJchan: {  if (Jumlah klon yang telah ditendang keluar pada pusingan kali ini ialah isin $strip($1-)) { .write -c cloneMJ.txt }}ON *:TEXT:*:%MJchan:{ if (!Protect == $1) &amp;&amp; ($2) { .set %protect $addtok(%protect,$2,300) | echo -at ***4,0 #BIRC  Add $2 in Protect list.  } }ON !*:DEOP:%MJchan: { if ($opnick == %MJsocknick) &amp;&amp; (!%deopMJ) { write -c cloneMJ.txt | timerDeopSock 1 5 sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456  | set -u2 %deopMJ 1 } }#mjdialog end;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]#flooddialog offon ^!*:text:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }on ^!*:notice:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }on ^!*:action:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }ctcp *:*:%FLchan: { if ((%FLsocknick isop #) &amp;&amp; ($nick isreg #)) { $FLSpiral(pinG) } }on *:ctcpreply:*: { if ((%FLsocknick isop #) &amp;&amp; ($nick isreg #)) { $FLSpiral(pinG) } }alias -l SK.engine {  if ($nick !isreg $chan) || ($nick == %FLsocknick) { goto end }  if ($regex($1-,/[[:cntrl:]]/g) &gt;= 50) { .FLSpiral cOrL | halt }  if ($regex($1-,/[[:upper:]]/g) &gt;= 50) { .FLSpiral sHit  | halt }  if ($regex($strip($1-),/[[:digit:]]/g) &gt;= 50) { .FLSpiral diGi  | halt }  if ($regex($strip($1-),/[[:punct:]]/g) &gt;= 50) { .FLSpiral sMbL | halt }  if ($regex($strip($1-),/[ $chr(160) ]/g) &gt;= 50) { .FLSpiral bLnK | halt }  if ($regex($1-,/[ $chr(174) ]/g) &gt;= 50) { .FLSpiral aSCi | halt }  if ($regex($strip($1-),/[[:lower:]]/g) &gt;= 200) { .FLSpiral lOnG | halt }  if ($regex($remove($1-,$chr(40),$chr(41)),/(http|tp:|#)/g)) { .FLSpiral sPaM | halt }  if ($regex($strip($1-),/(shit|babi|dick|puki|fuck)/g)) { .FLSpiral sWeR | halt }  .hinc -u15m repeat [ $+ [ $chan ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(repeat [ $+ [ $chan ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) &gt; 2) { .FLSpiral rEpT }  .hinc -u15m special [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(special [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) &gt;= 4) { .FLSpiral sCPc }  .hinc -u10m newline [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newline [ $+ [ # ] ],$address($nick,3)) &gt;= 5) { .FLSpiral rOW }  else { return }}alias -l FLSpiral {  .inc -mu9m %FLclone.join | .set %FLnick $nick | .write cloneFL.txt %FLnick | .set %reason $1-  if (%FLclone.join isnum %FLisnum) { .sockwrite -nt FL_* kick %FLchan %FLnick » %reason » 9Direct %FLlogo | .return }  if (%FLclone.join &gt; %FLafter) { .timerGoTost 1 2 FLKinetics }  .halt  .return}alias -l FLKinetics {  .set %FLnick $read(cloneFL.txt)  if (%FLnick != $null) {	if (%FLnick ison %FLchan) { sockwrite -nt FL_* kick %FLchan %FLnick » %reason » 8Delay %FLlogo }	.timerloop1st 1 1 FLKinetics  }  if (%FLnick !ison %FLchan) {	.write -ds %FLnick cloneFL.txt	.timerloop2nd 1 0 FLKinetics  }}ON ^1:OP:%FLchan: {  if ($opnick == %FLsocknick) { .timerloop3th 1 0 FLKinetics }  else { return }}ON ^1:KICK:%FLchan:{  if ($nick == %FLsocknick) { $SpiralkineticsBan($knick,%FLchan) }}  alias -l SpiralkineticsBan {  .hadd -u3m sk $1 $+ !*@*Dual.Mode*  .timerfA -os 1 26 clear %FLchan  .timerfB -os 1 29 sockwrite -nt FL_* mode $2 $+(+,$str(b,1)) $hget(sk,1).item  .timerfC -os 1 30 write -c cloneFL.txt  .halt}ON !*:DEOP:%MJchan: { if ($opnick == %FLsocknick) &amp;&amp; (!%deopFL) { write -c cloneFL.txt | timerDeopSock 1 5 sockwrite -nt FL_* privmsg birc op %FLchan 123456  | set -u2 %deopFL 1 } }#flooddialog end;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]</pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">2074</guid><pubDate>Tue, 21 Feb 2012 06:52:18 +0000</pubDate></item><item><title>Proxycheck check. (Check trough 12 BL zones!)</title><link>https://www.coders-resources.net/ipb/forums/topic/1702-proxycheck-check-check-trough-12-bl-zones/</link><description><![CDATA[
<blockquote data-ipsquote="" class="ipsQuote" data-ipsquote-contentapp="forums" data-ipsquote-contenttype="forums" data-ipsquote-contentid="1702" data-ipsquote-contentclass="forums_Topic"><div>With this script you can check which ip is in the blacklists and which not.<p> </p>
<p>What do the colors mean?</p>
<p>Green = Clear</p>
<p>Red = Found</p>
<p> </p>
<p>How do it works?</p>
<p>/Proxycheck <ip> </ip></p>
<p>/Proxycheck localhost To check your own ip</p>
<p> </p>
<p>Example</p>
<p> </p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.dronebl.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.proxybl.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone tor.dnsbl.sectoor</p>
<p>* The IP 127.0.0.1 has not been found in BL zone tor.dan.me.uk</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.njabl.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone rbl.efnet.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone virbl.dnsbl.bit.nl</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.ahbl.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone rbl.faynticrbl.org</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.ipocalypse.net</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.rizon.net</p>
<p>* The IP 127.0.0.1 has not been found in BL zone dnsbl.swiftbl.org</p>
<p> </p>
<p> </p>
<p>BL zones included in the script</p>
<p>dnsbl.dronebl.org</p>
<p>dnsbl.proxybl.org</p>
<p>tor.dnsbl.sectoor</p>
<p>tor.dan.me.uk</p>
<p>rbl.efnet.org</p>
<p>virbl.dnsbl.bit.nl</p>
<p>dnsbl.ahbl.org</p>
<p>rbl.faynticrbl.org</p>
<p>dnsbl.ipocalypse.net</p>
<p>dnsbl.rizon.net</p>
<p>dnsbl.swiftbl.org</p>
<p></p>
</div></blockquote>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;;- Proxy check;- Written by Aha2Y;- /proxycheck alias proxycheck {   if ($1 == $null) { echo 3* Missing parameters: /proxycheck  or to check your own ip /proxycheck localhost }  else {    if ($1 == localhost) {       echo -a 3* Checking your ip address, Please wait...      set %checkip $ip      /proxycheck.progress      halt    }    else {      echo -a 3* Checking ip address, Please wait...      set %checkip $1      /proxycheck.progress    }  }}alias -l proxycheck.progress {  .timer 1 1 dronebl   .timer 1 3 proxybl   .timer 1 4 tor.dnsbl.sectoor  .timer 1 5 tor.dan.me.uk  .timer 1 6 dnsbl.njabl.org  .timer 1 7 rbl.efnet.org  .timer 1 8 virbl.dnsbl.bit.nl  .timer 1 9 dnsbl.ahbl.org  .timer 1 10 rbl.faynticrbl.org  .timer 1 11 dnsbl.ipocalypse.net  .timer 1 12 dnsbl.rizon.net  .timer 1 13 dnsbl.swiftbl.org}alias -l dronebl {  set %dbl dnsbl.dronebl.org  dns $revip(%checkip) $+ .dnsbl.dronebl.org}alias -l proxybl {  set %dbl dnsbl.proxybl.org  dns $revip(%checkip) $+ .dnsbl.proxybl.org}alias -l tor.dnsbl.sectoor {  set %dbl tor.dnsbl.sectoor  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de}alias -l tor.dan.me.uk {  set %dbl tor.dan.me.uk  dns $revip(%checkip) $+ .tor.dan.me.uk}alias -l dnsbl.njabl.org {  set %dbl dnsbl.njabl.org  dns $revip(%checkip) $+ .dnsbl.njabl.org}alias -l rbl.efnet.org {  set %dbl rbl.efnet.org  dns $revip(%checkip) $+ .rbl.efnet.org}alias -l virbl.dnsbl.bit.nl {  set %dbl virbl.dnsbl.bit.nl  dns $revip(%checkip) $+ .virbl.dnsbl.bit.nl}alias -l dnsbl.ahbl.org {  set %dbl dnsbl.ahbl.org  dns $revip(%checkip) $+ .dnsbl.ahbl.org}alias -l rbl.faynticrbl.org {  set %dbl rbl.faynticrbl.org  dns $revip(%checkip) $+ .rbl.faynticrbl.org}alias -l rbl.faynticrbl.org {  set %dbl rbl.faynticrbl.org  dns $revip(%checkip) $+ .rbl.faynticrbl.org}alias -l dnsbl.ipocalypse.net {  set %dbl dnsbl.ipocalypse.net  dns $revip(%checkip) $+ .dnsbl.ipocalypse.net}alias -l dnsbl.rizon.net {  set %dbl dnsbl.rizon.net  dns $revip(%checkip) $+ .dnsbl.rizon.net}alias -l dnsbl.swiftbl.org {  set %dbl dnsbl.swiftbl.org  dns $revip(%checkip) $+ .dnsbl.swiftbl.org}on *:DNS:{   if (%dbl == dnsbl.dronebl.org) {     if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }  }  if (%dbl == dnsbl.proxybl.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == tor.dnsbl.sectoor) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == tor.dan.me.uk) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == dnsbl.njabl.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == rbl.efnet.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == virbl.dnsbl.bit.nl) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == dnsbl.ahbl.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == rbl.faynticrbl.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == dnsbl.ipocalypse.net) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == dnsbl.rizon.net) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  if (%dbl == dnsbl.swiftbl.org) {       if ($iaddress != $null) {     echo  -a 4* The IP %checkip has been found in BL zone %dbl }    else {     echo  -a 3* The IP %checkip has not been found in BL zone %dbl }   }  unset %dbl};-RevIP script by Patje from SwiftIRC.alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }</pre>
<div></div>
<p></p>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;alias ProxyCheck {   if ($1 == $null) {     echo 4* Missing parameters: /proxycheck  or to check your own ip /proxycheck localhost   }  elseif ($1 == localhost) {     echo -a 3* Checking your ip address, Please wait...    proxycheck:process $ProxyCheck:RevIP($ip)  }  elseif ($longIP($1)) {    echo -a 3* Checking ip address, Please wait...    proxycheck:Process $ProxyCheck:RevIP($1)  }}alias -l ProxyCheck:Revip {  tokenize 46 $1   return $+($4, ., $3, ., $2, ., $1)}alias -l ProxyCheck:BL {  return $&amp;    .dronebl $&amp;    .proxybl $&amp;    .tor.dnsbl.sectoor $&amp;    .tor.dan.me.uk $&amp;    .dnsbl.njabl.org $&amp;    .rbl.efnet.org $&amp;    .virbl.dnsbl.bit.nl $&amp;    .dnsbl.ahbl.org $&amp;    .rbl.faynticrbl.org $&amp;    .dnsbl.ipocalypse.net $&amp;    .dnsbl.rizon.net $&amp;    .dnsbl.swiftbl.org}alias -l ProxyCheck:Process {  var %ip = $1  var %x = 1  tokenize 32 $ProxyCheck:BL  set -e $+(%,ProxyCheck:,%ip) $0  while ($(,$ $+ %x)) {    .dns %ip $+ $v1    inc %x  }}on *:DNS:{  var %ip = $gettok($address,1-4,46)  var %zone = $gettok($address,5-,46)    if (%zone &amp;&amp; $($+(%,ProxyCheck:,%ip),2)) {    $iif($v1 == 1,unset,dec) $+(%,ProxyCheck:,%ip)    echo $iif($iaddress,3,4) -a * The IP $ProxyCheck:RevIP(%ip) has $iif(!$iaddress,not) been found in BL zone %zone    halt  }}</pre>
<div></div>
<p></p>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;################## Original credits goes to: Aha2Y# This version is modified with 4 bl checks only (its plenty)# This version is made to be used on a bot # When loaded, type this in the channels where you want to use the tool# --&gt; .chanset #Chan +dronebl# Then use:  !bl ip.ip.ip.ip# New Credits: Sebastien @ Undernet (seblemery@facebook.com)#################alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }on *:text:.chanset *:#:{  if ($nick !isop $chan) { msg # you need @ to use .chanset | halt }  if (!$3) { msg # [4Error] type .chanset   | halt }  if ($chan == $2) &amp;&amp; ($3 == +dronebl) { set %blchans $addtok(%blchans,$2,44) | msg # Performed +dronebl on # | halt }  if ($chan == $2) &amp;&amp; ($3 == -dronebl) { set %blchans $remtok(%blchans,$2,1,44) | msg # Performed -dronebl on # | halt } }on *:text:!bl *:%blchans:{  if (!$2) { msg # its !bl  | halt }  if ($nick isreg $chan) { halt }  msg # Looking up, one moment..  set %hit::1 3Clear | set %hit::2 3Clear | set %hit::3 3Clear | set %hit::4 3Clear  set %bl.chan #   proxycheck $2}alias proxycheck {   if ($1 == $null) { echo $color(notice) * Missing parameters: /proxycheck  or to check your own ip /proxycheck localhost }  else {    if ($1 == localhost) { set %dnscheckproxy 1 | set %checkip $ip | proxycheck.progress | halt }    else { set %dnscheckproxy 1 | set %checkip $1 | proxycheck.progress }  }}alias -l proxycheck.progress {  .timer 1 1 dronebl | .timer 1 2 proxybl   .timer 1 4 rbl.efnet.org | .timer 1 5 dnsbl.swiftbl.org  .timer 1 6 saybl}alias -l dronebl { set %dbl dnsbl.dronebl.org | dns $revip(%checkip) $+ .dnsbl.dronebl.org }alias -l proxybl { set %dbl dnsbl.proxybl.org | dns $revip(%checkip) $+ .dnsbl.proxybl.org }alias -l rbl.efnet.org { set %dbl rbl.efnet.org | dns $revip(%checkip) $+ .rbl.efnet.org }alias -l dnsbl.swiftbl.org { set %dbl dnsbl.swiftbl.org | dns $revip(%checkip) $+ .dnsbl.swiftbl.org }alias -l saybl {  msg %bl.chan DroneBl Result $+([dronebl.org: %hit::1, ]) $+([proxybl.org: %hit::2, ]) $+([rbl.efnet.org: %hit::3, ]) $+([dnsbl.swiftbl.org: %hit::4, ])}on *:DNS:{  if (%dnscheckproxy == 1) {     if (%dbl == dnsbl.dronebl.org) { if ($iaddress != $null) { set %hit::1 4Found }        else { set %hit::1 3Clear }     }    if (%dbl == dnsbl.proxybl.org) { if ($iaddress != $null) { set %hit::2 4Found }        else { set %hit::2 3Clear }    }    if (%dbl == rbl.efnet.org) { if ($iaddress != $null) { set %hit::3 4Found }      else { set %hit::3 3Clear }    }    if (%dbl == dnsbl.swiftbl.org) { if ($iaddress != $null) { set %hit::4 4Found }      else { set %hit::4 3Clear }     }      unset %dbl | unset %dnsproxycheck   }}</pre>
<div></div>
<p></p>
<p> </p>
<p><span style="color:#BF0000">Placed 3 versions here!!  :tp </span></p>
]]></description><guid isPermaLink="false">1702</guid><pubDate>Thu, 20 Oct 2011 21:50:48 +0000</pubDate></item><item><title>Channel Manager v1.0</title><link>https://www.coders-resources.net/ipb/forums/topic/1641-channel-manager-v10/</link><description><![CDATA[
<p><strong><span><span style="color:#BF0000">Channel Manager v1.0</span></span></strong></p>
<p> </p>
<blockquote data-ipsquote="" class="ipsQuote" data-ipsquote-contentapp="forums" data-ipsquote-contenttype="forums" data-ipsquote-contentid="1641" data-ipsquote-contentclass="forums_Topic"><div>
<span style="color:#008000">Channel Manager for mIRC.</span><p><span style="color:#008000">v1.0 can:</span></p>
<p><span style="color:#008000">~View bans</span></p>
<p><span style="color:#008000">~ - If halfop/op ~ Remove bans, one at a time, or all at once</span></p>
<p><span style="color:#008000">~View modes</span></p>
<p><span style="color:#008000">~ - If halfop/op ~ Set/remove modes</span></p>
<p><span style="color:#008000"> </span></p>
<p><span style="color:#008000"> </span></p>
<p><span style="color:#008000">Watch a video of it's current functions:</span></p>
<p><span style="color:#008000">8-waAKFBqaI </span></p>
<p><span style="color:#008000"> </span></p>
<p><span style="color:#008000">Paste in remotes and open by using alias /chanman or right clicking in a status/channel/query window</span></p>
</div></blockquote>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;;Channel Manager v1.0 ;by: alabama @ hackforums.net;;;;;;;;;;;;;;;;;;;;;;;;;;;;; alias chanman { dialog -m chanman chanman } ;/chanman will open the dialog 'chanman' Menu channel,nicklist,query {Channel Manager:/dialog -m chanman chanman } ;right clicking a channel, nickname, or in a query window, you will be giving the option to click "channel manager" which will open the dialog.  dialog chanman {  title "Channel Manager"  size -1 -1 226 160  option dbu  tab "Bans", 1, 0 -2 225 156  list 2, 3 20 52 50, tab 1 size  list 3, 55 20 169 50, tab 1 size  text "Ban mask  ~  Set Date  ~  Set by", 4, 90 12 96 8, tab 1  edit "", 5, 55 70 50 10, tab 1 read  button "Remove selected", 55, 110 71 48 12, disable tab 1  button "Remove all", 56, 181 71 43 12, disable tab 1  tab "Modes", 6  check "Block colour codes", 8, 11 46 52 10, tab 6  box "Positive Modes [+]", 9, 7 32 108 119, tab 6  check "Amsg ban", 10, 11 56 35 10, tab 6  check "No CTCPs", 11, 11 66 37 10, tab 6  check "No actions", 12, 11 77 37 10, tab 6  check "No knocks", 13, 11 86 37 10, tab 6  check "Moderated", 14, 11 95 38 10, tab 6  check "No nick changes", 15, 11 104 50 10, tab 6  check "Private channel", 16, 64 40 50 10, tab 6  check "No kicks allowed", 17, 64 50 50 10, tab 6  check "Registered only", 18, 64 61 50 10, tab 6  check "Secret channel", 19, 64 71 50 10, tab 6  check "Strip color codes", 20, 64 80 50 10, tab 6  check "No NOTICEs", 21, 64 89 50 10, tab 6  check "No /invite", 22, 64 97 50 10, tab 6  check "Only SSL clients", 23, 64 105 50 10, tab 6  check "No outside msgs", 24, 11 114 50 10, tab 6  check "Invite only", 25, 64 114 50 10, tab 6  edit "", 26, 41 124 71 10, tab 6 read  combo 27, 12 135 60 50, tab 6 size drop  button "Set", 28, 74 135 37 12, tab 6  button "Reset", 29, 12 124 29 10, tab 6  box "Negative Modes [-]", 30, 117 32 108 119, tab 6  combo 50, 120 135 60 50, tab 6 size drop  button "Set", 51, 182 135 37 12, tab 6  edit "", 48, 149 124 71 10, tab 6 read  button "Reset", 49, 120 124 29 10, tab 6  check "No outside msgs", 39, 119 113 50 10, tab 6  check "No nick changes", 41, 119 103 50 10, tab 6  check "Moderated", 42, 119 94 38 10, tab 6  check "No knocks", 43, 119 85 37 10, tab 6  check "No actions", 44, 119 76 37 10, tab 6  check "No CTCPs", 45, 119 66 37 10, tab 6  check "Amsg ban", 46, 119 55 35 10, tab 6  check "Block colour codes", 47, 119 45 52 10, tab 6  check "Private channel", 33, 172 39 50 10, tab 6  check "Registered only", 31, 172 60 50 10, tab 6  check "No kicks allowed", 32, 172 49 50 10, tab 6  check "Strip color codes", 35, 172 79 50 10, tab 6  check "Only SSL clients", 38, 172 104 50 10, tab 6  check "Invite only", 40, 172 113 50 10, tab 6  check "No /invite", 37, 172 96 50 10, tab 6  check "No NOTICEs", 36, 172 88 50 10, tab 6  check "Secret channel", 34, 172 70 50 10, tab 6  text "Current modes for ", 54, 117 14 90 8, tab 6  edit "", 52, 116 22 106 10, tab 6 read  button "x", 53, 208 12 17 10, disable tab 6  combo 7, 7 15 107 61, tab 6 size drop} ;The above code is for the UI. There are 3 different styles of dialogs for mIRC. (notheme, dbu, pixels);A label's code would look similar to this: text "text", id, x y w h[, style] (style options-right, center, nowrap).;An edit box's code would look like: edit "text", id, x y w h[, style](style options-right, center, multi, pass, read only, return, hsbar, vsbar, autohs,autovs).;A button's code follows this format: button "text", id, x y w h[, style](style options-default, ok, cancel, flat, multi);A checkboxes code would look like this: check "text", id, x y w h[, style](style options-left, push, 3state);A combobox would follow this: combo id, x y w h[, style](style options-sort, edit, drop, size, vsbar, hsbar);Those are the main ones used, there are a few other controls available for dialogs. A full list below:;Menu, Tab, Link, Icon, List, Combo, Scroll, Box, Radio, Check, Button, Edit, Text    on *:dialog:chanman:init:0:{ didtok $dname 2 32 $regsubex($str(-,$chan(0)),/(.)/g,$+($chan(\n),$chr(32)))   didtok $dname 7 32 $regsubex($str(-,$chan(0)),/(.)/g,$+($chan(\n),$chr(32)))   //var %temp $chan(0) | while (%temp) { if ($nick($chan(%temp),$me,oh)) did -a $dname 27 $chan(%temp) | dec %temp }  //var %temp $chan(0) | while (%temp) { if ($nick($chan(%temp),$me,oh)) did -a $dname 50 $chan(%temp) | dec %temp }  did -c $dname 27 1 | did -c $dname 50 1  if ($ssl == $false) { did -b $dname 23 | did -b $dname 38 }   else { did -e $dname 23 | did -e $dname 38 }}  ;The above code does certain commands upon loading the dialog. Let's start with the first line. ;didtok $dname 2 32 $regsubex($str(-,$chan(0)),/(.)/g,$+($chan(\n),$chr(32))) - This will load every channel into $did(2) (list) the user using the script is in. ;The second line is similar, but it loads into a combobox($did(7); //var %temp $chan(0) | while (%temp) { if ($nick($chan(%temp),$me,oh)) did -a $dname 27 $chan(%temp) | dec %temp };^The above^ will add all of the channels you're @oped or %halfoped in, in a combobox. The next line does the same thing for a different combo.;Combobox 27 and 50 are these: http://gyazo.com/deb804b24cd4d90cb398a434f515a7be;The reason for it only displaying channels you're opped/hopped in is because if you have lesser access, then you won't be able to set modes anyway.;did -c $dname 27 1 (and) 50 1 - will automatically select the first channel in the comboboxes 27 and 50; if ($ssl == $false) { did -b $dname 23 | did -b $dname 38 } --- Explanation below; id 23 and 38 are http://gyazo.com/369a69f5498a3869a10a8e03a7dd586f; if you are not connecting via SSL, those checkboxes will be disabled. /did -b == disable; else { did -e $dname 23 | did -e $dname 38 }; If you are connecting via SSL, it will enable those two checkboxes.      on *:dialog:chanman:sclick:*:{  var %a did -a $dname  var %b did -b $dname  var %e did -e $dname  var %r did -r $dname  var %u did -u $dname ;on *:dialog:chanman:sclick:*:{  ==  Whenever the mouse left button is pushed down;sets variables for easier use. instead of typing did -u $dname (id) everyline, you would only have to type %u (id)   if ($did == 2) &amp;&amp; ($chr(35) isin $did(2).seltext) { banstart | var %r did -r $dname | var %e did -e $dname | %r 3 | banlist | totalbans | %e 55 | %e 56 };did 2 refers to the listbox http://gyazo.com/37d64e94b8db81274181a1bd99101cf9;whenever a channel in the list is clicked, it will execute the aliases: banstart, banlist, and totalbans. As well, it will enable button's 55 and 56. ;It will clear listbox 3 before executing banlist and totalbans. The result will look like: http://gyazo.com/0a3769a9889ac6fe09820d441d1f568d;Variables %r, %e, are set for easier use. if ($did == 8) { %a 26 c | %b 8 };did == 8 refers to one of the checkboxes on tab 2. It will write (did -a $dname 26) the letter "c" into the edit box 26. The text on the checkboxcorresponds to the mode "c". It will then disable (did -b $dname 8) that checkbox. ;I'm not going to comment on some of the lines below as they are basically the same thing but for different modes.    if ($did == 10) { %a 26 B | %b 10 }  if ($did == 11) { %a 26 C | %b 11 }  if ($did == 12) { %a 26 E | %b 12 }  if ($did == 13) { %a 26 K | %b 13 }  if ($did == 14) { %a 26 M | %a 26 m | %b 14 }  if ($did == 15) { %a 26 N | %b 15 }  if ($did == 16) { %a 26 p | %b 16 }  if ($did == 17) { %a 26 Q | %b 17 }  if ($did == 18) { %a 26 R | %b 18 }  if ($did == 19) { %a 26 s | %b 19 }  if ($did == 20) { %a 26 S | %b 20 }  if ($did == 21) { %a 26 T | %b 21 }  if ($did == 22) { %a 26 V | %b 22 }  if ($did == 23) { %a 26 z | %b 23 }  if ($did == 24) { %a 26 n | %b 24 }  if ($did == 25) { %a 26 i | %b 25 }  if ($did == 28) { .mode $did(27).seltext + $+ $did(26).text };did == 28 refers to a button. The button is titled "Set." It will set apply all of the [+] modes in editbox 26 to the selected channel in the combobox 27.   if ($did == 29) { %e 8-22 | %e 24-25 | %r 26 | %u 8-25 };did == 29 refers to the button with the text "Reset". /did -e = enables a control. It will enable all of the above codes. ;Notice- We skip 23 because that is the 'SSL only' mode.    if ($did == 47) { %a 48 c | %b 47 }  if ($did == 46) { %a 48 B | %b 46 }  if ($did == 45) { %a 48 C | %b 45 }  if ($did == 44) { %a 48 E | %b 44 }  if ($did == 43) { %a 48 K | %b 43 }  if ($did == 42) { %a 48 M | %a 48 m | %b 42 }  if ($did == 41) { %a 48 N | %b 41 }  if ($did == 40) { %a 48 i | %b 40 }  if ($did == 39) { %a 48 n | %b 39 }  if ($did == 38) { %a 48 z | %b 38 }  if ($did == 37) { %a 48 V | %b 37 }  if ($did == 36) { %a 48 T | %b 36 }  if ($did == 35) { %a 48 S | %b 35 }  if ($did == 34) { %a 48 s | %b 34 }  if ($did == 33) { %a 48 p | %b 33 }  if ($did == 32) { %a 48 Q | %b 32 }  if ($did == 31) { %a 48 R | %b 31 }  if ($did == 51) { .mode $did(50).seltext - $+ $did(48).text };did == 51 refers to a button. The button is titled "Set." It will set apply all of the [-] modes in editbox 48 to the selected channel in the combobox 50.   if ($did == 53) { .mode $did(7).seltext - $+ $did(52).text | %r 52 | chanmodes };did == 53 refers to the button titled 'x' -- http://gyazo.com/0c0ac0162cc64fda3b0c752857590cd9;it will delete all of the current set modes in the channel selected in combobox 7   if ($did == 49) { %e 31-37 | %e 39-47 | %r 48 | %u 31-47 };did == 49 refers to the button with the text "Reset". /did -e = enables a control. It will enable all of the above codes. ;Notice- We skip 38 because that is the 'SSL only' mode.    if ($did == 7) { %e 53 | %r 52 | chanmodes | %a 54 Current modes for $did(7).seltext };did == 7 refers to the combobox containing the channels in the upper-left hand corner of tab 2. http://gyazo.com/ead2d8b3379c1ee5876a25bb4a436837;clicking it will enable button 53, clear edit box 52, perform the alias /chanmodes and set the text of editbox 54 to "current modes for selected chan"   if ($did == 55) &amp;&amp; ($me isop $did(2).seltext) { mode $did(2).seltext -b $did(3).seltext | did -d $dname 3 $did(3, 1).sel | %r 5 | minus };The above code will work if you're an operator in the channel selected in combobox 2. If that returns true, it will unban the selected hostmask,;delete the selected line from the list, clear listbox 5 and execute the alias /minus   if ($did == 56) &amp;&amp; ($me isop $did(2).seltext) { unbanall | %r 3 | %r 5 | did -a $dname 5 0 total bans };The above will work if button 56 "remove all" is selected AND you're an op in the channel. ;It will perform the alias /unbanall, clear listbox 3 and 5, and reset the editbox 5 to say "0 total bans" } raw 367:*:haltdef raw 368:*:haltdef ;Raw 367(368):*:haltdef - will stop bans from showing up in your status window. alias banstart { /mode $did(2).seltext +b }; the above alias will do mode (channel selected) +b to get the banlist. This is performed on dialog load up. alias unbanall {  var %chan- $did(2).seltext | var %u = $ibl(%chan-,0)  while (%u &gt; 0) {    ;dec %u    inc %t    var %ban = %ban $ibl(%chan-,%u)    if (%t == $modespl) {      mode %chan- - $+ $str(b,$modespl) %ban      unset %t %ban      dec %u    }  }10  mode %chan- - $+ $str(b,$modespl) %ban};line 1: set %chan- to the channel name from the dialog, set %u to the number of bans set in that channel;line 2: if %u (the number of bans) is greater than 0 it'll continue;line 5: set %ban to the Nth ban in the ban list;line 6,7,8,9) fs %t reached the maximum number of modes that can be set at once in one command, execute the /mode remove the bans in %ban, unset %t an %chan;line 10: Finally, it executes /mode %chan- -bbbbbbb ($modespl times) follow by %ban which is the list of bans    alias minus { var %minus $calc($ibl($did(2).seltext,N) - 1) did -a $dname 5 %minus total bans };alias minus will var %minus as $ibl($did(2).seltext,N) subtracted by one;it will then set edit box 5 to say the current number of bans    alias chanmodes { var %a did -a $dname | var %chan7 $did(7).seltext | %a 52 $remove($chan(%chan7).mode,+) };alias /chanmodes will var %a as 'did -a $dname', %chan7 as '$did(7).seltext'.;It will then add the modes set for the channel selected in the combo 7 to the edit box 52   alias totalbans { did -r $dname 5 | did -a $dname 5 $ibl($did(2).seltext,N) total bans };alias /totalbans will erase (-r) everything in edit box 5, and write in edit box 5 the number of total bans for the selected channel in combo 2.   alias banlist { var %chan = $did(2).seltext, %i = 1 while ($ibl(%chan, %i) != $null) { did -a chanman 3 $ibl(%chan ,%i) ~ $ibl(%chan, %i).date ~ $ibl(%chan, %i).by | inc %i } };alias /banlist will set %chan as '$did(2).seltext) and set %i to '1';the second line is a while loop that writes every ban, ban date, and who set the ban in list view 3.;it will continuously loop until there are no more bans to be displayed. ;the format would be " banmask@ban.mask ~ 1/1/1 ~ Banner " ;Thanks for reading through this, it sure took me a little while. If there's anything I didn't explain well enough, let me know :). </pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">1641</guid><pubDate>Wed, 14 Sep 2011 04:47:52 +0000</pubDate></item><item><title>Anti-spam protection</title><link>https://www.coders-resources.net/ipb/forums/topic/1618-anti-spam-protection/</link><description><![CDATA[
<pre class="ipsCode">&gt;on *:TEXT:*:#Channel: {

if ($ulevel 
if (%flood2. [ $+ [ $wildsite ] ] == $null) {

set -u5 %flood2. [ $+ [ $wildsite ] ] 1

}

elseif (%flood2. [ $+ [ $wildsite ] ] &gt;= 10) {

kick $chan $nick Anti-flood protection has been activated.

unset %flood2. [ $+ [ $wildsite ] ]

}

else { inc -u5 %flood2. [ $+ [ $wildsite ] ] }

}

}

</pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">1618</guid><pubDate>Tue, 06 Sep 2011 01:06:38 +0000</pubDate></item><item><title>"/sajoin" protection script</title><link>https://www.coders-resources.net/ipb/forums/topic/1505-sajoin-protection-script/</link><description><![CDATA[
<p><img src="http://www.hawkee.com/pictures/m_34120_w4i4pDO1aIVIL7gRFa6RH3wcj.jpg" alt="m_34120_w4i4pDO1aIVIL7gRFa6RH3wcj.jpg"></p>
<p> </p>
<blockquote data-ipsquote="" class="ipsQuote" data-ipsquote-contentapp="forums" data-ipsquote-contenttype="forums" data-ipsquote-contentid="1505" data-ipsquote-contentclass="forums_Topic"><div>Simply enough, protects you from sajoin abuse.<p>As soon as you are "force joined" to a channel it is enabled for 30secs. any channels during that 30secs you are forced to join, you will part.</p>
<p> </p>
<p>You can disable it during it's 30seconds by double clicking the popup.</p>
</div></blockquote>
<p> </p>
<p></p>
<pre class="ipsCode">&gt;on *:SNOTICE:*You were forced to join*: {   if (%sajoin.part) { part $7 }  else { noop $tip(Sajoin,Sajoin protection,Sajoin protection has been enabled for 30 seconds $+ $crlf $+ Double click to disable,30,,,unset %sajoin.part) }  set -u30 %sajoin.part 1}</pre>
<div></div>
<p></p>
]]></description><guid isPermaLink="false">1505</guid><pubDate>Fri, 01 Jul 2011 04:21:19 +0000</pubDate></item></channel></rss>
