- Et script jeg lavede for et stykke tid siden, og bruger det ikke rigtigt, så hvorfor ik release :).
Commands:
- For admins
- !reklame add <reklamenavn> <reklametekst>
- !reklame del <reklamenavn>
- !reklame list
- !reklame status
- !reklame on/off
- !reklame tjek
- !reklame idlers <minimum idlers>
For alle
!reklame request #chan
Du kan sætte %logo som dit logo, det er medregnet i scriptet (f.eks: /set %logo [DZ]) og det ville stå som: [DZ] tekst her [DZ].
Håber det kan bruges :)
alias rekchan { return #DIN-KANAL }
alias rekusers { return $readini($rekini,settings,idlers) }
on *:join:#:{ if ($nick == $me) { who $chan } }
raw 404:*:{ part $2 %logo Kan ikke skrive til channel %logo }
raw 315:*:{
if ($2 == %req.chan) {
msg $2 %logo Tjekker om alle krav er opfyldt... %logo
if ($nick($2,0) < $rekusers) { var %fejl = Har ikke $rekusers idlers }
if (c isincs $chan($2).mode) { var %fejl = %fejl ,mode +c }
if (M isincs $chan($2).mode) { var %fejl = %fejl ,mode +M }
if (%req.nick !isop $2) { var %fejl = %fejl $+($chr(44),%req.nick) har ikke op }
if (%fejl) { part $2 %logo Channel $2 opfylder ikke kravene: %fejl %logo }
if (!%fejl) { msg $2 %logo Channel er godkendt. Denne bot er requestet af: %req.nick %logo }
unset %req.*
}
}
on *:mode:#:{ reklametjek $chan
if ($chan != $rekchan) {
if ($1 == -m) && ($timer(. $+ $chan)) { .timer. [ $+ [ $chan ] ] off }
if ($1 == +m) { opmsg $chan %logo I har 2 minutter til at fjerne mode +m før jeg parter %logo | .timer. [ $+ [ $chan ] ] 1 120 part $chan }
}
}
on *:part:#:{ if ($nick != $me) { reklametjek $chan } }
on *:connect:{ .timerreklame 0 3600 nextreklame | .timerreklametjek 0 86400 reklametjek }
alias opmsg { var %i = 1 | while (%i <= $nick($1,0,o)) { var %x = $addtok(%x,$nick($1,%i,o),44) | inc %i } | msg %x $2- }
alias nextreklame {
amsg %logo $readini($rekini,reklame,$ini($rekini,reklame,%reklame)) %logo | inc %reklame
if (%reklame > $ini($rekini,reklame,0)) { set %reklame 1 }
}
alias reklametjek {
if ($1 != $rekchan) {
if ($nick($1,0) < $rekusers) { var %fejl = Har ikke $rekusers idlers }
if (c isincs $chan($1).mode) { var %fejl = %fejl ,+c }
if (M isincs $chan($1).mode) { var %fejl = %fejl ,+M }
if (%fejl) { part $1 %logo Channel $2 opfylder ikke kravene: %fejl %logo }
}
}
alias rekini { return reklame.ini }
on *:text:!reklame*:$($rekchan):{
if ($nick isop $chan) {
if ($2 == idlers) && ($3 isnum) { writeini $rekini settings idlers $3 | msg $chan %logo Minimum idlers sat til $3 %logo }
if ($2 == add) { writeini $rekini reklame $3- | notice $nick %logo Reklame nummer $ini($rekini,reklame,0) ( $+ $3 $+ ) tilføjet. %logo }
if ($2 == del) {
if (!$ini($rekini,reklame,$3)) { notice $nick %logo Reklame $3 eksisterer ikke! %logo }
if ($ini($rekini,reklame,$3)) { notice $nick %logo Reklame $3 fjernet. %logo | remini $rekini reklame $3 }
}
if ($2 == list) { var %i = 1 | while (%i <= $ini($rekini,reklame,0)) { var %x = $addtok(%x,$ini($rekini,reklame,%i),32) | inc %i } | notice $nick %logo Reklame liste: $replace(%x,$chr(32),$+($+($chr(44),$chr(32)))) %logo }
if ($2 == status) { notice $nick %logo Status: $iif($timer(reklame),ON,OFF) ( $+ $iif($timer(reklame).secs,$v1,Ingen) $+ /3600 $+ ) - Nuværende reklame ( $+ $ini($rekini,reklame,%reklame) $+ ): $readini($rekini,reklame,$ini($rekini,reklame,%reklame)) %logo }
if ($2 == on) { .timerreklame 0 3600 nextreklame | set %reklame 1 | nextreklame | notice $nick %logo Reklame er nu sat igang %logo }
if ($2 == off) { .timerreklame off | notice $nick %logo Reklame er nu off %logo }
if ($2 == tjek) { var %i = 1 | while (%i <= $chan(0)) { reklametjek $chan(%i) | inc %i } }
}
if ($2 == request) && ($left($3,1) == $chr(35)) && ($len($3) > 2) && ($chan(0) <= 20) { set %req.nick $nick | set %req.chan $3 | join $3 }
}