Sgqvur
FullOfUltimateTruthsAndEt ernalPrinciples, i.e shi
- Reaction score
- 62
Requires:
Unit Indexer by Nestharus
GrimexManual (file:///somewhere_on_you_hd/newgen/jassnewgenpack5d/grimext/GrimexManual.html) by PitzerMike
A spreadsheet program like OpenOffice.org Calc
After clearing the requirements I will try to explain what tilems does and how to use it (hopefully).
Well tilems is just a script that happens to control how much bonus movement speed will a given unit (actaully it's type) will
have while moving over a given terrain type. To configure this the user has to edit a .slk file. The demo map's .slk file is in the zip (could not directly upload slk).
I will try to explain the demo map. First a unit type that must be picked (say 'hfoo'), then some terrain tile(s) are picked. The tiles are picked by opening the GrimexManual and going to the Tile Id List section. Then say we want to make the footmen run slower on "Lordaeron Summer Dark Grass" tile, we open the slk find the "Lordaeron Summer Dark Grass"'s id which is 'Lgrd' (it's written on the left in the GrimexManual) and under it we specify a real value (negative if we want to reduce the movement speed and positive to increase it), if the value is say 0.5 it means that the 'hfoo' movement speed over "Lordaeron Summer Dark Grass" will be increased by 50%. That's it.
=)
Edit: Now works for preplaced units as well, all tiles are included this time and the .slk generates much less script. =)
Unit Indexer by Nestharus
* WorldBounds
* Event
SpeedMod by DiracGrimexManual (file:///somewhere_on_you_hd/newgen/jassnewgenpack5d/grimext/GrimexManual.html) by PitzerMike
A spreadsheet program like OpenOffice.org Calc
After clearing the requirements I will try to explain what tilems does and how to use it (hopefully).
Well tilems is just a script that happens to control how much bonus movement speed will a given unit (actaully it's type) will
have while moving over a given terrain type. To configure this the user has to edit a .slk file. The demo map's .slk file is in the zip (could not directly upload slk).
I will try to explain the demo map. First a unit type that must be picked (say 'hfoo'), then some terrain tile(s) are picked. The tiles are picked by opening the GrimexManual and going to the Tile Id List section. Then say we want to make the footmen run slower on "Lordaeron Summer Dark Grass" tile, we open the slk find the "Lordaeron Summer Dark Grass"'s id which is 'Lgrd' (it's written on the left in the GrimexManual) and under it we specify a real value (negative if we want to reduce the movement speed and positive to increase it), if the value is say 0.5 it means that the 'hfoo' movement speed over "Lordaeron Summer Dark Grass" will be increased by 50%. That's it.
=)
JASS:
library tilems uses UnitIndexer SpeedMod
globals
// When a unit goes from one tile to a different one
// it's movement speed bonus will be recalculated
// within a maximum delay of:
private real TILE_TRANSITION_DELAY = 1.0 // in seconds
private hashtable HT = InitHashtable()
private group G = CreateGroup()
private group swap = CreateGroup()
//int i
endglobals
// jasshelper loads the data from the .slk and
// puts it in to the struct then
// the data is taken from the struct and is loaded
// in to the hashtable for "easier" access
//
//! loaddata "tilems.slk"
struct tilemsld extends array
real Ldrt
real Ldro
real Ldrg
real Lrok
real Lgrs
real Lgrd
real Fdrt
real Fdro
real Fdrg
real Frok
real Fgrs
real Fgrd
real Wdrt
real Wdro
real Wsng
real Wrok
real Wgrs
real Wsnw
real Bdrt
real Bdrh
real Bdrr
real Bdrg
real Bdsr
real Bdsd
real Bflr
real Bgrr
real Adrt
real Adrd
real Agrs
real Arck
real Agrd
real Avin
real Adrg
real Alvd
real Cdrt
real Cdrd
real Cpos
real Crck
real Cvin
real Cgrs
real Clvg
real Ndrt
real Ndrd
real Nrck
real Ngrs
real Nice
real Nsnw
real Nsnr
real Ydrt
real Ydtr
real Yblm
real Ybtl
real Ysqd
real Yrtl
real Ygsb
real Yhdg
real Ywmb
real Vdrt
real Vdrr
real Vcrp
real Vcbp
real Vstp
real Vgrs
real Vrck
real Vgrt
real Qdrt
real Qdrr
real Qcrp
real Qcbp
real Qstp
real Qgrs
real Qrck
real Qgrt
real Xdrt
real Xdtr
real Xblm
real Xbtl
real Xsqd
real Xrtl
real Xgsb
real Xhdg
real Xwmb
real Ddrt
real Dbrk
real Drds
real Dlvc
real Dlav
real Ddkr
real Dgrs
real Dsqd
real Gdrt
real Gbrk
real Grds
real Glvc
real Glav
real Gdkr
real Ggrs
real Gsqd
real Zdrt
real Zdtr
real Zdrg
real Zbks
real Zsan
real Zbkl
real Ztil
real Zgrs
real Zvin
real Idrt
real Idtr
real Idki
real Ibkb
real Irbk
real Itbk
real Iice
real Ibsq
real Isnw
real Odrt
real Odtr
real Osmb
real Ofst
real Olgb
real Orok
real Ofsl
real Oaby
real Kdrt
real Kfsl
real Kdtr
real Kfst
real Ksmb
real Klgb
real Ksqt
real Kdkt
real Jdrt
real Jdtr
real Jblm
real Jbtl
real Jsqd
real Jrtl
real Jgsb
real Jhdg
real Jwmb
real cAc2
real cAc1
real cBc2
real cBc1
real cKc1
real cKc2
real cYc2
real cYc1
real cXc2
real cXc1
real cJc2
real cJc1
real cDc2
real cDc1
real cCc2
real cCc1
real cIc2
real cIc1
real cFc2
real cFc1
real cLc2
real cLc1
real cWc2
real cWc1
real cNc2
real cNc1
real cOc1
real cOc2
real cZc2
real cZc1
real cGc2
real cGc1
real cVc2
real cVc1
real cQc2
real cQc1
static key TCX
static integer sid = 1
static integer array uids
static method getFromKey takes integer uid returns tilemsld
local tilemsld s = LoadInteger(HT, uid, TCX)
if s == 0 then
set s = sid
// map 1, 2, ..., sid to uid('hfoo', 'etc.')
set uids[sid] = uid
// map uid('hfoo', 'etc.') to, 1, 2, ..., sid
call SaveInteger(HT, uid, TCX, sid)
set sid = sid + 1
endif
return s
endmethod
static method init takes nothing returns nothing
local tilemsld t
local integer uid
local integer i = 1
loop
exitwhen i >= tilemsld.sid
set uid = tilemsld.uids<i>
set t = LoadInteger(HT, uid, TCX)
call SaveReal(HT, uid, 'Ldrt', t.Ldrt)
call SaveReal(HT, uid, 'Ldro', t.Ldro)
call SaveReal(HT, uid, 'Ldrg', t.Ldrg)
call SaveReal(HT, uid, 'Lrok', t.Lrok)
call SaveReal(HT, uid, 'Lgrs', t.Lgrs)
call SaveReal(HT, uid, 'Lgrd', t.Lgrd)
call SaveReal(HT, uid, 'Fdrt', t.Fdrt)
call SaveReal(HT, uid, 'Fdro', t.Fdro)
call SaveReal(HT, uid, 'Fdrg', t.Fdrg)
call SaveReal(HT, uid, 'Frok', t.Frok)
call SaveReal(HT, uid, 'Fgrs', t.Fgrs)
call SaveReal(HT, uid, 'Fgrd', t.Fgrd)
call SaveReal(HT, uid, 'Wdrt', t.Wdrt)
call SaveReal(HT, uid, 'Wdro', t.Wdro)
call SaveReal(HT, uid, 'Wsng', t.Wsng)
call SaveReal(HT, uid, 'Wrok', t.Wrok)
call SaveReal(HT, uid, 'Wgrs', t.Wgrs)
call SaveReal(HT, uid, 'Wsnw', t.Wsnw)
call SaveReal(HT, uid, 'Bdrt', t.Bdrt)
call SaveReal(HT, uid, 'Bdrh', t.Bdrh)
call SaveReal(HT, uid, 'Bdrr', t.Bdrr)
call SaveReal(HT, uid, 'Bdrg', t.Bdrg)
call SaveReal(HT, uid, 'Bdsr', t.Bdsr)
call SaveReal(HT, uid, 'Bdsd', t.Bdsd)
call SaveReal(HT, uid, 'Bflr', t.Bflr)
call SaveReal(HT, uid, 'Bgrr', t.Bgrr)
call SaveReal(HT, uid, 'Adrt', t.Adrt)
call SaveReal(HT, uid, 'Adrd', t.Adrd)
call SaveReal(HT, uid, 'Agrs', t.Agrs)
call SaveReal(HT, uid, 'Arck', t.Arck)
call SaveReal(HT, uid, 'Agrd', t.Agrd)
call SaveReal(HT, uid, 'Avin', t.Avin)
call SaveReal(HT, uid, 'Adrg', t.Adrg)
call SaveReal(HT, uid, 'Alvd', t.Alvd)
call SaveReal(HT, uid, 'Cdrt', t.Cdrt)
call SaveReal(HT, uid, 'Cdrd', t.Cdrd)
call SaveReal(HT, uid, 'Cpos', t.Cpos)
call SaveReal(HT, uid, 'Crck', t.Crck)
call SaveReal(HT, uid, 'Cvin', t.Cvin)
call SaveReal(HT, uid, 'Cgrs', t.Cgrs)
call SaveReal(HT, uid, 'Clvg', t.Clvg)
call SaveReal(HT, uid, 'Ndrt', t.Ndrt)
call SaveReal(HT, uid, 'Ndrd', t.Ndrd)
call SaveReal(HT, uid, 'Nrck', t.Nrck)
call SaveReal(HT, uid, 'Ngrs', t.Ngrs)
call SaveReal(HT, uid, 'Nice', t.Nice)
call SaveReal(HT, uid, 'Nsnw', t.Nsnw)
call SaveReal(HT, uid, 'Nsnr', t.Nsnr)
call SaveReal(HT, uid, 'Ydrt', t.Ydrt)
call SaveReal(HT, uid, 'Ydtr', t.Ydtr)
call SaveReal(HT, uid, 'Yblm', t.Yblm)
call SaveReal(HT, uid, 'Ybtl', t.Ybtl)
call SaveReal(HT, uid, 'Ysqd', t.Ysqd)
call SaveReal(HT, uid, 'Yrtl', t.Yrtl)
call SaveReal(HT, uid, 'Ygsb', t.Ygsb)
call SaveReal(HT, uid, 'Yhdg', t.Yhdg)
call SaveReal(HT, uid, 'Ywmb', t.Ywmb)
call SaveReal(HT, uid, 'Vdrt', t.Vdrt)
call SaveReal(HT, uid, 'Vdrr', t.Vdrr)
call SaveReal(HT, uid, 'Vcrp', t.Vcrp)
call SaveReal(HT, uid, 'Vcbp', t.Vcbp)
call SaveReal(HT, uid, 'Vstp', t.Vstp)
call SaveReal(HT, uid, 'Vgrs', t.Vgrs)
call SaveReal(HT, uid, 'Vrck', t.Vrck)
call SaveReal(HT, uid, 'Vgrt', t.Vgrt)
call SaveReal(HT, uid, 'Qdrt', t.Qdrt)
call SaveReal(HT, uid, 'Qdrr', t.Qdrr)
call SaveReal(HT, uid, 'Qcrp', t.Qcrp)
call SaveReal(HT, uid, 'Qcbp', t.Qcbp)
call SaveReal(HT, uid, 'Qstp', t.Qstp)
call SaveReal(HT, uid, 'Qgrs', t.Qgrs)
call SaveReal(HT, uid, 'Qrck', t.Qrck)
call SaveReal(HT, uid, 'Qgrt', t.Qgrt)
call SaveReal(HT, uid, 'Xdrt', t.Xdrt)
call SaveReal(HT, uid, 'Xdtr', t.Xdtr)
call SaveReal(HT, uid, 'Xblm', t.Xblm)
call SaveReal(HT, uid, 'Xbtl', t.Xbtl)
call SaveReal(HT, uid, 'Xsqd', t.Xsqd)
call SaveReal(HT, uid, 'Xrtl', t.Xrtl)
call SaveReal(HT, uid, 'Xgsb', t.Xgsb)
call SaveReal(HT, uid, 'Xhdg', t.Xhdg)
call SaveReal(HT, uid, 'Xwmb', t.Xwmb)
call SaveReal(HT, uid, 'Ddrt', t.Ddrt)
call SaveReal(HT, uid, 'Dbrk', t.Dbrk)
call SaveReal(HT, uid, 'Drds', t.Drds)
call SaveReal(HT, uid, 'Dlvc', t.Dlvc)
call SaveReal(HT, uid, 'Dlav', t.Dlav)
call SaveReal(HT, uid, 'Ddkr', t.Ddkr)
call SaveReal(HT, uid, 'Dgrs', t.Dgrs)
call SaveReal(HT, uid, 'Dsqd', t.Dsqd)
call SaveReal(HT, uid, 'Gdrt', t.Gdrt)
call SaveReal(HT, uid, 'Gbrk', t.Gbrk)
call SaveReal(HT, uid, 'Grds', t.Grds)
call SaveReal(HT, uid, 'Glvc', t.Glvc)
call SaveReal(HT, uid, 'Glav', t.Glav)
call SaveReal(HT, uid, 'Gdkr', t.Gdkr)
call SaveReal(HT, uid, 'Ggrs', t.Ggrs)
call SaveReal(HT, uid, 'Gsqd', t.Gsqd)
call SaveReal(HT, uid, 'Zdrt', t.Zdrt)
call SaveReal(HT, uid, 'Zdtr', t.Zdtr)
call SaveReal(HT, uid, 'Zdrg', t.Zdrg)
call SaveReal(HT, uid, 'Zbks', t.Zbks)
call SaveReal(HT, uid, 'Zsan', t.Zsan)
call SaveReal(HT, uid, 'Zbkl', t.Zbkl)
call SaveReal(HT, uid, 'Ztil', t.Ztil)
call SaveReal(HT, uid, 'Zgrs', t.Zgrs)
call SaveReal(HT, uid, 'Zvin', t.Zvin)
call SaveReal(HT, uid, 'Idrt', t.Idrt)
call SaveReal(HT, uid, 'Idtr', t.Idtr)
call SaveReal(HT, uid, 'Idki', t.Idki)
call SaveReal(HT, uid, 'Ibkb', t.Ibkb)
call SaveReal(HT, uid, 'Irbk', t.Irbk)
call SaveReal(HT, uid, 'Itbk', t.Itbk)
call SaveReal(HT, uid, 'Iice', t.Iice)
call SaveReal(HT, uid, 'Ibsq', t.Ibsq)
call SaveReal(HT, uid, 'Isnw', t.Isnw)
call SaveReal(HT, uid, 'Odrt', t.Odrt)
call SaveReal(HT, uid, 'Odtr', t.Odtr)
call SaveReal(HT, uid, 'Osmb', t.Osmb)
call SaveReal(HT, uid, 'Ofst', t.Ofst)
call SaveReal(HT, uid, 'Olgb', t.Olgb)
call SaveReal(HT, uid, 'Orok', t.Orok)
call SaveReal(HT, uid, 'Ofsl', t.Ofsl)
call SaveReal(HT, uid, 'Oaby', t.Oaby)
call SaveReal(HT, uid, 'Kdrt', t.Kdrt)
call SaveReal(HT, uid, 'Kfsl', t.Kfsl)
call SaveReal(HT, uid, 'Kdtr', t.Kdtr)
call SaveReal(HT, uid, 'Kfst', t.Kfst)
call SaveReal(HT, uid, 'Ksmb', t.Ksmb)
call SaveReal(HT, uid, 'Klgb', t.Klgb)
call SaveReal(HT, uid, 'Ksqt', t.Ksqt)
call SaveReal(HT, uid, 'Kdkt', t.Kdkt)
call SaveReal(HT, uid, 'Jdrt', t.Jdrt)
call SaveReal(HT, uid, 'Jdtr', t.Jdtr)
call SaveReal(HT, uid, 'Jblm', t.Jblm)
call SaveReal(HT, uid, 'Jbtl', t.Jbtl)
call SaveReal(HT, uid, 'Jsqd', t.Jsqd)
call SaveReal(HT, uid, 'Jrtl', t.Jrtl)
call SaveReal(HT, uid, 'Jgsb', t.Jgsb)
call SaveReal(HT, uid, 'Jhdg', t.Jhdg)
call SaveReal(HT, uid, 'Jwmb', t.Jwmb)
call SaveReal(HT, uid, 'cAc2', t.cAc2)
call SaveReal(HT, uid, 'cAc1', t.cAc1)
call SaveReal(HT, uid, 'cBc2', t.cBc2)
call SaveReal(HT, uid, 'cBc1', t.cBc1)
call SaveReal(HT, uid, 'cKc1', t.cKc1)
call SaveReal(HT, uid, 'cKc2', t.cKc2)
call SaveReal(HT, uid, 'cYc2', t.cYc2)
call SaveReal(HT, uid, 'cYc1', t.cYc1)
call SaveReal(HT, uid, 'cXc2', t.cXc2)
call SaveReal(HT, uid, 'cXc1', t.cXc1)
call SaveReal(HT, uid, 'cJc2', t.cJc2)
call SaveReal(HT, uid, 'cJc1', t.cJc1)
call SaveReal(HT, uid, 'cDc2', t.cDc2)
call SaveReal(HT, uid, 'cDc1', t.cDc1)
call SaveReal(HT, uid, 'cCc2', t.cCc2)
call SaveReal(HT, uid, 'cCc1', t.cCc1)
call SaveReal(HT, uid, 'cIc2', t.cIc2)
call SaveReal(HT, uid, 'cIc1', t.cIc1)
call SaveReal(HT, uid, 'cFc2', t.cFc2)
call SaveReal(HT, uid, 'cFc1', t.cFc1)
call SaveReal(HT, uid, 'cLc2', t.cLc2)
call SaveReal(HT, uid, 'cLc1', t.cLc1)
call SaveReal(HT, uid, 'cWc2', t.cWc2)
call SaveReal(HT, uid, 'cWc1', t.cWc1)
call SaveReal(HT, uid, 'cNc2', t.cNc2)
call SaveReal(HT, uid, 'cNc1', t.cNc1)
call SaveReal(HT, uid, 'cOc1', t.cOc1)
call SaveReal(HT, uid, 'cOc2', t.cOc2)
call SaveReal(HT, uid, 'cZc2', t.cZc2)
call SaveReal(HT, uid, 'cZc1', t.cZc1)
call SaveReal(HT, uid, 'cGc2', t.cGc2)
call SaveReal(HT, uid, 'cGc1', t.cGc1)
call SaveReal(HT, uid, 'cVc2', t.cVc2)
call SaveReal(HT, uid, 'cVc1', t.cVc1)
call SaveReal(HT, uid, 'cQc2', t.cQc2)
call SaveReal(HT, uid, 'cQc1', t.cQc1)
set i = i + 1
endloop
// add the preplaced units to G if
// their id was in the .slk
//call ExecuteFunc("s__tilemsld_add_preplaced_units_to_G")
call ExecuteFunc(tilemsld.add_preplaced_units_to_G.name)
endmethod
static method add_preplaced_units_to_G takes nothing returns nothing
local unit u
local integer i
local integer uid
call GroupEnumUnitsInRect(swap, bj_mapInitialPlayableArea, null)
loop
set u = FirstOfGroup(swap)
exitwhen u == null
set i = 1
set uid = GetUnitTypeId(u)
loop
exitwhen i >= sid
if uid == uids<i> then
call GroupAddUnit(G, u)
exitwhen true
endif
set i = i + 1
endloop
call GroupRemoveUnit(swap, u)
endloop
endmethod
static method onInit takes nothing returns nothing
call TimerStart(CreateTimer(), 0, false, function tilemsld.init)
endmethod
endstruct
private struct grouper extends array
integer cur_tile
integer prev_tile
SpeedMod sm
static method filter takes unit u returns boolean
local integer uid = GetUnitTypeId(u)
local integer i = 1
loop
exitwhen i >= tilemsld.sid
if uid == tilemsld.uids<i> then
return true
endif
set i = i + 1
endloop
return false
endmethod
method index takes nothing returns nothing
//set cur_tile = 0 //GetTerrainType(GetUnitX(unit), GetUnitY(unit))
set prev_tile = 0
set sm = 0
call GroupAddUnit(G, unit)
endmethod
method deindex takes nothing returns nothing
call GroupRemoveUnit(G, unit)
if sm != 0 then
call sm.destroy()
endif
endmethod
implement UnitIndexStruct
endstruct
private struct looper extends array
static method act takes nothing returns nothing
local unit u
local group g
local grouper d
local integer uid
loop
set u = FirstOfGroup(G)
exitwhen u == null
call GroupRemoveUnit(G, u)
call GroupAddUnit(swap, u)
set d = GetUnitUserData(u)
set d.cur_tile = GetTerrainType(GetUnitX(u), GetUnitY(u))
// the unit moved to a different tile
if d.cur_tile != d.prev_tile then
if d.sm != 0 then
call d.sm.destroy()
endif
set uid = GetUnitTypeId(u)
// recalculate the speed mod
// only if the unit actually has one for the
// current tile, i.e it is != 0
//
if LoadReal(HT, uid, d.cur_tile) != 0 then
set d.sm = SpeedMod.create(u, LoadReal(HT, uid, d.cur_tile))
else
set d.sm = 0
endif
endif
set d.prev_tile = d.cur_tile
endloop
set g = G
set G = swap
set swap = g
// set g = null
set u = null
endmethod
static method onInit takes nothing returns nothing
call TimerStart(CreateTimer(), TILE_TRANSITION_DELAY, true, function looper.act)
endmethod
endstruct
endlibrary
</i></i></i>Edit: Now works for preplaced units as well, all tiles are included this time and the .slk generates much less script. =)
