حبايبي انشالله يعجبونكم اوامري واهمه اوامر خفيفه
------------------------------------------------------------------------------
تغير مود الجنل وانت في خارج الجنل
dailog Modes {
title "System Mode"
size -1 -1 216 178
option pixels
box "Mode Channel", 2, 4 34 104 116
box "Mode Nick", 3, 112 34 100 116
button "+M", 5, 10 76 42 16
button "+m", 6, 10 52 42 16
button "+c", 7, 10 100 42 16
button "+i", 8, 10 126 42 16
button "-m", 9, 60 52 42 16
button "-M", 10, 60 76 42 16
button "-c", 11, 60 100 42 16
button "-i", 12, 60 126 42 16
button "+i", 13, 132 50 62 20
button "-i", 14, 132 75 62 20
button "+R", 15, 132 99 62 20
button "-R", 16, 132 124 62 20
button "Done", 18, 155 154 56 22, cancel
text "Made By Q8Site", 19, 18 158 100 16
combo 1, 91 7 120 92, size edit drop
text "Type Channel:", 4, 6 10 81 16
}
on *:dialog:modes:sclick:5:/mode $did(Modes,1) +M
on *:dialog:modes:sclick:6:/mode $did(Modes,1) +m
on *:dialog:modes:sclick:7:/mode $did(Modes,1) +c
on *:dialog:modes:sclick:8:/mode $did(Modes,1) +i
on *:dialog:modes:sclick:9:/mode $did(Modes,1) -m
on *:dialog:modes:sclick:10:/mode $did(Modes,1) -M
on *:dialog:modes:sclick:11:/mode $did(Modes,1) -c
on *:dialog:modes:sclick:12:/mode $did(Modes,1) -i
on *:dialog:modes:sclick:13:/mode $me +i
on *:dialog:modes:sclick:14:/mode $me -i
on *:dialog:modes:sclick:15:/mode $me +R
on *:dialog:modes:sclick:16:/mode $me -R
on *:dialog:modes:init:0:{ var %chnget $chan(0) | while (%chnget) { did -a modes 1 $chan(%chnget) | dec %chnget } }
menu status,menubar,channel {
&Modes:/dialog -ma Modes Modes
}
-----------------------------------------------------------------------------------
البحث عن ايبي
alias ip { dialog -m IpScanner IpScanner }
dialog IpScanner {
title K_No_MerSy mIRC < $+ $version $+ >
size -1 -1 187 131
option dbu
box "Ip's Scan", 18, 1 1 185 50
text "Ip Scanner Edit By K_No_MerSy ", 19, 45 10 172 12
scroll "", 20, 177 4 6 45
text "All Right Reserved 2002®", 21, 52 22 62 12
text "K_No_MerSy Dialogs", 22, 56 34 62 12
box "", 33, 3 54 63 15
edit "Insert Nick", 3, 4 58 61 10,autohs
button "Scan", 4, 77 57 50 12
box "", 66, 76 53 52 17
box "", 117, 3 79 66 15
edit "Insert Host", 6, 4 83 64 10,autohs
edit "Insert Ip Address", 7, 77 83 59 10,autohs
box "", 10, 76 79 61 15
button "Scan", 9, 145 82 37 11
box "", 12, 144 78 39 16
list 8, 4 99 132 11,autovs
box "", 15, 3 95 134 16
button "Done", 16, 77 117 51 12,ok
box "", 17, 76 113 53 17
}
dialog IpLook {
title "Ip..."
size -1 -1 250 200
edit ,1, 5 10 240 20, read,autohs
edit ,2, 5 30 240 20, read,autohs
edit ,3, 5 50 240 20, read,autohs
edit ,4, 5 70 240 20, read,autohs
edit ,5, 5 90 240 20, read,autohs
edit ,6, 5 110 240 20, read,autohs
edit ,7, 5 130 240 20, read,autohs
edit ,8, 5 150 240 20, read,autohs
box ,9, 0 0 250 192
button "OK",10, 5 170 240 18,ok
button "cancel",11,10 10 10 10,cancel hide
}
dialog Error {
title K_No_MerSy mIRC < $+ $version $+ >
size -1 -1 175 41
option dbu
button "Done", 1, 400 24 37 12,ok
box "Error", 3, 0 0 175 41
text "Error: Server Is Now Note Connected To Do Something's !", 4, 7 15 112 26
}
on 1:DNS:{
if ($server == $null) { .dialog -m Error Error | .did -i Error 1 1 Error: Not Connected!| halt }
if ($raddress == $null) { dialog -m Iplook Iplook | .did -i Iplook 1 1 Nick: $nick | .did -i Iplook 4 4 Ip: $iaddress | .did -i Iplook 5 5 Error: Could Not Resolv | .did -i Iplook 6 6 Error: Could Not Resolv | .whois $nick }
else { .enable #whois | dialog -m Iplook Iplook | did -i Iplook 1 1 Nick: $+ $nick | did -i Iplook 4 4 Ip: $+ $iaddress | .did -i Iplook 5 5 Add: $+ $naddress | .did -i Iplook 6 6 Resolv: $+ $raddress | .whois $nick }
}
on *:dialog:Ipscanner:sclick:4:{
if ($did(IpScanner,3) == $null) { dialog -m Error Error | .did -i Error 1 1 Error: No Nick Placed! | halt }
if ($server == $null) { dialog -m Error Error | .did -i Error 1 1 Error: Not Connected! | halt }
if (#whois == enable) { .dns $did(Ipscanner,3) }
else { .enable #Whois | .dns $did(Ipscanner,3) }
}
on *:dialog:IpScanner:sclick:9:{
if ($server == $null) { dialog -m Error Error | .did -i Error 1 1 Error: Not Connected! | halt }
.did -r Ipscanner 8 | .who $did(IpScanner,6) $did(IpScanner,7)
}
on *:dialog:IpScanner:sclick:10:{
.disable #Whois
}
on *:dialog:IpLook:sclick:10:{
.disable #Whois
}
on *:dialog:IpScanner:sclick:11:{
.disable #Whois
}
on *:dialog:IpScanner:sclick:12:{
.disable #Whois
}
on *:dialog:Iplook:sclick:7:{
.disable #Whois
}
on *:dialog:IpScanner:init:*:{
.enable #Whois
}
on *:dialog:IpScanner:sclick:11:{
dialog -x Ipscanner IpScanner
set %Unload $?!="Do u realy Want to Unload IpScanner v4.0 By ToTaLlY"
if (%Unload == $true) { dialog -m Error Error | .dialog -t Error Unload... | .did -i Error 1 1 Unloading IpScan v4.0 | .ame I Unloaded Ip Scanner By ToTaLlY Get It at | .unload -rs $script }
else dialog -m Error Error | dialog -t Error Did Not Unload... | .did -i Error 1 1 Did Not Unload... | halt
}
menu nicklist,query {
-
IpScan:/.dns $$1 | .enable #Whois
-
}
#whois off
raw 352:*:{
.did -a IpScanner 8 $6 Channel: $2
}
raw 311:*:{ did -i Iplook 2 2 Name: $6- | did -i Iplook 3 3 User: $3 $+ @ $+ $4
}
raw 312:*:{ did -i Iplook 8 8 Server: $+ $3-
}
raw 319:*:{ did -i Iplook 7 7 $3-
}
raw 311:*:{ did -a Iplook 3 Name: $6-
}
raw 401:*:{ did -i Iplook 1 1 Nick:No Such Nick! | did -i Iplook 2 2 Name:No Such Nick! | did -i Iplook 3 3 Ip:No Such Nick! | did -i Iplook 4 4 Add:No Such Nick! | did -i Iplook 5 5 Resolv:No Such Nick! | did -i Iplook 6 6 No Such Nick! | did -i Iplook 7 7 No Such Nick! | dialog -t Iplook No Such Nick!
}
#whois end
menu channel,status,menubar {
-
IpScanner:.IpScanner
}
---------------------------------------------------------------------------------
الاقنور ليست حلوه وانشالله تعجبك على دايلوق
dialog Ignore {
title "-=[Ignore ]=-"
size -1 -1 99 125
option dbu
box "الاقنور", 1, 2 4 92 119
button "1min", 2, 7 22 37 12
button "2min", 3, 52 22 37 12
button "3min", 4, 7 40 37 12
button "4min", 5, 52 40 37 12
button "5min", 6, 7 59 37 12
button "List", 7, 52 59 37 12
button "ignore", 8, 7 77 37 12
button "UnIgnore", 9, 52 77 37 12
button "&OK", 10, 29 95 37 12, ok
button "ok", 11, 29 95 37 12
edit "By WesT^LiFe", 12, 47 111 42 10, autohs
}
on 1:dialog:Ignore:sclick:2: { /ignore -u60 $$?="النك:" }
on 1:dialog:Ignore:sclick:3: { /ignore -u120 $$?="النك:" }
on 1:dialog:Ignore:sclick:4: { /ignore -u180 $$?="النك:" }
on 1:dialog:Ignore:sclick:5: { /ignore -u240 $$?="النك:" }
on 1:dialog:Ignore:sclick:6: { /ignore -u300 $$?="النك:" }
on 1:dialog:Ignore:sclick:8: { /ignore $$?="النك:" }
on 1:dialog:Ignore:sclick:7: { /ignore -l $$* 2 }
on 1:dialog:Ignore:sclick:9: { /ignore -r $$?="النك:" }
انشالله تحبون اوامري تره حلوه مثل الي يستعملونها
اخوكم جيكر بس حلو
JeKaR^Bs^7LoOo
------------------------------------------------------------------------------
تغير مود الجنل وانت في خارج الجنل
dailog Modes {
title "System Mode"
size -1 -1 216 178
option pixels
box "Mode Channel", 2, 4 34 104 116
box "Mode Nick", 3, 112 34 100 116
button "+M", 5, 10 76 42 16
button "+m", 6, 10 52 42 16
button "+c", 7, 10 100 42 16
button "+i", 8, 10 126 42 16
button "-m", 9, 60 52 42 16
button "-M", 10, 60 76 42 16
button "-c", 11, 60 100 42 16
button "-i", 12, 60 126 42 16
button "+i", 13, 132 50 62 20
button "-i", 14, 132 75 62 20
button "+R", 15, 132 99 62 20
button "-R", 16, 132 124 62 20
button "Done", 18, 155 154 56 22, cancel
text "Made By Q8Site", 19, 18 158 100 16
combo 1, 91 7 120 92, size edit drop
text "Type Channel:", 4, 6 10 81 16
}
on *:dialog:modes:sclick:5:/mode $did(Modes,1) +M
on *:dialog:modes:sclick:6:/mode $did(Modes,1) +m
on *:dialog:modes:sclick:7:/mode $did(Modes,1) +c
on *:dialog:modes:sclick:8:/mode $did(Modes,1) +i
on *:dialog:modes:sclick:9:/mode $did(Modes,1) -m
on *:dialog:modes:sclick:10:/mode $did(Modes,1) -M
on *:dialog:modes:sclick:11:/mode $did(Modes,1) -c
on *:dialog:modes:sclick:12:/mode $did(Modes,1) -i
on *:dialog:modes:sclick:13:/mode $me +i
on *:dialog:modes:sclick:14:/mode $me -i
on *:dialog:modes:sclick:15:/mode $me +R
on *:dialog:modes:sclick:16:/mode $me -R
on *:dialog:modes:init:0:{ var %chnget $chan(0) | while (%chnget) { did -a modes 1 $chan(%chnget) | dec %chnget } }
menu status,menubar,channel {
&Modes:/dialog -ma Modes Modes
}
-----------------------------------------------------------------------------------
البحث عن ايبي
alias ip { dialog -m IpScanner IpScanner }
dialog IpScanner {
title K_No_MerSy mIRC < $+ $version $+ >
size -1 -1 187 131
option dbu
box "Ip's Scan", 18, 1 1 185 50
text "Ip Scanner Edit By K_No_MerSy ", 19, 45 10 172 12
scroll "", 20, 177 4 6 45
text "All Right Reserved 2002®", 21, 52 22 62 12
text "K_No_MerSy Dialogs", 22, 56 34 62 12
box "", 33, 3 54 63 15
edit "Insert Nick", 3, 4 58 61 10,autohs
button "Scan", 4, 77 57 50 12
box "", 66, 76 53 52 17
box "", 117, 3 79 66 15
edit "Insert Host", 6, 4 83 64 10,autohs
edit "Insert Ip Address", 7, 77 83 59 10,autohs
box "", 10, 76 79 61 15
button "Scan", 9, 145 82 37 11
box "", 12, 144 78 39 16
list 8, 4 99 132 11,autovs
box "", 15, 3 95 134 16
button "Done", 16, 77 117 51 12,ok
box "", 17, 76 113 53 17
}
dialog IpLook {
title "Ip..."
size -1 -1 250 200
edit ,1, 5 10 240 20, read,autohs
edit ,2, 5 30 240 20, read,autohs
edit ,3, 5 50 240 20, read,autohs
edit ,4, 5 70 240 20, read,autohs
edit ,5, 5 90 240 20, read,autohs
edit ,6, 5 110 240 20, read,autohs
edit ,7, 5 130 240 20, read,autohs
edit ,8, 5 150 240 20, read,autohs
box ,9, 0 0 250 192
button "OK",10, 5 170 240 18,ok
button "cancel",11,10 10 10 10,cancel hide
}
dialog Error {
title K_No_MerSy mIRC < $+ $version $+ >
size -1 -1 175 41
option dbu
button "Done", 1, 400 24 37 12,ok
box "Error", 3, 0 0 175 41
text "Error: Server Is Now Note Connected To Do Something's !", 4, 7 15 112 26
}
on 1:DNS:{
if ($server == $null) { .dialog -m Error Error | .did -i Error 1 1 Error: Not Connected!| halt }
if ($raddress == $null) { dialog -m Iplook Iplook | .did -i Iplook 1 1 Nick: $nick | .did -i Iplook 4 4 Ip: $iaddress | .did -i Iplook 5 5 Error: Could Not Resolv | .did -i Iplook 6 6 Error: Could Not Resolv | .whois $nick }
else { .enable #whois | dialog -m Iplook Iplook | did -i Iplook 1 1 Nick: $+ $nick | did -i Iplook 4 4 Ip: $+ $iaddress | .did -i Iplook 5 5 Add: $+ $naddress | .did -i Iplook 6 6 Resolv: $+ $raddress | .whois $nick }
}
on *:dialog:Ipscanner:sclick:4:{
if ($did(IpScanner,3) == $null) { dialog -m Error Error | .did -i Error 1 1 Error: No Nick Placed! | halt }
if ($server == $null) { dialog -m Error Error | .did -i Error 1 1 Error: Not Connected! | halt }
if (#whois == enable) { .dns $did(Ipscanner,3) }
else { .enable #Whois | .dns $did(Ipscanner,3) }
}
on *:dialog:IpScanner:sclick:9:{
if ($server == $null) { dialog -m Error Error | .did -i Error 1 1 Error: Not Connected! | halt }
.did -r Ipscanner 8 | .who $did(IpScanner,6) $did(IpScanner,7)
}
on *:dialog:IpScanner:sclick:10:{
.disable #Whois
}
on *:dialog:IpLook:sclick:10:{
.disable #Whois
}
on *:dialog:IpScanner:sclick:11:{
.disable #Whois
}
on *:dialog:IpScanner:sclick:12:{
.disable #Whois
}
on *:dialog:Iplook:sclick:7:{
.disable #Whois
}
on *:dialog:IpScanner:init:*:{
.enable #Whois
}
on *:dialog:IpScanner:sclick:11:{
dialog -x Ipscanner IpScanner
set %Unload $?!="Do u realy Want to Unload IpScanner v4.0 By ToTaLlY"
if (%Unload == $true) { dialog -m Error Error | .dialog -t Error Unload... | .did -i Error 1 1 Unloading IpScan v4.0 | .ame I Unloaded Ip Scanner By ToTaLlY Get It at | .unload -rs $script }
else dialog -m Error Error | dialog -t Error Did Not Unload... | .did -i Error 1 1 Did Not Unload... | halt
}
menu nicklist,query {
-
IpScan:/.dns $$1 | .enable #Whois
-
}
#whois off
raw 352:*:{
.did -a IpScanner 8 $6 Channel: $2
}
raw 311:*:{ did -i Iplook 2 2 Name: $6- | did -i Iplook 3 3 User: $3 $+ @ $+ $4
}
raw 312:*:{ did -i Iplook 8 8 Server: $+ $3-
}
raw 319:*:{ did -i Iplook 7 7 $3-
}
raw 311:*:{ did -a Iplook 3 Name: $6-
}
raw 401:*:{ did -i Iplook 1 1 Nick:No Such Nick! | did -i Iplook 2 2 Name:No Such Nick! | did -i Iplook 3 3 Ip:No Such Nick! | did -i Iplook 4 4 Add:No Such Nick! | did -i Iplook 5 5 Resolv:No Such Nick! | did -i Iplook 6 6 No Such Nick! | did -i Iplook 7 7 No Such Nick! | dialog -t Iplook No Such Nick!
}
#whois end
menu channel,status,menubar {
-
IpScanner:.IpScanner
}
---------------------------------------------------------------------------------
الاقنور ليست حلوه وانشالله تعجبك على دايلوق
dialog Ignore {
title "-=[Ignore ]=-"
size -1 -1 99 125
option dbu
box "الاقنور", 1, 2 4 92 119
button "1min", 2, 7 22 37 12
button "2min", 3, 52 22 37 12
button "3min", 4, 7 40 37 12
button "4min", 5, 52 40 37 12
button "5min", 6, 7 59 37 12
button "List", 7, 52 59 37 12
button "ignore", 8, 7 77 37 12
button "UnIgnore", 9, 52 77 37 12
button "&OK", 10, 29 95 37 12, ok
button "ok", 11, 29 95 37 12
edit "By WesT^LiFe", 12, 47 111 42 10, autohs
}
on 1:dialog:Ignore:sclick:2: { /ignore -u60 $$?="النك:" }
on 1:dialog:Ignore:sclick:3: { /ignore -u120 $$?="النك:" }
on 1:dialog:Ignore:sclick:4: { /ignore -u180 $$?="النك:" }
on 1:dialog:Ignore:sclick:5: { /ignore -u240 $$?="النك:" }
on 1:dialog:Ignore:sclick:6: { /ignore -u300 $$?="النك:" }
on 1:dialog:Ignore:sclick:8: { /ignore $$?="النك:" }
on 1:dialog:Ignore:sclick:7: { /ignore -l $$* 2 }
on 1:dialog:Ignore:sclick:9: { /ignore -r $$?="النك:" }
انشالله تحبون اوامري تره حلوه مثل الي يستعملونها
اخوكم جيكر بس حلو
JeKaR^Bs^7LoOo
تعليق