Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
⬅️ Volver;##########################################################################;
; ;
; MP3 Topic v1.2 by ^OmeN^ ;
; ;
; This script will count the number of files available in your channel ;
; and update the topic at an interval you set or manually. It can also ;
; play a message to the channel. ;
; ;
; Extract the file to your mIRC Directory and then type ;
; load -rs MP3Topic.mrc ;
; Press Yes when prompted, then enter your channel name ;
; ;
; Any problems with this script use the web forum at ;
; http://welcome.to/mIRC.Scripts ;
; ;
; ^OmeN^ ;
; ;
;##########################################################################;
on *:LOAD: {
if ($version < 5.91) {
echo 4 -s -=- MP3 Topic REQUIRES mIRC 5.91 or above, script not loaded -=-
.timer 1 2 unload -rs mp3topic.mrc
halt
}
:setchannel
%MP3.Topic.Channel = $input(Enter your channel in the format #channel $crlf $+ EG #mp3servers,133,MP3 Topic 1.2 By ^OmeN^)
if ($left(%MP3.Topic.Channel,1) != $chr(35)) { goto setchannel }
%MP3.Topic.T = 0
%MP3.Topic.A = 0
}
ctcp *:SLOTS:%MP3.Topic.Channel: {
hadd -m mp3topic $nick $remove($strip($8),$chr(44))
if ($dialog(mp3topic)) {
did -r mp3topic 14
MP3.Topic Dialog
}
}
on *:CONNECT: {
if (%MP3.Topic.T isnum 600-) { .timerMP3TopicT 0 %MP3.Topic.T MP3.Topic Topic }
if (%MP3.Topic.A isnum 600-) { .timerMP3TopicA 0 %MP3.Topic.A MP3.Topic Advert }
if ($hget(mp3topic) != $null) { hfree mp3topic }
}
on *:QUIT: {
if ($hget(mp3topic,$nick) != $null) { hdel mp3topic $nick }
if ($dialog(mp3topic)) {
did -r mp3topic 14
MP3.Topic Dialog
}
}
on *:PART:%MP3.Topic.Channel: {
hdel mp3topic $nick
if ($dialog(mp3topic)) {
did -r mp3topic 14
MP3.Topic Dialog
}
}
on *:NICK: {
if ($hget(mp3topic,$nick) != $null) {
var %Files = $hget(mp3topic,$nick)
hdel mp3topic $nick
hadd -m mp3topic $newnick %Files
}
if ($dialog(mp3topic)) {
did -r mp3topic 14
MP3.Topic Dialog
}
}
;##########################################################################;
; ;
; ALIAS SECTION ;
; ;
;##########################################################################;
alias MP3.Topic {
var %Count = 1
var %Files = 0
var %Servers = $hget(mp3topic,0).item
while (%Count <= %Servers) {
var %Files.Temp = $hget(mp3topic,$hget(mp3topic,%Count).item)
inc %Files %Files.Temp
var %Nick.Temp = $hget(mp3topic,%Count).item
var %Nicks = $addtok(%Nicks,%Nick.Temp,44)
if ($1 == Dialog) { did -a mp3topic 14 %Nick.Temp -=- $bytes(%Files.Temp, b) }
inc %Count
}
var %Nicks = $sorttok(%Nicks,44)
var %Files = $bytes(%files, b)
#### var %Topic = We have %Servers detected servers sharing %files files. %Nicks
var %Topic = Welcome to $chan @ We have %Servers detected servers sharing %files files.
if ($1 == Topic) {
var %Topic = $left(%Topic,156) ...
topic %MP3.Topic.Channel %Topic
}
elseif ($1 == Advert) { msg %MP3.Topic.Channel %Topic }
else {
did -o mp3topic 11 1 %Servers
did -o mp3topic 13 1 %Files
}
}
;##########################################################################;
; ;
; MENU SECTION ;
; ;
;##########################################################################;
menu menubar {
MP3 Topic { dialog -m mp3topic mp3topic }
}
menu Channel {
$iif($active == %MP3.Topic.Channel, MP3 Topic)
.Options { dialog -m mp3topic mp3topic }
.Update Topic { MP3.Topic Topic }
.Play Advert { MP3.Topic Advert }
.Mostrar: msg #mp3download 12,00[MP3 Stats] 01Active Servers:04 %Servers 01| Total Files Shared:04 %files 01| Search: 06@find <song/artist>
.Unload {
if (YES == $input(If you are SURE type YES",5,Unload MP3 Topic ?)) {
unset %MP3.Top*
if ($timer(MP3TopicA)) { .timerMP3TopicA off }
if ($timer(MP3TopicT)) { .timerMP3TopicT off }
.timer 1 1 .unload -rs mp3topic.mrc
echo 4 -a MP3 Topic v1.2 has been removed
}
}
}
;##########################################################################;
; ;
; DIALOG SECTION ;
; ;
;##########################################################################;
dialog mp3topic {
title "-=- MP3 Topic 1.2 by ^OmeN^ -=-"
size -1 -1 129 170
option dbu
box "Topic", 1, 5 4 120 30
button "Update", 2, 10 15 25 12
text "Frequency (Seconds)", 3, 40 18 55 12
edit "", 4, 95 15 25 12
box "Channel Message", 5, 5 37 120 30
button "Update", 6, 10 47 25 12
text "Frequency (Seconds)", 7, 40 50 54 12
edit "", 8, 95 47 25 12
box "Stats", 9, 5 73 120 79
text "Number Of Servers", 10, 15 80 60 8
text "", 11, 85 80 25 8
text "Number Of Files", 12, 15 90 60 8
text "", 13, 85 90 25 8
list 14, 10 102 111 45, size sort
button "OK", 666, 50 155 37 12, ok cancel
}
on *:DIALOG:mp3topic:init:0: {
did -a mp3topic 4 %MP3.Topic.T
did -a mp3topic 8 %MP3.Topic.A
did -o mp3topic 9 1 Stats For %MP3.Topic.Channel
MP3.Topic Dialog
}
on *:DIALOG:mp3topic:sclick:2: { MP3.Topic Topic }
on *:DIALOG:mp3topic:sclick:6: { MP3.Topic Advert }
on *:DIALOG:mp3topic:sclick:666: {
%MP3.Topic.T = $did(mp3topic,4)
if ((%MP3.Topic.T < 600) || (%MP3.Topic.T == $null)) {
%MP3.Topic.T = 0
.timerMP3TopicT off
}
else { .timerMP3TopicT 0 %MP3.Topic.T MP3.Topic Topic }
%MP3.Topic.A = $did(mp3topic,8)
if ((%MP3.Topic.A < 600) || (%MP3.Topic.A == $null)) {
%MP3.Topic.A = 0
.timerMP3TopicA off
}
else { .timerMP3TopicA 0 %MP3.Topic.A MP3.Topic Advert }
}
👁️ 4 vistas • 📥 0 descargas