mIRC Scripting

K
⚪ Konu sahibi son olarak 248 gün önce görüldü
Oldukça geniş konsepte ve betiğe sahip dil. mIRC tabanlı olsa da, diğer dillerle etkileşimi şaşırılacak düzeydedir. Öğrenmesi kolaydır.

Not: yatırım tavsiyesi değildir.
 
dialog mp3 {
title "Mp3 Player by Kartalizm"
size -1 -1 140 164
option dbu
list 1, 6 15 74 121, size
button "Ekle", 2, 6 140 34 18
button "Sil", 3, 48 140 33 18
button "Gönder", 4, 88 15 42 20
button "Sıradaki", 5, 88 40 42 20
button "Çal", 6, 88 66 42 20
button "Durdur", 7, 88 91 42 20
text "Şarkı Listesi", 8, 24 6 39 8, center
button "Kapat", 9, 88 114 42 20,ok
}
alias mp3 { dialog -m mp3 mp3 }
on *:dialog:mp3:init:*: {
var %i 1
while (%i <= $lines(mp3.txt)) {
did -a mp3 1 $read(mp3.txt,%i)
inc %i
}
}
on *:dialog:mp3:sclick:*: {
if ($did == 2) {
var %:s $sfile($mircdir)
if $chr(32) isin %:s {
echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor.
var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ )
echo -a zsdfs: %:new
rename $shortfn(%:s) %:new
echo -a Parçanın yeni ismi %:new
write mp3.txt %:new
echo -a %:new Şarkısı anadizine kopyalanıyor
did -a mp3 1 %:new
copy -a %:s $mircdirmp3
return
}
var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ )
if %:s == $null { return }
echo -a %:b Şarkısı anadizine kopyalanıyor.
write mp3.txt %:b
did -a mp3 1 %:b
copy -a %:s $mircdirmp3
}
if ($did == 3) {
var %:hm $did(1).seltext
did -d mp3 1 $did(1).sel
echo -a 7,1 %:hm parçası silindi.
write -dl $+ %:hm mp3.txt
remove %:hm
}
if ($did = 6) {
splay $mircdir $+ $did(1).seltext
echo -a 7,1 $did(1).seltext parçası çalıyor..
}
if ($did == 7) {
splay stop
echo -a 7,1 Mp3 player durduruldu.
}
if ($did == 4) {
$amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..)
}
if ($did == 5) {
var %:siradaki $did(1).seltext
if $read(mp3.txt,w, $+ %:siradaki $+ ) {
var %:c $calc($readn + 1)
if %:c > $lines(mp3.txt) {
var %:c 1
}
splay $+($mircdir,$read(mp3.txt,%:c))
return
}
if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 }
splay $+($mircdir,$read(mp3.txt,%:c))
}
}

menu * {
Mp3 Player:mp3
}
Genişletmek için tıkla ...

mIRC kullanicilari icin kodladigim bir kod. mIRC üzerinden mp3 player olusturmaniza ve listelemenize olanak verir.
 
Ne giriyordum zamanında piww . :)
 
Modasının geçeli yıllar oldu denilebilir. Bir zamanlar pek popülerdi tabi.
 
zurna.net ve sohbet.net de bi aralar sorumlu operhelp departmanına bakıyordum network admini olarak güzel günlerdi ama artık girmiyorum girmeyi bile unuttum :p
 
Evet modası geçeli epey oldu, eskiden sağlam yerler vardı. Kültürünü koruyamadı ve çöktü, hala çırpınan sunucular var tabii. Ben işin scripting yönüyle ilgileniyorum.
 
Kartal' Alıntı:
zurna.net ve sohbet.net de bi aralar sorumlu operhelp departmanına bakıyordum network admini olarak güzel günlerdi ama artık girmiyorum girmeyi bile unuttum :p
Genişletmek için tıkla ...

Nick nedir ve hangi tarihler arasında adminlik yaptın.
 
dialog enes {
title "Radio Player by Kartalizm"
size -1 -1 153 118
option dbu
button "Oynat", 1, 2 13 23 25
button "Sil", 2, 128 28 22 24
button "Ekle", 3, 1 78 24 16
list 4, 26 13 99 53, size
edit "", 5, 26 78 99 16, autohs autovs
button "Kapat", 6, 35 103 78 12,ok
button "Durdur", 7, 2 42 23 23
}

alias dlls if $1 = mdx { return mdx.dll } | if $1 = bars { return bars.mdx }

on *:dialog:enes:init:*: {
var %bs 1
while (%bs <= $lines(radyolar.txt)) {
did -a enes 4 $read(radyolar.txt,%bs)
inc %bs
}
dll $dlls(mdx) MarkDialog $dname
dll $dlls(mdx) SetDialog $dname bgcolor $rgb(5,0,0)
dll $dlls(mdx) SetFont 1,2,3,4,5 +a default 13 1200 Tahoma
dll $dlls(mdx) SetColor 1,2 text $rgb(2,255,255)
dll $dlls(mdx) SetColor 1,2 textbg $rgb(0,0,0)
dll $dlls(mdx) SetColor 1,2 background $rgb(0,0,0)
dll $dlls(mdx) SetColor 10 background $rgb(5,255,255)
}

on *:dialog:enes:sclick:*: {
if ($did == 3) {
if $did(5) == $null { echo -a Lutfen bir link giriniz. }
else { write radyolar.txt $did(5) | echo -a $did(5) linki eklendi. | did -a enes 4 $did(5) }
}
if ($did == 2) { write -d radyolar.txt $did(4).sel | echo -a $did(4).seltext silindi. | did -d enes 4 $did(4).sel }
if ($did == 1) { set %link $did(4).seltext | oynat | Echo -a 1,7 $did(4).seltext Linki Calmaya Basliyor. $server Sunucusundasiniz. }
if ($did == 7) { window -c @radyo }
}

alias oynat {
window -c @radyo
write -c enes.html
if !$window(@radyo) {
write enes.html <html> $&
<body> <script> var flashvars = {};flashvars.serverHost = " $+ $remove(%link,/,http:,listen.pls) $+ /;";flashvars.getStats = "0";flashvars.autoStart = "1";flashvars.textColour = "";flashvars.buttonColour = "";var params = {};params.bgcolor= "";params.wmode="transparent"; </script>$&
<script type="text/javascript" src="http://mixstreamflashplayer.net/v1.3.js"></script>$&
</body>$&
</html>
.timer 1 2 rdy
}
}

alias rdy {
if !$window(@radyo) {
window -hne @radyo
noop $dll(nHTMLn_2.95.dll,attach,$window(@radyo).hwnd)
noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)
}
}

alias rdydinle { dialog -m enes enes }

menu * {
Radio Player: rdydinle
}
Genişletmek için tıkla ...

Kodladığım radyo player.
 
Xerath' Alıntı:


Nick nedir ve hangi tarihler arasında adminlik yaptın.
Genişletmek için tıkla ...

nickim DarkLord ve Soldier idi.

2010 ve 2013 senelerinde. Zurna.net CLaSSiC yonetimden ZaiL e geçiş doneminde bulundum.

Sohbet.net de de ZaiL yonetimde bulundum surekli. Kendisi ile reel işlerden tanışıklığım vardı onun aracılığıyla olmuştu

sizin nedir?
 
Kartal' Alıntı:
nickim DarkLord ve Soldier idi.

2010 ve 2013 senelerinde. Zurna.net CLaSSiC yonetimden ZaiL e geçiş doneminde bulundum.

Sohbet.net de de ZaiL yonetimde bulundum surekli. Kendisi ile reel işlerden tanışıklığım vardı onun aracılığıyla olmuştu

sizin nedir?
Genişletmek için tıkla ...

Üstad sen çok yenisin, 2002'den 2012'ye kadar zurna sohbet klavye haytada bulundum.
 
Xerath' Alıntı:


Üstad sen çok yenisin, 2002'den 2012'ye kadar zurna sohbet klavye haytada bulundum.
Genişletmek için tıkla ...

yani askerden sonra tanıştım irc ile. daha oncesinde mahallenin abileri girerdi. zurnada rockmetal kanalları vardı. ky juan ve scorpion nickleriydi. o zamanlar oyun kanalına girerdim. yılmaz vardı genco vardı eskilerden. oyun kanalına girer çıkardım muhabbetim felan olmazdı kimseyle
 
Kayra' Alıntı:
İF te de bulundun mu?
Genişletmek için tıkla ...

İF'den kastini anlayamadım

Kartal' Alıntı:
yani askerden sonra tanıştım irc ile. daha oncesinde mahallenin abileri girerdi. zurnada rockmetal kanalları vardı. ky juan ve scorpion nickleriydi. o zamanlar oyun kanalına girerdim. yılmaz vardı genco vardı eskilerden. oyun kanalına girer çıkardım muhabbetim felan olmazdı kimseyle
Genişletmek için tıkla ...

Zurna soldy' den sonra mahvoldu.

Konu sahibi arkadaşın çabasını takdir ediyorum.
Script konusunda gidebileceğin son nokta klavye 8.2'dir.
Onunda setup sadece bende var.
 
Xerath' Alıntı:


İF'den kastini anlayamadım



Zurna soldy' den sonra mahvoldu.

Konu sahibi arkadaşın çabasını takdir ediyorum.
Script konusunda gidebileceğin son nokta klavye 8.2'dir.
Onunda setup sadece bende var.
Genişletmek için tıkla ...

malum forum, söyletme şimdi bana açılımını asdfghj
 
buranın da eskiden irc girişi vardı )
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri