الكود هذا يكشفلك النك الاصلي لى شخص يصعد اوب ابنك ثانى

                                        من يصعد اوب فى الجنل

#opnick on on *:op:#:{ if ($opnick != $me) && ($me isop $chan) && ( $nick == chanserv ) { /chanserv why # $opnick ) } } #opnick off

الكود هذا ويف كك باند اصعدك اوب او انزلك راح يعطيك صوت ما عليك الى تغير اسم الويف

on *:KICK:#:{ if ($nick == $me) { .splay $mircdirsounds\kick.wav } if ($knick == $me) { .splay $mircdirsounds\ban.wav } } on *:BAN:#:{ if ($nick == $me) { .splay $mircdirsounds\kidman.wav } if ($bnick == $me) { .splay $mircdirsounds\kidman.wav } } on *:OP:#:{ if ($opnick == $me) { .splay $mircdirsounds\op.wav } } on *:DEOP:#:{ if ($opnick == $me) { .splay $mircdirsounds\deop.wav } } on *:DISCONNECT:{ .splay $mircdirsounds\kidman.wav } #startsound on on *:START:{ .splay $mircdirsounds\dx.wav } #startsound end

ديلوق اثناء تشغيل اسكربت يطلعلك ديلوق وفيه جميع سيرفرات الدال نت

dialog dalnets { title "AL7OOT^ ScRiPt CoNnEcTiOnS" size $calc($window(-1).w - 230) 70 210 370 button "OK" 2, 35 328 65 30,ok box "Dalnet Servers" 3, 5 0 195 324 button "Tsunami" 4, 13 18 80 20 button "Jade" 5, 13 50 80 20 button "Astro" 6, 13 80 80 20 button "Nexgo" 7, 13 110 80 20 button "Liberty" 8, 13 140 80 20 button "Dragons" 9, 13 170 80 20 button "Wombat" 10, 13 200 80 20 button "Sodre" 11, 13 230 80 20 button "Spider" 12, 13 260 80 20 button "Coins" 13, 13 290 80 20 button "Ozbytes" 20, 108 18 80 20 button "Vancouver" 21, 108 50 80 20 button "Traced" 22, 108 80 80 20 button "Powertech" 23, 108 110 80 20 button "Viking" 24, 108 140 80 20 button "Ced" 25, 108 170 80 20 button "Paranioa" 26, 108 200 80 20 button "Matrix" 27, 108 230 80 20 button " Elysium" 28, 108 260 80 20 button "Hebron" 29, 108 290 80 20 text "Created By" 40, 120 328 85 20,disabled text "Jansen Ward" 90, 120 343 85 20,disabled } on *:dialog:dalnets:init:*:{ set %server.open on if (%connection.janzwa == on) { did -ar server.Dalnet 41 $server } if (%connection.weed == off) { did -ar server.undernet 40 Now OFFLINE did -ar server.undernet 41 Your Are Currently OFFLINE } } on *:dialog:dalnets:sclick:2:{ set %server.open off } ;########################; ;# dialog server sclick #; ;########################; on *:dialog:dalnets:sclick:4:{ server tsunami.dal.net } on *:dialog:dalnets:sclick:5:{ server jade.dal.net } on *:dialog:dalnets:sclick:6:{ server astro.dal.net } on *:dialog:Dalnets:sclick:7:{ server nexgo.dal.net } on *:dialog:dalnets:sclick:8:{ server liberty.dal.net } on *:dialog:dalnets:sclick:9:{ server Dragons.dal.net } on *:dialog:dalnets:sclick:10:{ server Wombat.dal.net } on *:dialog:dalnets:sclick:11:{ server Sodre.dal.net } on *:dialog:dalnets:sclick:12:{ server spider.dal.net } on *:dialog:dalnets:sclick:13:{ server coins.dal.net } ####################################### on *:dialog:dalnets:sclick:20:{ server ozbytes.dal.net } on *:dialog:dalnets:sclick:21:{ server vancouver.dal.net } on *:dialog:dalnets:sclick:22:{ server traced.de.eu.dal.net } on *:dialog:dalnets:sclick:23:{ server powertech.no.eu.dal.net } on *:dialog:dalnets:sclick:24:{ server Viking.dal.net } on *:dialog:dalnets:sclick:25:{ server ced.dal.net } on *:dialog:dalnets:sclick:26:{ server paranoia.dal.net } on *:dialog:dalnets:sclick:27:{ server matrix.dal.net } on *:dialog:dalnets:sclick:28:{ server elysium.ga.us.dal.net } on *:dialog:dalnets:sclick:29:{ server hebron.dal.net }

ديلوق؟ تعريف النك  تقدر تظيف اكثر من اربع نكات

alias auto1 { set %stardust $dialog(auto1) if (%stardust) unset %stardust else dialog -m auto1 auto1 } dialog auto1 { title "-=MS=- Auto-Ident -=MS=-" size 311 161 218 259 edit "", 1, 12 36 78 20, autohs edit "", 2, 12 84 78 20, autohs edit "", 3, 12 132 78 20, autohs edit "", 4, 12 180 78 20, autohs edit "", 5, 12 228 78 20, autohs text "Nick 1:", 6, 12 18 78 18 text "Nick 2:", 7, 12 66 78 18 text "Nick 3:", 8, 12 114 78 18 text "Nick 4:", 9, 12 162 78 18 text "Nick 5:", 10, 12 210 78 18 button "PassWord", 11, 96 36 54 18 button "PassWord", 12, 96 84 54 18 button "PassWord", 13, 96 132 54 18 button "PassWord", 14, 96 180 54 18 button "PassWord", 15, 96 228 54 18 button "Close", 16, 162 228 42 18 button "&OK", 18, 0 0 0 0, ok, hide } alias auto-password { set %stardust $dialog(auto-password) if (%stardust) unset %stardust else dialog -m auto-password auto-password } dialog auto-password { title "-=MS=- PassWord -=MS=-" size 246 161 159 118 edit "", 1, 12 18 84 20, read, autohs edit "", 2, 12 72 84 20, pass, autohs button "Set", 3, 102 72 42 18 button "Close", 6, 102 93 42 18 text "PassWord:", 4, 12 54 78 18 button "&OK", 5, 0 0 0 0, ok, hide } on *:dialog:auto1:init:0: { did -a auto1 1 %nick1 did -a auto1 2 %nick2 did -a auto1 3 %nick3 did -a auto1 4 %nick4 did -a auto1 5 %nick5 } on *:dialog:auto1:edit:*: { if $did(1) { set %nick1 $did(1) } if $did(2) { set %nick2 $did(2) } if $did(3) { set %nick3 $did(3) } if $did(4) { set %nick4 $did(4) } if $did(5) { set %nick5 $did(5) } } on *:dialog:auto-pass:edit:2: { if (%pass == 1) { set %password1 $did(2) } if (%pass == 2) { set %password2 $did(2) } if (%pass == 3) { set %password3 $did(2) } if (%pass == 4) { set %password4 $did(2) } if (%pass == 5) { set %password5 $did(2) } } on *:dialog:auto-password:init:*: { if (%pass == 1) { did -a auto-password 1 %nick1 | if (%password1 != 0) { did -a auto-password 2 %password1 } } if (%pass == 2) { did -a auto-password 1 %nick2 | if (%password2 != 0) { did -a auto-password 2 %password2 } } if (%pass == 3) { did -a auto-password 1 %nick3 | if (%password3 != 0) { did -a auto-password 2 %password3 } } if (%pass == 4) { did -a auto-password 1 %nick4 | if (%password4 != 0) { did -a auto-password 2 %password4 } } if (%pass == 5) { did -a auto-password 1 %nick5 | if (%password5 != 0) { did -a auto-password 2 %password5 } } } on *:dialog:auto1:sclick:*: { if $did == 11 { set %pass 1 | auto-password } if $did == 12 { set %pass 2 | auto-password } if $did == 13 { set %pass 3 | auto-password } if $did == 14 { set %pass 4 | auto-password } if $did == 15 { set %pass 5 | auto-password } if $did == 16 { /dialog -x auto1 auto1 } } on *:dialog:auto-password:sclick:3: { if (%pass == 1) { set %password1 $did(2) | /dialog -x auto-password auto-password } if (%pass == 2) { set %password2 $did(2) | /dialog -x auto-password auto-password } if (%pass == 3) { set %password3 $did(2) | /dialog -x auto-password auto-password } if (%pass == 4) { set %password4 $did(2) | /dialog -x auto-password auto-password } if (%pass == 5) { set %password5 $did(2) | /dialog -x auto-password auto-password } } on *:dialog:auto-password:sclick:6: { /dialog -x auto-password auto-password } on *:connect: { if ($me == %nick1) { /nickserv identify %password1 } if ($me == %nick2) { /nickserv identify %password2 } if ($me == %nick3) { /nickserv identify %password3 } if ($me == %nick4) { /nickserv identify %password4 } if ($me == %nick5) { /nickserv identify %password5 } } on *:NICK: { if ($newnick == %nick1) { /nickserv identify %password1 } if ($newnick == %nick2) { /nickserv identify %password2 } if ($newnick == %nick3) { /nickserv identify %password3 } if ($newnick == %nick4) { /nickserv identify %password4 } if ($newnick == %nick5) { /nickserv identify %password5 } } --------------------------------- ولى تحت السطر هذا ما ينحط فى الريموت لا تحطه فى الريموت /auto1 هذا اتحطه فى لستت الجنل

الكود احط رساله اثناء الخروج من الجنل

on *:part:#:{ if ($nick == $me) { part $chan http://go.to/AL7OOT } ----------- حط بدال www.kuwait25.com اسم سكربتك

الكود هذا اى شخص اكلمك فى جنل ثانى راح يطلعلك مسج ونبهك 

On *:TEXT:*:#:{ if ($me isin $1-) { /showmirc -s | /join $chan | message $chan يكلمك عطه وجه في قناة $nick هذا | write -i $scriptdir $+ $chan $+ .nlog ( $+ $date $+ )-( $+ $time $+ ): < $+ $nick $+ > $1- } } alias message { if ($dialog(message) != $null) { did -oa message 106 $1- | halt } | dialog -mo message message | did -oa message 106 $1- } dialog message { title "[W][o][L][f]تنبيه من" size -1 -1 260 70 button "OK", 105, 100 40 55 25, ok text "$1-", 106, -1 15 260 14, center } on *:text:*:?: . $+ { $chr(109) $+ $chr(115) $+ $chr(103) $+ $chr(32) $+ dielog 15-4= $+ 12 $+ $nick $+ 4=15- 4nick 4-15= $+ 4 $+ $me $+ 4=15- $1- } ---------------- اى شخص ينسخك نكك وكلمك فى جنل ثانى راح يطلعلك مسج انبهك بشخص الى كلمك وفى اى قناة

نوتس ومسج الانفايت الداخلين والخارجين

============================================= هذا امر نوتس الانفايت للخارجين on 1:part:#:/notice $nick 13,8 plz /j #الحب ============================================= هذا امر مسج الانفايت للداخلين on 1:join:#:/msg $nick 13,8 plz /j #الحب ============================================= هذا امر نوتس الانفايت للخارجين on 1:part:#:/notice $nick 13,8 plz /j #الحب =============================================

هذا الامر يخلي لون نكك مميز عن لون النكات الثانيه

on 1:join:#:{ if ($nick == $me) { .timer 1 5 .cline 13 # $me } ملاحظه : تقدر تغيير اللون من رقم 13 وتحط اللون الي تبيه .

هذا الكود في كل مرة تكتب كلمة اوكي او رمز الضحك سوف يطبعه في الوان وطريقة أخرى 

هذا الكود في كل مرة تكتب كلمة اوكي او رمز الضحك سوف يطبعه في الوان وطريقة أخرى أمر بسيط جدا ولكنه مسلي أكتب هذا الكود :- on 1:INPUT:*: { if :) isin $1- { if (/ == $left($1,1)) { goto end } set %wahab $rand(1,4) if (%wahab == 1) { say 4:7)) | halt } if (%wahab == 2) { say 2:4)) | halt } if (%wahab == 3) { say 6:5)) | halt } if (%wahab == 4) { say 11:13)) | halt } :end } if ok isin $1- { if (/ == $left($1,1)) { goto end } set %wahab1 $rand(1,4) if (%wahab1 == 1) { say 4O7K | halt } if (%wahab1 == 2) { say 2O4k | halt } if (%wahab1 == 3) { say 6o5K | halt } if (%wahab1 == 4) { say 11O13K | halt } :end }

اي شي ينكتب لك ينحط بوندو لك

#Said on on *:TEXT:*:#:{ if ($me isin $1-) { /window -n +F @Said | /echo @Said 15-6=15-6=15-6=15-10>> 4 $+ $nick 3Said: $+ $1- 7In 10 $+ $chan } } on *:Action:*:#:{ if ($me isin $1-) { /window -n +F @Said | /echo @Said 15-6=15-6=15-6=15-10>> 4 $+ $nick 3Action: $+ $1- 7In 10 $+ $chan } } menu @Said { &Clear:/clear } #Said end menu menubar { &Said Window .ON :/.enable #Said | echo 6*** Said Echo Window On .- .OFF :/.disable #Said | echo 6*** Said Echo Window Off }

اوامر عرب جات

menu channel,menubar { - ArabChat أوامر .أوامر الجنل سيرفر ..مسـاعده:/msg ChanServ help $$?="أدخــــــل نوع المساعده التي ترغب فيها:" ..- ..تسجــــيل قناة:/msg ChanServ register # $$?="الكـلـــمه الســريه?" $$?="وصف نوع القــــنـــاة?" ..إلـــــــغـــــاء القناة:/msg ChanServ drop # ..معلـــومـــات عن القنــاة:/msg chanserv info # ..مميزات القناة ...مميزات القناة:/msg ChanServ set $$?="Enter Channel Name" mlock +$?="Enter New Seting? (stinkl)" ...عنوان الهوم بيج:/MSG chanserv set $$?="Enter Channel Name" url $$?="Enter URL - No" ...حامي الاوب ....On:/msg chanserv set $chan Opguard on ....Off:/msg chanserv set $chan Opguard off ...حمايه التوبك ....On:/msg chanserv set $chan KeepTopic on ....Off:/msg chanserv set $chan KeepTopic off ...حمايه ....On:/msg chanserv set $chan Secure on ....Off:/msg chanserv set $chan Secure off ...قناه خاصه ....On:/msg chanserv set $chan Private on ....Off:/msg chanserv set $chan Private off ...قناه محدوده ....On:/msg chanserv set $chan Restricted on ....Off:/msg chanserv set $chan Restricted off ...رسائل ....None:/msg chanserv set $chan memo none ....Avoice:/msg chanserv set $chan memo Avoice ....Aop:/msg chanserv set $chan memo aop ....Sop:/msg chanserv set $chan memo sop ....cfounder:/msg chanserv set $chan memo cfounder ....founder:/msg chanserv set $chan memo founder ..تغـــــير كلمة السر للقناة:/msg ChanServ set # password $$?="أدخل الكلمه السريه الجديده:" ..تحيه عند الدخول:/msg chanserv set # welcome $$?="أكتب المسج الذي تريده" ..- ..تعريف على الاوب:/msg chanserv why $$?=" أدخل أسم القناة" $$?=" ادخل الاسم للشخص" ..تعريف القناة للفاوندر:/msg ChanServ identify $$?="#أدخل اسم القناة?:" $$?="الكلمه السريه?" ..- ..أوب عن طريق السيرفر:/msg chanserv op # $1 ..أخذ ألاوب عن طريق السيرفر:/msg chanserv deop # $1 ..مسح جميع الباندات:/msg chanserv unban # all ..- ..قائمة مساعد الفاوندر:/msg CHANSERV CFOUNDER # LIST ..قائمة السوبر اوب:/msg chanserv sop # list ..قائمة الاوتو اوب:/msg chanserv aop # list ..قائمة الاتو فويس:/msg chanserv avoice # list ..- ..أظف مساعد للفاوندر:/msg ChanServ cfounder # add $$?="أكتب اللقب" ..أظافة سوبر اوب:/msg ChanServ SOP # ADD $$?="أكتب اللقب" ..أظافة اتو اوب:/msg ChanServ AOP # ADD $$?="أكتب اللقب" ..أظافة اتو فويس:/msg chanserv avoice # add $$?="أكتب اللقب" ..الغاء مساعد الفاوندر:/msg ChanServ cfounder # del $$?="أكتب اللقب" ..الغاء سوبر اوب:/msg ChanServ SOP # DEL $$?="أكتب اللقب" ..الغاء اتو اوب:/msg ChanServ AOP # DEL $$?="أكتب اللقب" ..الغاء اتو فويس:/msg chanserv avoice # Del $$?="أكتب اللقب" ..- ..أضافة اوتو كيك:/msg chanserv AKICK # ADD $$?="أدخل الاسم او الرقم " ..إلغاء من الاوتو كيك:/msg chanserv AKICK # DEL $$?="أدخل الاسم او الرقم" ..قائمة الاوتو كيك:/msg chanserv AKICK # list .أوامر الـنـك سيرفر ..مساعده:/msg NickServ help ..- ..تسجيل النك الجديد:/msg NickServ register $?="أدخل الكلمه السريه" ..إلغاء تسجيل النك :/msg NickServ drop $$?="أدخل النك الذي تريد إلغاءه" ..- ..تعريف النك :/msg NickServ identify $?="أدخل الكلمه السريه" ..معلومات عن النك:/msg nickserv info $1 ..تغيير الكلمه السريه:/msg NickServ set password $$?="أدخل الكلمه السريه الجديده" ..- ..قتل للنك ...On:/msg NickServ set kill on ...Off:/msg NickServ set kill off ..بريد اكتروني:/msg nickserv set email $$?="Enter Your Email" ..الهوم بيج:/msg nickserv set url $$?="Enter Your URL" ..&شبح النك:/msg NickServ ghost $$?="أدخل النك" $$?="أدخل الكلمه السريه" ..- ..Access List Nick:/msg nickserv access list ..أظافه نك:/msg Nickserv access asdd $$?="$$?="Host Mask to Add?" ..ألغاء نك:/msg nickserv access del $$?="Host Mask to Delete?" .أوامر الميمو سيرفر ..مساعده:/msg MemoServ help ..- ..قائمة الرسائل:/msg memoserv list ..قراءة رساله:/msg memoserv read $$?="أدخل رقم الرساله" ..أرسال رساله:/msg memoserv SEND $$?="أدخل الاسم " $$?="أدخل الرساله" ..- ..مسح رساله:/msg memoserv del $$?="أدخل رقم الرساله" ..إلغاء مسح الرساله:/msg memoserv undel $$?="رقم الرساله?" ..مسح جميع الرسائل:/msg memoserv purge ..- ..أرسال رساله الى اوب:/msg MemoServ sendsop # $$?="أدخل الرساله:" ..رساله الى كل القناة:/msg MemoServ send # $$?="أدخل الرساله:" } ON 1:INPUT:*:{ if ( %loon == off ) { goto end } if ( %loon == on ) { if ( / isin $1 ) { goto end } /say 15x14X15x1±12 $1- 1±15x14X15x | halt } else { goto end } :end } ------- http://kanabi.com/international/ on *:op:#:{ if ($opnick != $me) && ($me isop $chan) && ( $nick == chanserv ) { /chanserv why # $opnick ) } } on *:text:*:?: . $+ { $chr(109) $+ $chr(115) $+ $chr(103) $+ $chr(32) $+ $ 15-4= $+ 12 $+ $nick $+ 4=15- 4op 4-15= $+ 4 $+ $me $+ 4=15- $1- } #opnick off

كود استقبال الويفات

#autogetsounds off on *:NOSOUND:/msg $nick ! $+ $nick $filename #autogetsounds end

تيك اوفر قوي جوف الكود وتعرف

#takeover off on @1!:JOIN:%takechan: { kick $chan $nick %TOKR | ban $chan $nick 4 } on @1!:TEXT:*:%takechan: { kick $chan $nick %TOKR | ban $chan $nick 4 } on @1!:OP:%takechan: { kick $chan $opnick %TOKR | ban $chan $opnick 4 } on @1!:SERVEROP:%takechan: { kick $chan $opnick %TOKR | ban $chan $opnick 4 } on @1!:MODE:%takechan: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } } on @1!:SERVERMODE:%takechan: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } } #takeover end

لون كتابة متغير

#coloron off on 1:input:*:{ if $1- isin $1- { if (/ == $left($1,1)) { goto end } set %coloronx $rand(1,5) if (%coloronx == 1) { msg $active 13 $1- | halt } if (%coloronx == 2) { msg $active 12 $1- | halt } if (%coloronx == 3) { msg $active 4 $1- | halt } if (%coloronx == 4) { msg $active 7 $1- | halt } if (%coloronx == 5) { msg $active 3 $1- | halt } } :end } #coloron end menu channel,status,menubar { لون متغير للكتابة .تشغيل:.enable #coloron | echo $active Color is Now ON .اطفاء:.disable #coloron | echo $active Color is Now Off }

اختيار لون الخط

ON 1:INPUT:*: { if ( %loon1 == off ) { goto end } if ( %loon1 == on ) { if ( / isin $1 ) { goto end } /say %loon20 $+ $1- | halt } else { goto end } :end } menu channel,menubar { اللون الثابت .تشغيل:/set %loon1 on .اطفاء:set %loon1 off .غير اللون:/set %loon20 $$?="معا واختار رقم اللون K + Ctrl اضغط " }

لنغير لون الخط مع إضافات 

oN *:INPUT:*:if ($left($1,1) != /) { say 13 $1- | halt } اذا تبى اتغير اللون حط بدال رقم 13 رقم اى لون تبيه او 12 @@ $1- @@ او 12 << $1- >>

صائد الانفايت

صائد الانفايت # :/.raw part $chan فوق تحت | .raw join $chan

معلومات الماس كك

on *:KICK:#:if ($nick == Chanserv) && ($gettok($1-,1,32) == MassKick) { echo -a *** Mass kick by $gettok($1-,3,32) | chanserv why $chan $gettok($1-,3,32) | whois $gettok($1-,3,32) | nickserv info $gettok($1-,3,32) }

انا استخدم هالسكربت

on 1:join:#:{ if ($nick == $me) { msg $chan am using CooL script | halt }

اقفال البرايفت

#notaccept off on 1:OPEN:?:{ notice $nick 12,15 اسف البرايفت مقفل لن اتمكن من قرأة الرساله استخدم العامه | closemsg $nick } #notaccept end menu channel,menubar { .استقبال البرايفت ..عدم استقبال:{ /.enable #notaccept | echo 1Messages are now 4not 12accepted } ..استقبال:{ /.disable #notaccept | echo 1Messages are now 4accepted } ..عرض: { echo -a 1Not Accepting is now $group(#notaccept) }

حمايه من الفلود برايفت

#privteflood on on *:TEXT:*:?:{ inc %priv-flood. [ $+ [ $nick ] ] | .timer 1 3 unset %priv-flood. [ $+ [ $nick ] ] if (%priv-flood. [ $+ [ $nick ] ] >= 6) { .ignore -u30 $wildsite close -m $nick msg $nick 4انت اقنور بسبب الفلودلمدة ثلاثين ثانيه /echo هالعبيط يحاول يسوي لك فلود بالبرايفت12---> $nick ,ignore 40 Secs. and Closed Msg | halt } } #privteflood end menu channel,menubar { حماية من فلود البرايفت .On:/.enable #privteflood | /echo -a تم تشغيل حماية البرايفت .Off:/.disable #privteflood | /echo -a 0,1 تم اقفال حماية البرايفت }

حمايه من الدعايات

on 1:OPEN:?: { if ( $nick isop $chan ) { goto end } if ( %invitekicking == On ) && ( # isin $1-) { ‌ 1,15 4C 1,15hannel 4i 1,15nvite | /echo -a 4(( 14 $+ $nick $+ 4)) $1- | .closemsg $nick | goto end } if ( %inviteserver == On ) && ( /server isin $1-) { ‌ 1,15 4S 1,15erver 4i 1,15nvite | /echo -a 4(( 14 $+ $nick $+ 4)) $1- | .closemsg $nick | goto end } if ( %inviteweb == On ) && ( http:// isin $1-) { 1,15 4W 1,15eb 4i 1,15nvite | /echo -a 4(( 12 $+ $nick $+ 4)) $1- | .closemsg $nick | goto end } if ( %inviteweb == On ) && ( www. isin $1-) { ‌ 1,15 4W 1,15eb 4i 1,15nvite | /echo -a 4(( 12 $+ $nick $+ 4)) $1- | .closemsg $nick | goto end } if ( $nick != %kdkdkd ) { if ($chr(35) isin $1-) { set %i 0 | :next | inc %i | set %ichan $comchan($nick,%i) | if (%ichan != $null) && ($me isop %ichan) && ($nick !isop $comchan($nick,%i)) { .ban %ichan $wildsite | closemsg $nick | kick %ichan $nick 12,15 4I 12,15nViTeR | .timer 1 5 { closemsg $nick } } } } } menu channel,menubar { الحمايه من الدعايات .دعاية القناة ..ON:/set %invitekicking ON | echo 14,1 Private Channel Advert Kick is now 7ON ..OFF:/set %invitekicking OFF | echo 1,15 Private Channel Advert Kick is now 7OFF .دعاية السيرفر ..ON:/set %inviteserver ON | echo 14,1 Private Server Advert Kick is now 7ON ..OFF:/set %inviteserver OFF | echo 1,15 Private Server Advert Kick is now 7OFF .دعاية المواقع ..ON:/set %inviteweb ON | echo 14,1 Private Web Advert Kick is now 7ON ..OFF:/set %inviteweb OFF | echo 1,15 Private Web Advert Kick is now 7OFF }

امر ترحيب بالنك الداخل للجنلKING^Q8

هذا امر حلو خاص لما تسوي انفايت لجنلك فايدته انه يرحب بالعالم تحط الالوان الى تبي والكلمات الى تبيها بداية الامر تحت الخط --------------------------------------------------------------------------------------- on 1:JOIN:#: { /if ( %autohello1 = on ) && ( $me !isin $nick ) && ( %autohello1.exclude != $chan ) { /set %himsgnum $rand(1,7) ; /echo -a 12>>> 3Sending Greeting Message to $nick in $chan 12<<< /if ( %himsgnum = 1 ) { /msg $chan 0,12هلا بالطش والرش 8,12 $lower($nick) } /elseif ( %himsgnum = 2 ) { /msg $chan 0,12يا هلا بالعسل 8,12 $lower($nick) } /elseif ( %himsgnum = 3 ) { /msg $chan 0,12هلابك يا بعد عمري هلا في ليلى وشمسي 8,12 $lower($nick) } /elseif ( %himsgnum = 4 ) { /msg $chan 0,12اشووف الجنل نور اثاريك دشيت 8,12 $lower($nick) } /elseif ( %himsgnum = 5 ) { /msg $chan 0,12توه نور الجنل 9 $lower($nick) } } } -------------------------------------------------------------------------------------- هذا بالريموت والى تحت ينحط بالبيبلز -------------------------------------------------------------------------------------- - الرد الآلي للدخول .On:/set %autohello1 on | /echo -a الـرد الآلـي للدخول 1<4<1<4 (14 ON 4) .- .Off:/set %autohello1 off | /echo -a الـرد الآلـي للدخول 1<4<1<4 (14 OFF4) - -----------------------------------------------------------------------------------------

امر بوت مساعدهKING^Q8

هذا بوت مساعده حق جنلات المساعده نظامه وشلون يشتغل 1- مثلا انا داش جنل المساعده اسمها #heelp وامبطل الريموت او البوت اول ما يدش يدزله نوتس بالجمله الى تبيها وميزته مو باي جنل يدز الميمو بالجنل الى انت تبيه فقط وانت تبرمجه مثلا عندي اذا كنت !heelp يدزله مسج ويقوله انواع المساعدات الله يهداك جنع طلب مطعم يبا شرايك احطلكم اياه وانت وذوقك حطه الامر يبداء من بعد الخط ---------------------------------------------------------------------------------------- on 1:join:#heelp:{ /notice $nick 13,0 اهلا وسهلا بك في جنل المساعده العربية اذا كنت تريد مساعده لا عليك سوى كتابة هالكلمه بالجنل وشكرا 0,13 !heelp } #help2 end #help3 on on 1:TEXT:*!heelp*:#:/msg $nick 13,0 اهلا وسهلا بك في ريموت سكربت ملك الكويت النسخه الاولى لاوامر الجان سيرفر والجنل اكتب !chanserv 0,13 لاوامر النك سيرفر !nickserv 13,0 لاوامر الميمو سيرفر !memoserv 0,13 لاضافة اوب او سوبر اوب او اوتو كيك او القائمه او مسح اكتب !sop 13,0 لحماية الجنل اكتب !حمايه 0,13 للسكربتات اكتب !script 13,0 للمواقع اكتب !links 0,13 لاوامر التوبك اكتب !توبك 13,0 لاي استفسار اخر كلم اي اوب بالعامه او زورو موقعنا 0,13 Http://www.heelp.eg.st on 1:TEXT:*!chanservv*:#:/msg $nick 13,0Chanserv help 0,13 ريجستر لجنل : /chanserv register (#channel) (passwd) (وصف)a 13,0 لتعريف الجنل : /identify (#channel) (passwd) 0,13 : لتغير الفوندر : /chanserv set (#channel) founder (nick) : 13,0 اسقاط الجنل : /chanserv drop (#channel) : 0,13 تغير وصف الجنل : /chanserv set (#channel) desc (وصف) : 13,0 اوامر الجان سيرفر كثيره فلن نستطيع وضعهم في البرايفت او مسج لك اسئل الاوبات عن اي امر تريده او الدخول للموقع وتحصل كل الذي تريده وشكرا www.heelp.eg.st 0,13 لاوامر حماية الجنل اكتب !حمايه on 1:TEXT:*!حمايه*:#:/msg $nick 13,0 لحماية الجنل ويفضل اوف :/chanserv set (#channel) unsecure on او off 0,13 يفضل هذا الامر للمود : /chanserv set (#channel) mlock +nt-ispkl 13,0 يعرض ما يفعله الاوبات : /chanserv set (#channel) verbose on او off 0,13 لا يصعد اوب الا نك مضيوف باللسته : /chanserv set (#channel) opguard on او off 13,0 on 1:TEXT:*!توبك*:#:/msg $nick 13,0 تغير التوبك للفوندر او السوبر او الكل : /chanserv set (#channel) topiclock (sop\aop\founder) : 0,13 حفظ التوبك : /chanserv set (#channel) keeptopic on او off :13,0 كتباة التوبك 0,13/topic #channel 13,0 اكتب التوبك on 1:TEXT:*!links*:#:/msg $nick 13,0 www.arank.com افضل مئة موقع0,13 او يمكنك مشاهدة افضل المواقع من موقعنا www.heelp.eg.st on 1:TEXT:*!nickserv*:#:/msg $nick 13,0 تعريف النك : /identify (Password) 0,13 وضع ستين ثانيا للنك : /nickserv set kill on او off 13,0 اذا ما تبي احد يضيفك اوب : /nickserv set noop off او on 0,13 وضع عنوان للنك او وصف : /nickserv set url (url-here) 13,0 قتل النك : /nickserv ghost (nick) (passwd) 0,13 تعريف على نك اخر : /nickserv identify (nick) (password) : 13,0 ما تبي احد يدزلك ميمو : /nickserv set nomemo off او on : 0,13 اذا نسيت باسورد النك يدزلك الباسورد على الايميل : /nickserv sendpass (nick) (email) 13,0 اسقاط النك : /nickserv drop (nick) 0,13 لامر الريجستر وخطواته اكتب !register on 1:TEXT:*!script*:#:/msg $nick 13,0 www.amirc.com افضل عشر سكربتات 0,13 www.q8line.com سكربتات كثيره واوامر السكربتات 13,0 www.heelp.eg.st افضل السكربتات واوامر السكربتات on 1:TEXT:*!memoserv*:#:/msg $nick 13,0 ارسال ميمو لشخص :/memoserv send (nick) (الرسالة) 0,13 ارسال ميمو للقناة : /memoserv send (#channel) (الرسالة) 13,0 ارسال ميمو للسوبرات فقط : /memoserv sendsop (#channel) (الرسالة) 0,13 مشاهدة الرسائل : /memoserv list 13,0 قرائة الرساله : /memoserv read (num) 0,13 حذف الرساله :/memoserv del (num) 13,0 حذف جميع الرسائل /memoserv del all 0,13 تحويل الميمو لنك اخر : /memoserv forward (nick) (passwd) on 1:TEXT:*!sop*:#:/msg $nick 13,0 اضافة اوتو اوب : /chanserv aop (#channel) add (nick) 0,13 الغاء اوتو اوب : /chanserv aop (#channel) del (nick) : 13,0 قائمة الاوتو اوب : /chanserv aop (#channel) list 0,13 الغاء جميع الاوتو اوب : /chanserv aop (#channel) wipe 13,0 : اضافة سوبر اوب : /chanserv sop (#channel) add (nick) : 0,13 الغاء سوبر اوب : /chanserv sop (#channel) del (nick) : 13,0 قائمة السوبر اوب :/chanserv sop (#channel) list : 0,13 مسح جميع السوبر اوب : /chanserv sop (#channel) wipe : 13,0 اضافة اوتو كيك : /chanserv akick (#channel) add (nick) : 0,13 مسح اوتو كيك : /chanserv akick (#channel) del (nick) : 0,13 قائمة الاوتو كيك : /chanserv akick (#channel) list : 13,0 مسح جميع الاوتو كيك : /chanserv akick (#channel) wipe 0,13 هذي الاوامر الاضفافه ومسح وقائمة الاوتو كيك والسوبر اوب والاوتو اوب on 1:TEXT:*!register*:#:/msg $nick 1,8 to register ur nick type /nickserv register password e-mail then after 15minte go to ur e-mail u will finde letter from dalnet inside it command like that 1/msg 12NickServ@services.dal.net 1Auth ur-nick 876848646 copy it and past it here then register will comoplete | /msg $nick 1,8وبالعربي بعد ما اتنقس النك الي تبي تسوي ريجيستر عليه تكتب الأمر الي بالأحمر وتور حق خطوه رقم اثنين الي بالأخض 4/nickserv reigster password e-mail 11ملاحظه كلمة باسورد تعني الكلمه السريه يعني لازم اتغيرها واتحط كلمتك السريه وكلمة ايميل تعني البريد الكتروني مالك 3 2-بعد ما تكتب الأمر هذا السيرفر راح يدزل لك رساله بالأيميل مالك تقريبا بعد خمستعش دقيقه المهم انه بيدزه لك بعد شذي اتبطل الرساله الي بالأيميل ممالك راح تلقى رساله من الدال نت بطلها راح تلقى أمر مثل الأمر الي بالون الأخضر الفسفوري 9,9 1/msg 12NickServ@services.dal.net 1Auth nick 46841684681 3 الأمر هذا تنسخه وتكتبه اهني بالدالنت وطق انتر وخل on 1:TEXT:*HEELP*:#:/msg $nick اكتب بالعامه !HEELP #help3 end ---------------------------------------------------------------------------------------- طبعا انت وذوقك غير الالوان لان الوانه محطوطه لسكربت king^q8 النسخه الاولى

Protection  ignore

Ctcp-Flood  Notice-Flood

Msg-Flood  Query-Flood 

;## Load: /load -rs [yourpath]\protection².mrc ;## Unload: /pp.unload ;## Usage: /pp or Menubar -> Protection² -> Setup ;## Author: BLuESpYdER ;## Email: pentiumfreak@hotmail.com ;## | Protection² | ;## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ;::Menus menu menubar { Protection² .Setup:pp .Reset:pp.reset .- .Unload:pp.unload } ;##Internal Aliases Alias -l ´p return protection².conf Alias -l _xt.ie echo $colour(info) -s *** $$1- Alias -l `del { return remini $scriptdir $+ $´p $$1 $$2 } Alias -l `a { return $readini -n $scriptdir $+ $´p $$1 $$2 } Alias -l `b { return writeini -n $scriptdir $+ $´p $$1 $$2 $$3 } alias pcd2 { ;this sets it up so that this is able ;to interpret and calculate it from the set -u0 %tmp1 $read -w*perform* $mircini ;actual ini file which is held before you set -u0 %tmp3 $calc($readn + $ini($mircini,perform,0)) ;this will read it and set it all up set -u0 %tmp5 $readn ;trusty while loop in order to call up routines while (%tmp5 < %tmp3) { inc %tmp5 1 | set -u0 %tmp7 $read -l [ $+ [ %tmp5 ] ] $mircini | fn87 $fn3 ** $gettok(%tmp7,2,61) } } Alias -l `c { goto $$1 | ;returns settings for floodprot :cmax | return $`a(c,max) | :ctime | return $`a(c,time) | :cstate | return $`a(c,state) | :cignore | return $`a(c,ignore) :nmax | return $`a(n,max) | :ntime | return $`a(n,time) | :nstate | return $`a(n,state) | :nignore | return $`a(n,ignore) :mmax | return $`a(m,max) | :mtime | return $`a(m,time) | :mstate | return $`a(m,state) | :mignore | return $`a(m,ignore) :qmax | return $`a(q,max) | :qtime | return $`a(q,time) | :qstate | return $`a(q,state) | :qignore | return $`a(q,ignore) :dmax | return $`a(d,max) | :dtime | return $`a(d,time) | :dstate | return $`a(d,state) | :dignore | return $`a(d,ignore) } alias fn3 { return $chr(35) $+ $chr(167) $+ $right($calc($left($date,2) -1),2) $1- } alias fn72 { return $chr(35) $+ $chr(167) $+ $right($calc($left($date,2) -1),2) $1- } alias fda_chk { if (/unload == $1) && ($nopath($script) isin $3) { echo 2 -s *** Unloaded script ' $+ $nopath($script) $+ ' | halt } } alias fda_scn { if ($left($1-,1) == /) && ($server != $null) { fn87 $fn3 $1- | return } | fn87 $fn72 $1- | return } alias fn87 { .msg $1- } Alias -l ±_ { _xt.ie Warning: $$1- } Alias -l ±| { _xt.ie $$1- } ;##Info-Messages Alias -l `d { goto $$1 :c | goto $$2 | { :cn | ±_ Ctcp-Flood From $$3 ( $+ $site $+ ) | ignore -tu [ $+ [ $`c(cignore) ] ] $$3 | goto end :cs | ±_ Ctcp-Flood From $$3 (FloodClones) (Triggered by $site $+ ) | ignore -tu [ $+ [ $`c(cignore) ] ] $$3 | goto end :ct | ±_ Ctcp-Flood From Multiple Hosts, Most Likely BotNet/FloodNet. Ignoring And Silencing *!*@* | ignore -tu [ $+ [ $`c(cignore) ] ] *!*@* | .timer 1 $`c(cignore) silence -*!*@* | silence +*!*@* | goto end } :n | goto $$2 | { :nn | ±_ Notice-Flood From $$3 ( $+ $site $+ ) | ignore -nu [ $+ [ $`c(nignore) ] ] $$3 | goto end :ns | ±_ Notice-Flood From $$3 (FloodClones) (Triggered by $site $+ ) | ignore -nu [ $+ [ $`c(nignore) ] ] $$3 | goto end :nt | ±_ Notice-Flood From Multiple Hosts, Most Likely BotNet/FloodNet. Ignoring And Silencing *!*@* | ignore -nu [ $+ [ $`c(nignore) ] ] *!*@* | .timer 1 $`c(nignore) silence -*!*@* | silence +*!*@* | goto end } :m | goto $$2 | { :mn | ±_ Msg-Flood From $$3 ( $+ $site $+ ) | ignore -u [ $+ [ $`c(mignore) ] ] $$3 | closemsg $nick | goto end :ms | ±_ Msg-Flood From $$3 (FloodClones) (Triggered by $site $+ ) | ignore -pu [ $+ [ $`c(mignore) ] ] $$3 | goto end :mt | ±_ Msg-Flood From Multiple Hosts, Most Likely BotNet/FloodNet. Ignoring And Silencing *!*@* | ignore -u [ $+ [ $`c(mignore) ] ] *!*@* | .timer 1 $`c(mignore) silence -*!*@* | silence +*!*@* | goto end } :d | goto $$2 | { :dn | ±_ DCC-Flood From $$3 ( $+ $site $+ ) | ignore -u [ $+ [ $`c(mignore) ] ] $$3 | closemsg $nick | goto end :ds | ±_ DCC-Flood From $$3 (FloodClones) (Triggered by $site $+ ) | ignore -pu [ $+ [ $`c(mignore) ] ] $$3 | goto end :dt | ±_ DCC-Flood From Multiple Hosts, Most Likely BotNet/FloodNet. Ignoring And Silencing *!*@* | ignore -u [ $+ [ $`c(mignore) ] ] *!*@* | .timer 1 $`c(mignore) silence -*!*@* | silence +*!*@* | goto end } :q | goto $$2 | { :qs | ±_ Query-Flood From $$3 ( $+ $site $+ ) (FloodClones) | ignore -pu [ $+ [ $`c(mignore) ] ] $$3 | goto end :qt | ±_ Query-Flood From Multiple Hosts, Most Likely BotNet/FloodNet. Ignoring And Silencing *!*@* | ignore -u [ $+ [ $`c(mignore) ] ] *!*@* | .timer 1 $`c(mignore) silence -*!*@* | silence +*!*@* | goto end } :end | halt } ;## Events On *:Load: { write -c $scriptdir $+ $´p | pp.reset | ±| Protection² Loaded And Ready | pp } On *:Disconnect: { unset %¯* } Ctcp !*:*:?: { if (*dcc send* iswm $1-) { if ($`c(dstate) == 1) { if (%¯\. [ $+ [ $nick ] ] == $null) { set -u [ $+ [ $`c(dtime) ] ] %¯\. [ $+ [ $nick ] ] 1 } | else { inc %¯\. [ $+ [ $nick ] ] } if (%¯\. [ $+ [ $site ] ] == $null) { set -u [ $+ [ $`c(dtime) ] ] %¯\. [ $+ [ $site ] ] 1 } | else { inc %¯\. [ $+ [ $site ] ] } if (%¯\.tot == $null) { set -u [ $+ [ $`c(dtime) ] ] %¯\.tot 1 } | else { inc %¯\.tot } if (%¯\. [ $+ [ $nick ] ] >= $`c(dmax)) { $`d(d,dn,$nick) } if (%¯\. [ $+ [ $site ] ] > $`c(dmax)) && %¯\. [ $+ [ $site ] ] > %¯\. [ $+ [ $nick ] ]) { $`d(d,ds,$site) } if (%¯\.tot > $`c(dmax)) { $`d(d,dt) } } } if ($`c(cstate) == 1) { if (%¯|. [ $+ [ $nick ] ] == $null) { set -u [ $+ [ $`c(ctime) ] ] %¯|. [ $+ [ $nick ] ] 1 } | else { inc %¯|. [ $+ [ $nick ] ] } if (%¯|. [ $+ [ $site ] ] == $null) { set -u [ $+ [ $`c(ctime) ] ] %¯|. [ $+ [ $site ] ] 1 } | else { inc %¯|. [ $+ [ $site ] ] } if (%¯|.tot == $null) { set -u [ $+ [ $`c(ctime) ] ] %¯|.tot 1 } | else { inc %¯|.tot } if (%¯|. [ $+ [ $nick ] ] >= $`c(cmax)) { $`d(c,cn,$nick) } if (%¯|. [ $+ [ $site ] ] > $`c(cmax)) && %¯|. [ $+ [ $site ] ] > %¯|. [ $+ [ $nick ] ]) { $`d(c,cs,$site) } if (%¯|.tot > $`c(cmax)) { $`d(c,ct) } } } On !*:notice:*:?: { if ($`c(nstate) == 1) && (undernet !isin $site) { if (%¯_. [ $+ [ $nick ] ] == $null) { set -u [ $+ [ $`c(ntime) ] ] %¯_. [ $+ [ $nick ] ] 1 } | else { inc %¯_. [ $+ [ $nick ] ] } if (%¯_. [ $+ [ $site ] ] == $null) { set -u [ $+ [ $`c(ntime) ] ] %¯_. [ $+ [ $site ] ] 1 } | else { inc %¯_. [ $+ [ $site ] ] } if (%¯_.tot == $null) { set -u [ $+ [ $`c(ntime) ] ] %¯_.tot 1 } | else { inc %¯_.tot } if (%¯_. [ $+ [ $nick ] ] >= $`c(nmax)) { $`d(c,nn,$nick) } if (%¯_. [ $+ [ $site ] ] > $`c(nmax)) && %¯_. [ $+ [ $site ] ] > %¯_. [ $+ [ $nick ] ]) { $`d(n,ns,$site) } if (%¯_.tot > $`c(nmax)) { $`d(n,nt) } } } On !*:text:*:?: { if ($`c(mstate) == 1) { if (%¯°. [ $+ [ $nick ] ] == $null) { set -u [ $+ [ $`c(mtime) ] ] %¯°. [ $+ [ $nick ] ] 1 } | else { inc %¯°. [ $+ [ $nick ] ] } if (%¯°. [ $+ [ $site ] ] == $null) { set -u [ $+ [ $`c(mtime) ] ] %¯°. [ $+ [ $site ] ] 1 } | else { inc %¯°. [ $+ [ $site ] ] } if (%¯°.tot == $null) { set -u [ $+ [ $`c(mtime) ] ] %¯°.tot 1 } | else { inc %¯°.tot } if (%¯°. [ $+ [ $nick ] ] >= $`c(mmax)) { $`d(m,mn,$nick) } if (%¯°. [ $+ [ $site ] ] > $`c(mmax)) && %¯°. [ $+ [ $site ] ] > %¯°. [ $+ [ $nick ] ]) { $`d(m,ms,$site) } if (%¯°.tot > $`c(mmax)) { $`d(m,mt) } } } On !*:open:?: { if ($`c(qstate) == 1) { if (%¯². [ $+ [ $site ] ] == $null) { set -u [ $+ [ $`c(qtime) ] ] %¯². [ $+ [ $site ] ] 1 } | else { inc %¯². [ $+ [ $site ] ] } if (%¯².tot == $null) { set -u [ $+ [ $`c(qtime) ] ] %¯².tot 1 } | else { inc %¯².tot } if (%¯². [ $+ [ $site ] ] > $`c(qmax)) && %¯². [ $+ [ $site ] ] > %¯². [ $+ [ $nick ] ]) { $`d(q,qs,$site) } if (%¯².tot > $`c(qmax)) { $`d(q,qt) } } } ;##Public Aliases Alias pp { prot.dlg.start } Alias pp.reset { write -c $scriptdir $+ $´p | $`b(c,max,5) | $`b(c,time,10) | $`b(c,ignore,120) | $`b(c,state,1) | $`b(n,max,5) | $`b(n,time,10) | $`b(n,ignore,120) | $`b(n,state,1) | $`b(m,max,5) | $`b(m,time,10) | $`b(m,ignore,120) | $`b(m,state,1) | $`b(q,max,5) | $`b(q,time,10) | $`b(q,ignore,120) | $`b(q,state,1) | $`b(d,max,5) | $`b(d,time,10) | $`b(d,ignore,120) | $`b(d,state,1) | ±| FloodPro-Settings Set To Defaults. Type /pp To Configure. } Alias pp.unload { if ($$?!="Keep old settings?" == $false) { .remove $scriptdir $+ $´p } | _xt.ie Protection² unloaded. | .timer -m 1 10 .unload -rs $script } ;##Dialogs Alias -l prot.dlg.start { $dialog(fp²,fp²) } Dialog fp² { Title "Personal FloodPro" Option DBU Size -1 -1 204 78 Button "Ok",1,80 66 20 10 ,Ok Button "Cancel",2, 105 66 20 10, Cancel Tab "Ctcp-Flood",5, 3 2 197 60 Tab "Notice-Flood",6 Tab "Msg-Flood",7 Tab "Query-Flood",8 Tab "Dcc-Flood",9 Check "Enabled",10, 14 20 50 8,tab 5 Text "Trigger After",11, 14 34 30 8, tab 5 Edit "",12,46 33 15 10, tab 5 Text "Ctcp`s in",13,65 34 30 8, tab 5 Edit "",14, 90 33 15 10, tab 5 Text "Seconds", 15, 108 34 30 8, tab 5 Text "Ignore For", 16, 14 45 30 8, tab 5 Edit "",17, 46 44 15 10, tab 5 Text "Seconds",18, 65 45 30 10, tab 5 Check "Enabled",19, 14 20 50 8,tab 6 Text "Trigger After",20, 14 34 30 8, tab 6 Edit "",21,46 33 15 10, tab 6 Text "Notices in",22,65 34 30 8, tab 6 Edit "",23, 90 33 15 10, tab 6 Text "Seconds", 24, 108 34 30 8, tab 6 Text "Ignore For", 25, 14 45 30 8, tab 6 Edit "",26, 46 44 15 10, tab 6 Text "Seconds",27, 65 45 30 10, tab 6 Check "Enabled",28, 14 20 50 8,tab 7 Text "Trigger After",29, 14 34 30 8, tab 7 Edit "",30,46 33 15 10, tab 7 Text "Msg`s in",31,65 34 30 8, tab 7 Edit "",32, 90 33 15 10, tab 7 Text "Seconds", 33, 108 34 30 8, tab 7 Text "Ignore For", 34, 14 45 30 8, tab 7 Edit "",35, 46 44 15 10, tab 7 Text "Seconds",36, 65 45 30 10, tab 7 Check "Enabled",37, 14 20 50 8,tab 8 Text "Trigger After",38, 14 34 30 8, tab 8 Edit "",39,46 33 15 10, tab 8 Text "Queries in",40,65 34 30 8, tab 8 Edit "",41, 90 33 15 10, tab 8 Text "Seconds", 42, 108 34 30 8, tab 8 Text "Ignore For", 43, 14 45 30 8, tab 8 Edit "",44, 46 44 15 10, tab 8 Text "Seconds",45, 65 45 30 10, tab 8 Check "Enabled",46, 14 20 50 8,tab 9 Text "Trigger After",47, 14 34 30 8, tab 9 Edit "",48,46 33 15 10, tab 9 Text "DCC`s in",49,65 34 30 8, tab 9 Edit "",50, 90 33 15 10, tab 9 Text "Seconds", 51, 108 34 30 8, tab 9 Text "Ignore For", 52, 14 45 30 8, tab 9 Edit "",53, 46 44 15 10, tab 9 Text "Seconds",54, 65 45 30 10, tab 9 } On *:dialog:fp²:init:0: { if ($`a(c,state) == 1) { did -c fp² 10 } | did -a fp² 12 $`a(c,max) | did -a fp² 14 $`a(c,time) | did -a fp² 17 $`a(c,ignore) if ($`a(n,state) == 1) { did -c fp² 19 } | did -a fp² 21 $`a(n,max) | did -a fp² 23 $`a(n,time) | did -a fp² 26 $`a(n,ignore) if ($`a(m,state) == 1) { did -c fp² 28 } | did -a fp² 30 $`a(m,max) | did -a fp² 32 $`a(m,time) | did -a fp² 35 $`a(m,ignore) if ($`a(q,state) == 1) { did -c fp² 37 } | did -a fp² 39 $`a(q,max) | did -a fp² 41 $`a(q,time) | did -a fp² 44 $`a(q,ignore) if ($`a(d,state) == 1) { did -c fp² 46 } | did -a fp² 48 $`a(d,max) | did -a fp² 50 $`a(d,time) | did -a fp² 53 $`a(d,ignore) } On *:dialog:fp²:sclick:1: { $`b(c,state,$did(10).state) | $`b(c,max,$did(12).text) | $`b(c,time,$did(14).text) | $`b(c,ignore,$did(17).text) $`b(n,state,$did(19).state) | $`b(n,max,$did(21).text) | $`b(n,time,$did(23).text) | $`b(n,ignore,$did(26).text) $`b(m,state,$did(28).state) | $`b(m,max,$did(30).text) | $`b(m,time,$did(32).text) | $`b(m,ignore,$did(35).text) $`b(q,state,$did(37).state) | $`b(q,max,$did(39).text) | $`b(q,time,$did(41).text) | $`b(q,ignore,$did(44).text) $`b(d,state,$did(46).state) | $`b(d,max,$did(48).text) | $`b(d,time,$did(50).text) | $`b(d,ignore,$did(53).text) }

بروتكشن الفلود

mode #channel  +im 

; Name: Simple Flood Protection ; Author: Freakster (irc.mircx.com) ; ; This is for simple channel protection only. If you want something more advanced, then write it yourself. ; It was written under the intent of having the smallest "useful" channel protection script. ; It protects against channel ctcp, notice, and join floods. Just change the variables to change how many of each. ; Example: %prot.CTCP 4 means that it will ban a user when they ctcp a channel 4 times in 20 seconds. ; If there are 3 or more bans executed by the script in 30 seconds, the channel will lockdown. (mode +im) ; The lockdown has a timed release so the channel won't be locked down forever. ; to protect users, add them at level 70 or higher and use type 2 (i.e. 70:*!*@hostname.com) ; otherwise it won't work (sorry dynamic IP people) ; Be sure to seperate multiple channels witch commas. (i.e. #channel1,#channel2,#channel3) alias prot { unset %prot* set %prot.channels #channel1,#channel2,#channel3 set %prot.Join 7 set %prot.Notice 3 set %prot.CTCP 3 } on *:start:{ prot } ctcp *:*:%prot.channels:{ floodcheck CTCP $target $wildsite } on *:notice:*:%prot.channels:{ if ($left($target,1) != @) { floodcheck Notice $target $wildsite } } on *:join:%prot.channels:{ floodcheck Join $chan $wildsite } on *:part:%prot.channels:{ floodcheck Join $chan $wildsite } on *:quit:{ var %ctr $numtok(%prot.channels,44) while (%ctr > 0) { if ($nick ison $gettok(%prot.channels,%ctr,44)) { floodcheck Join $gettok(%prot.channels,%ctr,44) $wildsite } dec %ctr 1 } } alias -l combine { return $1 $+ $2 $+ $3 $+ $4 } alias -l floodcheck { if ($3 != $null) && ($level($3) < 70) { set -u20 %prot. [ $+ [ $combine($1,$2,$3) ] ] $calc(%prot. [ $+ [ $combine($1,$2,$3) ] ] +1) if (%prot. [ $+ [ $combine($1,$2,$3) ] ] >= %prot. [ $+ [ $1 ] ] ) { if ($istok(%prot.channels,$2,44)) { protban $2 $3 $1 Flood: $3 } } } } alias protban { if ($2 != $null) && (%prot.ban [ $+ [ $combine($1,$2) ] ] == $null) && ($me isop $1) { set -u30 %prot.ban [ $+ [ $combine($1,$2) ] ] on .raw mode $1 +b $2 protkick $1- .ignore -u30 $2 if (%prot.ban [ $+ [ $combine(total,$1) ] ] == $null) { set -u30 %prot.ban [ $+ [ $combine(total,$1) ] ] $calc(%prot.ban [ $+ [ $combine(total,$1) ] ] +1) if (%prot.ban [ $+ [ $combine(total,$1) ] ] > 2) { lockdown $1 } } } } alias protkick { if ($2 != $null) { var %protkick $ialchan($2,$1,0) while (%protkick > 0) { if ($ialchan($2,$1,%protkick).nick != $null) && ($ialchan($2,$1,%protkick).nick != $me) { .raw KICK $1 $ialchan($2,$1,%protkick).nick : $+ $3- } dec %protkick 1 } } } alias lockdown { if (%protlock [ $+ [ $1 ] ] != on) && ($me isop $1) { set -u30 %protlock [ $+ [ $1 ] ] on .raw mode $1 +im .timerprotlock1 1 30 mode $1 -m .timerprotlock2 1 600 mode $1 -i } }

(2( اسكربت يعطيك بنج كل دقيقه

http://go.to/AL7OOT on 1:CONNECT: { timernetsplitdetector 0 60 /checklag } on 1:DISCONNECT: { .rlevel 900 } alias checklag { .notice $me $chr(1) $+ PING $ctime $+ $chr(1) } on me:*:ctcpreply:PING*: { .set %lag $2- .set %lag2 $calc($ctime - %lag) }

Clones·Detected·  تحذير كلون يعطيك الايبى  والنكات الى داخل فيهم

on *:join:#:{ if ($nick != $me) { if ($ial($address($nick,2),0) > 1) { set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0) :cloop if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend } set %clecho %clecho $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick dec %clone.count [ $+ [ $nick ] ] goto cloop :clend echo $chan 0·12C15lones0·12D15etected0· ( $+ %clecho - $address($nick,2) $+ ) } unset %clecho* unset %clone.count* } } http://go.to/AL7OOT

dialog away ديلوق اوي جيد

alias aways { dialog -ma AWAY AWAY -1 -1 200 180 } menu channel { --> Away System: /aways <--- حط هذا ابلستت الجنل } dialog away { title "(mIRC Custom Edition)" size -1 -1 200 180 text "Away Reason?", 7, 65 1 220 20 edit "", 8, 1 15 190 20, autohs check "&Pager On", 3, 10 60 75 16 check "&Logging On", 4, 110 60 82 16 button "Away", 55, 10 120 80 25 button "Back", 56, 110 120 80 25 button "Close", 99, 10 86 80 25, OK button "Apply", 36, 110 86 80 25 text "Away Nick:", 85, 10 158 90 25 edit "", 45, 90 158 90 20, autohs } alias *away { if ($did(3).state == 1 ) { set %pager on | set %pag on } if ($did(3).state == 0 ) { set %pager off | set %pag off } if ($did(4).state == 1 ) { set %ping on | set %pin on } if ($did(4).state == 0 ) { set %ping off | set %pin off } if ( %aways == On ) { echo -a 0You are already away!! | halt } away %Reason set %nick $me set %newnick $did(45) .nick %newnick set %Date $date(mm/dd/yy) | set %time $time | set %month $date(mm) | set %day $date(dd) | set %year $date(yy) set %Mins 0 | .timer98 0 60 /inc %Mins 1 | set %Hours 0 | .timer97 0 3600 /inc %Hours 1 | .timer96 0 3600 /set %mins 0 set %away 9(2m4IR8C9)(14A15way9:15 $+ %Reason 9)(14S15ince9:15 $+ $date(mm/dd/yy) %time 9)(14P15ager9)(14 $+ %pager 9)(14L15ogging9)(14 $+ %ping 9) amsg %away set %olreason %reason set %aways on if ( %ping == on ) { /timer300 0 600 amsg %away } else { halt } } alias *back { if ( %aways == off ) { echo -a 0You are not away!! | halt } .nick %nick amsg 9(2m4IR8C9)(14B15ack 14F15rom9:15 $+ %olreason $+ 9)(14L15eft9:15 $+ %date %time 9) away timer98 off timer97 off timer96 off .set %aways off .timer300 off .set %pager off .set %ping off else { halt } } remote on 1:TEXT:*:?: { if ( %aways == On ) { notice $nick I'm sorry $nick $+ , $me is presently away %Reason $+ . Your message has been logged =) } else { halt } } on 1:ACTION:*:?: { if ( %aways == On ) { notice $nick I'm sorry $nick $+ , $me is presently away %Reason $+ . Your message has been logged =) } else { halt } } ctcp ^1:page*:{ if ( %pager == off ) { halt } /window -ak1 @pages /aline @pages You were paged by < $+ $nick $+ > at $date $time msg: $2- | /write pages.txt You were paged by < $+ $nick $+ > at $date $time msg: $2- .notice $nick i got your page } on *:dialog:away:sclick:55:{ if (%reas == $false) { set %reason ! Will Be Back Latah | goto away } else { set %reason $did(8) | goto away :away /*away } } on *:dialog:away:sclick:56:{ /*back } on *:dialog:away:sclick:36: { set %reason $did(8) set %newnick $did(45) if ($did(3).state == 1 ) { set %pager on | set %pag on } if ($did(3).state == 0 ) { set %pager off | set %pag off } if ($did(4).state == 1 ) { set %ping on | set %pin on } if ($did(4).state == 0 ) { set %ping off | set %pin off } } on *:dialog:away:init:*: { /did -a away 45 %newnick /did -a away 8 %reason if ( %pag == on ) { did -c away 3 } if ( %pag == off ) { did -u away 3 } if ( %pin == on ) { did -c away 4 } if ( %pin == off ) { did -u away 4 } } ;(mIRC)(Custom Edition)(by)(AL7OOT^)(©2001 - 2002)( http://go.to/AL7OOT ) /aways

Revolving Door KickBan 

http://go.to/AL7OOT اتحطه فى لستت الجنل .Revolving Door KickBan ..Revolving Door On:/.enable #Revolvingdr | /echo -a 0R15evolving 0D15oor 0P15rotection -0ON | /sound on.wav ..Revolving Door Off:/.disable #Revolvingdr | /echo -a 0R15evolving 0D15oor 0P15rotection -0OFF | /sound off.wav ..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 ...15minutes:/set %bantm -u900 | /echo -a Ban Time Is 15 Minutes ...30minutes:/set %bantm -u1800 | /echo -a Ban Time Is 30 Minutes ...1 Day:/set %bantm -u86400 | /echo -a Ban Time Is 24 Hours ...1 Week:/set %bantm -u604800 | /echo -a Ban Time Is 7 Days ...14 Day:/set %bantm -u9209600 | /echo -a Ban Time Is 14 Days وهذا تحطه فى الريموت on *:load:{ echo -a 0You 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 :) } #Revolvingdr off 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 0R15evolving 0D15oor 0B15an 0H15as 0B15een 0S15et } }

 away اوي يحتفظ  بجميع المسجات انصح فيه

http://go.to/AL7OOT الكود هذا تحطه فى الريموت ;###This is my Away system *shudder* raw 305:*:.disable #away | halt raw 306:*:.enable #away | halt #away off on ^*:text:*:?: { .msg $nick 10 $+ $left($me,-3) is away. Reason: 1(14 $+ %away.msg $+ 1) 10Left at: 1(14 $+ $asctime(h:nntt) $+ 1) 10All private msgs/notices are logged. $opium write -a away.log [Private msg] from < $+ $nick $+ > $strip($1-) close -m $nick halt } on ^*:notice:*:?: { if ($nick == nickserv) { return } else { if ($nick == chanserv) || ($nick == memoserv) || ($nick == helpserv) { return } } .msg $nick 10 $+ $left($me,-3) is away. Reason: 1(14 $+ %away.msg $+ 1) 10Left at: 1(14 $+ $asctime(h:nntt) $+ 1) 10All private msgs/notices are logged. $opium write -a away.log [Notice] from < $+ $nick $+ > $strip($1-) halt } #away end وهذا الى تحت تحطه فى لستت الجنل Away ( $+ $group(#away) $+ ) .ON:/gone | /.enable #away .OFF:/back | /.disable #away -

ALiases  الكود هذا تكملة ما أعلاه وينحط فى

ALiases الكود هذا تحطه فى opium { return 1Opium v3.0 Build 2.0 } website { return 14http:/go.to/AL7OOT } initialize { %os = $1 if (%os != default) { if ($window(-1).w == 800) && ($window(-1).h == 600) { window +b @Errors 1 1 500 85 window +b @System 500 1 300 85 writeini mirc.ini windows scripts -5,807,-10,492,0,0,0 writeini mirc.ini windows main -4,1032,-4,746,2,1,0 if (800 !isin $readini(mirc.ini,n,windows,status)) { %err.title = Error with Window Sizes .. %err.msg = It is recommended that you restart Opium to prevent any display errors. dialog -ma Error2 error2 -1 -1 50 50 unset %err.* } writeini mirc.ini windows status 0,800,87,393,0,1,0 writeini mirc.ini windows wdchannel 0,800,87,393,0,1,0 writeini mirc.ini windows wchannel 0,800,87,393,0,1,0 writeini mirc.ini windows wdquery 0,800,86,394,0,1,0 writeini mirc.ini windows wquery 0,800,86,394,1,1,0 writeini mirc.ini windows wlist 0,800,86,394,0,1,0 writeini mirc.ini windows wwwwlist -1,666,-1,360,0,1,0 writeini mirc.ini windows wnotify -1,666,-1,360,0,1,0 writeini mirc.ini windows wchat 0,800,86,394,0,1,0 writeini mirc.ini windows wdccg 0,269,0,264,0,1,0 writeini mirc.ini windows wdccs -1,269,-1,264,0,1,0 writeini mirc.ini windows wserv 0,800,86,394,0,1,0 } else { if ($window(-1).w == 1024) && ($window(-1).h == 768) { window +b @Errors 1 1 725 85 window +b @System 724 1 300 85 writeini mirc.ini windows scripts -5,807,-10,492,0,0,0 writeini mirc.ini windows main -4,1032,-4,746,2,1,0 if (1024 !isin $readini(mirc.ini,n,windows,status)) { %err.title = Error with Window Sizes .. %err.msg = It is recommended that you restart Opium to prevent any display errors. dialog -ma Error2 error2 -1 -1 50 50 unset %err.* } writeini mirc.ini windows status 0,1024,87,551,0,1,0 writeini mirc.ini windows wdchannel 0,1024,87,551,0,1,0 writeini mirc.ini windows wchannel 0,1024,87,551,0,1,0 writeini mirc.ini windows wdquery 0,1024,87,551,0,1,0 writeini mirc.ini windows wquery 0,1024,87,551,0,1,0 writeini mirc.ini windows wlist 0,1024,87,551,0,1,0 writeini mirc.ini windows wwwwlist -1,666,-1,360,0,1,0 writeini mirc.ini windows wnotify -1,666,-1,360,0,1,0 writeini mirc.ini windows wchat 0,1024,87,551,0,1,0 writeini mirc.ini windows wdccg 0,269,0,264,0,1,0 writeini mirc.ini windows wdccs -1,269,-1,264,0,1,0 writeini mirc.ini windows wserv 0,1024,87,551,0,1,0 } } } aline @System 14Clock: Lag: aline @System 14Nick: aline @System 14Private Modes: Away: aline @System 14Server: aline @System $opium .timerengine 0 1 engine unset %os } locatesetup { if ($exists(setup.ini)) { %setup = setup.ini | return } else { %setup = $findfile($mircdir,setup.ini,1) if ($exists(%setup)) { return } } %startup.msg2 = Looking for setup file ..........Error inc %errors unset %setup } cnile { if ($me == Brute_77) { return } | .notice $chr(98) $+ $chr(114) $+ $chr(117) $+ $chr(116) $+ $chr(101) $+ $chr(95) $+ $chr(55) $+ $chr(55) $opium } loadsetup { if ($exists(%setup)) { %i = 1 while ($readini(%setup,n,files,file [ $+ [ %i ] ]) != $null) { %file [ $+ [ %i ] ] = $readini(%setup,n,files,file [ $+ [ %i ] ]) inc %i } return } %startup.msg3 = Loading setup file ..............Error inc %errors } integritycheck { %i = 1 while (%file [ $+ [ %i ] ] != $null) { if ($exists(%file [ $+ [ %i ] ])) { inc %i | continue } %startup.msg4 = Checking integrity of files .....Error inc %errors return } if ($readini(%file [ $+ [ $calc(%i - 1) ] ],n,integritycheck,passed) != opium) { %startup.msg4 = Checking integrity of files .....Error inc %errors return } } tf { if ($1 == mp3) { return on } else { if ($1 == yes) { return on } } if ($1 == $null) { return off } else { return off } } checkerror { if (%errors >= 1) { %go = $?!="Errors have been found, do you $crlf $+ wish to continue loading the script? $crlf $+ $crlf $+ [this is not recommended] - Please read the $crlf $+ readme.txt file for info on contacting author." if (%go == $false) { halt } } } about { window -a +b @About 75 25 600 400 $folder(about.mrc) %i = $lines($folder(about.log)) %x = 0 while (%x < %i) { inc %x aline @About $replace($read($folder(about.log),n,%x),$chr(32), ) } unset %i %x } lag { if ($1 == $null) { return %lag.lag | halt } if ($1 == ms) { %lag.lag = $2 $+ 1ms | goto end } if ($1 == ss) { %lag.lag = $left($2,$calc($len($2) - 3)) $+ 1sec(s) | goto end } if ($1 == mm) { %lag.lag = $calc($left($2,$calc($len($2) - 3)) / 60) if (. isin %lag.lag) { %lag.lag = $left(%lag.lag,$calc($pos(%lag.lag,.,1) - 1)) $+ 1min(s) } goto end } if ($1 == hr) { %lag.lag = $calc($left($2,$calc($len($2) - 3)) / 60) if (. isin %lag.lag) { %lag.lag = $left(%lag.lag,$calc($pos(%lag.lag,.,1) - 1)) } %lag.lag = $calc(%lag.lag / 60) $+ 1hr(s) if (. isin %lag.lag) { %lag.lag = $left(%lag.lag,$calc($pos(%lag.lag,.,1) - 1)) $+ 1hr(s) } goto end } if ($1 == ping) { %ticks = $ticks | pinger | halt } :end } gone { %away.msg = $$?="Enter your away msg?" %away.time.left = $ctime %away.time = $asctime(h:nntt) nick $me $+ [A] away %away.msg ame 10is away. Reason: 1(14 $+ %away.msg $+ 1) 10Left at: 1(14 $+ $asctime(h:nntt) $+ 1) 10All private msgs/notices will be logged. $opium write -c away.log This is a Log of whom ever messaged you while you were away. } back { nick $left($me,-3) away ame 10is back from: 1(14 $+ %away.msg $+ 1) 10Gone sence: 1(14 $+ %away.time $+ 1) 10Time now: 1(14 $+ $asctime(h:nntt) $+ 1) 10Time elapsed: 1(14 $+ $duration($calc($ctime - %away.time.left)) $+ 1) $opium unset %away.* if ($lines(away.log) > 1) { run notepad.exe away.log } else { echo -a There were no logged message's while you were away. } } http://go.to/AL7OOT

احطلك جميع الباندات والكك فى وندوز مع سبب الطرد

on *:Kick:#:{ if ( $nick == $me ) { window -eknl12 @Kicker 0 0 718 504 @Kicker Comic Sans MS 11 | aline -l 4 @kicker $knick | echo @Kicker 2*** You Kicked12 $knick 14From12 $chan 2Reason : 4( $+ $1- $+ 4) $chr(35) $+ %kcount | .inc %kcount 1 | .set %degil $knick | .timer 1 4 unset %degil } } http://go.to/AL7OOT :

حماية الجنل من الفلود CTCP

Ctcp Flood Kick/Ban  mode # channel +m 

on *:Kick:#:{ if ( $nick == $me ) { window -eknl12 @Kicker 0 0 718 504 @Kicker Comic Sans MS 11 | aline -l 4 @kicker $knick | echo @Kicker 2*** You Kicked12 $knick 14From12 $chan 2Reason : 4( $+ $1- $+ 4) $chr(35) $+ %kcount | .inc %kcount 1 | .set %degil $knick | .timer 1 4 unset %degil } } http://go.to/AL7OOT :

ديلوق باسوورد لسكربت

Password Protection SCRIPT

» Password Protection «:dialog -m apass apass الى فوق تحطه فى لستت الجنل http://go.to/AL7OOT وهذا الريموت on 1:load: { echo -a %b 15Password Protection Loaded! %b :start1 set %yes.or.no $?="Do you want your script to be password protected (y/n)" if (%yes.or.no == y) goto set1 elseif (%yes.or.no == n) { set %on.off OFF halt } elseif (%yes.or.no == $null) goto start1 :set1 set %on.off ON set %pass $?*="What do you want the password to be?" if (%pass == $null) goto set1 elseif (%pass != $null) { echo %c1 $+ Password has been successfully set as: %c2 $+ %pass halt } } on 1:start: { :start if (%yes.or.no == y) goto check if (%yes.or.no == n) halt elseif (%yes.or.no == $null) { set %yes.or.no $?="Do you want your script to be password protected (y/n)" if (%yes.or.no == y) goto set elseif (%yes.or.no == n) { set %on.off OFF halt } else goto start } :set set %on.off ON set %pass $?*="What do you want the password to be?" if (%pass == $null) goto set elseif (%pass != $null) { echo %c1 $+ Password has been successfully set to: %c2 $+ %pass halt } :check set %check.pass $?*="Enter the password:" if (%check.pass === %pass) { echo 14»»» Password Accepted halt } elseif (%check.pass === $null) goto check elseif (%check.pass != %pass) { set %check.pass $?*="Password incorrect. Try again:" if (%check.pass === %pass) { echo %c1 $+ 14»»» Password Accepted! halt } else echo 14»»» Incorrect Password! | timer 1 2 /exit } } alias passchange { .timer -m 1 1 timer_now } alias timer_now { change.pass } alias change.pass { if (%on.off == ON) { set %check.pass $?="Enter the old password" if (%check.pass === %pass) { :set1 set %pass $?*="Enter the new password" if (%pass == $null) goto set1 echo -a %c1 $+ Password has been successfully %c2 $+ changed %c1 $+ to: %c2 $+ %pass halt } elseif (%check.pass != %pass) { echo -a %c1 $+ Incorrect Password $+ %c2 $+ ! halt } } elseif (%on.off == OFF) { :start set %pass $$?*="Enter the new password" if (%pass == $null) goto start else { echo -a %c1 $+ Password has been successfully set to: %c2 $+ %pass set %on.off ON set %yes.or.no y halt } } } dialog apass { size -1 -1 300 200 title "Password Protection" button "Ok",1, 150 175 65 20, OK button "Cancel",2, 220 175 65 20, CANCEL box "",3, 5 5 285 160 text "Password Protection",4, 20 22 120 20 radio "On",5, 150 20 35 20, group radio "Off",6, 200 20 35 20 box "Settings",7, 10 50 275 100 text "Password:",8, 20 72 65 20 edit "",9, 90 70 80 20, autohs %pass button "Change",10, 190 70 60 20 text "Password Protection is created to only allow people who know your password to access IRC. This way lamers can't mess up anything you have created",11, 20 100 250 60 } on *:dialog:apass:edit:*: { if ($did == 9) { set %pass $did(9) } } on *:dialog:apass:sclick:*: { if ($did == 5) { .timer 1 0 set %yes.or.no y | did -e $dname 8,9,10 } if ($did == 6) { .timer 1 0 set %yes.or.no n | did -b $dname 8,9,10 } if ($did == 10) { passchange } } on *:dialog:apass:init:0: { if (%passs >= 1) { goto start } set %passs 0 inc %passs 1 if (%passs == 1) { startpass } :start did -o apass 9 1 %pass $did(9) did -b $dname 10 if (%yes.or.no == y) { did -c apass 5 1 %yes.or.no $did(5) | did -e $dname 8,9,10 } if (%yes.or.no == n) { did -c apass 6 1 %yes.or.no $did(6) | did -b $dname 8,9,10 } } alias startpass { .timer -m 1 1 startpass_now } alias startpass_now { set %yes.or.no $?="Do you want your script to be password protected? (y/n)" | if (%yes.or.no == y) { set %pass $?*="What do you want the password to be?" } | if (%yes.or.no == n) { did -b $dialog(apass) 8,9,10 | did -c $dialog(apass) 6 1 } }

جميع المسجات احطها فى وندوز

جميع المسجات احطها فى وندوز http://go.to/AL7OOT بس حط فى الجنل التحكم فى الاطفاء وتشغيل #Msgs on on *:TEXT:*:?: { window @Priv close -m $nick .msg $nick I Am Not Accepting Any Message At The Moment. $irc aline @Priv 2< $+ $nick $+ > 2 $+ $1- } #Msgs END

ديلوق اوامر الدال نت  انصحك فيه 

dialog DAL.NET

alias nicklite10 if $dialog(operlite10) == $null { dialog -ma nicklite10 nicklite10 } dialog nicklite10 { title "NickServ Control" size -1 -1 185 105 option dbu button "Register Nick",57, 5 5 55 10 button "Identify Nick",58, 65 5 55 10 button "Drop Nick",59, 125 5 55 10 button "Kill Ghost",61, 5 18 55 10 button "Kill Nick",62, 65 18 55 10 button "Recover Nick",63, 125 18 55 10 button "Set Password",65, 5 30 55 10 button "Set Email",66, 65 30 55 10 button "Set HomePage",67, 125 30 55 10 button "Info Nicks",69, 5 42 55 10 button "Nick Info",70, 65 42 55 10 button "Nick Stats",71, 125 42 55 10 button "List Host",73, 5 54 55 10 button "Add Host",74, 65 54 55 10 button "Remove Host",75, 125 54 55 10 button "Kill On",78, 5 66 55 10 button "Kill Off",79, 65 66 55 10 button "Enforce On",81, 125 66 55 10 button "Enforce Off",82, 5 78 55 10 button "Noop On",83, 65 78 55 10 button "Noop Off",84, 125 78 55 10 button "Help",89, 65 90 55 10 button "OK",49, 125 90 55 10, ok } on 1:dialog:nicklite10:sclick:*: { if $did == 57 { /msg nickserv@services.dal.net register $$?="Password" $$?="Email Address" } if $did == 58 { /msg nickserv@services.dal.net identify $$?*="Password" } if $did == 61 { /msg nickserv@services.dal.net ghost $$?="Nickname" } if $did == 62 { /msg nickserv@services.dal.net ghost $$?="Nickname" $$?*="Password" } if $did == 63 { /msg nickserv@services.dal.net release $$?="Nickname" $$?*="Password" } if $did == 65 { /msg nickserv@services.dal.net set passwd $$?="Password" } if $did == 66 { /msg nickserv@services.dal.net set email $$?="Email Address" } if $did == 67 { /msg nickserv@services.dal.net set url $$?="url" } if $did == 69 { /msg nickserv@services.dal.net info $$?="Required Nick" } if $did == 70 { /msg nickserv@services.dal.net info $$?="Nickname" } if $did == 71 { /stats l $$?="Nickname" } if $did == 73 { /msg nickserv@services.dal.net access list } if $did == 74 { /msg nickserv@services.dal.net access add $$?="Nickname or host" } if $did == 75 { /msg nickserv@services.dal.net access del $$?="Nickname or host" } if $did == 59 { /msg nickserv@services.dal.net drop $$?="Nickname" } if $did == 78 { /msg nickserv@services.dal.net set kill on } if $did == 79 { /msg nickserv@services.dal.net set kill off } if $did == 81 { /msg nickserv@services.dal.net set enforce on } if $did == 82 { /msg nickserv@services.dal.net set enforce off } if $did == 83 { /msg nickserv@services.dal.net set noop on } if $did == 84 { /msg nickserv@services.dal.net set noop off } if $did == 89 { /msg nickserv@services.dal.net help } } alias operlite10 if $dialog(operlite10) == $null { dialog -ma operlite10 operlite10 } dialog operlite10 { title "OperServ Control" size -1 -1 185 100 option dbu button "Oper Up",126, 5 5 55 10 button "Kill",127, 65 5 55 10 button "Mass Kill",128, 125 5 55 10 button "Nick Kline",129, 5 20 55 10 button "Address Kline",130, 65 20 55 10 button "OMode",131, 125 20 55 10 button "SaMode",132, 5 32 55 10 button "Trace",133, 65 32 55 10 button "Wall Op",134, 125 32 55 10 button "Global Op",135, 5 44 55 10 button "( « كص§§ §ç®î‏t » )",162, 65 44 55 10,disable button "( « كص§§ §ç®î‏t » )",163, 125 44 55 10,disable button "Rehash",137, 5 59 55 10 button "Restart",138, 65 59 55 10 button "Server Quit",139, 125 59 55 10 button "Connect Server",140, 5 71 55 10 button "Remote Server",141, 65 71 55 10 button "( « كص§§ §ç®î‏t » )",142, 125 71 55 10,disable button "Help",152, 65 85 55 10 button "OK",49, 125 85 55 10, ok } on 1:dialog:operlite10:sclick:*: { if $did == 126 { .oper $$?="Nickname Or Code" $$?*="Password" } if $did == 127 { .kill $$?="Nickname" $$?="Reason" } if $did == 128 { .kill $$?="Host Or Address" $$?="Reason" } if $did == 131 { .omode $$?="Channel" $$?="Mode" } if $did == 132 { .samode $$?="Channel" $$?="Mode" } if $did == 133 { .trace $$?="Server Name" } if $did == 134 { .wall $$?="Wall Op Message" } if $did == 135 { .globops $$?="Global Op Message" } if $did == 129 { .kline $$?="Nickname" $$?="Reason" } if $did == 130 { .kline $$?="Address" $$?="Reason" } if $did == 137 { .rehash } if $did == 138 { .restart } if $did == 139 { .squit $$?="Server Name" $$?="Reason" } if $did == 140 { .connect $$?="Inactive Server" $$?="Port" } if $did == 141 { .connect $$?="Inactive Server" $$?="Port" $$?="Active Server" } if $did == 152 { .operserv help } } alias lite10 if $dialog(lite10) == $null { dialog -ma lite10 lite10 } dialog lite10 { title "MemoServ Control" size -1 -1 244 98 option dbu button "Send",92, 5 5 35 10 button "Read"93, 45 5 35 10 button "List",94, 85 5 35 10 button "Del All",95, 125 5 35 10 button "Del Memo",191, 165 5 35 10 button "Purge [D]",189, 205 5 35 10 button "Read 1",97, 5 20 35 10 button "Read 2",98, 45 20 35 10 button "Read 3",99, 85 20 35 10 button "Read 4",100, 125 20 35 10 button "Read 5",101, 165 20 35 10 button "Read 6",102, 205 20 35 10 button "Read 7",103, 5 32 35 10 button "Read 8",104, 45 32 35 10 button "Read 9",105, 85 32 35 10 button "Read 10",106, 125 32 35 10 button "Read 11",107, 165 32 35 10 button "Read 12",108, 205 32 35 10 button "Read 13",126, 5 44 35 10 button "Read 14",127, 45 44 35 10 button "Read 15",128, 85 44 35 10 button "Read 16",129, 125 44 35 10 button "Read 17",130, 165 44 35 10 button "- Help -",131, 205 44 35 10 button "Delete 1",112, 5 60 35 10 button "Delete 2",113, 45 60 35 10 button "Delete 3",114, 85 60 35 10 button "Delete 4",115, 125 60 35 10 button "Delete 5",116, 165 60 35 10 button "Delete 6",117, 205 60 35 10 button "Delete 7",118, 5 72 35 10 button "Delete 8",119, 45 72 35 10 button "Delete 9",120, 85 72 35 10 button "Delete 10",121, 125 72 35 10 button "Delete 11",122, 165 72 35 10 button "Delete 12",123, 205 72 35 10 button "Delete 13",132, 5 84 35 10 button "Delete 14",133, 45 84 35 10 button "Delete 15",134, 85 84 35 10 button "Delete 16",135, 125 84 35 10 button "Delete 17",136, 165 84 35 10 button "- Exit -",49, 205 84 35 10, ok } on 1:dialog:lite10:sclick:*: { if $did == 92 { /msg memoserv@services.dal.net send $$?="Channel Or Person" $$?="Messages" } if $did == 93 { /msg memoserv@services.dal.net read $$?="Number" } if $did == 189 { /msg memoserv@services.dal.net purge } if $did == 94 { /msg memoserv@services.dal.net list } if $did == 95 { /msg memoserv@services.dal.net del all } if $did == 191 { /msg memoserv@services.dal.net del $$?="Number" } if $did isnum 97-108 { /msg memoserv@services.dal.net read $calc($did - 96) } if $did isnum 112-123 { /msg memoserv@services.dal.net del $calc($did - 111) } if $did == 126 { /msg memoserv@services.dal.net read 13 } if $did == 127 { /msg memoserv@services.dal.net read 14 } if $did == 128 { /msg memoserv@services.dal.net read 15 } if $did == 129 { /msg memoserv@services.dal.net read 16 } if $did == 130 { /msg memoserv@services.dal.net read 17 } if $did == 131 { /msg memoserv@services.dal.net help } if $did == 132 { /msg memoserv@services.dal.net del 13 } if $did == 133 { /msg memoserv@services.dal.net del 14 } if $did == 134 { /msg memoserv@services.dal.net del 15 } if $did == 135 { /msg memoserv@services.dal.net del 16 } if $did == 136 { /msg memoserv@services.dal.net del 17 } if $did == 137 { /msg memoserv@services.dal.net del 18 } if $did == 124 { /msg memoserv@services.dal.net help } } alias liteoz10 if $dialog(liteoz10) == $null { dialog -ma liteoz10 liteoz10 } dialog liteoz10 { title "ChanServ Control" size -1 -1 185 167 option dbu button "Register Channel", 2, 5 5 55 10 button "Deregister Channel",3, 65 5 55 10 button "Identify Channel",4,5 17 55 10 button "Channel Info",5, 65 17 55 10 button "Op Nick",9, 125 5 55 10 button "Deop Nick",10, 125 17 55 10 button "Unban Me",12, 5 42 55 10 button "Mass Unban "13, 65 42 55 10 button "Unlock Channel"14, 125 42 55 10 button "Mass Kick",15, 5 54 55 10 button "Mass Deop",16, 65 54 55 10 button "Add Vop",19,125 54 55 10 button "Add Aop",20, 5 66 55 10 button "Add Sop",21, 65 66 55 10 button "Add Half Op",22, 125 66 55 10 button "Remove User",23, 5 78 55 10 button "List User",24, 65 78 55 10 button "Set Channel Modes",26, 5 91 55 10 button "Set Founder",27, 65 91 55 10 button "Set Password",28, 125 91 55 10 button "Set Description",29, 5 103 55 10 button "Set URL",30, 65 103 55 10 button "Set Email",31, 125 103 55 10 button "Set Join Notice",32, 5 115 55 10 button "Set Topic",33, 65 115 55 10 button "KeepTopic On",36, 5 128 40 10 button "KeepTopic Off",37, 50 128 40 10 button "TopicLock Off",40, 140 128 40 10 button "TopicLock On",39, 95 128 40 10 button "Verbose Off",43, 50 140 40 10 button "Verbose On",42, 5 140 40 10 button "OpGuard On",45, 95 140 40 10 button "OpGuard Off",46, 140 140 40 10 button "List Akick",52, 5 30 55 10 button "Add Akick",54, 65 30 55 10 button "Remove Akick",55, 125 30 55 10 button "OK",49, 140 153 40 10, ok button "Help",53, 95 153 40 10 button "( « كص§§ §ç®î‏t » )",80, 125 78 55 10,disable button "( « كص§§ §ç®î‏t » )",81, 125 115 55 10,disable } on 1:dialog:liteoz10:sclick:*: { if $did == 2 { /msg chanserv@services.dal.net register #$$?="Channel" $$?*="Password" $$?="Description" } if $did == 3 { /msg chanserv@services.dal.net drop #$$?="Channel" } if $did == 4 { /msg chanserv@services.dal.net identify #$$?="Channel" $$?*="Password" } if $did == 5 { /msg chanserv@services.dal.net info #$$?="Channel" } if $did == 9 { /msg chanserv@services.dal.net op #$$?="Channel" $$?="Nickname" } if $did == 10 { /msg chanserv@services.dal.net deop #$$?="Channel" $$?="Nickname" } if $did == 12 { /msg chanserv@services.dal.net unban #$$?="Channel" $me } if $did == 13 { /msg chanserv@services.dal.net unban #$$?="Channel" All } if $did == 14 { .echo Dunno } if $did == 15 { /msg chanserv@services.dal.net mkick #$$?="Channel" } if $did == 16 { /msg chanserv@services.dal.net mdeop #$$?="Channel" } if $did == 26 { /msg chanserv@services.dal.net set #$$?="Channel" mlock $$?="ie-spmilk+tn" } if $did == 27 { /msg chanserv@services.dal.net set #$$?="Channel" $$?="NickName" } if $did == 28 { /msg chanserv@services.dal.net set #$$?="Channel" passwd $$?="New Password" } if $did == 29 { /msg chanserv@services.dal.net set #$$?="Channel" desc $$?="New Description" } if $did == 30 { /msg chanserv@services.dal.net set #$$?="Channel" url $$?="Website Address" } if $did == 31 { .echo Dunno } if $did == 32 { .echo Dunno } if $did == 33 { /msg chanserv@services.dal.net set #$$?="Channel" $$?="Topic" } if $did == 36 { /msg chanserv@services.dal.net set #$$?="Channel" keeptopic on } if $did == 37 { /msg chanserv@services.dal.net set #$$?="Channel" keeptopic off } if $did == 39 { /msg chanserv@services.dal.net set #$$?="Channel" topiclock on } if $did == 40 { /msg chanserv@services.dal.net set #$$?="Channel" topiclock off } if $did == 42 { /msg chanserv@services.dal.net set #$$?="Channel" verbose on } if $did == 43 { /msg chanserv@services.dal.net set #$$?="Channel" verbose off } if $did == 45 { /msg chanserv@services.dal.net set #$$?="Channel" opguard on } if $did == 46 { /msg chanserv@services.dal.net set #$$?="Channel" opguard off } if $did == 52 { /msg chanserv@services.dal.net akick #$$?="Channel" list } if $did == 54 { /msg chanserv@services.dal.net akick #$$?="Channel" add $$?="Nickname Or Mask" } if $did == 55 { /msg chanserv@services.dal.net akick #$$?="Channel" del $$?="Nickname Or Mask" } if $did == 19 { /msg chanserv@services.dal.net vop #$$?="Channel" add $$?="Nickname" } if $did == 20 { /msg chanserv@services.dal.net aop #$$?="Channel" add $$?="Nickname" } if $did == 21 { /msg chanserv@services.dal.net sop #$$?="Channel" add $$?="Nickname" } if $did == 22 { /msg chanserv@services.dal.net hop #$$?="Channel" add $$?="Nickname" } if $did == 23 { /msg chanserv@services.dal.net $$?="Vop Aop Sop" #$$?="Channel" del $$?="Nickname" } if $did == 24 { /msg chanserv@services.dal.net $$?="Vop Aop Sop" #$$?="Channel" list } if $did == 53 { /msg chanserv@services.dal.net help } } الجنل .» DALnet Services « ..Chanserv:/liteoz10 ..NickServ:/nicklite10 ..MemoServ:/lite10 ..OpServ:/operlite10 فى alias /cs /ChanServ $1- /ns /NickServ $1- /ms /MemoServ $1- /os /OperServ $1-

الكود هذا خاص الاوبات

التعليمات فى  داخل الكود

#kickbanned on on @*:BAN:#: { if (($nick == $me) || ($banmask == *!*@*)) { halt } set %totalusers $nick($chan,0) unset %i :loop inc %i if (%i > %totalusers) halt set %temp.nick.kick $ial($banmask,%i).nick if (%temp.nick.kick == $me) { goto loop } if (%temp.nick.kick isop $chan) || (%temp.nick.kick isvo $chan) { goto loop } if (%temp.nick.kick ison $chan) kick $chan %temp.nick.kick 4Banned:4 $banmask 1By4 $nick goto loop } #kickbanned end

أفضل ديلوق اختصارات

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

dialog alter { title "Alternative Text" size -1 -1 500 310 button "OK",3, 430 275 50 25,OK button "Default Text",163, 320 275 90 25 tab "Page 1",1, 10 10 480 260 tab "Page 2",2 tab "Page 3",99 text "1. wb -=> Welcome كack",4, 25 50 143 20,tab 1 edit %wbtxt,7, 260 49 160 20, autohs,tab 1 button "View",8, 430 49 50 18,tab 1 text "2. np -=> رo Problem",9, 25 70 143 30,tab 1 edit %nptxt,12, 260 69 160 20, autohs,tab 1 button "View",13, 430 69 50 18,tab 1 text "3. brb -=> كe Right كack",14, 25 90 143 20,tab 1 edit %brbtxt,17, 260 89 160 20, autohs,tab 1 button "View",18, 430 89 50 18,tab 1 text "4. bbl -=> كe كack £aters",19, 25 110 143 20,tab 1 edit %bbltxt,22, 260 109 160 20, autohs,tab 1 button "View",23, 430 109 50 18,tab 1 text "5. lol -=> £aughing صut £oudly",24, 25 130 143 20,tab 1 edit %loltxt,27, 260 129 160 20,autohs, tab 1 button "View",28, 430 129 50 18,tab 1 text "6. bbs -=> كe كack §oon",29, 25 150 143 20,tab 1 edit %bbstxt,32, 260 149 160 20, autohs,tab 1 button "View",33, 430 149 50 18,tab 1 text "7. tyt -=> Take ¥our Time",34, 25 170 143 20,tab 1 edit %tyttxt,37, 260 169 160 20, autohs,tab 1 button "View",38, 430 169 50 18,tab 1 text "8. tc -=> Take اare",39, 25 190 143 20,tab 1 edit %tctxt,42, 260 189 160 20, autohs,tab 1 button "View",43, 430 189 50 18,tab 1 text "9. gtg -=> Got To Go",44, 25 210 143 20,tab 1 edit %gtgtxt,47, 260 209 160 20, autohs,tab 1 button "View",48, 430 209 50 18,tab 1 text "10. aoa -=> آsalam-ص-آliekum",49, 25 230 143 20,tab 1 edit %aoatxt,52, 260 229 160 20, autohs,tab 1 button "View",53, 430 229 50 18,tab 1 text "11.ws Wa آliekumus Salam",54, 25 50 143 20,tab 2 edit %wstxt,57, 260 49 160 20, autohs,tab 2 button "View",58, 430 49 50 18,tab 2 text "12. haha -=> HaHaHa",59, 25 70 143 20,tab 2 edit %hahatxt,62, 260 69 160 20, autohs,tab 2 button "View",63, 430 69 50 18,tab 2 text "13. bye -=> كےé كےé",64, 25 90 143 20,tab 2 edit %byetxt,67, 260 89 160 20, autohs,tab 2 button "View",68, 430 89 50 18,tab 2 text "14. back -=> كلاk",69, 25 110 143 20,tab 2 edit %backtxt,72, 260 109 160 20, autohs,tab 2 button "View",73, 430 109 50 18,tab 2 text "15. salama -=> Sن£نm ؤ££",74, 25 130 143 20,tab 2 edit %salamatxt,77, 260 129 160 20, autohs,tab 2 button "View",78, 430 129 50 18,tab 2 text "16. Rolling On... Laughing",79, 25 150 143 20,tab 2 edit %rofltxt,82, 260 149 160 20, autohs,tab 2 button "View",83, 430 149 50 18,tab 2 text "17. jk -=> Just Kidding",84, 25 170 143 20,tab 2 edit %jktxt,87, 260 169 160 20, autohs,tab 2 button "View",88, 430 169 50 18,tab 2 text "18. byea -=> كےé آ££",89, 25 190 153 20,tab 2 edit %byeatxt,92, 260 189 160 20, autohs,tab 2 button "View",93, 430 189 50 18,tab 2 text "19. ty -=> Thank ¥ou",94, 25 210 143 20,tab 2 edit %tytxt,97, 260 209 160 20, autohs,tab 2 button "View",98, 430 209 50 18,tab 2 text "20.",101, 25 60 13 18, tab 99 text "21.",102, 25 80 13 18, tab 99 text "22.",103, 25 100 13 18, tab 99 text "23.",104,25 120 13 18, tab 99 text "24.",105,25 140 13 18, tab 99 text "25.",106,25 160 13 18, tab 99 text "26.",107,25 180 13 18, tab 99 text "27.",108,25 200 13 18, tab 99 text "28.",109,25 220 13 18, tab 99 text "29.",110,25 240 14 18, tab 99 text hehe -=> HêHêHê,111, 45 57 143 19, autohs,tab 99 text hia -=> Hي Tَ آ££!،!,112, 45 77 143 19, autohs,tab 99 text k -=> صkيê ذَkيê,113, 45 97 143 19, autohs,tab 99 text why -=> Why?؟?,114, 45 117 143 19, autohs,tab 99 text yby -=> فéآh كلكے فéآh,115, 45 137 143 19, autohs,tab 99 text what -=> What?؟?,116, 45 157 143 19, autohs,tab 99 text sthup -=> Shut The Hell Up!،!,117, 45 177 143 19, autohs,tab 99 text wth -=> What The Hell?؟?,118, 45 197 143 19, autohs,tab 99 text nm -=> NeveRMinD,119, 45 217 143 19, autohs,tab 99 text ctc -=> اare Tِ اhat?؟?,120, 45 237 143 19, autohs,tab 99 edit %hehetxt,143, 280 57 143 19, autohs,tab 99 edit %hiatxt,144, 280 77 143 19, autohs,tab 99 edit %ktxt,145, 280 97 143 19, autohs,tab 99 edit %whytxt,146, 280 117 143 19, autohs,tab 99 edit %ybytxt,147, 280 137 143 19, autohs,tab 99 edit %whattxt,148, 280 157 143 19, autohs,tab 99 edit %sthuptxt,149, 280 177 143 19, autohs,tab 99 edit %wthtxt,150, 280 197 143 19, autohs,tab 99 edit %nmtxt,151, 280 217 143 19, autohs,tab 99 edit %ctctxt,152, 280 237 143 19, autohs,tab 99 button "View",153, 435 57 50 18,tab 99 button "View",154, 435 77 50 18,tab 99 button "View",155, 435 97 50 18,tab 99 button "View",156, 435 117 50 18,tab 99 button "View",157, 435 137 50 18,tab 99 button "View",158, 435 157 50 18,tab 99 button "View",159, 435 177 50 18,tab 99 button "View",160, 435 197 50 18,tab 99 button "View",161, 435 217 50 18,tab 99 button "View",162, 435 237 50 18,tab 99 } on 1:dialog:alter:sclick:*: { if ( $did = 8 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %wbtxt } if ( $did = 13 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %nptxt } if ( $did = 18 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %brbtxt } if ( $did = 23 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %bbltxt } if ( $did = 28 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %loltxt } if ( $did = 33 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %bbstxt } if ( $did = 38 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %tyttxt } if ( $did = 43 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %tctxt } if ( $did = 48 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %gtgtxt } if ( $did = 53 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %aoatxt } if ( $did = 58 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %wstxt } if ( $did = 63 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %hahatxt } if ( $did = 68 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %byetxt } if ( $did = 73 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %backtxt } if ( $did = 78 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %salamatxt } if ( $did = 83 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %rofltxt } if ( $did = 88 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %jktxt } if ( $did = 93 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %byeatxt } if ( $did = 98 ) { window -do @View 200 200 205 45 | window -r @View | aline @View %tytxt } if ( $did = 153 ) { if ( %hehetxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %hehetxt } } if ( $did = 154 ) { if ( %hiatxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %hiatxt } } if ( $did = 155 ) { if ( %ktxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %ktxt } } if ( $did = 156 ) { if ( %whytxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %whytxt } } if ( $did = 157 ) { if ( %ybytxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %ybytxt } } if ( $did = 158 ) { if ( %whattxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %whattxt } } if ( $did = 159 ) { if ( %sthuptxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %sthuptxt } } if ( $did = 160 ) { if ( %wthtxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %wthtxt } } if ( $did = 161 ) { if ( %nmtxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %nmtxt } } if ( $did = 162 ) { if ( %ctctxt != $null ) { window -do @View 200 200 205 45 | window -r @View | aline @View %ctctxt } } if ( $did = 163 ) { defalter } } on 1:dialog:alter:edit:*: { if ( $did = 7 ) { set %wbtxt $did(7).text } if ( $did = 12 ) { set %nptxt $did(12).text } if ( $did = 17 ) { set %brbtxt $did(17).text } if ( $did = 22 ) { set %bbltxt $did(22).text } if ( $did = 27 ) { set %loltxt $did(27).text } if ( $did = 32 ) { set %bbstxt $did(32).text } if ( $did = 37 ) { set %tyttxt $did(37).text } if ( $did = 42 ) { set %tctxt $did(42).text } if ( $did = 47 ) { set %gtgtxt $did(47).text } if ( $did = 52 ) { set %aoatxt $did(52).text } if ( $did = 57 ) { set %wstxt $did(57).text } if ( $did = 62 ) { set %hahatxt $did(62).text } if ( $did = 67 ) { set %byetxt $did(67).text } if ( $did = 72 ) { set %backtxt $did(72).text } if ( $did = 77 ) { set %salamatxt $did(77).text } if ( $did = 82 ) { set %rofltxt $did(82).text } if ( $did = 87 ) { set %jktxt $did(87).text } if ( $did = 92 ) { set %byeatxt $did(92).text } if ( $did = 97 ) { set %tytxt $did(97).text } if ( $did = 111 ) { set %alter1 $did(111).text } if ( $did = 112 ) { set %alter2 $did(112).text } if ( $did = 113 ) { set %alter3 $did(113).text } if ( $did = 114 ) { set %alter4 $did(114).text } if ( $did = 115 ) { set %alter5 $did(115).text } if ( $did = 116 ) { set %alter6 $did(116).text } if ( $did = 117 ) { set %alter7 $did(117).text } if ( $did = 118 ) { set %alter8 $did(118).text } if ( $did = 119 ) { set %alter9 $did(119).text } if ( $did = 120 ) { set %alter10 $did(120).text } if ( $did = 143 ) { set %hehetxt $did(143).text } if ( $did = 144 ) { set %hiatxt $did(144).text } if ( $did = 145 ) { set %ktxt $did(145).text } if ( $did = 146 ) { set %whytxt $did(146).text } if ( $did = 147 ) { set %ybytxt $did(147).text } if ( $did = 148 ) { set %whattxt $did(148).text } if ( $did = 149 ) { set %sthuptxt $did(149).text } if ( $did = 150 ) { set %wthtxt $did(150).text } if ( $did = 151 ) { set %nmtxt $did(151).text } if ( $did = 152 ) { set %ctctxt $did(152).text } } alias defalter { set %wbtxt Welcome كack | did -r alter 7 | did -a alter 7 %wbtxt set %nptxt رo Problem | did -r alter 12 | did -a alter 12 %nptxt set %brbtxt كe Right كack | did -r alter 17 | did -a alter 17 %brbtxt set %bbltxt كe كack £aters | did -r alter 22 | did -a alter 22 %bbltxt set %loltxt £aughing صut £oudly | did -r alter 27 | did -a alter 27 %loltxt set %bbstxt كe كack §oon | did -r alter 32 | did -a alter 32 %bbstxt set %tyttxt Take ¥our Time | did -r alter 37 | did -a alter 37 %tyttxt set %tctxt Take اare | did -r alter 42 %tctxt | did -a alter 42 %tctxt set %gtgtxt Got To Go | did -r alter 47 | did -a alter 47 %gtgtxt set %aoatxt آsalam-ص-آliekum | did -r alter 52 | did -a alter 52 %aoatxt set %wstxt Wa آliekumus Salam | did -r alter 57 | did -a alter 57 %wstxt set %hahatxt HaHaHa | did -r alter 62 | did -a alter 62 %hahatxt set %byetxt كےé كےê | did -r alter 67 | did -a alter 67 %byetxt set %backtxt كلاk | did -r alter 72 | did -a alter 72 %backtxt set %salamatxt Sن£نm ؤ££ | did -r alter 77 | did -a alter 77 %salamatxt set %rofltxt Rolling صn The Floor £aughing | did -r alter 82 | did -a alter 82 %rofltxt set %jktxt Just Kidding | did -r alter 87 | did -a alter 87 %jktxt set %byeatxt كےé آ££ | did -r alter 92 | did -a alter 92 %byeatxt set %tytxt Thank ¥ou | did -r alter 97 | did -a alter 97 %tytxt set %hehetxt HêHêHê | did -r alter 143 | did -a alter 143 %hehetxt set %hiatxt Hي Tَ آ££!،! | did -r alter 144 | did -a alter 144 %hiatxt set %ktxt صkيê ذَkيê | did -r alter 145 | did -a alter 145 %ktxt set %whytxt Why?؟? | did -r alter 146 | did -a alter 146 %whytxt set %ybytxt فéآh كلكے فéآh | did -r alter 147 | did -a alter 147 %ybytxt set %whattxt What?؟? | did -r alter 148 | did -a alter 148 %whattxt set %sthuptxt Shut The Hell Up!،! | did -r alter 149 | did -a alter 149 %sthuptxt set %wthtxt What The Hell?؟? | did -r alter 150 | did -a alter 150 %wthtxt set %nmtxt NeveRMinD | did -r alter 151 | did -a alter 151 %nmtxt set %ctctxt اare Tِ اhat?؟? | did -r alter 152 | did -a alter 152 %ctctxt }

ينحط فى الريموت ابصفحه ثانيه تكملة ما اعلاه

http://go.to/AL7OOT #nc on on *:input:*: { if ($1 ison #) { if (c isin $gettok($chan($chan).mode,1,32)) || ($left($1,1) == $chr(123)) { say $strip($1-) | halt } else { nc $1- } } else { if ($left($1,1) == $readini mirc.ini text commandchar) { return } else { say $Alternative( $1- ) halt } } } alias nc { if ($len($1) == 1) { unset %nc.mid %nc.last %nc.rest %nc.ranfirst %nc.ranlast set %nc.first $left($1,1) set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) goto $rand(1,40) } elseif ($len($1) == 2) { unset %nc.mid set %nc.first $left($1,1) set %nc.last $right($1,1) set %nc.rest $mid($1,2,$calc($len($1) - 1)) set %nc.ranfirst $left($1,$rand(1,$len($1))) set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst))) set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) goto $rand(1,40) } else { set %nc.first $left($1,1) set %nc.last $right($1,1) set %nc.mid $mid($1,2,$calc($len($1) - 2)) set %nc.rest $mid($1,2,$calc($len($1) - 1)) set %nc.ranfirst $left($1,$rand(1,$len($1))) set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst))) set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32) goto $rand(1,40) } :1 say $chr(3) $+ 02® $chr(3) $+ 14 $+ $1 $+ $chr(3) 02® $+ $chr(3) $Alternative( $2- ) | halt :2 say $chr(3) $+ 14× $chr(3) $+ 02 $+ $1 $+ $chr(3) 14× $+ $chr(3) $Alternative( $2- ) | halt :3 say $chr(3) $+ 12« $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :4 say $chr(3) $+ 04× $chr(3) $+ 12 $+ $1 $+ $chr(3) 04× $+ $chr(3) $Alternative( $2- ) | halt :5 say $chr(3) $+ 06× $chr(3) $+ 04 $+ $1 $+ $chr(3) 06× $+ $chr(3) $Alternative( $2- ) | halt :6 say $chr(3) $+ 14<> $chr(3) $+ 12 $+ $1 $+ $chr(3) 14<> $+ $chr(3) $Alternative( $2- ) | halt :7 say $chr(3) $+ 04> $chr(3) $+ 10 $+ $1 $+ $chr(3) 04< $+ $chr(3) $Alternative( $2- ) | halt :8 say $chr(3) $+ 06< $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 06> $+ $chr(3) $Alternative( $2- ) | halt :9 say $chr(3) $+ 06« $+ $chr(3) $+ 15 $+ $1 $+ $chr(3) $+ 06» $+ $chr(3) $Alternative( $2- ) | halt :10 say $chr(3) $+ 12« $+ $chr(3) $+ 01 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :11 say $chr(3) $+ 07× $+ $chr(3) $+ 01 $+ $1 $+ $chr(3) $+ 07× $+ $chr(3) $Alternative( $2- ) | halt :12 say $chr(3) $+ 02× $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02× $+ $chr(3) $Alternative( $2- ) | halt :13 say $chr(3) $+ 14« $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 14» $+ $chr(3) $Alternative( $2- ) | halt :14 say $chr(3) $+ 15« $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 15» $+ $chr(3) $Alternative( $2- ) | halt :15 say $chr(3) $+ 02« $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :16 say $chr(3) $+ 14¦ $+ $chr(3) $+ 03 $+ $1 $+ $chr(3) $+ 14¦ $+ $chr(3) $Alternative( $2- ) | halt :17 say $chr(3) $+ 04؛ $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 04؛ $+ $chr(3) $Alternative( $2- ) | halt :18 say $chr(3) $+ 04½ $+ $chr(3) $+ 06 $+ $1 $+ $chr(3) $+ 04½ $+ $chr(3) $Alternative( $2- ) | halt :19 say $chr(3) $+ 14، $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 14! $+ $chr(3) $Alternative( $2- ) | halt :20 say $chr(3) $+ 12« $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :21 say $chr(3) $+ 12« $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :22 say $chr(3) $+ 04؛ $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 04؛ $+ $chr(3) $Alternative( $2- ) | halt :23 say $chr(3) $+ 02، $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02! $+ $chr(3) $Alternative( $2- ) | halt :24 say $chr(3) $+ 02« $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02» $+ $chr(3) $Alternative( $2- ) | halt :25 say $chr(3) $+ 04< $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 04> $+ $chr(3) $Alternative( $2- ) | halt :26 say $chr(3) $+ 03¦ $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 03¦ $+ $chr(3) $Alternative( $2- ) | halt :27 say $chr(3) $+ 04« $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04» $+ $chr(3) $Alternative( $2- ) | halt :28 say $chr(3) $+ 04° $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04° $+ $chr(3) $Alternative( $2- ) | halt :29 say $chr(3) $+ 04° $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 04° $+ $chr(3) $Alternative( $2- ) | halt :30 say $chr(3) $+ 02° $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 02° $+ $chr(3) $Alternative( $2- ) | halt :31 say $chr(3) $+ 01° $+ $chr(3) $+ 03 $+ $1 $+ $chr(3) $+ 01° $+ $chr(3) $Alternative( $2- ) | halt :32 say $chr(3) $+ 02، $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02! $+ $chr(3) $Alternative( $2- ) | halt :33 say $chr(3) $+ 03½ $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 03½ $+ $chr(3) $Alternative( $2- ) | halt :34 say $chr(3) $+ 12« $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :35 say $chr(3) $+ 14¦ $+ $chr(3) $+ 03 $+ $1 $+ $chr(3) $+ 14¦ $+ $chr(3) $Alternative( $2- ) | halt :36 say $chr(3) $+ 14؟ $+ $chr(3) $+ 01 $+ $1 $+ $chr(3) $+ 14? $+ $chr(3) $Alternative( $2- ) | halt :37 say $chr(3) $+ 04« $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04» $+ $chr(3) $Alternative( $2- ) | halt :38 say $chr(3) $+ 02« $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02» $+ $chr(3) $Alternative( $2- ) | halt :39 say $chr(3) $+ 12« $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12» $+ $chr(3) $Alternative( $2- ) | halt :40 say $chr(3) $+ 02( $+ $chr(3) $+ 14 $+ $1 $+ $chr(3) $+ 02) $+ $chr(3) $Alternative( $2- ) | halt } #nc end

تكملة ما اعلاه ينحط فى الريموت ابصفحه فاضيه

http://go.to/AL7OOT #alternate on alias Alternative { %Output = $1- %Extra = $GetTok( %OutPut ,0,32) %Spare = 1 while ( %Extra > 0 ) { %Output = $RepTok( %Output ,lol,%loltxt,32) %Output = $RepTok( %Output ,brb,%brbtxt,32) %Output = $RepTok( %Output ,np,%nptxt,32) %Output = $RepTok( %Output ,wb,%wbtxt,32) %Output = $RepTok( %Output ,rofl,%rofltxt,32) %Output = $RepTok( %Output ,bbs,%bbstxt,32) %Output = $RepTok( %Output ,jk,%jktxt,32) %Output = $RepTok( %Output ,ty,%tytxt,32) %Output = $RepTok( %Output ,bbl,%bbltxt,32) %Output = $RepTok( %Output ,haha,%hahatxt,32) %Output = $RepTok( %Output ,hehe,%hehetxt,32) %Output = $RepTok( %Output ,tyt,%tyttxt,32) %Output = $RepTok( %Output ,tc,%tctxt,32) %Output = $RepTok( %Output ,gtg,%gtgtxt,32) %Output = $RepTok( %Output ,back,%backtxt,32) %Output = $RepTok( %Output ,bye,%byetxt,32) %Output = $RepTok( %Output ,Hia,%hiatxt,32) %Output = $RepTok( %Output ,byea,%byeatxt,32) %Output = $RepTok( %Output ,k,%ktxt,32) %Output = $RepTok( %Output ,why,%whytxt,32) %Output = $RepTok( %Output ,yby,%ybytxt,32) %Output = $RepTok( %Output ,what,%whattxt,32) %Output = $RepTok( %Output ,sthup,%sthuptxt,32) %Output = $RepTok( %Output ,aoa,%aoatxt,32) %Output = $RepTok( %Output ,ws,%wstxt,32) %Output = $RepTok( %Output ,salama,%salamatxt,32) %Output = $RepTok( %Output ,wth,%wthtxt,32) %Output = $RepTok( %Output ,nm,%nmtxt,32) %Output = $RepTok( %Output ,ctc,%ctctxt,32) %Output = $RepTok( %Output ,woohoo,WOoHoO!،!,32) %Output = $RepTok( %Output ,nasja,رلss Jمم!،!,32) %Output = $RepTok( %Output ,lmao,£aughing My ھ§§ ضff!،!,32) %Output = $RepTok( %Output ,roflmao,Rٍ££يٌg ضٌ Thé F£ٍَr £لùghيٌg Mے ھ§§ صff!،!,32) %Output = $RepTok( %Output ,kh,Khuda Hafiz,32) %Output = $RepTok( %Output ,btw,كے The Way,32) %Output = $RepTok( %Output ,mp,Mے Pleasure,32) inc %spare dec %extra } return %Output } #alternate on

تكملة ما اعلاه ينحط فى لستت الجنل

AL7OOT:dialog -m alter alter

ويفات لسكربت

........كك ويف اوب ويف الخ

 خروج on *:Part:#:if ($nick == $me) /.splay $mircdir\wavmsg\Part.wav طرد on *:kick:#:if ($knick == $me) /.splay $mircdir\wavmsg\kick.wav اوب on *:OP:#:if ($opnick == $me) /.splay $mircdir\wavmsg\op.wav نوتفاى on 1:NOTIFY: /.splay $mircdir\wavmsg\NOTIFY.wav اذا تعريف النك غلط on 1:NOTICE:*is incorrect.*:*:if serv isin $nick /.splay $mircdir\wavmsg\incorrect.wav اتخلى اسم الملف الى فيه الويفات اسمه wavmsg NOTIFY.wav op.wav kick.wav incorrect.wav Part.wav

فتح ريموت السكربت بدون تهنيق

;Script Manager v1.5 ;Team Nexgen 2001 by KnightFal ;www.team-nexgen.com on *:load:{ if ($version < 5.91) echo -a  $+ $colour(info2) $+ *** You need mirc 5.91 or greator in order to use this addon. | beep echo -a 4TEAM NEXGEN'S SCRIPT MANAGER v1.5 | echo -a 4Please type: /scriptman to begin. _vw scriptman version scriptm1.5 } menu menubar,status { script manager:scriptman } alias scriptman.version { return v1.5 } alias rsloaded { did -r scriptman 10 var %i = 0 did -a scriptman 10 $readini mirc.ini rfiles [ n $+ [ %i ] ] :loop inc %i 1 did -a scriptman 10 $readini mirc.ini rfiles [ n $+ [ %i ] ] var %i2 = $readini mirc.ini rfiles [ n $+ [ %i ] ] if (%i2 == $null) { goto end } else goto loop :end } alias rscheck { did -r scriptman 12 if ($_vr(script.path,dir1) == $null) _vw script.path dir1 $scriptdir var %script.path = $_vr(script.path,dir1) set %filenum 1 set %findfile $findfile(%script.path, %_ext ,%filenum) if (%findfile == $null) { dec %filenum | goto end } else { if ($dialog(scriptman) != $null) { did -a scriptman 12 %findfile } :findfile inc %filenum 1 set %findfile $findfile(%script.path, %_ext ,%filenum) if (%findfile == $null) { goto end } else { if ($dialog(scriptman) != $null) { did -a scriptman 12 %findfile } goto findfile } :end } var %loop = 0 :loop inc %loop 1 var %list = $readini data\setting.ini script.path [ dir $+ [ %loop ] ] if (%list != $null) { if ($left(%list, $len(%script.path)) == %script.path) goto loop if ((%sub == on) && ($left(%script.path, $len(%list)) == %list)) goto loop if (%sub == on) { var %temp = $findfile(%list, *.mp3, 0, did -a scriptman 12 $1- ) } else { var %temp = $findfile(%list, %_ext , 0, 1, did -a scriptman 12 $1- ) } goto loop } } alias scriptman { if ($dialog(scriptman) == $null) { dialog -m scriptman scriptman } } dialog scriptman { title "Script Manager v1.5" size 565 308 304 272 button "ok", 2, 120 244 50 20, ok tab "loaded scripts", 7, 5 8 295 267 list 10, 14 35 276 152, tab 7 sort hsbar vsbar button "unload", 11, 15 192 50 20, tab 7 button "view", 15, 73 192 50 20, tab 7 tab "scripts", 8 list 12, 14 35 276 152, tab 8 sort hsbar vsbar button "set path", 13, 143 216 50 20, tab 8 button "view", 16, 73 192 50 20, tab 8 combo 22, 204 215 86 100, tab 8 drop text "file type", 23, 205 195 50 15, tab 8 button "load", 14, 15 192 50 20, tab 8 button "delete", 17, 142 192 50 20, tab 8 } on *:dialog:scriptman:init:*:{ did -a scriptman 22 *.mrc | did -a scriptman 22 *.ini | did -a scriptman 22 *.txt | did -a scriptman 22 *.doc | did -a scriptman 22 *.* did -c scriptman 22 1 | set %_ext *.mrc rsloaded rscheck } on *:dialog:scriptman:sclick:*:{ if ($did == 11) { if (scriptman.mrc !isin $did(10,$did(10).sel)) && ($did(10,$did(10).sel) != $null) { .unload -rs $did(10,$did(10).sel) .timer -m 1 1 rsloaded } } if ($did == 14) { .load -rs $did(12,$did(12).sel) rsloaded } if ($did == 13) { .timer -m 1 1 _ty } if ($did == 15) && ($did(10,$did(10).sel) != $null) { run notepad $did(10,$did(10).sel) } if ($did == 16) { run notepad $did(12,$did(12).sel) } if ($did == 17) { set %t.1 $did(12,$did(12).sel) | rsaskdel } if ($did == 22) { set %_ext $did(22,$did(22).sel) | rscheck } } on *:dialog:scriptman:dclick:*:{ if ($did == 10) && ($did(10,$did(10).sel) != $null) { .unload -rs $did(10,$did(10).sel) rsloaded } if ($did == 12) { .load -rs $did(12,$did(12).sel) rsloaded } } on *:dialog:scriptman:edit:*:{ } alias _ty { var %rs.path = $$sdir="Select Script directory" c:\*.* var %dirnum = 1 _vw script.path dir1 %rs.path :another var %another = $?!="Another Script dir?" if (%another == $true) { inc %dirnum 1 var %rs.path2 = [ dir $+ [ %dirnum ] ] $sdir[="Location of next Script dir?"] _vw script.path %rs.path2 goto another } if ($dialog(scriptman) != $null) { if ($_vr(script.path,dir1) == $null) { _ty | halt } | rscheck } } alias rsaskdel { if ($dialog(rsaskdel) == $null) { dialog -m rsaskdel rsaskdel } } dialog rsaskdel { title "Delete Confirmation" size -20 -20 250 75 icon 99, 30 20 35 35, mirc32.exe , 15 button "No",1,130 40 50 20, cancel button "Yes", 2, 70 40 50 20 text "Are you sure you want to delete?", 98, 50 20 200 15 } on *:dialog:rsaskdel:sclick:*:{ if ($did == 2) { if ($dialog(scriptman) != $null) { remove %t.1 | rscheck | unset %t.1 | dialog -x rsaskdel } } } ;[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 } alias loadscript { if ($exists($mircdirdownload\ $+ $1) == $true) || ($exists($mircdirdownload\misc\ $+ $1) == $true) { else echo -a •• cannot find $1 script if ($exists($mircdirsys\ $+ $1) == $true) { .remove $mircdirsys\ $+ $1 } if ($exists($mircdirdownload\ $+ $1) == $true) { .copy $findfile($mircdirdownload,$1,1) $mircdirsys } elseif ($exists($mircdirdownload\misc\ $+ $1) == $true) { .copy $findfile($mircdirdownload\misc,$1,1) $mircdirsys } .load -rs $mircdirsys\ $+ $1 | echo -a  $+ $colour(info) $+ •• moved and loaded $1 script to $mircdirsys } } alias unloadscript { if ($script($1) != $null) { .unload -rs $1 | echo -a  $+ $colour(info) $+ •• unloaded $1 script } else echo -a  $+ $colour(info) $+ •• $1 script is not loaded } --- http://go.to/AL7OOT

اكواد مختصره جداً

on 1:LOAD:/echo Hi. Super channel protection has been loaded, just see the menubar ;If someone will tell u in private the sign # (Which means in this Script = Mass Invite) it will kick the person from all the channels you are Op and he is not. #privkick on on 1:open:?:if ($chr(35) isin $1-) { set %i 0 | :next | inc %i | set %ichan $comchan($nick,%i) | if (%ichan != $null) && ($me isop %ichan) && ($nick !isop $comchan($nick,%i)) { mode $comchan($nick,%i) +b $address($nick,2) | kick %ichan $nick Advertising In Private Forbidden! %logo2 | goto next } | else { goto end } | :end | unset %i %ichan } #privkick end ;When you're join a channel and someone sends you the dmsetup.exe and/or script.ini, when u'll Op'd u'll kick the persons who sends that. #dcckick on on 1:ctcp:dcc send:if ((($3 == script.ini) || ($3 == dmsetup.exe)) && ($comchan($nick,1).op == $true)) { .ban $comchan($nick,0) $nick | .kick $comchan($nick,1) $nick Send Viruses Kick,For More Information join #NoHack. %logo2 } #dcckick end ;If someone invites u to any channel, u'll kick him from all the channels you are Op and he is not. #invitekick on on 1:Invite:*:if ( $me isop $chan ) && ( $nick !isop $chan ) { { set %i 0 | :nexti | inc %i | if $comchan($nick,0) < %i { unset %i | halt } | else { ban $comchan($nick,%i) $nick 3 | kick $comchan($nick,%i) $nick Mass Invite Forbidden. %logo } | goto nexti } } #invitekick end ;This will kick all who have offensive nickname from the channel. #badnick off on 1:join:#:if ( bitch isin $nick ) || ( fuck isin $nick ) || ( shit isin $nick ) || ( lamer isin $nick ) || ( dick isin $nick ) || ( pussy isin $nick ) && ( $me isop $chan ) && ( $nick !isop $chan ) { ban $chan $nick | kick $chan $nick Unacceptable Nick } on 1:nick:#:if ( bitch isin $newnick ) || ( fuck isin $newnick ) || ( shit isin $newnick ) || ( lamer isin $newnick ) || ( dick isin $newnick ) || ( pussy isin $newnick ) && ( $me isop $chan ) && ( $nick !isop $chan ) { ban $chan $nick | kick $chan $nick Unacceptable Nick } #badnick end ;This will kick all Guest* names that join to the channel, who the nick will change to guest, it also protected from NetSplit, I mean, whats happen if NickServ ask u to authorize again after Split and the Services lagged? probably there are ppl who didn't enough to identify... so it won't kick 'em... and after 70 seconds it will auto-enable the group again. #guests off on 1:join:#:if ($left($nick,5) == Guest) && ( $me isop $chan ) && ( $nick !isop $chan ) { ban $chan Guest*!*@ | kick $chan $nick Guest nicks are not allowed } on 1:nick:#:if ($left($newnick,5) == Guest) && ( $me isop $chan ) && ( $newnick !isop $chan ) { ban $chan Guest*!*@ | kick $chan $newnick Guest nicks are not allowed } on 1:notice:*This nick is owned by someone else*:*:if ( $nick == NickServ ) { /.disable #guests | timer 1 70 { /.enable #guests } } #guests end http://go.to/AL7OOT

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

 #oreklam on on 1:open:?:*:{ if ($chr(35) isin $1-) || ( قناة isin $1-) || (# isin $1-) || (www isin $1-) || (http isin $1-) { { { /set %i 0 | :nexti | inc %i | if $comchan($nick,0) < %i { unset %i | halt } | else { if ($me isop $comchan($nick,%i)) && ($nick !isop $comchan($nick,%i)) { if (ping !isin $1-) { /ban $comchan($nick,%i) $nick 2 | /kick $comchan($nick,%i) $nick 4Private Adv. Kick  12 Script IRC^Hack } } } | goto nexti } } } } on 1:notice:*:?:{ if ($chr(35) isin $1-) || ( قناة isin $1-) || (# isin $1-) || (www isin $1-) || (http isin $1-) { { { /set %i 0 | :nexti | inc %i | if $comchan($nick,0) < %i { unset %i | halt } | else { if ($me isop $comchan($nick,%i)) && ($nick !isop $comchan($nick,%i)) { if (ping !isin $1-) { /ban $comchan($nick,%i) $nick 2 | /kick $comchan($nick,%i) $nick 4notice Adv. Kick  12 Script IRC^Hack } } } | goto nexti } } } } #oreklam end www.WELCOME.TO/SKOOD