الاوي + بحث عن ايبي في الجنل + امر انفايت

[sub-ziro`]

نظام الاوي
الامر هذاا برموت

#AwayProg off
on 1:text:*:?:{
.msg $nick 41I'14am 1A14way 1N14ow 1R14eason : 1‡ %awayReason 1‡ 1 T14ime : 1‡ %awayTime 1‡ %mynameiswolf
}
on 1:notice:*:?:{
.notice $nick 41I'14am 1A14way 1N14ow 1R14eason : 1‡ %awayReason 1‡ 6 T14ime : 1‡ %awayTime 1‡ %mynameiswolf
}
#AwayProg end

alias [AwaY] {
/.set %awayreason $$?="شنو سبب الاوى"
/.Set %awayTime $TiMe
/.Set %awayNick $me
/amsg 1I'14am 1A14way 1N14ow 1R14eason : 1‡ %awayReason 1‡ 1 T14ime : 1‡ %awayTime 1‡ %script
/nick $me $+ [a]
.timerawaY 0 600 441I'14am 1A14way 1N14ow 1R14eason : 1‡ %awayReason 1‡ 1 T14ime : 1‡ %awayTime 1‡ %mynameiswolf
.enable #AwayProg
}

alias [Back] {
/amsg 41 I'14am 1B14acK 1N14ow 1R14eason : 1‡ %awayReason 1‡ 1T14ime : 1‡ %awayTime 1‡ %mynameiswolf
/nick %awaYnick
/.unset %away*
.timerawaY off
.disable #AwayProg
}

وهذا تحطه في

popups

-
™‡… نظــام الاوي…‡™
.Away:[away]
.-
.Back:[back]
-


================================
بحث عن ايبي في الجنل


هذا تخليه في

popups

-
™‡… البحث بالايبي …‡™:finip
-


هذا في الرموت




ON *:LOAD:{ finipinfo }
DIALOG ip {
title "أخراج النك WOLFQ8 "
size -1 -1 265 111
text "أخراج النك عن طريق الأيبي",1,0 5 260 15,center
edit "",2,35 30 135 20,autohs
text "الأيبي",3,10 30 25 20
button "موافق",4,200 30 60 20,ok,default
button "الغاء",5,200 55 60 20,cancel
edit "",6,35 55 135 20,autohs
text "[#]الجنل مع",7,0 55 30 20
text "Method:", 8, 5 86 100 20
radio "سريع", 9, 55 83 100 20,push
radio "بطيء" 10, 160 83 100 20,push
}
ON *IALOG:ip:init:*:{
did -c ip 9 | if ($chan(0) = 0) { goto end } | set %temp.inc 1 | :loop
if (%temp.inc > $chan(0)) { goto end } | if ($chan(%temp.inc) = $active) { did -a ip 6 $chan(%temp.inc) | goto end }
else { inc %temp.inc | goto loop } | :end | unset %temp.inc | if ($did(ip,6).text = $null) { did -a ip 6 $chan(1) }
if (%use.chan != $Null) { did -o ip 6 1 %use.chan | unset %use.chan } | if (%use.ip != $Null) { did -a ip 2 %use.ip | unset %use.ip }
if ((%use.ip != $Null) && (%use.chan != $Null)) { replacetext ip 1 1 TVtag Script's FinIP | .timerquickstart 1 0 /dialog -k ip }
}
ON *IALOG:ip:sclick{
if ($did(ip,2).text = $null) { did -o ip 1 1 Need an IP number!! | .timerrt 1 4 .replacetext ip 1 1 TVtag Script's FinIP | halt }
if ($did(ip,6).text = $null) { did -o ip 1 1 Need a channel to search (you must be in it)!! | .timerrt 1 4 .replacetext ip 1 1 TVtag Script's FinIP | halt }
if ($me !ison $did(ip,6).text) { did -o ip 1 1 You are not on that channel! | .timerrt 1 4 .replacetext ip 1 1 TVtag Script's FinIP | halt } | set %ip.max $nick($did(ip,6).text,0) | set %ip.ip $did(ip,2).text | set %ip.i 1 | set %ip.chan $did(ip,6).text | if ($did(ip,9).state = 1) { .timer 1 0 fast.start } | else { .timer 1 0 lets.start }
}

ALIAS FinIP {
if ($server = $Null) { psecho -sl You have to be connected to a server and in a channel before using this function. | return } | if ($1 != $Null) { set %use.ip $1 } | else { unset %use.ip }
if ($2 = $Null) { if $left($active,1) = #) { set %use.chan $active } } | else { set %use.chan $2 } | if ($dialog(ip)) { dialog -v ip } | else { dialog -ma ip ip } | .disable #dnsipforaddy | .disable #whogetaddynick | .disable #dnsnick
}
ALIAS finipinfo {
linesep -s | psecho -sg Welcome to FinIP! | psecho -sg * FinIP takes an IP number and searches a channel to find a nickname that matches that IP. | psecho -sg This could be useful if you have a IP from an external program of someone in the channel who is nuking you or maybe you know someone with a static IP that may be using a different nickname.
psecho -sg ...And who knows else what for. | psecho -sg Although not too many people may find this useful, I, as well as others, have. So i've decided to release this stand alone version to the public for use. | psecho -sg I would really apperciate if you would e-mail me at [email protected] with comments/suggestions/ideas about FinIP. Thank you greatly... | linesep -s | psecho -sg How To Use:
psecho -sg A) If you know the channel and IP you would like to search for... type /finip [channel] [ip] ... please keep in mind you must be IN the channel to search it. | psecho -sg B) If you would like to use the dialog with the IP, Channel, and Method (Fast or Slow) options before you begin searching, type /finip, or use the Pop-up Menus in the Menubar, Channel, or Nicklist.
psecho -sg Otherwise have fun, -Nirve
}
ALIAS -l psecho {
if (- isin $1) { if ($1 = -s) { /echo $colour(info) -ts *** $2- | goto end } | if ($1 = -sn) { /echo $colour(info) -ts *** $2- | goto end } | if ($1 = -c) { /echo $colour(info) -t $2 *** $3- | goto end } | if ($1 = -sg) { /echo $colour(info) -s *** $2- | goto end } | if ($1 = -l) { /echo $colour(info) -et *** $2- | goto end } | if ($1 = -lc) { /echo $colour(info) -et $2 *** $3- | goto end } | if ($1 = -sl) { /echo $colour(info) -est *** $2- | goto end } }
if ($left($1,1) = $chr(35)) { /echo $1 $+ $colour(info) $+ $timestamp *** $2- | goto end } | if ($left($1,7) = $active) { /echo -a $+ $colour(info) $+ $timestamp *** $2- | goto end } | else { /echo -a $+ $colour(info) $+ $timestamp *** $1- | goto end } | :end
}
ALIAS replacetext { if ($dialog($1)) { did -o $1 $2 $3- } }
ALIAS -l dns { .dns $1- | halt }
ALIAS -l fast.start { open.ipstat | set %ip.RUNNING yes | .enable #dnsipforaddy | .dns %ip.ip }
ALIAS -l whothechanforaddy { set -u30 %justjoined yes | .who %ip.chan | .enable #whogetaddynick }
ALIAS -l lets.start { open.ipstat | set %ip.RUNNING yes | set %ip.i 1 | start.scan }
ALIAS -l start.scan {
if (%ip.RUNNING = $Null) { return }
if (%ip.i > %ip.max) { dec %ip.i | finish.scan no }
if ($dialog(ipstat)) { did -r ipstat 4 | did -a ipstat 4 %ip.i $+ $chr(160) }
.enable #dnsnick | .dns -ps $nick(%ip.chan,%ip.i)
}
ALIAS -l dns { if ($1 = -ps) { .dns $2 | return } | else { dns $1 } }

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: FAST Method.
;:::::::::::::::::::::::::::::::::::::::
#dnsipforaddy off
ON *Ns:{
if ($iaddress = %ip.ip) {
if ($raddress != $null) { set %ip.raddy $raddress | /whothechanforaddy }
if ($raddress = $Null) { if ($dialog(ipstat)) { did -o ipstat 6 1 Error, begining slow method. } | .disable #dnsipforaddy | unset %ip.raddy | .timer 1 0 lets.start }
}
}
#dnsipforaddy end

#whogetaddynick off
RAW 352:*: {
if ($dialog(ipstat)) { did -r ipstat 4 | did -a ipstat 4 %ip.i $+ $chr(160) }
set -u1 %temp.raw $1- | if ($gettok(%temp.raw,2,32) != %ip.chan) { goto end }
if ($gettok(%temp.raw,4,32) = %ip.raddy) { finish.scan yes $gettok(%temp.raw,6,32) | .disable #whogetaddynick } | :end | inc %ip.i | halt
}
RAW 315:*: { finish.scan | .disable #whogetaddynick }
raw 315:*: { halt }
#whogetaddynick end

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: SLOW Method.
;:::::::::::::::::::::::::::::::::::::::

#dnsnick off
ON *NS:{ if ($iaddress = %ip.ip) { finish.scan yes $nick } | else { inc %ip.i | .disable #dnsnick | start.scan } }
#dnsnick end

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: Global Code.
;:::::::::::::::::::::::::::::::::::::::


ALIAS finish.scan {
unset %ip.RUNNING | .disable #dnsnick | .disable #dnsipforaddy
if ($1 = yes) { if ($dialog(ipstat)) { dialog -s ipstat -1 -1 177 172 | did -o ipstat 6 1 صادوه ياويله: | did -a ipstat 7 $2 | if ($me isop %ip.chan) { did -e ipstat 13 } } | else { linesep %ip.chan | psecho -lc %ip.chan $2 is the proud owner of %ip.ip | linesep %ip.chan } }
else { if ($dialog(ipstat)) { did -o ipstat 6 1 غير موجود. } | else { linesep %ip.chan | psecho -lc Could not find a nick that matches the IP %ip.ip ...sorry. | linesep %ip.chan } } | set %temp.ip.chan %ip.chan | unset %ip.*
}
ALIAS open.ipstat { if ($dialog(ipstat)) { dialog -v ipstat } | Else { dialog -m ipstat ipstat } }

DIALOG ipstat {
title "نتيجـــة البحث"
size -1 -1 177 96
text "البحث",1,5 5 140 15
edit "",2,15 25 40 20,disable
text "Users in",3,60 27 100 20
edit "",4,15 50 40 20,disable
text "مجموع النكات",5,60 52 115 20
text "مازال يبحث...",6,4 78 135 15
edit "",7,30 100 140 20,multi
edit "",8,30 125 140 20,multi
text "النك",9,3 103 25 20
text "IP",10,11 128 15 20
button "القمامه",11,1 1 1 1,cancel,hide
button "نسخ النك", 12, 5 150 70 20
button "طرد النك", 13, 80 150 90 20,disable
}

امر الانفايت

حطه برموت

}
menu status,Menubar {
-
™‡… الانـــــفـــــايــــت …‡™
.ضع رسالتك للداخل : /set %yourmsg $$?="ادخل رسالتك "
.شوف الرساله:/ echo %yourmsg
.تشغيل : /enable #yourmsg | /echo $active 14 تم الان تشغيل الاوتو مسج للداخلين القناة %script
.اطفاء : /disable #yourmsg | /echo $active 14 تم الان اطفاء الاوتو مسج %script

}
#yourmsg off
on *:join:#: / msg $nick %yourmsg %script
on *:part:#: / msg $nick %yourmsg %script

}

اتمنى لكم الأستفاده من اجمل منتدى نحيس:heart

[FAWAZ]

مشكوووووور يعطيك العافيه والله