;Darkweed V1.0 Developed by Seraphino for the Darkwood World
;Copyright Seraphino & Charley 2005
;=============================================
;---Instructions for installing this script
;=============================================
;
;1. Put Darkweed.txt into main folder
;2. Insert the updated quest.txt into Darkwood folder
;-Note: This script is available to the players
;3. Extract darkweedv1.exe into the monsters folder
;
;
;-----------------------------
;The Purpose of this script
;-----------------------------
;
;Players can check thier records when playing your world, like for 
;reporting hackers or bugs in the world plus, they can customize thier 
;camp scene with furniture and other stuff 
;so it is more attractive and personalized
;
;New features will be added every version
;--------------------------------------------------
;Current Version: 1.0
;--------------------------------------------------
;
;-=-=-=-=-=-=-The actual script file-=-=-=-=-=-=-=-

ACTOR 2, "Load Darkweed?" LoadingDarkweed, 1, 91, 21
N: Right click to load Darkweed....
COMPARE #<firstTime>, 1
IF< @newbie
GOTO @notNewbie
@3nd
END


;
;
;
;NOTES by Charley
;1:51 AM 10/06/05
;
;Here I have made some edits to the script bugs.
;Check it out.
;
;Error 1: Ok, this is going to be lengthy. I'll explain this one:
@newbie
SET firstTime, 1
WAIT 1.0
SET couchx, -50
N: Loading the rest of the stuff...
SET couchy, 50
SET sofax, -60
SET sofay, 60
SET lseatx, -70
SET lseaty, 70
SET chandx, -80
SET chandy, 80
WAIT 1.0
;All of these were so the furniture could exist in advance, and when the player places it, it will be moved.
@notNewbie
;First, you had the furniture in the left-hand side of the screen.
;This is ok for now, but we might need to change this if we ever have the furniture do stuff.
;I also noticed that the furniture doesn't remain in its spot after you have left the camp. I fixed this:
COMPARE #<boughtcouch>, 1
IF< @noCouch	;I didn't check all of the conditions because it's either going to be 1 or something else
ACTOR 4, "Couch", HouseFurniture, 4, #<couchx>, #<couchy>
;Ok, even if or if we do not have the couch, it still moves on because there's no END command, it needs to check everything else
@noCouch
	COMPARE #<boughtsofa>, 1
	IF< @noSofa
	ACTOR 5, "Ugly Sofa", HouseFurniture, 2, #<sofax>, #<sofay>
@noSofa
	COMPARE #<boughtloveseat>, 1
	IF< @noLoveseat
	ACTOR 6, "Girly Loveseat", HouseFurniture, 1, #<lseatx>, #<lseaty>
@noLoveseat
	COMPARE #<boughtchandalier>, 1
	IF< @noChandalier
	ACTOR 7, "Chandalier",	HouseFurniture, 3, #<chandx>, #<chandy>
@noChandalier
GOTO @3nd
;
;Error 2: There's errors with the @purchased thingies.
;First, you misspelled "purchased" as "purhcased" in all of the last ones 
;that check for the money being greater than the asking price.
;All of the last ones were like that, so I assumed this was no accident.
;I will leave it up to you to change that.
;
;Error 3: "Place Furniture" menu spelling error:
;I changed @placeoveseat to @placeloveseat
;
;Error 4: You had @purchasedcouch instead of @purchasedloveseat under @ploveseat section
;
;Error 5: All of the actor ID's for the MOVE commands under the place furniture were all set to 4,
;So I changed their corresponding ID numbers.
;
;Yea, I guess that's it.
;my email's charles@mangamonkey.net, just a reminder.
;Thanks for the script dude.
;
;
;
@eventActorClick2
SEL 2
POSE 2
N: LOADING>>>>
WAIT 3
N: LOADED!
WAIT 2
POSE 3
N: AUTHENTICATING VERSION....
WAIT 3
POSE 4
N: DARKWEED V1.0 LOADED!
N: Created by Seraphino!
MOVE 2, -50, 50, 1
GOTO @darkweedstart
END

@darkweedstart
LOCK 1 
ACTOR 3, "Darkweed Admin", DarkWeedAdmin, 1, 20, 92
N: Right click the Admin to start...
END

@eventActorClick3
@darkweedmenu
MENU "Update Records=@uprecords", "View Records=@vrecords", "Delete Records=@drecords", "Purchase Furniture=@pfurniture", "Place Furniture=@placefurn", "Unload Darkweed=@unload"
END

@uprecords
COMPARE #<record2>, 1
IF= @record2begin
3: You are now able to update your records
3: All you do here is store information about the world, and store information about any encounters
3: The purpose of this is to keep records of hackers,items you got, tokens, quest, etc,  just in case you forget about it, or do not insert into Diary
3: You are allowed to store up to 3 records as of V1.0
3: You may now update your records, this is slot 1 of 5
ASK 10000
SET record1, #<lastask>
3: Record stored, would you like to set up a new record file for your next update?
ASK 30
IF -YES, @saidno
SET record2, 1
GOTO @darkweedmenu
END
@saidno
GOTO @darkweedmenu
END

@record2begin
COMPARE #<record3>, 1
IF= @record3begin
IF> @lastrecordset
@record2
3: You are now able to update your records
3: All you do here is store information about the world, and store information about any encounters
3: The purpose of this is to keep records of hackers,items you got, tokens, quest, etc,  just in case you forget about it, or do not insert into Diary
3: You are allowed to store up to 3 records as of V1.0
3: You may now update your records, this is slot 2 of 5
ASK 10000
SET record2, #<lastask>
3: Record stored, would you like to set up a new record file for your next update?
ASK 30
IF -YES, @saidno
SET record3, 1
GOTO @darkweedmenu
END
@saidno
3: Very well, when you come back, you will be asked again unless you delete this record
END
@recordset3
3: Would you like to set record 3 now?
ASK 30
IF -YES, @saidno2
SET record3, 1
GOTO @record3begin
END
@lastrecordset
COMPARE #<record2>, 1
IF= @record3begin
IF< @record2
END

@record3begin
COMPARE #<record4>, 1
IF= @record4begin
IF< @comparelastrecordset2
@record3
3: You are now able to update your records
3: All you do here is store information about the world, and store information about any encounters
3: The purpose of this is to keep records of hackers,items you got, tokens, quest, etc,  just in case you forget about it, or do not insert into Diary
3: You are allowed to store up to 3 records as of V1.0
3: You may now update your records, this is slot 3 of 5
ASK 10000
SET record3, #<lastask>
1: Record stored, would you like to set up a new record file for your next update?
ASK 30
IF -YES, @saidno
SET record4, 1
GOTO @darkweedmenu
END
@saidno
3: Very well, when you come back, you will be asked again unless you delete this record
END
@recordset3
3: Would you like to set record 4 now?
ASK 30
IF -YES, @saidno2
SET record3, 1
GOTO @record3begin
END
@comparelastrecordset
COMPARE #<record3>, 1
IF= @record4begin
IF< @record3
END

@record4begin
3: Version 1 restricts to 3 records!
3: New slots coming in version 2!
GOTO @darkweedmenu
END

;--------------------------------------

@vrecords
MENU "Record 1=@record1view", "Record 2=@record2view", "Record 3=@record3view", "Exit Record View=@darkweedmenu"
END

@record1view
3: #<record1>
N: Just say exit when u are ready to leave!
ASK 40
IF Qexit @vrecords
END

@record2view
3: #<record2>
N: Just say exit when u are ready to leave!
ASK 40
IF Qexit @vrecords
END

@record3view
3: #<record3>
N: Just say exit when u are ready to leave!
ASK 40
IF Qexit @vrecords
END

;----------------------------

@drecords
N: Click a record to delete it
N: MAKE SURE YOU WANT TO DELETE!
MENU "Delete Record 1=@d1", "Delete Record 2=@d2", "Delete Record 3=@d3", "Exit delete records=@darkweedmenu"
END

@d1
SET record1, 0
END

@d2
SET record2, 0
END

@d3
SET record3, 0
END

;----------------------------

@pfurniture
MENU "Purchase Big Couch=@pcouch", "Purchase Sofa=@psofa", "Purchase Loveseat=@ploveseat", "Purhcase Chandilier=@pchand", "Exit Furniture Menu=@darkweedmenu"
END

@pcouch
3: Would you like to purchase a couch? It costs 9000GP....
ASK 30
IF -YES, @saidno
COMPARE #<num.hostGP>, 9000
IF= @purchasedcouch
IF< @notenough
IF> @purhcasedcouch
END
@purchasedcouch
HOST_TAKE G9000
SET boughtcouch, 1
END

@notenough
3: You do not have enough money for this!
GOTO @darkweedmenu
END

@psofa
3: Would you like to purhcase a sofa? It costs 7500GP....
ASK 30
IF -YES, @saidno
COMPARE #<num.hostGP>, 7500
IF= @purchasedsofa
IF< @notenough
IF> @purhcasedsofa
END
@purchasedsofa
HOST_TAKE G7500
SET boughtsofa, 1

END

@ploveseat
3: Would you like to purhcase a loveseat? It costs 4700GP....
ASK 30
IF -YES, @saidno
COMPARE #<num.hostGP>, 4700
IF= @purchasedloveseat
IF< @notenough
IF> @purhcasedloveseat
END
@purchasedloveseat
HOST_TAKE G7500
SET boughtloveseat, 1
END

@pchand
3: Would you like to purhcase a chandalier? It costs 1750GP....
ASK 30
IF -YES, @saidno
COMPARE #<num.hostGP>, 1750
IF= @purchasedchandalier
IF< @notenough
IF> @purhcasedchandalier
END
@purchasedchandalier
HOST_TAKE G1750
SET boughtchandalier, 1
END

;-----------------------------

@placefurn
;
;The FURNITURE ACTORS were moved to the top ^
;-Charley
;
3: Say "auth" to place furniture
ASK 4000
IF Qauth, @furnmenu
END
@furnmenu
MENU "Place Couch=@placecouch", "Place Sofa=@placesofa", "Place Loveseat=@placeloveseat", "Place Chandalier=@placechand", "Exit Place Furniture=@exitplfurn"
END

@placecouch
COMPARE #<boughtcouch>, 1
IF= @continue
IF> @continue
IF< @nobuy
END
@continue
N: What X would you like to place it at?
ASK 30
SET couchx, #<lastask>
WAIT 1
N: What Y would you like to place it at?
ASK 30
SET couchy, #<lastask>
WAIT 2
MOVE 4, #<couchx>, #<couchy>, 1
GOTO @furnmenu
END

@nobuy
3: You have not bought this item!
GOTO @furnmenu
END

@placesofa
COMPARE #<boughtsofa>, 1
IF= @continue2
IF> @continue2
IF< @nobuy
END
@continue2
N: What X would you like to place it at?
ASK 30
SET sofax, #<lastask>
WAIT 1
N: What Y would you like to place it at?
ASK 30
SET sofay, #<lastask>
WAIT 2
MOVE 5, #<sofax>, #<sofay>, 1
GOTO @furnmenu
END

@placeloveseat
COMPARE #<boughtloveseat>, 1
IF= @continue3
IF> @continue3
IF< @nobuy
END
@continue3
N: What X would you like to place it at?
ASK 30
SET lseatx, #<lastask>
WAIT 1
N: What Y would you like to place it at?
ASK 30
SET lseaty, #<lastask>
WAIT 2
MOVE 6, #<lseatx>, #<lseaty>, 1
GOTO @furnmenu
END

@placechand
COMPARE #<boughtchandalier>, 1
IF= @continue4
IF> @continue4
IF< @nobuy
END
@continue4
N: What X would you like to place it at?
ASK 30
SET chandx, #<lastask>
WAIT 1
N: What Y would you like to place it at?
ASK 30
SET chandy, #<lastask>
WAIT 2
MOVE 7, #<chandx>, #<chandy>, 1
GOTO @furnmenu
END

@exitplfurn
GOTO @darkweedmenu
END

;-----------------------------

@unload
N: Unloading>>>>
WAIT 3
MOVE 3, -50, 50, 1
N: Darkweed Unloaded!
LOCK 0
WAIT 2
GOTO @normalcamp
END
;Blank line at the end  \/
