Edit File by line

<!doctype html>

[0] Fix | Delete

[1] Fix | Delete

<title>CodeMirror: mIRC mode</title>

[2] Fix | Delete

[3] Fix | Delete

[4] Fix | Delete

[5] Fix | Delete

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

[9] Fix | Delete

[10] Fix | Delete

[11] Fix | Delete

<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>

[12] Fix | Delete

[13] Fix | Delete

<ul>

[14] Fix | Delete

[15] Fix | Delete

<li><a href="../../doc/manual.html">Manual</a>

[16] Fix | Delete

[17] Fix | Delete

</ul>

[18] Fix | Delete

<ul>

[19] Fix | Delete

<li><a href="../index.html">Language modes</a>

[20] Fix | Delete

[21] Fix | Delete

</ul>

[22] Fix | Delete

</div>

[23] Fix | Delete

[24] Fix | Delete

[25] Fix | Delete

[26] Fix | Delete

[27] Fix | Delete

;AKA Nick Tracker by Ford_Lawnmower irc.GeekShed.net #Script-Help

[28] Fix | Delete

;*****************************************************************************;

[29] Fix | Delete

;**Start Setup

[30] Fix | Delete

;Change JoinDisplay, below, for On Join AKA Display. On = 1 - Off = 0

[31] Fix | Delete

alias -l JoinDisplay { return 1 }

[32] Fix | Delete

;Change MaxNicks, below, to the number of nicknames you want to store for each hostmask. I wouldn't go over 400 with this ;/

[33] Fix | Delete

alias -l MaxNicks { return 20 }

[34] Fix | Delete

;Change AKALogo, below, To the text you want displayed before each AKA result.

[35] Fix | Delete

alias -l AKALogo { return 06 05A06K07A 06 }

[36] Fix | Delete

;**End Setup

[37] Fix | Delete

;*****************************************************************************;

[38] Fix | Delete

On *:Join:#: {

[39] Fix | Delete

if ($nick == $me) { .timer 1 1 ialupdateCheck $chan }

[40] Fix | Delete

NickNamesAdd $nick $+($network,$wildsite)

[41] Fix | Delete

if ($JoinDisplay) { .timerNickNames $+ $nick 1 2 NickNames.display $nick $chan $network $wildsite }

[42] Fix | Delete

}

[43] Fix | Delete

on *:Nick: { NickNamesAdd $newnick $+($network,$wildsite) $nick }

[44] Fix | Delete

alias -l NickNames.display {

[45] Fix | Delete

if ($gettok($hget(NickNames,$+($3,$4)),0,126) > 1) {

[46] Fix | Delete

echo -g $2 $AKALogo $+(09,$1) $AKALogo 07 $mid($replace($hget(NickNames,$+($3,$4)),$chr(126),$chr(44)),2,-1)

[47] Fix | Delete

}

[48] Fix | Delete

}

[49] Fix | Delete

alias -l NickNamesAdd {

[50] Fix | Delete

if ($hget(NickNames,$2)) {

[51] Fix | Delete

if (!$regex($hget(NickNames,$2),/~\Q $+ $replacecs($1,\E,\E\\E\Q) $+ \E~/i)) {

[52] Fix | Delete

if ($gettok($hget(NickNames,$2),0,126) <= $MaxNicks) {

[53] Fix | Delete

hadd NickNames $2 $+($hget(NickNames,$2),$1,~)

[54] Fix | Delete

}

[55] Fix | Delete

else {

[56] Fix | Delete

hadd NickNames $2 $+($mid($hget(NickNames,$2),$pos($hget(NickNames,$2),~,2)),$1,~)

[57] Fix | Delete

}

[58] Fix | Delete

}

[59] Fix | Delete

}

[60] Fix | Delete

else {

[61] Fix | Delete

hadd -m NickNames $2 $+(~,$1,~,$iif($3,$+($3,~)))

[62] Fix | Delete

}

[63] Fix | Delete

}

[64] Fix | Delete

alias -l Fix.All.MindUser {

[65] Fix | Delete

var %Fix.Count = $hfind(NickNames,/[^~]+[0-9]{4}~/,0,r).data

[66] Fix | Delete

while (%Fix.Count) {

[67] Fix | Delete

if ($Fix.MindUser($hget(NickNames,$hfind(NickNames,/[^~]+[0-9]{4}~/,%Fix.Count,r).data))) {

[68] Fix | Delete

echo -ag Record %Fix.Count - $v1 - Was Cleaned

[69] Fix | Delete

hadd NickNames $hfind(NickNames,/[^~]+[0-9]{4}~/,%Fix.Count,r).data $v1

[70] Fix | Delete

}

[71] Fix | Delete

dec %Fix.Count

[72] Fix | Delete

}

[73] Fix | Delete

}

[74] Fix | Delete

alias -l Fix.MindUser { return $regsubex($1,/[^~]+[0-9]{4}~/g,$null) }

[75] Fix | Delete

menu nicklist,query {

[76] Fix | Delete

[77] Fix | Delete

.AKA

[78] Fix | Delete

..Check $$1: {

[79] Fix | Delete

if ($gettok($hget(NickNames,$+($network,$address($1,2))),0,126) > 1) {

[80] Fix | Delete

NickNames.display $1 $active $network $address($1,2)

[81] Fix | Delete

}

[82] Fix | Delete

else { echo -ag $AKALogo $+(09,$1) 07has not been known by any other nicknames while I have been watching. }

[83] Fix | Delete

}

[84] Fix | Delete

..Cleanup $$1:hadd NickNames $+($network,$address($1,2)) $fix.minduser($hget(NickNames,$+($network,$address($1,2))))

[85] Fix | Delete

..Clear $$1:hadd NickNames $+($network,$address($1,2)) $+(~,$1,~)

[86] Fix | Delete

..AKA Search Dialog:dialog $iif($dialog(AKA_Search),-v,-m) AKA_Search AKA_Search

[87] Fix | Delete

[88] Fix | Delete

}

[89] Fix | Delete

menu status,channel {

[90] Fix | Delete

[91] Fix | Delete

.AKA

[92] Fix | Delete

..AKA Search Dialog:dialog $iif($dialog(AKA_Search),-v,-m) AKA_Search AKA_Search

[93] Fix | Delete

..Clean All Records:Fix.All.Minduser

[94] Fix | Delete

[95] Fix | Delete

}

[96] Fix | Delete

dialog AKA_Search {

[97] Fix | Delete

title "AKA Search Engine"

[98] Fix | Delete

size -1 -1 206 221

[99] Fix | Delete

option dbu

[100] Fix | Delete

edit "", 1, 8 5 149 10, autohs

[101] Fix | Delete

button "Search", 2, 163 4 32 12

[102] Fix | Delete

radio "Search HostMask", 4, 61 22 55 10

[103] Fix | Delete

radio "Search Nicknames", 5, 123 22 56 10

[104] Fix | Delete

list 6, 8 38 190 169, sort extsel vsbar

[105] Fix | Delete

button "Check Selected", 7, 67 206 40 12

[106] Fix | Delete

button "Close", 8, 160 206 38 12, cancel

[107] Fix | Delete

box "Search Type", 3, 11 17 183 18

[108] Fix | Delete

button "Copy to Clipboard", 9, 111 206 46 12

[109] Fix | Delete

}

[110] Fix | Delete

On *:Dialog:Aka_Search:init:*: { did -c $dname 5 }

[111] Fix | Delete

On *:Dialog:Aka_Search:Sclick:2,7,9: {

[112] Fix | Delete

if ($did == 2) && ($did($dname,1)) {

[113] Fix | Delete

did -r $dname 6

[114] Fix | Delete

var %search $+(*,$v1,*), %type $iif($did($dname,5).state,data,item), %matches = $hfind(NickNames,%search,0,w). [ $+ [ %type ] ]

[115] Fix | Delete

while (%matches) {

[116] Fix | Delete

did -a $dname 6 $hfind(NickNames,%search,%matches,w). [ $+ [ %type ] ]

[117] Fix | Delete

dec %matches

[118] Fix | Delete

}

[119] Fix | Delete

did -c $dname 6 1

[120] Fix | Delete

}

[121] Fix | Delete

elseif ($did == 7) && ($did($dname,6).seltext) { echo -ga $AKALogo 07 $mid($replace($hget(NickNames,$v1),$chr(126),$chr(44)),2,-1) }

[122] Fix | Delete

elseif ($did == 9) && ($did($dname,6).seltext) { clipboard $mid($v1,$pos($v1,*,1)) }

[123] Fix | Delete

}

[124] Fix | Delete

On *:Start:{

[125] Fix | Delete

if (!$hget(NickNames)) { hmake NickNames 10 }

[126] Fix | Delete

if ($isfile(NickNames.hsh)) { hload NickNames NickNames.hsh }

[127] Fix | Delete

}

[128] Fix | Delete

On *:Exit: { if ($hget(NickNames)) { hsave NickNames NickNames.hsh } }

[129] Fix | Delete

On *:Disconnect: { if ($hget(NickNames)) { hsave NickNames NickNames.hsh } }

[130] Fix | Delete

On *:Unload: { hfree NickNames }

[131] Fix | Delete

alias -l ialupdateCheck {

[132] Fix | Delete

inc -z $+(%,ialupdateCheck,$network) $calc($nick($1,0) / 4)

[133] Fix | Delete

;If your ial is already being updated on join .who $1 out.

[134] Fix | Delete

;If you are using /names to update ial you will still need this line.

[135] Fix | Delete

.who $1

[136] Fix | Delete

}

[137] Fix | Delete

Raw 352:*: {

[138] Fix | Delete

if (jQuery($+(%,ialupdateCheck,$network),2)) haltdef

[139] Fix | Delete

NickNamesAdd $6 $+($network,$address($6,2))

[140] Fix | Delete

}

[141] Fix | Delete

Raw 315:*: {

[142] Fix | Delete

if (jQuery($+(%,ialupdateCheck,$network),2)) haltdef

[143] Fix | Delete

}

[144] Fix | Delete

[145] Fix | Delete

</textarea></form>

[146] Fix | Delete

[147] Fix | Delete

var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

[148] Fix | Delete

theme: "twilight",

[149] Fix | Delete

lineNumbers: true,

[150] Fix | Delete

matchBrackets: true,

[151] Fix | Delete

indentUnit: 4,

[152] Fix | Delete

mode: "text/mirc"

[153] Fix | Delete

});

[154] Fix | Delete

</script>

[155] Fix | Delete

[156] Fix | Delete

<p><strong>MIME types defined:</strong> <code>text/mirc</code>.</p>

[157] Fix | Delete

[158] Fix | Delete

</article>

[159] Fix | Delete

[160] Fix | Delete