scn	PB25OrderStrongboxScript

ref	rSelf
ref	rMsg2
ref	rMsg3

int	iMessage
int	iButton
int	iCurrent

Begin OnActivate
	If IsActionRef Player
		Set rSelf to GetSelf
		Set iMessage to 1
		Print "iMessage:" + $iMessage
		Print "iButton: " + $iButton
		Print "iCurrent: " + $iCurrent
		If rSelf == PB25OStrongboxConStoreRef
			Set rMsg2 to PB25OStrongboxConStoreMessage2
			Set rMsg3 to PB25OStrongboxConStoreMessage3
			ShowMessage PB25OStrongboxConStoreMessage1
		EndIf
	EndIf
End

Begin GameMode
	If iMessage == 1
		If GetButtonPressed > -1
			PlaySound3D WPNCowboyReload
			Set iButton to GetButtonPressed
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			Set iCurrent to Pow 2 iButton
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			Set iMessage to 2
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			ShowMessage rMsg2
		EndIf
	ElseIf iMessage == 2
		If GetButtonPressed > -1
			PlaySound3D WPNCowboyReload
			Set iButton to GetButtonPressed
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			if iButton
				Set iButton to (iButton + 9)
				Set iCurrent to ((iCurrent) + (Pow 2 iButton))
			EndIf
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			Set iMessage to 3
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			ShowMessage rMsg3
		EndIf
	ElseIf iMessage == 3
		If GetButtonPressed > -1
			Set iButton to GetButtonPressed
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			if iButton
				Set iButton to (iButton + 18)
				Set iCurrent to ((iCurrent) + (Pow 2 iButton))
			EndIf
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
			Set iMessage to 0
;			Set iButton to 0
			If iCurrent == 2097152
				Player.Additem PB25OKey 1
				PlaySound3D NPCThatGunReloadPt1
				SetDestroyed 1
			Else
				PlaySound3D WPNCowboyReload
			EndIf
			Print "iMessage:" + $iMessage
			Print "iButton: " + $iButton
			Print "iCurrent: " + $iCurrent
		EndIf
	EndIf
End