@@ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@
@@  SGP patch installer - 13 February 2001
@@
@@  This is a quotable installer file that updates SGP code released to the SGP 
@@  website (http://sgp.erisian.net) prior to 09 Jan 01.  
@@  Code taken from the SGP website and installed AFTER 09 Jan 01 will already 
@@  have these changes or will be covered by a subsequent set of bugfixes.
@@
@@  DO NOT USE THIS FILE if you are installing SGP into a blank database.  All 
@@  of these changes are included as part of the standard installers.
@@ 
@@ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@
@@  This file adds the following features to standard installations:
@@  
@@  - Fixes a legacy bug in PLACES in DO_JOIN and DO_SIT 
@@
@@ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@
@@  All of these features can be applied to uncustomized SGP code without fear 
@@  of screwing up your globals.  This is all new code, not bugfixes.
@@  All code ports cleanly to PennMUSH, TinyMUSH 2.2.x, MUX 2.0 and RhostMUSH 
@@  and worked on the unmodified test servers.
@@
@@ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@
@@  Using this file:
@@
@@  ALL code in this file is uncommented and will quote to the game with your 
@@  MUSH client's uploading commands.  
@@
@@  Quote this file into the game in the master room for the changes to take 
@@  effect.  Otherwise, change the names of the objects with the DBREF of the 
@@  object as it exists in your game.
@@ 
@@  Make sure you run a test of the affected code and report any problems to the 
@@  SGP bug page.  We like to get things fixed as soon as possible.
@@
@@ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


@pemit me=Applying the patch to fix to DO_JOIN and DO_SIT  on the PLACES command object. Moment....

&DO_JOIN Places_global_object=$join *: @switch/first [not(ulocal(WHICHPLACE,%l,%#))] [lcstr(%0)]=0 *, {@pemit %#=Don't you think you should 'depart' first?},1 at #*, {@trig me/PLACEFUNCTION=%l,%#,[delete(rest(%0),0,1)]},1 at *, {@trig me/PLACEFUNCTION=%l,%#,[rest(%0)]},1 #*, {@trig me/PLACEFUNCTION=%l,%#,[delete(%0,0,1)]},1 with *, {@pemit[setq(1,locate(%#,rest(%0),niPT))][setq(0,ulocal(WHICHPLACE,%l,r(1)))]%#=switch(r(0),0,There isn't anyone named '[capstr(rest(%0))]' at a special place.,You go over to join [name(r(1))].);@trig me/[switch(r(0),0,-,PLACEFUNCTION)]=%l,%#,[r(0)]},{@switch [isnum(%0)][setq(1,locate(%#,%0,niPT))][setq(0,ulocal(WHICHPLACE,%l,r(1)))]=1,{@trig me/PLACEFUNCTION=%l,%#,%0 ;},{@pemit %#=switch(r(0),0,There isn't anyone named '[capstr(rest(%0))]' at a special place.,You go over to join [name(r(1))].);@trig me/[switch(r(0),0,-,PLACEFUNCTION)]=%l,%#,[r(0)]}} 

&DO_SIT Places_global_object=$sit *: @switch/first [not(ulocal(WHICHPLACE,%l,%#))] [lcstr(%0)]=0 *, {@pemit %#=Don't you think you should 'depart' first?},1 at #*, {@trig me/PLACEFUNCTION=%l,%#,[delete(rest(%0),0,1)]},1 at *, {@trig me/PLACEFUNCTION=%l,%#,[rest(%0)]},1 #*, {@trig me/PLACEFUNCTION=%l,%#,[delete(%0,0,1)]},1 with *, {@pemit[setq(1,locate(%#,rest(%0),niPT))][setq(0,ulocal(WHICHPLACE,%l,r(1)))]%#=switch(r(0),0,There isn't anyone named '[capstr(rest(%0))]' at a special place.,You go over to join [name(r(1))].);@trig me/[switch(r(0),0,-,PLACEFUNCTION)]=%l,%#,[r(0)]},{@switch [isnum(%0)][setq(1,locate(%#,%0,niPT))][setq(0,ulocal(WHICHPLACE,%l,r(1)))]=1,{@trig me/PLACEFUNCTION=%l,%#,%0},{@pemit %#=switch(r(0),0,There isn't anyone named '[capstr(rest(%0))]' at a special place.,You go over to join [name(r(1))].);@trig me/[switch(r(0),0,-,PLACEFUNCTION)]=%l,%#,[r(0)]}} 

@pemit me=Now updating +version information for PLACES

+version/update [num(Places_global_object)]/patchlevel=JOIN-SIT patch
+version/update [num(Places_global_object)]/history=JOIN-SIT patch added

@pemit me=Patching of PLACES code complete!