API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 26th, 2015
232
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 51.27 KB | None | 0 0
raw download clone embed print report
  1. @switch/inline isdbref(u(scene))=0,{@tel create(Scene System)=config(master_room)}
  2. &scene u(coi)=locate(config(master_room),Scene System,TXxi)
  3. @parent u(scene)=u(coi)
  4. @set u(scene)=WIZARD !NO_COMMAND
  5. @TZ u(scene)=UTC
  6.  
  7. &CMD`+SCENE u(scene)=$^(?s)(?\:\+)?(scene|scenes|plot)(?\:/(\S+)?)?(?\: +(.+?))?(?\:=(.*))?$:@include u(ccs)/INC`PARTIAL=%2,setunion(get(u(scene)/VAR`%1`PLAYFLAGS),if(isadmin(%#),get(u(scene)/VAR`%1`ADMINFLAGS)),|,|),|,v(VAR`MSGHEAD),switch,switch;@include u(scene)/INC`%1`[strfirstof(%q<switch>,MAIN)]=trim(%3),trim(%4)
  8. @set u(scene)/CMD`+scene=regexp
  9.  
  10. &VAR`SCENE`PLAYFLAGS u(scene)=SETUP|CHARID|JOIN|LEAVE|TITLE|DESC|CREATE|LOUDCREATE|RECALL|FINISH|PAUSE|CONTINUE|UNDO|REDO|SPOOF|MOVE|PLOT|OLD
  11. &VAR`SCENE`ADMINFLAGS u(scene)=DELETE|INSTALL|MERGE
  12.  
  13. &VAR`SCENES`PLAYFLAGS u(scene)=ADD|DELETE|RESCHEDULE|DESC|TITLE|PLOT|TAG|UNTAG|MAIL
  14. &VAR`SCENES`ADMINFLAGS u(scene)=
  15.  
  16. &VAR`PLOT`PLAYFLAGS u(scene)=ALL
  17. &VAR`PLOT`ADMINFLAGS u(scene)=ADD|DESC|TITLE|START|END|TYPE|RUNNER|STATUS|DELETE
  18.  
  19. &VAR`BBS`RPBBDBREF u(scene)=#560
  20. &VAR`URL`DOMAIN u(scene)=multiversemush.com
  21. &VAR`URL`PHP u(scene)=/scene/view.php?id=
  22. &VAR`SQL`PREFIX u(scene)=scene_
  23. &VAR`SQL`DATABASE u(scene)=multiver_scenesys
  24. &VAR`SQL`TABLES u(scene)=PLAYERS|PLOTS|SCENES|POSES|SCHEDULE|TAGS
  25. &VAR`SQL`TABLE`SCENES u(scene)=scenes
  26. &VAR`SQL`TABLE`PLAYERS u(scene)=players
  27. &VAR`SQL`TABLE`POSES u(scene)=poses
  28. &VAR`SQL`TABLE`SCHEDULE u(scene)=schedule
  29. &VAR`SQL`TABLE`PLOTS u(scene)=plots
  30. &VAR`SQL`TABLE`TAGS u(scene)=tags
  31.  
  32. &RFN`HEADER u(scene)=header(%0,,SCENESYS`BORDER,SCENESYS`BORDERDOT,SCENESYS`BORDERTEXT)
  33. &RFN`SUBHEADER u(scene)=subheader(%0,,SCENESYS`BORDER,SCENESYS`BORDERDOT,SCENESYS`BORDERTEXT)
  34. &RFN`SEPARATOR u(scene)=separator(%0,,SCENESYS`BORDER,SCENESYS`BORDERDOT,SCENESYS`BORDERTEXT)
  35. &RFN`MSGHEAD u(scene)=msghead(v(VAR`MSGHEAD))
  36. &RFN`ROOMMSGHEAD u(scene)=msgheadroom(v(VAR`MSGHEAD))
  37. &VAR`MSGHEAD u(scene)=SCENESYS
  38.  
  39. &OBJECT`DESTROY`PURGESPOOF u(scene)=@switch/inline %2=PLAYER,{@dolist/inline lsearch(all,type,player,elock,D`SCENE`SPOOF:%0)=&D`SCENE`SPOOF %i0}
  40.  
  41. &STARTUP u(scene)=@include/nobreak u(scene)/STARTUP`OVERRIDE;@trigger u(scene)/TRG`IDLECHECK
  42.  
  43. &STARTUP`OVERRIDE u(scene)=@dolist/inline @emit pose say semipose=@hook/override/inline %i0=u(scene),override`ic
  44.  
  45. &TRG`IDLECHECK u(scene)=@dolist u(u(scene)/SQL,SCENE`IDLECHECK)={@include u(scene)/INC`MSGSCENE=%i0,{Scene %i0 - '[u(sql,get`scenetitle,%i0)]' has been automatically marked Unfinished for idleness. Use [pueblize(+scene/continue %i0,+scene/continue %i0)] to resume it.};@include u(scene)/INC`DOSQL=SET`SCENESTATE,2,%i0};@wait mul(60,30)=@trigger u(scene)/TRG`IDLECHECK
  46.  
  47. &SQL`SCENE`IDLECHECK u(scene)=select scene.scene_id from $DATABASE$.$SCENES$ as scene natural join $DATABASE$.$POSES$ as final_pose where scene.scene_state='0' and final_pose.pose_id = (select pose.pose_id from $DATABASE$.$POSES$ as pose where pose.scene_id = scene.scene_id order by pose.pose_id limit 1) and final_pose.pose_time < UTC_TIMESTAMP() - INTERVAL 3 HOUR
  48.  
  49. &OVERRIDE`IC u(scene)=$^(?s)(pose|semipose|say|@emit)(?\:/noeval)?(?\: +(.*))?$:@assert strlen(%2)=@nspemit %#=Huh? (Type "help" for help.);th setq(logged,if(get(%#/D`SCENE`ACTIVE),u(FUN`ISLOGGED,%:,%2),0));th setq(r,speak(if(%q<logged>,firstof(get(%#/D`SCENE`SPOOF),%#),%#),switch(%1,pose,:,semipose,;,say,",@emit,|)%2));@include/nobreak me/include`lastpose`prepose=%q<logged>;@include/nobreak u(pot)/INC`ALTMAIN=%1,%2;@message uldefault(%l/D`CUSTRECP,lcon(%l),%#)=POSE FORMATTER FAIL!,u(pot)/FUN`FORMATPOSE,##,if(%q<logged>,firstof(get(%#/D`SCENE`SPOOF),%#),%#),switch(%1,pose,:,semipose,;,say,",@emit,|),%2;@include me/include`lastpose`postpose=%q<logged>;@include/nobreak me/INC`RECPOSE=%:,%q<logged>,trimpenn(trimpenn(%qr,%t,r),%r)
  50. @set u(scene)/OVERRIDE`IC=regexp
  51.  
  52. &INC`RECPOSE u(scene)=@assert %1;@assert setr(pid,u(sql,get`playerid,objid(firstof(get(%0/D`SCENE`SPOOF),%0))));@include u(scene)/INC`DOSQL=SET`NEWPOSE,%q<pid>,%1,%2
  53. &SQL`SET`NEWPOSE u(scene)=INSERT INTO $DATABASE$.$POSES$ (player_id,scene_id,pose,pose_time) VALUES (?,?,?,UTC_TIMESTAMP())
  54.  
  55. &INCLUDE`LASTPOSE`POSTPOSE u(scene)=@assert isic(%:);@dolist/inline lockfilter(D`POT`FOOTER:1,uldefault(%l/D`CUSTRECP,lcon(%l),%#))=@pemit %i0=header(if(%0,\[[ansi(hg,LOG: %0)]\]%B,if(u(sql,get`recentposeat,%l,uldefault(%l/D`CUSTLOC,%l,%#)),\[[ansi(hr,X)]\]%B))End of [ansi(hw,accname(%:))]'s pose[if(setr(spoof,get(%#/D`SCENE`SPOOF)),%B\(as [accname(%q<spoof>)]\))]%b,,,,,,%i0)
  56.  
  57. &INCLUDE`LASTPOSE`PREPOSE u(scene)=@assert isic(%:);@dolist/inline if(%0,uldefault(%l/D`CUSTRECP,lcon(%l),%#),lockfilter(D`POT`HEADER:1,uldefault(%l/D`CUSTRECP,lcon(%l),%#)))=@nspemit %i0=if(cand(%q<logged>,nor(get(%i0/D`POT`HEADER),get(%i0/D`POT`FOOTER))),center(if(%0,\[[ansi(hg,LOG: %0)]\]%B,if(u(sql,get`recentposeat,%l,uldefault(%l/D`CUSTLOC,%l,%#)),\[[ansi(hr,X)]\]%B))[ansi(+white,accname(%:))] has posed[if(setr(spoof,get(%#/D`SCENE`SPOOF)),%B\(as [accname(%q<spoof>)]\))]%b,width(%i0)),header(if(%0,\[[ansi(hg,LOG: %0)]\]%B,if(u(sql,get`recentposeat,%l,uldefault(%l/D`CUSTLOC,%l,%#)),\[[ansi(hr,X)]\]%B))[ansi(+white,accname(%:))] has posed[if(setr(spoof,get(%#/D`SCENE`SPOOF)),%B\(as [accname(%q<spoof>)]\))]%b,,,,,,%i0))
  58.  
  59. &FUN`ISLOGGED u(scene)=localize(if(setr(pid,u(sql,get`playerid,%0)),if(setr(scene,get(%0/D`SCENE`ACTIVE)),if(cand(gte(words(%1),10),eq(u(sql,get`scenestate,%q<scene>),0),strmatch(u(sql,get`sceneloc,%q<scene>),objid(%l)),strmatch(u(sql,get`scenecustloc,%q<scene>),uldefault(%l/D`CUSTLOC,%l,%#))),%q<scene>))))
  60.  
  61. &SQL`GET`SCENELOC u(scene)=SELECT room_objid FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  62. &SQL`GET`SCENECUSTLOC u(scene)=SELECT room_custloc FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  63.  
  64. &SQL`GET`SCENESTATE u(scene)=SELECT scene_state FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  65.  
  66. &INC`SCENE`INSTALL u(scene)=@assert hasflag(%#,WIZARD)=@nspemit %#=u(RFN`MSGHEAD) ERROR: Wizard Only command.;@include u(ccs)/INC`VERIFY={ansi(hr,WARNING:) This will install SceneSys' SQL tables. It will have no effect if they already exist. Enter the same command again within ten seconds to continue.},SETUP SCENESYS,v(VAR`MSGHEAD);@dolist/inline/delimit | [v(VAR`SQL`TABLES)]={@include u(scene)/INC`DOSQL=INSTALL`%i0};@nspemit %#=u(RFN`MSGHEAD) Installation complete!
  67.  
  68. &INC`SCENE`SETUP u(scene)=@switch/inline cand(isadmin(%#),strlen(%0))=1,{@include u(ccs)/INC`CHECKPC=%0,1,v(VAR`MSGHEAD)},0,{@include u(ccs)/INC`CHECKPC=%#,1,v(VAR`MSGHEAD)};@switch/inline gt(setr(id,u(sql,get`playerid,%q<t1objid>)),0)=1,{@include u(scene)/INC`DOSQL=RENAME`PLAYER,%q<t1name>,%q<t1objid>},0,{@include u(scene)/INC`DOSQL=INIT`PLAYER,%q<t1objid>,%q<t1name>};@nspemit %#=u(RFN`MSGHEAD) [if(strmatch(%:,%q<t1objid>),You set yourself up for SceneSys.,You have set %q<t1name> up for SceneSys.)] The unique Char_id is: [ansi(h,u(sql,get`playerid,%q<t1objid>))]
  69.  
  70. &OBJECT`RENAME`CHARID u(scene)=@switch/inline type(%0)=PLAYER,{@assert setr(pid,u(sql,get`playerid,%0));th u(sql,rename`player,%1,%0)}
  71.  
  72. &INC`SCENE`CHARID u(scene)=@switch/inline t(strlen(%0))=1,{@include u(ccs)/INC`CHECKPC=%0,1,v(VAR`MSGHEAD)},0,{@include u(ccs)/INC`CHECKPC=%#,1,v(VAR`MSGHEAD)};@assert gt(setr(id,u(sql,get`playerid,%q<t1objid>)),0)=@nspemit %#=u(RFN`MSGHEAD) %q<t1name> does not have a Char_id.;@nspemit %#=u(RFN`MSGHEAD) The Unique Char_id for %q<t1name> is: [ansi(h,%q<id>)]
  73.  
  74. &INC`DOSQL u(scene)=@break strmatch(setr(errcheck,u(sql,%0,%1,%2,%3,%4,%5,%6,%7,%8,%9)),#-*)=@nspemit %#=u(RFN`MSGHEAD) SQL ERROR: %q<errcheck>
  75.  
  76. &SQL`INIT`PLAYER u(scene)=INSERT INTO $DATABASE$.$PLAYERS$ (objid,player_name) VALUES (?,?)
  77. &SQL`GET`PLAYERID u(scene)=SELECT player_id FROM $DATABASE$.$PLAYERS$ WHERE objid=?
  78. &SQL`GET`PLAYEROBJID u(scene)=SELECT objid FROM $DATABASE$.$PLAYERS$ WHERE player_id=?
  79. &SQL`RENAME`PLAYER u(scene)=UPDATE $DATABASE$.$PLAYERS$ SET player_name=? WHERE objid=?
  80.  
  81. &INC`USERCHECK u(scene)=@switch/inline t(setr(pid,u(sql,get`playerid,%0)))=0,{@include u(scene)/INC`DOSQL=INIT`PLAYER,%0,name(%0);@include u(scene)/INC`USERCHECK}
  82.  
  83. @@ @assert setr(pid,u(sql,get`playerid,%0))=@nspemit %#=u(RFN`MSGHEAD) [if(strmatch(%0,%:),You are not,name(%0) is not)] setup for SceneSys!;@break haspower(%0,GUEST)=@nspemit %#=u(RFN`MSGHEAD) Guests may only view scenes with SceneSys.
  84.  
  85. &INC`SCENE`MERGE u(scene)=@assert hasflag(%#,WIZARD)=@nspemit %#=u(RFN`MSGHEAD) Sorry, wizard only.;@include u(ccs)/INC`CHECKPC=%0,1,v(VAR`MSGHEAD);@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) No ID entered to merge to.;@assert strlen(setr(oldobj,u(sql,get`playerobjid,%1)))=@nspemit %#=u(RFN`MSGHEAD) That ID does not exist.;@break isobjid(%q<oldobj>)=@nspemit %#=u(RFN`MSGHEAD) ID '%1' is currently assigned to %q<oldobj> - [name(%q<oldobj>)]. It cannot be merged with another.;@include u(ccs)/INC`VERIFY={[ansi(h,WARNING:)] This will assign Char_Id %1 to %q<t1name>. All poses, scenes, plots, and other SceneSys data attached to their Current ID, if they have one, shall be converted to the old ID. This cannot be undone. Continue? Enter the same command again to verify.},MERGE %q<oldobj> %1,v(VAR`MSGHEAD);@switch/inline gt(setr(pid,u(sql,get`playerid,%q<t1objid>)),0)=1,{@include u(scene)/INC`DOSQL=SET`ALLPOSES,%1,%q<pid>;@include u(scene)/INC`DOSQL=SET`ALLSCENES,%1,%q<pid>;@include u(scene)/INC`DOSQL=SET`ALLSCHEDULE,%1,%q<pid>;@include u(scene)/INC`DOSQL=SET`ALLPLOTS,%1,%q<pid>;@include u(scene)/INC`DOSQL=DELETE`PLAYERID,%q<pid>};@include u(scene)/INC`DOSQL=SET`PLAYERID,%q<t1objid>,%q<t1name>,%1;@nspemit %#=u(RFN`MSGHEAD) The merge was completed.
  86.  
  87. &SQL`SET`ALLPOSES u(scene)=UPDATE $DATABASE$.$POSES$ SET player_id=? WHERE player_id=?
  88. &SQL`SET`ALLSCENES u(scene)=UPDATE $DATABASE$.$SCENES$ SET player_id=? WHERE player_id=?
  89. &SQL`SET`ALLSCHEDULE u(scene)=UPDATE $DATABASE$.$SCHEDULE$ SET player_id=? WHERE player_id=?
  90. &SQL`SET`ALLPLOTS u(scene)=UPDATE $DATABASE$.$PLOTS$ SET player_id=? WHERE player_id=?
  91. &SQL`DELETE`PLAYERID u(scene)=DELETE FROM $DATABASE$.$PLAYERS$ WHERE player_id=?
  92. &SQL`SET`PLAYERID u(scene)=UPDATE $DATABASE$.$PLAYERS$ SET objid=?, player_name=? WHERE player_id=?
  93.  
  94. &INC`SCENE`LOUDCREATE u(scene)=@include u(scene)/INC`SCENE`CREATE=%0,%1,1
  95. &INC`SCENE`CREATE u(scene)=@assert approved(%#)=@nspemit %#=u(RFN`MSGHEAD) You are not approved!;th setq(title,%0[if(strlen(%1),=%1)]);@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`DOSQL=INIT`SCENE,%q<pid>,%q<title>,objid(%l),name(%l),uldefault(%l/D`CUSTLOC,%l,%#);@assert gt(setr(scene,u(sql,get`newsceneid,%q<pid>)),0)=@nspemit %#=u(RFN`MSGHEAD) ERROR: Scene could not be created.;@nspemit/list uldefault(%l/D`CUSTRECP,lcon(%l),%#)=u(RFN`ROOMMSGHEAD) [ansi(h,%n)] created a new scene here: Scene %q<scene>[if(strlen(%q<title>),%b-%b%q<title>)]. Use [pueblize(+scene/join %q<scene>,+scene/join %q<scene>)] to join it!;@switch/inline t(%2)=1,{@nscemit/noisy u(cmo`rp)=ansi(h,%n) created a Scene at [if(match(u(u(navi)/FUN`LISTIC),%l),pueblize(%l - [name(%l)],+port %l),name(%l))]: Scene %q<scene>[if(strlen(%q<title>),%b-%b%q<title>)]};@include u(scene)/INC`SCENE`JOIN=%q<scene>
  96.  
  97. &SQL`INIT`SCENE u(scene)=INSERT INTO $DATABASE$.$SCENES$ (player_id,scene_title,room_objid,room_name,room_custloc,creation_date) VALUES (?,?,?,?,?,UTC_TIMESTAMP())
  98. &SQL`GET`NEWSCENEID u(scene)=SELECT max(scene_id) from $DATABASE$.$SCENES$ WHERE player_id=?
  99.  
  100. &INC`MESSAGE u(scene)=@include u(ccs)/INC`RMSG=v(VAR`MSGHEAD),setunion(lockfilter(D`SCENE`ACTIVE:%0,setunion(iter(uldefault(%l/D`CUSTRECP,lcon(%l),%#),objid(%i0)),u(sql,get`objidsinscene,%0))),%:),{%1}
  101.  
  102. &INC`MSGSCENE u(scene)=@include u(ccs)/INC`RMSG=v(VAR`MSGHEAD),setunion(lockfilter(D`SCENE`ACTIVE:%0,setunion(%:,u(sql,get`objidsinscene,%0))),%:),{%1}
  103.  
  104. &INC`SCENE`JOIN u(scene)=@assert approved(%#)=@nspemit %#=u(RFN`MSGHEAD) You are not approved!;@include u(scene)/INC`USERCHECK=%:;@switch/inline gt(strlen(setr(scene,%0)),0)=1,{@assert valnum(%q<scene>)=@nspemit %#=u(RFN`MSGHEAD) ERROR: Scenes must be addressed by their IDs.;@assert setr(scene,u(sql,get`scenewhereidandstate,%q<scene>,0))=@nspemit %#=u(RFN`MSGHEAD) Scene '%0' does not exist or is not Active.},0,{@assert gt(setr(scene,u(sql,GET`SCENEHERE,objid(%l),uldefault(%l/D`CUSTLOC,%l,%#))),0)=@nspemit %#=u(RFN`MSGHEAD) There are no recent scenes here to join!};&D`SCENE`ACTIVE %#=%q<scene>;@include u(scene)/INC`MESSAGE=%q<scene>,%n joined Scene %q<scene>!;@switch/inline t(get(%#/D`SCENE`SPOOF))=1,{@nspemit %#=u(RFN`MSGHEAD) ALERT: You are currently set to Spoof as: [name(get(%#/D`SCENE`SPOOF))].}
  105.  
  106. &SQL`GET`SCENEHERE u(scene)=SELECT max(scene_id) from $DATABASE$.$SCENES$ WHERE room_objid=? AND room_custloc=? AND scene_state='0' AND creation_date >= date_sub(UTC_TIMESTAMP(),INTERVAL 1 HOUR)
  107. &SQL`GET`SCENEWHEREIDANDSTATE u(scene)=SELECT scene_id from $DATABASE$.$SCENES$ WHERE scene_id=? AND scene_state='?'
  108. &SQL`GET`OBJIDSINSCENE u(scene)=SELECT DISTINCT objid FROM $DATABASE$.$PLAYERS$ NATURAL LEFT JOIN $DATABASE$.$POSES$ WHERE $POSES$.scene_id=?
  109.  
  110. &INC`SCENE`LEAVE u(scene)=@assert setr(scene,get(%#/D`SCENE`ACTIVE))=@nspemit %#=u(RFN`MSGHEAD) You are not in any scenes!;@include u(scene)/INC`MESSAGE=%q<scene>,%n has left Scene %q<scene>;&D`SCENE`ACTIVE %#
  111.  
  112. &INC`OWNCHECK u(scene)=@assert cor(isadmin(%#),eq(setr(ownid,u(sql,get`ownerid,%0)),%1),if(%2,eq(u(sql,get`plotownerid,%2),%1)))=@nspemit %#=u(RFN`MSGHEAD) Permission denied.
  113. &SQL`GET`OWNERID u(scene)=SELECT player_id from $DATABASE$.$SCENES$ WHERE scene_id=?
  114. &SQL`GET`PLOTOWNERID u(scene)=SELECT player_id from $DATABASE$.$PLOTS$ WHERE plot_id=?
  115.  
  116. &INC`SCENE`SPOOF u(scene)=@assert setr(accid,accid(%:))=@nspemit %#=u(RFN`MSGHEAD) You don't have an account!;@switch/inline gt(strlen(%0),0)=1,{@include u(ccs)/INC`CHECKPC=%0,1,v(VAR`MSGHEAD);@assert eq(%q<accid>,setr(othaccid,accid(%q<t1objid>)))=@nspemit %#=u(RFN`MSGHEAD) %q<t1name> is not one of your alts!;@assert u(sql,get`playerid,%q<t1objid>)=@nspemit %#=u(RFN`MSGHEAD) %q<t1name> is not setup for SceneSys!;&D`SCENE`SPOOF %#=%q<t1objid>;@nspemit %#=u(RFN`MSGHEAD) Your poses will now appear to be from %q<t1name>.},0,{&D`SCENE`SPOOF %#;@nspemit %#=u(RFN`MSGHEAD) Your poses will appear to be from yourself.}
  117.  
  118. &INC`VALSCENE u(scene)=@assert strlen(%0)=@nspemit %#=u(RFN`MSGHEAD) Scene ID field empty.;@assert valnum(%0)=@nspemit %#=u(RFN`MSGHEAD) Scenes must be addressed by their IDs.;@assert gt(setr(scene,u(sql,get`scenecheck,%0)),0)=@nspemit %#=u(RFN`MSGHEAD) Scene '%0' could not be found.
  119. &SQL`GET`SCENECHECK u(scene)=SELECT scene_id FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  120.  
  121. &INC`SCENE`TITLE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) ERROR: Title field empty!;@include u(scene)/INC`DOSQL=SET`SCENETITLE,%1,%q<scene>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n changed Scene %q<scene>'s Title to: %1
  122.  
  123. &INC`SCENE`DESC u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) ERROR: Description field empty!;@include u(scene)/INC`DOSQL=SET`SCENEDESC,%1,%q<scene>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n changed Scene %q<scene>'s Description to: %1
  124.  
  125. &INC`SCENE`PLOT u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) No plot entered to link!;@assert cand(isint(%1),gte(%1,0))=@nspemit %#=u(RFN`MSGHEAD) Plots must be addressed by IDs. Use 0 to set No Plot.;@switch/inline gte(%1,0)=1,{@include u(scene)/INC`VALPLOT=%1};@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>,%1;@include u(scene)/INC`DOSQL=SET`SCENEPLOT,%1,%q<scene>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n changed Scene %q<scene>'s Plot to: %1 - [u(sql,get`plottitle,%1)]
  126.  
  127. &SQL`SET`SCENETITLE u(scene)=UPDATE $DATABASE$.$SCENES$ SET scene_title=? WHERE scene_id=?
  128. &SQL`SET`SCENEDESC u(scene)=UPDATE $DATABASE$.$SCENES$ SET scene_desc=? WHERE scene_id=?
  129. &SQL`SET`SCENEPLOT u(scene)=UPDATE $DATABASE$.$SCENES$ SET plot_id=? WHERE scene_id=?
  130.  
  131. &INC`SCENE`FINISH u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=strfirstof(%0,get(%#/D`SCENE`ACTIVE));@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@include u(scene)/INC`DOSQL=SET`SCENESTATE,3,%q<scene>;@@ @include u(scene)/INC`DOSQL=SET`SCENEFINISH;@include u(scene)/INC`MESSAGE=%q<scene>,%n has marked Scene %q<scene> Finished!
  132. &INC`SCENE`PAUSE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=strfirstof(%0,get(%#/D`SCENE`ACTIVE));@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@include u(scene)/INC`DOSQL=SET`SCENESTATE,1,%q<scene>;@include u(scene)/INC`MESSAGE=%q<scene>,%n has marked Scene %q<scene> Paused!
  133. &INC`SCENE`CONTINUE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=strfirstof(%0,get(%#/D`SCENE`ACTIVE));@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@include u(scene)/INC`DOSQL=SET`SCENESTATE,0,%q<scene>;@include u(scene)/INC`MESSAGE=%q<scene>,%n has continued Scene %q<scene>! It will now record new poses.
  134.  
  135. &SQL`SET`SCENESTATE u(scene)=UPDATE $DATABASE$.$SCENES$ SET scene_state='?' WHERE scene_id=?
  136.  
  137. &INC`SCENE`UNDO u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=get(%#/D`SCENE`ACTIVE);@assert eq(u(sql,get`scenestate,%q<scene>),0)=@nspemit %#=u(RFN`MSGHEAD) That scene is not Active!;@assert gt(setr(undo,u(sql,get`lastpose,%q<scene>,%q<pid>,0)),0)=@nspemit %#=u(RFN`MSGHEAD) You have no recent poses that can be undone.;@include u(scene)/INC`DOSQL=SET`IGNORE,1,%q<undo>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n turned on Ignore for their last pose: %q<undo>
  138.  
  139. &INC`SCENE`REDO u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=get(%#/D`SCENE`ACTIVE);@assert eq(u(sql,get`scenestate,%q<scene>),0)=@nspemit %#=u(RFN`MSGHEAD) That scene is not Active!;@assert gt(setr(undo,u(sql,get`lastpose,%q<scene>,%q<pid>,1)),0)=@nspemit %#=u(RFN`MSGHEAD) You have no recent poses that can be restored.;@include u(scene)/INC`DOSQL=SET`IGNORE,0,%q<undo>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n restored an earlier Ignored pose: %q<undo>
  140.  
  141. &SQL`GET`LASTPOSE u(scene)=SELECT max(pose_id) FROM $DATABASE$.$POSES$ WHERE scene_id=? and player_id=? AND pose_ignore=? AND pose_time >= date_sub(UTC_TIMESTAMP(),INTERVAL 1 HOUR)
  142. &SQL`SET`IGNORE u(scene)=UPDATE $DATABASE$.$POSES$ SET pose_ignore=? WHERE pose_id=?
  143.  
  144. &INC`SCENE`RECALL u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=strfirstof(%0,get(%#/D`SCENE`ACTIVE));@switch/inline gt(strlen(%1),0)=1,{@assert valnum(%1)=@nspemit %#=u(RFN`MSGHEAD) The number of poses must be a whole, positive number.;th setq(poses,%1)},0,{th setq(poses,15)};@nspemit %#=u(RFN`HEADER,Scene %q<scene>[if(strlen(setr(title,u(sql,get`scenetitle,%q<scene>))),:%B%q<title>)]);th setq(target,%#);th mapsql(u(scene)/FUN`RECALL,u(u(scene)/FUN`SQLFORMAT,GET`SCENERECALL,%q<scene>,%q<poses>));@nspemit %#=u(RFN`HEADER)
  145.  
  146. @@ @mapsql u(scene)/FUN`RECALL=u(u(scene)/FUN`SQLFORMAT,GET`SCENERECALL,%q<scene>,%q<poses>)
  147.  
  148. &FUN`RECALL u(scene)=nspemit(%q<target>,u(RFN`SEPARATOR,name(%1) Posed on [timefmt($b $d $I:$M$p $Z,convtime(%4,%q<target>),%q<target>)])%R%3)
  149.  
  150. &SQL`GET`SCENETITLE u(scene)=SELECT scene_title FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  151. &SQL`GET`SCENERECALL u(scene)=SELECT * FROM (SELECT objid,pose_id,pose,pose_time from $DATABASE$.$POSES$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE $POSES$.scene_id=? AND $POSES$.pose_ignore=0 ORDER BY $POSES$.pose_id desc limit ?) sub ORDER BY pose_id ASC
  152.  
  153. &INC`SCENE`MAIN u(scene)=@switch/inline t(strlen(%0))[isint(%0)]=0*,{@include u(scene)/INC`SCENE`PLAYERLIST=%:,%1},11,{@include u(scene)/INC`SCENE`DETAILS=%0,%1},10,{@include u(scene)/INC`SCENE`PLAYERLIST=%0,%1}
  154.  
  155. &INC`SCENE`OLD u(scene)=@include u(scene)/INC`SCENE`MAIN=%0,4
  156.  
  157. &INC`SCENE`PLAYERLIST u(scene)=@include u(ccs)/INC`CHECKPC=strfirstof(%0,%#),1,v(VAR`MSGHEAD);@include u(scene)/INC`USERCHECK=%q<t1objid>;@nspemit %#=u(RFN`HEADER,if(strmatch(%q<t1objid>,%:),Your,%q<t1name>'s) [if(%1,Finished,Incomplete)] Scenes);th setq(target,%#);@nspemit %#=align(4 43 20 8,ID,Title,Owner,if(%1,Date,Status));@dolist/inline u(sql,GET`SCENEMINE%1,%q<pid>,%q<pid>)={th mapsql(u(scene)/FUN`SCENEMINE%1,u(u(scene)/FUN`SQLFORMAT,GET`SCENEMINE3%1,%i0))};@nspemit %#=u(RFN`HEADER)
  158.  
  159. &FUN`SCENEMINE u(scene)=nspemit(%#,align(4 43 20 8,pueblize(%1,+scene %1),%2,%3,switch(%4,0,Active,1,Paused,2,Unfinished,3,Finished,???)))
  160.  
  161. &FUN`SCENEMINE4 u(scene)=nspemit(%#,align(4 43 20 8,pueblize(%1,+scene %1),%2,%3,timefmt($m/$d/$y,%4,%#)))
  162.  
  163. &SQL`GET`SCENEMINE u(scene)=SELECT DISTINCT scenes.scene_id FROM $DATABASE$.$SCENES$ AS scenes LEFT JOIN $DATABASE$.$POSES$ AS poses ON scenes.scene_id=poses.scene_id WHERE (scenes.player_id=? OR poses.player_id=?) AND scene_state!='3'
  164. &SQL`GET`SCENEMINE4 u(scene)=SELECT DISTINCT scenes.scene_id FROM $DATABASE$.$SCENES$ AS scenes LEFT JOIN $DATABASE$.$POSES$ AS poses ON scenes.scene_id=poses.scene_id WHERE (scenes.player_id=? OR poses.player_id=?) AND scene_state='3'
  165.  
  166. &SQL`GET`SCENEMINE3 u(scene)=SELECT scene_id,scene_title,player_name,scene_state FROM $DATABASE$.$SCENES$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE scene_id=?
  167.  
  168. &SQL`GET`SCENEMINE34 u(scene)=SELECT scene_id,scene_title,player_name,UNIX_TIMESTAMP(creation_date) FROM $DATABASE$.$SCENES$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE scene_id=?
  169.  
  170. &INC`SCENE`DETAILS u(scene)=@include u(scene)/INC`VALSCENE=%0;th setq(ownerid,u(sql,get`ownerid,%q<scene>));@nspemit %#=u(RFN`HEADER,Scene %q<scene>[if(strlen(setr(title,u(sql,get`scenetitle,%q<scene>))),:%B%q<title>)]);@nspemit %#=ansi(h,Started:) [fancytime(convtime(u(sql,get`scenedate,%q<scene>),%#),%#)]%R[ansi(h,Description:)] [u(sql,get`scenedesc,%q<scene>)]%R[ansi(h,Owner:)]%B[u(sql,get`playername,%q<ownerid>)]%R[if(strlen(setr(tp,u(sql,get`tinyplot,%q<scene>))),ansi(h,Tinyplot:) %q<tp>%R)][ansi(h,Status:)] [switch(u(sql,get`scenestate,%q<scene>),0,Active,1,Paused,2,Unfinished,3,Finished)];@nspemit %#=u(RFN`SEPARATOR,Players);@nspemit %#=align(30 30 15,ansi(h,Name),ansi(h,Status),ansi(h,Poses));@nspemit %#=u(RFN`SEPARATOR);@dolist/inline/delimit | [sql(u(FUN`SQLFORMAT,GET`PLAYERCOUNT,%q<scene>),|,~)]={@nspemit %#=align(30 30 15,elements(%i0,2,~),if(eq(%q<scene>,get(elements(%i0,1,~)/D`SCENE`ACTIVE)),Active,Inactive),u(sql,get`playerposecount,%q<scene>,elements(%i0,3,~)))};@switch/inline gt(setr(total,u(sql,get`sceneposecount,%q<scene>)),0)=1,{@nspemit %#=align(30 >30 15,,Total:,%q<total>)};@nspemit %#=u(RFN`SEPARATOR);@nspemit %#=ansi(h,URL:) [weblink(http://[v(VAR`URL`DOMAIN)][u(VAR`URL`PHP)]%q<scene>)];@nspemit %#=u(RFN`HEADER)
  171.  
  172. &SQL`GET`SCENEDESC u(scene)=SELECT scene_desc FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  173. &SQL`GET`SCENEDATE u(scene)=SELECT creation_date FROM $DATABASE$.$SCENES$ WHERE scene_id=?
  174. &SQL`GET`PLAYERNAME u(scene)=SELECT player_name from $DATABASE$.$PLAYERS$ WHERE player_id=?
  175. &SQL`GET`PLAYERPOSECOUNT u(scene)=SELECT count(pose_id) FROM $DATABASE$.$POSES$ WHERE scene_id=? and player_id=?
  176. &SQL`GET`SCENEPOSECOUNT u(scene)=SELECT count(pose_id) FROM $DATABASE$.$POSES$ WHERE scene_id=?
  177. &SQL`GET`TINYPLOT u(scene)=SELECT plot_title FROM $DATABASE$.$SCENES$ NATURAL LEFT JOIN $DATABASE$.$PLOTS$ WHERE scene_id=?
  178.  
  179. &SQL`GET`PLAYERCOUNT u(scene)=SELECT DISTINCT Objid,player_name,$PLAYERS$.player_id FROM $DATABASE$.$PLAYERS$ NATURAL LEFT JOIN $DATABASE$.$POSES$ WHERE scene_id=? ORDER BY player_name
  180.  
  181. &INC`SCENE`MOVE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@assert isic(%l)=@nspemit %#=u(RFN`MSGHEAD) ERROR: This location is not IC!;@include u(scene)/INC`DOSQL=SET`RELOCATE,objid(%l),name(%l),uldefault(%l/D`CUSTLOC,%l,%#),%q<scene>;@include u(scene)/INC`MESSAGE=%q<scene>,{%n has changed the scene's location to: %l - [name(%l)]}
  182. &INC`SCENE`TINYPLOT u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@include u(scene)/INC`VALPLOT=%1;@include u(scene)/INC`DOSQL=SET`SCENEPLOT,%q<plot>,%q<scene>;@include u(scene)/INC`MSGSCENE=%q<scene>,{%n linked Scene %q<scene> to Tinyplot %q<plot>}
  183. &INC`SCENE`NOTINYPLOT u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCENE=%0;@include u(scene)/INC`OWNCHECK=%q<scene>,%q<pid>;@assert setr(plot,u(sql,get`sceneplot,%q<scene>))=@nspemit %#=u(RFN`MSGHEAD) That scene is not linked to any Tinyplots!;@include u(scene)/INC`DOSQL=SET`NOSCENEPLOT,%q<scene>;
  184.  
  185. &SQL`SET`RELOCATE u(scene)=UPDATE $DATABASE$.$SCENES$ SET room_objid=?,room_name=?,room_custloc=? WHERE scene_id=?
  186. &SQL`SET`SCENEPLOT u(scene)=UPDATE $DATABASE$.$SCENES$ SET plot_id=? WHERE scene_id=?
  187. &SQL`SET`NOSCENEPLOT u(scene)=UPDATE $DATABASE$.$SCENES$ SET plot_id=NULL WHERE scene_id=?
  188.  
  189. &INC`SCENES`ADD u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`CHECKTIME=trim(before(%0,/));@assert strlen(setr(title,trim(after(%0,/))))=@nspemit %#=u(RFN`MSGHEAD) You need to give the scene a title!;@break charin(%q<title>,/ %r %t)=@nspemit %#=u(RFN`MSGHEAD) The following characters are not permitted in titles: /, \%r, \%t.;@assert strlen(setr(desc,%1))=@nspemit %#=u(RFN`MSGHEAD) Your scene needs a description!;@include u(scene)/INC`DOSQL=INSERT`NEWSCHEDULE,%q<pid>,trim(trim(%q<title>,%r),%t),trim(trim(%q<desc>,%r),%t),%q<time>;th setq(schedid,u(sql,get`newschedule,%q<pid>));@trigger/spoof u(bbs)/INC`POST=BB,v(VAR`BBS`RPBBDBREF),#%q<schedid>: %q<title>,u(FUN`FORMATPOST,%q<title>,%n,fancytime(%q<time>,u(scene)),%q<desc>),1;@nspemit %#=u(RFN`MSGHEAD) You schedule a new scene- Scenes %q<schedid>: %q<title> on [fancytime(%q<time>,%#)];@wait 1={@include u(scene)/INC`DOSQL=SET`SCHEDULEBB,setr(postid,before(first(wildgrepi(v(VAR`BBS`RPBBDBREF),*`HDR,#%q<schedid>:*)),`)),%q<schedid>}
  190.  
  191. &INC`SCENES`TAG u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@break u(sql,get`tagcheck,%q<schedule>,%q<pid>)=@nspemit %#=u(RFN`MSGHEAD) You are already signed up for that scene.;@include u(scene)/INC`DOSQL=INSERT`NEWTAG,%q<pid>,%q<schedule>;@nspemit %#=u(RFN`MSGHEAD) You have tagged Scheduled Scene %0!
  192.  
  193. &INC`SCENES`UNTAG u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@assert u(sql,get`tagcheck,%q<schedule>,%q<pid>)=@nspemit %#=u(RFN`MSGHEAD) You are not signed up for that scene.;@include u(scene)/INC`DOSQL=DELETE`TAG,%q<pid>,%q<schedule>;@nspemit %#=u(RFN`MSGHEAD) You have untagged Scheduled Scene %0!
  194. &SQL`INSERT`NEWTAG u(scene)=INSERT INTO $DATABASE$.$TAGS$ (player_id,schedule_id) VALUES (?,?)
  195. &SQL`DELETE`TAG u(scene)=DELETE FROM $DATABASE$.$TAGS$ WHERE player_id=? AND schedule_id=?
  196. &SQL`GET`TAGCHECK u(scene)=SELECT tag_id from $DATABASE$.$TAGS$ WHERE schedule_id=? AND player_id=?
  197.  
  198. &SQL`INSERT`NEWSCHEDULE u(scene)=INSERT INTO $DATABASE$.$SCHEDULE$ (player_id,schedule_title,schedule_desc,schedule_date) VALUES (?,?,?,FROM_UNIXTIME('?'))
  199. &SQL`GET`NEWSCHEDULE u(scene)=SELECT max(schedule_id) FROM $DATABASE$.$SCHEDULE$ WHERE player_id=?
  200. &SQL`SET`SCHEDULEBB u(Scene)=UPDATE $DATABASE$.$SCHEDULE$ SET post_id=? WHERE schedule_id=?
  201.  
  202. &FUN`FORMATPOST u(scene)=ansi(h,Title:) %0%R[ansi(h,Posted by:)] %1%R[ansi(h,Scheduled Time:)] %2%R[repeat(-,78)]%R%3
  203.  
  204. &INC`CHECKTIME u(scene)=@assert strlen(%0)=@nspemit %#=u(RFN`MSGHEAD) You didn't enter a date!;@assert gt(setr(time,convtime(%0,%#)),0)=@nspemit %#=u(RFN`MSGHEAD) The entered date was not recognized. Did you typo? Dates should be in abbreviated 24-hour <month> <day> <hour>:<minute> format using YOUR timezone (@tz), such as Jun 26 7:00 or Oct 31 13:00.;@switch/inline t(%1)=0,{@assert gt(%q<time>,secs())=@nspemit %#=u(RFN`MSGHEAD) That would be in the past!}
  205.  
  206. &INC`SCENES`MAIN u(scene)=@switch/inline gt(strlen(%0),0)=1,{@include u(scene)/INC`SCENES`DETAILS},0,{@include u(scene)/INC`SCENES`LIST}
  207.  
  208. &INC`SCENES`LIST u(scene)=@include u(scene)/INC`USERCHECK=%:;@nspemit %#=u(RFN`HEADER,Current Schedule - [timefmt($Z,,%#)]);@dolist/inline u(sql,GET`UPCOMING)={@switch/inline not(strmatch(%q<last>,setr(last,timefmt($a $b $d $Y $Z,setr(time,u(sql,get`scheduletime,%i0)),%#))))=1,{@nspemit %#=u(RFN`HEADER,%q<last>)};@nspemit %#=u(FUN`FORMATSCHEDULE2,%q<pid>,%i0,u(sql,get`scheduletitle,%i0),u(sql,get`scheduleplayername,%i0),%q<time>,u(sql,get`schedownerid,%i0))};@nspemit %#=u(RFN`HEADER)
  209.  
  210. &FUN`FORMATSCHEDULE2 u(scene)=align(3 4 42 20 7,ljust(switch(1,eq(%0,%5),ansi(hg,*),t(words(setinter(u(sql,get`playerobjid,%5),alts(%:)))),ansi(hg,*),t(u(sql,get`tagcheck,%1,%0)),ansi(hr,*),t(words(setinter(u(sql,get`tagobjids,%1),alts(%:)))),ansi(c,*)),1)[u(sql,get`tagcount,%1)],pueblize(%1,+scenes %1),%2,%3,elements(fancytime(%4,%q<target>),3))
  211.  
  212. &SQL`GET`TAGCOUNT u(scene)=SELECT count(tag_id) FROM $DATABASE$.$TAGS$ WHERE schedule_id=?
  213. &SQL`GET`TAGOBJIDS u(scene)=SELECT DISTINCT objid from $DATABASE$.$TAGS$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE schedule_id=?
  214.  
  215. @@ th mapsql(u(scene)/FUN`FORMATSCHEDULE,u(FUN`SQLFORMAT,get`fullschedule));@nspemit %#=u(RFN`HEADER)
  216.  
  217. &SQL`GET`UPCOMING u(scene)=SELECT schedule_id FROM $DATABASE$.$SCHEDULE$ WHERE schedule_date >= UTC_TIMESTAMP() - INTERVAL 10 HOUR ORDER by schedule_date
  218.  
  219. &SQL`GET`FULLSCHEDULE u(scene)=SELECT schedule_id,schedule_title,player_name,UNIX_TIMESTAMP(schedule_date) FROM $DATABASE$.$SCHEDULE$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE schedule_date >= UTC_TIMESTAMP() - INTERVAL 10 HOUR ORDER BY schedule_date
  220.  
  221. &FUN`FORMATSCHEDULE u(scene)=if(not(strmatch(%q<last>,setr(last,timefmt($a $b $d $Y $Z,%4,%q<target>)))),nspemit(%q<target>,u(RFN`HEADER,%q<last>)))[nspemit(%q<target>,align(4 43 20 7,pueblize(%1,+scenes %1),%2,%3,elements(fancytime(%4,%q<target>),3)))]
  222.  
  223. &INC`VALSCHED u(scene)=@assert strlen(%0)=@nspemit %#=u(RFN`MSGHEAD) Schedule ID field empty.;@assert valnum(%0)=@nspemit %#=u(RFN`MSGHEAD) Schedule scenes must be addressed by their IDs.;@assert gt(setr(schedule,u(sql,get`schedulecheck,%0)),0)=@nspemit %#=u(RFN`MSGHEAD) Scheduled scene '%0' could not be found.;th setq(bb,v(VAR`BBS`RPBBDBREF));th setq(post,u(sql,get`postid,%q<schedule>));
  224. &SQL`GET`SCHEDULECHECK u(scene)=SELECT schedule_id FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  225. &SQL`GET`POSTID u(scene)=SELECT post_id FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  226.  
  227. &INC`OWNSCHED u(scene)=@assert cor(isadmin(%#),eq(u(sql,get`schedownerid,%0),%1),if(%2,eq(u(sql,get`plotrunner,%2),%0)))=@nspemit %#=u(RFN`MSGHEAD) Permission denied.
  228. &SQL`GET`SCHEDOWNERID u(scene)=SELECT player_id from $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  229.  
  230. &INC`SCENES`DETAILS u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@nspemit %#=u(RFN`HEADER,Scheduled ID %q<schedule>: [u(sql,get`scheduletitle,%q<schedule>)]);@nspemit %#=ansi(h,Owner:) [u(sql,get`scheduleplayername,%q<schedule>)]%R[u(sql,get`scheduledesc,%q<schedule>)];@nspemit %#=u(RFN`SEPARATOR,Scheduled Time);@nspemit %#=align(-38 -38,fancytime(setr(time,u(sql,get`scheduletime,%q<schedule>)),UTC),fancytime(%q<time>,%#));@switch/inline cand(u(sql,get`tagcount,%q<schedule>),cor(isadmin(%#),eq(u(sql,get`schedownerid,%q<schedule>),%q<pid>)))=1,{@nspemit %#=u(RFN`SEPARATOR,Interested Players);th mapsql(FUN`INTERESTPLAY,u(FUN`SQLFORMAT,get`interest,%q<schedule>))};@nspemit %#=u(RFN`HEADER)
  231.  
  232. &FUN`INTERESTPLAY u(scene)=nspemit(%#,%1)
  233. &SQL`GET`INTEREST u(scene)=SELECT player_name from $DATABASE$.$TAGS$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE schedule_id=?
  234.  
  235. &SQL`GET`SCHEDULETITLE u(scene)=SELECT schedule_title FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  236. &SQL`GET`SCHEDULEDESC u(scene)=SELECT schedule_desc FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  237. &SQL`GET`SCHEDULEPLAYERNAME u(scene)=SELECT player_name FROM $DATABASE$.$SCHEDULE$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE schedule_id=?
  238. &SQL`GET`SCHEDULETIME u(scene)=SELECT UNIX_TIMESTAMP(schedule_date) FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  239.  
  240. &INC`SCENES`DESC u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) What will you replace the text with?;@include u(scene)/INC`DOSQL=SET`SCHEDULEDESC,trim(trim(%1,%r),%t),%q<schedule>;th setr(desc,u(sql,get`scheduledata,%q<schedule>));&%q<post> %q<bb>=u(FUN`FORMATPOST,u(sql,get`scheduletitle,%q<schedule>),%n,fancytime(u(sql,get`scheduletime,%q<schedule>),u(scene)),%1);@nspemit %#=u(RFN`MSGHEAD) The schedule description was modified!
  241.  
  242. &SQL`SET`SCHEDULEDESC u(scene)=UPDATE $DATABASE$.$SCHEDULE$ SET schedule_desc=? WHERE schedule_id=?
  243.  
  244. &INC`SCENES`TITLE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) What will you replace the text with?;@break charin(%1,%r %t)=@nspemit %#=u(RFN`MSGHEAD) The following characters are not permitted in titles: \%r, \%t.;@include u(scene)/INC`DOSQL=SET`SCHEDULETITLE,setr(title,trim(trim(%1,%r),%t)),%q<schedule>;&%q<post> %q<bb>=u(FUN`FORMATPOST,%1,%n,fancytime(u(sql,get`scheduletime,%q<schedule>),u(scene)),u(sql,get`scheduledesc,%q<schedule>));&%q<post>`HDR %q<bb>=#%q<schedule>: %q<title>;@nspemit %#=u(RFN`MSGHEAD) The schedule title was modified!
  245.  
  246. &SQL`SET`SCHEDULETITLE u(scene)=UPDATE $DATABASE$.$SCHEDULE$ SET schedule_title=? WHERE schedule_id=?
  247.  
  248. &INC`SCENES`PLOT u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) No plot entered to link!;@assert cand(isint(%1),gte(%1,0))=@nspemit %#=u(RFN`MSGHEAD) Plots must be addressed by IDs. Use 0 to set No Plot.;@switch/inline gte(%1,0)=1,{@include u(scene)/INC`VALPLOT=%1};@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>,%1;@include u(scene)/INC`DOSQL=SET`SCHEDULEPLOT,%1,%q<schedule>;@include u(scene)/INC`MSGSCENE=%q<scene>,%n changed Schedule'd Scene %q<schedule>'s Plot to: %1 - [u(sql,get`plottitle,%1)]
  249.  
  250. &SQL`SET`SCHEDULEPLOT u(scene)=UPDATE $DATABASE$.$SCHEDULE$ SET plot_id=? WHERE schedule_id=?
  251.  
  252. &INC`SCENES`RESCHEDULE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>;@include u(scene)/INC`CHECKTIME=%1;@include u(scene)/INC`DOSQL=SET`SCHEDULEDATE,%q<time>,%q<schedule>;&%q<post> %q<bb>=u(FUN`FORMATPOST,u(sql,get`scheduletitle,%q<schedule>),%n,fancytime(u(sql,get`scheduletime,%q<schedule>),u(scene)),u(sql,get`scheduledesc,%q<schedule>));@nspemit %#=u(RFN`MSGHEAD) The schedule date was modified!
  253. &SQL`SET`SCHEDULEDATE u(scene)=UPDATE $DATABASE$.$SCHEDULE$ SET schedule_date=FROM_UNIXTIME(?) WHERE schedule_id=?
  254.  
  255. &INC`SCENES`MAIL u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>;@assert words(setr(mailto,filterbool(#lambda/isobjid(\%0),setunion(u(sql,get`taggedobj,%q<schedule>),setunion(u(sql,get`schedownerobj,%q<schedule>),%:)))))=@nspemit %#=u(RFN`MSGHEAD) No valid recipients to mail to.;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) ERROR: No message text.;@force/inplace %#={@mail %q<mailto>=%1}
  256. &SQL`GET`TAGGEDOBJ u(scene)=SELECT DISTINCT players.objid FROM $DATABASE$.$TAGS$ AS tags LEFT JOIN $DATABASE$.$PLAYERS$ as players ON tags.player_id=players.player_id WHERE schedule_id=?
  257. &SQL`GET`SCHEDOWNEROBJ u(scene)=SELECT objid from $DATABASE$.$SCHEDULE$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE schedule_id=?
  258.  
  259. &INC`SCENES`DELETE u(scene)=@include u(scene)/INC`USERCHECK=%:;@include u(scene)/INC`VALSCHED=%0;@include u(scene)/INC`OWNSCHED=%q<schedule>,%q<pid>;@include u(ccs)/INC`VERIFY={[ansi(hr,WARNING:)] This will remove Schedule Scene %q<schedule>. Are you sure? Enter the same command in ten seconds to verify!},DELETE %q<schedule>,v(VAR`MSGHEAD);@include u(scene)/INC`DOSQL=DEL`SCHEDULE,%q<schedule>;@nspemit %#=u(RFN`MSGHEAD) The scheduled scene was deleted!;@wipe %q<bb>/%q<post>
  260. &SQL`DEL`SCHEDULE u(scene)=DELETE FROM $DATABASE$.$SCHEDULE$ WHERE schedule_id=?
  261.  
  262. &INC`PLOT`MAIN u(scene)=@switch/inline gt(strlen(%0),0)=1,{@include u(scene)/INC`PLOT`DETAILS},0,{@include u(scene)/INC`PLOT`LIST}
  263.  
  264. &INC`PLOT`ALL u(scene)=@include u(scene)/INC`PLOT`LIST=%0,1
  265.  
  266. &INC`PLOT`LIST u(scene)=@nspemit %#=u(RFN`HEADER,if(%1,All,Current) Plots);@nspemit %#=align(4 20 20 20 10,ID,Title,Runner,Schedule,Type);th setq(target,%#);th mapsql(u(scene)/FUN`FORMATPLOT,u(FUN`SQLFORMAT,if(%1,get`allplots,get`runningplots)));@nspemit %#=u(RFN`HEADER)
  267.  
  268. &SQL`GET`ALLPLOTS u(scene)=SELECT plot_id,plot_title,player_name,UNIX_TIMESTAMP(start_date),UNIX_TIMESTAMP(end_date),plot_type FROM $DATABASE$.$PLOTS$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$
  269.  
  270. &SQL`GET`RUNNINGPLOTS u(scene)=SELECT plot_id,plot_title,player_name,UNIX_TIMESTAMP(start_date),UNIX_TIMESTAMP(end_date),plot_type FROM $DATABASE$.$PLOTS$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE end_date > NOW()
  271.  
  272. &FUN`FORMATPLOT u(scene)=nspemit(%q<target>,align(4 20 20 20 10,pueblize(%1,+plot %1),%2,%3,elements(fancytime(%4,%q<target>),1 2) - [elements(fancytime(%5,%q<target>),1 2)],%6))
  273.  
  274. &INC`VALPLOT u(scene)=@assert strlen(%0)=@nspemit %#=u(RFN`MSGHEAD) Plot ID field empty.;@assert valnum(%0)=@nspemit %#=u(RFN`MSGHEAD) Plots must be addressed by their IDs.;@assert gt(setr(plot,u(sql,get`plotcheck,%0)),0)=@nspemit %#=u(RFN`MSGHEAD) Plot '%0' could not be found.
  275. &SQL`GET`PLOTCHECK u(scene)=SELECT plot_id FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  276.  
  277. &INC`PLOT`DETAILS u(scene)=@include u(scene)/INC`VALPLOT=%0;@nspemit %#=u(RFN`HEADER,Plot ID %q<plot>: [u(sql,get`plottitle,%q<plot>)]);@nspemit %#=ansi(h,Runner:) [u(sql,get`plotrunnername,%q<plot>)]%R[ansi(h,Schedule:)] [fancytime(u(sql,get`plotstart,%q<plot>),%#)] to [fancytime(u(sql,get`plotend,%q<plot>),%#)]%R[ansi(h,Type:)] [u(sql,get`plottype,%q<plot>)]%R[ansi(h,Status:)] [u(sql,get`plotstatus,%q<plot>)]%R[u(sql,get`plotdesc,%q<plot>)];@nspemit %#=u(RFN`HEADER)
  278. &SQL`GET`PLOTRUNNER u(scene)=SELECT player_id FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  279. &SQL`GET`PLOTRUNNERNAME u(scene)=SELECT player_name FROM $DATABASE$.$PLOTS$ NATURAL LEFT JOIN $DATABASE$.$PLAYERS$ WHERE plot_id=?
  280. &SQL`GET`PLOTTITLE u(scene)=SELECT plot_title FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  281. &SQL`GET`PLOTSTART u(scene)=SELECT UNIX_TIMESTAMP(start_date) FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  282. &SQL`GET`PLOTEND u(scene)=SELECT UNIX_TIMESTAMP(end_date) FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  283. &SQL`GET`PLOTTYPE u(scene)=SELECT plot_type FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  284. &SQL`GET`PLOTSTATUS u(scene)=SELECT plot_status FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  285. &SQL`GET`PLOTDESC u(scene)=SELECT plot_desc FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  286.  
  287. &INC`PLOT`ADD u(scene)=@include u(ccs)/INC`CHECKPC=before(%0,/),1,v(VAR`MSGHEAD);@assert gt(setr(pid,u(sql,get`playerid,%q<t1objid>)),0)=@nspemit %#=u(RFN`MSGHEAD) %q<t1name> is not setup for SceneSys!;@assert strlen(after(%0,/))=@nspemit %#=u(RFN`MSGHEAD) The Plot needs a title!;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) The Plot needs a description!;@include u(scene)/INC`DOSQL=NEW`PLOT,%q<pid>,after(%0,/),%1;th setq(plot,u(SQL,get`newplot,%q<pid>));@nspemit %#=u(RFN`MSGHEAD) Plot added!
  288.  
  289. &SQL`NEW`PLOT u(scene)=INSERT INTO $DATABASE$.$PLOTS$ (player_id,plot_title,plot_desc,start_date,end_date,plot_status) VALUES (?,?,?,UTC_TIMESTAMP(),UTC_TIMESTAMP() + INTERVAL 1 MONTH,'Approved')
  290. &SQL`GET`NEWPLOT u(scene)=SELECT plot_id FROM $DATABASE$.$PLOTS$ WHERE player_id=? ORDER BY plot_id LIMIT 1
  291.  
  292. &INC`PLOT`TITLE u(scene)=@include u(scene)/INC`VALPLOT=%0;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) The new title field is empty!;@include u(scene)/INC`DOSQL=SET`PLOTTITLE,%1,%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The Plot title was changed.
  293. &INC`PLOT`DESC u(scene)=@include u(scene)/INC`VALPLOT=%0;@assert strlen(%1)=@nspemit %#=u(RFN`MSGHEAD) The new description field is empty!;@include u(scene)/INC`DOSQL=SET`PLOTDESC,%1,%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The Plot description was changed.
  294. &SQL`SET`PLOTTITLE u(scene)=UPDATE $DATABASE$.$PLOTS$ SET plot_title=? WHERE plot_id=?
  295. &SQL`SET`PLOTDESC u(scene)=UPDATE $DATABASE$.$PLOTS$ SET plot_desc=? WHERE plot_id=?
  296.  
  297. &INC`PLOT`START u(scene)=@include u(scene)/INC`VALPLOT=%0;@include u(scene)/INC`CHECKTIME=%1,1;@include u(scene)/INC`DOSQL=SET`PLOTSTART,%q<time>,%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The plot's Start date was set to [fancytime(%q<time>,%#)]
  298. &INC`PLOT`END u(scene)=@include u(scene)/INC`VALPLOT=%0;@include u(scene)/INC`CHECKTIME=%1,1;@include u(scene)/INC`DOSQL=SET`PLOTEND,%q<time>,%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The plot's End date was set to [fancytime(%q<time>,%#)]
  299. &SQL`SET`PLOTSTART u(scene)=UPDATE $DATABASE$.$PLOTS$ SET start_date=FROM_UNIXTIME(?) WHERE plot_id=?
  300. &SQL`SET`PLOTEND u(scene)=UPDATE $DATABASE$.$PLOTS$ SET end_date=FROM_UNIXTIME(?) WHERE plot_id=?
  301.  
  302. &INC`PLOT`TYPE u(scene)=@include u(scene)/INC`VALPLOT=%0;@assert strlen(%1)=@nspemit %#=u(RFn`MSGHEAD) You must include a status! Your choices are Minor, Major, and Global.;@include u(ccs)/INC`PARTIAL=%1,MINOR|MAJOR|GLOBAL,|,v(VAR`MSGHEAD),Status,Status;@include u(scene)/INC`DOSQL=SET`PLOTTYPE,capnames(%q<status>),%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The Status was changed to [capnames(%q<status>)].
  303. &SQL`SET`PLOTTYPE u(scene)=UPDATE $DATABASE$.$PLOTS$ SET plot_type=? WHERE plot_id=?
  304.  
  305. &INC`PLOT`RUNNER u(scene)=@include u(scene)/INC`VALPLOT=%0;@include u(ccs)/INC`CHECKPC=%1,1,v(VAR`MSGHEAD);@assert gt(setr(pid,u(sql,get`playerid,%q<t1objid>)),0)=@nspemit %#=u(RFN`MSGHEAD) %q<t1name> is not setup for SceneSys!;@include u(scene)/INC`DOSQL=SET`PLOTRUNNER,%q<pid>,%q<plot>
  306. &SQL`SET`PLOTRUNNER u(scene)=UPDATE $DATABASE$.$PLOTS$ SET player_id=? WHERE plot_id=?
  307.  
  308. &INC`PLOT`STATUS u(scene)=@include u(scene)/INC`VALPLOT=%0;@assert strlen(%1)=@nspemit %#=u(RFn`MSGHEAD) You must include a status! Your choices are Approved, Running, Paused, Finished, and Canceled.;@include u(ccs)/INC`PARTIAL=%1,APPROVED|RUNNING|PAUSED|FINISHED|CANCELED,|,v(VAR`MSGHEAD),Status,Status;@include u(scene)/INC`DOSQL=SET`PLOTSTATUS,capnames(%q<status>),%q<plot>;@nspemit %#=u(RFN`MSGHEAD) The Status was changed to [capnames(%q<status>)].
  309. &SQL`SET`PLOTSTATUS u(scene)=UPDATE $DATABASE$.$PLOTS$ SET plot_status=? WHERE plot_id=?
  310.  
  311. &INC`PLOT`DELETE u(scene)=@include u(scene)/INC`VALPLOT=%0;@include u(ccs)/INC`VERIFY={ansi(hr,WARNING:) This will DELETE Plot %q<plot>. Are you SURE? enter the same command again within ten seconds to verify!},DELETE PLOT %q<plot>,v(VAR`MSGHEAD);@include u(scene)/INC`DOSQL=DELETE`PLOT,%q<plot>;@nspemit %#=u(RFN`MSGHEAD) Plot deleted!
  312. &SQL`DELETE`PLOT u(scene)=DELETE FROM $DATABASE$.$PLOTS$ WHERE plot_id=?
  313.  
  314. &FUN`SQLFORMAT u(scene)=localize(regeditalli(v(SQL`%0),\\$DATABASE\\$,v(VAR`SQL`DATABASE),\\$PREFIX\\$,v(VAR`SQL`PREFIX),\\$([v(VAR`SQL`TABLES)])\\$,u(FUN`SQL`TABLENAME,$1),\\?,if(isint(setr(set,v(setr(num,add(%q<num>,1))))),%q<set>,'[sqlescape(%q<set>)]')))
  315.  
  316. &SQL u(scene)=if(hasattr(me/SQL`%0),sql(u(FUN`SQLFORMAT,%0,%1,%2,%3,%4,%5,%6,%7,%8,%9)),#-1 SQL QUERY DATA NOT FOUND)
  317.  
  318. &FUN`SQL`TABLENAME u(scene)=v(VAR`SQL`PREFIX)[v(VAR`SQL`TABLE`%0)]
  319.  
  320. &SQL`INSTALL`PLAYERS u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$PLAYERS$ (player_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,objid VARCHAR(30) NOT NULL,player_name VARCHAR(60) NOT NULL DEFAULT 'Unset',PRIMARY KEY(player_id),UNIQUE KEY player_objid (objid)) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  321.  
  322. &SQL`INSTALL`PLOTS u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$PLOTS$ (plot_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,player_id BIGINT(31) UNSIGNED NOT NULL,plot_title VARCHAR(40),plot_desc text,start_date DATETIME,end_date DATETIME,plot_type VARCHAR(20),plot_status VARCHAR(20),PRIMARY KEY(plot_id),FOREIGN KEY(player_id) REFERENCES $PLAYERS$(player_id) ON UPDATE CASCADE) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  323.  
  324. &SQL`INSTALL`SCENES u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$SCENES$ (scene_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,player_id BIGINT(31) UNSIGNED,scene_title VARCHAR(255),plot_id BIGINT(31),scene_desc text,scene_state enum('0','1','2','3') NOT NULL DEFAULT '0',room_objid VARCHAR(80),room_name VARCHAR(80),room_custloc VARCHAR(80),creation_date DATETIME,finish_date DATETIME,PRIMARY KEY(scene_id),FOREIGN KEY(player_id) REFERENCES $PLAYERS$(player_id) ON UPDATE CASCADE) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  325.  
  326. &SQL`INSTALL`POSES u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$POSES$ (pose_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,player_id BIGINT(31) UNSIGNED NOT NULL,pose text,scene_id BIGINT(31) UNSIGNED,pose_time DATETIME,pose_ignore BOOL NOT NULL DEFAULT FALSE,PRIMARY KEY(pose_id),FOREIGN KEY(scene_id) REFERENCES $SCENES$(scene_id) ON UPDATE CASCADE ON DELETE CASCADE,FOREIGN KEY(player_id) REFERENCES $PLAYERS$(player_id) ON UPDATE CASCADE) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  327.  
  328. &SQL`INSTALL`SCHEDULE u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$SCHEDULE$ (schedule_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,player_id BIGINT(31) UNSIGNED NOT NULL,schedule_title VARCHAR(255),schedule_desc text,schedule_date DATETIME,post_id varchar(10),plot_id BIGINT(31),PRIMARY KEY(schedule_id),FOREIGN KEY(player_id) REFERENCES $PLAYERS$(player_id) ON UPDATE CASCADE) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  329.  
  330. &SQL`INSTALL`TAGS u(scene)=CREATE TABLE IF NOT EXISTS $DATABASE$.$TAGS$ (tag_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,schedule_id BIGINT(31) UNSIGNED NOT NULL,player_id BIGINT(31) UNSIGNED NOT NULL,PRIMARY KEY(tag_id),FOREIGN KEY(player_id) REFERENCES $PLAYERS$(player_id) ON UPDATE CASCADE ON DELETE CASCADE,FOREIGN KEY(schedule_id) REFERENCES $SCHEDULE$(schedule_id) ON UPDATE CASCADE ON DELETE CASCADE) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
  331.  
  332. +help/addmain Roleplaying/+scene=[u(scene)]/HLP`+SCENE
  333. &HLP`+SCENE u(scene)=SceneSys is a scene scheduling, tracking, and logging tool that works alongside [mudname()]'s Wiki. The original version was designed by Mercutio @ M*U*S*H and some of his code remains - credits are due.%R%R[ansi(hc,Setting up)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scene/setup)] - Get your own unique Char_id.%R[ansi(h,+scene/charid)] - Show your own unique Char_id.%RChar_id is used by the wiki log viewer and must be on your character's wiki page.})]%R%R[ansi(hc,Running/Logging Commands)]%RThese commands are for anyone who wants to start and manage a scene.%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scene/create <title text>)] - Begins a new scene.%R[ansi(h,+scene/loudcreate <title text>)] - Like /create but announces it on the RP channel.%R[ansi(h,+scene/title <id>=<text>)] - Changes a scene's title.%R[ansi(h,+scene/desc <id>=<text>)] - Gives a scene a description/short summary.%R[ansi(h,+scene/plot <id>=<plot id>)] - Links a scene to a plot, if you own the scene or run the plot. Set plot to 0 to remove it from any plots.%R[ansi(h,+scene/finish \[<id>\])] - Finishes a scene. ID will be current scene if not specified.%R[ansi(h,+scene/pause \[<id>\])] - Pauses a scene. ID will be current scene if not specified.%R[ansi(h,+scene/continue \[<id>\])] - Resumes a scene that was paused or finished. ID will be current scene if not specified.%R[ansi(h,+scene/move <id>)] - Relocate a scene to your current location, including virtual room locations.})]%R%R[ansi(hc,Participant Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scene/join \[<id>\])] - Joins a scene. Your poses will then be recorded. ID is unneeded if the scene just began in your current location.%R[ansi(h,+scene/leave)] - Stops your poses from being logged.%R[ansi(h,+scene/undo)] - Marks your last post to be ignored by the logger so it won't make it to the wiki. Used to fix poses made in error, typos, etc.%R[ansi(h,+scene/recall <id>=<# of lines>)] - Displays previous recorded poses from a scene.%R[ansi(h,+scene/spoof <altname>)] - Record poses as one of your alts. The character must be on your same account and must be setup for scenesys. This will NOT respect hidden alts settings and will NOT be mirrored properly in +pot which will still see you as you. All recorded poses will be as the given alt. use this command with no arguments to clear spoof settings.%RTo be recorded, you must be joined to a scene and A) Your pose must be in the location the scene is set to, B) Your pose must be at least ten words long. C) The scene must be not be paused or finished.})]%R%R[ansi(hc,Listing Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scene)] - Displays all scenes you are currently participating in or running that aren't finished.%R[ansi(h,+scene/old)] - Show all of the finished scenes you've been in or run.%R[ansi(h,+scene <id>)] - Show details of a particular scene.})]
  334.  
  335. +shelp/addmain Roleplaying/+scene=[u(scene)]/SHLP`+SCENE
  336. &SHLP`+SCENE u(scene)=
  337.  
  338. +help/addmain Roleplaying/+scenes=[u(scene)]/HLP`+SCENES
  339. &HLP`+SCENES u(scene)=SceneSys is a scene scheduling, tracking, and logging tool that works alongside [mudname()]'s Wiki. The original version was designed by Mercutio @ M*U*S*H and some of his code remains - credits are due.%R[ansi(hc,See Also:)] [pueblize(+help +scene,+help +scene)], [pueblize(help @tz,help @tz)], [pueblize(help convtime(),convtime())]%R%R[ansi(hc,Scheduling Commands)]%RThese commands are for anyone who wants to schedule and manage a scene.%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scenes/add <time>/<title>=<description>)] - Schedules a scene. <time> must be in a format accepted by the convtime() function, and is from the perspective of your @tz setting. As an example, now would be: [timefmt($b $d $H:$M,,%#)]. It will default to the current year if none is provided.%R[ansi(h,+scenes/reschedule <id>=<time>)] - Changes a scene's scheduled time. <time> is same as adding.%R[ansi(h,+scenes/delete <id>)] - Remove a scheduled scene.%R[ansi(h,+scenes/title <id>=<text>)] - Changes a Scheduled scene's title.%R[ansi(h,+scenes/desc <id>=<text>)] - Changes a scheduled scene's description/short summary.%R[ansi(h,+scenes/plot <id>=<plot id>)] - Links a scene to a plot. Set plot to 0 to remove it from any plots.%R[ansi(h,+scenes/mail <id>=<message>)] - @mails all who have tagged a scene.%R%RAll changes made to the +scenes data will be reflected in the announcement post automatically. Deleting the scene will also delete the respective post.})]%R%R[ansi(hc,General Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+scenes)] - Views a list of scheduled scenes. This uses your @tz settings to show them in your own Timezone. A red * means you tagged the scene. If you own the scene, the displayed number shows number of taggers.%R[ansi(h,+scenes <id>)] - View details about a scheduled Scene. If you're the owner, it also shows players who've tagged your scene.%R[ansi(h,+scenes/tag <id>)] - 'Tag' a scene to show your interest.%R[ansi(h,+scenes/untag <id>)] - Remove your tag from a scene.})]
  340.  
  341. +help/addmain Roleplaying/+plot=[u(scene)]/HLP`+PLOT
  342. &HLP`+PLOT u(scene)=SceneSys is a scene scheduling, tracking, and logging tool that works alongside [mudname()]'s Wiki. The original version was designed by Mercutio @ M*U*S*H and some of his code remains - credits are due.%R[ansi(hc,See Also:)] [pueblize(+help +scene,+help +scene)]%R%R[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+plot)] - Show all current plots.%R[ansi(h,+plot/all)] - Show all plots in the system.%R[ansi(h,+plot <id>)] - Show a plot's details.})]
  343.  
  344. +shelp/addmain Roleplaying/+plot=[u(scene)]/SHLP`+PLOT
  345. &SHLP`+PLOT u(scene)=[ansi(hc,Administrator Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+plot/add <runner>/<title>=<description>)] - Creates a new plot.%R[ansi(h,+plot/desc <id>=<description>)] - Change a plot's description.%R[ansi(h,+plot/type <id>=<type>)] - Change a plot's type.%R[ansi(h,+plot/title <id>=<title>)] - Change a plot's title.%R[ansi(h,+plot/runner <id>=<player>)] - Change a plot's runner.%R[ansi(h,+plot/start <id>=<time>)] - Change a plot's start date. Uses the same format as +scenes scheduling.%R[ansi(h,+plot/end <id>=<time>)] - Change a plot's end date.%R[ansi(h,+plot/status <id>=<status>)] - Change a plot's status. This can be anything.%R[ansi(h,+plot/delete <id>)] - Deletes a plot. Do not use except for newly created mistakes! This is not how to finish a plot!%R%RPlots are 'finished' when their end date have passed.})]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!