By BrandinA on Jan 18, 2010

Copyright © 2010 – Brandin Arsenault, Known Syntax – BOINC Services, Int. – All rights reserved.

Editing of this script is allowed.

This script is originally from the iKnown IRC Bot which is now discontinued.


25% of this script I edited and wrote as it didn't fit my needs. This was used on the iKnown IRC Bot and was a very fun script for all of the members of my bot to use. To join the lottery they use the join command which is defined below or the command you set. To quit they type the quit command below or the command you set. An AOP (@) must be the one to do the next round command which is below or the command you set.



!ljoin - Joins the lottery.
!lremove - Quits the lottery.
!lnr - Next Round of lottery (declares winner). (AOP's (@)'s only)

on *:start:{
  if !$hget(Lotto) { .hmake Lotto 10 }
on *:text:!ljoin:#:{
  if ($numtok($hget(Lotto,$+($network,.,$chan)),44) <= 10) {
    .hadd -m Lotto $+($network,.,$chan) $addtok($hget(Lotto,$+($network,.,$chan)),$nick,44)
    describe # smiles as $nick starts playing in the lottery.
    .msg $chan Current lottery participants are $replace($sorttok($hget(Lotto,$+($network,.,$chan)),44),$chr(44),$+($chr(44),$chr(32))).
  else {
    describe # apologizes to $nick $+ .  Sorry, but the lottery list is full.
  .msg $chan If everyone is done being added, have an op (@) type !lnr to find out who the winners are.
on *:text:!lnr:#:{
  if $nick ishop $chan {
    while $numtok($hget(Lotto,$+($network,.,$chan)),44)  > 1 {
      .hinc -m Lotto $+(round.,$network,.,$chan)
      .msg $chan Winners in round $hget(Lotto,$+(round.,$network,.,$chan))) are: $getwinners($chan,$network).
    .hdel Lotto $+(round.,$network,.,$chan)
alias -l getwinners {
  var %a = 1, %b = $int($calc($numtok($hget(Lotto,$+($2,.,$1)),44) / 2))
  while %a <= %b {
    var %winner = $numtok($hget(Lotto,$+($2,.,$1)),44)
    %winner = $r(1,%winner)
    %winner = $gettok($hget(Lotto,$+($2,.,$1)),%winner,44)
    var %winners = $addtok(%winners,%winner,44)
    .hadd -m Lotto $+($2,.,$1) $remtok($hget(Lotto,$+($2,.,$1)),%winner,1,44)
    inc %a
  .hadd -m Lotto $+($2,.,$1) %winners
  return $replace(%winners,$chr(44),$+($chr(44),$chr(32)))
on *:text:!lremove:#:{
  describe # sighs as $nick decides to leave the lottery.
  msg $chan Current lottery participants are $replace($sorttok($hget(Lotto,$+($network,.,$chan)),44),$chr(44),$+($chr(44),$chr(32))).
  lotto rem $nick
alias -l lotto {
  .hadd -m Lotto $+($network,.,$2) $remtok($hget(Lotto,$+($network,.,$2)),$1,1,44)
  var %winners = $remtok(%winners,$1,1,44)
on *:part:#:  lotto $nick $chan
on *:kick:#:  lotto $knick $chan
on *:quit:{
  var %a = 1, %b = $comchan($nick,0)
  while %a <= %b {
    lotto $nick $comchan($nick,%a)
    inc %a


Sign in to comment.
BrandinA   -  Jan 22, 2010

If its on YOUR mIRC then no scripts with commands can you do as scripts don't work for yourself.

los capos   -  Jan 21, 2010

looks fun bot not workin for me :(

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.