swg-source/dsrc
1
0
Fork 0
mirror of https://github.com/SWG-Source/dsrc.git synced 2026-10-20 11:03:07 -04:00
Code Issues Projects Releases Wiki Activity
Files
761bf00a2a4865fe78e7d07d13ecb0dcd28c5fb8
dsrc/sku.0/sys.server/compiled/game/script/gambling/saarlac/saarlac_wheel.script
T

1873 lines
55 KiB
Plaintext
Raw Blame History

/**********************************************************************
* Title: saarlac wheel game
* Description: script that goes on the saarlac wheel game table
**********************************************************************/
/***** INCLUDES ********************************************************/
include library.money;
include library.gambling;
include library.prose;
include library.utils;
include library.sui;
include library.player_structure;
include sort;
inherits gambling.base.wheel;
/***** CONSTANTS *******************************************************/
const string[] WHEEL_OUTCOMES = {"Bestine",
"Anchorhead",
"Mos Eisely",
"Arch Mesa",
"Grand Arena Flats",
"Dune Sea",
"Spice Fields",
"Mines",
"Jabba's Palace",
"Fort Tusken",
"Jawa Stronghold",
"Oasis",
"Imperial Raid",
"Krayt Dragon Attack",
"Saarlac Pit",
"Bestine(2 Push)",
"Bestine(1 Push)",
"Anchorhead(1 Push)",
"Arch Mesa(2 Push)",
"Arch Mesa(1 Push)",
"Grand Arena Flats(1 Push)",
};
const int[] WHEEL_PROBABILITIES = {500, 1000, 2000, 500, 1000, 2000, 500, 500, 100, 500, 500, 100, 400, 400, 1};
const float[] PAYOUTS = {8.0f, 2.67f, 1.16f, 8.0f, 2.67f, 1.16f, 3.0f, 3.0f, 250.0f, 3.0f, 3.0f, 250.0f, 22.0f, 22.0f, 10000.0f, 1.16f, 2.67f, 1.16f, 1.16f, 2.67f, 1.16f};
const int TIMER_BETTING = 40; //allotted time for betting
const string VAR_JABBA_POOL = "gambling.table.jabba_pool";
const string VAR_OASIS_POOL = "gambling.table.oasis_pool";
const string VAR_SAARLAC_POOL = "gambling.table.saarlac_pool";
const string VAR_MONEY_IN = "gambling.table.money_in";
const string VAR_MONEY_OUT = "gambling.table.money_out";
const string VAR_JABBA_POOL_MIN = "gambling.table.jabba_pool_min";
const string VAR_OASIS_POOL_MIN = "gambling.table.oasis_pool_min";
const string VAR_SAARLAC_POOL_MIN = "gambling.table.saarlac_pool_min";
const string VAR_TOTAL_BETS = "gambling.table.total_bets";
const string VAR_ADMIN_SUI = "gambling.admin_sui";
const string_id SID_WHEEL_SPIN = new string_id("gambling/saarlac_wheel", "wheel_spin");
const string_id SID_INVALID_BET = new string_id("gambling/saarlac_wheel", "invalid_bet");
const string_id SID_BET_ALREADY_PLACED = new string_id("gambling/saarlac_wheel", "bet_already_placed");
const string_id SID_BET_PLACED_SELF = new string_id("gambling/saarlac_wheel", "bet_placed_self");
const string_id SID_BET_PLACED_OTHER = new string_id("gambling/saarlac_wheel", "bet_placed_other");
const string_id SID_BET_JABBA_POOL_EMPTY = new string_id("gambling/saarlac_wheel", "jabba_pool_empty");
const string_id SID_BET_OASIS_POOL_EMPTY = new string_id("gambling/saarlac_wheel", "oasis_pool_empty");
const string_id SID_BET_SAARLAC_POOL_EMPTY = new string_id("gambling/saarlac_wheel", "saarlac_pool_empty");
const string_id SID_BET_JABBA_POOL_MAX = new string_id("gambling/saarlac_wheel", "jabba_pool_max");
const string_id SID_BET_OASIS_POOL_MAX = new string_id("gambling/saarlac_wheel", "oasis_pool_max");
const string_id SID_BET_SAARLAC_POOL_MAX = new string_id("gambling/saarlac_wheel", "saarlac_pool_max");
const string_id SID_BET_PAYED_SELF = new string_id("gambling/saarlac_wheel", "bet_payed_self");
const string_id SID_BET_LOST_SELF = new string_id("gambling/saarlac_wheel", "bet_lost_self");
const string_id SID_BET_PAYED_OTHER = new string_id("gambling/saarlac_wheel", "bet_payed_other");
const string_id SID_BET_LOST_OTHER = new string_id("gambling/saarlac_wheel", "bet_lost_other");
const string_id SID_JACKPOT_WON_SELF = new string_id("gambling/saarlac_wheel", "jackpot_won_self");
const string_id SID_JACKPOT_WON_OTHER = new string_id("gambling/saarlac_wheel", "jackpot_won_other");
const string_id SID_BET_PUSH_SELF = new string_id("gambling/saarlac_wheel", "bet_push_self");
const string_id SID_BET_PUSH_OTHER = new string_id("gambling/saarlac_wheel", "bet_push_other");
const string_id SID_BET_PUSH_TO_PIT_SELF = new string_id("gambling/saarlac_wheel", "bet_push_to_pit_self");
const string_id SID_BET_PUSH_TO_PIT_OTHER = new string_id("gambling/saarlac_wheel", "bet_push_to_pit_other");
const string_id SID_BET_PUSH_TO_JABBA_SELF = new string_id("gambling/saarlac_wheel", "bet_push_to_jabba_self");
const string_id SID_BET_PUSH_TO_JABBA_OTHER = new string_id("gambling/saarlac_wheel", "bet_push_to_jabba_other");
const string_id SID_BET_PUSH_TO_OASIS_SELF = new string_id("gambling/saarlac_wheel", "bet_push_to_oasis_self");
const string_id SID_BET_PUSH_TO_OASIS_OTHER = new string_id("gambling/saarlac_wheel", "bet_push_to_oasis_other");
const string_id SID_NO_CASINO = new string_id("gambling/saarlac_wheel", "no_casino");
const string_id SID_INSUFFICIENT_FUNDS = new string_id("gambling/saarlac_wheel", "insufficient_funds");
const string_id SID_INSUFFICIENT_FUNDS_START = new string_id("gambling/saarlac_wheel", "insufficient_funds_start");
const string_id SID_NOT_AN_ADMIN = new string_id("gambling/saarlac_wheel", "not_an_admin");
const string_id SID_POOLS_RESET = new string_id("gambling/saarlac_wheel", "pools_reset");
const string_id SID_CANT_DO_MAINTENANCE = new string_id("gambling/saarlac_wheel", "cant_do_maintenance");
const string_id SID_JABBA_POOL_MIN_SET = new string_id("gambling/saarlac_wheel", "jabba_pool_min_set");
const string_id SID_OASIS_POOL_MIN_SET = new string_id("gambling/saarlac_wheel", "oasis_pool_min_set");
const string_id SID_SAARLAC_POOL_MIN_SET = new string_id("gambling/saarlac_wheel", "saarlac_pool_min_set");
const string_id SID_MNU_ADMIN = new string_id("gambling/saarlac_wheel", "menu_admin");
const string_id SID_MNU_POOL_RESET = new string_id("gambling/saarlac_wheel", "menu_pool_reset");
const string_id SID_MNU_POOL_MINIMUM_JABBA = new string_id("gambling/saarlac_wheel", "menu_pool_minimum_jabba");
const string_id SID_MNU_POOL_MINIMUM_OASIS = new string_id("gambling/saarlac_wheel", "menu_pool_minimum_oasis");
const string_id SID_MNU_POOL_MINIMUM_SAARLAC = new string_id("gambling/saarlac_wheel", "menu_pool_minimum_saarlac");
/***** TRIGGERS ********************************************************/
trigger OnInitialize()
{
reseed(getGameTime());
return super.OnInitialize(self);
}
/***** MESSAGEHANDLERS *************************************************/
trigger OnObjectMenuRequest(obj_id player, menu_info mi)
{
obj_id structure = player_structure.getStructure(self);
if (!isIdValid(structure))
return SCRIPT_CONTINUE;
if (player_structure.isAdmin(structure, player))
{
int admin_root = mi.addRootMenu(menu_info_types.SERVER_MENU6, SID_MNU_ADMIN);
mi.addSubMenu(admin_root, menu_info_types.SERVER_MENU7, SID_MNU_POOL_RESET);
mi.addSubMenu(admin_root, menu_info_types.SERVER_MENU8, SID_MNU_POOL_MINIMUM_JABBA);
mi.addSubMenu(admin_root, menu_info_types.SERVER_MENU9, SID_MNU_POOL_MINIMUM_OASIS);
mi.addSubMenu(admin_root, menu_info_types.SERVER_MENU10, SID_MNU_POOL_MINIMUM_SAARLAC);
}
return SCRIPT_CONTINUE;
}
trigger OnObjectMenuSelect(obj_id player, int item)
{
obj_id structure = player_structure.getStructure(self);
if (!isIdValid(structure))
return SCRIPT_CONTINUE;
if (!player_structure.isAdmin(structure, player))
{
sendSystemMessage(player, SID_NOT_AN_ADMIN);
return SCRIPT_CONTINUE;
}
if (item == menu_info_types.SERVER_MENU6)
{
string[] dsrc = new string[16];
dsrc[0] = "Money In: " + getIntObjVar(self, VAR_MONEY_IN);
dsrc[1] = "Money Out: " + getIntObjVar(self, VAR_MONEY_OUT);
dsrc[2] = "";
dsrc[3] = "Min Bet: " + getIntObjVar(self, gambling.VAR_TABLE_BET_MIN);
dsrc[4] = "Max Bet: " + getIntObjVar(self, gambling.VAR_TABLE_BET_MAX);
dsrc[5] = "";
dsrc[6] = "Jabba Pool: " + getJabbaPool(self);
dsrc[7] = "Oasis Pool: " + getOasisPool(self);
dsrc[8] = "Saarlac Pool: " + getSaarlacPool(self);
dsrc[9] = "";
dsrc[10] = "Jabba Pool Min: " + getIntObjVar(self, VAR_JABBA_POOL_MIN);
dsrc[11] = "Oasis Pool Min: " + getIntObjVar(self, VAR_OASIS_POOL_MIN);
dsrc[12] = "Saarlac Pool Min: " + getIntObjVar(self, VAR_SAARLAC_POOL_MIN);
dsrc[13] = "";
dsrc[14] = "Structure Credits: " + getBankBalance(structure);
dsrc[15] = "Table Credits: " + getBankBalance(self);
sui.listbox(player, "@gambling/saarlac_wheel:stats", "@gambling/saarlac_wheel:stats", sui.OK_CANCEL, dsrc);
}
if (item == menu_info_types.SERVER_MENU7)
{
if (hasObjVar(self, gambling.VAR_GAME_BASE))
{
sendSystemMessage(player, SID_CANT_DO_MAINTENANCE);
return SCRIPT_CONTINUE;
}
resetJabbaPool(self);
resetOasisPool(self);
resetSaarlacPool(self);
sendSystemMessage(player, SID_POOLS_RESET);
}
if (item == menu_info_types.SERVER_MENU8)
{
if (hasObjVar(self, gambling.VAR_GAME_BASE))
{
sendSystemMessage(player, SID_CANT_DO_MAINTENANCE);
return SCRIPT_CONTINUE;
}
int balance = getBankBalance(structure);
utils.setScriptVar(self, VAR_ADMIN_SUI, player);
int pid = sui.transfer(self, player, "@gambling/saarlac_wheel:set_jabba_pool_min", "@gambling/saarlac_wheel:set_jabba_pool_title", "@gambling/saarlac_wheel:total_funds", balance, "@gambling/saarlac_wheel:pool_minimum", 0, "msgSetJabbaMinimum");
}
if (item == menu_info_types.SERVER_MENU9)
{
if (hasObjVar(self, gambling.VAR_GAME_BASE))
{
sendSystemMessage(player, SID_CANT_DO_MAINTENANCE);
return SCRIPT_CONTINUE;
}
int balance = getBankBalance(structure);
utils.setScriptVar(self, VAR_ADMIN_SUI, player);
int pid = sui.transfer(self, player, "@gambling/saarlac_wheel:set_oasis_pool_min", "@gambling/saarlac_wheel:set_oasis_pool_title", "@gambling/saarlac_wheel:total_funds", balance, "@gambling/saarlac_wheel:pool_minimum", 0, "msgSetOasisMinimum");
}
if (item == menu_info_types.SERVER_MENU10)
{
if (hasObjVar(self, gambling.VAR_GAME_BASE))
{
sendSystemMessage(player, SID_CANT_DO_MAINTENANCE);
return SCRIPT_CONTINUE;
}
int balance = getBankBalance(structure);
utils.setScriptVar(self, VAR_ADMIN_SUI, player);
int pid = sui.transfer(self, player, "@gambling/saarlac_wheel:set_saarlac_pool_min", "@gambling/saarlac_wheel:set_saarlac_pool_title", "@gambling/saarlac_wheel:total_funds", balance, "@gambling/saarlac_wheel:pool_minimum", 0, "msgSetSaarlacMinimum");
}
return SCRIPT_CONTINUE;
}
messageHandler handleWheelSpinning()
{
int spin = rand(1,10001);
int wheel_index = wheelRollToIndex(spin);
if (wheel_index >=0 && wheel_index <= 14)
{
if (params.containsKey("spin"))
{
wheel_index = params.getInt("spin");
}
string result = wheelIndexToName(wheel_index);
debugSpeakMsg(self, "spin ->" + spin + " " + "result ->" + result);
LOG("LOG_CHANNEL", "spin ->" + spin + " " + "result ->" + result);
prose_package pp = prose.getPackage(SID_WHEEL_SPIN, result.toUpperCase());
sendTableMessage(self, pp);
resolveSpin(self, wheel_index);
messageTo(self, "handleDelayedRestart", null, 5.0f, false);
}
return SCRIPT_CONTINUE;
}
messageHandler handleBetPlaced()
{
if ( params == null || params.isEmpty() )
return SCRIPT_CONTINUE;
obj_id player = params.getObjId(money.DICT_PLAYER_ID);
if ( !isIdValid(player) )
return SCRIPT_CONTINUE;
int ret = params.getInt(money.DICT_CODE);
int amt = params.getInt(money.DICT_TOTAL);
if ( ret == money.RET_FAIL || amt < 1 )
{
dictionary d = new dictionary();
d.put("player", player);
messageTo(self, "handleBetFailed", d, 0, false);
return SCRIPT_CONTINUE;
}
boolean bet_success = true;
string arg = params.getString("arg");
LOG("LOG_CHANNEL", "arg ->" + arg);
if (arg != null && !arg.equals(""))
{
int wheel_index = wheelNameToIndex(arg);
LOG("LOG_CHANNEL", "wheel_index ->" + wheel_index);
if (wheel_index != -1 && wheel_index <= 14)
{
int validated_amt = validateBet(self, wheel_index, amt, player);
LOG("LOG_CHANNEL", "validated_amt ->" + validated_amt);
if (validated_amt > 0)
{
completeBet(self, wheel_index, validated_amt, player);
}
else if (validated_amt != -2)
{
// Validated amount of -2 means that the bet has been validated, but there is still an outstanding
// money transfer to complete. Do nothing until this completes.
// Any other value means that the bet has been rejected.
bet_success = false;
}
}
else
{
sendSystemMessage(player, SID_INVALID_BET);
bet_success = false;
}
}
else
bet_success = false;
if (!bet_success)
transferBankCreditsTo(self, player, amt, "noHandler", "noHandler", new dictionary());
return SCRIPT_CONTINUE;
}
messageHandler handleBetVerified()
{
LOG("LOG_CHANNEL", "saarlac_wheel::handleBetVerified");
obj_id player = params.getObjId("player");
LOG("LOG_CHANNEL", "player ->" + player);
if (!isIdValid(player) || !player.isLoaded())
return SCRIPT_CONTINUE;
int amt = params.getInt("amt");
//LOG("LOG_CHANNEL", "amt ->" + amt);
if (amt < 0)
return SCRIPT_CONTINUE;
int bet_index = params.getInt("bet_index");
//LOG("LOG_CHANNEL", "bet_index ->" + bet_index);
if (bet_index < 0 || bet_index > 14)
return SCRIPT_CONTINUE;
completeBet(self, bet_index, amt, player);
return SCRIPT_CONTINUE;
}
messageHandler handleBetVerifiedFailed()
{
LOG("LOG_CHANNEL", "saarlac_wheel::handleBetVerifiedFailed");
obj_id player = params.getObjId("player");
if (isIdValid(player) && player.isLoaded())
sendSystemMessage(player, SID_INSUFFICIENT_FUNDS);
// refund the bet
int amt = params.getInt("amt");
if (amt > 0)
transferBankCreditsTo(self, player, amt, "noHandler", "noHandler", new dictionary());
return SCRIPT_CONTINUE;
}
//messageHandler handleDelayedRestart()
//{
// LOG("LOG_CHANNEL", "saarlac_wheel::handleDelayedRestart");
// startWheelGame(self);
// return SCRIPT_OVERRIDE;
//}
messageHandler tableTransferSuccess()
{
LOG("LOG_CHANNEL", "saarlac_wheel::tableTransferSuccess");
startWheelGame(self);
return SCRIPT_CONTINUE;
}
messageHandler tableTransferFailed()
{
LOG("LOG_CHANNEL", "saarlac_wheel::tableTransferFailed");
sendTableMessage(self, SID_INSUFFICIENT_FUNDS_START, null);
return SCRIPT_CONTINUE;
}
messageHandler msgSetJabbaMinimum()
{
LOG("LOG_CHANNEL", "saarlac_wheel::msgSetJabbaMinimum");
int bp = sui.getIntButtonPressed(params);
if ( bp == sui.BP_CANCEL )
return SCRIPT_CONTINUE;
int amt = sui.getTransferInputTo(params);
if ( amt < 1 )
return SCRIPT_CONTINUE;
setObjVar(self, VAR_JABBA_POOL_MIN, amt);
if (getJabbaPool(self) < amt)
resetJabbaPool(self);
if (utils.hasScriptVar(self, VAR_ADMIN_SUI))
{
obj_id player = utils.getObjIdScriptVar(self, VAR_ADMIN_SUI);
if (isIdValid(player) && player.isLoaded())
{
prose_package pp = prose.getPackage(SID_JABBA_POOL_MIN_SET, amt);
sendSystemMessageProse(player, pp);
}
}
return SCRIPT_CONTINUE;
}
messageHandler msgSetOasisMinimum()
{
LOG("LOG_CHANNEL", "saarlac_wheel::msgSetOasisMinimum");
int bp = sui.getIntButtonPressed(params);
if ( bp == sui.BP_CANCEL )
return SCRIPT_CONTINUE;
int amt = sui.getTransferInputTo(params);
if ( amt < 1 )
return SCRIPT_CONTINUE;
setObjVar(self, VAR_OASIS_POOL_MIN, amt);
if (getOasisPool(self) < amt)
resetOasisPool(self);
if (utils.hasScriptVar(self, VAR_ADMIN_SUI))
{
obj_id player = utils.getObjIdScriptVar(self, VAR_ADMIN_SUI);
if (isIdValid(player) && player.isLoaded())
{
prose_package pp = prose.getPackage(SID_OASIS_POOL_MIN_SET, amt);
sendSystemMessageProse(player, pp);
}
}
return SCRIPT_CONTINUE;
}
messageHandler msgSetSaarlacMinimum()
{
LOG("LOG_CHANNEL", "saarlac_wheel::msgSetSaarlacMinimum");
int bp = sui.getIntButtonPressed(params);
if ( bp == sui.BP_CANCEL )
return SCRIPT_CONTINUE;
int amt = sui.getTransferInputTo(params);
if ( amt < 1 )
return SCRIPT_CONTINUE;
setObjVar(self, VAR_SAARLAC_POOL_MIN, amt);
if (getSaarlacPool(self) < amt)
resetSaarlacPool(self);
if (utils.hasScriptVar(self, VAR_ADMIN_SUI))
{
obj_id player = utils.getObjIdScriptVar(self, VAR_ADMIN_SUI);
if (isIdValid(player) && player.isLoaded())
{
prose_package pp = prose.getPackage(SID_SAARLAC_POOL_MIN_SET, amt);
sendSystemMessageProse(player, pp);
}
}
return SCRIPT_CONTINUE;
}
/***** COMMANDHANDLERS *************************************************/
/***** FUNCTIONS *******************************************************/
string wheelRollToName(int roll)
{
int low_roll = 0;
for (int i = 0; i < WHEEL_PROBABILITIES.length; i++)
{
int high_roll = low_roll + WHEEL_PROBABILITIES[i];
if (roll > low_roll && roll <= high_roll)
return WHEEL_OUTCOMES[i];
low_roll = high_roll;
}
return null;
}
int wheelRollToIndex(int roll)
{
int low_roll = 0;
for (int i = 0; i < WHEEL_PROBABILITIES.length; i++)
{
int high_roll = low_roll + WHEEL_PROBABILITIES[i];
if (roll > low_roll && roll <= high_roll)
return i;
low_roll = high_roll;
}
return -1;
}
string wheelIndexToName(int idx)
{
if (idx >= WHEEL_OUTCOMES.length)
return null;
else
return WHEEL_OUTCOMES[idx];
}
int wheelNameToIndex(string name)
{
if (name == null)
return -1;
for (int i = 0; i < WHEEL_OUTCOMES.length; i++)
{
if (WHEEL_OUTCOMES[i].toLowerCase().startsWith(name.toLowerCase()))
return i;
}
return -1;
}
boolean sendTableMessage(obj_id table, prose_package pp, obj_id ommit_player)
{
if (!isIdValid(table))
return false;
if (pp == null)
return false;
obj_id[] players = getObjIdArrayObjVar(table, gambling.VAR_TABLE_PLAYERS);
if (players != null)
{
for (int i = 0; i < players.length; i++)
{
if (players[i] != ommit_player)
sendSystemMessageProse(players[i], pp);
}
}
else
return false;
return true;
}
boolean sendTableMessage(obj_id table, prose_package pp)
{
return sendTableMessage(table, pp, null);
}
boolean sendTableMessage(obj_id table, string_id message, obj_id ommit_player)
{
prose_package pp = prose.getPackage(message, table);
return sendTableMessage(table, pp, ommit_player);
}
int getJabbaPool(obj_id table)
{
if (!isIdValid(table))
return -1;
return getIntObjVar(table, VAR_JABBA_POOL);
}
int getOasisPool(obj_id table)
{
if (!isIdValid(table))
return -1;
return getIntObjVar(table, VAR_OASIS_POOL);
}
int getSaarlacPool(obj_id table)
{
if (!isIdValid(table))
return -1;
return getIntObjVar(table, VAR_SAARLAC_POOL);
}
int adjustJabbaPool(obj_id table, int amt)
{
if (!isIdValid(table))
return -1;
int current_amt = 0;
if (hasObjVar(table, VAR_JABBA_POOL))
current_amt = getIntObjVar(table, VAR_JABBA_POOL);
current_amt = current_amt + amt;
if (current_amt < 0)
current_amt = 0;
setObjVar(table, VAR_JABBA_POOL, current_amt);
return current_amt;
}
int adjustOasisPool(obj_id table, int amt)
{
if (!isIdValid(table))
return -1;
int current_amt = 0;
if (hasObjVar(table, VAR_OASIS_POOL))
current_amt = getIntObjVar(table, VAR_OASIS_POOL);
current_amt = current_amt + amt;
if (current_amt < 0)
current_amt = 0;
setObjVar(table, VAR_OASIS_POOL, current_amt);
return current_amt;
}
int adjustSaarlacPool(obj_id table, int amt)
{
if (!isIdValid(table))
return -1;
int current_amt = 0;
if (hasObjVar(table, VAR_SAARLAC_POOL))
current_amt = getIntObjVar(table, VAR_SAARLAC_POOL);
current_amt = current_amt + amt;
if (current_amt < 0)
current_amt = 0;
setObjVar(table, VAR_SAARLAC_POOL, current_amt);
return current_amt;
}
boolean resetJabbaPool(obj_id table)
{
if (!isIdValid(table))
return false;
int jabba_pool_min = 0;
if (hasObjVar(table, VAR_JABBA_POOL_MIN))
jabba_pool_min = getIntObjVar(table, VAR_JABBA_POOL_MIN);
setObjVar(table, VAR_JABBA_POOL, jabba_pool_min);
return true;
}
boolean resetOasisPool(obj_id table)
{
if (!isIdValid(table))
return false;
int oasis_pool_min = 0;
if (hasObjVar(table, VAR_OASIS_POOL_MIN))
oasis_pool_min = getIntObjVar(table, VAR_OASIS_POOL_MIN);
setObjVar(table, VAR_OASIS_POOL, oasis_pool_min);
return true;
}
boolean resetSaarlacPool(obj_id table)
{
if (!isIdValid(table))
return false;
int saarlac_pool_min = 0;
if (hasObjVar(table, VAR_SAARLAC_POOL_MIN))
saarlac_pool_min = getIntObjVar(table, VAR_SAARLAC_POOL_MIN);
setObjVar(table, VAR_SAARLAC_POOL, saarlac_pool_min);
return true;
}
int getTotalBetAmount(obj_id table)
{
if (!isIdValid(table))
return -1;
if (utils.hasScriptVar(table, VAR_TOTAL_BETS))
return utils.getIntScriptVar(table, VAR_TOTAL_BETS);
else
return 0;
}
boolean hasBetBeenPlaced(obj_id table, int wheel_index)
{
if (!isIdValid(table))
return false;
string wheel_name = wheelIndexToName(wheel_index);
if (wheel_name == null)
return false;
obj_id[] player_ids = getObjIdArrayObjVar(table, gambling.VAR_GAME_PLAYERS_IDS);
if (player_ids != null)
{
for (int i = 0; i < player_ids.length; i ++)
{
string[] bets = getPlayerBets(table, i);
if (bets != null)
{
for (int j = 0; j < bets.length; j++)
{
if (bets[j].equals(wheel_name))
return true;
}
}
}
}
return false;
}
string[] getPlayerBets(obj_id table, int player_index)
{
if (!isIdValid(table))
return null;
if (player_index < 0)
return null;
string objvar_name = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet";
if (hasObjVar(table, objvar_name))
{
obj_var_list bet_list = getObjVarList(table, objvar_name);
if (bet_list != null)
{
string[] player_bets = new string[bet_list.getNumItems()];
for (int i = 0; i < bet_list.getNumItems(); i++)
{
obj_var bet = bet_list.getObjVar(i);
string bet_name = bet.getName();
//LOG("LOG_CHANNEL", "bet ->" + bet.getName());
player_bets[i] = bet.getName();
}
return player_bets;
}
}
return null;
}
resizeable int[] getPlayerBetIndices(obj_id table, int player_index)
{
LOG("LOG_CHANNEL", "getPlayerBetIndicies -- table ->" + table + " player_index ->" + player_index);
if (!isIdValid(table))
return null;
if (player_index < 0)
return null;
string[] bets = getPlayerBets(table, player_index);
if (bets != null)
{
resizeable int[] bet_idx = new int[0];
resizeable int[] push_bet_idx = new int[0];
for (int i = 0; i < bets.length; i++)
{
int bet = wheelNameToIndex(bets[i]);
if (bet <= 14)
utils.addElement(bet_idx, bet);
else
utils.addElement(push_bet_idx, bet);
}
if (bet_idx.length > 1)
sort.sort(bet_idx);
if (push_bet_idx.length > 1)
sort.sort(push_bet_idx);
resizeable int[] all_bets = utils.concatArrays(push_bet_idx, bet_idx);
//for (int i = 0; i < all_bets.length; i++)
// LOG("LOG_CHANNEL", "all_bets[" + i + "] ->" + all_bets[i]);
return all_bets;
}
else
return null;
}
int validateBet(obj_id table, int wheel_index, int amt, obj_id player)
{
string wheel_name = wheelIndexToName(wheel_index);
if (wheel_name == null)
return -1;
int player_index = gambling.getGamePlayerIndex(table, player);
if (player_index < 0)
return -1;
// Get the supporting structure
obj_id structure = player_structure.getStructure(table);
if (!isIdValid(structure))
{
sendSystemMessage(player, SID_NO_CASINO);
return -1;
}
if (getOwner(structure) != getOwner(table))
{
sendSystemMessage(player, SID_NO_CASINO);
return -1;
}
// No restrictions on the town and wilderness bets
if (wheel_index >= 1 && wheel_index <= 6)
{
//return amt;
}
else
{
// There can only be one of each of the others.
if (hasBetBeenPlaced(table, wheel_index))
{
prose_package pp = prose.getPackage(SID_BET_ALREADY_PLACED, wheel_name);
sendSystemMessageProse(player, pp);
return -1;
}
// check for specific betting rules
switch (wheel_index)
{
case 8:
// Jabba's Palace. Pays 500 to 1 up to half the jackpot, so there's no point
// to betting over that.
int jabba_pool = getIntObjVar(table, VAR_JABBA_POOL) / 2;
if (jabba_pool < 1)
{
sendSystemMessage(player, SID_BET_JABBA_POOL_EMPTY);
return -1;
}
if ((float)amt * PAYOUTS[8] > jabba_pool)
{
int max_bet = (int)(jabba_pool / PAYOUTS[8]);
if (max_bet < 1)
max_bet = 1;
int refund = amt - max_bet;
transferBankCreditsTo(table, player, amt, "noHandler", "noHandler", new dictionary());
//string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + wheel_name;
//setObjVar(table, bet_path, max_bet);
prose_package pp = prose.getPackage(SID_BET_JABBA_POOL_MAX, max_bet);
sendSystemMessageProse(player, pp);
amt = max_bet;
}
break;
case 11:
// Oasis. Pays 500 to 1 up to the jackpot, so there's no point
// to betting over that.
int oasis_pool = getIntObjVar(table, VAR_OASIS_POOL) / 2;
if (oasis_pool < 1)
{
sendSystemMessage(player, SID_BET_OASIS_POOL_EMPTY);
return -1;
}
if ((float)amt * PAYOUTS[11] > oasis_pool)
{
int max_bet = (int)(oasis_pool / PAYOUTS[11]);
if (max_bet < 1)
max_bet = 1;
int refund = amt - max_bet;
transferBankCreditsTo(table, player, amt, "noHandler", "noHandler", new dictionary());
//string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + wheel_name;
//setObjVar(table, bet_path, max_bet);
prose_package pp = prose.getPackage(SID_BET_OASIS_POOL_MAX, max_bet);
sendSystemMessageProse(player, pp);
amt = max_bet;
}
break;
case 14:
// Saarlac Pit. Pays 10000 to 1 up to the jackpot, so there's no point
// to betting over that.
int saarlac_pool = getIntObjVar(table, VAR_SAARLAC_POOL);
if (saarlac_pool < 1)
{
sendSystemMessage(player, SID_BET_SAARLAC_POOL_EMPTY);
return -1;
}
if ((float)amt * PAYOUTS[14] > saarlac_pool)
{
int max_bet = (int)(saarlac_pool / PAYOUTS[14]);
if (max_bet < 1)
max_bet = 1;
int refund = amt - max_bet;
transferBankCreditsTo(table, player, amt, "noHandler", "noHandler", new dictionary());
//string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + wheel_name;
//setObjVar(table, bet_path, max_bet);
prose_package pp = prose.getPackage(SID_BET_SAARLAC_POOL_MAX, max_bet);
sendSystemMessageProse(player, pp);
amt = max_bet;
}
break;
}
}
// Add money to the table in order to cover the bet.
if (wheel_index == 8 || wheel_index == 11 || wheel_index == 14)
{
// No need to add money to the table for pure jackpot bets since that money is already at the table.
return amt;
}
else
{
// Check to make sure there's enough money in the table to cover the bet. If not, add some.
int max_payout = (int)(amt * PAYOUTS[wheel_index]);
int bet_cover = (int)((getJabbaPool(table) + getOasisPool(table) + getSaarlacPool(table)) * 1.05) + getTotalBetAmount(table);
int table_balance = getBankBalance(table);
LOG("LOG_CHANNEL", "max_payout ->" + max_payout + " bet_cover ->" + bet_cover + " table_balance ->" + table_balance);
if (bet_cover + max_payout > table_balance)
{
if (max_payout > 0)
{
dictionary d = new dictionary();
d.put("player", player);
d.put("bet_index", wheel_index);
d.put("amt", amt);
transferBankCreditsTo(structure, table, max_payout, "handleBetVerified", "handleBetVerifiedFailed", d);
}
// -2 means that more money must be added to the table before the bet can be verified.
return -2;
}
else
return amt;
}
}
boolean completeBet(obj_id table, int bet_index, int amt, obj_id player)
{
LOG("LOG_CHANNEL", "saarlac_wheel::completeBet");
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 14)
return false;
string bet_name = wheelIndexToName(bet_index);
string scriptvar_pid = gambling.VAR_GAME_PLAYERS + "." + player + ".pid";
if (utils.hasScriptVar(table, scriptvar_pid))
{
int oldpid = utils.getIntScriptVar(table, scriptvar_pid);
sui.closeSUI(player, oldpid);
utils.removeScriptVar(table, scriptvar_pid);
}
int playerIdx = gambling.getGamePlayerIndex(table, player);
if (playerIdx < 0)
return false;
string ovpath = gambling.VAR_GAME_PLAYERS + "." + playerIdx + ".bet." + bet_name;
if (hasObjVar(table, ovpath))
{
amt += getIntObjVar(table, ovpath);
int maxBet = getIntObjVar(table, gambling.VAR_TABLE_BET_MAX);
if (maxBet > 0 && amt > maxBet)
{
int refund = amt - maxBet;
sendSystemMessageTestingOnly(player, "The maximum bet for this station is " + maxBet + " credits.");
sendSystemMessageTestingOnly(player, "Bet Refund (over-bet): " + refund + " credits");
transferBankCreditsTo(table, player, refund, "noHandler", "noHandler", new dictionary());
amt = maxBet;
}
}
setObjVar(table, ovpath, amt);
int total_bets = getTotalBetAmount(table);
total_bets += (int)(amt * PAYOUTS[bet_index]);
utils.setScriptVar(table, VAR_TOTAL_BETS, total_bets);
prose_package pp = prose.getPackage(SID_BET_PLACED_SELF, bet_name, amt);
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PLACED_OTHER, player, null, bet_name, amt);
sendTableMessage(table, pp, player);
int money_in = 0;
if (hasObjVar(table, VAR_MONEY_IN))
money_in = getIntObjVar(table, VAR_MONEY_IN);
money_in = money_in + amt;
setObjVar(table, VAR_MONEY_IN, money_in);
dictionary d = new dictionary();
d.put("player", player);
messageTo(table, "handleRequestUpdatedUI", d, 0f, false);
return true;
}
boolean resolveSpin(obj_id table, int wheel_index)
{
if (!isIdValid(table))
return false;
if (wheel_index < 0 || wheel_index > 14)
{
LOG("LOG_CHANNEL", "saarlac_wheel::resolveSpin -- wheel_index value is invalid ->" + wheel_index);
return false;
}
// Process the bets
obj_id[] player_ids = getObjIdArrayObjVar(table, gambling.VAR_GAME_PLAYERS_IDS);
if (player_ids != null)
{
for (int i = 0; i < player_ids.length; i ++)
{
resizeable int[] bets = getPlayerBetIndices(table, gambling.getGamePlayerIndex(table, player_ids[i]));
if (bets != null)
{
for (int j = 0; j < bets.length; j++)
{
if (bets[j] == -1)
continue;
LOG("LOG_CHANNEL", "bets[" + j + "] ->" + bets[j] + " wheel_index ->" + wheel_index + " player ->" + player_ids[i]);
switch (wheel_index)
{
case 0: // Bestine
// Bestine bet wins
if (bets[j] == 0 || bets[j] == 15 || bets[j] == 16)
payBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 1: // Anchorhead
// Anchorhead bet wins
if (bets[j] == 1 || bets[j] == 17)
payBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 2: // Mos Eisely
// Mos Eisely bet wins
if (bets[j] == 2)
payBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 3: // Arch Mesa
// Arch Mesa bet wins
if (bets[j] == 3 || bets[j] == 18 || bets[j] == 19)
payBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 4: // Grand Arena Flats
// Grand Arena Flats bet wins
if (bets[j] == 4 || bets[j] == 20)
payBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 5: // Dune Sea
// Dune Sea bet wins
if (bets[j] == 5)
payBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 6: // Spice Fields
// Spice Fields bet wins
if (bets[j] == 6)
payBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// Jawa and Fort Tusken loose
else if (bets[j] == 9 || bets[j] == 10)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 7:
// Mines
// Mines bet wins
if (bets[j] == 7)
payBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// Jawa and Fort Tusken loose
else if (bets[j] == 9 || bets[j] == 10)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 8: // Jabba's Palace
// Jabba's Palace bet wins
if (bets[j] == 8)
payPoolBet(table, bets[j], player_ids[i]);
// Spice field and Mines wins
else if (bets[j] == 6 || bets[j] == 7)
payPoolBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// Jawa and Fort Tusken loose
else if (bets[j] == 9 || bets[j] == 10)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 9: // Fort Tusken
// Fort Tusken wins
if (bets[j] == 9)
payBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// Spice and Mines loose
else if (bets[j] == 6 || bets[j] == 7)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 10:// Jawa Mountain Fortress
// Jawa Mountain Fortress bet wins
if (bets[j] == 10)
payBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// Spice and Mines loose
else if (bets[j] == 6 || bets[j] == 7)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 11:// Oasis
// Oasis bet wins
if (bets[j] == 11)
payPoolBet(table, bets[j], player_ids[i]);
// Jawa Fortress and Fort Tusken win
else if (bets[j] == 9 || bets[j] == 10)
payPoolBet(table, bets[j], player_ids[i]);
// Town wedge bets are pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// Spice and Mines loose
else if (bets[j] == 6 || bets[j] == 7)
loseBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 12 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
break;
case 12:// Imperial Raid
// Imperial Raid bet wins
if (bets[j] == 12)
payBet(table, bets[j], player_ids[i]);
// All town bets loose
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 6 || bets[j] == 7 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
loseBet(table, bets[j], player_ids[i]);
// Wilderness wedge bets are pushed
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 13 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
// Resets Jabba Pool
//resetJabbaPool(table);
break;
case 13:// Krayt Dragon
// Krayt Dragon bet wins
if (bets[j] == 13)
payBet(table, bets[j], player_ids[i]);
// All wilderness bets loose
else if (bets[j] == 3 || bets[j] == 4 || bets[j] == 5 || bets[j] == 9 || bets[j] == 10 || bets[j] == 18 || bets[j] == 19 || bets[j] == 20)
loseBet(table, bets[j], player_ids[i]);
// Town wedge bets pushed
else if (bets[j] == 0 || bets[j] == 1 || bets[j] == 2 || bets[j] == 15 || bets[j] == 16 || bets[j] == 17)
pushBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12 || bets[j] == 14)
loseBet(table, bets[j], player_ids[i]);
// Resets Oasis Pool
//resetOasisPool(table);
break;
case 14:// Saarlac Pit
// Saarlac Pit bet wins
if (bets[j] == 14)
payPoolBet(table, bets[j], player_ids[i]);
// One spin bets loose
else if (bets[j] == 8 || bets[j] == 11 || bets[j] == 12)
loseBet(table, bets[j], player_ids[i]);
break;
}
}
}
}
}
return true;
}
boolean setBet(obj_id table, int bet_index, int player_index, int amt)
{
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 20)
return false;
if (amt < 1)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
if (hasObjVar(table, bet_path))
return false;
else
{
setObjVar(table, bet_path, amt);
int total_bets = getTotalBetAmount(table);
total_bets += (int)(amt * PAYOUTS[bet_index]);
utils.setScriptVar(table, VAR_TOTAL_BETS, total_bets);
return true;
}
}
boolean removeBet(obj_id table, int bet_index, int player_index)
{
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 20)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
if (hasObjVar(table, bet_path))
{
int total_bets = getTotalBetAmount(table);
total_bets -= (int)(getIntObjVar(table, bet_path) * PAYOUTS[bet_index]);
utils.setScriptVar(table, VAR_TOTAL_BETS, total_bets);
removeObjVar(table, bet_path);
// Refresh betting UI.
obj_id[] player_ids = getObjIdArrayObjVar(table, gambling.VAR_GAME_PLAYERS_IDS);
if (player_ids != null)
{
obj_id player = player_ids[player_index];
dictionary d = new dictionary();
d.put("player", player);
messageTo(table, "handleRequestUpdatedUI", d, 0f, false);
}
return true;
}
else
return false;
}
boolean payBet(obj_id table, int bet_index, obj_id player)
{
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 20)
return false;
if (!isIdValid(player) || !player.isLoaded())
return false;
int player_index = gambling.getGamePlayerIndex(table, player);
if (player_index < 0)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
float payout = PAYOUTS[bet_index];
if (payout <= 0)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
if (hasObjVar(table, bet_path))
{
int amt = getIntObjVar(table, bet_path);
if (amt > 0)
{
int winnings = (int) (amt * payout);
int total_amt = amt + winnings;
LOG("LOG_CHANNEL", "player ->" + player + " bet_index ->" + bet_index + " amt ->" + amt + " winnings ->" + winnings);
transferBankCreditsTo(table, player, total_amt, "noHandler", "noHandler", new dictionary());
removeBet(table, bet_index, player_index);
int money_out = 0;
if (hasObjVar(table, VAR_MONEY_OUT))
money_out = getIntObjVar(table, VAR_MONEY_OUT);
money_out = money_out + winnings;
setObjVar(table, VAR_MONEY_OUT, money_out);
prose_package pp = prose.getPackage(SID_BET_PAYED_SELF, bet_name, winnings);
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PAYED_OTHER, player, null, bet_name, winnings);
sendTableMessage(table, pp, player);
return true;
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
else
return false;
}
boolean payPoolBet(obj_id table, int bet_index, obj_id player)
{
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 20)
return false;
if (!isIdValid(player) || !player.isLoaded())
return false;
int player_index = gambling.getGamePlayerIndex(table, player);
if (player_index < 0)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
float payout = PAYOUTS[bet_index];
if (payout <= 0)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
if (hasObjVar(table, bet_path))
{
int amt = getIntObjVar(table, bet_path);
if (amt > 0)
{
int winnings = (int) (amt * payout);
// Decrement the pool.
if (bet_index == 6 || bet_index == 7 || bet_index == 8)
{
int jabba_pool = getJabbaPool(table);
if (bet_index == 8)
{
// Get 50% of the pot for a Jabba bet.
jabba_pool = jabba_pool / 2;
}
else
{
// Get 25% of the pot for Spice or Mines
// These bets have a pool payout 50 to 1, not the 3 to 1 table payout,
winnings = amt * 50;
jabba_pool = jabba_pool / 4;
}
if (winnings > jabba_pool)
winnings = jabba_pool;
adjustJabbaPool(table, -winnings);
}
if (bet_index == 9 || bet_index == 10 || bet_index == 11)
{
int oasis_pool = getOasisPool(table);
if (bet_index == 11)
{
// Get 50% of the pot for an Oasis bet.
oasis_pool = oasis_pool / 2;
}
else
{
// Get 25% of the pot for a Jawa or Fort bet.
// These bets have a pool payout 50 to 1, not the 3 to 1 table payout,
winnings = amt * 50;
oasis_pool = oasis_pool / 4;
}
if (winnings > oasis_pool)
winnings = oasis_pool;
adjustOasisPool(table, -winnings);
}
if (bet_index == 14)
{
int saarlac_pool = getSaarlacPool(table);
if (winnings > saarlac_pool)
winnings = saarlac_pool;
adjustSaarlacPool(table, -winnings);
}
int total_amt = amt + winnings;
LOG("LOG_CHANNEL", "player ->" + player + " bet_index ->" + bet_index + " amt ->" + amt + " winnings ->" + winnings);
removeBet(table, bet_index, player_index);
transferBankCreditsTo(table, player, total_amt, "noHandler", "noHandler", new dictionary());
prose_package pp = prose.getPackage(SID_BET_PAYED_SELF, bet_name, winnings);
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PAYED_OTHER, player, null, bet_name, winnings);
sendTableMessage(table, pp, player);
return true;
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
else
return false;
}
boolean loseBet(obj_id table, int bet_index, obj_id player)
{
LOG("LOG_CHANNEL", "loseBet -- table ->" + table + " bet_index ->" + bet_index + " player ->" + player);
if (!isIdValid(table))
return false;
if (bet_index < 0 || bet_index > 20)
return false;
if (!isIdValid(player) || !player.isLoaded())
return false;
int player_index = gambling.getGamePlayerIndex(table, player);
if (player_index < 0)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
//LOG("LOG_CHANNEL", "1bet_path ->" + bet_path);
if (hasObjVar(table, bet_path))
{
int amt = getIntObjVar(table, bet_path);
//LOG("LOG_CHANNEL", "bet_path ->" + bet_path + " amt ->" + amt);
if (amt > 0)
{
prose_package pp = prose.getPackage(SID_BET_LOST_SELF, bet_name, amt);
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_LOST_OTHER, player, null, bet_name, amt);
sendTableMessage(table, pp, player);
// Put part of the bet into a pool where applicable.
if (bet_index == 6 || bet_index == 7)
{
adjustOasisPool(table, (int)(amt * .1));
pp = prose.getPackage(SID_BET_PUSH_TO_OASIS_SELF, bet_name, (int)(amt * .1));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_OASIS_SELF, player, null, bet_name, (int)(amt * .1));
sendTableMessage(table, pp, player);
}
if (bet_index == 9 || bet_index == 10)
{
adjustJabbaPool(table, (int)(amt * .1));
pp = prose.getPackage(SID_BET_PUSH_TO_JABBA_SELF, bet_name, (int)(amt * .1));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_JABBA_SELF, player, null, bet_name, (int)(amt * .1));
sendTableMessage(table, pp, player);
}
if (bet_index == 14)
{
adjustSaarlacPool(table, (int)(amt * .5));
pp = prose.getPackage(SID_BET_PUSH_TO_PIT_SELF, bet_name, (int)(amt * .5));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_PIT_OTHER, player, null, bet_name, (int)(amt * .5));
sendTableMessage(table, pp, player);
}
removeBet(table, bet_index, player_index);
return true;
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
boolean pushBet(obj_id table, int bet_index, obj_id player)
{
if (!isIdValid(table))
return false;
if (!isIdValid(player) || !player.isLoaded())
return false;
int player_index = gambling.getGamePlayerIndex(table, player);
if (player_index < 0)
return false;
string bet_name = wheelIndexToName(bet_index);
if (bet_name == null)
return false;
string bet_path = gambling.VAR_GAME_PLAYERS + "." + player_index + ".bet." + bet_name;
if (hasObjVar(table, bet_path))
{
int amt = getIntObjVar(table, bet_path);
if (amt > 0)
{
if (bet_index == 1 || bet_index == 2 || bet_index == 4 || bet_index == 5 || bet_index == 17 || bet_index == 20)
{
// Remove the old bet and set the new one.
removeBet(table, bet_index, player_index);
int pushed_bet = 0;
switch (bet_index)
{
case 1:
pushed_bet = 16;
setBet(table, pushed_bet, player_index, amt);
break;
case 2:
pushed_bet = 17;
setBet(table, pushed_bet, player_index, amt);
break;
case 4:
pushed_bet = 19;
setBet(table, pushed_bet, player_index, amt);
break;
case 5:
pushed_bet = 20;
setBet(table, pushed_bet, player_index, amt);
break;
case 17:
pushed_bet = 15;
setBet(table, pushed_bet, player_index, amt);
break;
case 20:
pushed_bet = 18;
setBet(table, pushed_bet, player_index, amt);
break;
}
string pushed_bet_name = wheelIndexToName(pushed_bet);
prose_package pp = prose.getPackage(SID_BET_PUSH_SELF, pushed_bet_name, amt);
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_OTHER, player, null, pushed_bet_name, amt);
sendTableMessage(table, pp, player);
// Refresh bettting UI.
dictionary d = new dictionary();
d.put("player", player);
messageTo(table, "handleRequestUpdatedUI", d, 0f, false);
}
else
{
// For bets 0 and 3, 20% goes to the pools. The rest is lost.
loseBet(table, bet_index, player);
float saarlac_mult = .20f;
float jabba_mult = 0.0f;
float oasis_mult = 0.0f;
if (hasBetBeenPlaced(table, 6) || hasBetBeenPlaced(table, 7))
{
saarlac_mult = saarlac_mult - .09f;
jabba_mult = .09f;
}
if (hasBetBeenPlaced(table, 9) || hasBetBeenPlaced(table, 10))
{
saarlac_mult = saarlac_mult - .09f;
oasis_mult = .09f;
}
int saarlac_pool_adjust = (int)(amt * saarlac_mult);
if (saarlac_pool_adjust > 0)
{
adjustSaarlacPool(table, saarlac_pool_adjust);
prose_package pp = prose.getPackage(SID_BET_PUSH_TO_PIT_SELF, bet_name, (int)(amt * saarlac_mult));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_PIT_OTHER, player, null, bet_name, (int)(amt * saarlac_mult));
sendTableMessage(table, pp, player);
}
if (jabba_mult > 0.0f)
{
int jabba_pool_adjust = (int)(amt * jabba_mult);
if (jabba_pool_adjust > 0)
{
adjustJabbaPool(table, jabba_pool_adjust);
prose_package pp = prose.getPackage(SID_BET_PUSH_TO_JABBA_SELF, bet_name, (int)(amt * jabba_mult));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_JABBA_OTHER, player, null, bet_name, (int)(amt * jabba_mult));
sendTableMessage(table, pp, player);
}
}
if (oasis_mult > 0.0f)
{
int oasis_pool_adjust = (int)(amt * oasis_mult);
if (oasis_pool_adjust > 0)
{
adjustOasisPool(table, oasis_pool_adjust);
prose_package pp = prose.getPackage(SID_BET_PUSH_TO_OASIS_SELF, bet_name, (int)(amt * oasis_mult));
sendSystemMessageProse(player, pp);
pp = prose.getPackage(SID_BET_PUSH_TO_OASIS_OTHER, player, null, bet_name, (int)(amt * oasis_mult));
sendTableMessage(table, pp, player);
}
}
}
return true;
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
else
{
removeBet(table, bet_index, player_index);
return false;
}
}
void showBetUi(obj_id self, obj_id player)
{
if ( !isIdValid(self) || !isIdValid(player) )
return;
string gameType = getStringObjVar(self, gambling.VAR_TABLE_TYPE);
if ( gameType == null || gameType.equals("") )
return;
string title = "@gambling/game_n:" + gameType;
string prompt = "The following is a summary of your current bets...\n\n";
prompt += "Use /bet <amount> <spot> to wager.\n\n";
prompt += "Cash : " + getCashBalance(player) + "\n";
prompt += "Bank : " + getBankBalance(player) + "\n";
prompt += "Total: " + getTotalMoney(player) + "\n";
prompt += "\n";
prompt += "Jabba's Palace: " + getJabbaPool(self) + "\n";
prompt += "Oasis : " + getOasisPool(self) + "\n";
prompt += "Saarlac Pit : " + getSaarlacPool(self) + "\n";
prompt += "\nNOTE: if you leave the table after placing a bet, all of your outstanding bets will be forfeit.";
resizeable string[] entries = new string[0];
int total = 0;
int playerIdx = gambling.getGamePlayerIndex(self, player);
if ( playerIdx == -1 )
return;
string betVar = gambling.VAR_GAME_PLAYERS + "." + playerIdx + ".bet";
if ( hasObjVar(self, betVar) )
{
obj_var_list ovl = getObjVarList(self, betVar);
if ( ovl != null )
{
int numItems = ovl.getNumItems();
for ( int i = 0; i < numItems; i++ )
{
obj_var ov = ovl.getObjVar(i);
string name = ov.getName();
int val = ov.getIntData();
string entry = name + ":";
for ( int x = name.length(); x < 8; x++ )
entry += " ";
entry += Integer.toString(val);
entries = utils.addElement(entries, entry);
total += val;
}
entries = utils.alphabetizeStringArray(entries);
entries = utils.addElement(entries, " ");
}
}
entries = utils.addElement(entries, "Total Bet : " + total);
int pid = sui.listbox(self, player, prompt, sui.REFRESH_LEAVE_GAME, title, entries, "handleBetUi");
if ( pid == -1 )
{
sendSystemMessageTestingOnly(player, "The wheel was unable to create an interface for you.");
return;
}
utils.setScriptVar(self, gambling.VAR_GAME_PLAYERS + "." + player + ".pid", pid);
}
void startWheelGame(obj_id self)
{
obj_id[] players = getObjIdArrayObjVar(self, gambling.VAR_TABLE_PLAYERS);
if ( players == null || players.length == 0 )
return;
// Get the supporting structure
obj_id structure = player_structure.getStructure(self);
if (!isIdValid(structure))
{
sendTableMessage(self, SID_NO_CASINO, null);
return;
}
if (getOwner(structure) != getOwner(self))
{
sendTableMessage(self, SID_NO_CASINO, null);
return;
}
// Make sure there's enough left in the table to cove the jackpots as well as a little extra for rounding errors.
int pools = (int)((getJabbaPool(self) + getOasisPool(self) + getSaarlacPool(self)) * 1.05);
int balance = getBankBalance(self);
int transfer = balance - pools;
LOG("LOG_CHANNEL", "startWheelGame -- pools ->" + pools + " balance ->" + balance + " transfer ->" + transfer);
if (transfer < 0)
{
// If there's not enough, wait until the money transfer before starting the next spin.
transferBankCreditsTo(structure, self, transfer * -1, "tableTransferSuccess", "tableTransferFailed", new dictionary());
return;
}
setObjVar(self, gambling.VAR_GAME_PLAYERS_IDS, players);
int stampTime = getGameTime() + TIMER_BETTING;
utils.setScriptVar(self, gambling.VAR_TABLE_BET_ACCEPT, stampTime);
for ( int i = 0; i < players.length; i++ )
{
string ovpath = gambling.VAR_GAME_PLAYERS + "." + players[i] + ".pid";
if (!utils.hasScriptVar(self, ovpath))
showBetUi(self, players[i]);
sendSystemMessage(players[i], gambling.SID_PLACE_BETS);
}
dictionary d = new dictionary();
d.put("stamp", stampTime);
messageTo(self, "handleBetTimer", d, 30f, false);
}
void stopWheelGame(obj_id self)
{
obj_id structure = player_structure.getStructure(self);
LOG("LOG_CHANNEL", "stopWheelGame -- structure ->" + structure);
if (isIdValid(structure))
{
if (getOwner(structure) == getOwner(self))
{
int balance = getBankBalance(self);
LOG("LOG_CHANNEL", "stopWheelGame -- balance ->" + balance);
if (balance > 0)
transferBankCreditsTo(self, structure, balance, "noHandler", "noHandler", new dictionary());
}
}
utils.removeScriptVar(self, VAR_TOTAL_BETS);
utils.removeScriptVar(self, gambling.VAR_TABLE_BET_ACCEPT);
removeObjVar(self, gambling.VAR_GAME_BASE);
}
Reference in New Issue View Git Blame Copy Permalink