Me BloÄŸu
Sunucu adı açıklmasınının yapılacagı kısımdır. numeric önemlidir özelliklikle 2 unreli bir birine baglarkan bu degerlin farklı olmasına dikkat etmeyiniz.
me {
name <sunucu-ismi>;
info <sunucu-için-açıklama>;
numeric <sunucu-numerik-deÄŸeri>;
};
numeric = 1 ile 254 arası deger alır.
Örnek:
me { (daha fazla...)
Unreal3.2 sistemimizde sorunsuz çalıştıgını var sayarak işlemlerimi anlatacagım.
Putty.exe ve Explorer yada Cuteftp yardımı ile ftp’ye giriÅŸ yapıyoruz.
Anlatımımda ben Putty.exe ve Explorer kullanacagım.
Lütfen sırayı takip ediniz.
FTP Kullanarak Modul yükleme
Kuracagım modul adı : shelltc.c olsun.
Ftpye giriş yapıyoruz.
Sırası ile Unreal3.2/src/modules/ klasörlerine açıyoruz,
| Â |
|
on 1:LOAD:/setup | /playlist
Alias setup {
set %mp3.dir $sdir="Locate you mp3 files" | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir
set %mp3.player $findfile(c:\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player
}
Alias Mp3play {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" winamp.exe }
%mp3.dir1 = %mp3.dir $+ \ $+ *.mp?
set %mp3 $dir="Which mp3 do you want to play?" %mp3.dir1
if (%mp3 == $null) { goto end }
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
Alias sF3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
alias playlist {
set %mp3.list.starttime $ctime
set %mp3.list.nick $me
set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt
window -dhnal @list
$findfile(%mp3.dir,*.mp3,@list)
set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)
write %mp3.list.textfile $cr
write -c %mp3.list.textfile $me $+ 's Mp3 List by: æAcidMp3æ Created by Juston
write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file.
write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files
set %mp3.list.count 1
set %mp3.list.filesize.total 0
set %mp3.list.file.lastdir ""
:next
set %mp3.list.file $line(@list,%mp3.list.count)
set %mp3.list.file.dir $nofile(%mp3.list.file)
set %mp3.list.file.name $nopath(%mp3.list.file)
set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)
set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count))
if (%mp3.list.file.dir != %mp3.list.file.lastdir) {
write %mp3.list.textfile $cr
write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]
write %mp3.list.textfile $cr
}
else { }
set %mp3.list.file.lastdir %mp3.list.file.dir
if %mp3.list.count > 1 {
if %mp3.list.filesize > %mp3.list.filesize.high {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filename.high %mp3.list.file.name }
elseif %mp3.list.filesize < %mp3.list.filesize.low {
set %mp3.list.filesize.low %mp3.list.filesize
set %mp3.list.filename.low %mp3.list.file.name
}
}
else {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filesize.low %mp3.list.filesize
}
write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB
inc %mp3.list.filesize.total %mp3.list.filesize
inc %mp3.list.count 1
if ( %mp3.list.count < %mp3.list.total ) { goto next }
:end
window -c @list
write %mp3.list.textfile
write %mp3.list.textfile $cr
if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB }
else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB }
set %mp3.list.time $calc($ctime - %mp3.list.starttime)
/run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ
}
alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) }
alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }
alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }
alias mp3.bitrate {
if (($1 == $null) || ($exists($1-) == $false)) return 0
set %_bitrate $read -l1 $1-
if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 }
set %_bitrate $asc($mid(%_bitrate,3,1))
.timer 1 1 unset %_bitrate
return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16))))
}
alias mp3.len {
if ($1 == $null) || ($exists($1) == $false) return 0m0s
else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) }
}
Menu status,channel,query {
-
DandikMp3
.Setup:/setup
.Create List:/playlist
.Select Mp³:/mp3play
.Random Mp³:/sF3
}
Alias r3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
/*
======================
Google Logo OluÅŸturucu 0.1
BY SeRDaR406
Http://www.mIRC.ile.biz
İsminizi google logosu tarzında
yazdırabilir,kaydedebilir ve
düzenleyebilirsiniz...
======================
*/
dialog glo {
title "Google Logo OluÅŸturucu"
size -1 -1 160 55
option dbu
box "", 1, 2 -1 156 41
text "Ä°sim yada nick'inizi girin:", 2, 5 5 57 8
edit "", 3, 5 13 150 10, limit 22
button "OluÅŸtur", 4, 41 25 37 12,disable
button "Düzenle", 5, 80 25 37 12,disable
button "Kapat", 6, 119 25 37 12,cancel
edit "Google Logo OluÅŸturucusu v0.1 BY SeRDaR406", 7, 2 43 157 11, read autohs
}
alias goglogo $iif(!$dialog(glo),dialog -m glo glo)
alias -l create->logo {
if ($len($1-) <= 2) return $input(İsim yada nick'in karakter uzunluğu enaz "3" olmalıdır.,ohud,Hata)
else {
if ($window(@goglogo)) window -c @goglogo
if ($window(@sl)) window -c @sl
unset %numtok %fileitem %pw %gln
did -b $dname 5
set %logname $replace($1-,$chr(32),+,ı,i,İ,i,ö,o,ü,u,ğ,g,ç,c,ş,s,Ğ,g,Ö,o,Ü,u,Ş,s)
did -ra $dname 7 Logo oluÅŸturuluyor.Bekleyin...
sockclose glogo
sockopen glogo www.goglogo.com 80
}
}
alias -l remove->logofiles {
unset %logname %gifiles %pw
var %a = 1
var %fi = $+(",$scriptdir,goglogo.txt,")
while (%a <= $lines(%fi)) {
if (_.gif !isin $read(%fi,%a)) .remove $+(",$scriptdir,$read(%fi,%a),")
inc %a
}
.remove $+(",$scriptdir,goglogo.txt,")
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 141) 103 KaYDeT
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 67) 103 KaPaT
}
alias -l load->logo {
unset %size %nl %numtok %fileitem %pw
var %o = 1
var %fi = $+(",$scriptdir,goglogo.txt,")
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) 900 160
drawrect -rf @goglogo $rgb(255,255,255) 1 0 0 900 200
while (%o <= $lines(%fi)) {
set %pw $calc((%pw + $pic($+(",$scriptdir,$read(%fi,%o),")).width) + 2)
if (_.gif isin $read(%fi,%o)) set %pw $calc(%pw + 15)
if ($dialog(glo)) {
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) %pw 160
if (_.gif !isin $read(%fi,%o)) drawpic @goglogo $calc(($window(@goglogo).w - $pic($+(",$scriptdir,$read(%fi,%o),")).width) - 2) 1 $+(",$scriptdir,$read(%fi,%o),")
}
inc %o
}
if ($dialog(glo)) did -ra glo 7 Http://www.mIRC.ile.biz
remove->logofiles
}
on *:dialog:glo:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4)
on *:dialog:glo:sclick:*: {
if ($did == 4) create->logo $did(3)
if ($did == 5) run %gln
}
on *:sockopen:glogo: {
if ($sockerr) echo -a Bağlantı Yok!
else {
var %s = sockwrite -n $sockname
%s GET /s.asp?lo= $+ %logname HTTP/1.1
%s Host: www.goglogo.com
%s $crlf
}
}
on *:sockread:glogo: {
var %u
sockread %u
if (Error-Input isin %u) && ($dialog(glo)) did -ra glo 7 Sadece bu karakterlerden kullanabilirsiniz. - [A-Z][a-z][0-9]
if (?lo= isin %u) { write -c $+(",$scriptdir,goglogo.txt,") | set %gifiles $remove($gettok(%u,3-,32),border=0>,<img,src=,",images,/,<a>) }
if ( isin %u) {
sockclose glogo
var %i = 1
while (%i <= $numtok(%gifiles,32)) {
var %files = $gettok(%gifiles,%i,32)
write $+(",$scriptdir,goglogo.txt,") %files
if (_.gif !isin %files) {
sockclose $+(getlogo*,%files)
sockopen $+(getlogo*,%files) www.goglogo.com 80
sockmark $+(getlogo*,%files) %files
}
inc %i
}
}
}
on *:sockopen:getlogo*: {
inc %numtok
var %t = sockwrite -n $sockname
%t GET $+(/images/,$sock($sockname).mark) HTTP/1.1
%t Host: www.goglogo.com
%t $crlf
}
on *:sockread:getlogo*: {
var %c
sockread %c
if (Length isin %c) set %size $gettok(%c,2,32)
if (* !iswm %c) {
write -c $+(",$scriptdir,$sock($sockname).mark,")
sockclose $+(savelogo*,$sock($sockname).mark)
set %nl $sock($sockname).rcvd
sockrename $sockname $+(savelogo*,$sock($sockname).mark)
}
}
on *:sockread:savelogo*: {
sockread &sl
bwrite $+(",$scriptdir,$remove($sockname,savelogo*),") -1 -1 &sl
var %progrs = $calc(100 * ($sock($sockname).rcvd - %nl) / %size)
if (%progrs == 100) { inc %fileitem | if ($dialog(glo)) did -ra glo 7 Logo OluÅŸturuluyor.Bekleyin... $+(%numtok,/,%fileitem) | sockclose $sockname }
if (%fileitem == %numtok) load->logo
}
alias -l save->logo {
set %gln $+(",$scriptdir,$1,.bmp,")
window -ph +t @sl 0 0 $window(@goglogo).w 134
drawrect -rf @sl $rgb(255,255,255) 1 0 0 $window(@goglogo).w 134
drawcopy @goglogo 0 0 $window(@goglogo).w 134 @sl 0 0
drawsave @sl %gln
window -c @sl
window -c @goglogo
if ($dialog(glo)) did -e glo 5
}
menu @goglogo {
uclick: {
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 150),100,60,20)) {
var %logoname = $input(Logunun adını girin:,e,Logo Kaydet)
if (%logoname) save->logo %logoname
}
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 80),100,60,20)) window -c @goglogo
}
}
menu menubar,status {
Google Logo OluÅŸturucu v0.1
.Aç:goglogo
.-
.Kaldır: .unload -rs $shortfn($script)
}
on *:load: {
if ($version < 6.2) { echo -a Bu addon mIRC v6.2'de çalışmaktadır... | .unload -rs $shortfn($script) }
else { echo -a Google Logo Oluşturucu v0.1 Yüklendi. | echo -a Http://www.mIRC.ile.biz | echo -a Açmak için: /goglogo yazın. }
}
on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q!
inc %q!
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2ÂIRC Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!
on *:join:#:{ if $nick == $me { .timer 0 60 msg # $!read(mesajlar.txt) } | else { !notice $nick Selam $nick $+ ! $chan kanal
 
Son Yorumlar