home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / merchants00.txt < prev    next >
Text File  |  2001-05-02  |  23KB  |  1,193 lines

  1. ;GALACTIC TRADE FEDERATION*********************************************************************
  2. :GTF999
  3. if
  4.     turn > 2000
  5.     gtf < turn
  6. then
  7.     set cargoshortage ((rnd%12) + 1)
  8.     set gtf ((turn + 10000) + (rnd%5000))
  9.     set gtfgenerated (turn + 100)
  10. end
  11.  
  12. :GTF000
  13. if
  14.     gtfgenerated > 0
  15.     turn > gtfgenerated
  16.     cargoshortage > 8
  17. then
  18.     multitrigger :GTF001
  19.     set gtfgenerated 0
  20. end
  21.  
  22. :GTF001
  23. if
  24.     0
  25. then
  26.     status_message "general_trade01"
  27.     disable
  28. end
  29.  
  30. :GTF100
  31. if
  32.     gtfgenerated > 0
  33.     turn > gtfgenerated
  34.     cargoshortage = 1
  35. then
  36.     multitrigger :GTF101
  37.     set gtfgenerated 0
  38. end
  39.  
  40. :GTF101
  41. if
  42.     0
  43. then
  44.     status_message "general_trade02"
  45.     disable
  46. end
  47.  
  48. :GTF200
  49. if
  50.     gtfgenerated > 0
  51.     turn > gtfgenerated
  52.     cargoshortage = 2
  53. then
  54.     multitrigger :GTF201
  55.     set gtfgenerated 0
  56. end
  57.  
  58. :GTF201
  59. if
  60.     0
  61. then
  62.     status_message "general_trade03"
  63.     disable
  64. end
  65.  
  66. :GTF300
  67. if
  68.     gtfgenerated > 0
  69.     turn > gtfgenerated
  70.     cargoshortage = 3
  71. then
  72.     multitrigger :GTF301
  73.     set gtfgenerated 0
  74. end
  75.  
  76. :GTF301
  77. if
  78.     0
  79. then
  80.     status_message "general_trade04"
  81.     disable
  82. end
  83.  
  84. :GTF400
  85. if
  86.     gtfgenerated > 0
  87.     turn > gtfgenerated
  88.     cargoshortage = 4
  89. then
  90.     multitrigger :GTF401
  91.     set gtfgenerated 0
  92. end
  93.  
  94. :GTF401
  95. if
  96.     0
  97. then
  98.     status_message "general_trade05"
  99.     disable
  100. end
  101.  
  102. :GTF500
  103. if
  104.     gtfgenerated > 0
  105.     turn > gtfgenerated
  106.     cargoshortage = 5
  107. then
  108.     multitrigger :GTF501
  109.     set gtfgenerated 0
  110. end
  111.  
  112. :GTF501
  113. if
  114.     0
  115. then
  116.     status_message "general_trade06"
  117.     disable
  118. end
  119.  
  120. :GTF600
  121. if
  122.     gtfgenerated > 0
  123.     turn > gtfgenerated
  124.     cargoshortage = 6
  125. then
  126.     multitrigger :GTF601
  127.     set gtfgenerated 0
  128. end
  129.  
  130. :GTF601
  131. if
  132.     0
  133. then
  134.     status_message "general_trade07"
  135.     disable
  136. end
  137.  
  138. :GTF700
  139. if
  140.     gtfgenerated > 0
  141.     turn > gtfgenerated
  142.     cargoshortage = 7
  143. then
  144.     multitrigger :GTF701
  145.     set gtfgenerated 0
  146. end
  147.  
  148. :GTF701
  149. if
  150.     0
  151. then
  152.     status_message "general_trade08"
  153.     disable
  154. end
  155.  
  156. :GTF800
  157. if
  158.     gtfgenerated > 0
  159.     turn > gtfgenerated
  160.     cargoshortage = 8
  161. then
  162.     multitrigger :GTF801
  163.     set gtfgenerated 0
  164. end
  165.  
  166. :GTF801
  167. if
  168.     0
  169. then
  170.     status_message "general_trade09"
  171.     disable
  172. end
  173.  
  174. ;**********************************************************
  175. :Trade000
  176. if
  177.     turn > merchantrandomiser
  178. then
  179.     set commonmerchantrand (((rnd%10000) + 10000) - (players * 1000))
  180.     set normalmerchantrand (((rnd%15000) + 15000) - (players * 1500))
  181.     set raremerchantrand (((rnd%20000) + 20000) - (players * 2000))
  182.     set merchantrandomiser (turn + 3333) 
  183. end
  184.  
  185. ;*********************************************************************
  186. :Trader0
  187. if
  188.     cargoshortage > 8
  189.     turn > greymerchantcount
  190. then
  191.     trader "grey0001.csv" 180 "events_tradergrey01"
  192.     set greymerchantcount (turn + commonmerchantrand)
  193. end
  194.  
  195. :Trader0a
  196. if
  197.     cargoshortage = 1
  198.     turn > greymerchantcount
  199. then
  200.     trader "grey0001a.csv" 180 "events_tradergrey01"
  201.     set greymerchantcount (turn + commonmerchantrand)
  202. end
  203.  
  204. :Trader0b
  205. if
  206.     cargoshortage = 2
  207.     turn > greymerchantcount
  208. then
  209.     trader "grey0001b.csv" 180 "events_tradergrey01"
  210.     set greymerchantcount (turn + commonmerchantrand)
  211. end
  212.  
  213. :Trader0c
  214. if
  215.     cargoshortage = 3
  216.     turn > greymerchantcount
  217. then
  218.     trader "grey0001c.csv" 180 "events_tradergrey01"
  219.     set greymerchantcount (turn + commonmerchantrand)
  220. end
  221.  
  222. :Trader0d
  223. if
  224.     cargoshortage = 4
  225.     turn > greymerchantcount
  226. then
  227.     trader "grey0001d.csv" 180 "events_tradergrey01"
  228.     set greymerchantcount (turn + commonmerchantrand)
  229. end
  230.  
  231. :Trader0e
  232. if
  233.     cargoshortage = 5
  234.     turn > greymerchantcount
  235. then
  236.     trader "grey0001e.csv" 180 "events_tradergrey01"
  237.     set greymerchantcount (turn + commonmerchantrand)
  238. end
  239.  
  240. :Trader0f
  241. if
  242.     cargoshortage = 6
  243.     turn > greymerchantcount
  244. then
  245.     trader "grey0001f.csv" 180 "events_tradergrey01"
  246.     set greymerchantcount (turn + commonmerchantrand)
  247. end
  248.  
  249. :Trader0g
  250. if
  251.     cargoshortage = 7
  252.     turn > greymerchantcount
  253. then
  254.     trader "grey0001g.csv" 180 "events_tradergrey01"
  255.     set greymerchantcount (turn + commonmerchantrand)
  256. end
  257.  
  258. :Trader0h
  259. if
  260.     cargoshortage = 8
  261.     turn > greymerchantcount
  262. then
  263.     trader "grey0001h.csv" 180 "events_tradergrey01"
  264.     set greymerchantcount (turn + commonmerchantrand)
  265. end
  266.  
  267. ;****************************************************************
  268. :Trader1
  269. if
  270.     cargoshortage > 8
  271.     turn > gormerchantcount
  272. then
  273.     trader "gor0001.csv" 180 "events_tradergor01"
  274.     set gormerchantcount (turn + raremerchantrand)
  275. end
  276.  
  277. :Trader1a
  278. if
  279.     cargoshortage = 1
  280.     turn > gormerchantcount
  281. then
  282.     trader "gor0001a.csv" 180 "events_tradergor01"
  283.     set gormerchantcount (turn + raremerchantrand)
  284. end
  285.  
  286. :Trader1b
  287. if
  288.     cargoshortage = 2
  289.     turn > gormerchantcount
  290. then
  291.     trader "gor0001b.csv" 180 "events_tradergor01"
  292.     set gormerchantcount (turn + raremerchantrand)
  293. end
  294.  
  295. :Trader1c
  296. if
  297.     cargoshortage = 3
  298.     turn > gormerchantcount
  299. then
  300.     trader "gor0001c.csv" 180 "events_tradergor01"
  301.     set gormerchantcount (turn + raremerchantrand)
  302. end
  303.  
  304. :Trader1d
  305. if
  306.     cargoshortage = 4
  307.     turn > gormerchantcount
  308. then
  309.     trader "gor0001d.csv" 180 "events_tradergor01"
  310.     set gormerchantcount (turn + raremerchantrand)
  311. end
  312.  
  313. :Trader1e
  314. if
  315.     cargoshortage = 5
  316.     turn > gormerchantcount
  317. then
  318.     trader "gor0001e.csv" 180 "events_tradergor01"
  319.     set gormerchantcount (turn + raremerchantrand)
  320. end
  321.  
  322. :Trader1f
  323. if
  324.     cargoshortage = 6
  325.     turn > gormerchantcount
  326. then
  327.     trader "gor0001f.csv" 180 "events_tradergor01"
  328.     set gormerchantcount (turn + raremerchantrand)
  329. end
  330.  
  331. :Trader1g
  332. if
  333.     cargoshortage = 7
  334.     turn > gormerchantcount
  335. then
  336.     trader "gor0001g.csv" 180 "events_tradergor01"
  337.     set gormerchantcount (turn + raremerchantrand)
  338. end
  339.  
  340. :Trader1h
  341. if
  342.     cargoshortage = 8
  343.     turn > gormerchantcount
  344. then
  345.     trader "gor0001h.csv" 180 "events_tradergor01"
  346.     set gormerchantcount (turn + raremerchantrand)
  347. end
  348.  
  349. ;****************************************************************
  350. :Trader2
  351. if
  352.     cargoshortage > 8
  353.     turn > sirenmerchantcount
  354. then
  355.     trader "siren0001.csv" 180 "events_tradersiren01"
  356.     set sirenmerchantcount (turn + normalmerchantrand)
  357. end
  358.  
  359. :Trader2a
  360. if
  361.     cargoshortage = 1
  362.     turn > sirenmerchantcount
  363. then
  364.     trader "siren0001a.csv" 180 "events_tradersiren01"
  365.     set sirenmerchantcount (turn + normalmerchantrand)
  366. end
  367.  
  368. :Trader2b
  369. if
  370.     cargoshortage = 2
  371.     turn > sirenmerchantcount
  372. then
  373.     trader "siren0001b.csv" 180 "events_tradersiren01"
  374.     set sirenmerchantcount (turn + normalmerchantrand)
  375. end
  376.  
  377. :Trader2c
  378. if
  379.     cargoshortage = 3
  380.     turn > sirenmerchantcount
  381. then
  382.     trader "siren0001c.csv" 180 "events_tradersiren01"
  383.     set sirenmerchantcount (turn + normalmerchantrand)
  384. end
  385.  
  386. :Trader2d
  387. if
  388.     cargoshortage = 4
  389.     turn > sirenmerchantcount
  390. then
  391.     trader "siren0001d.csv" 180 "events_tradersiren01"
  392.     set sirenmerchantcount (turn + normalmerchantrand)
  393. end
  394.  
  395. :Trader2e
  396. if
  397.     cargoshortage = 5
  398.     turn > sirenmerchantcount
  399. then
  400.     trader "siren0001e.csv" 180 "events_tradersiren01"
  401.     set sirenmerchantcount (turn + normalmerchantrand)
  402. end
  403.  
  404. :Trader2f
  405. if
  406.     cargoshortage = 6
  407.     turn > sirenmerchantcount
  408. then
  409.     trader "siren0001f.csv" 180 "events_tradersiren01"
  410.     set sirenmerchantcount (turn + normalmerchantrand)
  411. end
  412.  
  413. :Trader2g
  414. if
  415.     cargoshortage = 7
  416.     turn > sirenmerchantcount
  417. then
  418.     trader "siren0001g.csv" 180 "events_tradersiren01"
  419.     set sirenmerchantcount (turn + normalmerchantrand)
  420. end
  421.  
  422. :Trader2h
  423. if
  424.     cargoshortage = 8
  425.     turn > sirenmerchantcount
  426. then
  427.     trader "siren0001h.csv" 180 "events_tradersiren01"
  428.     set sirenmerchantcount (turn + normalmerchantrand)
  429. end
  430.  
  431. ;****************************************************************
  432. :Trader3
  433. if
  434.     cargoshortage > 8
  435.     turn > hogmerchantcount
  436. then
  437.     trader "hog0001.csv" 180 "events_traderhog01"
  438.     set hogmerchantcount (turn + commonmerchantrand)
  439. end
  440.  
  441. :Trader3a
  442. if
  443.     cargoshortage = 1
  444.     turn > hogmerchantcount
  445. then
  446.     trader "hog0001a.csv" 180 "events_traderhog01"
  447.     set hogmerchantcount (turn + commonmerchantrand)
  448. end
  449.  
  450. :Trader3b
  451. if
  452.     cargoshortage = 2
  453.     turn > hogmerchantcount
  454. then
  455.     trader "hog0001b.csv" 180 "events_traderhog01"
  456.     set hogmerchantcount (turn + commonmerchantrand)
  457. end
  458.  
  459. :Trader3c
  460. if
  461.     cargoshortage = 3
  462.     turn > hogmerchantcount
  463. then
  464.     trader "hog0001c.csv" 180 "events_traderhog01"
  465.     set hogmerchantcount (turn + commonmerchantrand)
  466. end
  467.  
  468. :Trader3d
  469. if
  470.     cargoshortage = 4
  471.     turn > hogmerchantcount
  472. then
  473.     trader "hog0001d.csv" 180 "events_traderhog01"
  474.     set hogmerchantcount (turn + commonmerchantrand)
  475. end
  476.  
  477. :Trader3e
  478. if
  479.     cargoshortage = 5
  480.     turn > hogmerchantcount
  481. then
  482.     trader "hog0001e.csv" 180 "events_traderhog01"
  483.     set hogmerchantcount (turn + commonmerchantrand)
  484. end
  485.  
  486. :Trader3f
  487. if
  488.     cargoshortage = 6
  489.     turn > hogmerchantcount
  490. then
  491.     trader "hog0001f.csv" 180 "events_traderhog01"
  492.     set hogmerchantcount (turn + commonmerchantrand)
  493. end
  494.  
  495. :Trader3g
  496. if
  497.     cargoshortage = 7
  498.     turn > hogmerchantcount
  499. then
  500.     trader "hog0001g.csv" 180 "events_traderhog01"
  501.     set hogmerchantcount (turn + commonmerchantrand)
  502. end
  503.  
  504. :Trader3h
  505. if
  506.     cargoshortage = 8
  507.     turn > hogmerchantcount
  508. then
  509.     trader "hog0001h.csv" 180 "events_traderhog01"
  510.     set hogmerchantcount (turn + commonmerchantrand)
  511. end
  512.  
  513. ;****************************************************************
  514. :Trader4
  515. if
  516.     cargoshortage > 8
  517.     turn > karmamerchantcount
  518. then
  519.     trader "karma0001.csv" 180 "events_traderkarma01"
  520.     set karmamerchantcount (turn + normalmerchantrand)
  521. end
  522.  
  523. :Trader4a
  524. if
  525.     cargoshortage = 1
  526.     turn > karmamerchantcount
  527. then
  528.     trader "karma0001a.csv" 180 "events_traderkarma01"
  529.     set karmamerchantcount (turn + normalmerchantrand)
  530. end
  531.  
  532. :Trader4b
  533. if
  534.     cargoshortage = 2
  535.     turn > karmamerchantcount
  536. then
  537.     trader "karma0001b.csv" 180 "events_traderkarma01"
  538.     set karmamerchantcount (turn + normalmerchantrand)
  539. end
  540.  
  541. :Trader4c
  542. if
  543.     cargoshortage = 3
  544.     turn > karmamerchantcount
  545. then
  546.     trader "karma0001c.csv" 180 "events_traderkarma01"
  547.     set karmamerchantcount (turn + normalmerchantrand)
  548. end
  549.  
  550. :Trader4d
  551. if
  552.     cargoshortage = 4
  553.     turn > karmamerchantcount
  554. then
  555.     trader "karma0001d.csv" 180 "events_traderkarma01"
  556.     set karmamerchantcount (turn + normalmerchantrand)
  557. end
  558.  
  559. :Trader4e
  560. if
  561.     cargoshortage = 5
  562.     turn > karmamerchantcount
  563. then
  564.     trader "karma0001e.csv" 180 "events_traderkarma01"
  565.     set karmamerchantcount (turn + normalmerchantrand)
  566. end
  567.  
  568. :Trader4f
  569. if
  570.     cargoshortage = 6
  571.     turn > karmamerchantcount
  572. then
  573.     trader "karma0001f.csv" 180 "events_traderkarma01"
  574.     set karmamerchantcount (turn + normalmerchantrand)
  575. end
  576.  
  577. :Trader4g
  578. if
  579.     cargoshortage = 7
  580.     turn > karmamerchantcount
  581. then
  582.     trader "karma0001g.csv" 180 "events_traderkarma01"
  583.     set karmamerchantcount (turn + normalmerchantrand)
  584. end
  585.  
  586. :Trader4h
  587. if
  588.     cargoshortage = 8
  589.     turn > karmamerchantcount
  590. then
  591.     trader "karma0001h.csv" 180 "events_traderkarma01"
  592.     set karmamerchantcount (turn + normalmerchantrand)
  593. end
  594.  
  595. ;****************************************************************
  596. :Trader5
  597. if
  598.     cargoshortage > 8
  599.     turn > targmerchantcount
  600. then
  601.     trader "targ0001.csv" 180 "events_tradertarg01"
  602.     set targmerchantcount (turn + normalmerchantrand)
  603. end
  604.  
  605. :Trader5a
  606. if
  607.     cargoshortage = 1
  608.     turn > targmerchantcount
  609. then
  610.     trader "targ0001a.csv" 180 "events_tradertarg01"
  611.     set targmerchantcount (turn + normalmerchantrand)
  612. end
  613.  
  614. :Trader5b
  615. if
  616.     cargoshortage = 2
  617.     turn > targmerchantcount
  618. then
  619.     trader "targ0001b.csv" 180 "events_tradertarg01"
  620.     set targmerchantcount (turn + normalmerchantrand)
  621. end
  622.  
  623. :Trader5c
  624. if
  625.     cargoshortage = 3
  626.     turn > targmerchantcount
  627. then
  628.     trader "targ0001c.csv" 180 "events_tradertarg01"
  629.     set targmerchantcount (turn + normalmerchantrand)
  630. end
  631.  
  632. :Trader5d
  633. if
  634.     cargoshortage = 4
  635.     turn > targmerchantcount
  636. then
  637.     trader "targ0001d.csv" 180 "events_tradertarg01"
  638.     set targmerchantcount (turn + normalmerchantrand)
  639. end
  640.  
  641. :Trader5e
  642. if
  643.     cargoshortage = 5
  644.     turn > targmerchantcount
  645. then
  646.     trader "targ0001e.csv" 180 "events_tradertarg01"
  647.     set targmerchantcount (turn + normalmerchantrand)
  648. end
  649.  
  650. :Trader5f
  651. if
  652.     cargoshortage = 6
  653.     turn > targmerchantcount
  654. then
  655.     trader "targ0001f.csv" 180 "events_tradertarg01"
  656.     set targmerchantcount (turn + normalmerchantrand)
  657. end
  658.  
  659. :Trader5g
  660. if
  661.     cargoshortage = 7
  662.     turn > targmerchantcount
  663. then
  664.     trader "targ0001g.csv" 180 "events_tradertarg01"
  665.     set targmerchantcount (turn + normalmerchantrand)
  666. end
  667.  
  668. :Trader5h
  669. if
  670.     cargoshortage = 8
  671.     turn > targmerchantcount
  672. then
  673.     trader "targ0001h.csv" 180 "events_tradertarg01"
  674.     set targmerchantcount (turn + normalmerchantrand)
  675. end
  676.  
  677. ;****************************************************************
  678. :Trader6
  679. if
  680.     cargoshortage > 8
  681.     turn > gemmerchantcount
  682. then
  683.     trader "gem0001.csv" 180 "events_tradergem01"
  684.     set gemmerchantcount (turn + raremerchantrand)
  685. end
  686.  
  687. :Trader6a
  688. if
  689.     cargoshortage = 1
  690.     turn > gemmerchantcount
  691. then
  692.     trader "gem0001a.csv" 180 "events_tradergem01"
  693.     set gemmerchantcount (turn + raremerchantrand)
  694. end
  695.  
  696. :Trader6b
  697. if
  698.     cargoshortage = 2
  699.     turn > gemmerchantcount
  700. then
  701.     trader "gem0001b.csv" 180 "events_tradergem01"
  702.     set gemmerchantcount (turn + raremerchantrand)
  703. end
  704.  
  705. :Trader6c
  706. if
  707.     cargoshortage = 3
  708.     turn > gemmerchantcount
  709. then
  710.     trader "gem0001c.csv" 180 "events_tradergem01"
  711.     set gemmerchantcount (turn + raremerchantrand)
  712. end
  713.  
  714. :Trader6d
  715. if
  716.     cargoshortage = 4
  717.     turn > gemmerchantcount
  718. then
  719.     trader "gem0001d.csv" 180 "events_tradergem01"
  720.     set gemmerchantcount (turn + raremerchantrand)
  721. end
  722.  
  723. :Trader6e
  724. if
  725.     cargoshortage = 5
  726.     turn > gemmerchantcount
  727. then
  728.     trader "gem0001e.csv" 180 "events_tradergem01"
  729.     set gemmerchantcount (turn + raremerchantrand)
  730. end
  731.  
  732. :Trader6f
  733. if
  734.     cargoshortage = 6
  735.     turn > gemmerchantcount
  736. then
  737.     trader "gem0001f.csv" 180 "events_tradergem01"
  738.     set gemmerchantcount (turn + raremerchantrand)
  739. end
  740.  
  741. :Trader6g
  742. if
  743.     cargoshortage = 7
  744.     turn > gemmerchantcount
  745. then
  746.     trader "gem0001g.csv" 180 "events_tradergem01"
  747.     set gemmerchantcount (turn + raremerchantrand)
  748. end
  749.  
  750. :Trader6h
  751. if
  752.     cargoshortage = 8
  753.     turn > gemmerchantcount
  754. then
  755.     trader "gem0001h.csv" 180 "events_tradergem01"
  756.     set gemmerchantcount (turn + raremerchantrand)
  757. end
  758.  
  759. ;****************************************************************
  760. :Trader7
  761. if
  762.     cargoshortage > 8
  763.     turn > turakkenmerchantcount
  764. then
  765.     trader "turakken0001.csv" 180 "events_traderturakken01"
  766.     set turakkenmerchantcount (turn + normalmerchantrand)
  767. end
  768.  
  769. :Trader7a
  770. if
  771.     cargoshortage = 1
  772.     turn > turakkenmerchantcount
  773. then
  774.     trader "turakken0001a.csv" 180 "events_traderturakken01"
  775.     set turakkenmerchantcount (turn + normalmerchantrand)
  776. end
  777.  
  778. :Trader7b
  779. if
  780.     cargoshortage = 2
  781.     turn > turakkenmerchantcount
  782. then
  783.     trader "turakken0001b.csv" 180 "events_traderturakken01"
  784.     set turakkenmerchantcount (turn + normalmerchantrand)
  785. end
  786.  
  787. :Trader7c
  788. if
  789.     cargoshortage = 3
  790.     turn > turakkenmerchantcount
  791. then
  792.     trader "turakken0001c.csv" 180 "events_traderturakken01"
  793.     set turakkenmerchantcount (turn + normalmerchantrand)
  794. end
  795.  
  796. :Trader7d
  797. if
  798.     cargoshortage = 4
  799.     turn > turakkenmerchantcount
  800. then
  801.     trader "turakken0001d.csv" 180 "events_traderturakken01"
  802.     set turakkenmerchantcount (turn + normalmerchantrand)
  803. end
  804.  
  805. :Trader7e
  806. if
  807.     cargoshortage = 5
  808.     turn > turakkenmerchantcount
  809. then
  810.     trader "turakken0001e.csv" 180 "events_traderturakken01"
  811.     set turakkenmerchantcount (turn + normalmerchantrand)
  812. end
  813.  
  814. :Trader7f
  815. if
  816.     cargoshortage = 6
  817.     turn > turakkenmerchantcount
  818. then
  819.     trader "turakken0001f.csv" 180 "events_traderturakken01"
  820.     set turakkenmerchantcount (turn + normalmerchantrand)
  821. end
  822.  
  823. :Trader7g
  824. if
  825.     cargoshortage = 7
  826.     turn > turakkenmerchantcount
  827. then
  828.     trader "turakken0001g.csv" 180 "events_traderturakken01"
  829.     set turakkenmerchantcount (turn + normalmerchantrand)
  830. end
  831.  
  832. :Trader7h
  833. if
  834.     cargoshortage = 8
  835.     turn > turakkenmerchantcount
  836. then
  837.     trader "turakken0001h.csv" 180 "events_traderturakken01"
  838.     set turakkenmerchantcount (turn + normalmerchantrand)
  839. end
  840.  
  841. ;****************************************************************
  842. :Trader8
  843. if
  844.     cargoshortage > 8
  845.     turn > zedemmerchantcount
  846. then
  847.     trader "zedem0001.csv" 180 "events_traderzedem01"
  848.     set zedemmerchantcount (turn + raremerchantrand)
  849. end
  850.  
  851. :Trader8a
  852. if
  853.     cargoshortage = 1
  854.     turn > zedemmerchantcount
  855. then
  856.     trader "zedem0001a.csv" 180 "events_traderzedem01"
  857.     set zedemmerchantcount (turn + raremerchantrand)
  858. end
  859.  
  860. :Trader8b
  861. if
  862.     cargoshortage = 2
  863.     turn > zedemmerchantcount
  864. then
  865.     trader "zedem0001b.csv" 180 "events_traderzedem01"
  866.     set zedemmerchantcount (turn + raremerchantrand)
  867. end
  868.  
  869. :Trader8c
  870. if
  871.     cargoshortage = 3
  872.     turn > zedemmerchantcount
  873. then
  874.     trader "zedem0001c.csv" 180 "events_traderzedem01"
  875.     set zedemmerchantcount (turn + raremerchantrand)
  876. end
  877.  
  878. :Trader8d
  879. if
  880.     cargoshortage = 4
  881.     turn > zedemmerchantcount
  882. then
  883.     trader "zedem0001d.csv" 180 "events_traderzedem01"
  884.     set zedemmerchantcount (turn + raremerchantrand)
  885. end
  886.  
  887. :Trader8e
  888. if
  889.     cargoshortage = 5
  890.     turn > zedemmerchantcount
  891. then
  892.     trader "zedem0001e.csv" 180 "events_traderzedem01"
  893.     set zedemmerchantcount (turn + raremerchantrand)
  894. end
  895.  
  896. :Trader8f
  897. if
  898.     cargoshortage = 6
  899.     turn > zedemmerchantcount
  900. then
  901.     trader "zedem0001f.csv" 180 "events_traderzedem01"
  902.     set zedemmerchantcount (turn + raremerchantrand)
  903. end
  904.  
  905. :Trader8g
  906. if
  907.     cargoshortage = 7
  908.     turn > zedemmerchantcount
  909. then
  910.     trader "zedem0001g.csv" 180 "events_traderzedem01"
  911.     set zedemmerchantcount (turn + raremerchantrand)
  912. end
  913.  
  914. :Trader8h
  915. if
  916.     cargoshortage = 8
  917.     turn > zedemmerchantcount
  918. then
  919.     trader "zedem0001h.csv" 180 "events_traderzedem01"
  920.     set zedemmerchantcount (turn + raremerchantrand)
  921. end
  922.  
  923. ;******************************************************************
  924. :Trader9
  925. if
  926.     aronarand = 0
  927.     turn > aronamerchantcount
  928. then
  929.     trader "arona0001.csv" 90 "lev03_arona01" local
  930.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  931.     set aronarand (rnd%27)
  932. end
  933.  
  934. :Trader9a
  935. if
  936.     aronarand = 1
  937.     turn > aronamerchantcount
  938. then
  939.     trader "arona0001.csv" 90 "lev03_arona02" local
  940.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  941.     set aronarand (rnd%27)
  942. end
  943.  
  944. :Trader9b
  945. if
  946.     aronarand = 2
  947.     turn > aronamerchantcount
  948. then
  949.     trader "arona0001.csv" 90 "lev03_arona03" local
  950.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  951.     set aronarand (rnd%27)
  952. end
  953.  
  954. :Trader9c
  955. if
  956.     aronarand = 3
  957.     turn > aronamerchantcount
  958. then
  959.     trader "arona0001.csv" 90 "lev03_arona04" local
  960.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  961.     set aronarand (rnd%27)
  962. end
  963.  
  964. :Trader9d
  965. if
  966.     aronarand = 4
  967.     turn > aronamerchantcount
  968. then
  969.     trader "arona0001.csv" 90 "lev05_arona00" local
  970.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  971.     set aronarand (rnd%27)
  972. end
  973.  
  974. :Trader9e
  975. if
  976.     aronarand = 5
  977.     turn > aronamerchantcount
  978. then
  979.     trader "arona0001.csv" 90 "lev05_arona01" local
  980.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  981.     set aronarand (rnd%27)
  982. end
  983.  
  984. :Trader9f
  985. if
  986.     aronarand = 6
  987.     turn > aronamerchantcount
  988. then
  989.     trader "arona0001.csv" 90 "lev05_arona02" local
  990.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  991.     set aronarand (rnd%27)
  992. end
  993.  
  994. :Trader9g
  995. if
  996.     aronarand = 7
  997.     turn > aronamerchantcount
  998. then
  999.     trader "arona0001.csv" 90 "lev05_arona03" local
  1000.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1001.     set aronarand (rnd%27)
  1002. end
  1003.  
  1004. :Trader9h
  1005. if
  1006.     aronarand = 8
  1007.     turn > aronamerchantcount
  1008. then
  1009.     trader "arona0001.csv" 90 "lev05_arona04" local
  1010.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1011.     set aronarand (rnd%27)
  1012. end
  1013.  
  1014. :Trader9i
  1015. if
  1016.     aronarand = 9
  1017.     turn > aronamerchantcount
  1018. then
  1019.     trader "arona0001.csv" 90 "lev05_arona05" local
  1020.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1021.     set aronarand (rnd%27)
  1022. end
  1023.  
  1024. :Trader9j
  1025. if
  1026.     aronarand = 10
  1027.     turn > aronamerchantcount
  1028. then
  1029.     trader "arona0001.csv" 90 "lev08_arona01" local
  1030.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1031.     set aronarand (rnd%27)
  1032. end
  1033.  
  1034. :Trader9k
  1035. if
  1036.     aronarand = 11
  1037.     turn > aronamerchantcount
  1038. then
  1039.     trader "arona0001.csv" 90 "lev08_arona02" local
  1040.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1041.     set aronarand (rnd%27)
  1042. end
  1043.  
  1044. :Trader9l
  1045. if
  1046.     aronarand = 12
  1047.     turn > aronamerchantcount
  1048. then
  1049.     trader "arona0001.csv" 90 "lev08_arona03" local
  1050.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1051.     set aronarand (rnd%27)
  1052. end
  1053.  
  1054. :Trader9m
  1055. if
  1056.     aronarand = 13
  1057.     turn > aronamerchantcount
  1058. then
  1059.     trader "arona0001.csv" 90 "lev08_arona04" local
  1060.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1061.     set aronarand (rnd%27)
  1062. end
  1063.  
  1064. :Trader9n
  1065. if
  1066.     aronarand = 14
  1067.     turn > aronamerchantcount
  1068. then
  1069.     trader "arona0001.csv" 90 "lev08_arona05" local
  1070.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1071.     set aronarand (rnd%27)
  1072. end
  1073.  
  1074. :Trader9o
  1075. if
  1076.     aronarand = 15
  1077.     turn > aronamerchantcount
  1078. then
  1079.     trader "arona0001.csv" 90 "lev08_arona06" local
  1080.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1081.     set aronarand (rnd%27)
  1082. end
  1083.  
  1084. :Trader9p
  1085. if
  1086.     aronarand = 16
  1087.     turn > aronamerchantcount
  1088. then
  1089.     trader "arona0001.csv" 90 "lev08_arona07" local
  1090.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1091.     set aronarand (rnd%27)
  1092. end
  1093.  
  1094. :Trader9q
  1095. if
  1096.     aronarand = 17
  1097.     turn > aronamerchantcount
  1098. then
  1099.     trader "arona0001.csv" 90 "lev08_arona08" local
  1100.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1101.     set aronarand (rnd%27)
  1102. end
  1103.  
  1104. :Trader9r
  1105. if
  1106.     aronarand = 18
  1107.     turn > aronamerchantcount
  1108. then
  1109.     trader "arona0001.csv" 90 "lev08_arona09" local
  1110.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1111.     set aronarand (rnd%27)
  1112. end
  1113.  
  1114. :Trader9s
  1115. if
  1116.     aronarand = 19
  1117.     turn > aronamerchantcount
  1118. then
  1119.     trader "arona0001.csv" 90 "lev08_arona10" local
  1120.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1121.     set aronarand (rnd%27)
  1122. end
  1123.  
  1124. :Trader9t
  1125. if
  1126.     aronarand = 20
  1127.     turn > aronamerchantcount
  1128. then
  1129.     trader "arona0001.csv" 90 "lev09_arona01" local
  1130.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1131.     set aronarand (rnd%27)
  1132. end
  1133.  
  1134. :Trader9u
  1135. if
  1136.     aronarand = 21
  1137.     turn > aronamerchantcount
  1138. then
  1139.     trader "arona0001.csv" 90 "lev09_arona02" local
  1140.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1141.     set aronarand (rnd%27)
  1142. end
  1143.  
  1144. :Trader9v
  1145. if
  1146.     aronarand = 22
  1147.     turn > aronamerchantcount
  1148. then
  1149.     trader "arona0001.csv" 90 "lev09_arona03" local
  1150.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1151.     set aronarand (rnd%27)
  1152. end
  1153.  
  1154. :Trader9w
  1155. if
  1156.     aronarand = 23
  1157.     turn > aronamerchantcount
  1158. then
  1159.     trader "arona0001.csv" 90 "lev09_arona04" local
  1160.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1161.     set aronarand (rnd%27)
  1162. end
  1163.  
  1164. :Trader9x
  1165. if
  1166.     aronarand = 24
  1167.     turn > aronamerchantcount
  1168. then
  1169.     trader "arona0001.csv" 90 "lev09_arona05" local
  1170.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1171.     set aronarand (rnd%27)
  1172. end
  1173.  
  1174. :Trader9y
  1175. if
  1176.     aronarand = 25
  1177.     turn > aronamerchantcount
  1178. then
  1179.     trader "arona0001.csv" 90 "lev09_arona06" local
  1180.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1181.     set aronarand (rnd%27)
  1182. end
  1183.  
  1184. :Trader9z
  1185. if
  1186.     aronarand = 26
  1187.     turn > aronamerchantcount
  1188. then
  1189.     trader "arona0001.csv" 90 "lev09_arona07" local
  1190.     set aronamerchantcount ((turn + 5000) + (dry_dock_count * 5000))
  1191.     set aronarand (rnd%27)
  1192. end
  1193.