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
}
}
}