|
|
|
@ -54,16 +54,45 @@ Function Step01() |
|
|
|
|
ORandomDice2.Disable() |
|
|
|
|
PRandomDice1.Disable() |
|
|
|
|
PRandomDice2.Disable() |
|
|
|
|
if PlayerRef.GetItemCount(Gold001) <= Opponent.GetReference().GetItemCount(Gold001) |
|
|
|
|
MaxBet = (PlayerRef.GetItemCount(Gold001)/2) as INT |
|
|
|
|
elseif PlayerRef.GetItemCount(Gold001) > Opponent.GetReference().GetItemCount(Gold001) |
|
|
|
|
MaxBet = (Opponent.GetReference().GetItemCount(Gold001)/2) as INT |
|
|
|
|
endif |
|
|
|
|
PlayerBet = (((self as Quest) as form) as uilib_1).ShowTextInput(PlaceYourBet.GetName() + MaxBet as String, MaxBet as String) as Int |
|
|
|
|
if PlayerBet > MaxBet || PlayerBet == 0 |
|
|
|
|
Step01() |
|
|
|
|
Return |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
if PlayerRef.GetItemCount(Gold001) <= Opponent.GetReference().GetItemCount(Gold001) |
|
|
|
|
MaxBet = (PlayerRef.GetItemCount(Gold001)/2) as INT |
|
|
|
|
elseif PlayerRef.GetItemCount(Gold001) > Opponent.GetReference().GetItemCount(Gold001) |
|
|
|
|
MaxBet = (Opponent.GetReference().GetItemCount(Gold001)/2) as INT |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
if false && EnderalFunctions.TextInputEnabled() |
|
|
|
|
PlayerBet = (((self as Quest) as form) as uilib_1).ShowTextInput(PlaceYourBet.GetName() + MaxBet as String, MaxBet as String) as Int |
|
|
|
|
else |
|
|
|
|
float fPrevValue = PlayerRef.GetActorValue("Variable08") |
|
|
|
|
PlayerRef.SetActorValue("Variable08", MaxBet) |
|
|
|
|
int iBet = _SAG_SelectBetMessage.Show() |
|
|
|
|
PlayerRef.SetActorValue("Variable08", fPrevValue) |
|
|
|
|
|
|
|
|
|
if iBet == 0 |
|
|
|
|
PlayerBet = 50 |
|
|
|
|
elseif iBet == 1 |
|
|
|
|
PlayerBet = 100 |
|
|
|
|
elseif iBet == 2 |
|
|
|
|
PlayerBet = 200 |
|
|
|
|
elseif iBet == 3 |
|
|
|
|
PlayerBet = 350 |
|
|
|
|
elseif iBet == 4 |
|
|
|
|
PlayerBet = 500 |
|
|
|
|
elseif iBet == 5 |
|
|
|
|
PlayerBet = 750 |
|
|
|
|
elseif iBet == 6 |
|
|
|
|
PlayerBet = 1000 |
|
|
|
|
else |
|
|
|
|
QuitGame() |
|
|
|
|
endif |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
if PlayerBet > MaxBet || PlayerBet <= 0 |
|
|
|
|
Step01() |
|
|
|
|
Return |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
OpponentBet = PlayerBet |
|
|
|
|
Step02() |
|
|
|
|
EndFunction |
|
|
|
@ -172,11 +201,13 @@ Function QuitGame() |
|
|
|
|
if Opponent.GetReference().IsDisabled() |
|
|
|
|
Opponent.GetReference().Enable() |
|
|
|
|
endif |
|
|
|
|
if initialFurn |
|
|
|
|
PlayerRef.MoveTo(initialFurn) |
|
|
|
|
else |
|
|
|
|
PlayerRef.MoveTo(PlayerPosition) |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
if initialFurn |
|
|
|
|
PlayerRef.MoveTo(initialFurn) |
|
|
|
|
else |
|
|
|
|
PlayerRef.MoveTo(PlayerPosition) |
|
|
|
|
endif |
|
|
|
|
|
|
|
|
|
Game.EnablePlayerControls() |
|
|
|
|
game.SetInChargen(false, false, false) |
|
|
|
|
Opponent.Clear() |
|
|
|
@ -184,4 +215,5 @@ EndFunction |
|
|
|
|
|
|
|
|
|
Message Property PlayAgain Auto |
|
|
|
|
Message Property PlayerLost Auto |
|
|
|
|
Message Property PlayerWon Auto |
|
|
|
|
Message Property PlayerWon Auto |
|
|
|
|
Message Property _SAG_SelectBetMessage Auto |
|
|
|
|