;;;;Buzz-Zyrus SoulFly Multi-Gamer by d33j4y™  ©2010 EvolutionScriptz d0t c0m;;;;
;;;;;;;;;;;;Evolution Scriptz Website http://www.evolutionscriptz.com;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;Event Messager by Travis;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:start:writeini soulfly.ini version $nopath($script) 1.6
on *:unload:remini soulfly.ini version $nopath($script)
on !*:join:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%joinmsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,join,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,join,$chan))
  set -u4 %joinmsg. [ $+ [ $chan ] ] $true
}
on !*:part:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%partmsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,part,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,part,$chan))
  set -u4 %partmsg. [ $+ [ $chan ] ] $true
}
on !*:op:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%opmsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,op,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,op,$chan))
  set -u4 %opmsg. [ $+ [ $chan ] ] $true
}
on !*:owner:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%ownermsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,owner,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,owner,$chan))
  set -u4 %ownermsg. [ $+ [ $chan ] ] $true
}
on !*:deop:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%deopmsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,deop,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,deop,$chan))
  set -u4 %deopmsg. [ $+ [ $chan ] ] $true
}
on !*:deowner:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%deownermsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,deowner,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,deowner,$chan))
  set -u4 %deownermsg. [ $+ [ $chan ] ] $true
}
on !*:kick:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%kickmsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,kick,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,kick,$chan))
  set -u4 %kickmsg. [ $+ [ $chan ] ] $true
}
on *:voice:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%voicemsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,voice,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,voice,$chan))
  set -u4 %voicemsg. [ $+ [ $chan ] ] $true
}
on *:devoice:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%devoicemsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,devoice,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,devoice,$chan))
  set -u4 %devoicemsg. [ $+ [ $chan ] ] $true
}
on !*:rawmode:#:{
  if ($chan !isin $readini(iniset\msg.ini,list,chk)) || (%modemsg. [ $+ [ $chan ] ]) return
  if ($readini(iniset\msg.ini,mode,$chan)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $chan $eval($readini(iniset\msg.ini,mode,$chan))
  set -u4 %modemsg. [ $+ [ $chan ] ] $true
}
raw 822:*:{
  if ($1 !isin $readini(iniset\msg.ini,list,chk)) || (%awaymsg. [ $+ [ $1 ] ]) return
  if ($readini(iniset\msg.ini,away,$1)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $1 $eval($readini(iniset\msg.ini,away,$1))
  set -u3 %awaymsg. [ $+ [ $1 ] ] $true
}
raw 821:*:{
  if ($1 !isin $readini(iniset\msg.ini,list,chk)) || (%backmsg. [ $+ [ $1 ] ]) return
  if ($readini(iniset\msg.ini,back,$1)) $iif($readini(iniset\msg.ini,style,$chan),$ifmatch,msg) $1 $eval($readini(iniset\msg.ini,back,$1))
  set -u3 %backmsg. [ $+ [ $1 ] ] $true
}
menu channel {
  -
  Event Messages
  .$iif($chan isin $readini(iniset\msg.ini,list,chk),$style(1)) Allow Event Messages:$hip(iniset\msg.ini,list,chk,$chan)
  .Message Style
  ..$iif($readini(iniset\msg.ini,style,$chan) == msg,$style(1)) Message:$hip(iniset\msg.ini,style,$chan,msg)
  ..$iif($readini(iniset\msg.ini,style,$chan) == describe,$style(1)) Action:$hip(iniset\msg.ini,style,$chan,describe)
  ..$iif($nick($chan,$me,' .),$iif(Notice isin $readini(iniset\msg.ini,style,$chan),$style(1)) Room Notice):$hip(iniset\msg.ini,style,$chan,notice $chan)
  .-
  .$iif($readini(iniset\msg.ini,join,$chan),$style(1)) Join Message
  ..Turn $iif($readini(iniset\msg.ini,join,$chan),Off,On) :$iif($readini(iniset\msg.ini,join,$chan),remini,writeini) iniset\msg.ini join $chan $iif(!$ifmatch,$$?="Enter Join Message")
  ..$iif($readini(iniset\msg.ini,join,$chan),View Join Message) :error -n Join Message $crlf $crlf $readini(iniset\msg.ini,join,$chan)
  ..$iif($readini(iniset\msg.ini,join,$chan),Change Join Message) :writeini iniset\msg.ini join $chan $$?="Enter Join Message"
  .-
  .$iif($readini(iniset\msg.ini,part,$chan),$style(1)) Part Message
  ..Turn $iif($readini(iniset\msg.ini,part,$chan),Off,On) :$iif($readini(iniset\msg.ini,part,$chan),remini,writeini) iniset\msg.ini part $chan $iif(!$ifmatch,$$?="Enter Part Message")
  ..$iif($readini(iniset\msg.ini,part,$chan),View Part Message) :error -n Part Message $crlf $crlf $readini(iniset\msg.ini,part,$chan)
  ..$iif($readini(iniset\msg.ini,part,$chan),Change Part Message) $+ :writeini iniset\msg.ini part $chan $$?="Enter Part Message"
  .-
  .$iif($readini(iniset\msg.ini,op,$chan),$style(1)) Host Message
  ..Turn $iif($readini(iniset\msg.ini,op,$chan),Off,On) :$iif($readini(iniset\msg.ini,op,$chan),remini,writeini) iniset\msg.ini op $chan $iif(!$ifmatch,$$?="Enter Op Message")
  ..$iif($readini(iniset\msg.ini,op,$chan),View Host Message) :error -n Host Message $crlf $crlf $readini(iniset\msg.ini,op,$chan)
  ..$iif($readini(iniset\msg.ini,op,$chan),Change Op Message) :writeini iniset\msg.ini op $chan $$?="Enter Op Message"
  .-
  .$iif($readini(iniset\msg.ini,owner,$chan),$style(1)) Owner Message
  ..Turn $iif($readini(iniset\msg.ini,owner,$chan),Off,On) :$iif($readini(iniset\msg.ini,owner,$chan),remini,writeini) iniset\msg.ini owner $chan $iif(!$ifmatch,$$?="Enter Owner Message")
  ..$iif($readini(iniset\msg.ini,owner,$chan),View Owner Message) :error -n Owner Message $crlf $crlf $readini(iniset\msg.ini,owner,$chan)
  ..$iif($readini(iniset\msg.ini,owner,$chan),Change Owner Message) :writeini iniset\msg.ini owner $chan $$?="Enter Owner Message"
  .-
  .$iif($readini(iniset\msg.ini,deop,$chan),$style(1)) De-Host Message
  ..Turn $iif($readini(iniset\msg.ini,deop,$chan),Off,On) :$iif($readini(iniset\msg.ini,deop,$chan),remini,writeini) iniset\msg.ini deop $chan $iif(!$ifmatch,$$?="Enter De-Op Message")
  ..$iif($readini(iniset\msg.ini,deop,$chan),View De-Host Message) :error -n De-Host Message $crlf $crlf $readini(iniset\msg.ini,deop,$chan)
  ..$iif($readini(iniset\msg.ini,deop,$chan),Change De-Host Message) :writeini iniset\msg.ini deop $chan $$?="Enter De-Host Message"
  .-
  .$iif($readini(iniset\msg.ini,deowner,$chan),$style(1)) De-Owner Message
  ..Turn $iif($readini(iniset\msg.ini,deowner,$chan),Off,On) :$iif($readini(iniset\msg.ini,deowner,$chan),remini,writeini) iniset\msg.ini deowner $chan $iif(!$ifmatch,$$?="Enter De-Owner Message")
  ..$iif($readini(iniset\msg.ini,deowner,$chan),View De-Owner Message) :error -n De-Owner Message $crlf $crlf $readini(iniset\msg.ini,deowner,$chan)
  ..$iif($readini(iniset\msg.ini,deowner,$chan),Change De-Owner Message) :writeini iniset\msg.ini deowner $chan $$?="Enter De-Owner Message"
  .-
  .$iif($readini(iniset\msg.ini,away,$chan),$style(1)) Away Message
  ..Turn $iif($readini(iniset\msg.ini,away,$chan),Off,On) :$iif($readini(iniset\msg.ini,away,$chan),remini,writeini) iniset\msg.ini away $chan $iif(!$ifmatch,$$?="Enter Away Message")
  ..$iif($readini(iniset\msg.ini,away,$chan),View Away Message) :error -n Away Message $crlf $crlf $readini(iniset\msg.ini,away,$chan)
  ..$iif($readini(iniset\msg.ini,away,$chan),Change Away Message) :writeini iniset\msg.ini away $chan $$?="Enter Away Message"
  .-
  .$iif($readini(iniset\msg.ini,back,$chan),$style(1)) Return Message
  ..Turn $iif($readini(iniset\msg.ini,back,$chan),Off,On) :$iif($readini(iniset\msg.ini,back,$chan),remini,writeini) iniset\msg.ini back $chan $iif(!$ifmatch,$$?="Enter Return Message")
  ..$iif($readini(iniset\msg.ini,back,$chan),View Return Message) :error -n Return Message $crlf $readini(iniset\msg.ini,back,$chan)
  ..$iif($readini(iniset\msg.ini,back,$chan),Change Return Message) :writeini iniset\msg.ini back $chan $$?="Enter Return Message"
  .-
  .$iif($readini(iniset\msg.ini,kick,$chan),$style(1)) Kick Message
  ..Turn $iif($readini(iniset\msg.ini,kick,$chan),Off,On) :$iif($readini(iniset\msg.ini,kick,$chan),remini,writeini) iniset\msg.ini kick $chan $iif(!$ifmatch,$$?="Enter Kick Message")
  ..$iif($readini(iniset\msg.ini,kick,$chan),View Kick Message) :error -n Kick Message $crlf $crlf $readini(iniset\msg.ini,kick,$chan)
  ..$iif($readini(iniset\msg.ini,kick,$chan),Change Kick Message) :writeini iniset\msg.ini kick $chan $$?="Enter Kick Message"
  .-
  .$iif($readini(iniset\msg.ini,voice,$chan),$style(1)) Voice Message
  ..Turn $iif($readini(iniset\msg.ini,voice,$chan),Off,On) :$iif($readini(iniset\msg.ini,voice,$chan),remini,writeini) iniset\msg.ini voice $chan $iif(!$ifmatch,$$?="Enter Voice Message")
  ..$iif($readini(iniset\msg.ini,voice,$chan),View Voice Message) :error -n Voice Message $crlf $crlf $readini(iniset\msg.ini,voice,$chan)
  ..$iif($readini(iniset\msg.ini,voice,$chan),Change Voice Message) :writeini iniset\msg.ini voice $chan $$?="Enter Voice Message"
  .-
  .$iif($readini(iniset\msg.ini,devoice,$chan),$style(1)) Un-Voice Message
  ..Turn $iif($readini(iniset\msg.ini,devoice,$chan),Off,On) :$iif($readini(iniset\msg.ini,devoice,$chan),remini,writeini) iniset\msg.ini devoice $chan $iif(!$ifmatch,$$?="Enter Un-Voice Message")
  ..$iif($readini(iniset\msg.ini,devoice,$chan),View Un-Voice Message) :error -n Un-Voice Message $crlf $crlf $readini(iniset\msg.ini,devoice,$chan)
  ..$iif($readini(iniset\msg.ini,devoice,$chan),Change Un-Voice Message) :writeini iniset\msg.ini devoice $chan $$?="Enter Un-Voice Message"
  .-
  .$iif($readini(iniset\msg.ini,mode,$chan),$style(1)) Mode Message
  ..Turn $iif($readini(iniset\msg.ini,mode,$chan),Off,On) :$iif($readini(iniset\msg.ini,mode,$chan),remini,writeini) iniset\msg.ini mode $chan $iif(!$ifmatch,$$?="Enter Mode Message")
  ..$iif($readini(iniset\msg.ini,mode,$chan),View Mode Message) :error -n Mode Message $crlf $crlf $readini(iniset\msg.ini,mode,$chan)
  ..$iif($readini(iniset\msg.ini,mode,$chan),Change Mode Message) :writeini iniset\msg.ini mode $chan $$?="Enter Mode Message"
  -
}