My first MIRC Script
this is not my script
this is wriths
he said i could change it and post it as mine
Alias mp3 {
if (!$dialog(Wmp3)) dialog -mdo Wmp3 Wmp3
Else {
Dialog -ie Wmp3 Wmp3
}
}
alias Remaining {
If ($dialog(Wmp3)) {
did -ra Wmp3 4 $asctime($round($calc(($insong.length - $insong.pos) / 1000),0),nn:ss),none)
Else { Halt }
}
}
dialog Wmp3 {
title "Tweek iRc Mp3"
icon Icons\Prototype.icon, 0
size -1 -1 245 95
option dbu
list 2, 4 4 154 90, vsbar size sort
edit "", 3, 165 72 75 10, read autohs autovs
edit "", 4, 190 83 24 10, read autohs autovs right
box "", 5, 165 16 75 56
button "Play", 6, 168 25 32 12
button "Pause", 7, 185 39 32 12
button "Resume", 8, 204 25 32 12
button "Stop", 9, 168 53 32 12
button "Directory", 14, 204 53 32 12
text "Tweek Mp3 By WraithRIOT ", 15, 170 12 65 8
}
on *:Dialog:Wmp3:*:*:{
if ($devent == InIt) {
)
Did -a Wmp3 2 $findfile(%dir, *.mp3,0,did -a Wmp3 2 $nopath($1-))
did -ra Wmp3 3 Nothing is playing
did -ra Wmp3 4 00:00
}
If ($Devent == Sclick) {
If ($did = 6) {
var %Playing $Remove($did(Wmp3,2).seltext,.Wmp3)
var %song $findfile(%dir,$did(Wmp3,2).seltext,1)
set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
splay %song
Did -ra $dname 3 $remove($nopath($insong.fname)$1-,.mp3)
Did -ra $dname 4 %length
.timermp3 0 0 Remaining
}
If ($did = 7) {
Splay Pause
}
If ($did = 8) {
Splay Resume
}
If ($did = 9) {
Splay stop
}
If ($did = 14) {
set %dir $sdir="Mp3 Directory"
write mp3.txt
noop $findfile(%dir,*.mp3,0,write mp3.txt $1-)
var %num $findfile(%dir, *.mp3,0,did -a Wmp3 2 $nopath($1-))
}
If ($did = 16) {
splay stop
set %cplay on
set %songnum 1
splay $read(mp3.txt,%songnum)
set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
.timermp3 0 0 Remaining
spam
}
If ($did = 17) {
splay stop
splay stop
set %cplay off
.timermp3 off
did -ra Wmp3 3 Nothing is playing
did -ra Wmp3 4 00:00
}
If ($did = 18) {
if (%cplay == off) { Halt }
splay stop
inc %songnum
splay $read(mp3.txt,%songnum)
set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
.timermp3 0 0 Remaining
spam
}
}
If ($devent == Dclick) {
If ($did = 2) {
var %Playing $Remove($did(Wmp3,2).seltext,.Wmp3)
var %song $findfile(%dir,$did(Wmp3,2).seltext,1)
set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
splay %song
Did -ra $dname 3 $remove($nopath($insong.fname)$1-,.mp3)
Did -ra $dname 4 %length
Spam
.timermp3 0 0 Remaining
}
}
}
On *:Mp3end:{
if (%cplay == on) {
inc %songnum
splay $read(mp3.txt,%songnum)
set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
spam
}
}
Alias Spam {
If (%spam = 1) {
Sconamsg 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $remove($nopath($insong.fname)$1-,.mp3) %length $+ 4-14)
}
If (%spam = 2) {
Say 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $+ $remove($nopath($insong.fname)$1-,.mp3) %length 4-14)
}
If (%Spam = 3) {
Echo -a $Timestamp 14,1(4-0Now Playing4-14) 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $remove($nopath($insong.fname)$1-,.mp3) %length 4-14)
}
If (%Spam = 4) {
Halt
}
}
alias sconamsg {
var %x = 1
var %chans = $chan(0)
var %scid = $scon(0)
var %scon = 1
:started
scon %scon
if (!$server) && (%scon != scid) { inc %scon | goto started }
if (!$server) && (%scon == %scid) { goto end }
if ($chan(1)) amsg $1-
if (!$chan(1)) && (%scon != %scid) { inc %scon | goto started }
if (!$chan(1)) && (%scon == %scid) { goto end }
if (%scid <= %scon) {
goto end
}
inc %scon
goto started
:end
haltdef
}
alias mdx { return DLL\mdx.dll }
alias hos { return DLL\hos.dll }
alias views { return DLL\views.mdx }
alias bars { return DLL\bars.mdx }
alias custom { return DLL\mircustom.dll }
alias ctl { return DLL\ctl_gen.mdx }
alias dmdx { return DLL\dialog.mdx }
alias views { return DLL\views.mdx }
alias mdxin { dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname }
alias popupsd { return DLL\POPUPS.DLL }
alias de { return $dll(DLL\darkenginex.dll,$1,_) }
Menu * {
Mp3: Mp3
}
I do not have the time to ask every single person if their snippet is theirs or not or if they were given permission to do so. Also as I stated previously he could have saved the trouble if he had mentioned in the Description he was given permission to repost it. The simple solutions can prevent issues.
If you payed close attention to the code it says "Tweek's mp3 by wraithriot" wraithriot being my old sn
Also if u ask me you should ask the original creator if they had permissions before assuming the code is a rip.
If you had done that you would have saved yourself the time it took you to post the last few comments.
As well as not disrupting my gaming so i have to come on here and post regarding if this script is a rip or not when it is obviously not a rip =]
Scakk
Way to steal this from http://www.hawkee.com/snippet/7662/
I have given him permission to post this script as he has given me credit for the actual coding of the sclick functions (buttons) not the dialog itself he has some credit to it and it is not a rip as ive told him he could post it