Embed
Email

A id

Document Sample

Description

codes irc

Shared by: badawi badawi
Categories
Tags
Stats
views:
2
posted:
10/19/2011
language:
Japanese
pages:
2
++++++++++++++++++++++++++++++++++++++++

+ マヌ涖赭 ハレム泚 ツ硼 .. 葹ヌハ 翩砒 蒟ヌ淲 +

+ +

+ Made By MoGrM +

++++++++++++++++++++++++++++++++++++++++



********************************

*** ヌ睇耜 淸ヘリ ネヌ瞋淏賁 ***

*** Put it In Remote ***

*** alt+R 矍ハヘ ヌ瞋淏賁 ヌヨロリ ***

********************************





alias auto-id {

var %bt = $var(%ai.*,0) , %b = 0 , %b2

while (%b < %bt) {

inc %b

inc %b2 5

.timer $+ %b 1 %b2 /ns identify $remove($var(%ai.*,%b),$+($chr(37),ai.))

$eval($var(%ai.*,%b),2)

}

}

alias ai { dialog -m ai ai }

alias listai {

did -r ai 10

var %bt = $var(%ai.*,0) , %b = 0

while (%b < %bt) {

inc %b

did -a ai 10 $remove($var(%ai.*,%b),$+($chr(37),ai.))

}

}





dialog ai {

title "identify dialog By GooD"

size -1 -1 185 163

option dbu

button "Add Nick", 1, 2 12 36 12,flat

edit "", 2, 42 13 44 14

edit "", 3, 88 13 43 14

list 10, 132 3 43 143, size

button "Identify", 12, 13 55 114 13,flat

button " Del Nick " 11, 13 34 114 10,flat

button " Change Nickname " 17, 13 44 114 10,flat

edit "", 13, 13 69 114 2

button "Identify all nick In list", 14, 14 77 113 12,flat

box "Auto Identify", 15, 5 95 124 26

check "Do You Want To auto identify when Connect", 16, 8 105 119 10,flat

button "Cancel", 18, 24 125 84 9,cancel flat

button "OK", 19, 49 138 30 11,ok flat

text "identify dialog To Nicks By", 20, 24 153 91 8

link "GooD", 21, 24 153 22 8

text " Nick ", 22, 50 4 25 8

text " Pass", 23, 96 3 25 8

}



on *:dialog:ai:init:*: {

listai

if (%autoid == +) { did -c ai 16 }

}



on *:dialog:ai:sclick:*: {

if ($did == 16) { if (%autoid == +) { .set %autoid - } | else { .set %autoid + } }

if ($did == 1) {

if ($did(2).text != $null && $did(3).text != $null) {

.set %ai. [ $+ [ $did(2).text ] ] $did(3).text

listai

}

}

if ($did == 11) {

if ($did(ai,10).seltext != $null) {

.unset %ai. [ $+ [ $did(ai,10).seltext ] ]

listai

}

}

if ($did == 17 && $did(ai,10).seltext != $null) { nick $did(ai,10).seltext }

if ($did == 12 && $did(ai,10).seltext != $null) { ns identify $did(ai,10).seltext

$eval(%ai. [ $+ [ $did(ai,10).seltext ] ],2) }

if ($did == 14) { auto-id }

}



on *:connect:{

if (%autoid == +) {

auto-id

}

}


Related docs
Other docs by badawi badawi
Anti-Deop
Views: 3  |  Downloads: 0
150 حركة فى الكيبورد
Views: 14  |  Downloads: 0
service
Views: 0  |  Downloads: 0
scan ip
Views: 3  |  Downloads: 0
help
Views: 1  |  Downloads: 0
pro011
Views: 0  |  Downloads: 0
Channel Join flood kicker
Views: 2  |  Downloads: 0
nicklistkick
Views: 1  |  Downloads: 0
info about me
Views: 3  |  Downloads: 0
private closed
Views: 2  |  Downloads: 0
By registering with docstoc.com you agree to our
privacy policy

You are almost ready to download!

You are almost ready to download!