on *:TEXT:!vd*:#:{
if (%vd == 1) {
if (!$4) { notice $nick Specify the points | halt }
if ($calc($2 + ($3*2) + ($4*4)) >= 20000) { notice $nick You have spent too many points. Please see !vdrules to see how much you can spend. | halt }
if (%play == 1) { notice $nick A game is already being played. | halt }
if (%vd == 0) { notice $nick Violent Diplomacy is not currently on. Please contact Jcfc so he can turn it on. | halt }
if ($calc($2 + ($3*2) + ($4*4)) <= 20000) {
msg $chan $nick wants to play Violent Diplomacy! Type !vd2 to play with him.
set %vdplay 1
set %p1inf $2
set %p1drag $3
set %p1cav $4
set %play 1
}
}
else { notice $nick Violent Diplomacy is not currently on. Please contact Jcfc so he can turn it on. | halt }
}
on *:TEXT:!vd2*:#:{
if (%vdplay == 1) {
if (!$4) { notice $nick Specify the points | halt }
if ($calc($2 + ($3*2) + ($4*4)) >= 20000) { notice $nick You have spent too many points. Please make your point below 20000. But hurry, soomeone else might play before you! | halt }
if ($calc($2 + ($3*2) + ($4*4)) <= 20000) {
set %p2inf $2
set %p2cav $s3
msg $chan The game is on!
}
}
}