قديم 08-14-2003, 08:01 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Aug 2003
العضوية: 2033
المشاركات: 51 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
AL7OOT غير متصل
وسائل الإتصال:

المنتدى : برامج - سكربتات - اضافات ماسنجر
بوت لكشف الانفايت

on 1:sockclose:irc:{
echo -a *** Bot Diconnected
.timerBot off
}
on 1:CLOSE:@Bot:{
sockclose irc
echo -a *** Bot Diconnected
.timerBot off
}
alias Botchan return %Botchan
on 1:sockopen:irc:{
if $sockerr > 0 { halt }
window -e @Bot
aline @Bot *** Status: Connecting to $sock(irc).ip $+ : $+ $sock(irc).port
.sockwrite -n $sockname USER $sockname $sockname $sockname :Iam jast bot - /msg $me <ur msg>
if (%randomnick == 1) { set %irc2.nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
sockwrite -n irc nick %irc2.nick
}
on 1:sockread:irc:{
sockread %var
if (No nickname given isin %var) {
aline 4 @Bot -> No NickName Given .. Using Default Nick !
sockwrite -n irc nick %irc2.nick
}
if (End of /MOTD isin %var) {
aline 4 @Bot *** Connected [ $gettok(%var,3,32) ] to $remove($gettok(%var,1,32),:) ...
.notify %irc2.nick
.sockwrite -nt $sockname away : $+ I am a Bot For $me Type:/msg $me <ur Msg> and Thanx for Whois Me :P~
sockwrite -n irc join $Botchan
timerBot 0 %Bottime Botirc2
/echo -a *** Bot joining $Botchan
}
if NOTICE == $gettok(%var,2,32) {
set %say.not $remove($gettok(%var,4-,32),:)
set %nick.not $remove($left($gettok(%var,1,32),$pos($gettok(%var ,1,32),!,1)),:,!)
if (http isin %say.not) || (www isin %say.not) || (.org isin %say.not) || (/server isin %say.not) || (.cjb isin %say.not) || ($chr(35) isin %say.not) { aline 2 @Bot 3-> Kicking 4 $+ %nick.not . Reason: Inviting/Advertizing ! | comchan_not }
if (DCC Send* iswm %say.not) && ($me isop $comchan(%nick.not,1)) { set %infectedfile $gettok(%var,6,32) | aline 2 @Bot 3-> Kicking 4 $+ %nick.not . Reason: Infected ( $gettok(%var,6,32) ) . | comchan_infected }
}
if PRIVMSG == $gettok(%var,2,32) && ($left($gettok(%var,3,32),1) != $chr(35)) {
set %say.msg $remove($gettok(%var,4-,32),:)
set %nick.msg $remove($left($gettok(%var,1,32),$pos($gettok(%var ,1,32),!,1)),:,!)
if (http isin %say.msg) || (www. isin %say.msg) || (.org isin %say.msg) || (/server isin %say.msg) || (.cjb isin %say.msg) || ($chr(35) isin %say.msg) { aline 2 @Bot 3-> Kicking 4 $+ %nick.msg . Reason: Inviting/Advertizing ! | comchan_msg }
}
}
alias Botirc2 {
aline 2 @Bot >>> Bot %Botchan ..
sockwrite -n irc part $Botchan Lock invite
.timer 1 1 { sockwrite -n irc join $!Botchan }
}
alias comchan_not {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %invitemsg }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_infected {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %infectedkick <--- %infectedfile }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_msg {
if ($comchan(%nick.msg,0) > 0) {
set %loop.msg $comchan(%nick.msg,0)
:loop
if ($me isop $comchan(%nick.msg,%loop.msg)) && (%nick.msg !isop $comchan(%nick.msg,%loop.msg)) { ban $comchan(%nick.msg,%loop.msg) %nick.msg 2 | kick $comchan(%nick.msg,%loop.msg) %nick.msg %invitemsg }
if (%loop.msg == 0) { goto end }
dec %loop.msg 1
goto loop
:end
unset %*.msg
}
}
alias askBot /dialog -m askBot askBot
dialog askBot {
title "Bot Addon"
size -1 -1 135 30
option dbu
button "Yes", 1, 30 18 30 10, ok default
button "No", 2, 70 18 30 10, cancel
text "Bot Connected Do u want to start Bot now ?", 3, 10 5 120 10
}
on 1:dialog:askBot:sclick:1: {
sockwrite -n irc join $Botchan | timerBot 0 %Bottime Botirc2 | /echo -a *** Bot joining $Botchan
}
on 1:dialog:askBot:sclick:2: {
/dialog -c askBot askBot
}

alias checkBotchan {
if ( %Botchan == $null ) {
.timerBot off
.sockclose irc
.close -@ @Bot
}
}
on 1:disconnect:{
set %Botchan
unset %var
.notify -r %irc2.nick
}
#discwarninon off
on 1:unotify:{
if ($nick == %irc2.nick) {
.echo -a *** Bot have been Disconnected
discwarnin
.notify -r %irc2.nick
}
}
disable #discwarnin off
#discwarninon end
#discwarnin off
on 1:unotify:{
if ($nick == %irc2.nick) {
/echo -a *** Bot have been Disconnected
sockopen irc %BotServer 6667
.notify -r %irc2.nick
}
}
disable #discwarninon off
#discwarnin end
if ($sock(irc)) {
if ($window(@Bot) == $null) {
window -e @Bot
}
}
alias discwarnin /dialog -m discwarnin discwarnin
dialog discwarnin {
title "Disconnection Warning"
size -1 -1 100 40
option dbu
text "Bot have been Disconnected . Would u like to reconnect again ?", 1, 5 5 90 20
button "Yes", 200, 10 28 30 10, ok
button "No", 210, 60 28 30 10, cancel
}
on 1:dialog:discwarnin:sclick:200: {
/sockopen irc %BotServer
}
on 1:dialog:discwarnin:sclick:210: {
/dialog -c discwarnin discwarnin
}
dialog zx {
title "التحكم بالبوت"
size -1 -1 230 130
option dbu
tab "تشغيل البوت", 2, 3 2 242 192
tab "برمجة البوت", 3
combo 201, 20 35 50 80, edit, tab 2
button "اظافه", 202, 75 50 20 10, tab 2
button "الغاء", 203, 75 70 20 10, tab 2
button "تنظيف", 213, 75 90 20 10, tab 2
button "اوكي", 200, 170 100 20 10, ok
button "الغاء", 210, 200 100 20 10, cancel
button "شغل البوت", 420, 130 90 35 10, tab 2
button "وقف البوت", 430, 130 110 35 10, tab 2
box "السيرفرات", 300, 110 20 110 60, tab 2
text "اختر سيرفر من لستة السيرفرات", 355, 130 30 90 10,tab 2
combo 410, 140 40 50 100, drop, tab 2
box "جنلات البوت", 301, 10 20 90 100, tab 2
text "مثال : #ياكويت",222, 20 27 40 8, tab 2
text "وقت البوت", 10, 10 31 30 10,style(left), tab 3
text "ثانيه", 1050, 85 31 30 10,style(left), tab 3
combo 20, 60 30 20 10,style(edit), tab 3
text "نك البوت", 30, 10 41 60 10,style(left), tab 3
combo 40, 60 40 155 10,style(edit), tab 3
text "مسج طرد الانفايت", 50, 10 51 60 10,style(left), tab 3
combo 60, 60 50 155 10,style(edit), tab 3
text "مسج طرد الباك دور", 70, 10 61 60 10,style(left), tab 3
combo 80, 60 60 155 10,style(edit), tab 3
text "اشبك البوت لافصل", 90, 10 81 100 10,style(left), tab 3
check "لا/نعم", 205, 15 90 30 10, right, tab3
}
on 1:dialog:zx:sclick:200:{
if ($did(zx,20).text != 180) { set %Bottime $did(zx,20).text }
if ($did(zx,40).text != hlep-B0t) { set %irc2.nick $did(zx,40).text }
if ($did(zx,60).text != -=- InvitinG/AdvertisinG Is Not Allowed Kicked By Bot (AnTi-Prob) -=- ) { set %invitemsg $did(zx,60).text }
if ($did(zx,80).text != -=- Stop Send Hack File To Users Kicked By Bot (AnTi-Prob) -=- ) { set %infectedkick $did(zx,80).text }
}
on 1:dialog:zx:init:*:{
if ( %Bottime == $null ) { did -ci zx 20 1 180 }
if ( %irc2.nick == $null ) { did -ci zx 40 1 hlep-B0t }
if ( %invitemsg == $null ) { did -ci zx 60 1 -=- InvitinG/AdvertisinG Is Not Allowed Kicked By Bot (AnTi-Prob) -=- }
if ( %infectedkick == $null ) { did -ci zx 80 1 -=- Stop Send Hack File To Users Kicked By Bot (AnTi-Prob) -=- }
if ( %Bottime != $null ) { did -ci zx 20 1 %Bottime }
if ( %irc2.nick != $null ) { did -ci zx 40 1 %irc2.nick }
if ( %invitemsg != $null ) { did -ci zx 60 1 %invitemsg }
if ( %infectedkick != $null ) { did -ci zx 80 1 %infectedkick }

}
alias zx {
dialog -m zx zx
did -a zx 410 tsunami.dal.net
did -a zx 410 nexgo.dal.net
did -a zx 410 flodder-c.dal.net
did -a zx 410 Twisted.dal.net
did -a zx 410 Hebron.dal.net
did -a zx 410 Liberty.dal.net
did -a zx 410 Oscar.dal.net
did -a zx 410 Ced.dal.net
did -a zx 410 Splitrock.dal.net
did -a zx 410 Lineone.dal.net
did -a zx 410 Dragons.dal.net
did -a zx 410 irc.WeArab.Net
did -a zx 410 Oman.WeArab.Net
did -a zx 410 Dubai.WeArab.Net
did -a zx 410 Q8.WeArab.Net
did -a zx 410 Qatar.WeArab.Net
did -a zx 410 Doha.WeArab.Net
did -a zx 410 Gulf.WeArab.Net
did -a zx 410 KSA.WeArab.Net
did -a zx 410 Khiran.WeArab.Net
did -a zx 410 Muscat.WeArab.Net
did -a zx 410 Egypt.WeArab.Net
did -a zx 410 Morocco.WeArab.Net
did -a zx 410 Kuwaitna.WeArab.Net
if ($group(#discwarnin) = on) { did -c zx 205 }
loopBotdchannels
}
on *:dialog:zx:*:*: {
if ($did == 202) { .set %Botchan $addtok(%Botchan,$did(201).text,44)) | did -a zx 201 $did(201).text }
if ($did == 213) { .set %Botchan | loopBotdchannels }
if ($did == 203) { if ($did(201).sel) { .set %Botchan $remtok(%Botchan,$did(201).text,44)) | did -d zx 201 $did(201).sel } }
if ($did == 205) { if ($did(205).state == 1) { .enable #discwarnin On | .disable #discwarninon off }
else { .disable #discwarnin off | .enable #discwarninon on }
}
if ($did == 410) {
if ($did(410).text == tsunami.dal.net) { set %BotServer tsunami.dal.net 6667 }
if ($did(410).text == nexgo.dal.net) { set %BotServer nexgo.dal.net 6667 }
if ($did(410).text == flodder-c.dal.net) { set %BotServer flodder-c.dal.net 6667 }
if ($did(410).text == Twisted.dal.net) { set %BotServer Twisted.dal.net 6667 }
if ($did(410).text == Hebron.dal.net) { set %BotServer Hebron.dal.net 6667 }
if ($did(410).text == Liberty.dal.net) { set %BotServer Liberty.dal.net 6667 }
if ($did(410).text == Oscar.dal.net) { set %BotServer Oscar.dal.net 6667 }
if ($did(410).text == Ced.dal.net) { set %BotServer Ced.dal.net 6667 }
if ($did(410).text == Splitrock.dal.net) { set %BotServer Splitrock.dal.net 6667 }
if ($did(410).text == Lineone.dal.net) { set %BotServer Lineone.dal.net 6667 }
if ($did(410).text == Dragons.dal.net) { set %BotServer Dragons.dal.net 6667 }
if ($did(410).text == irc.WeArab.Net) { set %BotServer irc.WeArab.Net 6667 }
if ($did(410).text == Oman.WeArab.Net ) { set %BotServer Oman.WeArab.Net 6667 }
if ($did(410).text == Dubai.WeArab.Net) { set %BotServer Dubai.WeArab.Net 6667 }
if ($did(410).text == Q8.WeArab.Net) { set %BotServer Q8.WeArab.Net 6667 }
if ($did(410).text == Qatar.WeArab.Net) { set %BotServer Qatar.WeArab.Net 6667 }
if ($did(410).text == Doha.WeArab.Net) { set %BotServer Doha.WeArab.Net 6667 }
if ($did(410).text == Gulf.WeArab.Net) { set %BotServer Gulf.WeArab.Net 6667 }
if ($did(410).text == KSA.WeArab.Net) { set %BotServer KSA.WeArab.Net 6667 }
if ($did(410).text == Khiran.WeArab.Net) { set %BotServer Khiran.WeArab.Net 6667 }
if ($did(410).text == Muscat.WeArab.Net) { set %BotServer Muscat.WeArab.Net 6667 }
if ($did(410).text == Egypt.WeArab.Net) { set %BotServer Egypt.WeArab.Net 6667 }
if ($did(410).text == Morocco.WeArab.Net) { set %BotServer Morocco.WeArab.Net 6667 }
if ($did(410).text == Kuwaitna.WeArab.Net) { set %BotServer Kuwaitna.WeArab.Net 6667 }
}

if ($did == 420) { /sockopen irc %BotServer }
if ($did == 430) {
if ($did(205).state == 1) { .disable #discwarnin off | .sockclose irc | .close -@ @Bot | .timerBot off }
else {
.disable #discwarninon off | .sockclose irc | .close -@ @Bot | .timerBot off
}
}
}
alias loopBotdchannels {
var %a123 = 1
while (%a123 <= $numtok(%Botchan,35)) {
did -a zx 201 $gettok(%Botchan,%a123,44)
inc %a123
}
}
======
.بوت لكشف الانفايت:/zx

f,j g;at hghkthdj hghkthdj












توقيع : AL7OOT

ˆ~*¤®§(*§ =@= الـحــوت =@= „ §*)§®¤*~ˆ°

عرض البوم صور AL7OOT   رد مع اقتباس
قديم 08-14-2003, 06:07 PM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 104
المشاركات: 1,173 [+]
بمعدل : 0.18 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
JeKaR^Bs^7LoOo غير متصل
وسائل الإتصال:

كاتب الموضوع : AL7OOT المنتدى : برامج - سكربتات - اضافات ماسنجر

مشكور اخوي الحوت












توقيع : JeKaR^Bs^7LoOo

[FL=http://www.geocities.com/warnetq8/jekar.swf] width = 400 height = 45 [/FL]
My Email
JeKaR_Bs_7LoOo@hotmail.com

عرض البوم صور JeKaR^Bs^7LoOo   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
لكشف, الانفايت, بنت

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 08:51 AM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1