Scriptwiki - User contributions [en]

User:Jay2k1

2025-09-17T00:08:09Z

Jay2k1: need more coffee

{{Babel-2|de|en-3}}

<table border="0">
<tr>
<td>[[Image:sgthartman.png]]</td>
<td>
<table border="0">
<tr><td><b>Age</b></td><td>{{age|1984|4|9}}</td></tr>
<tr valign="top" height="40"><td><b>Country</b></td><td>Germany</td></tr>

<tr><td><b>Words of wisdom</b></td><td>More Coffee!</td></tr>
</table>
</td>
</tr>
</table>
[[Category:Members]]

User:Shenghi

2016-11-29T15:54:28Z

Jay2k1: AgeFix Ultimate™

{{Babel-2|nl|en-3}}
<table border="0">
<tr>

<td>
<table border="0">
<tr><td><b>Name</b></td><td>Bart van Nierop</td></tr>
<tr><td><b>Age</b></td><td>{{age|1983|11|22}}</td></tr>
<tr valign="top" height="40"><td><b>Country</b></td><td>Rotterdam, Netherlands</td></tr>

<tr><td><b>Words of wisdom</b></td><td>Give a man a fish and he has food for a day. Teach a man how to fish and he has food for the rest of his life.</td></tr>
<tr><td></td><td>People are not born stupid, they decide to be stupid. If you made that decision, please change your mind.</td></tr>
</table>
</td>
</tr>
</table>
[[Category:Members]]

Channel Rules

2016-07-25T19:45:28Z

Jay2k1: fixed encoding issues with the paragraph sign

$read

2016-03-18T13:07:13Z

Jay2k1: clarified that s switch scans for a whole word

Returns a line of text from a text file.
$read(''filename'',[ntswrp],[''string''],[''N''])
The first parameter is the filename and the only required parameter.
If you omit all other parameters you will be returned with a random line from the file.

The second parameter is a set of options that determin the type of search you wish to use, for a full description see the table below.
if ''string'' is numerical and you do not use ''swr'' switch the line corresponding to the numerical value will be returned.

If the ''N'' parameter is given it starts to search the file from that line number.

'''Note:''' If the first line of your text file is a numerical value mIRC treats this number as the total number of lines in the text file, be careful not to accidently have your file cut short due to an unexpected numerical value.
If you specify N = 0, mIRC returns the value of the first line if it's a number.
Take good note of the ''t'' switch in the table below.

{| style="width:100%"
| style="width:5%" | '''''Switch''''' || style="width:95%" | '''''Meaning'''''
|-
| n || If the ''n'' switch is specified then the line read in will not be evaluated and will be treated as plain text.
|-
| t || If the ''t'' switch is specified then mIRC will treat the first line in the file as plain text, even if it is a numeric.
|-
| s || Scans the ''filename'' for a line beginning with a word specified in the ''string'' and returns the text following the match value.
|-
| w || Scans the ''filename'' for a line matching ''string'', where ''string'' can contain [[If-Then-Else#iswm|wildcards]].
|-
| r || Scans the ''filename'' for a line matching ''string'', where ''string'' is taken as a [[Regular_Expression|regular expression]].
|-
| p || If the ''p'' switch is specified, command <nowiki>|</nowiki> separators are treated as such instead of as plain text.
|}

== Examples ==
'''''Example.txt:'''''
5
Ave It
Hash Help Dot Script
6
Cows dont go moo, Fish go moo!
Fish go moo
Yes they do
The above is an example text file used in the following examples.

$read(''Example.txt'',''s'',''Ave'') ;Returns ''It'', all data that follows the first line starting with ''Ave''.
$read(''Example.txt'',''w'',''*moo'') ;Returns ''Fish go moo'', note the lack of pending asterisks means moo has to be the last word.
$read(''Example.txt'',''3'') ;Returns ''6'', This is the 3rd line in the file if you count line 1 as the linecount line because it is a number.
$read(''Example.txt'',''t'',''3'') ;Returns ''Hash Help Dot Script'', This is the 3rd line in the file if you count line 1 plain text.
$read(''Example.txt'',''w'',''*moo'') ;Returns ''

[[kick]] [[$chan]] [[$nick]] $read(Example.txt) ;Kicks a user with a random line from the text file.
== See Also ==
* [[$readn]] This returns the line number that $read just returned.
* [[$lines]] This returns the total number of lines in the given file.
* [[play]] This is a much better alternative if you require to list the content of a whole file to a channel.
* [[filter]] This can help with more complex needs when reading in content from files or windows.
* [[loadbuf]] This is a much better alternative if you need to dump many lines of text to a dialog or to a custom window

[[Category:File and Directory Identifiers]]

YouTube parser

2015-05-06T22:12:29Z

Jay2k1: Added note about this script no longer working because of API deprecation

<div class="boilerplate metadata" id="stub" style="padding: 7px; background: #ffeeee; border: 1px solid #ff0000; text-align: center; font-size:95%;">'''''On May 6th, 2015, YouTube shut down their API v2 which is being used in this script to retrieve video metadata. One now has to use their API v3, which unfortunately seems to require an API key (as opposed to being publicly accessible by anyone).<br>As a consequence, this script is now useless, unless you view it as a code example. I'm working on a version that works with the new API.''''' </div>

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-|$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %t = [[$sockname]], %data
[[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { [[hadd]] -m %t title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { [[hadd]] -m %t dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { [[hadd]] -m %t views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { [[hadd]] -m %t likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m %t dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { [[hadd]] -m %t uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { [[hadd]] -m %t uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }
[[If-Then-Else|if]] (*accessControl action='rate' permission='denied'* iswm %data) { [[hadd]] -m %t rating disabled or no votes }

; the </entry> tag marks the end of the data.
[[If-Then-Else|if]] (*</entry>* iswm %data) || ([[$hget]](%t,0).item == 7) || (([[$hget]](%t,0).item == 7) && ([[$hget]](%t,rating) == disabled)) {
[[Local_Variables|var]] %ytmsg = ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,dur) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,views) views
[[Local_Variables|var]] %ytmsg = %ytmsg [[DollarPlus|$+]] , [[$iif]]([[$hget]](%t,likes),rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] ),rating disabled or not rated yet)
[[Local_Variables|var]] %ytmsg = [[$replace]](%ytmsg, ,[[$chr]](160),",",',',<,<,>,>,&,&, £,[[$chr]](163), €, [[$chr]](8364), ©, [[$chr]](169), &trade, [[$chr]](8482), ®, [[$chr]](174))
[[msg]] [[$gettok]]([[$sock]](%t).mark,2,32) %ytmsg

[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

Template:Warning

2015-05-06T22:04:26Z

Jay2k1: Created page with "{{ mbox | demospace = {{{demospace|}}} | type = content | image = {{#if:{{{image|}}}| Warning }} | textstyle = {{{align|text-align: center..."

{{ mbox
| demospace = {{{demospace|}}}
| type = content
| image = {{#if:{{{image|}}}| [[Image:{{{image|}}}|40px|Warning]] }}
| textstyle = {{{align|text-align: center;}}}
| text = {{#if:{{{header|}}}|<div style="text-align: center">'''{{{header}}}'''</div>}}{{{text|{{{1}}}}}}

}}<noinclude>{{Documentation}}</noinclude>

YouTube parser

2015-04-10T18:50:05Z

Jay2k1: removed some debugging code

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-|$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %t = [[$sockname]], %data
[[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { [[hadd]] -m %t title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { [[hadd]] -m %t dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { [[hadd]] -m %t views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { [[hadd]] -m %t likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m %t dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { [[hadd]] -m %t uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { [[hadd]] -m %t uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }
[[If-Then-Else|if]] (*accessControl action='rate' permission='denied'* iswm %data) { [[hadd]] -m %t rating disabled or no votes }

; the </entry> tag marks the end of the data.
[[If-Then-Else|if]] (*</entry>* iswm %data) || ([[$hget]](%t,0).item == 7) || (([[$hget]](%t,0).item == 7) && ([[$hget]](%t,rating) == disabled)) {
[[Local_Variables|var]] %ytmsg = ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,dur) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,views) views
[[Local_Variables|var]] %ytmsg = %ytmsg [[DollarPlus|$+]] , [[$iif]]([[$hget]](%t,likes),rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] ),rating disabled or not rated yet)
[[Local_Variables|var]] %ytmsg = [[$replace]](%ytmsg, ,[[$chr]](160),",",',',<,<,>,>,&,&, £,[[$chr]](163), €, [[$chr]](8364), ©, [[$chr]](169), &trade, [[$chr]](8482), ®, [[$chr]](174))
[[msg]] [[$gettok]]([[$sock]](%t).mark,2,32) %ytmsg

[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

YouTube parser

2015-03-31T20:30:17Z

Jay2k1: channel correction

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-|$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %t = [[$sockname]], %data
[[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { ylog found title! | [[hadd]] -m %t title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { ylog found duration! | [[hadd]] -m %t dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { ylog found views! | [[hadd]] -m %t views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { ylog found rating! | [[hadd]] -m %t likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m %t dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { ylog found uploader name! | [[hadd]] -m %t uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { ylog found upload date! | [[hadd]] -m %t uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }
[[If-Then-Else|if]] (*accessControl action='rate' permission='denied'* iswm %data) { ylog found rating disabled | [[hadd]] -m %t rating disabled or no votes }

; the </entry> tag marks the end of the data.
[[If-Then-Else|if]] (*</entry>* iswm %data) || ([[$hget]](%t,0).item == 7) || (([[$hget]](%t,0).item == 7) && ([[$hget]](%t,rating) == disabled)) {
[[Local_Variables|var]] %ytmsg = ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,dur) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,views) views
[[Local_Variables|var]] %ytmsg = %ytmsg [[DollarPlus|$+]] , [[$iif]]([[$hget]](%t,likes),rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] ),rating disabled or not rated yet)
[[Local_Variables|var]] %ytmsg = [[$replace]](%ytmsg, ,[[$chr]](160),",",',',<,<,>,>,&,&, £,[[$chr]](163), €, [[$chr]](8364), ©, [[$chr]](169), &trade, [[$chr]](8482), ®, [[$chr]](174))
[[msg]] [[$gettok]]([[$sock]](%t).mark,2,32) %ytmsg

[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

MHTTP

2015-02-22T04:28:24Z

Jay2k1: /* Script */ bugfix in http.urlparse: local var %protocol wasn't initialized, so %protocol was set as global variable, which led to an empty %host variable if you passed an url without protocol as argument to http.urlparse, which made sockopen fail

Often times you may want to download a web page from the internet using HTTP, but HTTP can be complicated. This script handles most of the basics for you including
* URL Parsing
* SSL
* Cookies
* Sending POST data
* Following redirects
* Handling CHUNKED encoding

Typical usage simply involves using the /http.open, save and close commands to download a file, and creating a signal event to do something with it once it is done.
== Example ==
alias DownloadGooglesLogo {
http.open google https://www.google.com/images/srpr/logo11w.png
http.save -f google logo.png
}
on *:SIGNAL:http: {
if ($1 == google) {
if ($2 == SAVED) { run $3- }
if ($2 == PROGRESS) { echo -atg Download progress: $bytes($3).suf $+ / $+ $bytes($4).suf downloaded }
}
}

== Script ==
; Ben's (ben@st0rm.net) HTTP for mIRC script (mHTTP)
; Used to download over HTTP
; Basic usage
; /http.open [name] <URL>
; Opens an HTTP handle for the given URL
; /http.save [-f] <name> <file|bvar>
; Downloads a given HTTP resource to the given file or binvar
; -f forces the file to be overwritten
; /http.close <name>
; Closes and HTTP handle for the given URL
;
; Here are some things you can do after opening a handle, but before saving it
; Manage POST data:
; /http.addpost <handle> <variable> <value>
; /http.delpost <handle> <variable>
; Manage cookies
; /http.addcookie <handle> <value>
; $http.cookie(handle,N) - gets Nth cookie
;
; After a request completes (e.g. after a save) you can get some data:
; $http.responseheader(handle, header, N) - Returns value of given responseheader, or $false. Only useful after a request is made
;
; You can mark a socket with data of your choice (it's a transparent write to a hashtable) similar to sockmark
; /http.mark <handle> [data] - Writes the data. Specify no data to delete the mark
; $http.mark(handle) - Reads the data
;
; Signals
; In order to tell via script when something happens (your file is being saved, for example) use
; on *:SIGNAL:http:
; where $1 = Handle name, $2 = Event name, $3- = parameters
; Events:
; COMPLETED <statuscode> - when a request completes
; SAVED <location> - when a save completes
; REDIRECT <location> - when a request is redirected elsewhere
; PROGRESS <bytes> [total size] - When part but not all of the data is downloaded. Total size is not available for chunked transfer
;
;
; Known issues:
; Cookies do not respect attributes such as domain, path, expiration, or secure. They area always sent
; Relative redirects don't work, only absolute
; Redirects from insecure to secure links when you don't have SSL will not be handled well
; Creates a request that when completed is saved to a file
alias http.save {
if ($1 == -f) {
var %force = $true
tokenize 32 $2-
}
else { var %force = $false }
if ($0 < 2) {
echo -atg * /http.save: Use /http.save <http handle> <file>
return
}
var %hashtable = http. $+ $1
if (!$hget(%hashtable)) {
echo -atg * /http.save: No such HTTP handle exists. Use /http.open first
return
}
if ($sock(%hashtable)) {
echo -atg * /http.save: There is a pending request for this HTTP handle already. A connection is open the the remote host. Close it, or wait for it to complete
return
}
var %destination = $2-
if ($exists(%destination)) {
if (%force) {
.remove %destination
}
else {
echo -atg * /http.save: File already exists. Try /http.save -f to force an overwrite
return
}
}
if (&* iswm %destination) {
.hadd %hashtable bvarout %destination
}
else {
; Open file handler stream for writing
.fopen -n %hashtable %destination
if ($ferr) {
echo -atg * /http.save: Could not use file. Error: $ferr
return
}
; Store fstream name in hashtable to indicate that we want to save this once it completes
.hadd %hashtable fstream %hashtable
}
; Set redirect counter to 0
.hadd %hashtable redirects 0
; Start socket
http.sockstart %hashtable
}
alias http.mark {
var %hashtable = http. $+ $1
if ($isid) {
; As an identifier, read the mark
return $hget(%hashtable,mark)
}
else {
; As a command, set the mark
if (!$hget(%hashtable)) {
echo -atg * /http.mark - No such handle $1
}
elseif (!$2) {
.hdel %hashtable mark
}
else {
.hadd %hashtable mark $2-
}
}
}
; Opens socket
alias -l http.sockstart {
if ($hget($1,secure) == $true) {
if ($sock($1) && $sock($1).ssl) {
http.sendrequest $1
}
else {
if ($sock($1)) { .sockclose $1 }
if (!$sslready) {
echo -atg HTTP Error - request $qt($right($1,-5)) would require you to use SSL but you are not SSL ready. Please see http://mirc.com/ssl.html
http.close $right($1,-5)
return
}
sockopen -e $1 $hget($1, host) $hget($1, port)
}
}
else {
if ($sock($1)) {
http.sendrequest $1
}
else {
sockopen $1 $hget($1, host) $hget($1, port)
}
}
}
; Sends the request. Assumes the socket is open and ready
alias -l http.sendrequest {
if (!$sock($1)) { echo -atg HTTP Internal error. Socket not open in /http.sendrequest | return }
var %inname = $1
var %exname = $right($1,-5)
; Cleanup from previous requests
.hdel %inname responseheaders
.hdel %inname body
.hdel %inname contentlength
.hdel %inname chunkleft
; Get POST binvar
var %postBV = $http.postdata(%inname)
; Use GET if there's no post data, POST otherwise
if ($bvar(%postBV,0) == 0) {
sockwrite -n %inname GET $hget(%inname,path) HTTP/1.1
}
else {
sockwrite -n %inname POST $hget(%inname,path) HTTP/1.1
}
; Send the host
sockwrite -n %inname Host: $hget(%inname,host)
; Send the user-agent
sockwrite -n %inname User-agent: $hget(%inname,user-agent)
sockwrite -n %inname Connection: Keep-Alive
; Only plain-text supported
sockwrite -n %inname Accept: text/plain; q=0.5, text/html
; Send cookies
if ($http.cookie(%exname, 0) > 0) {
sockwrite %inname Cookie: $+ $chr(32)
var %i = 1
while ($http.cookie(%exname, %i)) {
sockwrite %inname $http.urlencode($ifmatch) $+ ;
inc %i
}
sockwrite -n %inname
}
; If POST send content type and length
if ($bvar(%postBV,0) > 0) {
sockwrite -n %inname Content-Type: application/x-www-form-urlencoded
sockwrite -n %inname Content-Length: $v1
}
; End request headers with empty line
sockwrite -n %inname
; If POST, send data
if ($bvar(%postBV,0) > 0) {
sockwrite %inname %postBV
; sockwrite -n %inname
}
}
; Just some bookeeping in case we miss it
on *:SOCKCLOSE:http.*: {
if ($fopen($sockname)) { .fclose $sockname }
}
on *:SOCKOPEN:http.*: {
http.sendrequest $sockname
}
on *:SOCKREAD:http.*: {
if ($sockerr > 0) {
echo -atg * HTTP handle $qt($right($sockname,-5)) failed with socket error $sockerr
http.close $right($sockname,-5)
return
}
;Read all the data into &bvTemp
:read
; First, read this buffer
sockread &bvThis
if ($sockbr > 0) {
; If data was read, copy it to the on-going buffer and continue
bcopy &bvTemp $calc($bvar(&bvTemp,0) +1) &bvThis 1 -1
goto read
}
if ($bvar(&bvTemp,0) == 0) { echo -atg HTTP sockread called with no data to read... | return }
; Do we need to parse headers?
; If response headers not set, this call has the headers
if (!$hget($sockname,responseheaders)) {
; Find the response headers
var %end = $bfind(&bvTemp,1, 13 10 13 10)
if (%end == 0) { echo -atg Error: No headers found, but no content length so this can't be a subsequent call | return }
; Increase to include the 3 extra characters
inc %end 3
bcopy &bvResponseHeaders 1 &bvTemp 1 %end
; If there's still non-header data copy it over
if (%end < $bvar(&bvTemp, 0)) {
bcopy -c &bvTemp 1 &bvTemp $calc(%end + 1) -1
}
else { bunset &bvTemp }
; If this is the first header response, save in hash table
if (!$hget($sockname, responseheaders)) {
.hadd -b $sockname responseheaders &bvResponseHeaders
http.OnHeaders $sockname
}
}
; there's no more to read, bail
if (!$bvar(&bvTemp,0)) {
; If that's all this response has to offer, we're done
if ($hget($sockname,contentlength) == 0) {
http.ondone $sockname
}
return
}
; Read body
var %contentlength = $hget($sockname,contentlength)
if (%contentlength == $null || %contentlength == $false) {
var %chunked = $true
}
else {
var %chunked = $false
}
; Set bvBody to the body ready so far
if ($hget($sockname,body)) {
noop $hget($sockname, body, &bvBody)
}
if (%chunked) {
:readChunk
var %chunkleft = $hget($sockname, chunkleft)
if (!%chunkleft) {
; If we've read all of a chunk, or this is the first one, get its size
var %crlf = $bfind(&bvTemp, 1, 13 10)
if (!%crlf) {
echo -atg HTTP internal error. Handle $qt($right($sockname,-5)) is in chunked encoding but no chunk size found in data
return
}
var %chunkleft = $base($bvar(&bvTemp, 1, $calc(%crlf - 1)).text,16,10)
if (%chunkleft !isnum) {
echo -atg HTTP internal error. Handle $qt($right($sockname,-5)) has invalid chunk size: %chunkleft
}
; New chunk
else {
; Save chunk size and remove it (plus its \r\n) from temp
.hadd $sockname chunkleft %chunkleft
.bcopy -c &bvTemp 1 &bvTemp $calc(%crlf +2) -1
if (%chunkLeft == 0) {
; if we just read chunk size 0, that was the end.
.hadd -b $sockname body &bvBody
http.onDone $sockname
return
}
}
}
; read %chunkleft bytes
var %bytesToRead = $iif(%chunkLeft < $bvar(&bvTemp,0),%chunkLeft, $bvar(&bvTemp,0))
.bcopy &bvBody $calc($bvar(&bvBody,0) +1) &bvTemp 1 %bytesToRead
hdec $sockname chunkleft %bytesToRead
.signal http $right($sockname,-5) PROGRESS %bytesToRead
if (%bytesToRead == %chunkLeft) {
; If this is the end of the chunk, consume crlf
inc %bytesToRead 2
; If there's still stuff in this var, go back and read the new chunk
if (%bytesToRead < $bvar(&bvTemp,0)) {
.bcopy -c &bvTemp 1 &bvTemp $calc(%bytesToRead + 1) -1
goto readChunk
}
}
; End of this call, save body in hashtable for future calls
.hadd -b $sockname body &bvBody
}
else {
; Copy everything
.bcopy &bvBody $calc($bvar(&bvBody,0) +1) &bvTemp 1 -1
; Add read-so-far body to hashtable
.hadd -b $sockname body &bvBody
.signal http $right($sockname,-5) PROGRESS $bvar(&bvBody,0) $hget($sockname,contentlength)
; Check if we're done
if ($bvar(&bvBody,0) >= $hget($sockname,contentlength)) {
; We're done
http.onDone $sockname
if ($bvar(&bvBody,0) > $hget($sockname,contentlength)) {
echo -qatg HTTP Warning: Read past content-length.
}
}
}
}
; Internal event called when we get the first header response from the server
alias -l http.OnHeaders {
noop $hget($1,responseheaders, &bvResponseHeaders)
; First header is always the status response
var %end = $bfind(&bvResponseHeaders, 1, 13 10)
if (%end <= 1) {
echo -atg Error: HTTP $qt($right($1,-5)) Server did not respond with HTTP status
goto cleanup
}
var %status = $bvar(&bvResponseHeaders,1,$calc(%end - 1)).text
.hadd $1 responsestatus %status
var %version = $gettok(%status,1,32)
if (%version != HTTP/1.1 && %version != HTTP/1.0) {
echo -atg Error: HTTP $qt($right($1,-5)) Server indicated unknown version: %version
goto cleanup
}
var %statuscode = $gettok(%status,2,32)
if (%statuscode !isnum) {
echo -atg Error: HTTP $qt($right($1,-5)) Server indicated invalid status code: %statuscode
goto cleanup
}
; Check transfer type
if ($http.responseheader($right($1,-5),Content-Length,1) != $null) {
hadd $1 contentlength $v1
}
elseif ($http.responseheader($right($1,-5), Transfer-Encoding, 1) != chunked) {
echo -atg HTTP Handle $qt($right($1,-5)) has no content-length header and is not chunked
echo -atg $bvar(&bvResponseHeaders,1-).text
return
}
; Add any cookies that were set
var %cookie = 1
while ($http.responseheader($right($1,-5), Set-Cookie, %cookie)) {
inc %cookie
var %cookieValue = $gettok($ifmatch,1,$asc(;))
http.addcookie $right($1,-5) %cookieValue
}
; Handle redirects
if (%statuscode == 303 || %statuscode == 302 || %statuscode == 307) {
var %location = $http.responseheader($right($1,-5), Location)
.signal http $right($1,-5) REDIRECT %location
http.seturl $1 %location
hinc $1 redirects
; If the server doesn't promise us this connection is keep-alive, close it and use a new one
if ($http.responseheader($right($1,-5), Connection, 1) != Keep-Alive) {
if ($sock($1)) { .sockclose $1 }
}
if ($hget($1, redirects) > 5) {
echo -atg HTTP Handle $qt($right($1,-5)) redirect loop detected
return
}
http.sockstart $1
}
return
:cleanup
if ($sock($1)) { .sockclose $1 }
}
alias http.addcookie {
var %hashtable = http. $+ $1
if (!$hget(%hashtable)) {
echo -atg * /http.addcookie: No such HTTP handle
return
}
if ($0 < 2) {
echo -atg * /http.addcookie: Usage: /http.addcookie <handle> <value>
return
}
var %i = 1
var %cookieNum = 1
while ($hget(%hashtable,%i).item) {
var %item = $ifmatch
inc %i
if (cookie-* iswm %item) {
var %tmp = $gettok(%item,2,$asc(-))
; If the value is the same, overwrite
if ($2- == $hget(%hashtable,%item)) {
%cookieNum = %tmp
break
}
; Otherwise store max cookie num
elseif (%tmp >= %cookieNum) { %cookieNum = $calc(%tmp + 1) }
}
}
.hadd %hashtable cookie- $+ %cookieNum $+ -value $2-
}
; Gets an HTTP cookie for the given handle
; $http.cookie(<handle>, <index>)
alias http.cookie {
if ($2 !isnum) {
echo -atg * $!http.cookie invalid parameters
return
}
var %hashtable = http. $+ $1
if (!$hget(%hashtable)) {
echo -atg * $!http.cookie no such HTTP handle
return
}
var %i = 1
var %found = 0
while ($hget(%hashtable, %i).item) {
inc %i
var %item = $ifmatch
if (cookie-*-value iswm %item) {
inc %found
var %id = $gettok(%item,2,$asc(-))
if (%found == $2) {
return $hget(%hashtable, cookie- $+ %id $+ -value)
}
}
}
if ($2 == 0) { return %found }
}
; Returns the value of the given response header
; Case sensitive since it is binary variable operation
alias http.responseheader {
if ($0 < 2) {
echo -atg Invalid usage. Use: $http.responseheader(<handle>, <header>[, index])
return
}
; %index is parameter 3 - 1-N or 0 for number
var %index = 1
if ($3 isnum) {
%index = $3
}
; Veriy hash table exists
var %table = http. $+ $1
if (!$hget(%table,responseheaders)) { return $false }
noop $hget(%table,responseheaders, &bvResponseHeaders))
; Set up parameters for the header search
; Offset is where we start searching from in the loop
; thisIndex is the number of matches found so far
var %offset = 1
var %thisIndex = 0
; The main search loop
:search
var %start = $bfind(&bvResponseHeaders, %offset, $2 $+ :).text
; If there isn't another match, either the index was too large or they want the count
if (!%start) {
if (%index == 0) { return %thisIndex }
else { return $false }
}
; Find the end of the header
var %end = $bfind(&bvResponseHeaders, %start, 13 10)
if (%end <= %start) { echo -atg HTTP Internal error ($http.responseheader), header $qt($2) for handle $qt($1) has no CRLF termination | return $false }
inc %thisIndex
; If this not the one they asked for, try again starting from the end of this header
if (%index != %thisIndex) {
var %offset = %end
goto search
}
; Find the colon. If there isn't one we'll return the whole string
if ($calc($bfind(&bvResponseHeaders, %start, $asc(:)) +1) < %end) {
%start = $v1
}
return $bvar(&bvResponseHeaders,%start, $calc(%end - %start)).text
}
; Internal event called when a request is filled. $1 = internal handle name
alias -l http.onDone {
if ($hget($1,responseheaders)) {
noop $hget($1,responseheaders,&bvResponseHeaders)
}
; Write out and close filestream if set
if ($hget($1,fstream)) {
noop $hget($1,body,&bvBody)
if (!$bvar(&bvBody,0)) {
.fclose $hget($1,fstream)
}
else {
.fwrite -b $hget($1,fstream) &bvBody
; Save fname so we can use it in the signal after the close
var %fname = $fopen($hget($1,fstream)).fname
.fclose $hget($1,fstream)
.signal http $right($1,-5) SAVED %fname
}
}
; If socket is still around, close it
if ($sock($1)) { .sockclose $1 }
; Reset redirects for future calls
.hadd $1 redirects 0
.signal HTTP $right($1,-5) COMPLETED $hget($1,responsestatus)
if ($hget($1, bvarout)) {
noop $hget($1,body,&bvBody)
var %bvarout = $ifmatch
bcopy %bvarout 1 &bvBody 1 -1
; Need to use -n so that the binvar is still in scope
; So we need to do this last
.signal -n http $right($1,-5) SAVED %bvarout
}
}
alias http.open {
var %hashtable
; If two parameters are given, $1 is the name, else create a new name
if ($0 > 1) { %hashtable = http. $+ $1 }
else {
var %h = $calc($ticks % $rand(1,1000000))
var %hashtable = http. $+ %h
}
if ($hget(%hashtable)) {
echo -atg * /http.open: HTTP Request $qt($1) already exists
return
}
; Encode the octects of the URL. e.g.: foo bar,pie --> foo%20bar,%2Cpie
var %url = $iif($0 > 1, $2-, $1-)
var %urlEncoded = $http.urlencode(%url)
; Check the URL
if (!$http.urlparse(%urlEncoded)) {
echo -atg * /http.open: Malformed URL. Use /http.open [name] <url>
return
}
if ($http.urlparse(%urlEncoded).secure && !$sslready) {
echo -atg * /http.open: URL is SSL but $!sslready = false. See http://www.mirc.com/ssl.html
return
}
; Everything checks out, let's store the relevent bits in a hashtable
.hmake %hashtable 10
http.seturl %hashtable %url
echo -qatg * /http.open: Opened HTTP request $qt($right(%hashtable,-5))
}
alias -l http.seturl {
if ($0 < 2) { echo -atg HTTP Internal error, seturl called with no url }
var %hashtable = $1
if (!$hget(%hashtable)) { echo -atg HTTP Internal error, seturl called with invalid handle }
var %urlEncoded = $http.urlencode($2-)
.hadd %hashtable host $http.urlparse(%urlEncoded).host
.hadd %hashtable port $http.urlparse(%urlEncoded).port
.hadd %hashtable secure $http.urlparse(%urlEncoded).secure
.hadd %hashtable path $http.urlparse(%urlEncoded).path
.hadd %hashtable user-agent mIRC $version
}
alias http.list {
var %i = 1
var %numFound = 0
while (%i <= $hget(0)) {
var %table = $hget(%i)
inc %i
if (http.* iswm %table) {
inc %numFound
echo -atg * $right(%table,-5) $+ : Host: $hget(%table,host) Port: $hget(%table,port) Path: $hget(%table,path)
}
}
if (%numFound == 0) { echo -atg * No HTTP handles opened }
}
alias http.close {
var %i = 1
var %numFound = 0
while (%i <= $hget(0)) {
var %table = $hget(%i)
if (http. $+ $1 iswm %table) {
; Cleanup resources
if ($sock(%table)) { .sockclose %table }
if ($fopen(%table)) { .fclose %table }
if ($hget(%table $+ .postdata)) { .hfree %table $+ .postdata }
.hfree %table
inc %numFound
echo -qatg * HTTP Closed $right(%table,-5)
}
; Only inc if we didnt find a match
else {
inc %i
}
}
if (%numFound == 0) { echo -qatg * No matching HTTP handles }
}
;
; Takes an encoded URL and returns based on the property
; .secure - true if https
; .host - the URL host
; .port - the port, 80 by default
; .path - The path to download, / by default
; Returns $false is URL is malformed
;
alias http.urlparse {
var %secure
var %host
var %port
var %path
var %protocol
var %regex = /^(https?://)?([a-z.0-9\-_]+)(:\d+)?(/.*)?$/i
if ($regex($1, %regex)) {
if (http*:// iswm $regml(1)) {
%protocol = $lower($left($regml(1),-3))
}
%secure = $false
if (%protocol == https) {
%secure = $true
}
if (%protocol) { %host = $regml(2) }
else { %host = $regml(1) }
var %portIndex = $iif(%protocol, 3, 2)
var %portfound = $false
if ($left($regml(%portIndex),1) == : && $right($regml(%portIndex),-1) isnum) {
%port = $right($regml(%portIndex),-1)
%portFound = $true
}
else {
if (%secure) {
%port = 443
}
else {
%port = 80
}
}
%pathIndex = $iif(%portFound, $calc(%portIndex + 1), %portIndex)
if ($regml(0) >= %pathIndex) {
%path = $regml(%pathIndex)
}
else { %path = / }
}
else { return $false }
if ($prop == secure) { return %secure }
if ($prop == host) { return %host }
if ($prop == path) { return %path }
if ($prop == port) { return %port }
return $true
}
alias http.addpost {
if ($0 < 3) {
echo -atg * /http.addpost: Usage: /http.addpost <handle> <variable> <value>
return
}
var %maintable = http. $+ $1
var %posttable = %maintable $+ .postdata
if (!$hget(%maintable)) {
echo -atg * /http.addpost: No such HTTP handle found
return
}
if (!$hget(%posttable)) { .hmake %posttable 10 }
hadd %posttable $2 $3-
echo -qatg Post variable added: $2 $+ = $+ $3-
}
alias http.delpost {
if ($0 < 2) {
echo -atg * /http.delpost: Usage: /http.delpost <handle> <variable>
return
}
var %maintable = http. $+ $1
var %posttable = %maintable $+ .postdata
if (!$hget(%maintable)) {
echo -atg * /http.addpost: No such HTTP handle found
return
}
if (!$hget(%posttable,$2)) {
echo -qatg * /http.addpost: No post variable with that name exists
return
}
hdel %posttable $2
echo -qatg Post variable deleted: $2
}
; Usage: $http.postdata(handle)
; Returns a binvar with a post data style query string (x=y&z=a) or $false
alias http.postdata {
; Post data is stored in INNAME.postdata
var %posttable = http. $+ $1 $+ .postdata
if (!$hget(%posttable,0).item) { return $false }
var %i = 1
while ($hget(%posttable,%i).item) {
var %item = $ifmatch
bset -t &bvPost $calc($bvar(&bvPost,0) +1) $iif(%i > 1,&,) $+ $http.urlencode(%item) $+ = $+ $http.urlencode($hget(%posttable,%item))
inc %i
}
return &bvPost
}
; Replace some commonly touchy URL characters with their hex-octect encoding
alias -l http.urlencode {
return $replacex($1-,$chr(32),% $+ 20, $chr(44), % $+ 2C,+, % $+ 2B, $chr(37), % $+ 25)
}

{{Author|aca20031}}

[[Category:Script Archive]]

YouTube parser

2014-09-24T12:45:17Z

Jay2k1: Bugfix: script didn't produce output on unrated videos

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#pda:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-|$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %t = [[$sockname]], %data
[[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { ylog found title! | [[hadd]] -m %t title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { ylog found duration! | [[hadd]] -m %t dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { ylog found views! | [[hadd]] -m %t views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { ylog found rating! | [[hadd]] -m %t likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m %t dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { ylog found uploader name! | [[hadd]] -m %t uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { ylog found upload date! | [[hadd]] -m %t uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }
[[If-Then-Else|if]] (*accessControl action='rate' permission='denied'* iswm %data) { ylog found rating disabled | [[hadd]] -m %t rating disabled or no votes }

; the </entry> tag marks the end of the data.
[[If-Then-Else|if]] (*</entry>* iswm %data) || ([[$hget]](%t,0).item == 7) || (([[$hget]](%t,0).item == 7) && ([[$hget]](%t,rating) == disabled)) {
[[Local_Variables|var]] %ytmsg = ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,dur) [[DollarPlus|$+]] [[$chr]](44) [[$hget]](%t,views) views
[[Local_Variables|var]] %ytmsg = %ytmsg [[DollarPlus|$+]] , [[$iif]]([[$hget]](%t,likes),rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] ),rating disabled or not rated yet)
[[Local_Variables|var]] %ytmsg = [[$replace]](%ytmsg, ,[[$chr]](160),",",',',<,<,>,>,&,&, £,[[$chr]](163), €, [[$chr]](8364), ©, [[$chr]](169), &trade, [[$chr]](8482), ®, [[$chr]](174))
[[msg]] [[$gettok]]([[$sock]](%t).mark,2,32) %ytmsg

[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

$comval

2014-07-06T22:10:13Z

Jay2k1: /* See Also */ typo

Returns member value for the Nth instantiation of the enumerated collection in name.

$comval(name,N,member)

== Dispatch and Unknown ==

The two variable types dispatch and unknown allow you to pass dispatch/unknown pointers as parameters in a $com() call, or retrieve dispatch/unknown pointers from a $com() call, by reference.

'''To pass a dispatch/unknown''' pointer as a parameter in $com(), specify the variable type as dispatch/unknown, and specify the name of an existing $com() connection as the value.

'''To retrieve a dispatch/unknown''' pointer through a call to $com(), specify a dispatch* item, with a variable name, as the last parameter in a $com() call, without assigning it a value. When $com() returns, mIRC will create a new $com() item with that variable name and assign it the dispatch or unknown pointer. See example script #2 below.

'''Note:''' In the case of retrieving an unknown pointer, mIRC will extend it to a dispatch pointer if it can, allowing you to call it directly via $com().

You can use '''$com().dispatch''' or '''$com().unknown''' to see if a pointer exists for that $com() item.

== Example ==
The following script is a simple example that connects to excel and then retrieves and sets the visible property.

alias excel {
comopen excel Excel.Application
if ($comerr) {
echo comopen failed
halt
}

; check if excel window is visible
if ($com(excel,Visible,3) == 0) {
echo $com failed
goto finish
}

echo Visible: $com(excel).result

; make excel window visible
if ($com(excel,Visible,5,i4,1) == 0) {
echo $com failed
goto finish
}

; check visibility again
if ($com(excel,Visible,3) == 0) {
echo $com failed
goto finish
}

echo Visible: $com(excel).result

:finish
comclose excel
}

The following script retrieves information about your CPU. It displays debugging information so you can see whether a call succeeded or not, the value it returned, and whether a new COM object was created.

alias cpu {

comopen Locator WbemScripting.SWbemLocator

if ($comerr) { echo comopen failed | halt }
echo com: $com(Locator, ConnectServer, 3, dispatch* Services)
echo result: $com(Locator).result

echo com(0): $com(0)
if ($com(Services)) {
echo com: $com(Services, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* More)
echo result: $com(Services).result
echo com(0): $com(0)

if ($com(More)) {
echo com: $com(More, Name, 3)
echo result: $com(More).result
echo com: $com(More, Caption, 3)
echo result: $com(More).result
echo com: $com(More, Manufacturer, 3)
echo result: $com(More).result

comclose More
}
comclose Services
}
comclose Locator
}

The following script retrieves information about your hard drives. It does so by retrieving all drive instances in an enumerated collection and then accessing member values for each instance using the $comval() identifier.

alias drives {
comopen Locator WbemScripting.SWbemLocator

if ($comerr) { echo comopen failed | halt }
echo Com: $com(Locator,ConnectServer,3, dispatch* Services)
echo Result: $com(Locator).result
comclose Locator

if $com(Services) {
echo com: $com(Services, InstancesOf,3,string,Win32_LogicalDisk,dispatch* Instances)
echo result: $com(Services).result

comclose Services
}

if $com(Instances) {
echo com: $com(Instances,Count,3)

var %n = $com(Instances).result
echo result: %n

var %m = 1
while (%m <= %n) {
echo 4 disk: %m
echo 3 Com: $comval(Instances, %m, Name)
echo 3 Com: $comval(Instances, %m, FileSystem)
echo 3 Com: $comval(Instances, %m, FreeSpace)
echo 3 Com: $comval(Instances, %m, Description)
inc %m
}
comclose instances
}
}

== See Also==
* [[COM Objects]] for /comopen /comclose /comlist /comreg $comerr

[[Category:COM Objects]]

How to make your own theme

2014-05-22T13:37:26Z

Jay2k1: /* Miscellaneous */ grammar nazi strikes again

Missing pages

2014-05-12T21:50:01Z

Jay2k1: /* Events */ "on top" is not an event. At least not in mIRC.

== Identifiers ==
[[$ansi2mirc]]
[[$com]]
[[$comcall]]
[[$comerr]]
[[$comval]]
[[$creq]]
[[$dbuh]]
[[$dbuw]]
[[$dccignore]]
[[$dccport]]
[[$dll]]
[[$dllcall]]
[[$get]]
[[$group]]
[[$height]]
[[$keychar]]
[[$keyrpt]]
[[$keyval]]
[[$lactivewid]]
[[$link]]
[[$menu]]
[[$menucontext]]
[[$menutype]]
[[$passivedcc]]
[[$send]]
[[$sreq]]
[[$vcmd]]
[[$vcmdstat]]
[[$vcmdver]]

== Commands ==
[[comclose]]
[[comopen]]
[[comreg]]
[[creq]]
[[dcc chat]]
[[dcc get]]
[[dcc ignore]]
[[dcc nick]]
[[dcc passive]]
[[dcc reject]]
[[dcc send]]
[[dcc trust]]
[[dccserver]]
[[dll]]
[[drawcopy]]
[[drawpic]]
[[drawreplace]]
[[drawrot]]
[[drawsave]]
[[drawscroll]]
[[drawtext]]
[[font]]
[[fsend]]
[[fserve]]
[[identd]]
[[links]]
[[logview]]
[[mdi]]
[[pdcc]]
[[reseterror]]
[[savebuf]]
[[sockpause]]
[[sound]]
[[sreq]]
[[tray]]
[[url]]
[[vcadd]]
[[vcmd]]
[[vcrem]]

== Events ==
[[On connectfail]]
[[On dccserver]]
[[On error]]
[[On filercvd]]
[[On filesent]]
[[On getfail]]
[[On nosound]]
[[On sendfail]]
[[On serverop]]
[[On user]]
[[On vcmd]]

Missing pages

2014-05-12T21:43:02Z

Jay2k1: /* Commands */ - removed existing pages

Playctrl

2014-05-12T21:41:49Z

Jay2k1: added some info on what the play central is

Displays the play central dialog.
/playctrl

It lets you view and edit the play requests queue. Files are played in the order in which they appear in the queue.

[[Category:Commands]]

Finger

2014-05-12T21:38:30Z

Jay2k1: added what it does and some see-also

/finger is an old command in mIRC that has been truncated in current mIRC versions.
Instead you should use:
/ctcp NICK finger

It returns name and email from mIRC Options -> Connect and the client's IRC idle time.

==See Also==
* [[ctcp]]
* [[Ctcp events]]
* [[ctcpreply]]

Missing pages

2014-05-12T21:24:55Z

Jay2k1: /* Identifiers */ - removed existing $hash

== Identifiers ==
[[$ansi2mirc]]
[[$com]]
[[$comcall]]
[[$comerr]]
[[$comval]]
[[$creq]]
[[$dbuh]]
[[$dbuw]]
[[$dccignore]]
[[$dccport]]
[[$dll]]
[[$dllcall]]
[[$get]]
[[$group]]
[[$height]]
[[$keychar]]
[[$keyrpt]]
[[$keyval]]
[[$lactivewid]]
[[$link]]
[[$menu]]
[[$menucontext]]
[[$menutype]]
[[$passivedcc]]
[[$send]]
[[$sreq]]
[[$vcmd]]
[[$vcmdstat]]
[[$vcmdver]]

== Commands ==
[[comclose]]
[[comopen]]
[[comreg]]
[[creq]]
[[dcc chat]]
[[dcc get]]
[[dcc ignore]]
[[dcc nick]]
[[dcc passive]]
[[dcc reject]]
[[dcc send]]
[[dcc trust]]
[[dccserver]]
[[dll]]
[[drawcopy]]
[[drawdot]]
[[drawfill]]
[[drawline]]
[[drawpic]]
[[drawrect]]
[[drawreplace]]
[[drawrot]]
[[drawsave]]
[[drawscroll]]
[[drawtext]]
[[finger]]
[[font]]
[[fsend]]
[[fserve]]
[[identd]]
[[links]]
[[logview]]
[[mdi]]
[[pdcc]]
[[perform]]
[[playctrl]]
[[renwin]]
[[reseterror]]
[[savebuf]]
[[showmirc]]
[[sockpause]]
[[sound]]
[[sreq]]
[[strip]]
[[tray]]
[[unload]]
[[url]]
[[vcadd]]
[[vcmd]]
[[vcrem]]

== Events ==
[[On connectfail]]
[[On dccserver]]
[[On error]]
[[On filercvd]]
[[On filesent]]
[[On getfail]]
[[On nosound]]
[[On sendfail]]
[[On serverop]]
[[On top]]
[[On user]]
[[On vcmd]]

Binary Files

2014-04-22T01:11:30Z

Jay2k1: added a : in the category so it wouldn't appear on the category page itself

#REDIRECT [[:Category:Binary Files]]

YouTube parser

2014-01-31T11:34:17Z

Jay2k1: updated second regex to support ...&v= youtube links

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[$regml|regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %data | [[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { [[hadd]] -m [[$sockname]] title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m [[$sockname]] dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { [[hadd]] -m [[$sockname]] uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { [[hadd]] -m [[$sockname]] uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }

; if we have seven items in our hash table, we have all data we need
[[If-Then-Else|if]] [[$hget]]([[$sockname]],0).item == 7 {
[[Local_Variables|var]] %t = [[$sockname]]
[[msg]] [[$gettok]]([[$sock]]([[$sockname]]).mark,2,32) ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] , [[$hget]](%t,dur) [[DollarPlus|$+]] , [[$hget]](%t,views) views, rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] )
[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

$bytes

2013-11-08T09:21:41Z

Jay2k1: fixed grammar

Returns comma formatted filesize.

$bytes(''N'',bkmgt3)[.suf]
The '''bkmgt''' options return the result as bytes, kilobytes, megabytes, gigabytes or terabytes.

Using option '''3''' would return the best human readable style with remainders.

The ''suf'' property appends B,KB,MB,GB or TG depending on what formatting is being used.
== Examples ==
[[echo]] -ag $bytes(1024,k) ;Returns ''1'' because there is 1 kilobyte in ''1024'' bytes
echo -ag $bytes(123456,m) ;Returns ''0.12'' because there is 0.12 megabytes in ''123456'' bytes
echo -ag $bytes(1536,3).suf ;Returns ''1.5KB''

echo -ag $bytes([[$file]]([[$sfile]]([[$mircdir]])).size).suf
Returns the size of the file you selected in the best human readable form with its suffix appended.

echo -ag [[$replace]]($bytes(1000000),[[$chr]](44),.)
Returns the number specified by $bytes parameter in following form: "1.000.000".
[[Category:Text and Number Identifiers]]

Auth-Update2

2013-08-06T14:40:17Z

Jay2k1: typo

This snippet is a new version of [[Auth-Update|Auth_update]]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AUTH_UPDATE2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; by Vliedel -- #vliedel @ QuakeNet
; version 2.3 (written and tested on mIRC 6.35)
; made for networks supporting WHOX
;
;
;What does this script do?
;
; - updates the auths of nicks and stores them in a hash table
; - if a channel is too big, /who nick1,nick2,nick3 etc is done until the auths for the channel is updated
; - users who have a site with the auth in it will be saved without a /who
; ie: "Vliedel" in "Vliedel.users.quakenet.org" will be treated as auth on the QuakeNet network
; - users who are not authed (auth 0) will be checked every x time to see if they are authed yet
; - script updates from largest to the smallest channel
;
;
;How to use this script?
;
; - config the options below
; - /load -rs1 auth_update2.mrc to load the script (make sure the script it loaded on top)
; - script starts on load or on join
; - to get the auth of a nick use: $auth(nick) or $auth(nick,cid)
; - to get a nick from an auth use: $auth-nick(auth) or $auth-nick(auth,cid)
; - to recheck a nick that was not authed by command use: /auth.update <nick>
; note that rechecking is done automatically, only use this command if you really want to recheck quickly
; - this script should be loaded as last script in your list for optimal usage
;
; - You can use the following example script to see when a nicks auth is updated
; on *:SIGNAL:authupdate.new:{
; if (!$2) { echo -ag $1 is not authed }
; else { echo -ag $1 is authed as $2 }
; }
;
; - The following signal is send when a requested auth is updated (with /auth.update <nick>)
; on *:SIGNAL:authupdate.req:{
; if ($2 == $null) { echo -ag requested: $1 is not on a common chan }
; elseif ($2 == 0) { echo -ag requested: $1 is not authed }
; else { echo -ag requested: $1 is authed as $2 }
; }
;
; Note that these signals return $2 == $null when someone isn't on a common channel.
; This may occur for example when someone parted a channel between the /who and the who reply.
;
;
;Why is this script good?
;
; - compared with my first auth_update, this script uses less resources, at the cost of a little bit more traffic
; - sending /who chan for every channel is not needed and goes slow (lag)
; - sending /who chan on join may cause Excess Flood or Max sendQ exceeded
; - sending /who chan1,chan2,chan3 can be much faster, but only if there are not too many results (Max sendQ exceeded)
; - unauthed users can auth without you knowing, so you need to check if they're authed every so many time.
;
;
;Since some people do not understand how to use this script on join, here is an example:
;
; on *:JOIN:#:{
; newuser $chan $nick
; }
;
; ; $1 = nick $2 = auth
; on *:SIGNAL:authupdate.new:{
; if (*.users.quakenet.org iswm $ial($1)) { return }
; var %i = 1
; while ($comchan($1,%i)) {
; newuser $v1 $1
; inc %i
; }
; }
;
; ; $1 = chan $2 = nick
; alias -l newuser {
; var %auth = $auth($2)
; if (%auth) { echo 4 -tg $1 $2 is authed as %auth }
; elseif (%auth == 0) { echo 4 -tg $1 $2 is not authed }
; }
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SETTINGS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; maximum number of replies in a WHO, too high may cause 'Max sendQ exceeded' disconnection
; too low may take the script a long time to update the auths, 1000 should be fine for most situations
[[alias]] -l max.replies { [[return]] 1000 }

; maximum length of the /who <string>, too long may cause the server to ignore the command
; too low may slow things down, 400 should be fine in most cases
[[alias]] -l max.len { [[return]] 400 }

; minimum time (seconds) between two /who commands (default 10)
[[alias]] -l delay { [[return]] 10 }

; time (seconds) between the checking if any unauthed users should be rechecked (default 120)
[[alias]] -l queue.delay { [[return]] 120 }

; time (seconds) to recheck if an unauthed user is now authed (default 600)
[[alias]] -l queue.check { [[return]] 600 }

; minimum ratio of (nicks with unknown auth) / (total nicks) in a channel to do /who #channel rather then /who nick,nick, (default 0.09)
[[alias]] -l min.ratio { [[return]] 0.09 }

; minimum nr of nicks with unknown auth in a channel to do /who #channel rather then /who nick,nick, (default 10)
[[alias]] -l min.nicks { [[return]] 10 }

; The networks the script is supposed to work on (case sensitive)
; NOTE that the script ONLY works on networks supporting WHOX (ircu 2.10.* should work)
[[alias]] -l used.network {
[[return]] [[$istokcs]](QuakeNet UnderNet GameSurge HanIRC NetGamers OGameNet,[[$network]],32)
}

; For every network a check to see if a user has a site where his authname is in
; $1 is the site
[[alias]] -l auth.in.site {
[[Local_Variables|var]] %n = [[$network]]
[[If-Then-Else|if]] (%n === QuakeNet) { [[return]] [[$iif]](*.users.quakenet.org iswm [[$1-|$1]],[[$true]]) }
[[If-Then-Else|elseif]] (%n === UnderNet) { [[return]] [[$iif]](*.users.undernet.org iswm [[$1-|$1]],[[$true]]) }
[[If-Then-Else|elseif]] (%n === GameSurge) { [[return]] [[$iif]](*.*.GameSurge iswm [[$1-|$1]],[[$true]]) }
[[If-Then-Else|elseif]] (%n === HanIRC) { [[return]] [[$iif]](*.users.HanIRC.org iswm [[$1-|$1]],[[$true]]) }
[[If-Then-Else|elseif]] (%n === NetGamers) { [[return]] [[$iif]](*.users.netgamers.org iswm [[$1-|$1]],[[$true]]) }
[[If-Then-Else|elseif]] (%n === OGameNet) { [[return]] [[$iif]](*.user.OGameNet iswm [[$1-|$1]],[[$true]]) }
}

; For every network the method to return the auth from the site
; $1 is the site
[[alias]] -l auth.from.site {
[[Local_Variables|var]] %n = [[$network]]
[[If-Then-Else|if]] (%n === QuakeNet) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
[[If-Then-Else|elseif]] (%n === UnderNet) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
[[If-Then-Else|elseif]] (%n === GameSurge) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
[[If-Then-Else|elseif]] (%n === HanIRC) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
[[If-Then-Else|elseif]] (%n === NetGamers) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
[[If-Then-Else|elseif]] (%n === OGameNet) { [[return]] [[$gettok]]([[$1-|$1]],1,46) }
}

; $auth(nick [,cid]) returns the auth of the nick
[[alias]] auth {
[[If-Then-Else|if]] (![[$isid]]) { [[$iif]]([[$show]],.auth,auth) [[$1-|$1-]] | [[return]] }
[[If-Then-Else|if]] ([[$1-|$1]] == [[$null]]) || ([[$1-|$2]] !== [[$null]] && (![[$scid]]([[$1-|$2]]) || ![[$1-|$2]])) { [[return]] }
[[return]] [[$gettok]]([[$hget]]([[$iif]]([[$1-|$2]],[[$1-|$2]],[[$cid]]) [[DollarPlus|$+]] .auths,[[DollarPlus|$+]](auth.,[[$comchan]]([[$1-|$1]],1),[[$chr]](44),[[$1-|$1]])),1,32)
}

; $auth-nick(auth [,cid]) returns the first nick with that auth
[[alias]] auth-nick {
[[If-Then-Else|if]] ([[$1-|$1]] == [[$null]]) || ([[$1-|$2]] !== [[$null]] && (![[$scid]]([[$1-|$2]]) || ![[$1-|$2]])) { [[return]] }
[[return]] [[$gettok]]([[$hfind]]([[$iif]]([[$1-|$2]],[[$1-|$2]],[[$cid]]) [[DollarPlus|$+]] .auths,[[$1-|$1]],1,n).data,-1,44)
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AUTH.UPDATE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; /auth.update nick
[[alias]] auth.update {
[[If-Then-Else|if]] (!$used.network) || (![[$comchan]]([[$1-|$1]],1)) { [[return]] }
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths , %a = [[$hget]](%t,[[DollarPlus|$+]](auth.,[[$comchan]]([[$1-|$1]],1),[[$chr]](44),[[$1-|$1]]))
[[If-Then-Else|if]] (0 * iswm %a) { [[hdel]] -w %t [[DollarPlus|$+]](auth.,*,[[$chr]](44),[[$1-|$1]]) }
[[If-Then-Else|if]] (!%a) || (0 * iswm %a) { au.update n [[$1-|$1]] | [[hadd]] %t req. [[DollarPlus|$+]] [[$1-|$1]] 1 }
[[If-Then-Else|else]] { .[[signal]] authupdate.req [[$1-|$1]] %a }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AU.UPDATE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; $1 = t/n/c/r/d (timer nick chan repeat delay)
; [$1- = n nick]
[[alias]] -l au.update {
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] (![[$hget]](%t)) { [[hmake]] %t }
[[Local_Variables|var]] %tim = au.update.delay. [[DollarPlus|$+]] [[$cid]] , %w = [[$hget]](%t,who) , %l = [[$hget]](%t,wholock)
; when not called by repeat or delay, we probably have something to /who
[[If-Then-Else|if]] (([[$1-|$1]] != r) && ([[$1-|$1]] != d)) { [[hadd]] %t who 1 }
; if we're waiting for reply, don't set timer or /who
[[If-Then-Else|if]] (%l) { [[return]] }
; if called by delay timer and we probably have something to /who, then /who
[[If-Then-Else|if]] (([[$1-|$1]] == d) && (%w)) { au.who | [[return]] }
; if delay timer hasn't been set already, we want to /who or set the timer
[[If-Then-Else|if]] (!$timer(%tim)) {
; if we just joined a chan or just finished a /who, then set delay timer
[[If-Then-Else|if]] (([[$1-|$1]] == c) || ([[$1-|$1]] == r)) { .[[timer]] [[DollarPlus|$+]] %tim 1 $delay au.update d }
[[If-Then-Else|else]] { au.who [[$iif]]([[$1-|$1]] == n,[[$1-|$2]]) }
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; NICKLIST CHANGING EVENTS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on ^*:JOIN:#:{
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] (!$used.network) { [[return]] }
[[If-Then-Else|if]] ([[$nick_(remote)|$nick]] == [[$me]]) {
au.start
[[return]]
}
[[If-Then-Else|if]] (![[$hget]](%t)) { [[return]] }
[[If-Then-Else|if]] ([[$hfind]](%t,[[DollarPlus|$+]](auth.*,[[$chr]](44),[[$nick_(remote)|$nick]]),1,w)) { [[hadd]] %t [[DollarPlus|$+]](auth.,[[$chan_(remote)|$chan]],[[$chr]](44),[[$nick_(remote)|$nick]]) [[$hget]](%t,[[$v1]]) }
[[If-Then-Else|elseif]] ($auth.in.site($site)) { au.upd.nick [[$nick_(remote)|$nick]] $site }
[[If-Then-Else|else]] { au.update n [[$nick_(remote)|$nick]] }
}

;366 Vliedel #vliedel :End of /NAMES list.
RAW 366:*:{
[[Local_Variables|var]] %c = [[$1-|$2]], %i = [[$nick_(nick)|$nick(]]%c,0), %w = auth.* [[DollarPlus|$+]] [[$chr]](44), %it = [[DollarPlus|$+]](auth.,%c,[[$chr]](44)), %t = [[$cid]] [[DollarPlus|$+]] .auths
[[while]] (%i) {
[[Local_Variables|var]] %n = [[$nick_(nick)|$nick(]]%c,%i)
[[If-Then-Else|if]] ([[$hfind]](%t,%w [[DollarPlus|$+]] %n,1,w)) {
[[tokenize]] 32 [[$hget]](%t,[[$v1]])
[[hadd]] %t %it [[DollarPlus|$+]] %n [[$1-|$1]] [[$iif]]([[$1-|$2]],%c) [[$1-|$3]]
}
[[dec]] %i
}
au.update c
}

on *:PART:#:{ au.part [[$chan_(remote)|$chan]] [[$nick_(remote)|$nick]] | au.upd.nick [[$nick_(remote)|$nick]] $site [[$chan_(remote)|$chan]] }
on *:KICK:#:{ au.part [[$chan_(remote)|$chan]] $knick | au.upd.nick [[$nick_(remote)|$nick]] $site }

; $1 = chan $2 = nick
[[alias]] -l au.part {
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] (![[$hget]](%t)) { [[return]] }
[[If-Then-Else|if]] ([[$1-|$2]] == [[$me]]) {
[[hdel]] -w %t auth. [[DollarPlus|$+]] [[$chan_(remote)|$chan]] [[DollarPlus|$+]] ,*
[[hdel]] %t ctime. [[DollarPlus|$+]] [[$chan_(remote)|$chan]]
[[Local_Variables|var]] %i = [[$hfind]](%t,req.*,0,w)
[[while]] (%i) {
[[Local_Variables|var]] %it = [[$hfind]](%t,req.*,%i,w) , %n = [[$gettok]](%it,2,46)
[[If-Then-Else|if]] (%n ison [[$1-|$1]]) && (![[$comchan]](%n,2)) { [[hdel]] %t %it | .[[signal]] authupdate.req %n }
[[dec]] %i
}
}
[[If-Then-Else|else]] {
[[hdel]] %t [[DollarPlus|$+]](auth.,[[$1-|$1]],[[$chr]](44),[[$1-|$2]])
[[If-Then-Else|if]] ([[$hget]](%t,req. [[DollarPlus|$+]] [[$1-|$2]])) && (![[$comchan]]([[$1-|$2]],2)) { [[hdel]] %t req. [[DollarPlus|$+]] [[$1-|$2]] | .[[signal]] authupdate.req [[$1-|$2]] }
}
}

on *:QUIT:{
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] (![[$hget]](%t)) { [[return]] }
[[hdel]] -w %t [[DollarPlus|$+]](auth.,*,[[$chr]](44),[[$nick_(remote)|$nick]])
[[If-Then-Else|if]] ([[$hget]](%t,req. [[DollarPlus|$+]] [[$nick_(remote)|$nick]])) { [[hdel]] %t req. [[DollarPlus|$+]] [[$nick_(remote)|$nick]] | .[[signal]] authupdate.req [[$nick_(remote)|$nick]] }
}

on ^*:NICK:{
[[Local_Variables|var]] %i = [[$comchan]]($newnick,0) , %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] ([[$nick_(remote)|$nick]] == $newnick) || (![[$hget]](%t)) { [[return]] }
[[while]] (%i) {
[[Local_Variables|var]] %it = [[DollarPlus|$+]](auth.,[[$comchan]]($newnick,%i),[[$chr]](44))
[[$iif]]([[$hget]](%t,%it [[DollarPlus|$+]] [[$nick_(remote)|$nick]]),hadd,hdel) %t %it [[DollarPlus|$+]] $newnick [[$v1]]
[[hdel]] %t %it [[DollarPlus|$+]] [[$nick_(remote)|$nick]]
[[dec]] %i
}
[[If-Then-Else|if]] ([[$hget]](%t,req. [[DollarPlus|$+]] [[$nick_(remote)|$nick]])) { [[hadd]] %t req. [[DollarPlus|$+]] $newnick 1 | [[hdel]] %t req. [[DollarPlus|$+]] [[$nick_(remote)|$nick]] }
[[If-Then-Else|if]] ($auth.in.site($site)) { au.upd.nick $newnick $site }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AU.WHO ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; [$1 = nick]
[[alias]] -l au.who {
[[Local_Variables|var]] %t = [[$cid]] [[DollarPlus|$+]] .auths , %t2 = [[$cid]] [[DollarPlus|$+]] .au.who
[[If-Then-Else|if]] ([[$hget]](%t2)) { [[hfree]] %t2 }
[[hmake]] %t2
[[hdel]] %t who
[[If-Then-Else|if]] ([[$1-|$1]]) {
[[Local_Variables|var]] %who = [[$1-|$1]] [[DollarPlus|$+]] ,,, [[DollarPlus|$+]] 137
[[hadd]] %t2 -mask %who
[[hadd]] %t wholock 1
who %who n%nat,137
[[return]]
}
[[Local_Variables|var]] %i = [[$comchan]]([[$me]],0) , %sort , %ticks = [[$ticks]]
[[while]] (%i) {
[[Local_Variables|var]] %sort = %sort [[$nick_(nick)|$nick(]][[$comchan]]([[$me]],%i),0) [[DollarPlus|$+]] . [[DollarPlus|$+]] %i
[[dec]] %i
}
[[Local_Variables|var]] %sort = [[$sorttok]](%sort,32,n) , %i = [[$numtok]](%sort,32) , %maxlen = $max.len , %n.max = $max.replies , %time = [[$calc]]([[$ctime]] - $queue.check) , %ids , %n.w , %len, %chans
[[while]] (%i) {
[[Local_Variables|var]] %c = [[$comchan]]([[$me]],[[$gettok]]([[$gettok]](%sort,%i,32),2,46)) , %n.0 = [[$hfind]](%t,0 %c &,0,w).data , %n.c = [[$nick_(nick)|$nick(]]%c,0)
[[Local_Variables|var]] %n.l = [[$calc]](%n.c - [[$hfind]](%t,[[DollarPlus|$+]](auth.,%c,[[$chr]](44),*),0,w) + [[$iif]](%time < [[$hget]](%t,ctime. [[DollarPlus|$+]] %c),0,%n.0))
[[If-Then-Else|if]] ([[$calc]](%len + [[$len]](%c) +1) > %maxlen) || ([[$calc]](%n.w + %n.c) > %n.max) { [[dec]] %i | [[continue]] }
[[If-Then-Else|if]] (%n.l > 1) && ((%n.l >= $min.nicks) || ([[$calc]](%n.l / %n.c) >= $min.ratio)) {
[[Local_Variables|var]] %chans = %chans %c
[[hadd]] %t ctime. [[DollarPlus|$+]] %c [[$ctime]]
[[Local_Variables|var]] %j = [[$nick_(nick)|$nick(]]%c,0)
[[while]] (%j) {
[[Local_Variables|var]] %n = [[$nick_(nick)|$nick(]]%c,%j)
[[If-Then-Else|if]] (![[$hget]](%t2,%n)) { [[hadd]] %t2 %n 1 | [[inc]] %n.w }
[[dec]] %j
}
[[inc]] %len [[$calc]]([[$len]](%c) +1)
}
[[dec]] %i
}
[[Local_Variables|var]] %i = [[$comchan]]([[$me]],0) , %nicks
[[while]] (%i) {
[[Local_Variables|var]] %c = [[$comchan]]([[$me]],%i)
[[If-Then-Else|if]] (![[$istok]](%chans,%c,32)) {
[[If-Then-Else|if]] ([[$calc]]([[$nick_(nick)|$nick(]]%c,0) - [[$hfind]](%t,[[DollarPlus|$+]](auth.,%c,[[$chr]](44),*),0,w)) > 0) {
[[Local_Variables|var]] %j = [[$nick_(nick)|$nick(]]%c,0)
[[while]] (%j) {
[[Local_Variables|var]] %n = [[$nick_(nick)|$nick(]]%c,%j)
[[If-Then-Else|if]] ([[$calc]](%len + [[$len]](%n) +1) > %maxlen) { [[goto]] end }
[[Local_Variables|var]] %val = [[$hget]](%t,[[DollarPlus|$+]](auth.,%c,[[$chr]](44),%n))
[[If-Then-Else|if]] (![[$hget]](%t2,%n)) && ((%val == [[$null]]) || ([[$gettok]](%val,3,32) < %time)) { [[Local_Variables|var]] %nicks = %nicks %n | [[hadd]] %t2 %n 1 | [[inc]] %n.w | [[inc]] %len [[$len]](%n) }
[[If-Then-Else|if]] (%n.w >= %n.max) { [[goto]] end }
[[dec]] %j
}
}
[[If-Then-Else|else]] {
[[Local_Variables|var]] %j = [[$hfind]](%t,0 %c &,0,w).data
[[while]] (%j) {
[[Local_Variables|var]] %it = [[$hfind]](%t,0 %c &,%j,w).data , %n = [[$gettok]](%it,2,44)
[[If-Then-Else|if]] ([[$calc]](%len + [[$len]](%n) +1) > %maxlen) { [[goto]] end }
[[If-Then-Else|if]] (![[$hget]](%t2,%n)) && ([[$gettok]]([[$hget]](%t,%it),3,32) < %time) && (auth.* iswm %it) { [[Local_Variables|var]] %nicks = %nicks %n | [[hadd]] %t2 %n 1 | [[inc]] %n.w | [[inc]] %len [[$len]](%n) }
[[If-Then-Else|if]] (%n.w >= %n.max) { [[goto]] end }
[[dec]] %j
}
}
}
[[dec]] %i
}
:end
[[Local_Variables|var]] %who = [[$replace]](%chans %nicks,[[$chr]](32),[[$chr]](44))
[[If-Then-Else|if]] (%who) {
[[Local_Variables|var]] %who = %who [[DollarPlus|$+]] ,,, [[DollarPlus|$+]] 137
[[hadd]] %t2 -mask %who
[[hadd]] %t wholock 1
who %who n%nat,137
[[If-Then-Else|if]] (%len > [[$calc]](%maxlen * 0.7)) || (%n.w > [[$calc]](%n.max * 0.7)) { [[hadd]] %t who 1 }
}
[[If-Then-Else|else]] { au.update r }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; RAW REPLIES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; RAW 354 SPECIAL WHO REPLY
; 354 <you> <nr> <nick> <auth>
; 354 Vliedel 137 sy rry
RAW 354:& 137 & &:{
[[haltdef]]
[[Local_Variables|var]] %i = [[$comchan]]([[$1-|$3]],0) , %t = [[$cid]] [[DollarPlus|$+]] .auths
[[If-Then-Else|if]] ([[$hget]](%t,req. [[DollarPlus|$+]] [[$1-|$3]])) { [[hdel]] %t req. [[DollarPlus|$+]] [[$1-|$3]] | .[[signal]] authupdate.req [[$1-|$3]] [[$iif]](%i,[[$1-|$4]]) }
[[If-Then-Else|if]] (!%i) || (![[$hget]](%t)) { [[return]] }
[[If-Then-Else|if]] ([[$gettok]]([[$hget]](%t,[[DollarPlus|$+]](auth.,[[$comchan]]([[$1-|$3]],1),[[$chr]](44),[[$1-|$3]])),1,32) !== [[$1-|$4]]) { .[[signal]] authupdate.new [[$1-|$3]] [[$1-|$4]] }
[[while]] (%i) {
[[Local_Variables|var]] %c = [[$comchan]]([[$1-|$3]],%i)
[[hadd]] %t [[DollarPlus|$+]](auth.,%c,[[$chr]](44),[[$1-|$3]]) [[$1-|$4]] [[$iif]](![[$1-|$4]],%c [[$ctime]])
[[dec]] %i
}
}

; RAW 315 WHO END
; 315 <you> <requested> :End of /who list.
; 315 Vliedel #vliedel,,,137 :End of /WHO list.
RAW 315:& *,,,137 end of /WHO list.: {
[[If-Then-Else|if]] ([[$hget]]([[$cid]] [[DollarPlus|$+]] .au.who,-mask) == [[$1-|$2]]) {
[[Local_Variables|var]] %who = [[$left]]([[$1-|$2]],-6) , %i = [[$wildtok]](%who,#*,0,44) , %t = [[$cid]] [[DollarPlus|$+]] .auths
[[while]] (%i) {
[[hadd]] %t ctime. [[DollarPlus|$+]] [[$wildtok]](%who,#*,%i,44) [[$ctime]]
[[dec]] %i
}
[[hfree]] [[$cid]] [[DollarPlus|$+]] .au.who
[[hdel]] %t wholock
au.update r
[[haltdef]]
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STARTING AND STOPPING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:LOAD:{ scon -at1 au.load l }
[[alias]] -l au.load {
au.stop
au.start
au.update t
}

[[alias]] -l au.stop {
.[[timer]] [[DollarPlus|$+]] au.update. [[DollarPlus|$+]] [[$cid]] off
.[[timer]] [[DollarPlus|$+]] au.update.delay. [[DollarPlus|$+]] [[$cid]] off
[[If-Then-Else|if]] ([[$hget]]([[$cid]] [[DollarPlus|$+]] .auths)) { [[hfree]] [[$v1]] }
[[If-Then-Else|if]] ([[$hget]]([[$cid]] [[DollarPlus|$+]] .au.who)) { [[hfree]] [[$v1]] }
}

[[alias]] -l au.start {
[[If-Then-Else|if]] (!$used.network) { [[return]] }
[[If-Then-Else|if]] (![[$hget]]([[$cid]] [[DollarPlus|$+]] .auths)) { [[hmake]] [[$cid]] [[DollarPlus|$+]] .auths }
[[If-Then-Else|if]] (!$timer(au.update. [[DollarPlus|$+]] [[$cid]])) { .[[timer]] [[DollarPlus|$+]] au.update. [[DollarPlus|$+]] [[$cid]] 0 $queue.delay au.update t }
}

on *:DISCONNECT:{ au.stop }
on *:UNLOAD:{ scon -a au.stop }

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; IAL-UPDATING EVENTS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on ^*:TEXT:*:*:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
on ^*:ACTION:*:*:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
on ^*:NOTICE:*:*:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
on ^*:RAWMODE:#:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
on ^*:TOPIC:#:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
on ^*:INVITE:#:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
[[CTCP]] *:*:*:{ au.upd.nick [[$nick_(remote)|$nick]] $site }
RAW 352:& & & & & & & & *:{ au.upd.nick [[$1-|$6]] [[$1-|$4]] }

; $1 = nick $2 = site [ $3 = chan (exclude it)]
[[alias]] -l au.upd.nick {
[[If-Then-Else|if]] (!$auth.in.site([[$1-|$2]])) || (![[$hget]]([[$cid]] [[DollarPlus|$+]] .auths)) { [[return]] }
[[Local_Variables|var]] %i = [[$comchan]]([[$1-|$1]],0) , %t = [[$cid]] [[DollarPlus|$+]] .auths , %au = $auth.from.site([[$1-|$2]])
[[If-Then-Else|if]] (!%i) || (%i == 1 && [[$1-|$3]]) || ([[$hget]](%t,[[DollarPlus|$+]](auth.,[[$comchan]]([[$1-|$1]],1),[[$chr]](44),[[$1-|$1]])) == %au) { [[return]] }
[[while]] (%i) {
[[If-Then-Else|if]] ([[$comchan]]([[$1-|$1]],%i) !== [[$1-|$3]]) { [[hadd]] %t [[DollarPlus|$+]](auth.,[[$v1]],[[$chr]](44),[[$1-|$1]]) %au }
[[dec]] %i
}
.[[signal]] authupdate.new [[$1-|$1]] %au
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USED DATA/TIMERS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; TABLE <cid>.auths
;auth.<chan>,<nick> --> <auth> [chan ctime]
;req.<nick> --> 1
;ctime.<chan> --> <ctime>
;who --> <1/null>
;wholock --> <1/null>

; TABLE <cid>.au.who
; nick --> 1
; -mask --> /who string

; TIMER au.update.delay.<cid>
; TIMER au.update.<cid>

[[Category:Script_Archive]]

$biton

2013-07-18T18:07:39Z

Jay2k1: fixed c/p mistake

Biton returns the given number with the Nth bit turned on.

$biton(decimal number, N)

* Decimal number is the number to perform the operation on given in decimal form (Base 10)
* N is the bit to turn on.

==Example==
$biton(5,2)

The binary value of 5 is taken
00000101

And the second bit is turned on(second from the right)
00000111

Returns: 7

[[Category:Bitwise Identifiers]]

$snicks

2013-07-17T18:26:47Z

Jay2k1: /* See Also */ typo hunting

$snicks
Returns a string of the currently selected nicknames in the active channel listbox in the form:
nick1,nick2,nick3,...,nickN
==Example==
$snicks
Returns Dana,G,Q when those nicknames are selected in the nicklist.
==See Also==
* [[$snick]] - returns the Nth selected nickname on a channel
* [[$snotify]] - returns the currently selected nickname from your notify list box
[[Category:Nick and Address Identifiers]]

Debugging (Find The Bug)

2013-07-13T17:24:43Z

Jay2k1: Removed another "please contribute" line. Seems the whole article has been copy pasted from holycraplions.com/findthebug when it still existed.

== Why am I Here? ==

If you've come wandering upon this document it is likely that you are having trouble with a script that you wrote. It is probably fully written, but doesn't seem to work as it should, for one reason or another. The purpose of this document is therefore to teach you how to debug your own scripts, making the coding process easier and more efficient. Don't get discouraged, debugging is not hard. Debugging is a logical process that can be easily learned and applied if you follow the steps involved.

If you happen to already know enough about debugging, but just can't seem to figure out what is going wrong with a script you wrote, you should take a look at section 5, in which some Common Scripting Pitfalls are discussed.

== The Basics of Debugging ==

If a script does not work, the logical process is to find out why, so that it may be fixed. DO NOT take for granted the first step I mentioned, in which you must find out why your script does not work. When first dealing with any bugged script, your frame of mind should never be, "this needs to be fixed". Instead you should first be asking the question "why does this not work?" Once you answer that question you can move on to fixing it and the fix is usually much simpler than the debugging process itself. Think of debugging similar to a medical situation. Before you treat a patient, you must always diagnose him or her first. This concept applies the same way in debugging.

A lot of people asking for help on IRC or in forums are basically just asking for other people to debug their scripts, instead of helping them with something the person asking doesn't understand. Don't expect much respect if you ask people to bugfix for you.

== The Steps of Debugging ==

Practically speaking, to diagnose a bugged script you should follow the set of steps which I will now begin explaining.

=== Narrow it Down! ===

"Narrow it down" is probably one of the best phrases to keep in mind when debugging a script. Often a scripter will ask for help with a script that doesn't seem to trigger, but he will paste his entire script, which happens to be 100 or so lines of code. The truth is that it is rarely necessary to look at more than 5-10 lines of code at a time. While debugging you should constantly be narrowing down which lines of code the bug is affecting, or which lines of code simply do not work.

But don't stop there; a line of code can easily become too general still. Continue to narrow down your search as much as possible. Sometimes it will be necessary to narrow things down to the smallest character (this has definitely been the source of many bugs I've seen in the past). Remember that sometimes a bug can be as simple as a typo or spelling mistake.

The question you are probably asking is how exactly you "narrow down" a search for a bug? "What should I be looking for?" There are many things to look for; here are some methods you can use to find out which part of your script is not functioning properly:

=== Look for Error Messages ===

Sometimes if mIRC breaks a script errantly it will echo the error information locally. This is usually found in the status window of your active connection id (unless your command explicitly used another connection id). If you get such an error it might inform you of the line it halted execution on. This is very useful to narrow your bug search to a certain line. If no line is mentioned you will most likely get the command, which is also very helpful. You can then go look up each time you used that command in your script.

=== Be Verbose ===

Verbose means to be audible. In the context of mIRC scripting it means to /echo data to the screen. Usually a debugger should try to echo as much information as often as possible.

If you have a variable that does not have the right value, it is best to echo that variable right after you set it to find out what value it took on. This can easily narrow your code down to a line in one simple step.

Another possibility is that a line of code isn't being executed at all (how do I know this, you ask? Well if it's a command such as /kick it is very easy to tell if it executes or not, however if it is a silent command, try tacking on a /echo inside the command itself to see if it executes). In such a case it is a good idea to drop in /echo commands along your code flow, regardless of what it actually echoes.

Consider the following example:

alias function_name {
echo -a Started execution
if (a == a) {
echo -a Got to first level if
if (b == b) {
; mIRC should get here,
; but lets find out
echo -a Got to second level
; Imagine this next if is a typo
if (defcon == defdcon) {
echo -a Got to third level
}
}
}
echo -a Ending function
}

Output:
Started execution
Got to first level if
Got to second level
Ending function

From this it should be clear that mIRC did not reach the last nested if-statement. You can now do further tests to find out why your if statement failed. In our case it was a typo, we really meant to say 'defcon' instead of 'defdcon'.

Another way to use echo is echo'ing big or complicated identifiers, or even entire commands, to see if they actually parse into what you want them to be.

=== Check Brackets and Syntax ===

This may seem trivial, but it is always important to make sure your script has as many open brackets as close brackets and also follow mIRC's basic syntax rules. I will outline some basic syntax rules that mIRC uses:

Basic Syntax Rules

* Braces {} must always be spaced out and never touch any other character. There is one exception to this rule, but if you always space your braces out you should not have a problem. This also applies to the pipe | character used for dealing with multiple commands.

* Multiple commands should generally be surrounded by braces. It is not necessary to use a new line for each command, but keep in mind the multiple command structure:

On one line:

ALIAS/EVENT { command 1 | command 2 | command 3 }

On multiple lines:

ALIAS/EVENT {
command 1
command 2
command 3
}

On both multiple and single lines:

ALIAS/EVENT {
command 1 | command 2
command 3
command 4
}

Note that the opening brace can never be on its own on a line. Consider the following:

ALIAS/EVENT
{
command
}

Some languages allow this syntax. This is not valid in mIRC. The opening brace can never begin a line.

* The If control structure is command based in mIRC. As such, it must be properly spaced just like all commands. Some languages allow the use of:

if(condition)

This is also not valid in mIRC. In such a case, you would actually be performing the command of /if(condition), which most likely does not exist. The condition (including the brackets) in mIRC if statements is a parameter, and must follow the if statement with a space.

As far as braces go (the { } characters), mIRC can check this automatically in the script editor by clicking the "{ }" button. If mIRC says you have a mismatch, fix it before going further; it is likely that this is the cause of your bug.

When dealing with if statements it is always important to make sure you have the same amount of opening brackets as closing brackets. Sometimes mIRC will not report this error and will automatically fail the if statement and continue execution. If you read section 3.3 you may have used the echo method to find out which if statement is not being triggers. In such a case, the first thing you should do is count the brackets and look at general syntax as described above.

=== Simplify Complicated and Suspicious Code ===

If you were unsuccessful in tracking down your bug using any of the other methods mentioned above, try looking for suspicious code. If you wrote a line of code that you just aren't sure about, try looking closer at that line. Similarly, if you have a very complex line of code in your script, try looking at that one first. A good way to handle a situation like this is to change the line to something very simple, and see if it works. If it does then you know that your problem lies in the code that you changed. If not then you can be certain that the bug you're looking for does not lie in your complex code. (Although be aware that you shouldn't now automatically trust it completely, as there may still be issues with it which won't be apparent until the current bug is fixed, for example.)

== Final Notes ==

Remember that when you're debugging a script it is more important to find out why your script is failing than to fix it. An mIRC support channel can easily aid a scripter solve his problem when it is clear what the problem is. In essence, if you cannot solve a problem it is important that you at least understand what problem it is that you're having, that way you can get the help you need from an outside source. That is the purpose of debugging a script; not to directly fix, but to set yourself on a course to implement such a fix.

== Common Scripting Pitfalls ==

Conflicting Event Matching

A Scripter will often put the following line of code in his Remotes and it will not trigger:

on 1:TEXT:!trigger *:#: { commands }

There is nothing wrong with this code. It should trigger fine. However in his script (higher up in the file) he also has the following line:

on 1:TEXT:*:#: { commands }

The reason his !trigger is not working is that mIRC goes downwards through a script file finding the first event that matches. Since '*' is more global than '!trigger *', mIRC will not reach his !trigger event. To fix this the scripter must either reverse the order which they appear in the file, or put the !trigger in a new script file, so that mIRC will execute both.

* Note: this also occurs for any other events that match for the same input

Using " " In Filenames

Always use " " when dealing with files and directories, to make sure mIRC understands directories with spaces in the name. It's a good habit to always use them, even when you aren't expecting any spaces.

/rename c:\Program Files\Half-life\hl.exe c:\Program Files\Half-Life\hl2.exe

This won't work.

/rename "c:\Program Files\Half-life\hl.exe" "c:\Program Files\Half-Life\hl2.exe"

This will.

'=' Is Not '=='

Remember to always use == when you are comparing objects in if's or while loops. This counts for every programming language. == is for comparing, = is for assigning.

alias istest {
if (100 == 100) {
var %pie = 8
}
}

Remember That Some Commands Have Delays

Not all commands are completed the moment you start them. Some command require you to wait. this pretty much counts for every command that requires a reply from the server or from other clients or connections. For example, this won't work:

on *:DEOP:#:{
if ($opnick == $me) {
;check if we are being deopped
msg BOTNICK op $chan
;requesting op
kick $chan $nick Don't deop me!
;kick the person that deopped you
}
}

It won't work because when you ask for op status, there is a delay between the time that you ask it and the time that you actually get it. Even if it's just a few milliseconds, the script goes too fast for it. There are two ways to solve it; either put the kick command in a timer or use a separate on op event for the kick.

Using $read With The s Flag

When you use $read with the s flag to scan for a line starting with a certain word, keep in mind that the result will NOT include the word you were searching for itself! It returns everything after the word you scanned with.

So if you had a textfile with a line that said "ParaSite` is the greatest" and you used $read(textfile.txt,s,ParaSite`), it would return "is the greatest".

[[Category:Debugging]]
[[Category:Tutorials]]

Debugging (Find The Bug)

2013-07-13T17:21:27Z

Jay2k1: removed dead link and paragraph about contributing

'''Find the Bug v1.1.1.34 argv[0]'s Guide to mIRC Debugging This project is now OpenText. Please contribute! Last edit by: argv[0] at 2006-06-03 12:53:46'''

== Why am I Here? ==

If you've come wandering upon this document it is likely that you are having trouble with a script that you wrote. It is probably fully written, but doesn't seem to work as it should, for one reason or another. The purpose of this document is therefore to teach you how to debug your own scripts, making the coding process easier and more efficient. Don't get discouraged, debugging is not hard. Debugging is a logical process that can be easily learned and applied if you follow the steps involved.

If you happen to already know enough about debugging, but just can't seem to figure out what is going wrong with a script you wrote, you should take a look at section 5, in which some Common Scripting Pitfalls are discussed.

== The Basics of Debugging ==

If a script does not work, the logical process is to find out why, so that it may be fixed. DO NOT take for granted the first step I mentioned, in which you must find out why your script does not work. When first dealing with any bugged script, your frame of mind should never be, "this needs to be fixed". Instead you should first be asking the question "why does this not work?" Once you answer that question you can move on to fixing it and the fix is usually much simpler than the debugging process itself. Think of debugging similar to a medical situation. Before you treat a patient, you must always diagnose him or her first. This concept applies the same way in debugging.

A lot of people asking for help on IRC or in forums are basically just asking for other people to debug their scripts, instead of helping them with something the person asking doesn't understand. Don't expect much respect if you ask people to bugfix for you.

== The Steps of Debugging ==

Practically speaking, to diagnose a bugged script you should follow the set of steps which I will now begin explaining.

=== Narrow it Down! ===

"Narrow it down" is probably one of the best phrases to keep in mind when debugging a script. Often a scripter will ask for help with a script that doesn't seem to trigger, but he will paste his entire script, which happens to be 100 or so lines of code. The truth is that it is rarely necessary to look at more than 5-10 lines of code at a time. While debugging you should constantly be narrowing down which lines of code the bug is affecting, or which lines of code simply do not work.

But don't stop there; a line of code can easily become too general still. Continue to narrow down your search as much as possible. Sometimes it will be necessary to narrow things down to the smallest character (this has definitely been the source of many bugs I've seen in the past). Remember that sometimes a bug can be as simple as a typo or spelling mistake.

The question you are probably asking is how exactly you "narrow down" a search for a bug? "What should I be looking for?" There are many things to look for; here are some methods you can use to find out which part of your script is not functioning properly:

=== Look for Error Messages ===

Sometimes if mIRC breaks a script errantly it will echo the error information locally. This is usually found in the status window of your active connection id (unless your command explicitly used another connection id). If you get such an error it might inform you of the line it halted execution on. This is very useful to narrow your bug search to a certain line. If no line is mentioned you will most likely get the command, which is also very helpful. You can then go look up each time you used that command in your script.

=== Be Verbose ===

Verbose means to be audible. In the context of mIRC scripting it means to /echo data to the screen. Usually a debugger should try to echo as much information as often as possible.

If you have a variable that does not have the right value, it is best to echo that variable right after you set it to find out what value it took on. This can easily narrow your code down to a line in one simple step.

Another possibility is that a line of code isn't being executed at all (how do I know this, you ask? Well if it's a command such as /kick it is very easy to tell if it executes or not, however if it is a silent command, try tacking on a /echo inside the command itself to see if it executes). In such a case it is a good idea to drop in /echo commands along your code flow, regardless of what it actually echoes.

Consider the following example:

alias function_name {
echo -a Started execution
if (a == a) {
echo -a Got to first level if
if (b == b) {
; mIRC should get here,
; but lets find out
echo -a Got to second level
; Imagine this next if is a typo
if (defcon == defdcon) {
echo -a Got to third level
}
}
}
echo -a Ending function
}

Output:
Started execution
Got to first level if
Got to second level
Ending function

From this it should be clear that mIRC did not reach the last nested if-statement. You can now do further tests to find out why your if statement failed. In our case it was a typo, we really meant to say 'defcon' instead of 'defdcon'.

Another way to use echo is echo'ing big or complicated identifiers, or even entire commands, to see if they actually parse into what you want them to be.

=== Check Brackets and Syntax ===

This may seem trivial, but it is always important to make sure your script has as many open brackets as close brackets and also follow mIRC's basic syntax rules. I will outline some basic syntax rules that mIRC uses:

Basic Syntax Rules

* Braces {} must always be spaced out and never touch any other character. There is one exception to this rule, but if you always space your braces out you should not have a problem. This also applies to the pipe | character used for dealing with multiple commands.

* Multiple commands should generally be surrounded by braces. It is not necessary to use a new line for each command, but keep in mind the multiple command structure:

On one line:

ALIAS/EVENT { command 1 | command 2 | command 3 }

On multiple lines:

ALIAS/EVENT {
command 1
command 2
command 3
}

On both multiple and single lines:

ALIAS/EVENT {
command 1 | command 2
command 3
command 4
}

Note that the opening brace can never be on its own on a line. Consider the following:

ALIAS/EVENT
{
command
}

Some languages allow this syntax. This is not valid in mIRC. The opening brace can never begin a line.

* The If control structure is command based in mIRC. As such, it must be properly spaced just like all commands. Some languages allow the use of:

if(condition)

This is also not valid in mIRC. In such a case, you would actually be performing the command of /if(condition), which most likely does not exist. The condition (including the brackets) in mIRC if statements is a parameter, and must follow the if statement with a space.

As far as braces go (the { } characters), mIRC can check this automatically in the script editor by clicking the "{ }" button. If mIRC says you have a mismatch, fix it before going further; it is likely that this is the cause of your bug.

When dealing with if statements it is always important to make sure you have the same amount of opening brackets as closing brackets. Sometimes mIRC will not report this error and will automatically fail the if statement and continue execution. If you read section 3.3 you may have used the echo method to find out which if statement is not being triggers. In such a case, the first thing you should do is count the brackets and look at general syntax as described above.

=== Simplify Complicated and Suspicious Code ===

If you were unsuccessful in tracking down your bug using any of the other methods mentioned above, try looking for suspicious code. If you wrote a line of code that you just aren't sure about, try looking closer at that line. Similarly, if you have a very complex line of code in your script, try looking at that one first. A good way to handle a situation like this is to change the line to something very simple, and see if it works. If it does then you know that your problem lies in the code that you changed. If not then you can be certain that the bug you're looking for does not lie in your complex code. (Although be aware that you shouldn't now automatically trust it completely, as there may still be issues with it which won't be apparent until the current bug is fixed, for example.)

== Final Notes ==

Remember that when you're debugging a script it is more important to find out why your script is failing than to fix it. An mIRC support channel can easily aid a scripter solve his problem when it is clear what the problem is. In essence, if you cannot solve a problem it is important that you at least understand what problem it is that you're having, that way you can get the help you need from an outside source. That is the purpose of debugging a script; not to directly fix, but to set yourself on a course to implement such a fix.

== Common Scripting Pitfalls ==

Conflicting Event Matching

A Scripter will often put the following line of code in his Remotes and it will not trigger:

on 1:TEXT:!trigger *:#: { commands }

There is nothing wrong with this code. It should trigger fine. However in his script (higher up in the file) he also has the following line:

on 1:TEXT:*:#: { commands }

The reason his !trigger is not working is that mIRC goes downwards through a script file finding the first event that matches. Since '*' is more global than '!trigger *', mIRC will not reach his !trigger event. To fix this the scripter must either reverse the order which they appear in the file, or put the !trigger in a new script file, so that mIRC will execute both.

* Note: this also occurs for any other events that match for the same input

Using " " In Filenames

Always use " " when dealing with files and directories, to make sure mIRC understands directories with spaces in the name. It's a good habit to always use them, even when you aren't expecting any spaces.

/rename c:\Program Files\Half-life\hl.exe c:\Program Files\Half-Life\hl2.exe

This won't work.

/rename "c:\Program Files\Half-life\hl.exe" "c:\Program Files\Half-Life\hl2.exe"

This will.

'=' Is Not '=='

Remember to always use == when you are comparing objects in if's or while loops. This counts for every programming language. == is for comparing, = is for assigning.

alias istest {
if (100 == 100) {
var %pie = 8
}
}

Remember That Some Commands Have Delays

Not all commands are completed the moment you start them. Some command require you to wait. this pretty much counts for every command that requires a reply from the server or from other clients or connections. For example, this won't work:

on *:DEOP:#:{
if ($opnick == $me) {
;check if we are being deopped
msg BOTNICK op $chan
;requesting op
kick $chan $nick Don't deop me!
;kick the person that deopped you
}
}

It won't work because when you ask for op status, there is a delay between the time that you ask it and the time that you actually get it. Even if it's just a few milliseconds, the script goes too fast for it. There are two ways to solve it; either put the kick command in a timer or use a separate on op event for the kick.

Using $read With The s Flag

When you use $read with the s flag to scan for a line starting with a certain word, keep in mind that the result will NOT include the word you were searching for itself! It returns everything after the word you scanned with.

So if you had a textfile with a line that said "ParaSite` is the greatest" and you used $read(textfile.txt,s,ParaSite`), it would return "is the greatest".

[[Category:Debugging]]
[[Category:Tutorials]]

$longip

2013-07-12T20:33:41Z

Jay2k1: now the line breaks get rendered.

Converts an IP address into a long ip address, and a long ip address into a short ip address.

$longip(IP/longip)

==The Principal==
A long IP address is an integer that represents an ip address.
Consider the IP Address 192.168.2.4

$longip(192.168.2.4) = 3232236036

This is equal to (192*256^3)+(168*256^2)+(2*256^1)+(4*256^0)
[[$calc]]((192*256^3)+(168*256^2)+(2*256^1)+(4*256^0)) = 3232236036

or C0A80204 (The [[$base|base]] 16 value of each byte put together)

[[$base]](C0A80204,16,10) = 3232236036

==See Also==
[[$ip]] To get your local IP address<br />
[[$base]] To convert between decimal and hexadecimal<br />
[[$calc]] To perform calculations

[[Category:Identifiers]]

$regsub

2013-07-12T20:26:37Z

Jay2k1: one less typo

'''$regsub([name], text, re, subtext, %var)'''

Performs a regular expression match, like [[$regex|$regex()]], and then performs a substitution using subtext.<br />
Returns N, the number of substitutions made, and assigns the result to %var.

Example:
alias testing {
var %num_of_matches = $regsub(a dog was eating milk,/dog/g,cat,%new_content)
;%num_of_matches will have a value of 1, since 'dog' was matched once
;%new_content will be 'a cat was eating milk'
}

[[Category:Regular_Expression]]
[[Category:Identifiers]]

$(...) (events)

2013-07-10T23:09:11Z

Jay2k1: Created page with "This identifier allows you to create a dynamic match parameter in an event. $(...) You can use $1- to reference the incoming line. == Example == On *:TEXT:..."

This identifier allows you to create a dynamic match parameter in an event.
$(...)

You can use [[$1-]] to reference the incoming line.

== Example ==
[[On_text|On *:TEXT]]:$(* [[DollarPlus|$+]] [[$me]] $+ *):#: {
[[echo]] -a [[$nick]] just mentioned your nickname in [[$chan]] $+ .
}
This example will echo to your active window whenever someone mentioned your nickname.

== Note ==
You must use $(...) in the match text event for all other identifiers to be evaluated.

Correct:
on *:text:$(hello [[$me]] *):#: { ... }
''Incorrect:
on *:text:hello $($me) *:#: { ... }''

$(...) is an alias of [[$eval]]. See the $eval page for more information on how it is used.

== See also ==
* [[$eval]]
[[Category:Remote Identifiers]]

$(...)

2013-07-10T23:08:02Z

Jay2k1: rephrasing for clarity

== Categories ==
* [[$(...) (events)|$(...)]] Using identifiers in event match text
* [[$eval|$(...)]] Evaluating strings

{{Disambling}}
[[Category:Remote Identifiers]]

$(...)

2013-07-10T23:04:50Z

Jay2k1: move text into new page, make this a disambiguation page

== Categories ==
* [[$(...) (matching text)|$(...)]] Matching text in events
* [[$eval|$(...)]] Evaluating strings

{{Disambling}}
[[Category:Remote Identifiers]]

$()

2013-07-10T22:59:55Z

Jay2k1: redirect to $(...)

#Redirect [[$(...)]]

$

2013-07-10T22:59:14Z

Jay2k1: this has nothing to do with $+, rather $()

#REDIRECT [[$(...)]]

$+

2013-07-10T21:45:39Z

Jay2k1: removed the "name as is due to technical limitations" note

The identifier $+ is used to combine (concatenate) items together when it's impossible just to write them together due to variables or identifiers.

$+ OR $+(...)

The identifier $+ can be used two different ways. One way is just as $+ between items and another one is by passing arguments such as $+(item1, item2, ..., itemN)

here we have so $+ me text ;returns ''here we have some text''
$+(here,we,have,some,te $+ xt) ;returns ''herewehavesometext''

When used that way, the identifier doesn't look too useful. But when we have a variable or identifier as an item, it's necessary to use either of these $+.

[[msg]] [[$chan]] You are [[$nick]] ( $+ [[$fulladdress]] $+ ) could return ''You are Dana (Dana!dana@script.quakenet.org)''
[[msg]] [[$chan]] You are very smart $+([[$nick]],;) welcome to [[$chan]] $+ . could return ''You are very smart Dana; welcome to #brainiacs.''

Notice how if we had used $chan. or $nick; mIRC would look for identifiers with these names and return nothing.

[[Category:Other Identifiers]]

DollarPlus

2013-07-10T21:44:42Z

Jay2k1: redirect to $+ as this is now possible as page name. Keeping as redirect so old links keep working

#Redirect [[$+]]

Listing hash tables and their contents

2013-07-10T19:34:03Z

Jay2k1: Created page with "When you are working on a script that uses hash tables, sometimes you want to see their contents. In contrast to text or ini files, you can't just view them in an easy way. Th..."

When you are working on a script that uses hash tables, sometimes you want to see their contents. In contrast to text or ini files, you can't just view them in an easy way. That's where this script comes into play.

You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

/*
***************************************************************************************
*
* hlist.mrc by Jay2k1 @ QuakeNet, 2013
*
* shows the contents of hash tables in alphabetically sorted custom windows
*
***************************************************************************************
*
* USAGE
*
* /hlist [-c|--close] [(partial) table name]
*
* When used without options, /hlist will open a sorted window for every hash table and display their contents.
* When used with a hash table name, it will only display that hash table's contents.
* It can be used with partial names, e.g. you have the tables "joins_#help" and "joins_#help.script", the
* command '/hlist joins' would display both of these.
* The -c switch closes the windows. Again, you can specify a full or partial hash table name.
*
***************************************************************************************
*
* SETTINGS
*/
[[alias]] -l hlist.pad {
; set this to $true if you want the hash table data column to be padded (only useful with monospaced font,
; e.g. Fixedsys) or to $false if not.
[[return]] [[$true]]
}
[[alias]] -l hlist.prefix {
; this is the prefix for the custom window's names. Default is HT_
[[return]] HT_
}
/*
***************************************************************************************
*/

[[alias]] hlist {
; without any arguments, list all hash tables
[[If-Then-Else|if]] ![[$1-|$1]] { [[Local_Variables|var]] %a = [[$hget]](0) | [[while]] %a { hlist.show [[$hget]](%a) | [[dec]] %a } }

; closing windows
[[If-Then-Else|elseif]] ([[$1-|$1]] == -c) || ([[$1-|$1]] == --close) {

; without further arguments, close all windows
[[If-Then-Else|if]] ![[$1-|$2]] {
[[Local_Variables|var]] %a = [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*),0)

[[while]] %a {
window -c [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*),%a)
[[dec]] %a
}
}

; otherwise, close requested windows
[[If-Then-Else|else]] {
[[If-Then-Else|if]] ([[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,[[$1-|$2]]))) window -c [[$v1]]
[[If-Then-Else|else]] {
[[Local_Variables|var]] %a = [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*,[[$1-|$2]],*),0)
[[while]] %a {
window -c [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*,[[$1-|$2]],*),%a)
[[dec]] %a
}
}
}
}

; list hash tables by wildcard match if no matching table exists
[[If-Then-Else|elseif]] ![[$hget]]([[$1-|$1]]) {
[[Local_Variables|var]] %a = [[$hget]](0)
[[If-Then-Else|if]] !%a { [[echo]] -ag hlist: there are no hash tables | [[return]] }
[[while]] %a {
[[If-Then-Else|if]] ([[$1-|$1]] isin [[$hget]](%a)) hlist.show [[$hget]](%a)
[[dec]] %a
}
}

; list specified hash table
else hlist.show [[$1-|$1]]
}

; alias hlist.show: opens a custom window and populates it with contents of a given hash table
; expects: hash table name as $1
; returns: -
[[alias]] -l hlist.show {
[[Local_Variables|var]] %a = [[$hget]]([[$1-|$1]],0).item, %w = [[DollarPlus|$+]](@,$hlist.prefix,[[$1-|$1]],[[$chr]](160),[,%a,]), %len = 0
[[If-Then-Else|if]] [[$window_(remote)|$window(]]%w) { [[clear]] %w }
[[If-Then-Else|else]] { window -ls %w }

[[If-Then-Else|if]] $hlist.pad {
; get length of the longest item name
[[while]] %a {
[[If-Then-Else|if]] ([[$len]]([[$hget]]([[$1-|$1]],%a).item) > %len) [[Local_Variables|var]] %len = [[$v1]]
[[dec]] %a
}
[[Local_Variables|var]] %a = [[$hget]]([[$1-|$1]],0).item
}

; loop through hash table items and add them into the window
[[while]] %a {
[[Local_Variables|var]] %i = [[$hget]]([[$1-|$1]],%a).item
[[aline]] %w [[DollarPlus|$+]](%i,[[$str]]([[$chr]](160),[[$calc]](%len - [[$len]](%i)))) => [[$hget]]([[$1-|$1]],%a).data
[[dec]] %a
}
}

{{Author|Jay2k1}}

[[Category:Script Archive]]

YouTube parser

2013-07-10T18:22:07Z

Jay2k1: fixed $regml link

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[$regml|regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %data | [[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { [[hadd]] -m [[$sockname]] title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m [[$sockname]] dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { [[hadd]] -m [[$sockname]] uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { [[hadd]] -m [[$sockname]] uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }

; if we have seven items in our hash table, we have all data we need
[[If-Then-Else|if]] [[$hget]]([[$sockname]],0).item == 7 {
[[Local_Variables|var]] %t = [[$sockname]]
[[msg]] [[$gettok]]([[$sock]]([[$sockname]]).mark,2,32) ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] , [[$hget]](%t,dur) [[DollarPlus|$+]] , [[$hget]](%t,views) views, rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] )
[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

YouTube parser

2013-07-10T18:13:56Z

Jay2k1: Created page with "As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can i..."

As the description says, this script retrieves information about youtube videos from the YouTube API and posts them to the channel whenever a youtube link is posted. You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

'''Note:''' Make sure to replace the channels (#foo,#bar) in the ''on TEXT'' event line with the channels you want the script to be active in.

/*
********************************************************************************************************
*
* youtube.mrc by Jay2k1 @ QuakeNet, 2013
*
* Whenever a youtube link is posted in the channels #foo or #bar, this script retrieves the video's details
* from the youtube API and post them to the channel. It looks like this:
*
* <Jay2k1> http://www.youtube.com/watch?v=oHg5SJYRHA0
* <Bot> 'RickRoll' by cotter548, 00:03:34, 68213084 views, rating: 87% (259236/38751)
*
*********************************************************************************************************
*/

; on text event: regex check for messages containing youtube.com or youtu.be, match the URL
on $*:TEXT:/(youtu\.be\/.*?(\s|$)|youtube\.com\/.*?(\s|$))/:#foo,#bar:{

; use another regex to extract the video ID from the matched URL
[[noop]] [[$regex]]([[$regml]](1),/(\?v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

; call the youtube script with the channel and the video ID, if there is one
youtube [[$$]][[regml]](2) [[$chan_(remote)|$chan]]
}

; alias youtube: opens a socket connection to youtube
; expects: youtube video ID as $1, #channel as $2
; returns: -
[[alias]] -l youtube {
; create a unique socket name to allow for multiple connections at a time
[[Local_Variables|var]] %sock = youtube. [[DollarPlus|$+]] [[$ticks]]
[[sockopen]] %sock gdata.youtube.com 80
; store video ID and channel in socket mark
[[sockmark]] %sock [[$1-]]
}

on *:SOCKOPEN:youtube.*:{
; obligatory error check
[[If-Then-Else|if]] $sockerr { [[return]] }

; send our request
[[sockwrite]] -n [[$sockname]] GET /feeds/mobile/videos/ [[DollarPlus|$+]] [[$gettok]]([[$sock]]([[$sockname]]).mark,1,32) [[DollarPlus|$+]] ?v=2&prettyprint=true HTTP/1.1
[[sockwrite]] -n [[$sockname]] Host: [[$sock]]([[$sockname]]).addr
[[sockwrite]] -n [[$sockname]] [[$crlf]]
}

on *:SOCKREAD:youtube.*:{
[[If-Then-Else|if]] $sockerr { [[return]] }

; receive answer to the request into a variable
[[Local_Variables|var]] %data | [[Sockread|sockread]] %data

; while there's bytes in the sockread buffer...
[[while]] $sockbr {

; extract things of interest out of the source code into a hash table
[[If-Then-Else|if]] (*<title>*</title>* iswm %data) { [[hadd]] -m [[$sockname]] title [[$regsubex]](%data,/(.*<title>|</title>.*)/g,) }
[[If-Then-Else|if]] (*<yt:duration seconds='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] dur [[$duration]]([[$regsubex]](%data,/(.*seconds='|'/>.*)/g,),3) }
[[If-Then-Else|if]] (*<yt:statistics favoriteCount='*' viewCount='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] views [[$regsubex]](%data,/(.*viewCount='|'/>)/g,) }
[[If-Then-Else|if]] (*<yt:rating numDislikes='*' numLikes='*'/>* iswm %data) { [[hadd]] -m [[$sockname]] likes [[$regsubex]](%data,/(.*numLikes='|'/>.*)/g,) | [[hadd]] -m [[$sockname]] dislikes [[$regsubex]](%data,/(.*numDislikes='|'.*)/g,) }
[[If-Then-Else|if]] (*<name>*</name>* iswm %data) { [[hadd]] -m [[$sockname]] uploader [[$regsubex]](%data,/(.*<name>|</name>.*)/g,) }
[[If-Then-Else|if]] (*<yt:uploaded>*</yt:uploaded>* iswm %data) { [[hadd]] -m [[$sockname]] uploaded [[$left]]([[$regsubex]](%data,/(.*<yt:uploaded>|</yt:uploaded>.*)/g,),10) }

; if we have seven items in our hash table, we have all data we need
[[If-Then-Else|if]] [[$hget]]([[$sockname]],0).item == 7 {
[[Local_Variables|var]] %t = [[$sockname]]
[[msg]] [[$gettok]]([[$sock]]([[$sockname]]).mark,2,32) ' [[DollarPlus|$+]] [[$hget]](%t,title) [[DollarPlus|$+]] ' by [[$hget]](%t,uploader) [[DollarPlus|$+]] , [[$hget]](%t,dur) [[DollarPlus|$+]] , [[$hget]](%t,views) views, rating: [[$round]]([[$calc]]([[$hget]](%t,likes) / ([[$hget]](%t,likes) + [[$hget]](%t,dislikes)) * 100),1) [[DollarPlus|$+]] % ( [[DollarPlus|$+]] [[$hget]](%t,likes) [[DollarPlus|$+]] / [[DollarPlus|$+]] [[$hget]](%t,dislikes) [[DollarPlus|$+]] )
[[sockclose]] %t
[[hfree]] %t
[[return]]
}
[[Sockread|sockread]] %data
}
}

[[Category:Script Archive]]

{{Author|Jay2k1}}

$ifmatch

2013-06-28T15:05:50Z

Jay2k1: grammar naziing

Returns the first parameter of an if-then-else comparison.
$ifmatch

'''Note:''' $ifmatch is deprecated and has been replaced by ''$v1'' and ''$v2''. You should switch to using ''$v1'' and ''$v2'' in case $ifmatch is no longer supported in future versions.

== $v1 & $v2 ==
These return the first and second parameters of an if-then-else comparison.
$v1
$v2

== Example ==
[[If-Then-Else|if]] ([[$banmask]] [[If-Then-Else#iswm|iswm]] [[$ial]]([[$me]])) { [[echo]] -ag The ban mask $v1 matches my mask of $v2 }
The above example is a snippet that could be used inside an [[On ban]] event, which will check to see if the ban mask set matches your host mask.
If the comparison is successful $v2 is set to your [[:Category:IAL|IAL's]] host mask.

[[Category:Remote Identifiers]]

Template:User fr

2013-06-22T21:35:56Z

Jay2k1: fixed encoding issue

Category:Stubs

2013-06-22T20:48:38Z

Jay2k1: Added to wiki category

The articles in this category is concidered incomplete by their authors. This means even the user writting it knew that there were missing certain things. Once these articles individually contain all the information related to them the stub templates in them may be removed.

A list of pages of commands, identifiers and events that are still missing can be found here: [[Missing pages]].

[[Category:Wiki]]

$input

2013-06-22T14:53:50Z

Jay2k1: /* Options */ removed beta notice from b option

Input is a multi-purpose identifier for requesting input from a user in an auto-rendered pop up dialog, similar to [[$?]].

$input(prompt [,options] [,window] [,title] [,text])

* Prompt is the text you wish to display to the user. This is usually to tell the user what you wish to be inputted. You may use a [[$crlf]] to force a line break.
* Options is a list of option flags. Defaults to an "OK" and "Cancel" button which return [[$true]] or [[$false]] respetively.
* Window is the name of the window to be used as parent window.
* Title is the title you wish to give the input dialog box.
* Text is the default text to be entered when used with "e"
The options, window, title, and text are optional parameters.

==Options==
<table border=1 rules=all cellpadding=4><tr><td>e</td><td>Show an editbox for input. "OK" and "Cancel" are default buttons. [[$null]] is returned if "Cancel" is pressed, and the text is returned if "OK" is pressed.</td></tr>
<tr><td>p</td><td>Show input password editbox. (Replaces text in editbox with stars)</td></tr>
<tr><td>o</td><td>Show an "OK" button.</td></tr>
<tr><td>y</td><td>Show a "Yes" and "No" button.<br>
* When used with e, returns the text or [[$null]] respectively.
* When used without e, returns [[$true]] or [[$false]] respectively.</td></tr>
<tr><td>n</td><td>Show a "Yes" "No" and "Cancel" button.<br>
* When used with e, returns the text, [[$null]] or [[$null]] respectively.<br>
* When used without e, returns [[$true]] [[$false]] and [[$null]] respectively.</td></tr>
<tr><td>r</td><td>Show a "Retry" and "Cancel" button.<br>
* When used with e, returns the text or [[$null]] respectively.<br>
* When used without e, returns [[$true]] or [[$false]] respectively.</td></tr>
<tr><td>v</td><td>Return "$ok" "$yes" "$no" "$retry" or "$cancel" instead of [[$true]] or [[$false]]. Does not work when used with e.</td></tr>
<tr><td>g</td><td>Aligns buttons to the right instead of centering them.</td></tr>
<tr><td>b</td><td>Disables buttons for a second when dialog is displayed.</td></tr>
<tr><td>iqwhct</td><td>Shows the info, question, warning, hand, delete and star icons respectively.</td></tr>
<tr><td>d</td><td>Plays system sound associated with the specified icons.</td></tr>
<tr><td>s</td><td>Indicates that a window has been specified.</td></tr>
<tr><td>a</td><td>Actives the input dialog automatically.</td></tr>
<tr><td>u</td><td>Uses the current window as the parent. Do not use with "s" or if a window has been indicated.</td></tr>
<tr><td>kN</td><td>Gives the user N seconds to respond. If they do not, either [[$null]] is returned (when used with e), $timeout is returned (used with v), or $false is returned.</td></tr>
<tr><td>m</td><td>Indicates that multiple text parameters have been specified. They will be displayed in a combobox. The first text item is the default item (a reference to an item in the list), the rest are the items in the list.</td></tr>
</table>

==Note==
This identifier cannot be used in a script event. One way around this is to use /[[scon]] or a /[[timer]] to initiate an input request after the script ends. <br />
Example:
on *:text:Foo:#:{ /timer 1 0 echo -a $?="Bar?" }

==See Also==

* [[$?]]

[[Category:Remote Identifiers]]

How to make your own theme

2013-06-22T13:18:19Z

Jay2k1: /* Miscellaneous */ fixed padding examples, added hint for padding mode prefix

User:Jay2k1

2013-06-22T11:45:57Z

Jay2k1: Created page with "{{Babel-2|de|en-3}} <table border="0"> <tr> <td>Image:sgthartman.png</td> <td> <table border="0"> <tr><td><b>Age</b></td><td>{{age|1984|4|9}}</td></tr> <tr valign="..."

{{Babel-2|de|en-3}}

<table border="0">
<tr>
<td>[[Image:sgthartman.png]]</td>
<td>
<table border="0">
<tr><td><b>Age</b></td><td>{{age|1984|4|9}}</td></tr>
<tr valign="top" height="40"><td><b>Country</b></td><td>Germany</td></tr>

<tr><td><b>Words of wisdom</b></td><td>Coffee!</td></tr>
</table>
</td>
</tr>
</table>
[[Category:Members]]

File:Sgthartman.png

2013-06-22T11:45:28Z

Jay2k1: User Avatar of Jay2k1

User Avatar of Jay2k1

Pushmode

2013-06-22T00:40:13Z

Jay2k1: pushmode script by wiebe. Queues and dumps modes together as much as possible.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PUSHMODE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;info:
;
; by wiebe @ QuakeNet
; version 1.31 (written and tested on mIRC 6.15)
;
; last edit: Fri Apr 30 2004
;
;
;What does this script do?
;
; Queues and dumps modes together as much as possible.
;
;
;Some examples:
;
; Example 1: from within same command
; voicing some users with the following command:
; //var %x = $nick($chan,0,r) | while (%x) { mode $chan +v $nick($chan,%x,r) | dec %x }
; and this happens:
;
; [18:45:32] * dev-mirc sets mode: +v zyrtepf
; [18:45:32] * dev-mirc sets mode: +v zcttchv
; [18:45:32] * dev-mirc sets mode: +v yznzko
; [18:45:32] * dev-mirc sets mode: +v yuxf
; [18:45:32] * dev-mirc sets mode: +v twyqh
; [18:45:34] * dev-mirc sets mode: +v pitqxpg
; [18:45:36] * dev-mirc sets mode: +v nsln
; [18:45:38] * dev-mirc sets mode: +v moypfnk
; [18:45:40] * dev-mirc sets mode: +v gibuhee
; [18:45:42] * dev-mirc sets mode: +v evuwntm
;
; This sends a mode command +v <nick> for each nick
;
; Now we do the same but with pushmode instead of the normal mode command:
; //var %x = $nick($chan,0,r) | while (%x) { pushmode $chan +v $nick($chan,%x,r) | dec %x }
; and this happens:
;
; [18:48:03] * dev-mirc sets mode: +vvvvvv zyrtepf zcttchv yznzko yuxf twyqh pitqxpg
; [18:48:04] * dev-mirc sets mode: +vvvv nsln moypfnk gibuhee evuwntm
;
; The modes were now pushed together, so only 2 mode commands are needed instead of 10
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Example 2: the same event repeated
; An normal anti-flood script for example does this:
;
; [18:23:32] <zcttchv> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:32] <evuwntm> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:32] <moypfnk> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <zyrtepf> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <gibuhee> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <yznzko> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <yuxf> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <pitqxpg> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <nsln> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] <twyqh> AVERAGE ANTI FLOOD SCRIPT WITHOUT PUSHMODE
; [18:23:33] * dev-mirc sets mode: +b *!*qgeqd@8V5Ry4.8vtU30.virtual
; [18:23:33] * dev-mirc sets mode: +b *!*ihgkzu@8V5Ry4.8vtU30.virtual
; [18:23:33] * dev-mirc sets mode: +b *!*dqqyex@8V5Ry4.8vtU30.virtual
; [18:23:36] * dev-mirc sets mode: +b *!*qfzzq@8V5Ry4.8vtU30.virtual
; [18:23:40] * dev-mirc sets mode: +b *!*alavec@8V5Ry4.8vtU30.virtual
; [18:23:44] * dev-mirc sets mode: +b *!*avwy@8V5Ry4.8vtU30.virtual
; [18:23:48] * dev-mirc sets mode: +b *!*tqkukhp@8V5Ry4.8vtU30.virtual
; [18:23:52] * dev-mirc sets mode: +b *!*xrvdohn@8V5Ry4.8vtU30.virtual
; [18:23:56] * dev-mirc sets mode: +b *!*ujundvh@8V5Ry4.8vtU30.virtual
; [18:24:00] * dev-mirc sets mode: +b *!*kid@8V5Ry4.8vtU30.virtual
;
; The anti-flood script sends each ban with a mode command
;
; The same script using pushmode does the following:
;
; [18:25:11] <zcttchv> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <evuwntm> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <moypfnk> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <zyrtepf> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <gibuhee> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <yznzko> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <yuxf> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <pitqxpg> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:11] <nsln> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:12] <twyqh> AVERAGE ANTI FLOOD SCRIPT WITH PUSHMODE
; [18:25:12] * dev-mirc sets mode: +bbbbbb *!*qgeqd@8V5Ry4.8vtU30.virtual *!*ihgkzu@8V5Ry4.8vtU30.virtual *!*dqqyex@8V5Ry4.8vtU30.virtual *!*qfzzq@8V5Ry4.8vtU30.virtual *!*alavec@8V5Ry4.8vtU30.virtual *!*avwy@8V5Ry4.8vtU30.virtual
; [18:25:13] * dev-mirc sets mode: +bbbb *!*tqkukhp@8V5Ry4.8vtU30.virtual *!*xrvdohn@8V5Ry4.8vtU30.virtual *!*ujundvh@8V5Ry4.8vtU30.virtual *!*kid@8V5Ry4.8vtU30.virtual
;
; The anti-flood script sends the modes to pushmode, which turns 10 mode commands into 2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Example 3: multiple events
; Some form of a bitchmode script:
;
; on @!*:op:#channel:{ if ($opnick != $me) { mode $chan -o $opnick } }
; on @!*:voice:#channel:{ if ($vnick != $me) { mode $chan -v $vnick } }
; on @!*:help:#channel:{ if ($hnick != $me) { mode $chan -h $hnick } }
; on @!*:mode:#channel:{
; if (n isincs $1) && (n !isincs $gettok($chan($chan).mode,1,32)) { mode $chan +n }
; if (t isincs $1) && (t !isincs $gettok($chan($chan).mode,1,32)) { mode $chan +t }
; }
;
; [13:54:31] * wiebe sets mode: -nt+ovh nick1 nick2 nick3
; [13:54:31] * dev-mirc sets mode: +n
; [13:54:31] * dev-mirc sets mode: +t
; [13:54:31] * dev-mirc sets mode: -o nick1
; [13:54:31] * dev-mirc sets mode: -v nick2
; [13:54:31] * dev-mirc sets mode: -h nick3
;
; With pushmode:
;
; on @!*:op:#channel:{ if ($opnick != $me) { pushmode $chan -o $opnick } }
; on @!*:voice:#channel:{ if ($vnick != $me) { pushmode $chan -v $vnick } }
; on @!*:help:#channel:{ if ($hnick != $me) { pushmode $chan -h $hnick } }
; on @!*:mode:#channel:{
; if (n isincs $1) && (n !isincs $gettok($chan($chan).mode,1,32)) { pushmode $chan +n }
; if (t isincs $1) && (t !isincs $gettok($chan($chan).mode,1,32)) { pushmode $chan +t }
; }
;
; [13:55:36] * wiebe sets mode: -nt+ohv nick1 nick2 nick3
; [13:55:36] * dev-mirc sets mode: -ohv+nt nick1 nick2 nick3
;
; only 1 mode line needed for the 4 events
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;How to use this script?
;
; pushmode [-cdflnprswuNeM] <channel> <+/-mode> [arg]
;
; can be used to push channel modes together, see below
;
;
; The script has 4 different queue's,
; a queue for single modes (like +m) is emptied everytime pushmode is sending modes
; a faster queue, a normal queue (default) and a slower queue for modes with a parameter (like +b banmask)
; first the faster queue is emptied, then the default queue and last the slower queue
;
; The -n switch (next) queues the mode in the faster queue, the -l switch (low) can be used for the slower queue
; this is only for modes with a parameter
; pushmode #channel +v nick adds +v nick to the default queue
; pushmode -l #channel -v nick adds -v nick to the slower queue
; pushmode -n #channel +o nick adds +o nick to the faster queue
;
; The -c switch (clear) can be used to clear the queues
; the -l (low), -d (default), -n (next) and -s (single) switch
; can be used to clear a specific queue or multiple queues
; pushmode -c clears all queues for all channels
; pushmode -dc clears the default queue for all channels
; pushmode -nc #channel clears the faster queue for #channel
; pushmode -cs #channel clears the single queue for #channel
; pushmode -cdl #channel clears the default and slower queue for #channel
;
; The -f switch (flush) starts to empty the queue at once without waiting for the timer to start it
; pushmode -f starts pushmode for all channels
; pushmode -f #channel starts pushmode for #channel
; pushmode -f #channel +o nick starts pushmode for #channel after adding +o nick to the queue
;
; The -p switch (passive) can be used to only add a mode to the queue,
; but it will not cause pushmode to empty the queue,
; this mode will be send the next time pushmode is dumping modes
; or when the number of modes in the queues equals $modespl
; pushmode -p #channel +b queues in the default queue and
; sends +b (request banlist) the next time pushmode is dumping modes
; pushmode -p #channel -b *!*@host.com queues in the default queue and
; sends -b *!*@host.com the next chance it gets
;
; The -r switch (remove) removes a mode from the queue,
; the -l (low), -d (default) and -n (next) switch
; can be used to remove a mode from a specific queue or from multiple queues
; when combined with the -w a wildcardmatch is done
; if you want to clear the entire queue, it is better (read faster) to use the -c switch
; usefull when you want to set a key with pushmode and you first clear any +k and -k modes
; pushmode -dr #channel +b *!*@host.com removes +b *!*@host.com from the default queue
; pushmode -r #channel +v nick removes +v nick from all queues
; pushmode -rw #channel +b * removes all bans from all queues
; pushmode -rw #channel +? removes all single + modes from the queue
; pushmode -rdl #channel +k key removes +k key from the default and slower queue
;
; The -uN switch can be used to remove a ban after N seconds using pushmode
; using 0 for N, makes the script remove the ban from the internal tempban list
; this will not remove the ban from the channel
; pushmode -u120 #channel +b *!*@host.com removes the ban *!*@host.com after 120 seconds
; pushmode -u0 #channel +b *!*@leave.this.ban removes *!*@leave.this.ban from the internal tempban list
;
; The -eM switch (expire) removes the mode from the queue after M seconds,
; so if the mode is not send within M seconds, it will not be send
; pushmode -e10 #channel +m mode +m will only be send within 10 seconds or not
; pushmode -e60 #channel +l 100 mode +l 100 will only be send within 60 seconds or not
;
; Combinations are possible, for example:
; pushmode -nfpe60u600 #channel +b *!*user@*.host.com
;
; The script can voice/devoice users even if they changed nick since the mode was in the queue
; this can be done by giving nick!user@host as parameter
; the default settings makes the script understand that @%+ is ohv, if you are on a server with additional
; modes which can be set on users on a channel, you have to edit the prefix setting below
; the target needs to be in your IAL list for this to work
; the script adds/removes a tag to the IAL using ialmark and finds the nick when sending the mode
; other scripts using ialmark may break this part
;
; pushmode #channel +v goober!~bla@123.abc.isp.com will voice the user goober, even if he would
; change nick before the mode is send
;
; pushmode #channel -h somenick!someuser@abc.users.undernet.org dehalfops somenick, even if he would
; change nick before the mode is send
;
; pushmode #channel +o dev-mirc!dev-mirc@def.users.quakenet.org will op dev-mirc, even if he would
; change nick before the mode is send
;
;
; pushuser <+/-mode> [arg]
;
; can be used for usermodes, usefull if you have several scripts setting usermodes on connect
; pushuser will send them all at once instead of N times a mode command
;
;
; Pushmode (pushuser) can only take 1 mode at a time
; The - or + needs to be included
; The script does not allow duplicates in the same queue
; Temp bans work only if nick!user@host format is used (like *!*@host.com and not *host.com or just host.com)
; this is because of the isban operator
;
; Script is uses $modespl (MODES= setting),
; here meaning how many parameter modes (like +b banmask) can be put into 1 line
; the number of modes without parameter (like +m) is unlimited
; if you want to use this script on a server where this is different, you have to change the script a bit
; see the pushmode.dump alias
;
; Some checks are done on the modes, like if the mode exists, if the mode makes "sense" etc.
; it uses $chanmodes (with b,k,l,imnpst as default modes), checks op/halfop status.
; you can see the checks and change them in the pushmode.dump alias
;
;
;What use has this script?
;
; not only can you simply 'queue' mode changes from within the same event or script
; but mode changes by all scripts can be pushed together
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.DELAY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; when first called, the script will wait N seconds before sending a mode change
[[alias]] -l pushmode.delay {
[[return]] 1
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.RESTART ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set here the delay (seconds) pushmode should have between multiple mode lines
; after sending a mode change and there are items left in the queue,
; it will wait N seconds before sending the next mode change
alias -l pushmode.restart {
return 2
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.BAN ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set here the delay (seconds) for checking which bans are to be unset
; a timer runs with this interval
; it checks the temp bans set by this script for all channels and unbans them with pushmode
; settings this to 600 (10 min) for example, makes a temp ban set for 5min being unset after 5~15 minutes
; so this setting defines how accurate the time of a temp ban is
alias -l pushmode.ban {
return 600
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.PREFIX ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set here what modes can be set on a user on a channel (this is NOT b or any other list mode)
; default @ = o, % = h, + = v
; leave empty if you dont want to use this
; if you are not sure what this is, leave it
; replace each char with their mode char, @ is o for example
alias -l pushmode.prefix {
return $nickmode
; should $nickmode not work, remove it and use the following line
return [[$replace]]([[$prefix]],@,o,%,h,+,v)
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; pushmode [-cdflnprswuNeM] <channel> <+/-mode> [arg]
alias pushmode {
[[var]] %f, %q, %p, %e, %u

; part for switches
[[if]] ([[$left]]($1,1) == -) {

; c switch is there
if (c [[isin]] $1) {

; no channel
if (!$2) {

; d switch is there, clear all default queues for this connection
if (d isin $1) { $pushmode.queue($+($cid,.pushmode.*.default)).clear }

; n switch is there, clear all next queues for this connection
if (n isin $1) { $pushmode.queue($+($cid,.pushmode.*.next)).clear }

; l switch is there, clear all low queues for this connection
if (l isin $1) { $pushmode.queue($+($cid,.pushmode.*.low)).clear }

; s switch is there, clear all single queues for this connection
if (s isin $1) { $pushmode.queue($+($cid,.pushmode.*.single)).clear }

; no other switches, clear all queues for this connection
if (n !isin $1) && (d !isin $1) && (l !isin $1) && (s !isin $1) { $pushmode.queue($+($cid,.pushmode.*)).clear }
}
[[else]] {

; d switch is there, clear the default queue for the channel
if (d isin $1) { $pushmode.queue($+($cid,.pushmode.,$hash($2,32),.default)).clear }

; n switch is there, clear the next queue for the channel
if (n isin $1) { $pushmode.queue($+($cid,.pushmode.,$hash($2,32),.next)).clear }

; l switch is there, clear the low queue for the channel
if (l isin $1) { $pushmode.queue($+($cid,.pushmode.,$hash($2,32),.low)).clear }

; s switch is there, clear the single queue for this connection
if (s isin $1) { $pushmode.queue($+($cid,.pushmode.,$hash($2,32),.single)).clear }

; no other switches, clear all queues for the channel
if (n !isin $1) && (d !isin $1) && (l !isin $1) && (s !isin $1) {
$pushmode.queue($+($cid,.pushmode.,$hash($2,32),.next)).clear
$pushmode.queue($+($cid,.pushmode.,$hash($2,32),.default)).clear
$pushmode.queue($+($cid,.pushmode.,$hash($2,32),.low)).clear
$pushmode.queue($+($cid,.pushmode.,$hash($2,32),.single)).clear
}
}
return
}

; f switch is there, set a var
if (f isin $1) { var %f = 1 }

; n switch is there, set a var
if (n isin $1) { var %q = next }

; l switch is there, set a var
[[elseif]] (l isin $1) { var %q = low }

; p switch is there, set a var
if (p isin $1) { var %p = 1 }

; u or e switch is used, set a var
if (u isin $1) || (e isin $1) { var %string = [[$remove]]($1,-,d,c,f,l,n,p,r,s,w) , %x = 1

; loop through all chars
[[while]] (%x <= [[$len]](%string)) {

; found u, set a var
if ([[$mid]](%string,%x,1) == u) { var %y = [[$calc]](%x +1)

; as long as it is numbers, set a var, next char
while ([[$mid]](%string,%y,1) [[isnum]]) { var %u = %u $+ $mid(%string,%y,1) | inc %y }
}

; found e, set a var
if ($mid(%string,%x,1) == e) { var %y = $calc(%x +1)

; as long as it is numbers, set a var, next char
while ($mid(%string,%y,1) isnum) { var %e = %e $+ $mid(%string,%y,1) | inc %y }
}
[[inc]] %x
}

; '%e' is a number, set a var
if (%e isnum) { var %e = -e $+ %e }
}

; u switch is there with a number, +b and a banmask, add to the hash table, make it decrease each second
if (u isin $1) && ($3 == +b) && ($4) && (%u > 0) {
[[hadd]] -m $+([[$cid]],.pushmode.,[[$hash]]($2,32),.bans) $4 %u | [[hdec]] -c $+($cid,.pushmode.,$hash($2,32),.bans) $4

; check the timer, start the timer
if (![[$timer]]($+($cid,.pushmode.bans))) {
.[[timer]] $+ $cid $+ .pushmode.bans 1 $$pushmode.ban pushmode.tempban
}
}

; number with u is 0
if (%u == 0) && ($3 == +b) && ($4) {

; check if it is already in the hash table as temp ban, delete it
if ([[$hget]]($+($cid,.pushmode.,$hash($2,32),.bans))) && ($hget($+($cid,.pushmode.,$hash($2,32),.bans),$4)) {
[[hdel]] $+($cid,.pushmode.,$hash($2,32),.bans) $4

; check if the hash table is empty, free the hash table
if ($hget($+($cid,.pushmode.,$hash($2,32),.bans),0).item == 0) {
[[hfree]] $+($cid,.pushmode.,$hash($2,32),.bans)
}
}
return
}

; r switch is there and mode '$3'
if (r isin $1) && ($3) {

; w switch is there
if (w isin $1) {

; no parameter, remove the mode from the single queue
if ($4 == [[$null]]) { pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.single) $3 }
else {

; d switch is there, remove the mode from the default queue
if (d isin $1) { pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.default) $3-4 }

; n switch is there, remove the mode from the next queue
if (n isin $1) { pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.next) $3-4 }

; l switch is there, remove the mode from the low queue
if (l isin $1) { pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.low) $3-4 }

; no other switch is there, remove the mode from all queues
if (n !isin $1) && (d !isin $1) && (l !isin $1) {
pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.next) $3-4 | pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.low) $3-4 | pushmode.queue -rw $+($cid,.pushmode.,$hash($2,32),.default) $3-4
}
}
}
else {

; no parameter, remove mode from the single queue
if ($4 == $null) { pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.single) $3 }
else {

; d switch is there, remove mode form the default queue
if (d isin $1) { pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.default) $3-4 }

; n switch is there, remove mode form next queue
if (n isin $1) { pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.next) $3-4 }

; l switch is there, remove mode form the low queue
if (l isin $1) { pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.low) $3-4 }

; no other switch is there, remove mode form all queues
if (n !isin $1) && (d !isin $1) && (l !isin $1) && (s !isin $1) {
pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.next) $3-4 | pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.low) $3-4 | pushmode.queue -r $+($cid,.pushmode.,$hash($2,32),.default) $3-4
}
}
}
return
}
[[tokenize]] 32 $2-
}

; leave multiple modes out
tokenize 32 $1 $left($2,2) $3

; '$2' starts with '+' or with '-', we are on channel '$1'
if ([[$istok]](+ -,$left($2,1),32)) && ($me ison $1) {

; '$3' does exist
if ($3 != $null) {

; -n switch was used, queue mode '$2 $3' in the next queue
if (%q == next) { pushmode.queue %e $+($cid,.pushmode.,$hash($1,32),.next) $2-3 }

; -l switch was used, queue mode '$2 $3' in the low queue
elseif (%q == low) { pushmode.queue %e $+($cid,.pushmode.,$hash($1,32),.low) $2-3 }

; use default queue, queue mode '$2 $3' in the 'default' queue
else { pushmode.queue %e $+($cid,.pushmode.,$hash($1,32),.default) $2-3 }
}

; the mode does not have a parameter, queue mode '$2' it in the single queue
else { pushmode.queue $+($cid,.pushmode.,$hash($1,32),.single) $2 }

; check if the timer is not already running and check the -p switch, start the timer
if (!$timer($+($cid,.pushmode.,$hash($1,32)))) && (%p != 1) {
.timer $+ $cid $+ .pushmode. $+ $hash($1,32) 1 $$pushmode.delay pushmode.dump $1
}

; no timer, and passive switch, set a var
if (!$timer($+($cid,.pushmode.,$hash($1,32)))) && (%p == 1) {
var %x = 1, %queue = .next .default .low, %q = 1, %t = 0

; loop through each queue, inc var, next queue
while ($gettok(%queue,%q,32)) {
inc %t $pushmode.queue($+($cid,.pushmode.,$hash($1,32),$gettok(%queue,%q,32))).size | inc %q
}

; at least $modespl modes in the queues, start the timer
if (%t >= $modespl) {
.timer $+ $cid $+ .pushmode. $+ $hash($1,32) 1 $$pushmode.delay pushmode.dump $1
}
}

; f switch was used
if (%f == 1) {

; no channel, set a var
if (!$1) { var %x = $chan(0)

; loop through all the channels, stop the timer, run 'pushmode.dump chan', decrease '%x' and go on to the next channel
while (%x) {
.timer $+ $+($cid,.pushmode.,$hash($chan(%x),32)) off | pushmode.dump $chan(%x) | dec %x
}
}

; we are on '$1', stop the timer, run 'pushmode.dump $1'
elseif ($me ison $1) {
.timer $+ $+($cid,.pushmode.,$hash($1,32)) off | pushmode.dump $1
}
}
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.DUMP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; $1 = #channel
alias -l pushmode.dump {

; we are on channel '$1', set vars
if ($me ison $1) { var %x = 1, %queue = .next .default .low, %q = 1, %mode, %check, %smode

; loop through each queue
while ($gettok(%queue,%q,32)) {

; we loop as long as '%x' <= '$modespl' and as long as the size of the queue is greater then 0
while (%x <= $modespl) && ($pushmode.queue($+($cid,.pushmode.,$hash($1,32),$gettok(%queue,%q,32))).size > 0) {

; save the next item in a var
var %next = $pushmode.queue($+($cid,.pushmode.,$hash($1,32),$gettok(%queue,%q,32))).next

; check if mode is not already going to be set
if (!$istokcs(%check,%next,44)) && (%next) { var %1 = $gettok(%next,1,32), %2 = $gettok(%next,2,32)

; some checks / examples of checks
if (%1 === +o) && (%2 isop $1) { }
elseif (%1 === -o) && (%2 ![[isop]] $1) { }
elseif (%1 === +h) && (%2 [[ishop]] $1) { }
elseif (%1 === -h) && (%2 ![[ison]] $1) { }
elseif (%1 === +v) && (%2 [[isvoice]] $1) { }
elseif (%1 === -v) && (%2 !ison $1) { }
elseif (%1 === +b) && (%2 [[isban]] $1) { }
elseif (%1 === +l) && ((%2 !isnum) || (%2 < 1)) { }
elseif (%1 === +l) && (%2 == [[$chan]]($1).limit) { }
elseif (%1 === +k) && ($chan($1).key) { }
elseif (%1 === -k) && (%2 !=== $chan($1).key) { }
elseif ($right(%1,1) === o) && ($me !isop $1) { }
elseif ($right(%1,1) === h) && ($me !isop $1) { }
elseif ($me !isop $1) && ($me !ishop $1) { }

; add '%next' to '%check', add the mode in the var
else { var %check = $addtok(%check,%next,44) | var %mode = $+($gettok(%mode,1,32),$gettok(%next,1,32)) $gettok(%mode,2-,32) $gettok(%next,2,32) }
inc %x
}
}
inc %q
}

; we loop as long as the size of the single queue is greater then 0, set vars
while ($pushmode.queue($+($cid,.pushmode.,$hash($1,32),.single)).size > 0) {
var %next = $pushmode.queue($+($cid,.pushmode.,$hash($1,32),.single)).next
var %a = $+($gettok($chanmodes,1,44),b), %b = $+($gettok($chanmodes,2,44),k)
var %c = $+($gettok($chanmodes,3,44),l), %d = $+($gettok($chanmodes,4,44),imnpst)

; some checks / examples of checks
if ($right(%next,1) isincs %b) { }
elseif ($right(%next,1) isincs %c) && ($left(%next,1) == +) { }
elseif ($right(%next,1) isincs %b) { }
elseif ($me !isop $1) && ($me !ishop $1) && ($right(%next,1) !isincs %a) { }

; add next mode to the var
else { var %smode = $+(%smode,%next) }
}

; if the ibl isnt filled for that channel, add +b to request the banlist
; if you want this uncomment the following line
;if (b !isincs %smode) && (!$chan($1).ibl) { var %smode = $+(%smode,+b) }

; add the mode in the var
var %mode = $+($gettok(%mode,1,32),%smode) $gettok(%mode,2-,32)

; there are modes in '%mode', send the modes
if (%mode) { .quote MODE $1 %mode }
var %q = 1

; loop through the queues
while ($gettok(%queue,%q,32)) {

; items left, break
if ($pushmode.queue($+($cid,.pushmode.,$hash($1,32),$gettok(%queue,%q,32))).size > 0) { break }
inc %q
}

; loop was ended with break, start the timer
if (%q <= $numtok(%queue,32)) {
.timer $+ $cid $+ .pushmode. $+ $hash($1,32) 1 $$pushmode.restart pushmode.dump $1
}
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHUSER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; $1 = +/-mode, $2 = param
alias pushuser {

; remove multiple modes, only use the 1st one given
tokenize 32 $left($1,2) $2

; '$2' is 2 chars long and '$1' starts with '+' or with '-'
if ($len($1) == 2) && ($istok(+ -, $left($1,1),32)) {

; '$2' exists, add the mode to the user queue
if ($2 != $null) { pushmode.queue $+($cid,.user) $1-2 }

; '$2' does not exist, add the mode to the user queue
else { pushmode.queue $+($cid,.user) $1 }

; check if the timer already runs, start the timer
if (!$timer($+($cid,.pushuser))) {
.timer $+ $cid $+ .pushuser 1 $$pushmode.delay pushuser.dump
}
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHUSER.DUMP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l pushuser.dump {

; loop as long as there are items in the user queue, set a var with the next item, add the mode to the var
while ($pushmode.queue($+($cid,.user)).size > 0) { var %next = $pushmode.queue($+($cid,.user)).next
var %mode = $+($gettok(%mode,1,32),$gettok(%next,1,32)) $gettok(%mode,2-,32) $gettok(%next,2,32) }

; if '%mode' exists, send the modes
if (%mode) { .[[quote]] MODE $me %mode }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.QUEUE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; pushmode.queue [-eNrw] table mode param
alias -l pushmode.queue {
var %e

; switch is used
if ($left($1,1) == -) {

; got a switch, there are numbers, set a var
if (e isin $1) { if ($right($1,-2) isnum) { var %e = $+(-u,$right($1,-2)) } }

; r switch, w switch, set var
if (r isin $1) { if (w isin $1) { var %x = $hfind($2,$3-4,0,w).data
while (%x) {

; check hash table, delete
if ($gettok($hget($2,$hfind($2,$3-4,%x,w).data),1,32) === $3) || ($3 iswm $gettok($hget($2,$hfind($2,$3-4,%x,w).data),1,32)) {
hdel $2 $hfind($2,$3-4,%x,w).data
}
dec %x
}
}

; no w switch, set vars
else {
var %param = $replace($4,\,\\,|,\|,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),$chr(91),$+(\,$chr(91)),$chr(93),$+(\,$chr(93)),^,\^,$chr(123),$+(\,$chr(123)),$chr(125),$+(\,$chr(125)),.,\.,$,\$,+,\+,*,\*,?,\?)
var %mode = \ $+ $left($3,1) $+ $chr(91) $+ $replace($left($3,2),\,\\,|,\|,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),$chr(91),$+(\,$chr(91)),$chr(93),$+(\,$chr(93)),^,\^,$chr(123),$+(\,$chr(123)),$chr(125),$+(\,$chr(125)),.,\.,$,\$,+,\+,*,\*,?,\?) $+ $chr(93)

; check hash table, delete
if ($hfind($2,%mode %param,1,r).data) { hdel $2 $hfind($2,%mode %param,1,r).data }
}

; 1 item left, free hash table
if ($hget($2,0).item == 1) { hfree $2 }
return
}
tokenize 32 $2-4
}

; mode is a usermode, it matches *!*@* and no * or ? are there, and its not for the umode queue
if ($right($2,1) isin $pushmode.prefix) && (*!*@* iswm $3) && (* !isin $3) && (? !isin $3) && (*.user !iswm $1) {

; the user is in the ial, add tag to ialmark, tokenize
if ($ial($gettok($3,1,33))) {
.ialmark $gettok($3,1,33) $ial($gettok($3,1,33)).mark $+($1,.,$iif($hget($1,last),$calc($ifmatch +1),1))
tokenize 32 $1 $2 $+(*!,$gettok($3,2,33))
}

; user is not in ial, tokenize
else { tokenize 32 $1 $2 $gettok($3,1,33) }
}

; set a var, prefix special chars in a regex with a \
var %param = $replace($3,\,\\,|,\|,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),$chr(91),$+(\,$chr(91)),$chr(93),$+(\,$chr(93)),^,\^,$chr(123),$+(\,$chr(123)),$chr(125),$+(\,$chr(125)),.,\.,$,\$,+,\+,*,\*,?,\?)
var %mode = \ $+ $left($2,1) $+ $chr(91) $+ $replace($left($2,2),\,\\,|,\|,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),$chr(91),$+(\,$chr(91)),$chr(93),$+(\,$chr(93)),^,\^,$chr(123),$+(\,$chr(123)),$chr(125),$+(\,$chr(125)),.,\.,$,\$,+,\+,*,\*,?,\?) $+ $chr(93)

; there is a 2nd parameter and mode '%mode %param' is not already in the queue, where '%mode' is case sensitive
if ($2 != $null) && ($hfind($1,%mode %param,0,r).data == 0) {

; increase item 'last', add mode '$2-' to the hashtable with item name that 'last' has
hinc -m $1 last | hadd $+(-m,%e) $1 $hget($1,last) $2-
}

; propertie is next and hash table '$1' exists, increase item 'first'
elseif ($isid) && ($prop == next) && ($hget($1)) { hinc -m $1 first

; 'first' is smaller or equal to 'last', set vars
if ($hget($1,first) <= $hget($1,last)) {
var %next = $hget($1,$hget($1,first)), %number = $hget($1,first)
var %mode = $gettok(%next,1,32), %param = $gettok(%next,2,32)

; mode is a usermode, parameter matches *!*@*, set var
if ($right(%mode,1) isin $pushmode.prefix) && (*!*@* iswm %param) {
var %x = $ial(%param,0)
while (%x) { var %nick = $ial(%param,%x).nick

; the tag is there, remove it, set var, stop loop
if ($wildtok($ial(%nick).mark,$+($1,.,%number),1,32)) {
.ialmark %nick $remove($ial(%nick).mark,$ifmatch)
var %next = %mode %nick | break
}
dec %x
}

; no matches found, clear var
if (%x == 0) { var %next = $null }
}

; delete this item from the hashtable
hdel $1 $hget($1,first)

; this is the last item, free the hash table
if ($hget($1,first) >= $hget($1,last)) { hfree $1 }
return %next
}
}

; called as identifier ($alias) and propertie is size ($alias().size)
; decrease number of items with 1, (1 item in queue, and last is there)
elseif ($isid) && ($prop == size) { return $iif($calc($hget($1,0).item -1) >= 0,$ifmatch,0) }

; called as identifier ($alias) and propertie is clear ($alias().clear), free hashtables that match $1
elseif ($isid) && ($prop == clear) { hfree -w $1 }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS PUSHMODE.TEMPBAN ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l pushmode.tempban {
var %x = 1

; loop through the channels
while (%x <= $chan(0)) {

; loop as long as a match is found, items with values 0 or lower
while ($hfind($+($cid,.pushmode.,$hash($chan(%x),32),.bans),/^[0-]/,1,r).data) {

; ibl is not filled, or the ban is set, use pushmode to remove the ban
if (!$chan(%x).ibl) || ($hfind($+($cid,.pushmode.,$hash($chan(%x),32),.bans),/^[0-]/,1,r).data isban $chan(%x)) {
pushmode $chan(%x) -b $hfind($+($cid,.pushmode.,$hash($chan(%x),32),.bans),/^[0-]/,1,r).data
}

; del the item from the hash table
hdel $+($cid,.pushmode.,$hash($chan(%x),32),.bans) $hfind($+($cid,.pushmode.,$hash($chan(%x),32),.bans),/^[0-]/,1,r).data
}

; check if hash table is empty and the hash table exists, remove hash table
if ($hget($+($cid,.pushmode.,$hash($chan(%x),32),.bans),0).item == 0) && ($hget($+($cid,.pushmode.,$hash($chan(%x),32),.bans))) {
hfree $+($cid,.pushmode.,$hash($chan(%x),32),.bans)
}
inc %x
}

; start the timer
.timer $+ $cid $+ .pushmode.bans 1 $$pushmode.ban pushmode.tempban
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DISCONNECT EVENT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:disconnect: { pushmode -c }

[[Category:Script_Archive]]

Else

2013-06-21T23:30:54Z

Jay2k1: fixed redirect

#redirect [[If-Then-Else]]