;rcharsav.sc   Quest for Glory...save character stats.

(script# rCharSave) ;840

(public
	CharSave		0
)

;; Bits in svMiscEquip
(define	FINESWORD_BIT 	$0001) ; fine sword
(define	FLAMESWORD_BIT	$0002) ; flaming sword
(define	COMPASS_BIT		$0003) ; compass
(define	PIN_BIT			$0004) ; spahire pin
(define	LAMP_BIT			$0008) ; brass lamp
(define	TOKEN_BIT		$0010) ; EOF token
(define	GLASSES_BIT		$0020) ; X-Ray Glasses

; things transferred from "Quest for Glory 1"
(define	BABA_BIT			$0030) ; Flag set from QG1
(define	SWORD_BIT		$0040) ; Sword
(define	CHAIN_BIT		$0080) ;
(define	PICK_BIT			$0100) ;
(define	TOOL_BIT			$0200) ;

(define	EXTRA_DATA	18)	; Data items other than stats and name
(define	CHECK_DATA	10)	; Data items that are in check sums

(define textWidth 220)

(local
;; local data for saving hero stats for next game
								 ;;;;;;;;;;;;;;;;;;start;;;;;;;;;;;;;;;;;;
	statsKey = $53			 ;;;;;;;;order dependent variables;;;;;;;;
	svCharType				 ;;;;;;;;order dependent variables;;;;;;;;
;**	svExperience			 ;;;;;;;;order dependent variables;;;;;;;;
	svHighDinar				 ;;;;;;;;order dependent variables;;;;;;;;
	svLowDinar				 ;;;;;;;;order dependent variables;;;;;;;;
	svScore					 ;;;;;;;;order dependent variables;;;;;;;;
	svMiscEquip				 ;;;;;;;;order dependent variables;;;;;;;;
	[codedStats NUM_ATTRIBS] ;;;;;;;;order dependent variables;;;;;;;;
	svDaggers				 ;;;;;;;;order dependent variables;;;;;;;;
	svHealingPill			 ;;;;;;;;order dependent variables;;;;;;;;
	svManaPill				 ;;;;;;;;order dependent variables;;;;;;;;
	svStaminaPill			 ;;;;;;;;order dependent variables;;;;;;;;
	svPoisonCurePill		 ;;;;;;;;order dependent variables;;;;;;;;	
	bogus0   = $a0			 ;;;;;;;;order dependent variables;;;;;;;;
	bogus1   = $3e			 ;;;;;;;;order dependent variables;;;;;;;;
	checkSum1				 ;;;;;;;;order dependent variables;;;;;;;;
	checkSum2				 ;;;;;;;;order dependent variables;;;;;;;;
	bogus2   = $2f			 ;;;;;;;;order dependent variables;;;;;;;;
	bogus3   = $90			 ;;;;;;;;order dependent variables;;;;;;;;
	bogus4   = $19			 ;;;;;;;;order dependent variables;;;;;;;;
	bogus5   = $a3			 ;;;;;;;;order dependent variables;;;;;;;;
	checkSumKey = $da		 ;;;;;;;;order dependent variables;;;;;;;;
								 ;;;;;;;;;;;;;;;;;;;end;;;;;;;;;;;;;;;;;;;
	check1
	check2
	[YNSTR 5]
	[yesOrNo 5]
	[heroFileName 44]
	[bigStr 400]
	hasSaved					 ;TRUE if hero saved
	[str 40]
	answer
)

(enum				;states of saveHero Script
	congrats
	playItAgain
	askSave
	getInfoFileName
	checkFile
	openFile
	writeHeroInfo
	writeComplete
	writeComplete2
	tryAgain
	saveDone
	checkSong
	redrawRoom
	goToCredits
)


(instance CharSave of Room
	(properties
		picture	pCredits1
		horizon	0
		style		IRISOUT
	)
	
	(method (dispose)
		(StatusLine code: dftStatusCode)
		(keyDownHandler delete: self)
		(super dispose:)
	)

	(method (init)
		(StatusLine
			code: endStatus,
			enable:
		)
		(keyDownHandler add: self)
		(super init: &rest)

		(customWindow
			back: vBLACK,
			color: vWHITE,
		)

		(songObj init:, hide:)
		(addToPics 
			add: frame1 frame2 frame3 frame4 frame5 frame6 frame7 frame8,
			eachElementDo: #init:,
			doit:
		)

		(cSound
			number: sStars,
			loop: -1,
			priority: 5,
			play:
		)

		; don't let'm control anything!
		(User canControl: FALSE, canInput: FALSE)

		(self setScript: saveHero)
		(songObj setScript: songScript)
	)

)
(instance heroinfo of File
	(properties
		name	{glory2.sav}
	)
)

(instance saveHero of Script

	(method (handleEvent event)
		(if
			(and
				(== (event type?) keyDown)
				(== (event message?) ENTER)
			)
			(if register
				(= register 0)
				(= cycles 1) 
				(event claimed: TRUE)
			)
		)
	)
	(method (changeState newState &tmp whichSkill oldDinar
											lineEndString oldExper retry)
		(switch (= state newState)
			(congrats
				(Format @heroFileName "a:glory2.sav")
				(if (>= score possibleScore)
					(Format @bigStr "CONGRATULATIONS!!\n
							You have successfully completed\n
							\"Quest for Glory II:__Trial by Fire\"\n
							with the maximum possible score, %d of %d!!\n
							We welcome you to the ranks of the few, the proud,
							the True Heroes!"
						possibleScore possibleScore
					)
					(Print @bigStr
						#window: customWindow
						#mode: teJustCenter
						#width: textWidth
						#dispose:
					)
				else
					(Print (Format @bigStr "Congratulations!__You have
								successfully completed\n
								\"Quest for Glory II:__Trial by Fire.\"\n
								Your final score was %d of %d possible Puzzle Points."
								score possibleScore
							)
						#window: customWindow
						#mode: teJustCenter
						#width: textWidth
						#dispose:
					)
				)
				(= register 1)
			)
			(playItAgain
				(Print "If you have not already done so,\n
						we encourage you to play\n
						\"Quest for Glory II\"\n
						again with the other two character types; many of the
						puzzles are different, or have alternate solutions."
						#window: customWindow
						#mode: teJustCenter
						#width: textWidth
						#dispose:
				)
				(= register 1)
			)
			(askSave
				(Print "In the meantime,\n you are already a winner!
						Please insert a writable disk in your floppy drive to
						save your winning Hero for use in\n
						\"Quest for Glory III:\n
						_Shadows of Darkness.\""
						#window: customWindow
						#mode: teJustCenter
						#width: textWidth
						#dispose:
				)
				(= register 1)
			)

			(getInfoFileName		 ; actually gets file name to save it as.
				(cls)
;**				(if (GetInput @heroFileName 30
;**							{Disk file in which to save your Hero.})
				(if 
					(Print 
						"Disk file in which to save your Hero."
						#window: customWindow
						#mode: teJustCenter
						#edit: @heroFileName 30
					)
					(heroinfo name: @heroFileName)
					(= cycles 2)
				else
					(self changeState: tryAgain)
				)
			)

			(checkFile		 ; checks if file already exists. and warns user
				(= answer 0)
				(if (!= (heroinfo open: fRead) NULL)
					(repeat 
						(= answer 
							(Print
								"File already exists.__Do 
								you wish to overwrite?"
								#title: {_WARNING!_}
								#mode: teJustCenter
								#window: Warning
								#button: {_NO_}	1
								#button: {_YES_}	2
							)
						)
						(if answer
							(break)
						)
					)
					(switch answer
						(1 (self changeState: getInfoFileName))
						(2 (= cycles 1))
					)
				else
					(= cycles 1)
				)
			)

			(openFile
				(if (heroinfo open: fTrunc)
					(heroinfo close:)
					(= seconds 2)
				else
					(Print (Format @bigStr "Could not create file -- %s."
							(heroinfo name?))
						#window: Warning
						#mode: teJustCenter
						#width: textWidth
					)
					(self changeState: tryAgain)
				)
			)					 

			(writeHeroInfo
				(if (not (heroinfo open: fAppend))
					(self  changeState: tryAgain)
					(return)
				)
				; it's always nice to know what the computer is doing
				(Print "Saving Character"
					#window: customWindow
					#mode: teJustCenter
					#dispose:
				)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

				; puts all ego stats in array (called codedStats) to save
				(for	((= whichSkill 0))
						(< whichSkill NUM_ATTRIBS)
						((++ whichSkill))
;**					(Printf "egoStat # %d = %d" whichSkill [egoStats whichSkill])
					(= [codedStats whichSkill] [egoStats whichSkill])
				)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	 order dependant variables
				(= oldDinar [invNum iDinar])
				(= svCharType heroType)
;**				(= svExperience ( / [egoStats EXPER] 100))
				(= svHighDinar ( / oldDinar 100))
				(= svLowDinar  (mod oldDinar 100))
				(= svScore score)
				(= svMiscEquip 0)
				(if (ego has: iFineSword)		(|= svMiscEquip FINESWORD_BIT))
				(if (ego has: iSoulforge)		(|= svMiscEquip FLAMESWORD_BIT))
				(if (ego has: iCompass)			(|= svMiscEquip COMPASS_BIT))
				(if (ego has: iSapphPin)		(|= svMiscEquip PIN_BIT))
				(if (ego has: iBrassLamp)		(|= svMiscEquip LAMP_BIT))
				(if (ego has: iEOFToken)		(|= svMiscEquip TOKEN_BIT))
				(if (ego has: iGlasses)			(|= svMiscEquip GLASSES_BIT))
				(if (Btst fBabaFrog)				(|= svMiscEquip BABA_BIT))
				(if (ego has: iSword)			(|= svMiscEquip SWORD_BIT))
				(if (ego has: iChainMail)		(|= svMiscEquip CHAIN_BIT))
				(if (ego has: iLockPick)		(|= svMiscEquip PICK_BIT))
				(if (ego has: iThiefKit)		(|= svMiscEquip TOOL_BIT))

				(= svDaggers			[invNum iDagger])
				(= svHealingPill		[invNum iHealingPill])
				(= svManaPill			[invNum iManaPill])
				(= svStaminaPill		[invNum iStaminaPill])
				(= svPoisonCurePill	[invNum iPoisonCure])

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				(= check1 checkSumKey)
				(for	((= whichSkill 0))
						(< whichSkill (+ NUM_ATTRIBS CHECK_DATA))
						((+= whichSkill 2))
					(= [statsKey (+ whichSkill 1)] (& [statsKey (+ whichSkill 1)] 255))
					(+= check1 [statsKey (+ whichSkill 1)])
				)

				(= check2 0)
				(for	((= whichSkill 1))
						(< whichSkill (+ NUM_ATTRIBS CHECK_DATA))
						((+= whichSkill 2))
					(= [statsKey (+ whichSkill 1)] (& [statsKey (+ whichSkill 1)] 255))
					(+= check2 [statsKey (+ whichSkill 1)])
				)

				(&= check1 255)
				(&= check2 255)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				(= checkSum1 check1)
				(= checkSum2 check2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				; exclusive-OR all stats into one number
				(for	((= whichSkill 0))
						(< whichSkill (+ NUM_ATTRIBS EXTRA_DATA))
						((++ whichSkill))
					(= [statsKey (+ whichSkill 1)] (& [statsKey (+ whichSkill 1)] 255))
					(^= [statsKey (+ whichSkill 1)] [statsKey whichSkill])
				)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				(= lineEndString {*})		; Kludge for null string
				(StrAt lineEndString 0 `^J)

				; multiple strings can be sent at once
				(heroinfo writeString: @userName lineEndString)

				(for	((= whichSkill 1))
						( < whichSkill (+ NUM_ATTRIBS EXTRA_DATA 1))
						((++ whichSkill))
					(Format @bigStr "%2x" [statsKey whichSkill])
					(heroinfo writeString: @bigStr)
				)
				(heroinfo writeString: lineEndString)
				(heroinfo close:)
				(= seconds 2)
			)

			(writeComplete
				(if modelessDialog
					(modelessDialog dispose:)
				)
				(Print "The save character file has been created.__Save
						this disk for use with \"Quest for Glory III:__Shadows of Darkness\"
						from Sierra On-Line."
						#window: customWindow
						#width: textWidth
						#mode: teJustCenter
						#dispose:
				)
				(= register 1)
			)
			(writeComplete2
				(= hasSaved TRUE)
				(self changeState: saveDone)
;**				(= cycles 2)
			)

			(tryAgain
				(repeat
					(if
						(= retry
							(Print 
								"Do you wish to try saving
								your character again?"
								#button:	{_No_}	1
								#button:	{_Yes_}	2
								#window: customWindow
								#mode:	teJustCenter
							)
						)
						(switch retry
							(1 (= retry saveDone) (break))
							(2 
								(= retry getInfoFileName) 
								(= bogus0 $79)
								(= bogus1 $86)
								(= bogus2 $43)	
								(= bogus3 $88)	
								(= bogus4 $ad)	
								(= bogus5 $f0)	
								(break)
							)
						)
					)
				)
				(self changeState: retry)
			)
;**				(if (GetInput @YNSTR 2
;**							{If you wish to try saving your character again,
;**								type \"y\",	then ENTER.__Otherwise type \"n\",
;**								then ENTER.}
;**						)
;**					(if (StrCmp @YNSTR {y})
;**						(self changeState: saveDone)
;**					else
;**						(= bogus0 $79)
;**						(= bogus1 $86)
;**						(= bogus2 $43)	
;**						(= bogus3 $88)	
;**						(= bogus4 $ad)	
;**						(= bogus5 $f0)	
;**						(self changeState: getInfoFileName)
;**					)
;**				else
;**					(= cycles 2)
;**				)

;**			(badAnswer
;**				(Print "Please answer \"y\" or \"n\"."
;**						#window: Warning
;**						#mode: teJustCenter
;**				)
;**				(self  changeState: tryAgain)
;**			)

			(saveDone
				(Print "Thank you for playing\n 
						\"Quest for Glory II:__Trial by Fire,\"\n
						and congratulations again on winning.__We'll see you again soon in\n
						\"Quest for Glory III:\n
						Shadows of Darkness.\""
						#window: customWindow
						#width: textWidth
						#mode: teJustCenter
				)
				(= seconds 4)
			)
			(checkSong
				(if (== (miscSound number?) sMoon1)
					(= cycles 1)
				else
					(self setScript: waitForSong self)
				)
			)
			(redrawRoom
				(curRoom drawPic: pCredits1 IRISOUT)
				(= cycles 1)
			)
			(goToCredits
				(curRoom newRoom: rClosingCredits)
			)
		)
	)
)

(instance endStatus of Code
	(method (doit strg)
		(if (== heroType PALADIN)
			(Format strg "____Congratulations, Paladin!__[score %d of %d]"
					score possibleScore)
		else
			(Format strg "_______Hero of Two Lands!__[score %d of %d]"
					score possibleScore)
		)
	)
)

(instance frame1 of PicView
	(properties
		view			242
		loop			0
		cel			0
		x				81
		y				33
	)
)

(instance frame2 of PicView
	(properties
		view			242
		loop			1
		cel			0
		x				239
		y				33
	)
)

(instance frame3 of PicView
	(properties
		view			242
		loop			0
		cel			1
		x				19
		y				94
	)
)

(instance frame4 of PicView
	(properties
		view			242
		loop			0
		cel			2
		x				20
		y				156
	)
)

(instance frame5 of PicView
	(properties
		view			242
		loop			0
		cel			3
		x				81
		y				189
	)
)

(instance frame6 of PicView
	(properties
		view			242
		loop			1
		cel			3
		x				238
		y				189
	)
)

(instance frame7 of PicView
	(properties
		view			242
		loop			1
		cel			2
		x				300
		y				156
	)
)

(instance frame8 of PicView
	(properties
		view			242
		loop			1
		cel			1
		x				301
		y				94
	)
)
(instance Warning of SysWindow
	(properties
		back: vRED
		color: vYELLOW
	)
)

(instance songObj of Prop)

(instance songScript of Script
	(method (changeState newState)
		(switchto (= state newState)
			(
				(= seconds 8)
			)
			(
				(spareSound
					number: sLowDrone,
					priority: 10,
					loop:	-1,
					play:
				)
				(= seconds 8)
			)
			(
				(if (== (saveHero script?) waitForSong)
					(waitForSong cue:)
				else
					(waitForSong start: 1)
				)
				(miscSound
					number: sMoon1,
					loop: -1,
					priority: 11,
					play:
				)
				(= cycles 1)
			)
			((self dispose:))
		)
	)
)

(instance waitForSong of Script
	(method (changeState newState)
		(switch (= state newState)
			(0 0)
			(1 (self dispose:))
		)
	)
)