Türkçe Mirc CD-Rom Ac/Kapat

Bu kod ile CD-Rom u açip kapatabilirsiniz.

Cd-rom takmak için : /cdrom tak

Cd-Rom c?karmak için :  /cdrom cikar

Kod;

alias cdrom {
if ($istok(tak.cikar,$1,46)) {
var %sjn $+(cd,$ticks)
.comopen %sjn WMPlayer.OCX.7
noop $com(%sjn,cdromCollection,3,dispatch* $+(%sjn,s))
noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))
noop $com($+(%sjn,j),Eject,3)
.comclose $+(%sjn,j)
if ($1 == tak) {
noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))
noop $com($+(%sjn,j),Eject,3)
}
if ($comerr) { echo -a hata }
.comclose $+(%sjn,s)
.comclose %sjn
}
else { echo $color(info) * /cdrom yetersiz veya eksik parametre }
}