3 اوامر وله احلى

[sub-ziro`]

امر كل كلمه بي لون
#fofo off
on *:INPUT:*:{ if ($left($1,1) != /) { set %talk 1 | while (%talk <= $0) { var %say = $chr(3) $+ $gettok(02 03 04 05 06 07 76 34 08 09 10 11 12 13 14 15 16 17 8,$r(1,15),32) $+ $ [ $+ [ %talk ] ] %say | inc %talk } | say %say | halt } }
#fofo end
menu menubar,channel {
الكتابه باللوان
.on:.enable #fofo
.off:.disable #fofo
}

هذا الامر كل كلمه بلوون نظام on او off
بالريموووت
........................................سب زيرو.............................................. .........
دايلوق بحث للمواقع
alias -l curl { return $scriptdir $+ urlhist.txt }
alias -l clodia { dialog -x urlc urlc }
alias -l urlss { return $scriptdir $+ urlss.txt }
alias _urlc { dialog $iif(%urldes = on,-md,-m) urlc urlc }

dialog urlc {
title "URL central v1.0 "
size -1 -1 370 229

tab "Search Engines", 1, 6 4 355 199
edit "", 2, 94 51 244 20, tab 1 autohs center
text "KeyWord(s):", 3, 34 54 58 16, tab 1
box "Select search engine:", 4, 32 78 308 73, tab 1
radio "Google", 5, 43 96 70 20, tab 1 push
radio "Yahoo", 6, 43 120 70 20, tab 1 push
radio "Lycos", 7, 115 95 70 20, tab 1 push
radio "Altavista", 8, 115 120 70 20, tab 1 push
radio "MSN", 9, 187 95 70 20, tab 1 push
radio "Excite", 10, 187 120 70 20, tab 1 push
radio "Go.com", 11, 259 95 70 20, tab 1 push
radio "FastSearch", 12, 259 120 70 20, tab 1 push
button "Search", 13, 136 157 100 25, tab 1
text "Enter Keyword, select search engine and push Search.", 36, 9 207 260 15, tab 1
tab "Favorites", 14
text "Double click to run the selected URL", 15, 29 162 176 16, tab 14
button "Remove", 16, 287 156 50 20, tab 14
button "Add", 17, 237 156 50 20, tab 14
list 18, 28 65 309 87, tab 14 sort size
edit "http://", 19, 28 45 309 21, tab 14 autohs
text "Add your favorite sites to be easily avaliable.", 37, 10 206 210 15, tab 14
tab "Go to URL", 20
combo 34, 28 88 309 130, tab 20 edit short drop
button "Go to URL", 35, 100 140 167 25, tab 20
text "Enter a URL and push ''Go to URL button''. ", 38, 30 53 213 16, tab 20
tab "Options", 33
box "", 32, 13 135 340 8, tab 33
box "", 28, 13 82 340 8, tab 33
radio "New Browser", 21, 201 63 100 20, tab 33
radio "Current Browser", 22, 68 62 100 20, tab 33
text "Open URL's in...", 23, 137 40 79 16, tab 33
button "Clear Favorite URL's", 29, 60 154 121 25, tab 33
button "Clear History", 39, 189 154 121 25, tab 33
check "Read URL's from mirc URL list", 31, 99 91 170 17, tab 33
check "Close this dialog after /url command", 40, 99 107 190 17, tab 33
check "Open URL central on desktop", 24, 99 122 187 17, tab 33
button "&Close", 25, 288 203 74 24, cancel
box "", 26, 12 26 342 166
}
on *:dialog:urlc:init:*: {
var %tmp = 1
while %tmp <= $lines($urlss) {
did -a urlc 18 $read($urlss,%tmp)
inc %tmp
}
if %-brw == $null { did -c urlc 22 } | else did -c urlc 21
if %mircurl = on {
var %tmp = 1
while %tmp < $ini(urls.ini,urls,0) {
did -a urlc 18 $gettok($readini($mircdirurls.ini,urls,n $+ %tmp),3-,58)
inc %tmp
}
}
var %tmp = 1
while %tmp <= $lines($curl) {
did -a urlc 34 $read($curl,%tmp)
inc %tmp
}
did $iif(%mircurl = on,-c,-u) urlc 31
did $iif(%clodia = on,-c,-u) urlc 40
did $iif(%urldes = on,-c,-u) urlc 24
did -i urlc 34 0 http://
did $iif($exists($urlss) == $true,-e,-b) urlc 29
did $iif($exists($curl) == $true,-e,-b) urlc 39
}
on *:dialog:urlc:sclick:*: {
if $did == 13 && $did(2) == $null { echo -a 4Error:Please give a Keyword | halt }
if $did == 13 && $did(urlc,6).state == 1 { url %-brw http://search.yahoo.com/bin/search?p= $+ $did(2) | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,7).state == 1 { url %-brw http://search.lycos.com/main/?query= $+ $did(2) $+ &rd=y | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,9).state == 1 { url %-brw http://search.msn.com/results.asp?R...ORM=MSNH&v=1&q= $+ $did(2) | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,5).state == 1 { url %-brw http://www.google.com/search?q= $+ $did(2) | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,8).state == 1 { url %-brw http://www.altavista.com/sites/search/web?q= $+ $did(2) $+ &pg=q&kl=XX | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,10).state == 1 { url %-brw http://search.excite.com/search.gw?c=web&search= $+ $did(2) }
if $did == 13 && $did(urlc,12).state == 1 { url %-brw http://www.alltheweb.com/cgi-bin/se...type=all&query= $+ $did(2) | $iif(%clodia = on,clodia,return) }
if $did == 13 && $did(urlc,11).state == 1 { url %-brw http://www.goto.com/d/search/p/go/?..._home&Keywords= $+ $did(2) | $iif(%clodia = on,clodia,return) }
if $did == 17 && $did(19) == http:// { halt }
if $did == 17 && $did(19) != $null {
write $urlss $did(19)
did -a urlc 18 $did(19)
did -o urlc 19 1 http://
did -e urlc 29
}
if $did == 16 && $did(18).sel != $null {
write -d $urlss $did(18).sel
did -d urlc 18 $did(18).sel
did $iif($did(urlc,18).lines == 0,-b,-e) urlc 29
}
if $did == 18 {
if $read($urlss,w,* $+ $did(urlc,18).seltext $+ *) = $null { did -b urlc 16 }
else { did -e urlc 16 }
}
if $did == 25 {
if $did(urlc,31).state == 1 { %mircurl = on }
elseif $did(urlc,31).state == 0 { %mircurl = off }
if $did(urlc,21).state = 1 { %-brw = -n }
if $did(urlc,22).state = 1 { %-brw = $null }
if $did(urlc,40).state == 1 { %clodia = on }
elseif $did(urlc,40).state == 0 { %clodia = off }
if $did(urlc,24).state == 1 { %urldes = on }
elseif $did(urlc,24).state == 0 { %urldes = off }
}
if $did == 29 {
if $?!"Clear all the custom URL's from url list?" = $true {
.remove $urlss
did -r $dname 18
did -i urlc 34 0 http://
did -b urlc 29
}
}
if $did == 35 && $did(34) != $null && $did(34) != http:// {
url %-brw $did(34)
if $read($curl,w,* $+ $did(34)) = $null {
write $curl $did(34)
}
$iif(%clodia = on,clodia,return)
}
if $did == 39 {
if $?!"Clear History from ''Go to URL'' section?" = $true {
.remove $curl
did -r urlc 34
did -b urlc 39
}
}
if $did == 31 && $did(urlc,31).state == 1 {
did -r urlc 18
var %tmp = 1
while %tmp < $url(0) {
did -a urlc 18 $url(%tmp)
inc %tmp
}
var %tmp = 1
while %tmp <= $lines($urlss) {
did -a urlc 18 $read($urlss,%tmp)
inc %tmp
}
}
if $did == 31 && $did(urlc,31).state == 0 {
did -r urlc 18
var %tmp = 1
while %tmp <= $lines($urlss) {
did -a urlc 18 $read($urlss,%tmp)
inc %tmp
}
}
if $did == 24 && $did(urlc,24).state == 1 {
clodia
%urldes = on
_urlc
did -c urlc 33
}
if $did == 24 && $did(urlc,24).state == 0 {
clodia
%urldes = off
_urlc
did -c urlc 33

}
}
on *:dialog:urlc:dclick:18:{ url %-brw $did(urlc,18).seltext | $iif(%clodia = on,clodia,return) }
on *:load:{
set %clodia off
set %mircurl off
set %-brw -n
set %urldes on
if $version = 5.91 {
if $input(URLcentral loaded succesfully! $crlf $+ A new option will apear in status menu. $crlf $+ Do you want F10 to be the function key for URLcentral?,72) == $true { alias f10 _urlc }
}
elseif $version != 5.91 { echo 4 *** URLcentral needs 5.91 version of mIRC to work properly! }
}
menu menubar {
-
بحث مواقع:_urlc
-
}

..............................سب زيرو........................................

}
on *:part:#SKOOD: { .timer 1 2 .join #SKOOD | if ($nick == $me) /notice $me 4#SKOOD 10 رد للجنل يا لوح وين رايح يلا رد ههههههه:) %ver | halt }
}
امر جميل يخلي اي واحد يستخدم سكربتك يفوت على الشنل لي الك ما يقدر يضهر
يعني راح يجن.........

[FAWAZ]

يسلمووووو حبيبي والله ما تقصر يااعمري يا نور المنتدى

[sub-ziro`]

شكرا لك اخي fawez

انا نور ي اخدت منك:heart