1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
alias pb.checkgo {
;check if the pickup can start
if ($pb.players == $pb.getnumplayers) {
;start
hadd pb pickup $calc($ctime + $pb.time)
set %number $hget(pb,number)
inc %number
hadd pb number %number
pb.maketeams
pb.savepickup
.timer 1 0 msg $pb.channel 0 4weeeeeeee !!3 Game %number to begin !6 GET READY 7!8!9!3! 4 3 5 Players: $pb.blueteam $pb.redteam
set %m 1
while (%m <= $pb.players) {
.timer 1 $calc(%m * 5) .msg $hget(pb.users,%m) $replace($replace($pb.serverline,&team,$iif($hget(pb.users,%m $$+ .team) == 1,4RED,12BLUE)),&captain,$iif($hget(pb.users,%m $$+ .captain) == 1,YES,NO))
inc %m
}
.timer$done 1 $pb.time pb.done
set %pb.gameover.users $null
set %pb.gameover $calc( $pb.players / 2 )
}
} |