mirror of
https://github.com/1dot13/gamedir.git
synced 2026-07-22 13:40:25 +02:00
Wanne
942a5cf16e
git-svn-id: https://ja2svn.mooo.com/source/ja2_v1.13_data@1427 4f8fa57e-7814-0410-bad4-adc449f26b7c
892 lines
26 KiB
Lua
892 lines
26 KiB
Lua
--[[
|
|
http://www.legion.zone.zg.pl/doku.php/modowanie/ja/art_ja_m_22_lua
|
|
|
|
**********************
|
|
** Global variables **
|
|
**********************
|
|
|
|
- newDIFFICULTY_LEVEL (Start new game setting)
|
|
1 = easy
|
|
2 = experienced
|
|
3 = expert
|
|
4 = insane
|
|
|
|
- newGAME_STYLE (Start new game setting)
|
|
0 = realistic
|
|
1 = sci fi
|
|
|
|
- is_networked (Multiplayer)
|
|
0 = no
|
|
1 = yes
|
|
|
|
- iniENABLE_CREPITUS (ja2_options.ini setting)
|
|
0 = no
|
|
1 = yes
|
|
|
|
- iniSTARTING_CASH_NOVICE, iniSTARTING_CASH_EXPERIENCED, iniSTARTING_CASH_EXPERT, iniSTARTING_CASH_INSANE (ja2_options.ini setting)
|
|
Starting cash
|
|
|
|
- iniMERC_WEBSITE_IMMEDIATELY_AVAILABLE (ja2_options.ini setting)
|
|
true = yes
|
|
false = no
|
|
|
|
- giHospitalTempBalance
|
|
set hospital balance
|
|
|
|
- gbHospitalPriceModifier
|
|
set hospital modifier
|
|
|
|
- giHospitalRefund
|
|
|
|
|
|
***************
|
|
** Functions **
|
|
***************
|
|
|
|
- AddAlternateSector, AddAltSector, AddAltSectorNew
|
|
add alternative sector
|
|
|
|
- AddNPC or AddNPCtoSector
|
|
add NPC\EPC\RPC to sector
|
|
|
|
- AddAltUnderGroundSector, AddAltUGSector or AddAltUGSectorNew
|
|
add alternative underground sector
|
|
|
|
- SetNPCData1 ( ProfilID, value )
|
|
set NPCData1
|
|
|
|
- GetStartingCashNovice()
|
|
get starting cash novice level
|
|
|
|
- GetStartingCashExperienced()
|
|
get starting cash experienced level
|
|
|
|
- GetStartingCashExpert()
|
|
get starting cash expert level
|
|
|
|
- GetStartingCashInsane()
|
|
get starting cash insane level
|
|
|
|
- GetWorldTotalMin()
|
|
get world time
|
|
|
|
- AddTransactionToPlayersBook(ubCode, ubSecondCode, uiDate, iAmount)
|
|
add transaction to player
|
|
|
|
- AddPreReadEmail (iMessageOffset, iMessageLength, ubSender)
|
|
iMessageOffset - record from email.edt
|
|
iMessageLength - record from email.edt
|
|
ubSender - uiIndex from SenderNameList.xml
|
|
|
|
- AddEmail (iMessageOffset, iMessageLength, ubSender, iCurrentIMPPosition, iCurrentShipmentDestinationID)
|
|
iMessageOffset - record from email.edt
|
|
iMessageLength - record from email.edt
|
|
ubSender - uiIndex from SenderNameList.xml
|
|
iCurrentIMPPosition - Default = -1, or the profile ID of the IMP
|
|
iCurrentShipmentDestinationID - Default = -1, or the Bobby Ray shipment destination ID
|
|
|
|
- HireMerc (MercID)
|
|
hires the merc with the specified MercID
|
|
|
|
|
|
**************
|
|
** Examples **
|
|
**************
|
|
|
|
-- Add Fatima to sector
|
|
Fatima = { }
|
|
Fatima.MercProfiles = 101
|
|
Fatima.sector = "A10-0"
|
|
AddNPC(Fatima)
|
|
|
|
-- Add Fatima to sector
|
|
AddNPC( { MercProfiles = 101 , sector = "A10-0" } )
|
|
|
|
-- Add Fatima to sector, only in a realistic game
|
|
if newGAME_STYLE == 0 then
|
|
Fatima = { }
|
|
Fatima.MercProfiles = 101
|
|
Fatima.sector = "A10-0"
|
|
AddNPC(Fatima)
|
|
end
|
|
|
|
-- Add alternative sector, only when starting cash = 4000 and game style SciFi
|
|
if (iniSTARTING_CASH_NOVICE == 4000 and newGAME_STYLE == 1) then
|
|
Fatima = { }
|
|
Fatima.MercProfiles = 101
|
|
Fatima.sector = "A10-0"
|
|
AddNPC(Fatima)
|
|
end
|
|
|
|
-- Add alternative sector, only realistic game
|
|
if newGAME_STYLE == 0 then
|
|
SectorA9 = { }
|
|
SectorA9.altSector = "A9"
|
|
AddAlternateSector(SectorA9)
|
|
end
|
|
|
|
-- Add alternative sector
|
|
SectorA9 = { }
|
|
SectorA9.altSector = "A9"
|
|
AddAlternateSector(SectorA9)
|
|
|
|
-- Add alternative underground sector
|
|
A10_b1 = { }
|
|
A10_b1.altSector = "A10-1"
|
|
AddAltUGSector(A10_b1)
|
|
|
|
-- Add alternative underground sector
|
|
AddAltUGSector( { altSector = "A10-1" } )
|
|
|
|
-- Add Skyrider to sector
|
|
AddNPCtoSector(97,9,1,0)
|
|
|
|
-- Add alternative sector C1
|
|
AddAltSectorNew (3,1)
|
|
|
|
-- Add alternative sector C1-3
|
|
AddAltUGSectorNew(3,1,3)
|
|
|
|
-- Hire Ivan
|
|
HireMerc(7)
|
|
]]
|
|
|
|
-- Initialize the pseudo random number generator
|
|
math.randomseed( os.time() ); math.random(); math.random(); math.random()
|
|
-- http://lua-users.org/wiki/MathLibraryTutorial
|
|
|
|
|
|
|
|
local MAX_EMAIL_LINES = 10 --max number of lines can be shown in a message
|
|
local MAX_MESSAGES_PAGE = 18 -- max number of messages per page
|
|
|
|
--JA25: New emails
|
|
-- email # 1
|
|
local EMAIL_STARTGAME = 0
|
|
local EMAIL_STARTGAME_LENGTH = 8
|
|
|
|
-- email # 2
|
|
local EMAIL_PILOTMISSING = (EMAIL_STARTGAME + EMAIL_STARTGAME_LENGTH)
|
|
local EMAIL_PILOTMISSING_LENGTH = 2
|
|
|
|
-- email # 3
|
|
local EMAIL_MAKECONTACT = (EMAIL_PILOTMISSING + EMAIL_PILOTMISSING_LENGTH)
|
|
local EMAIL_MAKECONTACT_LENGTH = 3
|
|
|
|
-- email # 4
|
|
local EMAIL_MANUEL = (EMAIL_MAKECONTACT + EMAIL_MAKECONTACT_LENGTH)
|
|
local EMAIL_MANUEL_LENGTH = 4
|
|
|
|
-- # email # 5 - only if Miguel is alive!
|
|
local EMAIL_MIGUELHELLO = (EMAIL_MANUEL + EMAIL_MANUEL_LENGTH)
|
|
local EMAIL_MIGUELHELLO_LENGTH = 3
|
|
|
|
-- email # 6 - player not advancing fast enough
|
|
local EMAIL_CONCERNED = (EMAIL_MIGUELHELLO + EMAIL_MIGUELHELLO_LENGTH)
|
|
local EMAIL_CONCERNED_LENGTH = 2
|
|
|
|
-- email # 7 - player still not advancing fast enough
|
|
local EMAIL_URGENT = (EMAIL_CONCERNED + EMAIL_CONCERNED_LENGTH)
|
|
local EMAIL_URGENT_LENGTH = 3
|
|
|
|
-- email # 8a - from Miguel
|
|
local EMAIL_MIGUELSORRY = (EMAIL_URGENT + EMAIL_URGENT_LENGTH)
|
|
local EMAIL_MIGUELSORRY_LENGTH = 3
|
|
|
|
-- email # 8b - from Miguel, mentioning Manuel
|
|
local EMAIL_MIGUELMANUEL = (EMAIL_MIGUELSORRY + EMAIL_MIGUELSORRY_LENGTH)
|
|
local EMAIL_MIGUELMANUEL_LENGTH = 4
|
|
|
|
-- email # 9 - Miguel sick
|
|
local EMAIL_MIGUELSICK = (EMAIL_MIGUELMANUEL + EMAIL_MIGUELMANUEL_LENGTH)
|
|
local EMAIL_MIGUELSICK_LENGTH = 3
|
|
|
|
-- email # 10a
|
|
local EMAIL_UNDERSTANDING = (EMAIL_MIGUELSICK + EMAIL_MIGUELSICK_LENGTH)
|
|
local EMAIL_UNDERSTANDING_LENGTH = 3
|
|
|
|
-- email # 10b - if we need extra cash
|
|
local EMAIL_EXTRACASH = (EMAIL_UNDERSTANDING + EMAIL_UNDERSTANDING_LENGTH)
|
|
local EMAIL_EXTRACASH_LENGTH = 4
|
|
|
|
-- email # 11
|
|
local EMAIL_PILOTFOUND = (EMAIL_EXTRACASH + EMAIL_EXTRACASH_LENGTH)
|
|
local EMAIL_PILOTFOUND_LENGTH = 2
|
|
|
|
-- email # 12a - Miguel dead, Manuel never recruited
|
|
local EMAIL_CONGRATS = (EMAIL_PILOTFOUND + EMAIL_PILOTFOUND_LENGTH)
|
|
local EMAIL_CONGRATS_LENGTH = 4
|
|
|
|
-- email # 12b - Miguel alive, Manuel never recruited
|
|
local EMAIL_CONGRATSICK = (EMAIL_CONGRATS + EMAIL_CONGRATS_LENGTH)
|
|
local EMAIL_CONGRATSICK_LENGTH = 5
|
|
|
|
-- email # 12c - Miguel alive, Manuel dead
|
|
local EMAIL_CONGRATMIGMANUELDEAD = (EMAIL_CONGRATSICK + EMAIL_CONGRATSICK_LENGTH)
|
|
local EMAIL_CONGRATMIGMANUELDEAD_LENGTH = 6
|
|
|
|
-- email # 12d - Miguel alive, Manuel recruited and alive
|
|
local EMAIL_CONGRATMIGMANUELALIVE = (EMAIL_CONGRATMIGMANUELDEAD + EMAIL_CONGRATMIGMANUELDEAD_LENGTH)
|
|
local EMAIL_CONGRATMIGMANUELALIVE_LENGTH = 6
|
|
|
|
-- email # 12e - Miguel dead, Manuel dead
|
|
local EMAIL_CONGRATMANUELDEAD = (EMAIL_CONGRATMIGMANUELALIVE + EMAIL_CONGRATMIGMANUELALIVE_LENGTH)
|
|
local EMAIL_CONGRATMANUELDEAD_LENGTH = 5
|
|
|
|
-- email # 12f - Miguel dead, Manuel recruited and alive
|
|
local EMAIL_CONGRATMANUELALIVE = (EMAIL_CONGRATMANUELDEAD + EMAIL_CONGRATMANUELDEAD_LENGTH)
|
|
local EMAIL_CONGRATMANUELALIVE_LENGTH = 5
|
|
|
|
-- email # 13 - original AIM email
|
|
local EMAIL_AIMDISCOUNT = (EMAIL_CONGRATMANUELALIVE + EMAIL_CONGRATMANUELALIVE_LENGTH)
|
|
local EMAIL_AIMDISCOUNT_LENGTH = 7
|
|
|
|
local MANUEL_AT_HOME_NOT_USED = ( EMAIL_AIMDISCOUNT + EMAIL_AIMDISCOUNT_LENGTH )
|
|
local MANUEL_AT_HOME_NOT_USED_LENGTH = 1
|
|
|
|
-- Email #14 Initial IMP email
|
|
local IMP_EMAIL_INTRO = (MANUEL_AT_HOME_NOT_USED + MANUEL_AT_HOME_NOT_USED_LENGTH )
|
|
local IMP_EMAIL_INTRO_LENGTH = 10
|
|
|
|
-- Email #15 Imp follow up
|
|
local IMP_EMAIL_AGAIN = (IMP_EMAIL_INTRO + IMP_EMAIL_INTRO_LENGTH)
|
|
local IMP_EMAIL_AGAIN_LENGTH = 5
|
|
|
|
-- Email #16 - ?? merc left-me-a-message-and-now-I'm-back emails
|
|
local AIM_REPLY_BARRY = ( IMP_EMAIL_AGAIN + IMP_EMAIL_AGAIN_LENGTH )
|
|
local AIM_REPLY_LENGTH_BARRY = 2
|
|
|
|
local AIM_REPLY_MELTDOWN = (AIM_REPLY_BARRY + ( 39 * AIM_REPLY_LENGTH_BARRY ))
|
|
local AIM_REPLY_LENGTH_MELTDOWN = AIM_REPLY_LENGTH_BARRY
|
|
|
|
local AIM_REFUND = ( AIM_REPLY_MELTDOWN + AIM_REPLY_LENGTH_MELTDOWN )
|
|
local AIM_REFUND_LENGTH = 3
|
|
|
|
local MERC_REFUND = ( AIM_REFUND + AIM_REFUND_LENGTH )
|
|
local MERC_REFUND_LENGTH = 3
|
|
|
|
local EMAIL_AIM_PROMOTION_1 = ( MERC_REFUND + MERC_REFUND_LENGTH )
|
|
local EMAIL_AIM_PROMOTION_1_LENGTH = 4
|
|
|
|
local EMAIL_MERC_PROMOTION_1 = ( EMAIL_AIM_PROMOTION_1 + EMAIL_AIM_PROMOTION_1_LENGTH )
|
|
local EMAIL_MERC_PROMOTION_1_LENGTH = 5
|
|
|
|
local EMAIL_AIM_PROMOTION_2 = ( EMAIL_MERC_PROMOTION_1 + EMAIL_MERC_PROMOTION_1_LENGTH )
|
|
local EMAIL_AIM_PROMOTION_2_LENGTH = 5
|
|
|
|
local IMP_EMAIL_PROFILE_RESULTS = ( EMAIL_AIM_PROMOTION_2 + EMAIL_AIM_PROMOTION_2_LENGTH )
|
|
local IMP_EMAIL_PROFILE_RESULTS_LENGTH = 1
|
|
|
|
|
|
local iStartingCash = 0
|
|
|
|
Fincances =
|
|
{
|
|
ACCRUED_INTEREST = 0,
|
|
ANONYMOUS_DEPOSIT = 1,
|
|
TRANSACTION_FEE = 2,
|
|
HIRED_MERC = 3,
|
|
BOBBYR_PURCHASE,
|
|
PAY_SPECK_FOR_MERC = 4,
|
|
MEDICAL_DEPOSIT = 5,
|
|
IMP_PROFILE = 6,
|
|
PURCHASED_INSURANCE = 7,
|
|
REDUCED_INSURANCE = 8,
|
|
EXTENDED_INSURANCE = 9,
|
|
CANCELLED_INSURANCE = 10,
|
|
INSURANCE_PAYOUT = 11,
|
|
EXTENDED_CONTRACT_BY_1_DAY = 12,
|
|
EXTENDED_CONTRACT_BY_1_WEEK = 13,
|
|
EXTENDED_CONTRACT_BY_2_WEEKS = 14,
|
|
DEPOSIT_FROM_GOLD_MINE = 15,
|
|
DEPOSIT_FROM_SILVER_MINE = 16,
|
|
PURCHASED_FLOWERS = 17,
|
|
FULL_MEDICAL_REFUND = 18,
|
|
PARTIAL_MEDICAL_REFUND = 19,
|
|
NO_MEDICAL_REFUND = 20,
|
|
PAYMENT_TO_NPC = 21,
|
|
TRANSFER_FUNDS_TO_MERC = 22,
|
|
TRANSFER_FUNDS_FROM_MERC = 23,
|
|
TRAIN_TOWN_MILITIA = 24,
|
|
PURCHASED_ITEM_FROM_DEALER = 25,
|
|
MERC_DEPOSITED_MONEY_TO_PLAYER_ACCOUNT = 26,
|
|
SOLD_ITEMS = 27,
|
|
FACILITY_OPERATIONS = 28,
|
|
MILITIA_UPKEEP = 29,
|
|
}
|
|
|
|
Sender =
|
|
{
|
|
MAIL_ENRICO = 0,
|
|
CHAR_PROFILE_SITE = 1,
|
|
GAME_HELP = 2,
|
|
IMP_PROFILE_RESULTS = 3,
|
|
SPECK_FROM_MERC = 4,
|
|
RIS_EMAIL = 5,
|
|
INSURANCE_COMPANY = 46,
|
|
BOBBY_R = 47,
|
|
KING_PIN = 48,
|
|
JOHN_KULBA = 49,
|
|
AIM_SITE = 50,
|
|
}
|
|
|
|
Modifier =
|
|
{
|
|
HOSPITAL_UNSET = 0,
|
|
HOSPITAL_NORMAL = 1,
|
|
HOSPITAL_BREAK = 2,
|
|
HOSPITAL_COST = 3,
|
|
HOSPITAL_FREEBIE = 4,
|
|
HOSPITAL_RANDOM_FREEBIE = 5,
|
|
}
|
|
|
|
SectorY =
|
|
{
|
|
MAP_ROW_A = 1,
|
|
MAP_ROW_B = 2,
|
|
MAP_ROW_C = 3,
|
|
MAP_ROW_D = 4,
|
|
MAP_ROW_E = 5,
|
|
MAP_ROW_F = 6,
|
|
MAP_ROW_G = 7,
|
|
MAP_ROW_H = 8,
|
|
MAP_ROW_I = 9,
|
|
MAP_ROW_J = 10,
|
|
MAP_ROW_K = 11,
|
|
MAP_ROW_L = 12,
|
|
MAP_ROW_M = 13,
|
|
MAP_ROW_N = 14,
|
|
MAP_ROW_O = 15,
|
|
MAP_ROW_P = 16,
|
|
}
|
|
|
|
Profil =
|
|
{
|
|
Manuel = 60,
|
|
Biggens = 61,
|
|
Kulba = 62,
|
|
Tex = 64,
|
|
JerryMilo = 76,
|
|
Morris = 75,
|
|
}
|
|
|
|
Facts =
|
|
{
|
|
FACT_IMPORTED_SAVE_AND_MARY_WAS_DEAD = 400,
|
|
FACT_TEX_IS_IN_GAME_AND_ALIVE_IN_STORE = 402,
|
|
}
|
|
|
|
local DIF_LEVEL_EASY = 1
|
|
local DIF_LEVEL_MEDIUM = 2
|
|
local DIF_LEVEL_HARD = 3
|
|
local DIF_LEVEL_INSANE = 4
|
|
|
|
ShopID = {
|
|
ARMS_DEALER_TONY = 0,
|
|
ARMS_DEALER_FRANZ = 1,
|
|
ARMS_DEALER_KEITH = 2,
|
|
ARMS_DEALER_JAKE = 3,
|
|
ARMS_DEALER_GABBY = 4,
|
|
ARMS_DEALER_HOWARD = 5,
|
|
ARMS_DEALER_SAM = 6,
|
|
ARMS_DEALER_FRANK = 7,
|
|
ARMS_DEALER_BAR_BRO_1 = 8,
|
|
ARMS_DEALER_BAR_BRO_2 = 9,
|
|
ARMS_DEALER_BAR_BRO_3 = 10,
|
|
ARMS_DEALER_BAR_BRO_4 = 11,
|
|
ARMS_DEALER_MICKY = 12,
|
|
ARMS_DEALER_ARNIE = 13,
|
|
ARMS_DEALER_FREDO = 14,
|
|
ARMS_DEALER_RAUL = 15, -- Raul UB
|
|
ARMS_DEALER_ELGIN = 16,
|
|
ARMS_DEALER_MANNY = 17,
|
|
ARMS_DEALER_BETTY = 18, -- Betty UB
|
|
}
|
|
|
|
local function AddTexsVideosToBettysInventory()
|
|
GuaranteeAtLeastXItemsOfIndex( ShopID.ARMS_DEALER_BETTY, itemTEX_MOVIE_ATTACK_CLYDESDALES, 1 ) -- Attack of the Clydesdales
|
|
GuaranteeAtLeastXItemsOfIndex( ShopID.ARMS_DEALER_BETTY, itemTEX_MOVIE_WILD_EAST, 1 ) -- Wild, Wild East
|
|
GuaranteeAtLeastXItemsOfIndex( ShopID.ARMS_DEALER_BETTY, itemTEX_MOVIE_HAVE_HONDA, 1 ) -- Have Honda, Will Travel
|
|
end
|
|
|
|
function InitStrategicLayer()
|
|
|
|
InitialHeliCrash(iniINGAMEHELICRASH)
|
|
|
|
if ( iniJERRY == true ) then
|
|
InitialProfile ( Profil.JerryMilo, iniDEFAULT_ARRIVAL_SECTOR_X, iniDEFAULT_ARRIVAL_SECTOR_Y,0, iniJERRYGRIDNO )
|
|
end
|
|
|
|
InitialJerryQuotes(iniJERRYQUOTES)
|
|
InitialLaptopQuest(iniLAPTOP_QUEST)
|
|
|
|
InitialHeliGridNo1(iniINITIALHELIGRIDNO1)
|
|
InitialHeliGridNo2(iniINITIALHELIGRIDNO2)
|
|
InitialHeliGridNo3(iniINITIALHELIGRIDNO3)
|
|
InitialHeliGridNo4(iniINITIALHELIGRIDNO4)
|
|
InitialHeliGridNo5(iniINITIALHELIGRIDNO5)
|
|
InitialHeliGridNo6(iniINITIALHELIGRIDNO6)
|
|
InitialHeliGridNo7(iniINITIALHELIGRIDNO7)
|
|
|
|
-- get DEFAULT_ARRIVAL_SECTOR_X and DEFAULT_ARRIVAL_SECTOR_Y from UB_Options.ini
|
|
SetDefaultArrivalSector( iniDEFAULT_ARRIVAL_SECTOR_X, iniDEFAULT_ARRIVAL_SECTOR_Y )
|
|
|
|
-- get NEW_MERC_ARRIVAL_LOCATION from UB_Options.ini
|
|
InternalLocateGridNo( iniNEW_MERC_ARRIVAL_LOCATION )
|
|
end
|
|
|
|
|
|
function InitNPCs()
|
|
local ran
|
|
local ubNumAdmins = 0
|
|
local ubNumTroops = 0
|
|
local ubNumElites = 0
|
|
local Test = false
|
|
local JohnKulbaText = true
|
|
|
|
if ( RandomManuelText == true ) then
|
|
|
|
-- Miguel is dead
|
|
Dead = math.random(1, 2)
|
|
if ( Dead == 1 ) then
|
|
SetFactTrue( 414 ) -- set fact
|
|
end
|
|
|
|
-- Fatima or Pacos is dead
|
|
Dead = math.random(1, 2)
|
|
if ( Dead == 1 ) then
|
|
SetFactTrue( 415 ) -- set fact
|
|
end
|
|
|
|
-- Carlos is dead
|
|
Dead = math.random(1, 2)
|
|
if ( Dead == 1 ) then
|
|
SetFactTrue( 416 ) -- set fact
|
|
end
|
|
|
|
-- Ira is dead
|
|
Dead = math.random(1, 2)
|
|
if ( Dead == 1 ) then
|
|
SetFactTrue( 417 ) -- set fact
|
|
end
|
|
|
|
-- Dimitri is dead
|
|
Dead = math.random(1, 2)
|
|
if ( Dead == 1 ) then
|
|
SetFactTrue( 418 ) -- set fact
|
|
end
|
|
end
|
|
|
|
-- Random John or Tex
|
|
if ( enabledJohnAndTex == false) then
|
|
|
|
ran = math.random(1, 2)
|
|
|
|
if ( ran == 1 ) then
|
|
|
|
if ( JohnKulbaText == true ) then
|
|
-- Mary is dead
|
|
MaryDead = math.random(1, 2)
|
|
if ( MaryDead == 1 ) then
|
|
SetFactTrue( Facts.FACT_IMPORTED_SAVE_AND_MARY_WAS_DEAD ) -- set fact
|
|
end
|
|
end
|
|
|
|
--John is available
|
|
Ja25JohnKulbaIsInGame (true)
|
|
|
|
--Tex is not available
|
|
SetFactFalse( Facts.FACT_TEX_IS_IN_GAME_AND_ALIVE_IN_STORE )
|
|
|
|
Ja25JohnKulbaInitialSectorY (SectorY.MAP_ROW_I)
|
|
-- Randomly choose John's starting sector
|
|
if( math.random(1, 100 ) < 50 ) then
|
|
Ja25JohnKulbaInitialSectorX (10)
|
|
else
|
|
Ja25JohnKulbaInitialSectorX (11)
|
|
end
|
|
|
|
else
|
|
--John is not available
|
|
Ja25JohnKulbaIsInGame (false)
|
|
|
|
-- added video to Betty Shop
|
|
if ( Ja25CheckJohnKulbaIsInGame() == false ) then
|
|
AddTexsVideosToBettysInventory()
|
|
end
|
|
|
|
--Tex is available
|
|
SetFactTrue( Facts.FACT_TEX_IS_IN_GAME_AND_ALIVE_IN_STORE )
|
|
end
|
|
|
|
|
|
-- John and Tex in game
|
|
elseif ( enabledJohnAndTex == true) then
|
|
|
|
if ( JohnKulbaText == true ) then
|
|
-- Mary is dead
|
|
MaryDead = math.random(1, 2)
|
|
if ( MaryDead == 1 ) then
|
|
SetFactTrue( Facts.FACT_IMPORTED_SAVE_AND_MARY_WAS_DEAD ) -- set fact
|
|
end
|
|
end
|
|
|
|
--John is available
|
|
Ja25JohnKulbaIsInGame (true)
|
|
|
|
Ja25JohnKulbaInitialSectorY (SectorY.MAP_ROW_I)
|
|
|
|
--Randomly choose John's starting sector
|
|
if( math.random(1, 100 ) < 50 ) then
|
|
Ja25JohnKulbaInitialSectorX (10)
|
|
else
|
|
Ja25JohnKulbaInitialSectorX (11)
|
|
end
|
|
|
|
-- added video to Betty Shop
|
|
AddTexsVideosToBettysInventory()
|
|
|
|
--Tex is available
|
|
SetFactTrue( Facts.FACT_TEX_IS_IN_GAME_AND_ALIVE_IN_STORE )
|
|
|
|
end
|
|
|
|
-- Added enemy to sector
|
|
if ( Test == false ) then
|
|
-- H7
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
end
|
|
SetNumberJa25EnemiesInSurfaceSector( 7, 8, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
|
|
-- H8
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 6 + math.random( 1, 4 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 13 + math.random( 1, 3 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 16 + math.random( 1, 6 )
|
|
ubNumElites = 2 + math.random( 1,2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 19 + math.random( 1, 9 )
|
|
ubNumElites = 2 + math.random( 1, 2 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 8,8, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
|
|
-- Guard Post
|
|
-- H9
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 5 )
|
|
ubNumElites = 1
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 16 + math.random( 1, 4 )
|
|
ubNumElites = 1
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 19 + math.random( 1, 4 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 19 + math.random( 1, 6 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 9,8, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- H10
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 6 + math.random( 1, 5 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 9 + math.random( 1, 3 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 4 )
|
|
ubNumElites = 2 + math.random( 1, 4 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 4 )
|
|
ubNumElites = 2 + math.random( 1, 4 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 10,8, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- H11
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 6 + math.random( 1, 3 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 8 + math.random( 1, 3 )
|
|
ubNumElites = 2 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 4 )
|
|
ubNumElites = 4 + math.random( 1, 3 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 4 )
|
|
ubNumElites = 2 + math.random( 1, 3 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 11,8, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
|
|
-- I9
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 6 + math.random( 1, 5 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 9 + math.random( 1, 4 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 4 )
|
|
ubNumElites = 2 + math.random( 1, 4 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 6 )
|
|
ubNumElites = 2 + math.random( 1, 4 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 9,9, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- First part of town
|
|
-- I10
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 13 + math.random( 1, 6 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 16 + math.random( 1, 4 )
|
|
ubNumElites = 1 + math.random( 1, 3 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 14 + math.random( 1, 4 )
|
|
ubNumElites = 5 + math.random( 1, 3 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 4 )
|
|
ubNumElites = 5 + math.random( 1, 3 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 10,9, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- Second part of town
|
|
-- I11
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 14 + math.random( 1, 7 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 16 + math.random( 1, 5 )
|
|
ubNumElites = 2 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 14 + math.random( 1, 4 )
|
|
ubNumElites = 5 + math.random( 1, 4 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 17 + math.random( 1, 4 )
|
|
ubNumElites = 5 + math.random( 1, 4 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 11,9, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- I12
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 8 + math.random( 1, 6 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 12 + math.random( 1, 5 )
|
|
ubNumElites = 2 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 12 + math.random( 1, 6 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 6 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 12,9, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- Abandoned mine
|
|
-- I13
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 0
|
|
ubNumElites = 0
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 13,9, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- J11
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 6 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 3 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 11 + math.random( 1, 5 )
|
|
ubNumElites = 6 + math.random( 1, 3 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 20 + math.random( 1, 5 )
|
|
ubNumElites = 6 + math.random( 1, 3 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 11,10, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- J12
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 12 + math.random( 1, 4 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 10 + math.random( 1, 4 )
|
|
ubNumElites = 1 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 11 + math.random( 1, 3 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 21 + math.random( 1, 3 )
|
|
ubNumElites = 3 + math.random( 1, 2 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 12,10, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- Power Generator, Ground Level
|
|
-- J13
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 15 + math.random( 1, 6 )
|
|
ubNumElites = 1
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 16 + math.random( 1, 5 )
|
|
ubNumElites = 5 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 18 + math.random( 1, 4 )
|
|
ubNumElites = 6 + math.random( 1, 3 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 18 + math.random( 1, 4 )
|
|
ubNumElites = 7 + math.random( 1, 3 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 13,10, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
|
|
-- Complex, Ground Level
|
|
-- K15
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 14 + math.random( 1, 5 )
|
|
ubNumElites = 0
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 18 + math.random( 1, 3 )
|
|
ubNumElites = 4 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 17 + math.random( 1, 3 )
|
|
ubNumElites = 8 + math.random( 1, 2 )
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
ubNumAdmins = 0
|
|
ubNumTroops = 17 + math.random( 1, 3 )
|
|
ubNumElites = 8 + math.random( 1, 2 )
|
|
end
|
|
|
|
SetNumberJa25EnemiesInSurfaceSector( 15,11, ubNumAdmins, ubNumTroops, ubNumElites )
|
|
end
|
|
|
|
-- init hospital variables
|
|
HospitalTempBalance( 0 )
|
|
HospitalRefund( 0 )
|
|
HospitalPriceModifier( Modifier.HOSPITAL_UNSET )
|
|
|
|
end
|
|
|
|
function InitNewGame()
|
|
|
|
if ( is_networked == 0 ) then
|
|
|
|
--Add the initial email from enrico
|
|
AddEmail( EMAIL_STARTGAME, EMAIL_STARTGAME_LENGTH, Sender.MAIL_ENRICO, -1 , -1 )
|
|
|
|
--Add the initial email from AIM
|
|
AddEmail( EMAIL_AIMDISCOUNT, EMAIL_AIMDISCOUNT_LENGTH, Sender.AIM_SITE, -1 , -1 )
|
|
|
|
AddEmail(IMP_EMAIL_INTRO,IMP_EMAIL_INTRO_LENGTH,Sender.CHAR_PROFILE_SITE, -1 , -1 )
|
|
|
|
end
|
|
|
|
if ( difficultyLevel == DIF_LEVEL_EASY ) then
|
|
iStartingCash = GetStartingCashNovice()
|
|
elseif ( difficultyLevel == DIF_LEVEL_MEDIUM ) then
|
|
iStartingCash = GetStartingCashExperienced()
|
|
elseif ( difficultyLevel == DIF_LEVEL_HARD ) then
|
|
iStartingCash = GetStartingCashExpert()
|
|
elseif ( difficultyLevel == DIF_LEVEL_INSANE ) then
|
|
iStartingCash = GetStartingCashInsane()
|
|
end
|
|
|
|
AddTransactionToPlayersBook( Fincances.ANONYMOUS_DEPOSIT, 0, GetWorldTotalMin(), iStartingCash )
|
|
|
|
end |