Fix blackjack script by logging out to prevent zeny deletion

there is a well known bug of this script (I've known this since eathena actually)
when you are certainly going to lose the bet, log out immediately while the card are still dealt
and you don't get zeny deletion

thx to Holiness to bring this up again

1 files changed, 15 insertions, 6 deletions

diff --git a/npc/custom/etc/blackjack.txt b/npc/custom/etc/blackjack.txt
index ee1e7904b..5baba717e 100644
--- a/npc/custom/etc/blackjack.txt
+++ b/npc/custom/etc/blackjack.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================
 //= kobra_k88
 //===== Current Version: =====================================
-//= 1.0
+//= 1.1
 //===== Description: =========================================
 //= Black Jack card game.  Gameplay based off standard casino
 //= black jack rules.  Dealer must have at least 17 to stay and will
@@ -12,7 +12,8 @@
 //= Currently does not allow for "insurance", or "splitting"
 //= of pairs.
 //===== Additional Comments: =================================
-//=
+// 1.0 Release
+// 1.1 Prevent player logout from zeny deletion (AnnieRuru)
 //============================================================
 
 cmd_in02,188,89,1	script	Black Jack Dealer	1_M_LIBRARYMASTER,{
@@ -71,7 +72,7 @@ sM_0b:
 	mes "3.) If you have a point total of 21 with the first 2 cards, you";
 	mes "will automatically win the round.  This is called a ^5533FF'Black Jack'^000000";
 	mes "and happens when you get an 'Ace' and a '10 valued' card. If the";
-	mes "dealer gets a Black Jack he/she will automatically win the round.";
+	mes "dealer gets a Black Jack the player will automatically lose the round.";
 	next;
 	mes "[Dealer]";
 	mes "4.) Besides winning and loosing, you can tie with the dealer.  If";
@@ -133,18 +134,22 @@ L_Play:
 M_1a:
 	if(Zeny < 2) goto sL_NotEnuf;
 	set @bet, 2;
+	Zeny -= @bet;
 	goto L_Cont0;
 M_1b:
 	if(Zeny < 10) goto sL_NotEnuf;
 	set @bet, 10;
+	Zeny -= @bet;
 	goto L_Cont0;
 M_1c:
 	if(Zeny < 20) goto sL_NotEnuf;
 	set @bet, 20;
+	Zeny -= @bet;
 	goto L_Cont0;
 M_1d:
 	if(Zeny < 100) goto sL_NotEnuf;
 	set @bet, 100;
+	Zeny -= @bet;
 	goto L_Cont0;
 
 sL_NotEnuf:
@@ -157,6 +162,7 @@ L_Cont0:
 	next;
 	deletearray $@card[0],13;
 	set @dealerTurn, 0;
+	set @doubledown, 0;
 	set @numP, 0;
 	set @numD, 0;
 	set @pAce, 0;
@@ -219,7 +225,7 @@ M_Double:
 	mes "doubled, and you will only be able to pull 1 extra card.";
 	next;
 	set @dealerTurn, 1;
-	set @bet, @bet*2;
+	set @doubledown, 1;
 	callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
 	goto L_Start;
 
@@ -232,18 +238,21 @@ L_Check:
 sL_Win:
 	mes "[Dealer]";
 	mes "Congratulations, you've won!";
+	if ( @doubledown )
+		Zeny += @bet *3;
+	else
+		Zeny += @bet *2;
 	next;
-	Zeny += @bet;
 	goto L_Play;
 sL_Lose:
 	mes "[Dealer]";
 	mes "I'm sorry but you've lost.";
-	Zeny -= @bet;
 	next;
 	goto L_Play;
 sL_Push:
 	mes "[Dealer]";
 	mes "Its a push.  You tied with the Dealer.";
+	Zeny += @bet;
 	next;
 	goto L_Play;