on *:start: { splay sounds/ozlem3.mp3 }
bu yolda muzıgım var ve calısıyor sorunsuz.
Ama ben bunu burda açmak istiyorum.
dialog mmc {
title "Media Player"
size -1 -1 232 137
option dbu
icon $mmcico, 0
button "", 3000, 0 0 0 0, hide ok
box "", 2, 125 0 105 122
text "Liste:", 6, 127 5 89 8
list 7, 127 15 101 92, size
list 8, 127 108 101 11, size
list 9, 2 124 112 12, size
button "Button", 10, 89 24 37 12, hide cancel
text "Media Player |
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.11, 118 127 112 8
}
alias mmc { if (!$dialog(mmc)) dialog -md mmc mmc }
alias mdc dll $shortfn($scriptdirmdc.dll) $1 $2-
alias mdx dll $shortfn($scriptdirmdx.dll) $1 $2-
alias barsmdx return $shortfn($scriptdirbars.mdx)
alias -l ekleico return $shortfn($scriptdirekle.ico)
alias -l silico return $shortfn($scriptdirsil.ico)
alias -l editico return $shortfn($scriptdirdüzelt.ico)
alias -l videoico return $shortfn($scriptdirpath.ico)
alias -l rdlist return $shortfn($scriptdirrdlist.txt)
alias -l urlico return $shortfn($scriptdirurl.ico)
alias -l closeico return $shortfn($scriptdirkapat.ico)
alias -l openmedia mdc WMPCommand Open $1-
alias -l mmcico return $shortfn($scriptdirmmc.ico)
alias -l file.ac {
var %file = $sfile($mircdir,Dosya Seç)
if (%file) openmedia $shortfn(%file)
}
alias -l url.ac {
var %url = $input(Adres:,e)
if (%url) openmedia %url
}
alias -l add.a.radio {
var %rn = $input(Listeye eklemek istediğiniz?: $+ $crlf $+ (Örn: X Radyo+mms://65.55.144.155/rd-x),e)
if (%rn) {
if (+ !isin %rn) return $input(Yanlış bilgi girişi!,ohud,Hata)
else {
tokenize 43 %rn
write $rdlist $1 $+ ¿ $+ $2
did -a mmc 7 $1
}
}
}
alias -l edit.a.radio {
var %rnm = $input(Yeni isim ve kısayol(adres): $+ $crlf $+ (Örn: X Radyo+mms://65.55.144.155/rd-x),e)
if (%rnm) {
if (+ !isin %rnm) return $input(Yanlış bilgi girişi!,ohud,Hata)
else {
tokenize 43 %rnm
write -l $+ $did(mmc,7).sel $rdlist $1 $+ ¿ $+ $2
did -o mmc 7 $did(mmc,7).sel $1
}
}
}
alias -l listede->ara {
if (!$1-) return $input(Eksik bilgi!,ohud,Hata)
else {
var %liste = 1
var %a = $1-
while (%liste <= $lines($rdlist)) {
if (kral isin $read($rdlist)) { did -c $dname 7 %liste | halt }
inc %liste
}
}
}
on *:dialog:mmc:init:*: {
mdc WMPlayer $dialog($dname).hwnd 0 0 400 300
mdx MarkDialog $dname
mdx SetBorderStyle $dname 8,9
mdx SetFont $dname 8 13 700 Tahoma
mdx SetControlMDX $dname 8,9 Toolbar arrow nodivider flat list > $barsmdx
did -i $dname 8,9 1 bmpsize 16 16
did -i $dname 8 1 setimage icon large 0, $+ $ekleico
did -a $dname 8 +W 50 1 Ekle
did -a $dname 8 1 -
did -i $dname 8 1 setimage icon large 0, $+ $silico
did -a $dname 8 +W 50 2 SiL
did -a $dname 8 1 -
did -i $dname 8 1 setimage icon large 0, $+ $editico
did -a $dname 8 3 Düzelt
did -i $dname 9 1 setimage icon large 0, $+ $videoico
did -a $dname 9 1 Dosya Aç
did -a $dname 9 1 -
did -i $dname 9 1 setimage icon large 0, $+ $urlico
did -a $dname 9 +W 62 2 URL Aç
did -a $dname 9 1 -
did -i $dname 9 1 setimage icon large 0, $+ $closeico
did -a $dname 9 +W 60 3 Kapat
var %i = 1
while (%i <= $lines($rdlist)) {
tokenize 191 $read($rdlist,%i)
did -a $dname 7 $1
inc %i
}
}
on *:dialog:mmc:sclick:*: {
if ($did == 9) {
if ($did(9).sel == 6) .timer 1 0 dialog -x mmc
if ($did(9).sel == 2) file.ac
if ($did(9).sel == 4) url.ac
}
if ($did == 8) {
if ($did(8).sel == 6) edit.a.radio
if ($did(8).sel == 2) add.a.radio
if ($did(8).sel == 4) {
if ($did(7).sel == 0) return $input(Listeden bir seçim yapılmadı!,ohud,Hata)
else {
write -dl $+ $did(7).sel $rdlist
did -d $dname 7 $did(7).sel
}
}
}
}
on *:dialog:mmc:dclick:7: openmedia $gettok($read($rdlist,$did(7).sel),2,191)
alias -l ifile return $isfile($1-)
alias -l err { echo -a "4 $+ $1 $+ " isimli dosya bulunamadı.Bu dosyayı 4" $+ $scriptdir $+ " adlı klasöre kopyalayın. | .unload -rs $shortfn($script) }
on *:load: {
if ($ifile($shortfn($scriptdirmdc.dll)) == $false) err mDC.DLL
elseif ($ifile($shortfn($scriptdirmdx.dll)) == $false) err mDX.DLL
elseif ($ifile($barsmdx) == $false) err Bars.mdx
elseif ($ifile($ekleico) == $false) err ekle.ico
elseif ($ifile($silico) == $false) err sil.ico
elseif ($ifile($editico) == $false) err edit.ico
elseif ($ifile($videoico) == $false) err path.ico
elseif ($ifile($rdlist) == $false) err Rdlist.txt
elseif ($ifile($urlico) == $false) err URL.ico
elseif ($ifile($closeico) == $false) err Kapat.ico
elseif ($ifile($mmcico) == $false) err MMC.ico
else {
echo -a 4Media Player Yüklendi.(LoRDGuaRD)
echo -a
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
echo -a Açmak için: /mmc yazın.
}
}
on *:signal:WMPlayer: {
did -h mmc 6,7,8,11
mdx SetDialog mmc coords * * $calc($1 + 226) $calc($2 + 30)
mdx MoveControl mmc 9 * $calc($2 + 5) * *
mdx MoveControl mmc 2 $calc($1 + 10) * * $calc($2 + 5)
mdx MoveControl mmc 6 $calc($1 + 15) *
mdx MoveControl mmc 7 $calc($1 + 15) * * $calc($2 - 55)
mdx MoveControl mmc 8 $calc($1 + 15) $calc($2 - 22)
mdx MoveControl mmc 11 $calc($1 + 2) $calc($2 + 10)
did -v mmc 6,7,8,11
}
menu menubar,status,channel {
MeDia PLaYeR: mmc
}
alias sxq {
var %s = 1
while (%s <= $lines(ss.txt)) {
write sx.txt $replace($read(ss.txt,%s),$chr(44),¿)
inc %s
}
}
yani mırc acıldıgında medıa player devreye gırecek ve benım acılısta calan mp3 u calacak tabı mp3 degılde buna benım hazırladıgım slayt gosterısını ekleyecegım. goruntu olacak yani teşekkürler.