EXTEND_BOTTOM WSMITH01 13
	IF ~PartyHasItem("PXL2CATA")~ THEN GOTO PXL2JOHRGO
	IF ~PartyHasItem("PXL2JOHR")~ THEN GOTO PXL2JOHR2GO
	IF ~PartyHasItem("PXL2ETOI")~ THEN GOTO PXL2ETOIGO
END

APPEND WSMITH01
IF ~~ THEN BEGIN PXL2JOHRGO SAY @201
	IF ~OR(3)
		!PartyHasItem("HAMM07")
		!PartyHasItem("STAF13")
		!PartyHasItem("CLCK24")~ THEN GOTO PXL2JOHRNO
	IF ~PartyHasItem("HAMM07")
		PartyHasItem("STAF13")
		PartyHasItem("CLCK24")~ THEN GOTO PXL2JOHROK
END

IF ~~ THEN BEGIN PXL2JOHRNO SAY @202
	IF ~~ THEN GOTO PXL2JOHREXIT
END

IF ~~ THEN BEGIN PXL2JOHROK SAY @203
	IF ~PartyGoldLT(8000)~ THEN REPLY #66662 GOTO PXL2JOHREXIT
	IF ~PartyGoldGT(7999)~ THEN REPLY #66664 DO ~SetGlobal("PxLumensItem","AR0334",3)	SetGlobal("ForgeStuff","GLOBAL",1)
	TakePartyItemNum("HAMM07",1)	DestroyItem("HAMM07")
	TakePartyItemNum("STAF13",1)	DestroyItem("STAF13")
	TakePartyItemNum("CLCK24",1)	DestroyItem("CLCK24")
	TakePartyItemNum("PXL2CATA",1)	DestroyItem("PXL2CATA")
	TakePartyGold(8000)	DestroyGold(8000)~ GOTO 56
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHREXIT
END

IF ~~ THEN BEGIN PXL2JOHREXIT SAY @204 
	COPY_TRANS WSMITH01 13
END

  IF ~~ THEN BEGIN PXL2JOHR2GO SAY @208
	IF ~OR(3)
		!PartyHasItem("PXOPOUDR")
		!PartyHasItem("SW1H51")
		!PartyHasItem("C2SW1H02")~ THEN GOTO PXL2JOHR2NO
	IF ~PartyHasItem("PXOPOUDR")
		PartyHasItem("SW1H51")~ THEN GOTO PXL2JOHR2OK
	IF ~PartyHasItem("PXOPOUDR")
		PartyHasItem("C2SW1H02")~ THEN GOTO PXL2JOHR3OK
  END

IF ~~ THEN BEGIN PXL2JOHR2NO SAY @209
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHR2EXIT
END

IF ~~ THEN BEGIN PXL2JOHR2OK SAY @2010
	IF ~PartyGoldLT(6000)~ THEN REPLY #66662 GOTO PXL2JOHREXIT
	IF ~PartyGoldGT(5999)~ THEN REPLY #66664 DO ~SetGlobal("PxLumensItem","AR0334",4)	SetGlobal("ForgeStuff","GLOBAL",1)
	TakePartyItemNum("PXL2JOHR",1)	DestroyItem("PXL2JOHR")
	TakePartyItemNum("SW1H51",1)	DestroyItem("SW1H51")
	TakePartyItemNum("PXOPOUDR",1)	DestroyItem("PXOPOUDR")
	TakePartyGold(6000)	DestroyGold(6000)~ GOTO 56
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHREXIT
END

IF ~~ THEN BEGIN PXL2JOHR3OK SAY @2010
	IF ~PartyGoldLT(6000)~ THEN REPLY #66662 GOTO PXL2JOHREXIT
	IF ~PartyGoldGT(5999)~ THEN REPLY #66664 DO ~SetGlobal("PxLumensItem","AR0334",5)	SetGlobal("ForgeStuff","GLOBAL",1)
	TakePartyItemNum("PXL2JOHR",1)	DestroyItem("PXL2JOHR")
	TakePartyItemNum("C2SW1H02",1)	DestroyItem("C2SW1H02")
	TakePartyItemNum("PXOPOUDR",1)	DestroyItem("PXOPOUDR")
	TakePartyGold(6000)	DestroyGold(6000)~ GOTO 56
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHREXIT
END

IF ~~ THEN BEGIN PXL2JOHR2EXIT SAY #59777 
	COPY_TRANS WSMITH01 13
END

IF ~~ THEN BEGIN PXL2ETOIGO SAY @2011
	IF ~OR(2)
		!PartyHasItem("PXL2ETOI")
		!PartyHasItem("PXL2METO")~ THEN GOTO PXL2ETOINO
	IF ~PartyHasItem("PXL2ETOI")
		PartyHasItem("PXL2METO")~ THEN GOTO PXL2ETOIOK
END

IF ~~ THEN BEGIN PXL2ETOINO SAY @2012
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHR2EXIT
END

IF ~~ THEN BEGIN PXL2ETOIOK SAY @2013
	IF ~PartyGoldLT(3000)~ THEN REPLY #66662 GOTO PXL2JOHREXIT
	IF ~PartyGoldGT(2999)~ THEN REPLY #66664 DO ~SetGlobal("PxLumensItem","AR0334",6)	SetGlobal("ForgeStuff","GLOBAL",1)
	TakePartyItemNum("PXL2ETOI",1)	DestroyItem("PXL2ETOI")
	TakePartyItemNum("PXL2METO",1)	DestroyItem("PXl2METO")
	TakePartyGold(3000)	DestroyGold(3000)~ GOTO 56
	IF ~~ THEN REPLY #66770 GOTO PXL2JOHREXIT
END
END