alias c1 { return $+($chr(3) $+ $iif(%color1,%color1,4),$1-) } 
alias c2 { return $+($chr(3) $+ $iif(%color2,%color2,4),$1-) } 

ON *:TEXT:`DisChan*:#:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == Off) { 
    notice $nick Pestcontrol is not activated for this channel, `EnChan to start it :D 
    halt 
  } 
  if ($address($nick,2) == $address($me,2) || $nick isop $chan || $nick ishop $chan) { 
    remini PCSCRIPT.ini $chan 
    writeini PCSCRIPT.ini $chan Status OFF 
    msg $chan PestControl services Has been for Disabled for $chan by $nick $+ . 
    halt 
  } 
  else { 
    notice $nick You must be Halfop+ To Disable PC for this channel. 
  } 
} 

ON *:TEXT:`EnChan*:#: { 
  if ($readini(PCSCRIPT.ini,$chan,Status) == On) { 
    notice $nick Pestcontrol is not activated for this channel, `ConChan to start it :D 
    halt 
  } 
  if ($address($nick,2) == $address($me,2) || $nick isop $chan || $nick ishop $chan) { 
    remini PCSCRIPT.ini $chan 
    writeini PCSCRIPT.ini $chan Status On 
    msg $chan PestControl services Has been Enabled for $chan by $nick $+ . 
    halt 
  } 
  else { 
    notice $nick You must be Halfop+ To Enable PC for this channel. 
  } 
} 

ON $*:TEXT:/^[!@.](SetPCW|SetWorld)/Si:#:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    if ($2 isnum 2-138) && ($nick ishop $chan) || ($nick isop $chan) { 
      set %curpcw [ $+ [ $chan ] ] $2 
      set %curnick [ $+ [ $chan ] ] $nick 
      set %curtime [ $+ [ $chan ] ] $time(hh:nn:ss) 
      set %curchan [ $+ [ $chan ] ] $chan 
      msg $chan $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.) 
    } 
  } 
} 
ON $*:TEXT:/^[!@.](PCW|World)/Si:#:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    if ($nick isvoice $chan) || ($nick isop $chan) || ($nick ishop $chan) { 
      notice $nick $c1(The current) $c2(PestControl) $c1(world is) $c2(%curpcw) $c1(Set by) $c2(%curnick) $c1(at) $c2(%curtime) $+ . 
    } 
  } 
} 
ON $*:TEXT:/^[!@.](SetPCW|SetWorld)/Si:?:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    if ($2 == $null || $3 == $null) { 
      msg $nick Please use this Format:!setpcw #channel world 
    halt } 
    else { 
      if ($nick isop $2 || $nick ishop $2) { 
        set %curpcw [ $+ [ $chan ] ] $2 
        set %curnick [ $+ [ $chan ] ] $nick 
        set %curtime [ $+ [ $chan ] ] $time(hh:nn:ss) 
        set %curchan [ $+ [ $chan ] ] $chan 
        msg $2 $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.) 
      } 
    } 
  } 
} 
ON $*:TEXT:/^[!@.](Suggest|SWorld)/Si:?:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { halt } 
  else { 
    if ($2 == $null || $3 == $null) { 
      msg $nick Please use this Format:!Suggest #channel world 
    halt } 
    else { 
      if ($nick isop $2 || $nick ishop $2) { 
        set %sspcw [ $+ [ $chan ] ] $2 
        set %ssnick [ $+ [ $chan ] ] $nick 
        set %sstime [ $+ [ $chan ] ] $time(hh:nn:ss) 
        set %sschan [ $+ [ $chan ] ] $chan 
        msg $2 $c1(New world has been set by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.) 
      } 
    } 
  } 
} 
ON $*:TEXT:/^[!@.](Suggest|SugWorld)/Si:#:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    if ($2 isnum 2-138) && ($nick ishop $chan) || ($nick isop $chan) { 
      set %sspcw [ $+ [ $chan ] ] $2 
      set %ssnick [ $+ [ $chan ] ] $nick 
      set %sstime [ $+ [ $chan ] ] $time(hh:nn:ss) 
      set %curchan [ $+ [ $chan ] ] $chan 
      msg $chan $c1(New world has been suggested by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!SW) $c1(or) $c2(!suggessted) $c1(To view suggested world.) 
    } 
  } 
} 
ON $*:TEXT:/^[!@.]SW|SWorld)/Si:#:{ 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    if ($nick isvoice $chan || $nick isop $chan || $nick ishop $chan) { 
      notice $nick $c2([>SUGGESTED<]) $c1(The current) $c2(Suggested) $c1(world is) $c2(%sspcw) $c1(Set by) $c2(%ssnick) $c1(at) $c2(%sstime) $+ . 
    } 
  } 
} 
on *:text:!color1*:#:{ set %color1 [ $+ [ $chan ] ] $2 | notice $nick $c1(Color1) $c2(has been set) } 
on *:text:!color2*:#:{ set %color2 [ $+ [ $chan ] ] $2 | notice $nick $c2(Color2) $c1(has been set) } 

alias PestControl { 
  dialog -m PestControl PestControl 
} 
menu * { 
  PestControl:/dialog -m PestControl PestControl 
} 
dialog PestControl { 
  title "PestControl V1.0 By BloodSain" 
  size -1 -1 226 67 
  option dbu 
  box "", 26, 17 1 186 23 
  button "Set A PCW", 27, 7 30 68 33 
  button "Suggest A PCW", 28, 150 30 68 33 
  box "", 29, 3 27 76 38 
  box "", 30, 146 27 76 38 
  button "ULTIMATE PESTCONTROL", 31, 20 4 180 17 
  text "Made By BloodSain", 32, 90 56 47 8 
  button "Cancel", 33, 94 35 37 12 
  box "", 34, 92 33 41 16 
} 

ON *:Dialog:PestControl:sclick:27: { 
  /dialog -x PestControl PestControl 
  /dialog -m PestControl2 PestControl2 
} 
ON *:Dialog:PestControl:sclick:28: { 
  /dialog -x PestControl PestControl 
  /dialog -m Suggested Suggested 
} 
ON *:Dialog:PestControl:sclick:33: { 
  /dialog -x PestControl PestControl 
  /dialog -m yesorno3 yesorno3 
} 
dialog yesorno3 { 
  title "Quit?" 
  size -1 -1 97 48 
  option dbu 
  text "Do you want to quit?", 9, 22 3 53 11 
  button "YES", 10, 3 16 42 27 
  button "No", 11, 51 16 42 27 
} 

ON *:Dialog:yesorno3:sclick:10: { 
  /dialog -x yesorno3 yesorno3 
} 

ON *:Dialog:yesorno3:sclick:11: { 
  /dialog -x Yesorno3 yesorno3 
  /dialog -m PestControl PestControl 
} 

dialog PestControl2 { 
  title "PestControl" 
  size -1 -1 149 98 
  option dbu 
  box "PestControl", 1, 3 1 143 91 
  text "Made By BloodSain ©", 2, 45 91 60 10 
  edit "", 3, 88 29 50 11 
  edit "", 4, 10 29 50 11 
  button "Channel", 5, 94 16 37 10 
  button "World", 6, 17 15 37 10 
  button "Finished", 7, 10 72 123 15 
  button "Set World", 8, 52 48 37 18 
  box "", 9, 50 46 41 22 
  box "", 10, 8 70 127 19 
  box "", 11, 92 14 41 14 
  box "", 12, 15 13 41 14 
} 

ON *:Dialog:PestControl2:sclick:8: { 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { 
    notice $nick Please Type `EnChan to enable the Pestcontrol Services. 
    halt 
  } 
  else { 
    set %curchan ($did($dname,3) 
    set %curpcw $did(4).text 
    /msg %curchan $did(3).text $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To veiw world.) 
  } 
} 
ON *:Dialog:PestControl2:sclick:7: { 
  /dialog -x PestControl2 PestControl2 
  /dialog -m yesorno yesorno 
} 

dialog yesorno { 
  title "Quit?" 
  size -1 -1 97 48 
  option dbu 
  text "Do you want to quit?", 9, 22 3 53 11 
  button "YES", 10, 3 16 42 27 
  button "No", 11, 51 16 42 27 
} 

ON *:Dialog:yesorno:sclick:10: { 
  /dialog -x yesorno yesorno 
} 

ON *:Dialog:yesorno:sclick:11: { 
  /dialog -x Yesorno yesorno 
  /dialog -m PestControl PestControl 
} 

dialog Suggested { 
  title "Suggest" 
  size -1 -1 149 98 
  option dbu 
  box "Suggest World", 12, 3 1 143 91 
  text "Made By BloodSain ©", 13, 45 91 60 10 
  edit "", 3, 88 29 50 11 
  edit "", 4, 10 29 50 11 
  button "Channel", 14, 94 16 37 10 
  button "World", 16, 17 15 37 10 
  button "Finished", 17, 10 72 123 15 
  button "Set World", 18, 52 48 37 18 
  box "", 19, 50 46 41 22 
  box "", 20, 8 70 127 19 
  box "", 21, 92 14 41 14 
  box "", 22, 15 13 41 14 
} 

ON *:Dialog:suggested:sclick:18: { 
  if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { halt } 
  else { 
    set %curchan ($did($dname,3) 
    set %sspcw $did(4).text 
    msg %sschan $did(3).text $c1(New world has been Suggested by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To veiw world.) 
  } 
} 

ON *:Dialog:suggested:sclick:17: { 
  /dialog -x suggested suggested 
  /dialog -m yesorno2 yesorno2 
} 

dialog yesorno2 { 
  title "Quit?" 
  size -1 -1 97 48 
  option dbu 
  text "Do you want to quit?",23, 22 3 53 11 
  button "YES", 24, 3 16 42 27 
  button "No", 25, 51 16 42 27 
} 

ON *:Dialog:yesorno2:sclick:24: { 
  /dialog -x yesorno2 yesorno2 
} 

ON *:Dialog:yesorno2:sclick:25: { 
  /dialog -x Yesorno2 yesorno2 
  /dialog -m PestControl PestControl 
} 

ON *:TEXT:`AV*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    writeini AVLIST.ini ADRESSES $address($2,2) $2 
    msg $chan added $2 to auto voice list 
    /mode $chan +v $2 
  } 
} 
on *:join:#:{ 
  if ($readini(AVLIST.ini,ADRESSES,$address($nick,2))) { 
    /mode $chan +v $nick 
  } 
} 

ON *:TEXT:`DAV*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    .remini AVLIST.ini ADRESSES $address($2,2) $2 
    writeini DAVLIST.ini ADRESSES $address($2,2) $2 
    msg $chan $2 has been deleted from auto voice list. 
    /mode $chan +v $2 
  } 
} 
on *:join:#:{ 
  if ($readini(DAVLIST.ini,ADRESSES,$address($nick,2))) { 
    /mode $chan -v $nick 
  } 
}