jessew
Apprentice
Joined: 03 Mar 2003
Posts: 141
|
 Posted: Tue Apr 20, 2004 1:41 am
ZTrader3 for medievia Updated Version
|
quote:
To use it simply go to the tradepost you want to value
and type 'ztval' after the script finishes valuing you then
can display the data to SHOW or to CHAT
Note: you'll need my CaebColor Script(included here to chat colors
correctly to MM users)
ztshow displays to show and ztchat displays to chat, they have the
exact same functionality so i only describe ztshow here
ztshow - Lists every value
ztshow <number> - Lists every value greater then <number>
Unless # is less then 100,000 in which case it lists every cpm
value over #
ztshow <post> - Lists every value from <post>
Note on ztshow <post> if your familar with zoneinfo on medievia
it works similar to that. for example if you wanted to list
values from g'dangus 'ztshow gda' (No puncuation or spaces)
ztshow ngu would work as well
//This is just an update using Carabas new cpm values.
//Thanks to Carabas :)
//Theres no added functionality, e.g. remembering each tps values.
//Rennus has already written a very nice script with all that.
//This is just basically a CPM update.
//I liked Rennus' idea of using database for storing the data
//Takes away alot of the %item(%ismember to make code cleaner.
//So I switched to that for almost all my data.
//Finally I cleaned up the Display code. Its a bit faster now.
//But it still needs to build a complete string so when you want
//to show all unless your on a very fast computer theyll be a
//small pause before the output.
//Also switched back to valuing by covered value good covered
//now that the %n issue is all cleared up.
//Updating: If goods get changed at a tp to update is pretty easy.
//Go into zmud settings and go to the folder "ZTrader/Data/TradeShops"
//Select the variable named with the name of the TP that changed.
//The second to last key in the database is a list containing all
//The goods that particular TP offers. Just modify that list.
//Every time you value ZTrader updates itself so you don't have to
//do anything special after that, just go value and it will use the
//new goods.
| Code: |
#DELCLASS "ZTrader"
#DELCLASS "CaebColor"
#CLASS CaebColor
#VARIABLE CCTypeList {bold|reset}
#VARIABLE CCNameList {black|blue|green|cyan|red|magenta|yellow|white|reset|bold}
#VARIABLE CCForeList {30|34|32|36|31|35|33|37|0|1}
#VARIABLE CCBackList {40|44|42|46|41|45|43|47}
#FUNCTION CCFore {%item(@CCForeList,%ismember(%1,@CCNameList))}
#FUNCTION CCBack {%item(@CCBackList,%ismember(%1,@CCNameList))}
#FUNCTION CC {%if(%3,@CC3(%1,%2,%3),%if(%2,@CC2(%1,%2),@CC1(%1)))}
#FUNCTION CaebColor {%if(%3,@CC3(%1,%2,%3),%if(%2,@CC2(%1,%2),@CC1(%1)))}
#FUNCTION CC1 {%e[@CCFore(%1)m}
#FUNCTION CC2 {%if(%ismember(%1,@CCTypeList),@CC2FC(%1,%2),@CC2BG(%1,%2))}
#FUNCTION CC3 {%e[@CCFore(%1);@CCFore(%2);@CCBack(%3)m}
#FUNCTION CC2FC {%e[@CCFore(%1);@CCFore(%2)m}
#FUNCTION CC2BG {%e[@CCFore(%1);@CCBack(%2)m}
#CLASS 0
#CLASS "ZTrader/Commands/User"
#ALIAS ztval {ztvals}
#ALIAS ztshow {ztdisplayshow = 1;ztshows %1}
#ALIAS ztchat {ztdisplayshow = 0;ztshows %1}
#CLASS 0
#CLASS "ZTrader/Commands/Script"
#VARIABLE ztcount 0
#ALIAS ztconfig {#DELCLASS "ZTrader/Data/Goods";#CLASS "ZTrader/Data/Goods";#FORALL @ztposts {#FORALL @%i.Goods {ztallgoods = %additem(%j,@ztallgoods);%j.tp = %i}};ztmupdatedone}
#ALIAS ztvals {ztconfig;#T+ "Ztrader|Triggers|Tradeposts";look}
#ALIAS ztpostfound {ztcount = 1;#T- "Ztrader|Triggers|Tradeposts";#T+ "ZTrader|Triggers|Valuing";ztvalnext}
#ALIAS ztvalnext {#IF (@ztcount > %numitems(@ztallgoods)) {ztvaldone} {value %item(@ztallgoods,@ztcount) covered;#ADD ztcount 1}}
#ALIAS ztvaldone {#T- "Ztrader|Triggers|Valuing";ztmValDone}
#CLASS 0
#CLASS "ZTrader/Display"
#CLASS 0
#CLASS "ZTrader/Display/Data"
#VARIABLE ztdisplayshow 0;
#VARIABLE ztvuser ""
#VARIABLE ztvpost ""
#VARIABLE ztdpost ""
#VARIABLE ztdlist ""
#VARIABLE ztdhead ""
#VARIABLE ztdfull ""
#VARIABLE ztversion 3.0
#FUNCTION ztlogo {@CC(bold,blue)(@CC(bold,white)ZTrader v@ztversion@CC(bold,blue))}
#CLASS 0
#CLASS "ZTrader/Display/Commands"
#ALIAS ztshows {ztdlist = "";ztvuser = %1;#IF (%1) {#IF %isnumber(%1) {#IF (%1 < 100000) {ztscpm} {ztsval}} {ztspst}} {ztsall}}
#ALIAS ztscpm {ztdhead = @zttitlecpm;#FORALL @ztallgoods {#IF (@%i.cpm > %eval(@ztvuser - 1)) {ztdlist = %additem(%i,@ztdlist)}};ztCreateDisplay}
#ALIAS ztsval {ztdhead = @zttitleval;#FORALL @ztallgoods {#IF (@%i.cwvalue > %eval(@ztvuser - 1)) {ztdlist = %additem(%i,@ztdlist)}};ztCreateDisplay}
#ALIAS ztsall {ztdhead = @zttitleall;ztdlist = @ztallgoods;ztCreateDisplay}
#ALIAS ztspst {ztfindpost;ztdhead = @zttitlepst;#FORALL @ztallgoods {#IF (@%i.tp = @ztdpost) {ztdlist = %additem(%i,@ztdlist)}};ztCreateDisplay}
#CLASS 0
#CLASS "ZTrader/Display/Titles"
#FUNCTION ztdashes {@CC(blue)%repeat("-",%len(%stripansi(@ztdhead)))%char(10)}
#FUNCTION zttitleall {@ztlogo@CC(bold,cyan):@CC(bold,green) Displaying all valued items to @CC(bold,white)@%eval(@ztvpost).Fancy%char(10)}
#FUNCTION zttitlecpm {@ztlogo@CC(bold,cyan):@CC(bold,green) All values over @CC(bold,white)@ztvuser CPMs @CC(bold,green)to @CC(bold,white)@%eval(@ztvpost).Fancy%char(10)}
#FUNCTION zttitleval {@ztlogo@CC(bold,cyan):@CC(bold,green) All values over @CC(bold,white)%format("&9.0n",@ztvuser) @CC(bold,green)to @CC(bold,white)@%eval(@ztvpost).Fancy%char(10)}
#FUNCTION zttitlepst {@ztlogo@CC(bold,cyan):@CC(bold,green) All values from @CC(bold,white)@%eval(@ztdpost).Fancy @CC(bold,green)to @CC(bold,white)@%eval(@ztvpost).Fancy%char(10)}
#CLASS 0
#CLASS "ZTrader/Display/Commands"
#ALIAS ztFindPost {#FORALL @ztposts {#IF (%pos(%lower(@ztvuser),%i)) {ztdpost = %i}}}
#ALIAS ztCreateDisplay {ztdfull = @ztdhead;ztdfull = %concat(@ztdfull,@ztdashes);ztcreatelines;ztshowdisplay}
#ALIAS ztCreateLines {#FORALL @ztdlist {ztdfull = %concat(@ztdfull,@ztline(%i),%char(10))}}
#ALIAS ztShowDisplay {#IF (@ztdisplayshow) {#SHOW @ztdfull} {#EMOTEALL %char(10)@ztdfull}}
#CLASS 0
#CLASS "ZTrader/Display/Functions"
#FUNCTION ztline {%format("&s&-15s&s&-11s&s&4.0n&s&10.0n&s",@CC(bold,cyan),%db(%eval(@@%1.tp),Fancy),@CC(bold,magenta),%1,@CC(blue),@%1.cwholds,@CC(bold,white),@%1.cwvalue,%concat(%repeat(" ",%eval(%len(%stripansi(@ztdhead))-%eval(44 + %if(@%1.cpm,%len(@%1.cpm),3)))),@ztcpm(@%1.cpm)))}
#FUNCTION ztcpm {%if(!%1,@CC(reset),@CC(bold,%if(%eval(%1/250)>4,white,%case(%eval(%1/250+1),red,red,yellow,green,white))))%if(%1,%1,"N/A")@CC(reset)cpms}
#CLASS 0
#CLASS "Ztrader/Display/Messages"
#ALIAS ztmUpdateDone {#SHOW {@ztlogo @CC(bold,green)Updating goods complete.}}
#ALIAS ztmValDone {#SHOW {@ztlogo @CC(bold,green)Finished valuing at @CC(bold,white)@ztvpost}}
#CLASS 0
#CLASS "ZTrader/Data/TradeShops"
#VARIABLE ztposts {medievia|trellor|enatdae|naeramae|elwyn|rangerscabin|athelasea|derahvilladom|ruellia|newashton|riverton|seasend|mystara|lyryanoth|gdangus|karlisna|newgenesia|vanlarra|urvile}
#VARIABLE derahvilladom {derahvilladom 0 elwyn 1178 gdangus 2379 lyryanoth 1763 medievia 1070 mystara 1625 newashton 1783 newgenesia 1569 rangerscabin 1352 riverton 1622 ruellia 1910 seasend 2663 vanlarra 1836 karlisna 2294 trellor 2275 athelasea 1223 enatdae 862 urvile NA naeramae NA Goods artifacts|candles|herbs|nuts|hemp Fancy DeRah Villadom}
#VARIABLE elwyn {derahvilladom 1178 elwyn 0 gdangus 1863 lyryanoth 655 medievia 554 mystara 1109 newashton 1267 newgenesia 1053 rangerscabin 836 riverton 1106 ruellia 1394 seasend 2147 vanlarra 1320 karlisna 1778 trellor 1759 athelasea 707 enatdae 416 urvile NA naeramae NA Goods aloe|quills|balm Fancy Elwyn}
#VARIABLE gdangus {derahvilladom 2379 elwyn 1863 gdangus 0 lyryanoth 2448 medievia 1331 mystara 1380 newashton 1664 newgenesia 1926 rangerscabin 1061 riverton 1197 ruellia 2267 seasend 670 vanlarra 1591 karlisna 863 trellor 1516 athelasea 1262 enatdae 1617 urvile NA naeramae NA Goods bananas|seed|beans|rice|tobacco Fancy Gdangus}
#VARIABLE lyryanoth {derahvilladom 1763 elwyn 655 gdangus 2448 lyryanoth 0 medievia 1139 mystara 1694 newashton 1852 newgenesia 1638 rangerscabin 1421 riverton 1691 ruellia 1979 seasend 2732 vanlarra 1905 karlisna 2363 trellor 2344 athelasea 1292 enatdae 1001 urvile NA naeramae NA Goods venom|eggs|hides|glowworms|mushrooms Fancy Lyryanoth}
#VARIABLE medievia {derahvilladom 1070 elwyn 554 gdangus 1331 lyryanoth 1139 medievia 0 mystara 575 newashton 781 newgenesia 657 rangerscabin 302 riverton 572 ruellia 998 seasend 1615 vanlarra 786 karlisna 1246 trellor 1273 athelasea 221 enatdae 308 urvile NA naeramae NA Goods ale|tar|salt|sugar|raisins Fancy Medievia}
#VARIABLE mystara {derahvilladom 1625 elwyn 1109 gdangus 1380 lyryanoth 1694 medievia 575 mystara 0 newashton 1336 newgenesia 1212 rangerscabin 743 riverton 307 ruellia 1553 seasend 1664 vanlarra 281 karlisna 1295 trellor 1828 athelasea 776 enatdae 863 urvile NA naeramae NA Goods pearls|teak|carpet|maps|fish Fancy Mystara}
#VARIABLE newashton {derahvilladom 1783 elwyn 1267 gdangus 1664 lyryanoth 1852 medievia 781 mystara 1336 newashton 0 newgenesia 1190 rangerscabin 1063 riverton 1333 ruellia 1531 seasend 1948 vanlarra 1547 karlisna 1579 trellor 496 athelasea 666 enatdae 1021 urvile NA naeramae NA Goods silver|jewels|silicate|nails|copper Fancy NewAshton}
#VARIABLE newgenesia {derahvilladom 1569 elwyn 1053 gdangus 1926 lyryanoth 1638 medievia 657 mystara 1212 newashton 1190 newgenesia 0 rangerscabin 939 riverton 1209 ruellia 399 seasend 2210 vanlarra 1423 karlisna 1841 trellor 1492 athelasea 770 enatdae 807 urvile NA naeramae NA Goods tools|adamantite|coal|poppyseed|iron Fancy NewGenesia}
#VARIABLE rangerscabin {derahvilladom 1352 elwyn 836 gdangus 1061 lyryanoth 1421 medievia 302 mystara 743 newashton 1063 newgenesia 939 rangerscabin 0 riverton 586 ruellia 1280 seasend 1345 vanlarra 954 karlisna 976 trellor 1555 athelasea 503 enatdae 590 urvile NA naeramae NA Goods sap|furs|timber|rations|ivory Fancy Ranger's Cabin}
#VARIABLE riverton {derahvilladom 1622 elwyn 1106 gdangus 1197 lyryanoth 1691 medievia 572 mystara 307 newashton 1333 newgenesia 1209 rangerscabin 586 riverton 0 ruellia 1550 seasend 1481 vanlarra 518 karlisna 1112 trellor 1707 athelasea 773 enatdae 860 urvile NA naeramae NA Goods brandy|metals|honey|grapes|fertilizer Fancy Riverton}
#VARIABLE ruellia {derahvilladom 1910 elwyn 1394 gdangus 2267 lyryanoth 1979 medievia 998 mystara 1553 newashton 1531 newgenesia 399 rangerscabin 1280 riverton 1550 ruellia 0 seasend 2551 vanlarra 1764 karlisna 2182 trellor 1833 athelasea 1111 enatdae 1148 urvile NA naeramae NA Goods emeralds|willowbark|cloaks|rope|waybread Fancy Ruellia}
#VARIABLE seasend {derahvilladom 2663 elwyn 2147 gdangus 670 lyryanoth 2732 medievia 1615 mystara 1664 newashton 1948 newgenesia 2210 rangerscabin 1345 riverton 1481 ruellia 2551 seasend 0 vanlarra 1875 karlisna 1147 trellor 1800 athelasea 1546 enatdae 1901 urvile NA naeramae NA Goods opals|ambergris|shells|nets|kelp Fancy Sea's End}
#VARIABLE vanlarra {derahvilladom 1836 elwyn 1320 gdangus 1591 lyryanoth 1905 medievia 786 mystara 281 newashton 1547 newgenesia 1423 rangerscabin 954 riverton 518 ruellia 1764 seasend 1875 vanlarra 0 karlisna 1506 trellor 2039 athelasea 987 enatdae 1074 urvile NA naeramae NA Goods wands|crystal|rum|figs|molasses Fancy Vanlarra}
#VARIABLE karlisna {derahvilladom 2294 elwyn 1778 gdangus 863 lyryanoth 2363 medievia 1246 mystara 1295 newashton 1579 newgenesia 1841 rangerscabin 976 riverton 1112 ruellia 2182 seasend 1147 vanlarra 1506 karlisna 0 trellor 1347 athelasea 1177 enatdae 1532 urvile NA naeramae NA Goods books|cloth|spices|beer|dates Fancy Karlisna}
#VARIABLE trellor {derahvilladom 2275 elwyn 1759 gdangus 1516 lyryanoth 2344 medievia 1273 mystara 1828 newashton 496 newgenesia 1492 rangerscabin 1555 riverton 1707 ruellia 1833 seasend 1800 vanlarra 2039 karlisna 1347 trellor 0 athelasea 1158 enatdae 1513 urvile NA naeramae NA Goods perfume|wine|oils|incense|ink Fancy Trellor}
#VARIABLE athelasea {derahvilladom 1223 elwyn 707 gdangus 1262 lyryanoth 1292 medievia 221 mystara 776 newashton 666 newgenesia 770 rangerscabin 503 riverton 773 ruellia 1111 seasend 1546 vanlarra 987 karlisna 1177 trellor 1158 athelasea 0 enatdae 461 urvile NA naeramae NA Goods flowers|arrows|bows|art|parchment Fancy Athelasea}
#VARIABLE enatdae {derahvilladom 862 elwyn 416 gdangus 1617 lyryanoth 1001 medievia 308 mystara 863 newashton 1021 newgenesia 807 rangerscabin 590 riverton 860 ruellia 1148 seasend 1901 vanlarra 1074 karlisna 1532 trellor 1513 athelasea 461 enatdae 0 urvile NA naeramae NA Goods quilts|silk|fans|silkworms|illutian Fancy E'nat'dae}
#VARIABLE urvile {derahvilladom NA elwyn NA gdangus NA lyryanoth NA medievia NA mystara NA newashton NA newgenesia NA rangerscabin NA riverton NA ruellia NA seasend NA vanlarra NA karlisna NA trellor NA athelasea NA enatdae NA urvile NA naeramae NA Goods Fancy Ur-Vile}
#VARIABLE naeramae {derahvilladom NA elwyn NA gdangus NA lyryanoth NA medievia NA mystara NA newashton NA newgenesia NA rangerscabin NA riverton NA ruellia NA seasend NA vanlarra NA karlisna NA trellor NA athelasea NA enatdae NA urvile NA naeramae NA Goods armor|chains|mead|pelts|weapons Fancy NaeraMae}
#CLASS 0
#CLASS "ZTrader/Data/Goods"
#CLASS 0
#CLASS "ZTrader|Triggers|Valuing" {disable}
#TRIGGER {A covered wagon horse can carry (%n) %w of (%w). We'll pay you (%n) gold for that.} {#CLASS "ZTrader/Data/Goods";%2.cwvalue = %3;%2.cwholds = %1;%2.cpm = %eval(%3/%db(%eval(@@%2.tp),@ztvpost));#CLASS 0;ztvalnext}
#CLASS 0
//
#CLASS "Ztrader|Triggers|Tradeposts" {disable}
#TRIGGER {Hidden City} {ztvpost = "enatdae";ztpostfound}
#TRIGGER {A Minotaur Trading Outpost} {ztvpost = "naeramae";ztpostfound}
#TRIGGER {A Quiet Temple Shop} {ztvpost = "elwyn";ztpostfound}
#TRIGGER {A Ranger's Cabin} {ztvpost = "rangerscabin";ztpostfound}
#TRIGGER {An Elven Marketplace} {ztvpost = "athelasea";ztpostfound}
#TRIGGER {DeRah Villadom's Small Trading Post} {ztvpost = "derahvilladom";ztpostfound}
#TRIGGER {Hidden Valley Traders, Inc.} {ztvpost = "ruellia";ztpostfound}
#TRIGGER {Medievia Trading Shop} {ztvpost = "medievia";ztpostfound}
#TRIGGER {New Ashton Trading Post} {ztvpost = "newashton";ztpostfound}
#TRIGGER {Riverton Trading Partners} {ztvpost = "riverton";ztpostfound}
#TRIGGER {Sea's End Direct Merchants} {ztvpost = "seasend";ztpostfound}
#TRIGGER {Tanivsport Traders} {ztvpost = "mystara";ztpostfound}
#TRIGGER {The Lizard Boulangere} {ztvpost = "lyryanoth";ztpostfound}
#TRIGGER {The Trading Post of G'dangus} {ztvpost = "gdangus";ztpostfound}
#TRIGGER {Trading Post of the City of Karlisna} {ztvpost = "karlisna";ztpostfound}
#TRIGGER {Trading Post of the Dark Army} {ztvpost = "newgenesia";ztpostfound}
#TRIGGER {Trading Shop of Trellor City} {ztvpost = "trellor";ztpostfound}
#TRIGGER {Ur-vile Feeding Hall} {ztvpost = "urvile";ztpostfound}
#TRIGGER {Vanlarra Imports and Exports} {ztvpost = "vanlarra";ztpostfound}
#CLASS 0
#T- "Ztrader|Triggers|Tradeposts"
#T- "ZTrader|Triggers|Valuing"
|
Jesse Caebryn(53) |
|
