Scriptinge ilk başladığımda radyo botu yapmıştım. Onun içinde vardı böyle bi olay, biraz düzenlemeyle hallolur. @
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $1 == !ekledim {
if $read($+($3,.txt),w,$2) { msg $chan Bu Dj Zaten Mevcut $nick }
else {
write $+($3,.txt) $2
msg $chan $2 Nicki eklendi. Yayin saati: $3
}
}
if $1 == !sildim {
if $read($+($3,.txt),w,$2) { msg $chan $2 Dj'i silindi. | write $+(-ds,$2) $+($3,.txt) }
}
if $1 == !listele {
var %i 1
var %e $lines($2.txt)
while (%i <= %e) {
msg $chan $read($2.txt,%i)
inc %i
}
}
if $1 == !yayinsaatleri {
msg $chan 1006:00 08:00 2 $read(06-08.txt,1) $read(06-08.txt,2) $read(06-08.txt,3) $read(06-08.txt,4) $read(06-08.txt,5)
msg $chan 1008:00 10:00 2 $read(08-10.txt,1) $read(08-10.txt,2) $read(08-10.txt,3) $read(08-10.txt,4) $read(08-10.txt,5)
msg $chan 1010:00 12:00 2 $read(10-12.txt,1) $read(10-12.txt,2) $read(10-12.txt,3) $read(10-12.txt,4) $read(10-12.txt,5)
msg $chan 1012:00 14:00 2 $read(12-14.txt,1) $read(12-14.txt,2) $read(12-14.txt,3) $read(12-14.txt,4) $read(12-14.txt,5)
msg $chan 1014:00 16:00 2 $read(14-16.txt,1) $read(14-16.txt,2) $read(14-16.txt,3) $read(14-16.txt,4) $read(14-16.txt,5)
msg $chan 1016:00 18:00 2 $read(16-18.txt,1) $read(16-18.txt,2) $read(16-18.txt,3) $read(16-18.txt,4) $read(16-18.txt,5)
msg $chan 1018:00 20:00 2 $read(18-20.txt,1) $read(18-20.txt,2) $read(18-20.txt,3) $read(18-20.txt,4) $read(18-20.txt,5)
msg $chan 1020:00 22:00 2 $read(20-22.txt,1) $read(20-22.txt,2) $read(20-22.txt,3) $read(20-22.txt,4) $read(20-22.txt,5)
msg $chan 1022:00 00:00 2 $read(22-00.txt,1) $read(22-00.txt,2) $read(22-00.txt,3) $read(22-00.txt,4) $read(22-00.txt,5)
msg $chan 1000:00 02:00 2 $read(00-02.txt,1) $read(00-02.txt,2) $read(00-02.txt,3) $read(00-02.txt,4) $read(00-02.txt,5)
msg $chan 1002:00 04:00 2 $read(02-04.txt,1) $read(02-04.txt,2) $read(02-04.txt,3) $read(02-04.txt,4) $read(02-04.txt,5)
msg $chan 1004:00 06:00 2 $read(04-06.txt,1) $read(04-06.txt,2) $read(04-06.txt,3) $read(04-06.txt,4) $read(04-06.txt,5)
msg $chan 10Jokerler 2 $read(joker.txt,1) $read(joker.txt,2) $read(joker.txt,3) $read(joker.txt,4) $read(joker.txt,5) $read(joker.txt,6) $read(joker.txt,7)
}
!ekledim unpainful 18-20 gibi.