تجسس على شكل دايلوق

[AL_7loo]

ــــــــــــــــ
alias Xmsg thmset $2- | var %::text = $iif(c isin $gettok($chan($1).mode,1,32),$strip($2-),$2-) | .msg $1 %::text | set -u0 %::chan $1 | set -u0 %:echo echo $color(own text) $iif(%option.timestamp,-t) $1 | %:echo $$thm($hget(theme,TextChanSelf))
alias hsnw_spy.ssf return Spy
alias hsnw__spy return hsnw_spy.ssf
alias menu_spy return 1
alias runSPY dialog -m DLGspy DLGspy
dialog DLGspy {
title "Spy settings"
size -1 -1 121 117
option dbu
text "Now spying:", 1, 6 6 33 8
edit "#channel1", 2, 40 5 50 10, read autohs
link "Change", 3, 92 6 19 8
text "Spying to:", 4, 12 16 24 8
edit "#channel2", 5, 40 15 50 10, read autohs
link "Change", 6, 92 16 19 8
box "What to spy", 7, 2 29 116 69
check "Text", 8, 9 39 43 10
check "Actions", 9, 9 48 42 10
check "Joins", 10, 9 57 50 10
check "Parts", 11, 9 66 50 10
check "Quits", 12, 9 75 50 10
check "Nick changes", 13, 59 75 50 10
check "Channel modes", 14, 59 39 50 10
check "User modes", 15, 59 48 50 10
check "Topic changes", 16, 59 57 50 10
check "Notices", 17, 59 66 50 10
button "OK", 18, 16 103 45 12,ok
button "Cancel", 19, 63 103 45 12,cancel
check "Kicks", 20, 9 84 50 10
}


on *IALOGLGspy:init:*: {
if ($gettok(%spy.enable,1,32)) did -ra $dname 2 $gettok(%spy.enable,2,32) | else did -ra $dname 2 (none)
if ($gettok(%spy.enable,1,32)) did -ra $dname 5 $gettok(%spy.enable,3,32) | else did -ra $dname 5 (none)
if ($group(#spy.text) == on) did -c $dname 8
if ($group(#spy.actions) == on) did -c $dname 9
if ($group(#spy.joins) == on) did -c $dname 10
if ($group(#spy.parts) == on) did -c $dname 11
if ($group(#spy.quits) == on) did -c $dname 12
if ($group(#spy.nick) == on) did -c $dname 13
if ($group(#spy.cmodes) == on) did -c $dname 14
if ($group(#spy.umodes) == on) did -c $dname 15
if ($group(#spy.topic) == on) did -c $dname 16
if ($group(#spy.notices) == on) did -c $dname 17
if ($group(#spy.kick) == on) did -c $dname 20
}

on *IALOGLGspy:sclick:18: {
$iif($did($dname,8).state,.enable,.disable) #spy.text
$iif($did($dname,9).state,.enable,.disable) #spy.actions
$iif($did($dname,10).state,.enable,.disable) #spy.joins
$iif($did($dname,11).state,.enable,.disable) #spy.parts
$iif($did($dname,12).state,.enable,.disable) #spy.quits
$iif($did($dname,13).state,.enable,.disable) #spy.nick
$iif($did($dname,14).state,.enable,.disable) #spy.cmodes
$iif($did($dname,15).state,.enable,.disable) #spy.umodes
$iif($did($dname,16).state,.enable,.disable) #spy.topic
$iif($did($dname,17).state,.enable,.disable) #spy.notices
$iif($did($dname,20).state,.enable,.disable) #spy.kick
set %spy.enable $iif($did($dname,2) != (none),1,0) $did($dname,2) $did($dname,5)
}

on *IALOGLGspy:sclick:3: var %t.spy = $?="Enter channel to spy from, or leave open to disable" | did -ra $dname 2 $iif(%t.spy,%t.spy,(none))
on *IALOGLGspy:sclick:6: var %t.spy = $?="Enter channel to spy to, or leave open for nothing" | did -ra $dname 5 $iif(%t.spy,%t.spy,(none))

#spy.text on
on *:TEXT:*:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) [ $+ $nick $+ ] $1-
#spy.text end

#spy.actions on
on *:ACTION:*:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) 12* $nick $1-
#spy.actions end

#spy.joins on
on *:JOIN:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick $address $1-
#spy.joins end

#spy.parts on
on *ART:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick $address $1-
#spy.parts end

#spy.kick on
on *:KICK:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $knick got kicked by $nick ( $+ $1- $+ )
#spy.kick end

#spy.quits on
on *:QUIT: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($nick ison $gettok(%spy.enable,2,32)) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick $address $1-
#spy.quits end

#spy.nick on
on *:NICK: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($nick ison $gettok(%spy.enable,2,32)) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick is now known as $newnick
#spy.nick end

#spy.cmodes on
on *:MODE:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1-
#spy.cmodes end

#spy.umodes on
on *:OP:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
on *EOP:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
on *:OWNER:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
on *EOWNER:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
on *:VOICE:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
on *EVOICE:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets mode $1 $opnick
#spy.umodes end

#spy.topic on
on *:TOPIC:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick sets a new topic $1-
#spy.topic end

#spy.notices on
on *:NOTICE:*:#: if (%fp.pubmsg.halt) halt | if ($gettok(%spy.enable,1,32)) && ($gettok(%spy.enable,2,32) == #) Xmsg $gettok(%spy.enable,3,32) ( $+ $event $+ ) $nick - $1-
#spy.notices end
alias -l thmset set -u0 %::nick $nick | set -u0 %::address $address | set -u0 %::me $me | set -u0 %::chan $chan | set -u0 %::text $1-

[JeKaR^Bs^7LoOo]

مشكوور
بس مافهمتنا يتجسس على شنو

[المغدووور _فيه]

يعطيك العاااافيه حبيبي بس والله مو فااهمين ولا شئ يا ليت تشررررح بس ومشكووور مره ثاانيه

[al-raad]

على شنو التجسس

[iceman]

ماشتغل عندي ليش ؟

هل هذا خاص بفيرجن معين ؟

اتمنى الرد بأسرع وقت ممكن