En gather bot.

menu * {
-
Gather Bot
.Set channel:{ set %ch.ann $$?"channel?" | if (%war) { topch } }
.Set IP:{ set %ip $$?"IP : Port" }
.Set Rcon:{ set %rcon_gh $$?"Rcon password" }
.Set admin nick:{ var %adminnick = $$?"Skriv et nick:" | if (%adminnick) { .auser 10 $address(%adminnick,2) | write user.dat $address(%adminnick,2) $+ ¨ $+ 10 } }
-
}

on 10:TEXT:!set*:*: {
if ($1-2 && $2 == rcon && $3 == $null) {
.msg $nick 3<4 Skriv rcon til mig i query ved at skrive !set rcon "rconpassword" 3>
}
if ($1-2 && $2 == rcon && $3 != $null) {
.msg $nick 3<4 Rcon pass er skiftet til: $3 3>
.set %rcon_gh $3
}
if ($1-2 && $2 == ip && $3 == $null) {
.msg $nick 3<4 Skriv ip:port til mig i query ved at skrive !set ip "IP:PORT" 3>
}
if ($1-2 && $2 == ip && $3 != $null) {
.msg $nick 3<4 IP:PORT er skiftet til: $3 3>
.set %ip $3
}
if ($1-2 && $2 == channel && $3 == $null) {
.msg $nick 3<4 Skriv channel til mig i query ved at skrive !set channel "#channel" 3>
}
if ($1-2 && $2 == channel && $3 != $null) {
if ($asc($left($3,1)) != 35) {
.msg $nick 3<4 Skriv channel med $chr(35) foran 3>
}
if ($asc($left($3,1)) == 35) {
.msg $nick 3<4 channel er skiftet til: $3 3>
.set %ch.ann $3
}
}
if ($1 && $2 == help) {
.timerset1 1 0 .msg $nick 3<4 Brug følgende commands: 3>
.timerset2 1 1.2 .msg $nick 3<4 !set channel "#Channel" 3>
.timerset3 1 2.4 .msg $nick 3<4 !set rcon "Rcon password" 3>
.timerset4 1 3.6 .msg $nick 3<4 !set ip "IP:PORT" 3>
}
if ($1 && $2 != ip && $2 != channel && $2 != rcon && $2 != help) { .msg $nick Fejl ingen command fundet for: $1- :: Prøv !set help }
.close -m $nick
}

on 10:TEXT:!vis*:*: {
if ($1-2 && $2 == rcon) {
.msg $nick 3<4 Rcon pass er: %rcon_gh 3>
}
if ($1-2 && $2 == ip) {
.msg $nick 3<4 IP:PORT er: %ip 3>
}
if ($1-2 && $2 == channel) {
.msg $nick 3<4 channel er: %ch.ann 3>
}
if ($1-2 && $2 == alle) {
.timervis1 1 1.2 .msg $nick 3<4 IP:PORT er: %ip 3>
.timervis2 1 2.4 .msg $nick 3<4 Rcon pass er: %rcon_gh 3>
.timervis3 1 3.6 .msg $nick 3<4 channel er: %ch.ann 3>
}
if ($1 && $2 == help) {
.timervis1 1 0 .msg $nick 3<4 Brug følgende commands: 3>
.timervis2 1 1.2 .msg $nick 3<4 !vis channel 3>
.timervis3 1 2.4 .msg $nick 3<4 !vis rcon 3>
.timervis4 1 3.6 .msg $nick 3<4 !vis ip 3>
.timervis5 1 4.8 .msg $nick 3<4 !vis alle 3>
}
if ($1 && $2 != ip && $2 != channel && $2 != rcon && $2 != help && $2 != alle) { .msg $nick Fejl ingen command fundet for: $1- :: Prøv !vis help }
.close -m $nick
}

on *:TEXT:!load*:*: {
if ($lines(userss.dat) > 0 && $lines(userss.dat) != $null) { .notice $nick En bruger er addet }
if ($lines(userss.dat) <= 0) {
.auser 10 $address($nick,2)
.write userss.dat $address($nick,2)
.notice $nick Bruger $nick $+ ( $+ $address($nick,2) $+ ) er addet som øverste admin.
}
if ($lines(userss.dat) == $null) {
.auser 10 $address($nick,2)
.write userss.dat $address($nick,2)
.notice $nick Bruger $nick $+ ( $+ $address($nick,2) $+ ) er addet som øverste admin.
}
}

on *:TEXT:!help:%ch.ann: {
if ($ulist($address($nick,2)) == $address($nick,2)) {
if (%helpnick) { halt }
if (!%helpnick) {
.set -u6 %helpnick $nick
.timercmd1 1 1.2 .helpmsg
.timercmd2 1 2.4 .notice $nick 3<7 Gather commands 3><4 !start "map" 9&4 !stop 9&4 !map "map" 9&4 !ppl "antal players" 3>
.timercmd3 1 3.6 .notice $nick 3<7 Query commands 3><4 !set "rcon;ip;channel" 9&4 !vis "rcon;ip;channel;alle" 3>
.timercmd4 1 4.8 .notice $nick 3<7 Indgame commands 3><4 .start 9&4 .pregame 9&4 .rs 9&4 .sub "antal subs" 3>
}
}
if ($ulist($address($nick,2)) != $address($nick,2)) {
.msg $chan 3<7 Commands for gather: 4!add 9&4 !del 9&4 !status 9&4 !players 9&4 !help 3>
}
}

alias helpmsg {
if (!%helpnick) { halt }
if (%helpnick) { /notice %helpnick 3<7 Userlist commands 3><4 $chr(36) $+ useradd 9&4 $chr(36) $+ userdel 9&4 $chr(36) $+ userlist 3> }
}

alias sub {
if ($1 != end) {
if (!%sub && !%sub.til) {
.write -c subs.txt
.set %sub $1
.set %sub.til 0
if (%sub == 1) { .msg %ch.ann 3<7 %sub sub søges til gather 3><4 Skriv !sub for at være med 3><7 Antal subs %sub.til $+ / $+ %sub 3>7 }
if (%sub > 1) { .msg %ch.ann 3<7 %sub subs søges til gather 3><4 Skriv !sub for at være med 3><7 Antal subs %sub.til $+ / $+ %sub 3>7 }
.sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Sub soegning startet
}
}
if ($1 == end) {
.unset %sub
.unset %sub.til
.write -c subs.txt
.msg %ch.ann 3<7 Sub stoppet af admin 3>7
.sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Sub soegning stoppet
}
}
alias subind {
var %i = 1
while (%i <= $lines(subs.txt)) {
.timersubindmsg [ $+ [ %i ] ] 1 %i .msg $read(subs.txt, %i) 3<7 Ip: %ip 3><4 Password: %pass 3>
inc %i
}
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Subs joiner
}
on *:TEXT:!sub:%ch.ann:{
if (%sub > %sub.til) {
.inc %sub.til
.msg %ch.ann 3<7 $nick addes til gather som sub 3><4 Skriv !sub for at være med 3><7 Antal subs %sub.til $+ / $+ %sub 3>7
.write subs.txt $nick
if (%sub == %sub.til) {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Subs fundet
.msg %ch.ann 3<7 Subs fundet 3>
.subind
}
}
}

on *:TEXT:!cmd:%ch.ann:{
if ($ulist($address($nick,2)) != $address($nick,2)) {
.msg $chan 3<7 Commands for gather: 4!add 9&4 !del 9&4 !status 9&4 !players 9&4 !cmd 3>
}
if ($ulist($address($nick,2)) == $address($nick,2)) {
.notice $nick 3<7 Admin: 4!start "map" 9&4 !stop 9&4 !map "map" 9&4 !ppl "antal players" 3>
}
}
on *:TEXT:!ppl*:%ch.ann:{ if ($nick isop %ch.ann) { .set %ppl $2 | topch | .msg %ch.ann %topch | .notice $nick 3<4 ppl er sat til %ppl 3> } | else { .notice $nick 3< 4You have no power to do that 3> } }
on *:TEXT:!start*:%ch.ann:{
.var %bans = $read(bans.dat, r, $address($nick,2))
if ($address($nick,2) == %bans) { .var %ban = ja }
if (%ban == ja) { notice $nick 3<7 Du er bannet 3> }
if (%ban != ja) {
var %i = 1
while (%i <= $lines(users.dat)) {
if ($address($nick ,2) == $gettok($read(users.dat, %i),1,168)) {
.var %gotonext = ja
}
inc %i
}
if (%gotonext == ja) {
.write -c players.txt | .write -c subs.txt | .set %gather.admin $nick
if (!%war) { if ($2) {
.rconstart %rcon_gh $gettok($replace(%ip,:,¨),1,168) $gettok($replace(%ip,:,¨),2,168)
.set %war 3
.msg %ch.ann 3< 4Gather started by $nick 3><4 Type !add to add you in the list and !del to remove you 3><4 type !cmd for help 3> | unset %map | unset %players | set %war %ip | set %map $2 | set %pass $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) | set %players %players $nick | .write players.txt $nick | .set %total 1 | topch | msg %ch.ann %topch
}
}
else { notice $nick 3<7 war allready startet 3> }
}
else { notice $nick 3<7 You have no power to start a war 3> }
}
}
on *:TEXT:!status:%ch.ann:{ if (!%tmp. [ $+ [ $nick ] ]) { set -u20 %tmp. [ $+ [ $nick ] ] T | msg $chan 3<7 Bot is $iif(%war,Active,Inactive) 3> } }
on *:TEXT:!map*:%ch.ann:{ if ($nick isop $chan) { if ($2) { msg $chan 3<7 Map Changed to $2 by $nick 3> | set %map $2 | topch } | else { msg $chan 3<7 Map is: $iif(%map,$ifmatch,Not set yet!) } } 3> | else { notice $nick 3<7 You have no power to do that 3> } }
on *:text:!Players:%ch.ann:{ topch | .msg $chan %topch }
on *:text:!add:%ch.ann:{
if (!%total) { .set %total 0 }
if (%war) {
if (%total <= %ppl ) {
if (!$istok(%players,$nick,32)) {
.var %bans = $read(bans.dat, r, $address($nick,2))
if ($address($nick,2) == %bans) { .var %ban = ja }
if (%ban == ja) { notice $nick 3<7 Du er bannet 3> }
if (%ban != ja) {
if (%war) { set %players %players $nick | .write players.txt $nick | .set %total $calc( %total +1 ) | topch | .msg $chan %topch }
else { msg $chan 3<7 No war active 3> }
}
}
else { notice $nick 3<7 You are allready in the list 3> }
}
else { notice $nick 3<7 No war active 3> }
}
if (%total >= %ppl) {
teams
}
}
on 10:TEXT:!stop:%ch.ann:{ if ($nick == %gather.admin) { if (%war) { unset %war | unset %map | unset %players | .msg %ch.ann 3<7 Gather stoppet 3> } | else { notice $nick 3<7 War not active 3> } } | else { notice $nick 3<7 Your not admin 3> } }
on 10:TEXT:!off:%ch.ann:{ unset %war | unset %map | unset %gather.admin | unset %players | .msg %ch.ann 3<7 Gather stoppet 3> }
on *:TEXT:!del:%ch.ann:{
if (%war) {
if ($nick != %gather.admin) {
if ($istok(%players,$nick,32)) { set %players $remtok( %players, $nick, 1, 32 ) | .set %total $calc( %total -1) | .write -ds $nick players.txt | topch | msg %ch.ann %topch }
else { notice $nick 3<7 You are not in the list 3> }
}
}
else { notice $nick 3<7 No war active 3> }
}
on *:PART:%ch.ann:{
if (%war) {
if ($istok(%players,$nick,32)) {
$iif($remtok(%players,$nick,1,32),set %players $ifmatch,unset %players)
.write -ds $nick players.txt
.set %total $calc( %total -1)
.topch
.msg %ch.ann %topch
}
}
}
on *:QUIT:{ if (%war) { if ($nick ison %ch.ann) && ($istok(%players,$nick,32)) { $iif($remtok(%players,$nick,1,32),set %players $ifmatch,unset %players) | topch %ch.ann } } }
on *:NICK:{ if ($newnick ison %ch.ann) && ($istok(%players,$nick,32)) { set %players $remtok(%players,$nick,1,32) $newnick | .topch | .msg %ch.ann %topch } }
alias topch { .set %topch 3<7 IP: %war Map: $iif(%map,$ifmatch,Not yet set!) players: %total $+ / $+ %ppl 3><4 %players 3> }
alias teams {
.set %rand $rand(1,4)
if ( %ppl == 10 ) {
if (%rand == 1) {
.set %ct $read(players.txt,1) $read(players.txt,3) $read(players.txt,5) $read(players.txt,7) $read(players.txt,9)
.set %t $read(players.txt,2) $read(players.txt,4) $read(players.txt,6) $read(players.txt,8) $read(players.txt,10)
}
if (%rand == 2) {
.set %ct $read(players.txt,1) $read(players.txt,2) $read(players.txt,5) $read(players.txt,6) $read(players.txt,9)
.set %t $read(players.txt,3) $read(players.txt,4) $read(players.txt,7) $read(players.txt,8) $read(players.txt,10)
}
if (%rand == 3) {
.set %ct $read(players.txt,1) $read(players.txt,2) $read(players.txt,3) $read(players.txt,4) $read(players.txt,5)
.set %t $read(players.txt,6) $read(players.txt,7) $read(players.txt,8) $read(players.txt,9) $read(players.txt,10)
}
if (%rand == 4) {
.set %ct $read(players.txt,1) $read(players.txt,5) $read(players.txt,7) $read(players.txt,9) $read(players.txt,10)
.set %t $read(players.txt,2) $read(players.txt,3) $read(players.txt,4) $read(players.txt,6) $read(players.txt,8)
}
}
if ( %ppl == 8 ) {
if (%rand == 1) {
.set %ct $read(players.txt,1) $read(players.txt,3) $read(players.txt,5) $read(players.txt,7)
.set %t $read(players.txt,2) $read(players.txt,4) $read(players.txt,6) $read(players.txt,8)
}
if (%rand == 2) {
.set %ct $read(players.txt,1) $read(players.txt,2) $read(players.txt,5) $read(players.txt,6)
.set %t $read(players.txt,3) $read(players.txt,4) $read(players.txt,7) $read(players.txt,8)
}
if (%rand == 3) {
.set %ct $read(players.txt,1) $read(players.txt,2) $read(players.txt,3) $read(players.txt,4)
.set %t $read(players.txt,6) $read(players.txt,7) $read(players.txt,8) $read(players.txt,5)
}
if (%rand == 4) {
.set %ct $read(players.txt,1) $read(players.txt,5) $read(players.txt,7) $read(players.txt,6)
.set %t $read(players.txt,2) $read(players.txt,3) $read(players.txt,4) $read(players.txt,8)
}
}
if ( %ppl == 6 ) {
if (%rand == 1) {
.set %ct $read(players.txt,1) $read(players.txt,3) $read(players.txt,5)
.set %t $read(players.txt,2) $read(players.txt,4) $read(players.txt,6)
}
if (%rand == 2) {
.set %ct $read(players.txt,1) $read(players.txt,5) $read(players.txt,6)
.set %t $read(players.txt,3) $read(players.txt,4) $read(players.txt,2)
}
if (%rand == 3) {
.set %ct $read(players.txt,1) $read(players.txt,2) $read(players.txt,4)
.set %t $read(players.txt,6) $read(players.txt,5) $read(players.txt,3)
}
if (%rand == 4) {
.set %ct $read(players.txt,1) $read(players.txt,5) $$read(players.txt,6)
.set %t $read(players.txt,2) $read(players.txt,3) $read(players.txt,4)
}
}
if ( %ppl == 4 ) {
if (%rand == 1) {
.set %ct $read(players.txt,1) $read(players.txt,3)
.set %t $read(players.txt,2) $read(players.txt,4)
}
if (%rand == 2) {
.set %ct $read(players.txt,1) $read(players.txt,4)
.set %t $read(players.txt,3) $read(players.txt,2)
}
if (%rand == 3) {
.set %ct $read(players.txt,1) $read(players.txt,2)
.set %t $read(players.txt,3) $read(players.txt,4)
}
if (%rand == 4) {
.set %ct $read(players.txt,1) $read(players.txt,4)
.set %t $read(players.txt,2) $read(players.txt,3)
}
}
if ( %ppl == 2 ) {
if (%rand == 1) {
.set %ct $read(players.txt,2)
.set %t $read(players.txt,1)
}
if (%rand == 2) {
.set %ct $read(players.txt,1)
.set %t $read(players.txt,2)
}
if (%rand == 3) {
.set %ct $read(players.txt,2)
.set %t $read(players.txt,1)
}
if (%rand == 4) {
.set %ct $read(players.txt,1)
.set %t $read(players.txt,2)
}
}
.msg %ch.ann 3< 12Counter-Terrorist: %ct 3>
.msg %ch.ann 3< 4Terrorist: %t 3>
.msg %ch.ann 3< 7Ip and password will be sent now 3>
/rcon %ip %rcon_gh changelevel %map
/rcon %ip %rcon_gh sv_password %pass
ipp
}

alias ipp {
var %i = 1
while (%i <= %ppl) {
if ($read(players.txt,%i) isin %ct) { .msg $read(players.txt,%i) 3<7 IP:4 %war 3><7 Password:4 %pass 3><7 Du er: 12Counter-Terrorist 3> }
if ($read(players.txt,%i) isin %t) { .msg $read(players.txt,%i) 3<7 IP:4 %war 3><7 Password:4 %pass 3><7 Du er: 4Terrorist 3> }
inc %i
}
unset %war | unset %map | unset %players | unset %topch | set %ppl 10
}

alias rcon {
var %v = $xrand

set %rcon. [ $+ [ %v ] ] $2-
sockudp -nk rcon. $+ %v $gettok($1,1,58) $gettok($1,2,58) ÿÿÿÿchallenge rcon
}

alias xrand { inc %xrand | return %xrand }

on *:udpread:rcon.*:{
if ($sockerr > 0) { return }
sockread 7 %temp

if ($sockbr == 0) { return }

var %challenge = $gettok(%temp,3,32)
var %ip = $sock($sockname).saddr
var %port = $sock($sockname).sport

var %n = $sockname

sockclose $sockname

var %d = $xrand
sockudp -nk rcon $+ %d $rand(1,4000) %ip %port ÿÿÿÿrcon %challenge %rcon. [ $+ [ $gettok(%n, 2-, 46) ] ] $+ $chr(32)
sockclose rcon $+ %d

unset %rcon. [ $+ [ $gettok($sockname, 2-, 46) ] ]
}

alias rconsayscript {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon logaddress_del $ip 7131
sockudp -nk rconsayscript %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon log on
sockudp -nk rconsayscript %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_logfile 1
sockudp -nk rconsayscript %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_logmessages 3
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon logaddress_add $ip 7131
}
alias challenge sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿchallenge rcon
alias rconstart {
sockclose rconsayscript
if ($1-3) {
.set %rconsayscriptrcon $1
.set %rconsayscriptip $2
.set %rconsayscriptport $3
challenge $2 $3
}
}
alias ip2 return $ip
on *:udpread:rconsayscript*: {
if ($sockerr > 0) { return }
:nextread
var %temp | sockread -f %temp
if ($sockbr == 0) { return }
if (%temp) {
if (challenge rcon isin %temp) {
.set %chall $gettok(%temp,3,32)
.rconsayscript
}
if ($gettok(%temp,1,32) == ÿÿÿÿlog) var %temp = $gettok(%temp,6-,32)
if (say isin $gettok(%temp,2,34)) {
var %temp1 = $replace($gettok(%temp,3,34),$chr(32),-)
var %i = 1
while (%i <= $lines(users.dat)) {
if ($gettok($read(users.dat, %i),2,168) isin %temp) { .var %gotonext = ja }
inc %i
}
if (%gotonext == ja) {
if ($gettok(%temp1,1,45) == .sub && $gettok(%temp1,2,45) != end && $gettok(%temp1,2,45)) { .sub $gettok(%temp1,2,45) }
if ($gettok(%temp1,1,45) == .sub && $gettok(%temp1,2,45) == end) { .sub end }
if ($gettok(%temp,3,34) == .pregame) { .pregame }
if ($gettok(%temp,3,34) == .rs) { .rs }
if ($gettok(%temp,3,34) == .start) { .start }
if ($gettok(%temp,3,34) == .tacs) { .tacs }
if ($gettok(%temp,3,34) == .teams) { .queryteams }
if ($gettok(%temp1,1,45) == .map && $gettok(%temp1,2,45)) { .sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon changelevel $gettok(%temp1,2,45)
}
var %temp = $null
}
}
if (disconnected isin $gettok(%temp,2,34)) {
var %temp = %scorebot.player 7har disconnected
var %temp = $null
}
}
goto nextread
}

alias queryteams {
.sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Counter-Terrorist: %ct
.sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Terrorist: %t
}

on 10:TEXT:$useradd*:%ch.ann:{
if ($1-4 != $null && $2 == Gather-Admin && $3 ison %ch.ann && $left($4,5) == STEAM) {
.write users.dat $address($3,2) $+ ¨ $+ $4
.notice $nick $3 $+ ( $+ $address($3,2) - $4 $+ ) er nu gather-admin og kan starte gathers
}
if ($1-3 != $null && $2 == Admin && $3 ison $chan) {
.auser -a 9 $address( $3 , 2)
.write user.dat $address($3,2) $+ ¨ $+ 9
.notice $nick $3 $+ ( $+ $address($3,2) $+ ) er nu admin
}
if ($1-3 != $null && $2 == Super-Admin && $3 ison $chan) {
.auser -a 10 $address($3,2)
.write user.dat $address($3,2) $+ ¨ $+ 10
.notice $nick $3 $+ ( $+ $address($3,2) $+ ) er nu super-admin
}
if ($1-3 != $null && $2 == ban && $3 ison $chan) {
.write bans.dat $address($3,2)
.notice $nick $3 $+ ( $+ $address($3,2) $+ ) er nu addet til ban
}
if ($2 != Gather-Admin && $2 != Admin && $2 != Super-admin && $2 != ban) {
if (%gathercmdnick) { halt }
if (!%gathercmdnick) {
.set -u6 %gathercmdnick $nick
.timercmd1 1 1.2 .gatheraddcmd 1
.timercmd2 1 2.4 .gatheraddcmd 2
.timercmd3 1 3.6 .gatheraddcmd 3
.timercmd4 1 4.8 .gatheraddcmd 4
}
}
}

alias gatheraddcmd {
if (!%gathercmdnick) { halt }
if (%gathercmdnick) {
if ($1 == 1) { .notice %gathercmdnick Brug: $chr($asc($)) $+ useradd Gather-Admin NICK STEAM_0:0:123456 }
if ($1 == 2) { .notice %gathercmdnick Brug: $chr($asc($)) $+ useradd Super-Admin NICK }
if ($1 == 3) { .notice %gathercmdnick Brug: $chr($asc($)) $+ useradd admin NICK }
if ($1 == 4) { .notice %gathercmdnick Brug: $chr($asc($)) $+ useradd ban NICK }
}
}

on 10:TEXT:$userdel*:%ch.ann:{
if ($1-3 != $null && $2 isnum 0-9 && $3 == Gather-admin) {
if ($read(users.dat, $2)) {
.notice $nick $gettok($read(users.dat, $2),1,168) ( $+ $gettok($read(users.dat, $2),2,168) $+ ) er slettet fra admins bruger
.write -dl $2 users.dat
}
}
if ($1-3 != $null && $2 isnum 0-9 && $3 == admin) {
if ($read(users.dat, $2)) {
.notice $nick $gettok($read(user.dat, $2),1,168) ( $+ $gettok($read(user.dat, $2),2,168) $+ ) er slettet fra admins bruger
.ruser $gettok($read(user.dat, $2),1,168)
.write -dl $2 user.dat
}
}
if ($1-3 != $null && $2 isnum 0-9 && $3 == ban) {
if ($read(users.dat, $2)) {
.notice $nick $gettok($read(bans.dat, $2),1,168) er slettet fra bans bruger
.ruser $gettok($read(bans.dat, $2),1,168)
.write -dl $2 bans.dat
}
}
if ($3 != Gather-Admin && $3 != Admin && $3 != ban) {
if (%gathercmdnick) { halt }
if (!%gathercmdnick) {
.set -u6 %gathercmdnick $nick
.timercmd1 1 1.2 .gatheraddcmddel 1
.timercmd2 1 2.4 .gatheraddcmddel 2
.timercmd3 1 3.6 .gatheraddcmddel 3
}
}
}

alias gatheraddcmddel {
if (!%gathercmdnick) { halt }
if (%gathercmdnick) {
if ($1 == 1) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userdel linje Gather-admin }
if ($1 == 2) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userdel linje admin }
if ($1 == 3) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userdel linje ban }
}
}

on 9:TEXT:$userlist*:%ch.ann:{
if ($1-2 != $null && $2 == Gather-admin) {
var %i = 1
.notice $nick Antal gather-admins $lines(users.dat)
while (%i <= $lines(users.dat)) {
.timerskriv [ $+ [ %i ] ] 1 %i .notice $nick $chr(35) $+ %i $gettok($read(users.dat, %i),1,168) ( $+ $gettok($read(users.dat, %i),2,168) $+ )
inc %i
}
}
if ($1-2 != $null && $2 == admin) {
var %i = 1
.notice $nick Antal admins $lines(user.dat)
while (%i <= $lines(user.dat)) {
.timerskriv [ $+ [ %i ] ] 1 %i .notice $nick $chr(35) $+ %i $gettok($read(user.dat, %i),1,168) ( $+ $gettok($read(user.dat, %i),2,168) $+ )
inc %i
}
}
if ($1-2 != $null && $2 == ban) {
var %i = 1
.notice $nick Antal bans $lines(bans.dat)
while (%i <= $lines(bans.dat)) {
.timerskriv [ $+ [ %i ] ] 1 %i .notice $nick $chr(35) $+ %i $gettok($read(bans.dat, %i),1,168)
inc %i
}
}
if ($2 != admin && $2 != Gather-admin && $2 != ban) {
if (%gathercmdnick) { halt }
if (!%gathercmdnick) {
.set -u6 %gathercmdnick $nick
.timercmd1 1 1.2 .gatheraddcmdlist 1
.timercmd2 1 2.4 .gatheraddcmdlist 2
.timercmd3 1 3.6 .gatheraddcmdlist 3
}
}
}

alias gatheraddcmdlist {
if (!%gathercmdnick) { halt }
if (%gathercmdnick) {
if ($1 == 1) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userlist Gather-admin }
if ($1 == 2) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userlist admin }
if ($1 == 3) { .notice %gathercmdnick Brug: $chr($asc($)) $+ userlist ban }
}
}

alias pregame {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_maxspeed 320
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_maxrounds 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_friendlyfire 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_forcechasecam 2
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_freezetime 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_startmoney 16000
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Pregame settings loadet. INGEN awp i varmup
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_restart 1
}

alias tacs {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_freezetime 60
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_restartround 1
}

alias start {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon pausable 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon allow_spectators 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_buytime .25
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_roundtime 2
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_friendlyfire 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_c4timer 35
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_freezetime 12
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_forcechasecam 2
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_forcecamera 2
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_fadetoblack 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_footsteps 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_flashlight 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_autocrosshair 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_limitteams 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_logfile 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_logmessages 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_autoteambalance 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_autokick 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_tkpunish 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_startmoney 800
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_maxrounds 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_timelimit 0
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon pausable 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_maxspeed 320
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_gravity 800
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_airmove 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_airaccelerate 10
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_clienttrace 1
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_maxupdaterate 101
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sys_ticrate 10000
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon mp_roundtime 1.75
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say [Mr15] - CW-settings loadet - [Mr15]
.rs
}

alias rs {
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say Let the Game begin
sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say -: Live after 3 restarts :-
.timerrconrs1 1 1.5 sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_restartround 1
.timerrconrs2 1 3 sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_restartround 1
.timerrconrs3 1 6.5 sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon say -: Good Luck - Have Fun :-
.timerrconrs4 1 6.5 sockudp -nk rconsayscript 7131 %rconsayscriptip %rconsayscriptport ÿÿÿÿrcon %chall %rconsayscriptrcon sv_restartround 3
}