on $*:TEXT:/^[!@.](setworld|setpcw)/Si:*:{ 
  if ($chan != #bliss) { halt }
  if (*$* iswm $2-) || (*|* iswm $2-) { notice $nick 14Please do not use invalid chars in your !setworld. Thanks | halt }
  if ($2 !isnum) { notice $nick 14Please use numbers only after !setworld. Thanks. | halt }
  notice $nick 4Retribution's14 Staff Channel Has Been Notified And The World Will Be Set Shortly.
  msg $chan 4Retribution's14 Staff Channel Has Been Notified And The World Will Be Set Shortly.
  set %symbol 10
  if ($address(^Banana,2) == $address($me,2)) && (^banana ison #Retri) || (^Banana !ison #Retri) { msg Majinvegito3 &setworld $2 }
  if ($address(^Banana,2) != $address($me,2)) && (^banana ison #Retri) { msg ^Banana &setworld $2 }
  if ($nick ishop $chan) {
    set %symbol 7%
  }
  if ($nick isvoice $chan) {
    set %symbol 12+
  } 
  if ($nick isop $chan) {
    set %symbol 4@
  } 
  if (%Autoset != $null) {
    if (swift isin $network) { 
      /set %m 1
      :jump1
      echo checking network %m
      /set %mnetwork $scon(%m).server
      /echo hi $scon(%m).server
      if (%m == 5) { halt }
      if (seers isin %mnetwork) { scon %m msg #nanachat 12[02Allied-World12] $+(<,%symbol,$nick,>) 14has set world4 $2 14In the Allied Channel On SwiftIRC. | set %RetriWorld $2 | set %RetriWorldTime $time | scon %m msg #nanachat 14The world is being AutoSet as the AutoSet Feature is currently4 Enabled.14 To Switch Off Autoset type:4 &Autoset-OFF14. }
      inc %m
      goto jump1
      :end
      unset %symbol
    }
  }
  if (%Autoset == $null) {
    if (swift isin $network) { 
      /set %m 1
      :jump1
      echo checking network %m
      /set %mnetwork $scon(%m).server
      /echo hi $scon(%m).server
      if (%m == 5) { halt }
      if (seers isin %mnetwork) { scon %m msg #nanachat 12[02Allied-World12] $+(<,%symbol,$nick,>) 14has set world4 $2 14In the Allied Channel On SwiftIRC.0 polly | scon -at1 echo -a New world in need of setting | scon -at1 beep }
      inc %m
      goto jump1
      :end
      unset %symbol
    }
  }
}