page on

menu @Page {
%page.nick %page.chan:/join %page.chan
clear:/clear | .set %page.nick | .set %page.chan
op
.join %page.nick
..justjoin:/join %page.chan
..hello:/join %page.chan | msg %page.chan hi there %page.nick | msg %page.chan how u doing
..tyback:/join %page.chan | msg %page.chan Ty %page.nick :P
..loliseen:/join %page.chan | msg %page.chan LOL i seen that %page.nick
..youthink:/join %page.chan | msg %page.chan You think so %page.nick
..IMhere:/join %page.chan | msg %page.chan im here %page.nick how can i help you
..you rang:/join %page.chan | msg %page.chan im here | msg %page.chan u rang %page.nick | msg %page.chan how can i help u
.kicks %page.nick
..SHUTAP %page.nick:/raw kick %page.chan %page.nick SHUTAUPPPP :P:P
..You think %page.nick:/raw kick %page.chan %page.nick HAHA-YOU-THINK
.OPS %page.nick
..+Owner in %page.chan:/join %page.chan | /mode %page.chan +q %page.nick
..+Host in %page.chan:/join %page.chan | /mode %page.chan +o %page.nick
..+Voice in %page.chan:/join %page.chan | /mode %page.chan +v %page.nick
..-deop in %page.chan:/join %page.chan | /mode %page.chan -qov %page.nick
}
on :TEXT::#:{
if ($me isin $1-) && ($nick != $me) && (%pager == ON) { /splay page.wav | /window -mk0 @Page | /echo @Page 414 $+ $time(h15:14nn15t14) $+ 4!14 $+ $nick Paged You4!14 $chan 4!14 $1- $+ 4 | .set %page.nick $nick | .set %page.chan $chan | halt | haltdef }

page end

menu menubar {
Pager
.$iif(%pager == ON,$$style(1)) on:/set %pager ON | /enable #page | /echo -a 15(14Pager On!!15)
.$iif(%pager == OFF,$$style(1)) off:/set %pager OFF | /disable #page | /echo -a 15(14Pager Off!!15)
}

voicepager off

on :TEXT::#:{
if ($me isin $1-) && ($nick != $me) && (%pager == ON) { /window -mk0 @Page | /echo @Page 414 $+ $time(h15:14nn15t14) $+ 4!14 $+ $nick Paged You4!14 $chan 4!14 $1- $+ 4 | .set %page.nick $nick | .set %page.chan $chan | voice $1- | halt | haltdef }
}
on 1:START:{
voiceListen
run VoiceMirc.exe
}

alias voiceListen {
var %port 6661
if ($sock(voiceListen)) {
}
else {
.socklisten voiceListen %port
}
}

on :socklisten:voiceListen:{
sockclose voiceSocket
.sockaccept voiceSocket
sockclose voiceListen
echo -s $+(,$color(info),) VoiceListen: Connection established
}

on :sockclose:voiceSocket:{
echo -s $+(,$color(info),) VoiceListen: Connection lost
voiceListen
}

alias Voice {
sockwrite -n voiceSocket Say $1-
}

on ^:TEXT::#: {
if ($ulist($address,voice,1)) {
voice -1 $left($strip($1-),100)
}
}

voicepager end

menu menubar {
VoicePager
.$iif(%voicepager == ON,$$style(1)) on:/set %voicepager ON | /set %pager OFF | /enable #voicepager | /disable #page | /echo -a 15(14Voice Pager On!!15)15(14Pager Off!!15)
.$iif(%voicepager == OFF,$$style(1)) off:/set %voicepager OFF | /set %pager ON | /disable #voicepager | /enable #page | /echo -a 15(14Vioce Pager Off!!15)15(14Pager On!!15)
}

menu nicklist {

Voice
.Add:auser -a voice ! $+ $ialchan($1,#,1).addr
.Remove:ruser voice ! $+ $ialchan($1,#,1).addr
}