PC World Plus! (NZ) 2001 October/PCW1001.iso/Games/startopiademo1.exe/missions/00/merchants00.txt

Text File | 2001-05-02 | 22.9 KB | 1,193 lines

;GALACTIC TRADE FEDERATION*********************************************************************
: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

;**********************************************************
: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

;*********************************************************************
: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

;******************************************************************
: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