alias giveaway {
     var %gift $r(1,$lines(gift.txt))
     :1
     var %nick $nick(#,$rand(1,$nick(#,0)))
     if (%nick == x-bot) || (%nick == Internets) || (%nick == Porygon_Z) || (%nick == GambleBot) || (%nick == Cdawg51) { goto 1 }
     msg #cdawgs_pokechat %nick $+ , Cupidchu chose you to receive $read(gift.txt, n, %gift)
     if (%gift == 1) { writeini -n Points.ini $+(#,.,%nick) Points $calc($readini(Points.ini,$+(#,.,%nick),Points) + 500) }
     elseif (%gift == 2) { writeini Points.ini $+(#,.,%nick) Points $calc($readini(Points.ini,$+(#,.,%nick),Points) + 750) }
     elseif (%gift == 3) { writeini Points.ini $+(#,.,%nick) Points $calc($readini(Points.ini,$+(#,.,%nick),Points) + 250) }
     elseif (%gift == 4) { writeini Points.ini $+(#,.,%nick) Points $calc($readini(Points.ini,$+(#,.,%nick),Points) + 100) }
     elseif (%gift == 5) { hinc ticket %nick $+ plusle 1 }
     elseif (%gift == 6) { hinc ticket %nick $+ minun 1 }
     hadd gift time $calc($ctime + 1800)
     hsave gift time
     timer 1 1800 giveaway
}
on *:start:{ var %timer $calc($hget(gift, time) - $ctime) timer 1 %timer giveaway
  hmake gift
  hload gift time
}
1:UNLOAD:{
  hsave gift time
}
on *:TEXT:!gifttime*:#cdawgs_pokechat:{ msg $chan The next giveaway is in $duration($calc($hget(gift, time) - $ctime)) $+ . }