ServerBot v. 0.6B

on *:udpread:gameserver:{
:maplol
if (%map.check2 = on) {
var %m = 1
while (%m <= $lines(maps.txt)) {
if ($read(maps.txt, %m) == %map.lol) {
/rcon say $me $+ : Changing map to: %map.lol
.timerlolaaa 1 1 /rcon changelevel %map.lol
unset %map.lol
unset %map.check
unset %map.check2
halt
}
else {
}
inc %m
}
rcon say $me $+ : Map ' $+ %map.lol $+ ' not found.
unset %map.lol
unset %map.check
unset %map.check2
halt
}
if ($sockerr > 0) {
return
//echo -a error
}
:nextread
var %rcon.data
//sockread -f %rcon.data
if ($sockbr == 0) {
return
}
if (%map.check = on) {
if (de_* iswm %rcon.data) || (aim_* iswm %rcon.data) || (cs_* iswm %rcon.data) || (surf_* iswm %rcon.data) || (kz_* iswm %rcon.data) || (as_* iswm %rcon.data) {
write maps.txt $remove(%rcon.data,.bsp)
.timerlasddd 1 1 set %map.check2 on
.timerlasdd 1 1 rcon echo
.timerloasd 1 1 unset %map.check
}
}
if (%rcon.data == $null) goto nextread
else {
if (map* iswm %rcon.data) {
msg %info.chan Map: $gettok(%rcon.data,3,32)
}
if (*joined team* iswm $gettok(%rcon.data,3,34)) {
if (*TERRORIST* iswm $gettok(%rcon.data,4,34)) {
write t.txt $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,")
if ($read(ct.txt, w, * $+ $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,") $+ *)) {
write -dl $+ $readn ct.txt
}
}
if (*CT* iswm $gettok(%rcon.data,4,34)) {
write ct.txt $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,")
if ($read(t.txt, w, * $+ $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,") $+ *)) {
write -dl $+ $readn t.txt
}
}
}
if (*disconnected* iswm $gettok(%rcon.data,3,34)) {
if ($read(t.txt, w, * $+ $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,") $+ *)) {
write -dl $+ $readn t.txt
}
if ($read(ct.txt, w, * $+ $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),1,60),<,") $+ *)) {
write -dl $+ $readn ct.txt
}
if (%log.server = on) {
msg %log.chan  $+ $gettok($gettok(%rcon.data,2,34),1,60) $+ 7 disconnected
}
}
if (players* iswm %rcon.data) {
msg %info.chan Players: $replace($remove($gettok(%rcon.data,3-,32),$chr(40),$chr(41),max,$chr(32)),active,/)
}
if (tcp/ip* iswm %rcon.data) {
msg %info.chan IP: $gettok(%rcon.data,3-,32)
}
if (ÿÿÿÿlhostname* iswm %rcon.data) {
msg %info.chan Hostname: $gettok(%rcon.data,2-,32)
}
if (%rcon.data == $null) {
goto nextread
}
if (%rcon.data == %log.lastline) {
goto nextread
}
if (%rcon.data != $null) {
if (*Started map* iswm %rcon.data) {
.remove ct.txt
.remove t.txt
}
if (*!start* iswm %rcon.data) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),-3,62),<)) {
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_aim 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar pausable 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_maxspeed 320
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_timelimit 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_maxrounds 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_forcechasecam 2
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_friendlyfire 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_roundtime 3
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_footsteps 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_tkpunish 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_stepsize 18
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_airmove 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_airaccelerate 10
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_roundtime 3
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_footsteps 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_tkpunish 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_limitteams 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_freezetime 7
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_gravity 800
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_c4timer 35
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_buytime 0.25
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_startmoney 800
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_maxrate 25000
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_minrate 3000
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_hostagepenalty 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_maxupdaterate 100
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_roundtime 1.75
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_footsteps 1
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_tkpunish 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_limitteams 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_freezetime 7
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_c4timer 35
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_buytime 0.25
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_startmoney 800
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_maxrate 25000
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_minrate 3000
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_hostagepenalty 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_maxupdaterate 100
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : MR15 rules loaded!
.timers1 1 1 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : LIVE IN 3 RESTARTS
.timers2 1 3 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : LIVE IN 2 RESTARTS
.timers3 1 6 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : LIVE IN 1 RESTARTS
.timerstart1 1 1 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_restartround 1
.timerstart2 1 3 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_restartround 1
.timerstart3 1 5 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_restartround 5
.timerstart4 1 8 sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : Game is live! - Server powered by ServerBot BETA
}
inc %i
}

}
if (*!pregame* iswm %rcon.data) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),-3,62),<)) {
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_freezetime 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_forcechasecam 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_startmoney 16000
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar mp_friendlyfire 0
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar say $me $+ : Pregame settings loaded.
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar sv_restartround 1
}
inc %i
}
}
if (*!kick t* iswm %rcon.data) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),-3,62),<)) {
var %k = 1
while (%k <= $lines(t.txt)) {
rcon kick " $+ $read(t.txt, %k) $+ " Terrorist team KICKED
inc %k
}
}
inc %i
}
}
if (!log* iswm $gettok(%rcon.data,4,34)) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),-3,62),<)) {
set %log.server $gettok($gettok(%rcon.data,4,34),2,32)
if (%log.server = off) && (%log.leaveonstop = on) {
/part %log.chan Server log stopped.
unset %log.leaveonstop
}

set %log.chan $gettok($gettok(%rcon.data,4,34),3,32)
if (%log.server = on) {
if ($me ison %log.chan) {
msg %log.chan Scorebot started.
}
else {
/join %log.chan
msg %log.chan Scorebot started.
set %log.leaveonstop on
}

}
rcon say $me $+ : Server log $iif(%log.server = on,enabled on %log.chan $+ .,disabled log.)
}
inc %i
}
}
if (!saylog* iswm $gettok(%rcon.data,4,34)) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,6- $+ $numtok(%rcon.data,32),32),-3,62),<)) {
set %log.say $gettok($gettok(%rcon.data,4,34),2,32)
rcon say $me $+ : $iif(%log.say = on,Enabled say in log.,Disabled say in log.)
}
inc %i
}
}
if (!status* iswm $gettok(%rcon.data,4,34)) {
rcon say $me $+ : $iif(%log.server = on,Server log enable on %log.chan $+ .,Server log disable.)
$iif(%log.server = on, $iif(%log.say = on,rcon say $me $+ : Say is enable in log.,rcon say $me $+ : Say is disable in log.),)
}
if (*triggered*"Planted_The_Bomb"* iswm %rcon.data) {
set %bombplant $remove($gettok($gettok(%rcon.data,2,34),3,60),>)
if (%frags. [ $+ [ %bombplant ] ] = $null) {
set %frags. [ $+ [ %bombplant ] ] 0
}
if (%log.server = on) {
.msg %log.chan 4 $+ $gettok($gettok(%rcon.data,2,34),1,60) 7plantet the bomb
}
}
if (*Team*"*"*triggered* iswm %rcon.data) {
if (*Team*"TERRORIST"*triggered*"Target_Bombed"* iswm %rcon.data) {
set %frags. [ $+ [ %bombplant ] ] %frags. [ $+ [ %bombplant ] ] + 3
if (%death. [ $+ [ %bombplant ] ] = $null) {
set %death. [ $+ [ %bombplant ] ] 0
}
unset %bombplant
}
if (%log.server = on) {
.msg %log.chan 7Team $iif(CT == $gettok(%rcon.data,2,34),10,4) $+ $gettok(%rcon.data,2,34) $+ 7 wins the round - 10CT: $gettok(%rcon.data,6,34) 4T: $gettok(%rcon.data,8,34)
}
}
if (*World*triggered*"Restart_Round* iswm %rcon.data) {
unset %death.*
unset %frags.*
if (%log.server = on) {
.msg %log.chan ********** $replace($remove($gettok(%rcon.data,2,34),$chr(40),$chr(41)),$chr(95),$chr(32)) **********
}
}

if (%log.server = on) {
if (*"*"*killed*"*"*with* iswm %rcon.data) {
if (%frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] = $null) { set %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] 0 }
if (%death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] = $null) { set %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] 0 }
if (%frags. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] = $null) { set %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] 0 }
if (%death. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] = $null) { set %death. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] 0 }
inc %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ]
inc %death. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ]
.msg %log.chan $iif(* $+ TERRORIST $+ * iswm $gettok(%rcon.data,2,34),4,10)  $+ $gettok($gettok(%rcon.data,2,34),1,60) $+  $+ ( $+ %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ / $+ %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ ) $+  7killed $+ $iif(* $+ TERRORIST $+ * iswm $gettok(%rcon.data,4,34),4,10)  $+ $gettok($gettok(%rcon.data,4,34),1,60) $+  $+ ( $+ %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] $+ / $+ %death. [ $+ [ $remove($gettok($gettok(%rcon.data,4,34),3,60),>) ] ] $+ ) $+  7with  $+ $gettok(%rcon.data,6,34) $+ 
}
if (*Team*"*"*scored*"*"*with* iswm %rcon.data) {
.msg %log.chan 7Team $iif(CT == $gettok(%rcon.data,2,34),10CT,4T) 7end score: 12 $+ $gettok(%rcon.data,4,34)
}

if (*entered*the*game* iswm %rcon.data) {
if (%frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] = $null) { set %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] 0 }
if (%death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] = $null) { set %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] 0 }
.msg %log.chan  $+ $gettok($gettok(%rcon.data,2,34),1,60) $+ 7 entered the game
}
if (*triggered*"Spawned_With_The_Bomb"* iswm %rcon.data) {
.msg %log.chan 4 $+ $gettok($gettok(%rcon.data,2,34),1,60) $+ ( $+ %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ / $+ %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ ) $+  7spawned with bomb
}
if (%log.say = on) {
if ($remove($gettok(%rcon.data,3,34),$chr(32)) = say) {
.msg %log.chan $iif(*TERRORIST* iswm $gettok(%rcon.data,2,34),4,10) $+ $gettok($gettok(%rcon.data,2,34),1,60) $+ ( $+ %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ / $+ %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ ) $+ : $gettok(%rcon.data,4,34)
}
if ($remove($gettok(%rcon.data,3,34),$chr(32)) = say_team) {
.msg %log.chan $iif(*TERRORIST* iswm $gettok(%rcon.data,2,34),4,10) $+ $gettok($gettok(%rcon.data,2,34),1,60) $+ ( $+ %frags. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ / $+ %death. [ $+ [ $remove($gettok($gettok(%rcon.data,2,34),3,60),>) ] ] $+ ) $+ (say_team): $gettok(%rcon.data,4,34)
}
}
}
if (*!kick ct* iswm %rcon.data) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,2,34),3,60),<)) {
var %k = 1
while (%k <= $lines(ct.txt)) {
rcon kick " $+ $read(ct.txt, %k) $+ " Counter-Terrorist team KICKED
inc %k
}
}
inc %i
}
}
if (*!info* iswm %rcon.data) && (*Server say* !iswm %rcon.data) {
rcon say $me $+ : Hallo, I'm ServerBot v. 0.6 BETA
rcon say $me $+ : I'm made by Birkeline @ #KugleMus (Quakenet)
rcon say $me $+ : To see what I can do for you type: !help.
goto nextread
}
if (*!help* iswm %rcon.data) && (*Server say* !iswm %rcon.data) && (*rcon* !iswm %rcon.data) {
rcon say $me $+ : Commands are:
rcon say $me $+ : !start - Starts the game with MR15 rules.
rcon say $me $+ : !pregame - Loads pregame settings.
rcon say $me $+ : !map 'de_dust2' - Changes map.
rcon say $me $+ : !kick 't/ct' - Kicks a team.
rcon say $me $+ : !log 'on/off' '#channel' - Starts/stops log on #channel.
rcon say $me $+ : !saylog 'on/off' - Displays say in log.
goto nextread
}
if (*!map* iswm %rcon.data) {
var %i = 1
while (%i <= $lines(steam.txt)) {
if (* $+ $read(steam.txt, %i) $+ * iswm $remove($gettok($gettok(%rcon.data,2,34),3,60),<)) {
set %map.check on
remove maps.txt
set %map.lol $gettok($gettok(%rcon.data,4,34),2,32)
rcon maps *
}
inc %i
}
}
}
}
if (ÿÿÿÿchallenge rcon isin %rcon.data) {
/rcon logaddress_del %myip %myport
/sockclose gameserver
set %rcon.challenge $gettok(%rcon.data,3,32)
set %myip $ip
set %myport 8001
//sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar logaddress_add %myip %myport
}
if (ÿÿÿÿ9Bad challenge. isin %rcon.data) {
/rcon logaddress_del %myip %myport
/sockclose gameserver
set %myip $ip
set %myport 8001
//sockudp -k gameserver %myport %rcon.server ÿÿÿÿchallenge rcon
}
if (ÿÿÿÿ9No challenge for your address. isin %rcon.data) {
/rcon logaddress_del %myip %myport
/sockclose gameserver
set %myip $ip
set %myport 8001
//sockudp -k gameserver %myport %rcon.server ÿÿÿÿchallenge rcon
}
goto nextread
}

alias rcon {
sockudp -k gameserver %myport %rcon.server ÿÿÿÿrcon %rcon.challenge %tempvar $1-
}
on *:TEXT:!info:#:{
set %info.chan $chan
/rcon status
}
on 10:TEXT:!addID*:#:{
if (!$read(steam.txt, w, * $+ $2 $+ *)) {
write steam.txt $2
msg $chan Steam ID: $2 is added to the database.
halt
}
if ($read(steam.txt, w, * $+ $2 $+ *)) {
msg $chan Steam ID: $2 is already in the database.
}
}
on 10:TEXT:!server*:?:{
/sockclose gameserver
set %rcon.server $2 $3
set %tempvar $4
rcon echo
}
on 10:TEXT:!rcon*:#:{
rcon $2-
}
on 10:TEXT:!addID*:#:{
if (!$read(steam.txt, w, * $+ $2 $+ *)) {
write steam.txt $2
msg $chan Steam ID: $2 is added to the database.
halt
}
if ($read(steam.txt, w, * $+ $2 $+ *)) {
msg $chan Steam ID: $2 is already in the database.
msg $chan $readn
}
}
on 10:TEXT:!delID*:#:{
if ($read(steam.txt, w, * $+ $2 $+ *)) {
/write -ds $+ $2 steam.txt
msg $chan Steam ID Deleted.
halt
}
if (!$read(steam.txt, w, * $+ $2 $+ *)) {
msg $chan Steam ID wasn't found in database.
}
}
on 10:TEXT:!addadmin*:#:{
if ($2 ison $chan) {
guser 10 $2 3
msg $chan User ' $+ $2 $+ ' added.
}
}
on 10:TEXT:!deladmin*:#:{
if ($2 ison $chan) {
ruser 10 $2 3
msg $chan User ' $+ $2 $+ ' deleted.
}
}