on *:text:!sounds:#:{
;if ((%floodsounds) || ($($+(%,floodsounds.,$nick),2))) { return }
;set -u10 %floodsounds On
;set -u30 %floodsounds. $+ $nick On
;Update as more sound commands are added.
;Need to work on shortening this one.
var %sounds !chicken !elementalcohesion !nonono !igottheboons !bane !moo !pewpew !elephant !monkey !toot !doom !babyfart !matingcall
var %sound10 $gettok(%sounds,1,32)
var %sound11 $gettok(%sounds,1-2,32)
var %sound12 $gettok(%sounds,1-3,32)
var %sound13 $gettok(%sounds,1-4,32)
var %sound14 $gettok(%sounds,1-5,32)
var %sound15 $gettok(%sounds,1-6,32)
var %sound16 $gettok(%sounds,1-7,32)
var %sound17 $gettok(%sounds,1-8,32)
var %sound18 $gettok(%sounds,1-9,32)
var %sound19 $gettok(%sounds,1-10,32)
var %sound20 $gettok(%sounds,1-11,32)
var %sound21 $gettok(%sounds,1-12,32)
var %sound22 $gettok(%sounds,1-13,32)
var %sound999 $gettok(%sounds,1-13,32)
;Go all the way to rank 50 for the maximum just incase. (correspond this with the ranks that you actually gain the audio commands.)
if ($ulevel <= 9 ) {
msg $chan you are $ulevel and have no sound commands.
}
else {
;msg $chan $nick $+ $chr(58) $gettok(%sounds,1-13,44)
var %level $ulevel,%result
while ($eval($+(%,sound,%level),2) != $null) {
; no need to escape : with $chr(58) here
%result = %result $v1
inc %level
}
msg $chan $nick $+ : %result
}
}