//TESH.scrollpos=0
//TESH.alwaysfold=0
Name | Type | is_array | initial_value |
aab | boolean | No | |
aChooseInteger | integer | Yes | |
adIn | location | No | |
adOut | location | No | |
adQ | quest | No | |
AllPlayers | force | No | |
ancestor | unit | Yes | |
animalGrowGroup | group | No | |
animalHash | hashtable | No | |
animalPickedPoint | location | No | |
animalReproduceGroup1 | group | No | |
animalReproduceRandom | integer | No | |
animalReproduceSpecific | group | No | |
animalSaturationUG | group | No | |
arenaBid | integer | Yes | |
arenaPG | force | No | |
arenaPlayerfightB | boolean | No | |
arenaPreparation | timer | No | |
arenaRandomizer | integer | No | |
arenaSight | fogmodifier | Yes | |
arenaTeam1P | location | No | |
arenaTeam2P | location | No | |
arenaTimer | timer | No | |
arenaWindow | timerdialog | No | |
ARMORS | itemtype | No | ItemTypeCampaign |
bailEP | location | No | |
banditUG1 | group | No | |
barnP | location | No | |
barnUG | group | No | |
battlemasterP | location | No | |
bidPlayer | player | No | |
bookOwner | unit | No | |
bountyP | location | No | |
bountyUG | group | No | |
bountyUG2 | group | No | |
bravery | real | No | |
breedingItemDrops | integer | Yes | |
breedingPoint | location | No | |
breedingUT | unitcode | Yes | |
bucleExit | boolean | No | |
bVetBool | boolean | Yes | |
bWolfUG | group | No | |
CamD | real | No | |
castleVision | fogmodifier | Yes | |
chargesRand | integer | No | |
chickenP | location | No | |
city | button | No | |
cityGroup | group | No | |
cityRandGuard | real | No | |
cityRandP | location | No | |
cityRespawnP | location | No | |
classBolean | boolean | Yes | |
classDialog | dialog | No | |
classinteger | integer | Yes | |
classRep | integer | Yes | |
classUnit | unit | Yes | |
cleanedItem | item | Yes | |
cNo | button | No | |
conversationRandom | integer | No | |
cookingCaster | unit | No | |
cookingPoint | location | No | |
cookStacks | integer | No | |
countrysideFemale | unitcode | No | |
countrysideFemaleTraveller | unitcode | No | |
countrysideGuard | unitcode | No | |
countrysideMale | unitcode | No | |
countrysideMaleTraveller | unitcode | No | |
countrysideP | player | No | |
countrysidePoint | location | No | |
countrysideRespawnP | location | No | |
countrysideUG | group | No | |
critterPoint | location | No | |
cYes | button | No | |
day | boolean | No | |
diseaseRandomN | integer | No | |
dmgDetectDamage | real | No | |
dmgDetectDamagedPosition | location | No | |
dmgDetectDamagedUnit | unit | No | |
dmgDetectDamagedUT | unitcode | No | |
dmgDetectDamagingUnit | unit | No | |
dominionP | location | No | |
dominionTimer | timer | No | |
dominionUG | group | No | |
dominionWindow | timerdialog | No | |
dominonAspirant | player | No | |
doodadUG | group | No | |
eatPoint | location | No | |
eUnitP | location | No | |
exitPoint | location | No | |
farmer | button | No | |
farmingCropLocation | location | No | |
farmingGrindPoint | location | No | |
farmlandP | location | No | |
farmlandPoint | location | No | |
fBearUG | group | No | |
female | button | No | |
femaleRich | unitcode | No | |
fishCaster | unit | No | |
fisher | button | No | |
fishHash | hashtable | No | |
fishingBobber | unit | No | |
fishingCasterP | location | No | |
fishingEffectArray | effect | Yes | |
fishingLure | integer | No | |
fishingSpecialEffect | effect | No | |
fishingTempPoint | location | No | |
fishRoll | integer | No | |
fishTimer | timer | No | |
fishTP | location | No | |
fWolfUG | group | No | |
gameTime | integer | No | |
gate | unit | No | |
gateCloseUG | group | No | |
gatePoint | location | No | |
gateReplace | unit | No | |
genderDialog | dialog | No | |
generalWageUG | group | No | |
graceBoolean | boolean | No | |
graceTime | integer | No | |
graceTimer | timer | No | |
guardUG | group | No | |
hateAngle | real | No | |
hDestP | location | No | |
heroClassBolean | integer | Yes | |
heroManipulatingItem | unit | No | |
heroStrProgression | integer | Yes | |
hExit | unit | Yes | |
hideinP | location | No | |
hideutP | location | No | |
houseBinary | boolean | Yes | |
houseERegion | rect | Yes | RectNull |
houseOutBoolean | boolean | No | |
housesUG | group | No | |
housingEUG | group | No | |
housingUG | group | No | |
hProperty | unit | Yes | |
HTPP | location | No | |
hungerUG | group | No | |
hungerUGDMG | group | No | |
hunter | button | No | |
huntingBool | boolean | No | |
huntingDrop | real | No | |
huntingEP | location | No | |
huntingMeatDrop | integer | Yes | |
huntingRand | integer | No | |
huntingSkinType | integer | Yes | |
huntingTempPoint | location | No | |
huntingUG | group | No | |
huntingUT | unitcode | Yes | |
integerC | integer | No | |
integerI | integer | No | |
integerRand | integer | No | |
integerRand2 | integer | No | |
integerX | integer | No | |
integerY | integer | No | |
integerZ | integer | No | |
interactCasterUT | unitcode | No | |
interactTargetUT | unitcode | No | |
investRand | integer | No | |
investTotal | integer | Yes | |
itemCleanupFlag | boolean | No | |
itemCleanupTimer | timer | No | |
itemCount | integer | No | |
itemDrop | location | No | |
itemManipulated | item | No | |
ItemsToClean | integer | No | |
jailBoolean | boolean | Yes | |
jailed | unit | Yes | |
jailIndex | integer | No | |
jailP | location | Yes | |
jailTime | real | No | |
jailTimer | timer | Yes | |
landQ | quest | No | |
lichBool | boolean | No | |
lichBoolp | boolean | Yes | |
lichVictoryInt | integer | No | |
loop | integer | No | |
male | button | No | |
maleRich | unitcode | No | |
marketEntryRandomizer | integer | No | |
marketPoint | location | No | |
married | boolean | Yes | |
meltPoint | location | No | |
meltStacks | integer | No | |
merchantInteractPos | location | No | |
miner | button | No | |
miningTempPoint | location | No | |
moveBoolean | boolean | No | |
movingPoint1 | location | No | |
nBanditP1 | location | No | |
nDeerUG | group | No | |
night | boolean | No | |
nmamoothUG | group | No | |
nNo | button | No | |
nobleDialog | dialog | No | |
noProfession | button | No | |
northEast | button | No | |
northWest | button | No | |
npcRandPoint | location | No | |
npcRobbed | boolean | No | |
nQuilbeastUG | group | No | |
nRabbitUG | group | No | |
nrRcoonUG | group | No | |
nWolfUG | group | No | |
nYes | button | No | |
packHorseBP | location | No | |
packHorseBP2 | location | No | |
packHorseUG | group | No | |
pBackpack | unit | Yes | |
periodicInt | integer | No | |
periodicIntBool | boolean | No | |
periodicPickedCValue | integer | No | |
periodicPickedHealth | real | No | |
periodicPickedItem | item | No | |
periodicPickedItemType | itemcode | No | |
periodicPickedMana | real | No | |
periodicPickedOwner | player | No | |
periodicPickedPoint | location | No | |
periodicPickedPValue | integer | No | |
periodicPickedUnit | unit | No | |
periodicPickedUT | unitcode | No | |
periodicUG | group | No | |
pHousingR | rect | Yes | |
pHousingUG | group | No | |
pickDialog | dialog | No | |
pingP | location | No | |
pJailed | boolean | Yes | |
playerBounty | integer | Yes | |
populationCityPoints | location | Yes | |
populationDyingUnitTemp | unit | No | |
populationHash | hashtable | No | |
populationOptimism | real | No | |
populationTempIdeal | integer | No | |
populationTempReal | integer | No | |
populationTowersUnitGroup | group | Yes | |
populationUnitGroups | group | Yes | |
professionUnit | unit | No | |
profUP | location | No | |
propertyCount | integer | Yes | |
propertyPoint | location | No | |
propertyUG | group | No | |
pVillager | unit | Yes | |
questBoolean | boolean | Yes | |
questObjective | boolean | Yes | |
raceWindow | timerdialog | No | |
randP | location | No | |
rankAttacked | unit | No | |
rankAttacker | unit | No | |
realRand1 | real | No | |
rebelionP | location | No | |
rebelionRand | real | No | |
rebelionUG | group | No | |
resP | location | No | |
respawnP | player | No | |
robAmmount | integer | No | |
robTextPos | location | No | |
routeBool | boolean | No | |
routeUG | group | No | |
settlementHash | hashtable | No | |
shipB | boolean | No | |
shipP | location | No | |
south | button | No | |
spawnP | location | No | |
spawnPreventUG | group | No | |
spawnPreventUG2 | group | No | |
spawnPreventUG3 | group | No | |
sResetBool | boolean | No | true |
startDialog | dialog | No | |
startP | location | Yes | |
stockBreeder | button | No | |
team1S | unit | No | |
team1UG | group | No | |
team2S | unit | No | |
team2UG | group | No | |
tempCharges | integer | No | |
tempInteger | integer | No | |
tempIntegerFish | integer | No | |
tempItemType | itemcode | No | |
tempP | location | No | |
tempP2 | location | No | |
tempPG | force | No | |
tempPG2 | force | No | |
tempPlayer | player | No | |
tempPlayerNumber | integer | No | |
tempRegion | rect | No | |
tempString | string | No | |
tempString2 | string | No | |
tempTarget | unit | No | |
tempTargetOwner | player | No | |
tempU | unit | No | |
tempUG | group | No | |
tempUG2 | group | No | |
tempUG3 | group | No | |
thiefIdleP | player | No | |
thiefIdlePG | force | No | |
thiefIdleU | unit | No | |
thiefIdleUT | unitcode | No | |
thiefQ | quest | No | |
tip | string | Yes | |
tipRand | integer | No | |
totalTax | integer | Yes | |
townFemale | unitcode | No | |
townHallUG | group | No | |
townMale | unitcode | No | |
townMeleGuard | unitcode | No | |
townPlayer | player | No | |
townPlayerGroup | force | No | |
townRangedGuard | unitcode | No | |
townTaxBool | boolean | No | |
trackP | location | No | |
trackUG | group | No | |
trader | button | No | |
tradingArray1 | real | Yes | |
tradingArray2 | real | Yes | |
tradingArray3 | real | Yes | |
tradingArray4 | real | Yes | |
tradingHash | hashtable | No | |
travelUG | group | No | |
turnAngle | real | No | |
turnPoint | location | No | |
uDestroy | unit | No | |
unitTurn | unit | No | |
veinUG | group | No | |
villageGuard | unitcode | No | |
villageRandP | location | No | |
villageRegionCenters | rect | Yes | |
villageRegions | rect | Yes | |
wageArray | integer | Yes | |
wageInt | integer | No | |
wagePointV | integer | No | |
wageRandomRevolution | integer | No | |
wageTimer | timer | No | |
wageUG | group | No | |
WEAPONS | itemtype | No | ItemTypeArtifact |
weather1 | weathereffect | No | |
weatherInt | integer | No | |
weatherRand | real | Yes | |
werewolf | player | No | |
werewolfU | unit | No | |
werewolfV | unit | No | |
wife | dialog | No | |
wifecaster | unit | Yes | |
wifeN | button | No | |
wifeP | location | No | |
wifetarget | unit | Yes | |
wifeUG | group | No | |
wifeY | button | No | |
wmillP | location | No | |
wMillUG | group | No | |
wwP | location | No |
function HandleCount takes nothing returns nothing
local location L = Location(0,0)
call BJDebugMsg(I2S(GetHandleId(L)-0x100000))
call RemoveLocation(L)
set L = null
endfunction
//===========================================================================
function InitTrig_HandleCounter takes nothing returns nothing
local trigger t = CreateTrigger()
call TriggerRegisterTimerEvent(t,0.9,true)
call TriggerAddAction(t,function HandleCount)
endfunction
function Trig_Trading_init_J_Actions takes nothing returns nothing
set udg_tradingArray1[0] = 50.50
set udg_tradingArray1[1] = 50.50
set udg_tradingArray1[2] = 30.30
set udg_tradingArray1[3] = 30.30
set udg_tradingArray1[4] = 30.30
set udg_tradingArray1[5] = 30.30
set udg_tradingArray1[6] = 30.30
set udg_tradingArray1[7] = 30.30
set udg_tradingArray1[8] = 15.15
set udg_tradingArray1[9] = 15.15
set udg_tradingArray1[10] = 15.15
set udg_tradingArray2[0] = 30.30
set udg_tradingArray2[1] = 30.30
set udg_tradingArray2[2] = 50.50
set udg_tradingArray2[3] = 50.50
set udg_tradingArray2[4] = 50.50
set udg_tradingArray2[5] = 50.50
set udg_tradingArray2[6] = 30.30
set udg_tradingArray2[7] = 30.30
set udg_tradingArray2[8] = 15.15
set udg_tradingArray2[9] = 15.15
set udg_tradingArray2[10] = 15.15
set udg_tradingArray3[0] = 30.30
set udg_tradingArray3[1] = 30.30
set udg_tradingArray3[2] = 30.30
set udg_tradingArray3[3] = 30.30
set udg_tradingArray3[4] = 30.30
set udg_tradingArray3[5] = 30.30
set udg_tradingArray3[6] = 50.50
set udg_tradingArray3[7] = 50.50
set udg_tradingArray3[8] = 30.30
set udg_tradingArray3[9] = 30.30
set udg_tradingArray3[10] = 30.30
set udg_tradingArray4[0] = 15.15
set udg_tradingArray4[1] = 15.15
set udg_tradingArray4[2] = 15.15
set udg_tradingArray4[3] = 15.15
set udg_tradingArray4[4] = 15.15
set udg_tradingArray4[5] = 15.15
set udg_tradingArray4[6] = 30.30
set udg_tradingArray4[7] = 30.30
set udg_tradingArray4[8] = 50.50
set udg_tradingArray4[9] = 50.50
set udg_tradingArray4[10] = 50.50
endfunction
//===========================================================================
function InitTrig_Trading_init_J takes nothing returns nothing
set gg_trg_Trading_init_J = CreateTrigger( )
call TriggerAddAction( gg_trg_Trading_init_J, function Trig_Trading_init_J_Actions )
endfunction
function Trig_Trading_buy_and_sell_Actions takes nothing returns nothing
local unit sellingUnit = GetSellingUnit()
local unit buyingUnit = GetBuyingUnit()
local item soldItem = GetSoldItem()
local player owner
local integer stock
local integer index = 0
local real priceMultiplier = 0
local integer basePrice = 0
local integer finalPrice = 0
local boolean buying = GetUnitTypeId(sellingUnit) == 'n00F'//depenent de si la selling unit es de tipus mercat, true=comprant= selling unit es un mercat, false = venent= selling unit no es un mercat
local unit market
local unit customer
local integer finalPlayerGold = 0
//determinar la variable mercat
if(buying)then
set market = sellingUnit
set customer = buyingUnit
set owner = GetOwningPlayer(buyingUnit)
else
set market = buyingUnit
set customer = sellingUnit
set owner = GetOwningPlayer(sellingUnit)
endif
//determinar l'index, i per tant el preu de base de l'objecte
if(GetItemTypeId(soldItem) == 'I01V')then
set index = 0
set basePrice = 300
endif
if(GetItemTypeId(soldItem) == 'I01W')then
set index = 1
set basePrice = 600
endif
if(GetItemTypeId(soldItem) == 'I01U')then
set index = 2
set basePrice = 300
endif
if(GetItemTypeId(soldItem) == 'I01Y')then
set index = 3
set basePrice = 150
endif
if(GetItemTypeId(soldItem) == 'I01S')then
set index = 4
set basePrice = 75
endif
if(GetItemTypeId(soldItem) == 'I01T')then
set index = 5
set basePrice = 600
endif
if(GetItemTypeId(soldItem) == 'I020')then
set index = 6
set basePrice = 600
endif
if(GetItemTypeId(soldItem) == 'I01Z')then
set index = 7
set basePrice = 75
endif
if(GetItemTypeId(soldItem) == 'I01Q')then
set index = 8
set basePrice = 75
endif
if(GetItemTypeId(soldItem) == 'I01O')then
set index = 9
set basePrice = 600
endif
if(GetItemTypeId(soldItem) == 'I01R')then
set index = 10
set basePrice = 300
endif
//determinar l'array, i despres l'stock i stock ideal
if(gg_unit_n00F_0023 == market)then
set stock = R2I(udg_tradingArray1[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
if(buying)then
set finalPlayerGold = GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD)
set finalPlayerGold = finalPlayerGold - finalPrice
if(finalPlayerGold < 0)then
call DisplayTextToForce( GetForceOfPlayer(owner), "Not enough gold" )
call RemoveItem( soldItem )
else
set udg_tradingArray1[index] = udg_tradingArray1[index] -1
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) - finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Bought "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
else
set udg_tradingArray1[index] = udg_tradingArray1[index] +1
set stock = R2I(udg_tradingArray1[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) + finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Sold "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
endif
if(gg_unit_n00F_0024 == market)then
set stock = R2I(udg_tradingArray2[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
if(buying)then
set finalPlayerGold = GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD)
set finalPlayerGold = finalPlayerGold - finalPrice
if(finalPlayerGold < 0)then
call DisplayTextToForce( GetForceOfPlayer(owner), "Not enough gold" )
call RemoveItem( soldItem )
else
set udg_tradingArray2[index] = udg_tradingArray2[index] -1
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) - finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Bought "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
else
set udg_tradingArray2[index] = udg_tradingArray2[index] +1
set stock = R2I(udg_tradingArray2[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) + finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Sold "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
endif
if(gg_unit_n00F_0025 == market)then
set stock = R2I(udg_tradingArray3[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
if(buying)then
set finalPlayerGold = GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD)
set finalPlayerGold = finalPlayerGold - finalPrice
if(finalPlayerGold < 0)then
call DisplayTextToForce( GetForceOfPlayer(owner), "Not enough gold" )
call RemoveItem( soldItem )
else
set udg_tradingArray3[index] = udg_tradingArray3[index] -1
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) - finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Bought "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
else
set udg_tradingArray3[index] = udg_tradingArray3[index] +1
set stock = R2I(udg_tradingArray3[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) + finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Sold "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
endif
if(gg_unit_n00F_0026 == market)then
set stock = R2I(udg_tradingArray4[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
if(buying)then
set finalPlayerGold = GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD)
set finalPlayerGold = finalPlayerGold - finalPrice
if(finalPlayerGold < 0)then
call DisplayTextToForce( GetForceOfPlayer(owner), "Not enough gold" )
call RemoveItem( soldItem )
else
set udg_tradingArray4[index] = udg_tradingArray4[index] -1
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) - finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Bought "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
else
set udg_tradingArray4[index] = udg_tradingArray4[index] +1
set stock = R2I(udg_tradingArray4[index])
set priceMultiplier = 400-((stock*100)/16.66)
set finalPrice = R2I((basePrice * priceMultiplier)/100)
call SetPlayerStateBJ( owner, PLAYER_STATE_RESOURCE_GOLD, ( GetPlayerState(owner, PLAYER_STATE_RESOURCE_GOLD) + finalPrice ) )
call DisplayTextToForce( GetForceOfPlayer(owner), "Sold "+GetItemName(soldItem)+" for "+I2S(finalPrice)+" gold" )
endif
endif
//leaks
set sellingUnit = null
set buyingUnit = null
set market = null
set customer = null
set owner = null
endfunction
//===========================================================================
function InitTrig_Trading_buy_and_sell takes nothing returns nothing
set gg_trg_Trading_buy_and_sell = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_Trading_buy_and_sell, EVENT_PLAYER_UNIT_SELL_ITEM )
call TriggerRegisterAnyUnitEventBJ( gg_trg_Trading_buy_and_sell, EVENT_PLAYER_UNIT_PAWN_ITEM )
call TriggerAddAction( gg_trg_Trading_buy_and_sell, function Trig_Trading_buy_and_sell_Actions )
endfunction
//TESH.scrollpos=0
//TESH.alwaysfold=0
function Trig_TradingPeriodic_Actions takes nothing returns nothing
//loop here per a tots els index dels arrays
local integer arr = 1 //array...
local integer index = 0
local real temp = 0
local real enter = 0
local real decimal = 0
local real delta = 0
local boolean exit = false
loop //array 1
set temp = udg_tradingArray1[index] //75.50 25.50
set enter = I2R(R2I(temp)) //75 25
set decimal = ( temp - enter ) * 100 //50 50
set delta = enter - decimal //d=15 e= 30 -> 15, d=15 e = 0 -> -15 //25 -25
if(delta != 0)then
if(delta > 0)then
set delta = I2R(R2I(((delta / 2)+1))) // 13
endif
if(delta < 0)then
set delta = I2R(R2I(((delta / 2)-1))) //-13
endif
set temp = temp - delta // 62 38
set udg_tradingArray1[index] = temp
endif
set index = index + 1
if(index == 11)then
set exit = true
endif
exitwhen exit
endloop
set index = 0
set exit = false
loop //array 2
set temp = udg_tradingArray2[index] //75.50 25.50
set enter = I2R(R2I(temp)) //75 25
set decimal = ( temp - enter ) * 100 //50 50
set delta = enter - decimal //d=15 e= 30 -> 15, d=15 e = 0 -> -15 //25 -25
if(delta != 0)then
if(delta > 0)then
set delta = I2R(R2I(((delta / 2)+1))) // 13
endif
if(delta < 0)then
set delta = I2R(R2I(((delta / 2)-1))) //-13
endif
set temp = temp - delta // 62 38
set udg_tradingArray2[index] = temp
endif
set index = index + 1
if(index == 11)then
set exit = true
endif
exitwhen exit
endloop
set index = 0
set exit = false
loop //array 3
set temp = udg_tradingArray3[index] //75.50 25.50
set enter = I2R(R2I(temp)) //75 25
set decimal = ( temp - enter ) * 100 //50 50
set delta = enter - decimal //d=15 e= 30 -> 15, d=15 e = 0 -> -15 //25 -25
if(delta != 0)then
if(delta > 0)then
set delta = I2R(R2I(((delta / 2)+1))) // 13
endif
if(delta < 0)then
set delta = I2R(R2I(((delta / 2)-1))) //-13
endif
set temp = temp - delta // 62 38
set udg_tradingArray3[index] = temp
endif
set index = index + 1
if(index == 11)then
set exit = true
endif
exitwhen exit
endloop
set index = 0
set exit = false
loop //array 4
set temp = udg_tradingArray4[index] //75.50 25.50
set enter = I2R(R2I(temp)) //75 25
set decimal = ( temp - enter ) * 100 //50 50
set delta = enter - decimal //d=15 e= 30 -> 15, d=15 e = 0 -> -15 //25 -25
if(delta != 0)then
if(delta > 0)then
set delta = I2R(R2I(((delta / 2)+1))) // 13
endif
if(delta < 0)then
set delta = I2R(R2I(((delta / 2)-1))) //-13
endif
set temp = temp - delta // 62 38
set udg_tradingArray4[index] = temp
endif
set index = index + 1
if(index == 11)then
set exit = true
endif
exitwhen exit
endloop
endfunction
//===========================================================================
function InitTrig_TradingPeriodic takes nothing returns nothing
set gg_trg_TradingPeriodic = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_TradingPeriodic, 200.00 )
call TriggerAddAction( gg_trg_TradingPeriodic, function Trig_TradingPeriodic_Actions )
endfunction
function Trig_test_Copy_Actions takes nothing returns nothing
call RemoveItem( GetLastCreatedItem() )
endfunction
//===========================================================================
function InitTrig_test_Copy takes nothing returns nothing
set gg_trg_test_Copy = CreateTrigger( )
call TriggerAddAction( gg_trg_test_Copy, function Trig_test_Copy_Actions )
endfunction