i got 2 problem on this tcl:
proc pub_game_score {nick uhost hand chan arg} {
global game game_players game_teams
if {[string tolower $chan] == [string tolower $game(chan)]} {
if {!$game(game)} {
putserv "PRIVMSG $chan : No game started! $game(command_start) for next game."
} else {
set i 0
if {$game(team)} {
if {[array names game_teams] != ""} {
putserv "PRIVMSG $chan :02[format "%-4s" "Num"][format "%-15s" "Team"][format "%-6s" "Score"]Nicks (Round $game(round) of $game(rounds))02"
foreach team [array names game_teams] {
incr i
regsub -all " " $game_players($team) ", " nick
putserv "PRIVMSG $chan :[format "%-4s" $i.][format "%-15s" $team][format "%-6s" $game_teams($team)]$nick"
}
putserv "PRIVMSG $chan :End of teams"
} else { putserv "PRIVMSG $chan :There are no teams yet "
}
} else {
if {[array names game_players] != ""} {
putserv "PRIVMSG $chan :02[format "%-4s" "Num"][format "%-15s" "Nick"]Score (Round $game(round) of $game(rounds))02"
foreach nick [array names game_players] {
incr i
putserv "PRIVMSG $chan :[format "%-4s" $i.][format "%-15s" $nick]$game_players($nick)"
}
putserv "PRIVMSG $chan :-- || --"
} else {
putserv "PRIVMSG $chan :No players have yet to score"
}
}
}
}
}
that script make bot reply to chan:
<GameBod> Num Nick Score
<GameBod> 1. Player1 1
<GameBod> 2. Player2 2 (winner)
Quetion 1. what should i do to make bot reply it to chan:
<GameBod> 1. Player2 2 (winner), 2. Player1 1, etc(depand on how many player who play)
proc pub_game_giveup {nick uhost hand chan arg} {
global game game_players game_teams game_guesses
if {[string tolower $chan] == [string tolower $game(chan)]} {
if {!$game(game)} {
putserv "PRIVMSG $chan :No game started! $game(command_start) for next game."
} elseif {[info exists game(question)]} {
if {$game(team)} {
set game(temp2) 0
foreach game(temp) [array names game_players] {
if {[lsearch -exact [string tolower $game_players($game(temp))] [string tolower $nick]] != -1} {
set game(temp2) 1
}
}
if {!$game(temp2)} {
putserv "PRIVMSG $chan :Error $nick: You have not yet joined a team, type $game(command_team) to do so"
return 0
}
}
incr game(round)
putserv "PRIVMSG $game(chan) :The answer is $game(answers)! Next question."
if {$game(type) == 2} {
putserv "PRIVMSG $game(chan) :Clearing Cache!"
} elseif {$game(type) == 1} {
putserv "PRIVMSG $game(chan) :Hint: $game(question)"
if {$game(type) == 1} {
set game(temp) ""
foreach i $game(answers) {
append game(temp) "$i, "
}
set game(temp) [string trimright $game(temp) ", "]
putserv "PRIVMSG $game(chan) :The answer is $game(temp)!"
} else {
putserv "PRIVMSG $game(chan) :Word: $game(scram_answer)"
putserv "PRIVMSG $game(chan) :The answer is $game(answers)"
}
}
unset game(question)
game_killtimers 1
utimer 15 game_init
game_rounds
}
}
}
these script make bot skip the question.
Question 2. what should i do to make bot have limit on skip.. exp 3 times skip and he will ignore that user 'n continiu the game.
thanks for helping ....
Statistics: Posted by Guest — Thu Jan 10, 2002 12:07 pm
]]>