Problems with a Script...

[Delanath]

Right, I'm having troubles with creating a "Multiple Message" Script here, So, I'm posting all of it.

 

The "Problem" right now, is that I can "Buy" the first Option, the "1PEPlaceableTurret" one, yet, for some reason, I can't choose any other ones, been fiddling and tried to make it work but... -something- is wrong, and I can't figure out what it is.

 

So... Help, please?

 

scn PEConsoleMainScript

short CanHasTurret
short CanHasBunkerLow
short CanHasBunkerFull
short CanHasFurniture
short Button
short CheckButtons
short Menu

Begin OnActivate
If (Player.IsSneaking == 1) && (IsActionRef player == 1)
	Player.AddItem 1PEPlaceableMainConsole 1
	Disable
	MarkForDelete
EndIf

ElseIf (Player.IsSneaking == 0) && (IsActionRef player == 1)
	If (player.GetItemCount PrewarMoney > 19)
		Set CanHasTurret to 1
	Else
		Set CanHasTurret to 0
	Endif

	If (player.GetItemCount PrewarMoney > 9)
		Set CanHasBunkerLow to 1
	Else
		Set CanHasBunkerLow to 0
	Endif

	If (player.GetItemCount PrewarMoney > 14)
		Set CanHasBunkerFull to 1
	Else
		Set CanHasBunkerFull to 0
	Endif

	If (player.GetItemCount PrewarMoney > 4)
		Set CanHasFurniture to 1
	Else
		Set CanHasFurniture to 0
	Endif

Set CheckButtons to 1
ShowMessage 1PEConsoleMenu
Endif
End

Begin GameMode			
If (checkButtons == 1)

	Set Button to GetButtonPressed

	If Button > -1
		If Button == 0
			ShowMessage 1PEConsoleMenuDefensibles
			Set Menu to 1
			Set CheckButtons to 2

		Elseif Button == 1
			ShowMessage 1PEConsoleMenuFurniture
			Set Menu to 2
			Set CheckButtons to 2

		Elseif Button == 2
			Set CheckButtons to 0
			Set Menu to 0
		Endif

	EndIf
EndIf
End

Begin GameMode			
If (checkButtons == 2)

	Set Button to GetButtonPressed

	If Button > -1
		If (Button == 0) && (Menu == 1)
			If CanHasTurret == 1
				Player.additem 1PEPlaceableTurret 1
				Player.removeitem PrewarMoney 20
			Elseif (CanHasTurret == 0)
				ShowMessage 1PEFailureMSG
			Endif

		If (Button == 0) && (Menu == 2)
			If CanHasFurniture == 1
				Player.additem 1PEPlaceableTable 1
				Player.removeitem PrewarMoney 5
			Elseif (CanHasFurniture == 0)
				ShowMessage 1PEFailureMSG
			Endif

		Elseif (Button == 1) && (Menu == 1)
			If CanHasBunkerLow == 1
				Player.additem 1PEPlaceableBunkerLow 1
				Player.removeitem PrewarMoney 10
			Elseif (CanHasBunkerLow == 0)
				ShowMessage 1PEFailureMSG
			Endif

		Elseif (Button == 1) && (Menu == 2)
			If CanHasFurniture == 1
				Player.additem 1PEPlaceableLocker 1
				Player.removeitem PrewarMoney 5
			Elseif (CanHasFurniture == 0)
				ShowMessage 1PEFailureMSG
			Endif

		Elseif (Button == 2) && (Menu == 1)
			If CanHasBunkerFull == 1
				Player.additem 1PEPlaceableBunkerFull 1
				Player.removeitem PrewarMoney 15
			Elseif (CanHasBunkerFull == 0)
				ShowMessage 1PEFailureMSG
			Endif

		Elseif (Button == 2) && (Menu == 2)
			Endif

		Elseif (Button == 3) && (Menu == 1)
			EndIf

		Set CheckButtons to 0
		Set Menu to 0

	EndIf
EndIf
End