on *:TEXT:!bet*:#: {
var %betfile bet.ini
var %wager wager.ini
if ($2 isnum) {
var %points $readini(points.ini,$+(#,.,$nick),dinocoins)
var %Subtract = %points - $2
if (%subtraction < 0) {
msg # Sorry $nick you do not have enough points.
}
else {
writeini %betfile $3 $nick 1
writeini %wager $nick wager $2
writeini -n points.ini $+(#,.,$nick) points $calc($readini(points.ini,$+(#,.,$nick)points) - $2)
}
}
else if ($2 = allin) {
writeini %betfile $3 $nick 1
writeini %wager $nick wager $readini(points.ini,$+ (#,.,$nick),points)
writeini -n points.ini $+(#,.,$nick) points 0
}
else if ($2 = close) {
if ($nick !isop #) {
msg # This command is for mods only
}
else {
var %betwinners $ini(%betfile,$3,0)
var %i 0
while (%betwinners) {
%i = %i + 1
var %betwinner $ini(%betfile,$3,%betwinners)
var %betwins %betwins %betwinner
var %increase $readini(%wager, %betwinner, wager)
var %realincrease %increase + %increase / %i
writeini -n points.ini $+(#,.,%betwinner) points $calc($readini(%betfile,$+(#,.,%betwinner),points) + %realincrease)
dec %betwinners
}
msg # The winner(s) are: %betwins
write -c %betfile
write -c %wager
}
}