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

Text File | 2001-05-14 | 6.4 KB | 347 lines

:GTF001
if
    0
then
    status_message "general_trade01"
    disable
end

:GTF101
if
    0
then
    status_message "general_trade02"
    disable
end

:GTF201
if
    0
then
    status_message "general_trade03"
    disable
end

:GTF301
if
    0
then
    status_message "general_trade04"
    disable
end

:GTF401
if
    0
then
    status_message "general_trade05"
    disable
end

:GTF501
if
    0
then
    status_message "general_trade06"
    disable
end

:GTF601
if
    0
then
    status_message "general_trade07"
    disable
end

:GTF701
if
    0
then
    status_message "general_trade08"
    disable
end

:GTF801
if
    0
then
    status_message "general_trade09"
    disable
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