#bomb off

;--BOMB

on *:TEXT:!bomb*:#:{ if (((!%bombname) && ($2 ison $chan) && ($2 != $me))) { set %bombname $2 | msg $chan 10 $nick activates the bomb and throws it to %bombname $+ . !Bomb <NICK>  | .timerhalf 1 30 msg # 10 30 sec left!!  | .timerstats 1 60 inc %bombstats. [ $+ [ %bombname ] ] 1 | .timerwin 1 60 inc %bombscore. [ $+ [ %bombwin ] ] 1 | .timerbomb 1 60 msg # 10Bye bye 4,11 $+(%,bombname) <(( BOOM ))>  | .timerunset 1 61 /unset %bombname }
elseif (((%bombname == $nick) && ($2 ison $chan) && ($2 != $me))) { set %bombwin $nick | set %bombname $2 | msg # 10 %bombname catch  } }



;This tells how many times a person has died <type !bstats nick>
on *:text:!bstats*:#:{ if (!$2) { notice $nick %bombstats. [ $+ [ $nick ] ] deaths } | else { notice $nick %bombstats. [ $+ [ $2 ] ] deaths } }
on *:text:!Bscore:#:{ .notice $nick You have %bombscore. [ $+ [ $nick ] ] points }

#bomb end

;--KICKBALLS

#kickballs on

on *:TEXT:!KICKBALLS*:#:{ if ($2 ison $chan) { if (%ballskick. [ $+ [ $nick ] ] != $2) { msg # Best off 3 ballkicks for a maximum of 30 days in the hospital | set %ballscount. [ $+ [ $nick ] ] 1 | set %ballskick. [ $+ [ $nick ] ] $2 | set %ballsscore. [ $+ [ $nick ] ] $rand(1,10) | msg # First Kick sends %ballskick. [ $+ [ $nick ] ] %ballsscore. [ $+ [ $nick ] ] days to the hospital }
    elseif (%ballscount. [ $+ [ $nick ] ] == 1) { inc %ballscount. [ $+ [ $nick ] ] | inc %ballsscore. [ $+ [ $nick ] ] $rand(1,10) | msg $chan Second kick increases set %ballskick. [ $+ [ $nick ] ] hospital days to %ballsscore. [ $+ [ $nick ] ] }
    elseif (%ballscount. [ $+ [ $nick ] ] == 2) { inc %ballsscore. [ $+ [ $nick ] ] $rand(1,10) | msg # Third kick to %ballskick. [ $+ [ $nick ] ] now $read(nastyballs.txt) balls <(( ouch ))>  Total of %ballsscore. [ $+ [ $nick ] ] days to the hospital. | if (%ballsscore. [ $+ [ $nick ] ] > 10) && (%ballsscore. [ $+ [ $nick ] ] < 20) { msg # Between 10 & 20 is ok i guess } | elseif (%ballsscore. [ $+ [ $nick ] ] > 20) && (%ballsscore. [ $+ [ $nick ] ] < 25) { msg # Better than 20 days. Soo nice :) } | elseif (%ballsscore > 25) { msg # Are you using safety shoes??? No Perfect aiming i think it was. :D } | /unset %ballskick. [ $+ [ $nick ] ] | /unset %ballsscore. [ $+ [ $nick ] ] | /unset %ballscount. [ $+ [ $nick ] ]     } 
  }
}

#kickballs end

;--SSP

#ssp off

on *:text:?setname*:#: {
  if (Oneshot isin $address($nick,1)) { set %name1 $2 | set %name2 $3 | unset %name1.lead | unset %name2.lead | msg $chan $nick sets player1 to $2 and player2 to $3 | msg $chan type /notice |-Dealer-| (!stone, !scissors og !paper) and then !ssp when both are ready! }
  else { /msg $chan WTF do you think you are doing $nick . You are 4NOT allowed that }
}


on *:text:?seename1*:#: {
  if (Oneshot isin $address($nick,1)) { msg $chan player 1 is %name1 . }
  else { /msg $chan WTF do you think you are doing $nick . You are 4NOT allowed that }
}

on *:TEXT:!resetssp:#:{ unset %name1.lead | unset %name2.lead }

on *:text:?seename2*:#: {
  if (Oneshot isin $address($nick,1)) { msg $chan player 2 is %name2 . }
  else { /msg $chan WTF do you think you are doing $nick . You are 4NOT allowed that }
}

on *:TEXT:!lead:#:{ msg $chan %name1 %name1.lead , %name2 %name2.lead }

on *:notice:!stone:*:{ if ($nick == %name1) { set %name1-g 1 } | elseif ($nick == %name2) { set %name2-g 1 } | /beep 3 60 }
on *:notice:!paper:*:{ if ($nick == %name1) { set %name1-g 2 } | elseif ($nick == %name2) { set %name2-g 2 } | /beep 3 60 }
on *:notice:!scissors:*:{ if ($nick == %name1) { set %name1-g 3 } | elseif ($nick == %name2) { set %name2-g 3 } | /beep 3 60 }
on 1:text:!ssp:#:{ if (%name1-g == %name2-g) { msg # 4,1 You picked the same, try again.  }
  elseif ((%name1-g == 1) && (%name2-g == 2)) { msg # 4,1 %name2 wins  | inc %name2.lead | if (%name2.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name2 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
  elseif ((%name1-g == 1) && (%name2-g == 3)) { msg # 4,1 %name1 wins  | inc %name1.lead | if (%name1.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name1 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
  elseif ((%name1-g == 2) && (%name2-g == 1)) { msg # 4,1 %name1 wins  | inc %name1.lead | if (%name1.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name1 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
  elseif ((%name1-g == 2) && (%name2-g == 3)) { msg # 4,1 %name2 wins  | inc %name2.lead | if (%name2.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name2 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
  elseif ((%name1-g == 3) && (%name2-g == 1)) { msg # 4,1 %name2 wins  | inc %name2.lead | if (%name2.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name2 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
  elseif ((%name1-g == 3) && (%name2-g == 2)) { msg # 4,1 %name1 wins  | inc %name1.lead | if (%name1.lead == 10) { unset %name1.lead | unset %name2.lead | msg $chan %name1 is first to 10 } | /splay $read(C:\Programmer\mIRC\splay.txt) }
}

#ssp end

;--NUM-GAME

#Num on

on *:text:!num-game*:#:{
  if (Oneshot isin $address($nick,1)) { goto start }
  else { notice $nick You dont have right to start the game ask Admins to start it | halt }
  :start
  if ($2 == on) { set %game1 on | set %game1-chan $chan | set %game1-num $rand(1,50) | msg $chan 4||7 NUM-GAME IS 9ON7, NUM 1-50 ( !GUESS 3SPACE 7NUMBER ) 4||7 }
  if ($2 == off) { set %game1 off | set %game1-chan 0000 | set %game1-num 0000 | msg $chan 4||7 NUM-GAME IS 4OFF7 ( GUESS ) 4||7 }
}


on *:text:!guess*:#:{
  if (%game1 == off) { msg $chan 4||7 NUM-GAME IS 4OFF7 4||7 | HALT }
  if (%game1 == on) {
    if ($2 == %game1-num) { msg $chan 4||7 $nick YOU WIN. $2 WAS THE RIGHT NUM 4|| | set %game1-num $rand(1,50) | inc %name. [ $+ [ $nick ] ] 5 | HALT }
    if ($2 <= %game1-num) { msg $chan 4||7 HIGHER 4||7 | dec %.name [ $+ [ $nick ] ] 1 | if (%.name [ $+ [ $nick ] ] <= 0) { /kick $nick come back when your luck changes } | HALT }
    if ($2 >= %game1-num) { msg $chan 4||7 LOWER 4||7 | dec %.name [ $+ [ $nick ] ] 1 | if (%.name [ $+ [ $nick ] ] <= 0) { /kick $nick come back when your luck changes } | HALT } 
  }         
}
#num end

;--SLOTS

#Slots off

on *:text:!Pull*:#:{ 
  set %1-pull off
  if (%1-pull == off) { 
    { set %var1 $read($mircdir $+ enarmet.txt) | set %var2 $read($mircdir $+ enarmet.txt) | set %var3 $read($mircdir $+ enarmet.txt) | dec %.name [ $+ [ $nick ] ] 1 | /beep 3 60 }
    { notice $nick 2|4,1 %var1  2|4,1 %var2 2|4,1 %var3 2|   }
    { if (((%var1 == F) && (%var2 == F) && (%var3 == F))) { inc %.name [ $+ [ $nick ] ] 30 | notice $nick Hey the full FFF $nick... 2,0BONUS and a chance to gamble type !gamble or just !pull to go on | set %1-pull off | set %gamble on | set %1-pull off  } }
    { elseif ((%var1 == %var2) && (%var2 == %var3)) {  inc %.name [ $+ [ $nick ] ] 20 | notice $nick Woohooo $nick has all the luck!!  } }
    { else { notice $nick 2!H 1-3 to hold !! | set %1-pull on | if (%.name [ $+ [ $nick ] ] <= 0) { /kick # $nick come back when your luck changes } } }
  }
}

on *:text:!h*:#:{
  if (%1-pull == off) { notice $nick 2First 4!Pull 2to start }
  if (%1-pull == on) {
    if (($2 == 1) || ($3 == 1)) { set %var1 $iif(%var1,$ifmatch,$read($mircdir $+ enarmet.txt)) } 
    else { var %var1 = $read($mircdir $+ enarmet.txt) }
    if (($2 == 2) || ($3 == 2)) { set %var2 $iif(%var2,$ifmatch,$read($mircdir $+ enarmet.txt)) }
    else { var %var2 = $read($mircdir $+ enarmet.txt) }
    if (($2 == 3) || ($3 == 3)) { set %var3 $iif(%var3,$ifmatch,$read($mircdir $+ enarmet.txt)) }
    else { var %var3 = $read($mircdir $+ enarmet.txt) }
    { dec %.name [ $+ [ $nick ] ] 1 | notice $nick 2|4,1 %var1  2|4,1 %var2 2|4,1 %var3 2| | /beep 3 60 }
    { if (((%var1 == F) && (%var2 == F) && (%var3 == F))) { inc %.name [ $+ [ $nick ] ] 20 | notice $nick Hey the full FFF $nick... 2,0BONUS and a chance to gamble type !gamble or just !pull to go on | set %1-pull off | set %gamble on | Halt  } }
    { elseif ((%var1 == F) && (%var2 == F)) { inc %.name [ $+ [ $nick ] ] 5 | notice $nick Not a full FFF but still FF $nick...   0,1:4,1) | set %1-pull off | Halt  } }       
    { elseif ((%var1 == %var2) && (%var2 == %var3)) { inc %.name [ $+ [ $nick ] ] 10 | notice $nick Nice going $nick 0,1:4,1) | set %1-pull off  | Halt } }
    else { notice $nick 2 !Pull  | set %1-pull off | if (%.name [ $+ [ $nick ] ] <= 0) { /kick # $nick come back when your luck changes } | Halt }
  }
}

on *:TEXT:!gamble:#:{ 
  if (%gamble == off) { notice $nick only when you get the FFF bouns | halt }
  elseif (%gamble == on) { { dec %.name [ $+ [ $nick ] ] 30 | var %var1 = $read($mircdir $+ enarmet.txt) | var %var2 = $read($mircdir $+ enarmet.txt) | var %var3 = $read($mircdir $+ enarmet.txt) | dec %.name [ $+ [ $nick ] ] 1 | notice $nick 2|4,1 %var1  2|4,1 %var2 2|4,1 %var3 2| | set %gamble1 off }
    if ((%var1 == %var2) && (%var2 == %var3)) { inc %.name [ $+ [ $nick ] ] 500 | You got it 500 Freaks } 
  else { notice $nick 2 !Pull  | set %gamble off } }
}

#slots end

;--SCRAMBLE

#Scramble on

on *:text:!s-on:#:{  if (Oneshot isin $address($nick,1))  { set %scrstart on | set %chan $chan | /disable #Trivia |  msg %chan Scrabble 2ON $+ . 60 sek til at g�tte, 20 sek til hj�lp, f�rst til 10 rigtige svar. | /scrques  } }
on *:text:!s-off:#:{  if (Oneshot isin $address($nick,1))  { set %scrstart off | /unset %scrscore.* | /enable #trivia | /timerscr* off | notice $nick Scrabble: %scrstart $+ . } }

on *:text:!s-add*:#:{ if ($read(scramblec.txt,w,$2)) { msg # Findes allerede. } | else { write scramble.txt $2 | notice $nick Tilf�jet.. } }

alias scrques { 
  if (%scrstart == on) {  
    set %scrnum $r(1,$lines(scramblec.txt)) 
    set %scr $read(scramblec.txt,%scrnum)  
    msg %chan 4,11 $scramble(%scr)  
    /timerscrnot 1 60 /scrnot 
    /timerscr20 1 40 msg %chan 4,11 Hj�lp: $upper($left(%scr,2)) $+ $scramble($right(%scr,$calc($len(%scr) -2)))  
  } 
  else { msg $chan Scrabble is OFF }
}

alias scramble { 
  if (!$remove($1,$left($1,1))) { 
    /echo 4 -s ERROR: word contains only 1 character. | halt 
  } 
  :start 
  unset %Staxrt %exnd 
  var %staxrt $1 
  while (%staxrt) { 
    var %txmp $rand(1,$len(%staxrt)) 
    var %txmp2 $mid(%staxrt, $+ %txmp $+ , 1 ) 
    if (%exnd) { 
      var %exnd %exnd $+ %txmp2 
    } 
    else { var %exnd %txmp2 } 
    var %staxrt $left(%staxrt,$calc(%txmp - 1)) $+ $right(%staxrt,$calc($len(%staxrt) - %txmp)) 
  } 
  if ( %exnd == $1 ) { goto start } 
  else { return %exnd } 
}


alias scrnot { inc %scrsfw | msg %chan 4,11 svaret $+ : $+ 11,4-  %scr - $+ 4,11 er ikke fundet. | /scrques }

alias scrcorrect { inc %scrscore. [ $+ [ $address(%scrcor,1) ] ]  
  msg %chan 4,11 svaret var: $+  $+ 11,4-  %scr - $+ 4,11 G�ttet af %scrcor <score %scrscore. [ $+ [ $address(%scrcor,1) ] ] $+ > 
  if (%scrscore. [ $+ [ $address(%scrcor,1) ] ] == 10) { msg %chan 11,4 %scrcor har vundet denne runde. | /unset %scrscore.* | /timerscrwon 1 5 /scrques | halt }  
  else { /scrques }
}

on *:text:*:#:{ if (($1 == %scr) && (%scrstart == on)) { set %scrcor $nick | /scrcorrect } }

#Scramble end

;--ROULETTE

#Roulette off

on *:text:!roulette:#:{ if (!%shoot) { set %shoot.1 $r(1,2) | if (%shoot.1 == 1) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } | else { msg # " KLIK " $nick klarede den...N�ste | inc %shoot } }
  if (%shoot == 1) { set %shoot.1 $r(1,2)| if (%shoot.1 == 1) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } | else { msg # " KLIK " $nick klarede den...N�ste | inc %shoot } }
  if (%shoot == 1) { set %shoot.1 $r(1,2)| if (%shoot.1 == 1) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } | else { msg # " KLIK " $nick klarede den...N�ste | inc %shoot } }
  if (%shoot == 1) { set %shoot.1 $r(1,2)| if (%shoot.1 == 1) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } | else { msg # " KLIK " $nick klarede den...N�ste | inc %shoot } }
  if (%shoot == 1) { set %shoot.1 $r(1,2)| if (%shoot.1 == 1) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } | else { msg # " KLIK " $nick klarede den...N�ste | inc %shoot } }
  if (%shoot == 1) { set %shoot.1 $r(1,2)| if ((%shoot.1 == 1) || (%shoot.1 == 2)) { msg # --{{ BANG }}-- $nick er ude | kick # $nick Looser | unset %shoot* } 
  }
}
#Roulette end

;--HOT POTATO

#Hot on

on *:text:!Heat potato:#:{ 
  :one
  set %stiv $nick($chan,$r(1,$nick($chan,0))) 
  if (%stiv == L) || (%stiv == $me) { goto one }
  set %c $chan
  msg # $nick heats the potato
  msg # %stiv You got it -<!toss>-
  timerstiv 1 $r(5,10) burnt
}


on *:text:!toss:#:{ if (%stiv == $nick) { 
    :one
    set %stiv $nick($chan,$r(1,$nick($chan,0))) 
    if (%stiv == L) || (%stiv == $me) || (%stiv == $nick) { goto one }
    msg # phew $nick - %stiv you have it.
    timerstiv 1 $calc(10 / %t) burnt
    if (%t <= 10) { inc %t }
  }
}

alias burnt {
  msg %c %stiv got his fingers burnt.
  unset %stiv
  unset %t
}
#Hot end

���`I�%&/m�{J�J��t��`$ؐ@������iG#)�*��eVe]f@�흼��{���{���;�N'���?\fd
l��J�ɞ!���?~|?"��Ey�')=��y6����h����z��<=��~|W>�Z5�u�A:�f��/>����y�(��G�d^ϲe��!z���Ѳ�Y)5��G��A�8�VeU?������/I=����Yd�E��n�գt����/�q�
�IU�n
�ۻ�/No�������N�|� ��&�}�0��euU��?_O�Y��T˦*s�3�0_�/�	�ۼV�@ʄJ��TH�����Y>��-��tY-���e^7�U���ŋ:�[�`��+�'U�V�G����]�ݻU��e��F�v{^/gy]�{�#���.���u��su�S��]���Uq�?��'賏��E�d�� B���w�^�5�[�*-���w?N�W���2����:�*f���ݝ��=�,|�+h~�%�{��.���0�;J]�-�������E��l���q]d�(�vN����(�<_����z�:[6ۯ�u�գ��_M^�id����i�L�b%3�����x�fn��Ll5%����v��
�f������m�nh���&o�by��D��F�@��/�
@��6+�&����~��5A��-�,�+B��U�����9wE�5}�5$w��aS���(�WW�b���'�uuECh�z�\����Y��K�tN�8�Ҍ�����S�#P1}S�����7H"F�ʧ�y1�!.��.�ie��7	+������FID����Y�KR Ly��^��i�]kROK��E�=��'�i�</.��T�X���E)�o�B�P��Q�Ί:��U}m&�L7
�'�@D��cBa�γ�<-�FQ[T�\��ڶ.&�ւ�������x��-S̓G+�?~N�t
����������od;�M	ۣ�������no��%�0ES�a����L���� ��i�Řh�>7��dMA��:Ĺº���:|cy|���%���n� �i�|��!"Q�yA�m���,���Z�Y
n`��fKH���r�(g����c�Oq~�w��B�Y~����U.<�c���x��C�
{���b�<C�W�Ļ}�}����ey��љ#m�� ����/�;�7��'Yw���ԖE��