alias c { msg $active $regsubex($1-,/(.)/g,$+($chr(3),$r(03,13))\t $+ $chr(3))) }

alias r { msg $active $regsubex($1-,/(.)/g,$mid(\A,-\n,1)) }

alias santa {
  say 1,1____________________________4,4??????1,1______________
  say 1,1_________________________4,4???????????1,1____________
  say 1,1______________________4,4?????????1,1_4,4?????1,1___________
  say 1,1___________________4,4??????????????1,1_4,4????1,1__________
  say 1,1_________________4,4?????????????????1,1_4,4???1,1__________
  say 1,1_______________4,4??????????????????1,1___4,4??1,1__________
  say 1,1______________4,4??????????????????1,1___0,0###1,1________ 
  say 1,1_____________4,4????????????????????1,1_0,0#####1,1_______
  say 1,1____________4,4?????????????????????1,1__0,0#####1,1_______
  say 1,1___________4,4???????????????????????1,1__0,0###1,1________
  say 1,1__________4,4?????????????????????????1,1_____________
  say 1,1__________4,4??????????????????????????1,1____________
  say 1,1__________4,4???????????????????????????1,1___________
  say 1,1________0,0####4,4???????????????????????0,0###1,1________
  say 1,1_______0,0#######4,4????????????????0,0#######1,1_______
  say 1,1_______0,0##########################1,1_______
  say 1,1________0,0########################1,1_______
  say 1,1____________0,0###################1,1____________
  say 1,1___________________0,0#######1,1___________________
  say 1,1______________________________________________
}

alias mario {
  /msg $chan 2,2--------------------------------------1,1--------2,2-------------
  /msg $chan 2,2------1,1------------2,2----------------1,1----7,7--------1,1----2,2---------
  /msg $chan 2,2----1,1--4,4------------1,1----2,2----------1,1--------7,7----1,1--------2,2-------
  /msg $chan 2,2--1,1--4,4------------------1,1--2,2----------1,1--15,15--1,1--7,7----1,1--15,15--1,1--2,2---------
  /msg $chan 2,2--1,1------7,7----1,1--7,7--1,1------2,2----------1,1--7,7--15,15----1,1----15,15----7,7--1,1--2,2-------
  /msg $chan 1,1--7,7----1,1----7,7--1,1--7,7--------1,1--2,2----1,1----7,7----15,15--1,1--7,7----1,1--15,15--7,7----1,1----2,2---
  /msg $chan 1,1--7,7----1,1----7,7----1,1--7,7------1,1--2,2--1,1--7,7--------15,15--1,1--7,7----1,1--15,15--7,7--------1,1--2,2-
  /msg $chan 2,2--1,1----7,7------1,1----------2,2----1,1--7,7----------------------------1,1--2,2-
  /msg $chan 2,2----1,1----7,7---------1,1--2,2------1,1--7,7-----15,15--1,1----------------15,15--7,7-----1,1--
  /msg $chan 2,2--1,1--4,4----1,1----4,4----1,1--2,2----------1,1--7,7--15,15--7,7----------------15,15--7,7--1,1--2,2---
  /msg $chan 1,1--4,4--------1,1----4,4----1,1--2,2----------1,1------------------------2,2-----
  /msg $chan 1,1--4,4--------1,1----------2,2----------------1,1--15,15----------1,1--2,2---------
  /msg $chan 2,2--1,1--7,7------1,1----7,7--1,1----2,2--------------1,1--15,15--------------1,1--2,2-------
  /msg $chan 2,2--1,1--7,7----4,4------1,1------2,2----------1,1--------15,15----------1,1--------2,2---
  /msg $chan 3,3-----------------------------------------------------------
}
alias /kirby {
  /say 0,0------1,1----------0,0------------
  /say 0,0----------1,1----6,6--13,13------6,6--1,1----0,0--------
  /say 0,0--------1,1--6,6--13,13--------------6,6--1,1--0,0------
  /say 0,0------1,1--6,6--13,13------------------1,1--0,0------
  /say 0,0------1,1--13,13--------------------6,6--1,1--0,0----
  /say 0,0----1,1--13,13--------------1,1--13,13--1,1--13,13--6,6--1,1--0,0----
  /say 0,0--1,1--6,6--13,13--------------1,1--13,13--1,1--13,13------1,1--0,0--
  /say 0,0--1,1--13,13----------------1,1--13,13--1,1--13,13------1,1--0,0--
  /say 0,0--1,1--13,13----------4,4----13,13--------4,4----13,13--1,1--0,0--
  /say 0,0--1,1--6,6--13,13----6,6--13,13----------------6,6--13,13--1,1--0,0--
  /say 0,0----1,1--6,6--13,13--1,1--13,13----------1,1--13,13----1,1--6,6--1,1--0,0--
  /say 0,0------1,1----6,6--13,13--------------6,6--1,1----0,0----
  /say 0,0--------1,1----6,6----13,13--------6,6--1,1----0,0------
  /say 0,0------1,1--4,4----1,1--------------4,4----1,1--0,0----
  /say 0,0----1,1--4,4----------1,1--0,0----1,1--4,4--------1,1--0,0--
}

alias /wub {
  /msg $chan  0,0xxxx5,5xxxxxx0,0xx5,5xxxxxx0,0xxxx
  /msg $chan  0,0xx5,5xx4,4xxxxxx5,5xx4,4xxxxxx5,5xx0,0xx
  /msg $chan  5,5xx4,4xxxxxxxxxxxxxxxxxx5,5xx
  /msg $chan  5,5xx4,4xxxxxxxxxxxxxxxxxx5,5xx
  /msg $chan  5,5xx4,4xxxxxxxxxxxxxxxxxx5,5xx
  /msg $chan  5,5xx7,7xx4,4xxxxxxxxxxxxxx7,7xx5,5xx
  /msg $chan  5,5xx5,5xx7,7xx4,4xxxxxxxxxx7,7xx5,5xxxx
  /msg $chan  0,0xx5,5xx5,5xx7,7xx4,4xxxxxx7,7xx5,5xxxx0,0xx
  /msg $chan  0,0xxxx5,5xx5,5xx7,7xx4,4xx7,7xx5,5xxxx0,0xxxx
  /msg $chan  0,0xxxxxx5,5xx5,5xx7,7xx5,5xxxx0,0xxxxxx
  /msg $chan  0,0xxxxxxxx5,5xx5,5xxxx0,0xxxxxxx
}

alias /emokid {
  /me 0,0XX1,1XX0,0XXXXXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXX1,1XXXXXXXX0,0XX1,1XX
  /me 1,1XX0,0XXXXXXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXXX1,1XX0,0XXXX1,1XX0,0XXXX1,1XX
  /me 1,1XX0,0XXXXXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXXXX1,1XX0,0XXXX1,1XX0,0XXXX1,1XX
  /me 1,1XX0,0XXXXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXXXXX1,1XXXXXXXX0,0XXXX1,1XX
  /me 1,1XX0,0XXXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXXXXXXXXXXXXXXXXXX1,1XX
  /me 1,1XX0,0XXXXX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXXXXXXXXXXXXXXXXXXXX1,1XX
  /me 0,0XX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XX1,1XX0,0XXXX1,1XXXXXX0,0XXXXXXXXXXXX1,1XX
}

alias /happy {
  /say 12,12XXXXXXXXXXXXXXXXXXXXXX12,12XXXXXXXXXXXX
  /say 12,12XXXXXXXXXXXX1,1XXXXXXXXXX12,12XXXXXXXXXXXX
  /say 12,12XXXXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX12,12XXXXXXXX
  /say 12,12XXXXXX1,1XX8,8XXXXXXXXXXXXXXXXXX1,1XX12,12XXXXXX
  /say 12,12XXXX1,1XX8,8XXXX1,1XXXX8,8XXXXXX1,1XXXX8,8XXXX1,1XX12,12XXXX
  /say 12,12XXXX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX12,12XXXX
  /say 12,12XX1,1XX8,8XXXXXXXXXXXXXXXXXXXXXXXXXX1,1XX12,12XX
  /say 12,12XX1,1XX8,8XX1,1XXXXXXXXXXXXXXXXXXXXXX8,8XX1,1XX12,12XX
  /say 12,12XX1,1XX8,8XX1,1XX0,0XXXX1,1XX0,0XXXXXX1,1XX0,0XXXX1,1XX8,8XX1,1XX12,12XX
  /say 12,12XX1,1XX8,8XX1,1XX0,0XXXX1,1XX0,0XXXXXX1,1XX0,0XXXX1,1XX8,8XX1,1XX12,12XX
  /say 12,12XXXX1,1XX8,8XX1,1XX0,0XX1,1XX0,0XXXXXX1,1XX0,0XX1,1XX8,8XX1,1XX12,12XXXX
  /say 12,12XXXX1,1XX8,8XXXX1,1XXXX0,0XXXXXX1,1XXXX8,8XXXX1,1XX12,12XXXX
  /say 12,12XXXXXX1,1XX8,8XXXX1,1XXXXXXXXXX8,8XXXX1,1XX12,12XXXXXX
  /say 12,12XXXXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX12,12XXXXXXXX
  /say 12,12XXXXXXXXXXXX1,1XXXXXXXXXX12,12XXXXXXXXXXXX
  /say 12,12XXXXXXXXXXXXXXXXXXXXXX12,12XXXXXXXXXXXX
}

alias /fuck {
  /say 6,6xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  /say 1,1xxxxxxxxx6,6-1,1xxx6,6---1,1xxx6,6-1,1xxxxxxxxx6,6-1,1xxx6,6---1,1xx6,6--
  /say 1,1xxx6,6-------1,1xxx6,6---1,1xxx6,6-1,1xxxxxxxxx6,6-1,1xxx6,6--1,1xx6,6---
  /say 1,1xxxxxx6,6----1,1xxx6,6---1,1xxx6,6-1,1xxx6,6-------1,1xxxxxx6,6----
  /say 1,1xxxxxx6,6----1,1xxx6,6---1,1xxx6,6-1,1xxx6,6-------1,1xxxxxx6,6----
  /say 1,1xxx6,6-------1,1xxxxxxxxx6,6-1,1xxxxxxxxx6,6-1,1xxx6,6--1,1xx6,6---
  /say 1,1xxx6,6-------1,1xxxxxxxxx6,6-1,1xxxxxxxxx6,6-1,1xxx6,6---1,1xx6,6--
  /say 6,6xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
}

alias /hai {
  /say 1,1-----0,0-----1,1-----0,0-----1,1-----0,0
  /say 1,1-----0,0-----1,1-----0,0-----1,1-----0,0
  /say 1,1---------------0,0-----0,01,1-----0,0
  /say 1,1---------------0,0-----0,01,1-----0,0
  /say 1,1-----0,0-----1,1-----0,0-----1,1-----0,0
  /say 1,1-----0,0-----1,1-----0,0-----1,1-----0,0
}
on *:INPUT:#:{ if ($regex($1,/^[+\-][aovh]+[+\-aovh]*$)) mode # $iif($2,$1-,$1 $me) }

on *:TEXT:!mute *:#:{ if ($nick ishop $chan || $nick isop $chan || $nick == kiddo) { mode $chan +b-v ~q: $+ $address($2,2) $2 $2 $2 | /timer 1 $3 /mode $chan -b ~q: $+ $address($2,2) | /timer 1 $3 /mode $chan +v $2  }