Merchants00.txt

This is the merchants file for the human player in the sandbox. I have added my comments in dark red. These comments are based on my own analysis of the code and my experience in working with it. I do not have any special inside information from MuckyFoot about these files, and I may in some instances be wrong.

;GALACTIC TRADE FEDERATION*******************************************************************
; The elements beginning with GTF all have to do with the materials shortages
; announced by the Galactic Trade Federarion during the game
; These shortages are reflected in the trading by use of a different trading 
; file for each trader under each shortage
:GTF999
if
	turn > 2000
	gtf < turn
then
	set cargoshortage ((rnd%12) + 1)
	set gtf ((turn + 10000) + (rnd%5000))
	set gtfgenerated (turn + 100)
end

:GTF000
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage > 8
then
	multitrigger :GTF001
	set gtfgenerated 0
end

:GTF001
if
	0
then
	status_message "general_trade01"
	disable
end

:GTF100
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 1
then
	multitrigger :GTF101
	set gtfgenerated 0
end

:GTF101
if
	0
then
	status_message "general_trade02"
	disable
end

:GTF200
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 2
then
	multitrigger :GTF201
	set gtfgenerated 0
end

:GTF201
if
	0
then
	status_message "general_trade03"
	disable
end

:GTF300
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 3
then
	multitrigger :GTF301
	set gtfgenerated 0
end

:GTF301
if
	0
then
	status_message "general_trade04"
	disable
end

:GTF400
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 4
then
	multitrigger :GTF401
	set gtfgenerated 0
end

:GTF401
if
	0
then
	status_message "general_trade05"
	disable
end

:GTF500
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 5
then
	multitrigger :GTF501
	set gtfgenerated 0
end

:GTF501
if
	0
then
	status_message "general_trade06"
	disable
end

:GTF600
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 6
then
	multitrigger :GTF601
	set gtfgenerated 0
end

:GTF601
if
	0
then
	status_message "general_trade07"
	disable
end

:GTF700
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 7
then
	multitrigger :GTF701
	set gtfgenerated 0
end

:GTF701
if
	0
then
	status_message "general_trade08"
	disable
end

:GTF800
if
	gtfgenerated > 0
	turn > gtfgenerated
	cargoshortage = 8
then
	multitrigger :GTF801
	set gtfgenerated 0
end

:GTF801
if
	0
then
	status_message "general_trade09"
	disable
end

;**********************************************************
; This element controls the flow of traders to the station in terms
; of common, normal and rare merchants. The more players there are in
; the game, the more often all three types come to call. At a random 
; interval, the intervals for all three types are changed again.
:Trade000
if
	turn > merchantrandomiser
then
	set commonmerchantrand (((rnd%10000) + 10000) - (players * 1000))
	set normalmerchantrand (((rnd%15000) + 15000) - (players * 1500))
	set raremerchantrand (((rnd%20000) + 20000) - (players * 2000))
	set merchantrandomiser (turn + 3333) 
end

; Each trading race has nine different CSV files. Which of the nine is
; used is determined by the existing cargo shortage at the time the 
; trader is due to show up at the station. There are nine script elements 
; for each trading race. The frequency with which the race comes to call
; is determined by whether they are common, normal, or rare traders.
;*********************************************************************
:Trader0
if
	cargoshortage > 8
	turn > greymerchantcount
then
	trader "grey0001.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0a
if
	cargoshortage = 1
	turn > greymerchantcount
then
	trader "grey0001a.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0b
if
	cargoshortage = 2
	turn > greymerchantcount
then
	trader "grey0001b.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0c
if
	cargoshortage = 3
	turn > greymerchantcount
then
	trader "grey0001c.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0d
if
	cargoshortage = 4
	turn > greymerchantcount
then
	trader "grey0001d.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0e
if
	cargoshortage = 5
	turn > greymerchantcount
then
	trader "grey0001e.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0f
if
	cargoshortage = 6
	turn > greymerchantcount
then
	trader "grey0001f.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0g
if
	cargoshortage = 7
	turn > greymerchantcount
then
	trader "grey0001g.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

:Trader0h
if
	cargoshortage = 8
	turn > greymerchantcount
then
	trader "grey0001h.csv" 180 "events_tradergrey01"
	set greymerchantcount (turn + commonmerchantrand)
end

;****************************************************************
:Trader1
if
	cargoshortage > 8
	turn > gormerchantcount
then
	trader "gor0001.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1a
if
	cargoshortage = 1
	turn > gormerchantcount
then
	trader "gor0001a.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1b
if
	cargoshortage = 2
	turn > gormerchantcount
then
	trader "gor0001b.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1c
if
	cargoshortage = 3
	turn > gormerchantcount
then
	trader "gor0001c.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1d
if
	cargoshortage = 4
	turn > gormerchantcount
then
	trader "gor0001d.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1e
if
	cargoshortage = 5
	turn > gormerchantcount
then
	trader "gor0001e.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1f
if
	cargoshortage = 6
	turn > gormerchantcount
then
	trader "gor0001f.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1g
if
	cargoshortage = 7
	turn > gormerchantcount
then
	trader "gor0001g.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

:Trader1h
if
	cargoshortage = 8
	turn > gormerchantcount
then
	trader "gor0001h.csv" 180 "events_tradergor01"
	set gormerchantcount (turn + raremerchantrand)
end

;****************************************************************
:Trader2
if
	cargoshortage > 8
	turn > sirenmerchantcount
then
	trader "siren0001.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2a
if
	cargoshortage = 1
	turn > sirenmerchantcount
then
	trader "siren0001a.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2b
if
	cargoshortage = 2
	turn > sirenmerchantcount
then
	trader "siren0001b.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2c
if
	cargoshortage = 3
	turn > sirenmerchantcount
then
	trader "siren0001c.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2d
if
	cargoshortage = 4
	turn > sirenmerchantcount
then
	trader "siren0001d.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2e
if
	cargoshortage = 5
	turn > sirenmerchantcount
then
	trader "siren0001e.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2f
if
	cargoshortage = 6
	turn > sirenmerchantcount
then
	trader "siren0001f.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2g
if
	cargoshortage = 7
	turn > sirenmerchantcount
then
	trader "siren0001g.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

:Trader2h
if
	cargoshortage = 8
	turn > sirenmerchantcount
then
	trader "siren0001h.csv" 180 "events_tradersiren01"
	set sirenmerchantcount (turn + normalmerchantrand)
end

;****************************************************************
:Trader3
if
	cargoshortage > 8
	turn > hogmerchantcount
then
	trader "hog0001.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3a
if
	cargoshortage = 1
	turn > hogmerchantcount
then
	trader "hog0001a.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3b
if
	cargoshortage = 2
	turn > hogmerchantcount
then
	trader "hog0001b.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3c
if
	cargoshortage = 3
	turn > hogmerchantcount
then
	trader "hog0001c.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3d
if
	cargoshortage = 4
	turn > hogmerchantcount
then
	trader "hog0001d.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3e
if
	cargoshortage = 5
	turn > hogmerchantcount
then
	trader "hog0001e.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3f
if
	cargoshortage = 6
	turn > hogmerchantcount
then
	trader "hog0001f.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3g
if
	cargoshortage = 7
	turn > hogmerchantcount
then
	trader "hog0001g.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

:Trader3h
if
	cargoshortage = 8
	turn > hogmerchantcount
then
	trader "hog0001h.csv" 180 "events_traderhog01"
	set hogmerchantcount (turn + commonmerchantrand)
end

;****************************************************************
:Trader4
if
	cargoshortage > 8
	turn > karmamerchantcount
then
	trader "karma0001.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4a
if
	cargoshortage = 1
	turn > karmamerchantcount
then
	trader "karma0001a.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4b
if
	cargoshortage = 2
	turn > karmamerchantcount
then
	trader "karma0001b.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4c
if
	cargoshortage = 3
	turn > karmamerchantcount
then
	trader "karma0001c.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4d
if
	cargoshortage = 4
	turn > karmamerchantcount
then
	trader "karma0001d.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4e
if
	cargoshortage = 5
	turn > karmamerchantcount
then
	trader "karma0001e.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4f
if
	cargoshortage = 6
	turn > karmamerchantcount
then
	trader "karma0001f.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4g
if
	cargoshortage = 7
	turn > karmamerchantcount
then
	trader "karma0001g.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

:Trader4h
if
	cargoshortage = 8
	turn > karmamerchantcount
then
	trader "karma0001h.csv" 180 "events_traderkarma01"
	set karmamerchantcount (turn + normalmerchantrand)
end

;****************************************************************
:Trader5
if
	cargoshortage > 8
	turn > targmerchantcount
then
	trader "targ0001.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5a
if
	cargoshortage = 1
	turn > targmerchantcount
then
	trader "targ0001a.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5b
if
	cargoshortage = 2
	turn > targmerchantcount
then
	trader "targ0001b.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5c
if
	cargoshortage = 3
	turn > targmerchantcount
then
	trader "targ0001c.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5d
if
	cargoshortage = 4
	turn > targmerchantcount
then
	trader "targ0001d.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5e
if
	cargoshortage = 5
	turn > targmerchantcount
then
	trader "targ0001e.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5f
if
	cargoshortage = 6
	turn > targmerchantcount
then
	trader "targ0001f.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5g
if
	cargoshortage = 7
	turn > targmerchantcount
then
	trader "targ0001g.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

:Trader5h
if
	cargoshortage = 8
	turn > targmerchantcount
then
	trader "targ0001h.csv" 180 "events_tradertarg01"
	set targmerchantcount (turn + normalmerchantrand)
end

;****************************************************************
:Trader6
if
	cargoshortage > 8
	turn > gemmerchantcount
then
	trader "gem0001.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6a
if
	cargoshortage = 1
	turn > gemmerchantcount
then
	trader "gem0001a.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6b
if
	cargoshortage = 2
	turn > gemmerchantcount
then
	trader "gem0001b.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6c
if
	cargoshortage = 3
	turn > gemmerchantcount
then
	trader "gem0001c.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6d
if
	cargoshortage = 4
	turn > gemmerchantcount
then
	trader "gem0001d.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6e
if
	cargoshortage = 5
	turn > gemmerchantcount
then
	trader "gem0001e.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6f
if
	cargoshortage = 6
	turn > gemmerchantcount
then
	trader "gem0001f.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6g
if
	cargoshortage = 7
	turn > gemmerchantcount
then
	trader "gem0001g.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

:Trader6h
if
	cargoshortage = 8
	turn > gemmerchantcount
then
	trader "gem0001h.csv" 180 "events_tradergem01"
	set gemmerchantcount (turn + raremerchantrand)
end

;****************************************************************
:Trader7
if
	cargoshortage > 8
	turn > turakkenmerchantcount
then
	trader "turakken0001.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7a
if
	cargoshortage = 1
	turn > turakkenmerchantcount
then
	trader "turakken0001a.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7b
if
	cargoshortage = 2
	turn > turakkenmerchantcount
then
	trader "turakken0001b.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7c
if
	cargoshortage = 3
	turn > turakkenmerchantcount
then
	trader "turakken0001c.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7d
if
	cargoshortage = 4
	turn > turakkenmerchantcount
then
	trader "turakken0001d.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7e
if
	cargoshortage = 5
	turn > turakkenmerchantcount
then
	trader "turakken0001e.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7f
if
	cargoshortage = 6
	turn > turakkenmerchantcount
then
	trader "turakken0001f.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7g
if
	cargoshortage = 7
	turn > turakkenmerchantcount
then
	trader "turakken0001g.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

:Trader7h
if
	cargoshortage = 8
	turn > turakkenmerchantcount
then
	trader "turakken0001h.csv" 180 "events_traderturakken01"
	set turakkenmerchantcount (turn + normalmerchantrand)
end

;****************************************************************
:Trader8
if
	cargoshortage > 8
	turn > zedemmerchantcount
then
	trader "zedem0001.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8a
if
	cargoshortage = 1
	turn > zedemmerchantcount
then
	trader "zedem0001a.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8b
if
	cargoshortage = 2
	turn > zedemmerchantcount
then
	trader "zedem0001b.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8c
if
	cargoshortage = 3
	turn > zedemmerchantcount
then
	trader "zedem0001c.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8d
if
	cargoshortage = 4
	turn > zedemmerchantcount
then
	trader "zedem0001d.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8e
if
	cargoshortage = 5
	turn > zedemmerchantcount
then
	trader "zedem0001e.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8f
if
	cargoshortage = 6
	turn > zedemmerchantcount
then
	trader "zedem0001f.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8g
if
	cargoshortage = 7
	turn > zedemmerchantcount
then
	trader "zedem0001g.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

:Trader8h
if
	cargoshortage = 8
	turn > zedemmerchantcount
then
	trader "zedem0001h.csv" 180 "events_traderzedem01"
	set zedemmerchantcount (turn + raremerchantrand)
end

; Good old Arona is in a merchant class all of his own.
; Neither his stock in trade nor his prices reflect galactic shortages.
; His schedule is independant of the number of players but he does 
; call less frequently as the player build more Star Docks.
; He has 27 different things he can say as he arrives at the station.
;******************************************************************
:Trader9
if
	aronarand = 0
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev03_arona01" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9a
if
	aronarand = 1
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev03_arona02" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9b
if
	aronarand = 2
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev03_arona03" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9c
if
	aronarand = 3
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev03_arona04" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9d
if
	aronarand = 4
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona00" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9e
if
	aronarand = 5
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona01" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9f
if
	aronarand = 6
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona02" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9g
if
	aronarand = 7
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona03" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9h
if
	aronarand = 8
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona04" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9i
if
	aronarand = 9
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev05_arona05" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9j
if
	aronarand = 10
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona01" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9k
if
	aronarand = 11
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona02" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9l
if
	aronarand = 12
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona03" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9m
if
	aronarand = 13
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona04" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9n
if
	aronarand = 14
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona05" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9o
if
	aronarand = 15
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona06" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9p
if
	aronarand = 16
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona07" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9q
if
	aronarand = 17
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona08" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9r
if
	aronarand = 18
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona09" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9s
if
	aronarand = 19
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev08_arona10" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9t
if
	aronarand = 20
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona01" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9u
if
	aronarand = 21
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona02" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9v
if
	aronarand = 22
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona03" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9w
if
	aronarand = 23
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona04" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9x
if
	aronarand = 24
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona05" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9y
if
	aronarand = 25
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona06" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end

:Trader9z
if
	aronarand = 26
	turn > aronamerchantcount
then
	trader "arona0001.csv" 90 "lev09_arona07" local
	set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
	set aronarand (rnd%27)
end