@create Yohshee's Globals=10
@lock Yohshee's Globals=*Yohshee
@Desc Yohshee's Globals=They're Yohshee's global commands! Whee!
@Comment Yohshee's Globals=It'd be best to ask Yohshee's permission before you mess with his Globals.
@Aconnect Yohshee's Globals=@force %#=+bbscan
@Daily Yohshee's Globals=@dolist lattr(me/v*)=@## me
&PARENTROOM Yohshee's Globals=$parenthere:@switch controls(%#,room(%#))=1,{@pemit %#=Reparenting, do not move from this room...; @mvattr [room(%#)]=desc, desc1; @set room(%#)=dark; @desc room(%#); @wait 3={@parent room(%#)=[v(rparent)]; @pemit %#=[name(room(%#))] ([room(%#)]) reparented!}},{@pemit %#=You aren't authorized to use that command here.}
&RPARENT Yohshee's Globals=<DBRef of parent room.>
&WHATCHILD Yohshee's Globals=$+child:@pemit %#=[setq(0,[rand(3)])][setq(1,[rand(300)])][u([ifelse(eq(%q0,2),ifelse(eq(rand(300),%q1),me/child-2,me/child-[rand(2)]),me/child-%q0)],%n)]
&CHILD-0 Yohshee's Globals=Hey\, %0\, it's going to be a boy!
&CHILD-1 Yohshee's Globals=Guess what\, %0? It's a girl!
&CHILD-2 Yohshee's Globals=You won't believe this\, %0\: You're going to have twins! One of them will be a [ifelse(eq(rand(2),0),boy,girl)] and the other one will be a [ifelse(eq(rand(2),1),boy,girl)]
&VACATIONERS Yohshee's Globals=$+vacations:@pemit %#=%ch%ccAll players currently on vacation:%cn%r[iter(search(flag=|),name(##)%r)]
&WEA1 Yohshee's Globals=$+wea1:@switch controls(%#,room(%#))=1,{&HEAR-GLOBAL-EMITS [room(%#)]=1;@pemit %#=The location where you are standing will now hear the global weather emits.},{@pemit %#=You aren't allowed to use that command here.}
&WEA2 Yohshee's Globals=$+wea2:@switch controls(%#,room(%#))=1,{&HEAR-TIDES-EMITS [room(%#)]=1; &HEAR-GLOBAL-EMITS [room(%#)]=1; @pemit %#=The location where you are standing will now hear the tides and global weather emits.},{@pemit %#=You aren't allowed to use that command here.}
&WEA3 Yohshee's Globals=$+wea3:@switch controls(%#,room(%#))=1,{&HEAR-TIDES-EMITS [room(%#)]=1; @pemit %#=The location where you are standing will now hear the tide emits.},{@pemit %#=You aren't allowed to use that command here.}
&GREEN Yohshee's Globals=$+green *:@dolist lcon(%L)={@switch strmatch(name(##),*%0*)=1,{@remit %L=%N %cg%chgreens%cn at [name(##)]!}}
&LONG_GREEN Yohshee's Globals=$+green/long *:@switch type(*%0)=player,{@pemit %#=You %cg%chgreen%cn at [name(*%0)]!;@pemit *%0=%N %cg%chgreens%cn at you!},{@pemit %#=That isn't a valid player.}
&PCOMTITLE Yohshee's Globals=$+comtitle *=*:@force %#=comtitle %0=%1
&SETALLINV Yohshee's Globals=$+setallinv *:@pemit %#=[setq(0,strmatch(mid(%0,0,1),!))][ifelse(%q0, Clearing, Setting)] [ifelse(%q0,delete(ucstr(%0),0,1),ucstr(%0))] on your inventory...; @dolist lcon(%#)={@force %#=@set ##=%0}; @wait 2={@pemit %#=Done.}
&SETALL Yohshee's Globals=$+setall *:@pemit %#=[setq(0,strmatch(mid(%0,0,1),!))][ifelse(%q0, Clearing, Setting)] [ifelse(%q0,delete(ucstr(%0),0,1),ucstr(%0))] on everything you own...; @dolist search(%#)={@set ##=%0}; @wait 3={@pemit %#=Done.}
&GETWEMAIL Yohshee's Globals=$+wemail *:@switch orflags(%#,WZ)=1,{@pemit %#=[ifelse(strmatch(type(*%0,player)),[name(*%0)]'s e-mail address is [ifelse(hasattr(*%0,wemail),u(*%0/wemail),u(*%0/email))],That isn't a valid [mudname()] player.)]},{@pemit %#=That is a staff-only command, %n.}
&FWEIRDON Yohshee's Globals=$+fweirdo/on *:@switch hasflag(%#,wizard)=1,{@switch type(*%0)=PLAYER,{&freakin_weirdo *%0=1; @set *%0/freakin_weirdo=no_command; @set *%0/freakin_weirdo=hidden; @lock *%0/freakin_weirdo=#0; @pemit %#=[name(*%0)] has been set FREAKIN_WEIRDO.},{@pemit %#=That's not a player, %n.}},{@pemit %#=That's wizard only, %n.}
&FWEIRDOFF Yohshee's Globals=$+fweirdo/off *:@switch hasflag(%#,wizard)=1,{@switch type(*%0)=PLAYER,{@switch hasattr(*%0,freakin_weirdo)=1,{@unlock *%0/freakin_weirdo; &freakin_weirdo *%0}; @pemit %#=[name(*%0)]'s FREAKIN_WEIRDO flag has been cleared.},{@pemit %#=That's not a player, %n.}},{@pemit %#=This is wizard only, %n.}
&SEARCHFW Yohshee's Globals=$+findweirdos:@switch orflags(%#,wWZ)=1,{@pemit %#=All of [mudname()]'s Freaking Weirdos:; @force %#=@search eplayer=hasattr(##,freakin_weirdo)},{@pemit %#=Come on, %n, you know that information is classified!}
&PWSET Yohshee's Globals=$+wset *=*:@vt me=[mid(%1,0,1)]; @vs me=[delete(%1,0,1)]; @switch strmatch(%0,me)=1,{@vn me=%#},{@vn me=[num(*%0)]}; @wait 1={@switch hasflag(%#,wizard)=1,{@switch and(member(v(wizflags),ucstr(ifelse(strmatch(%vt,!),%vs,%1))),strmatch(type(%vn),player))=1,{@switch not(strmatch(%vt,!))=1,{&%1 %vn=1; @set %vn/%1=hidden; @set %vn/%1=no_command; @lock %vn/%1=#0; @pemit %#=Set.},{@unlock %vn/%vs; &%vs %vn; @pemit %#=Cleared.}},{@pemit %#=Huh? (Type "help" for help.)}},{@pemit %#=Permission denied.}}
&WIZFLAGS Yohshee's Globals=FREAKIN_WEIRDO
&PSET Yohshee's Globals=$+set *=*:@vt me=[mid(%1,0,1)]; @vs me=[delete(%1,0,1)]; @switch strmatch(%0,me)=1,{@vn me=%#},{@vn me=[num(*%0)]}; @wait 1={@switch controls(%#,%vn)=1,{@switch [setq(0,ucstr(ifelse(strmatch(%vt,!),%vs,%1)))]and(not(member(v(wizflags), %q0)), member(v(flaglist),%q0),strmatch(type(%vn),player))=1,{@switch not(strmatch(%vt,!))=1,{&%1 %vn=1; @set %vn/%1=no_command; @lock %vn/%1=#0; @pemit %#=Set.},{@unlock %vn/%vs; &%vs %vn; @pemit %#=Cleared.}},{@pemit %#=Huh? (Type "help" for help.)}}},{@pemit %#=Permission Denied.}}
&FLAGLIST Yohshee's Globals=BACK_OK
@set Yohshee's Globals=INHERIT
@set Yohshee's Globals=SAFE