Planet Source Code Jumbo …e CD Visual Basic 1 to 7/5_2007-2008.ISO/data/Zips/Fracas20867210102007.psc/Fracas_VB/ComputerAI.bas

BASIC Source File | 2007-08-24 | 5KB | 96 lines

Attribute VB_Name = "ComputerAI"
Option Explicit
Option Base 1

Dim Score() As Single
Dim BestScore As Single
Dim BestCountry As Long
Dim NumReinforce As Single
Dim AttackDiff As Single
Dim AttackedCountryThisTurn As Long
Dim ToWhere As Long
Dim XferAmount As Single
Public MsgXferAmount As Long   'Public so we can see it for messages.

Dim Cntry As Long
Dim Cntry2 As Long

'These variables are used to calculate the number of troops to move.
Dim AttProp As Single
Dim AttSum1 As Single
Dim AttSum2 As Single
Dim A1 As Single
Dim A2 As Single
Dim A3 As Single
Dim A4 As Single
Dim A5 As Single
Dim A6 As Single
Dim B1 As Single
Dim B2 As Single
Dim B3 As Single
Dim B4 As Single
Dim B5 As Single
Dim B6 As Single
Dim D1 As Single
Dim D2 As Single

'Used for Custom AIs.
Dim AIFile As String
Dim CurrentLine As String
Dim AIFileNumber As Long

'Temporary registers used for a variety of purposes.
Dim TempNum1 As Single
Dim TempNum2 As Single
Dim HQTemp As Single

'The Hate array is used to keep track of, well, how much each computer
'hates each other player.
'For example:  a = Hate(x, y)
'a = the hate value, from 1 to 100.
'x = the player doing the hating.
'y = the player being hated.
Public Hate(6, 6) As Integer

'The following variables define the number of available computer
'personalities to pick from.
Public Const NUMPERSONALITIES As Integer = 12
Public PersonalityName(NUMPERSONALITIES) As String

'These constants define the score for an impossible or unlikely move.
Const NOTPOSSIBLE As Long = -999999   'Just a very low number.
Const UNLIKELY As Long = 1            'Higher than NOTPOSSIBLE, but any other move is better.

'These variables define the personality of the current AI.
Dim SAMESCOREKEEPER         As Single               'Chance of keeping a country with the same bestscore.
Dim HATEFACTOR              As Integer              'How badly this personality holds a grudge.
Dim HQTROOPSMULTIPLIER      As Integer              'Number of times that the troops in a country count.
Dim HQBODYOFWATER           As Integer              'Number of points a body of water is worth to HQ.
Dim HQBORDERINGCOUNTRY      As Integer              'Number of points a bordering country is worth to HQ.
Dim HQONEAWAYMULT           As Single               'Fraction of troops counted for countries 1 away from HQ.
Dim HQTWOAWAYMULT           As Single               'Fraction of troops counted for countries 2 away from HQ.
Dim HQNEXTTOENEMYHQ         As Single               'Score for putting HQ near enemy HQs.
Dim HQNEARCENTERMULT        As Single               'Factor for HQ being closer to the center of the map.
Dim HQDEFENDPROPENSITY      As Integer              'Points per strength difference to defend HQ.
Dim REDEFLOSINGPROPOSITION  As Integer              'Factor for reinforcing defensive troops in a losing battle.
Dim REDEFWINNINGPROPOSITION As Integer              'Factor for reinforcing defensive troops in a winning battle.
Dim REATTLOSINGPROPOSITION  As Integer              'Factor for reinforcing offensive troops in a losing battle.
Dim REATTWINNINGPROPOSITION As Integer              'Factor for reinforcing offensive troops in a winning battle.
Dim REPUTPRESSUREONHQBASE   As Integer              'Score for reinforcing near an enemy HQ.
Dim REPUTPRESSUREONHQMULT   As Integer              'Pro-rated Score for reinforcing near an enemy HQ.
Dim REBETONASURETHING       As Integer              'Score for reinforcing a battle that can already be won.
Dim ACANNEXTROOPS           As Single               'Factor for annexing a country with troops in it.
Dim ACANNEXBASE             As Single               'Score for just annexing any piece of land. (* CFGBonusTroops)
Dim ACANNEXNEARENEMYMULT    As Single               'Multiplier for taking free troops near enemy.
Dim ACANNEXNEXTTOHQ         As Single               'Score for annexing unclaimed land next to an enemy HQ.
Dim ACANNEXTWOAWAYMULT      As Single               'Fraction that free troops two countries away are worth.
Dim ACPORTBASE              As Integer              'Score for just building a port.            (* CFGShips)
Dim ACPORTTROOPS            As Integer              'Factor for building a port on a country with troops.
Dim ACATTACKBASE            As Integer              'Score for simply attacking another defending player.
Dim ACATTACKFACTOR          As Integer              'Pro-rated score for attacking another defending player.
Dim ACBULLYBASE             As Integer              'Score for beating up a player in an easy battle.
Dim ACBULLYFACTOR           As Integer              'Pro-rated score for attacking in an easy battle.
Dim ACCLEANUPEMPTYS         As Integer              'Score for attacking an empty enemy country.
Dim ACATTACKENEMYHQ         As Integer              'Score for being able to attack enemy HQ.
Dim ACHATEATTACKED          As Integer              'How much more I hate you for attacking me.
Dim ACHATE2