| 07-05-2009, 03:08 PM | #1 |
I've been having this problem for around an hour now and I still can't figure it out, which is driving me totally insane - I've looked for every single mistake in my code and put debug messages everywhere. And still no effect - the code just doesn't work at some place (in a function call particularly). Everything in it is fine: values get increased, checks get ran but when it comes to updating the multi board nothing happens. It can't be from the system I'm using since it worked a few moments before everything just stopped. Look at the function UpdateMultiboard - it is supposed to call some other function that increases the value in some column or row. To give a short explanation on this thing - when a player's Hero attacks, 3 wisps colored in light blue and owned by player passive appear above the attacked unit's head. At random intervals one of the wisps turns into a different color and once the player is quick enough to click it, it gets light blue again and grants a "level" point for the player. The process repeats again and again, the level point gets higher and higher and all this stuff has to get pasted into a multi board, individual for each player. It is sorted like this: Combo name | Bounty | Bonus damage "something" | 15 | 25% However, the multi board never gets updated, and I have no idea why.  JASS:library ComboLib initializer Init uses TimerUtils, PUI, AMS, TimedLoop, xebasic, GetPlayerColored // ID is for referencing some things about the wisps //! runtextmacro PUI_PROPERTY("private", "integer", "ID", "141421") // Time is used to count some combo stuff //! runtextmacro PUI_PROPERTY("private", "integer", "TIME", "7") globals private constant string TITLE = "Combo Meter" private constant integer ROWS = 4 private constant integer COLLUMNS = 3 endglobals globals // declare multiboards for each player.. Multiboard mb1 Multiboard mb2 Multiboard mb3 Multiboard mb4 Multiboard mb5 Multiboard mb6 Multiboard mb7 Multiboard mb8 // and an array to store them (they are actually structs) integer array mb // used with GetPlayerId() for array index - to determine the level of combo integer array LEVEL // Text displayed for each level (displayed on the multiboard) string array TEXT // Bonus bounty used for some other cases (also displayed on mb) integer array BOUNTY // And bonus damage multiplier for other stuff (also displayed on mb) real array MULTIPLIER // I store some player colors since I change the wisps playercolor array PLAYER_COLOR endglobals globals //private Table t - same syntax private integer array t private integer a = 0 private real gx = 0. private real gy = 0. // Group containing all heroes so TIME[] can be subtracted from them private group gr = CreateGroup() endglobals // MY NIGHTMARE, IT JUST DOESN'T WORK private function UpdateMultiboard takes unit cast, integer lvl returns nothing local player p = GetOwningPlayer(cast) local integer pid = GetPlayerId(p) local Multiboard mult = mb[pid] /* call mult.SetItem(3, 1, TEXT[LEVEL[pid]]) call mult.SetItem(3, 2, I2S(BOUNTY[LEVEL[pid]])) call mult.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[pid]])) */ call mult.SetItem(3, 1, TEXT[lvl]) call mult.SetItem(3, 2, I2S(BOUNTY[lvl])) call mult.SetItem(3, 3, R2S(MULTIPLIER[lvl])) call mult.Fold() call mult.Unfold() endfunction private struct Data unit cast unit targ player owner unit array wisp[3] // To determine whether the wisp is colored or not // (by colored I mean color other than light blue since that looks like white) boolean array yes[3] timer tim trigger trig boolean held = false integer clicks private method onTimedLoop takes nothing returns boolean if GetWidgetLife(this.targ) > 0.405 and GetWidgetLife(this.cast) > 0.405 and GetWidgetLife(this.wisp[0]) > 0.405 and GetWidgetLife(this.wisp[1]) > 0.405 and GetWidgetLife(this.wisp[2]) > 0.405 then set a = 0 set gx = GetUnitX(this.targ) set gy = GetUnitY(this.targ) loop exitwhen a > 2 call SetUnitX(this.wisp[a], gx - (50. * a)) call SetUnitY(this.wisp[a], gy + (50. * a)) set a = a + 1 endloop else set a = 0 loop exitwhen a > 2 call KillUnit(this.wisp[a]) set a = a + 1 endloop return TimedLoop_STOP endif return TimedLoop_CONTINUE endmethod implement TimedLoop private static method onCallback takes nothing returns nothing local thistype this = GetTimerData(GetExpiredTimer()) set a = 0 loop exitwhen a > 2 set this.yes[a] = false call SetUnitOwner(this.wisp[a], Player(PLAYER_NEUTRAL_PASSIVE), false) call SetUnitColor(this.wisp[a], PLAYER_COLOR_LIGHT_BLUE) set a = a + 1 endloop set a = GetRandomInt(0, 2) set this.yes[a] = true call SetUnitColor(this.wisp[a], PLAYER_COLOR[GetRandomInt(0, 7)]) // ^ get a random wisp and color it // This works... set gx = 2. - (0.1 * LEVEL[GetPlayerId(GetOwningPlayer(this.cast))]) if gx < 0.8 then set gx = 0.8 endif call SetTimerData(this.tim, this) call TimerStart(this.tim, gx, false, function thistype.onCallback) endmethod static method create takes unit cast returns thistype local thistype this = thistype.allocate() set this.cast = cast set this.tim = NewTimer() set this.trig = CreateTrigger() set t[GetUnitIndex(this.cast)] = integer(this) set this.owner = GetOwningPlayer(this.cast) set this.clicks = 0 call this.startTimedLoop() call SetTimerData(this.tim, this) // this works... set gx = 2. - (0.1 * LEVEL[GetPlayerId(GetOwningPlayer(this.cast))]) if gx < 0.8 then set gx = 0.8 endif call TimerStart(this.tim, gx, false, function thistype.onCallback) return this endmethod private static method onSelect takes nothing returns boolean local unit sel = GetTriggerUnit() local integer id = ID[sel] local thistype this = thistype(t[GetUnitIndex(sel)]) local player p = GetOwningPlayer(this.cast) local integer pid = GetPlayerId(p) local integer lvl local Multiboard mult // everything works here... if this.yes[id] == true then if LEVEL[pid] < 14 then set LEVEL[pid] = LEVEL[pid] + 1 endif set mult = mb[pid] set lvl = LEVEL[pid] // EXCEPT THIS ONE ... -.- call UpdateMultiboard.execute(this.cast, LEVEL[pid]) // works.... set this.yes[id] = false //call SetUnitOwner(this.wisp[id], Player(PLAYER_NEUTRAL_PASSIVE), false) call SetUnitColor(this.wisp[id], PLAYER_COLOR_LIGHT_BLUE) endif // works... T_T if GetLocalPlayer() == p then call ClearSelection() call SelectUnit(this.cast, true) endif set t[GetUnitIndex(sel)] = this return false endmethod method wispSwap takes unit targ returns nothing local real tx = GetUnitX(targ) local real ty = GetUnitY(targ) set this.targ = targ set a = 0 loop exitwhen a > 2 call RemoveUnit(this.wisp[a]) set this.wisp[a] = CreateUnit(GetOwningPlayer(this.cast), 'e004', tx, ty, 0.) call UnitAddAbility(this.wisp[a], 'Amrf') call UnitRemoveAbility(this.wisp[a], 'Amrf') call SetUnitFlyHeight(this.wisp[a], 150., 0.) call SetUnitColor(this.wisp[a], PLAYER_COLOR_LIGHT_BLUE) // desync? //call ShowUnit(this.wisp[a], GetOwningPlayer(this.wisp[a]) == GetLocalPlayer()) call TriggerRegisterUnitEvent(this.trig, this.wisp[a], EVENT_UNIT_SELECTED) call TriggerAddCondition(this.trig, Condition(function thistype.onSelect)) set ID[this.wisp[a]] = a set t[GetUnitIndex(this.wisp[a])] = integer(this) set a = a + 1 endloop // works... call this.startTimedLoop() endmethod method onDestroy takes nothing returns nothing call TriggerClearConditions(this.trig) call DisableTrigger(this.trig) call DestroyTrigger(this.trig) call ReleaseTimer(this.tim) set a = 0 loop exitwhen a > 2 call RemoveUnit(this.wisp[a]) set a = a + 1 endloop endmethod endstruct // Works... (I separated it into another function since I thought the timer callback couldn't handle so much function calls... but actually it could so that wasn't the problem) private function MultiboardCreation takes nothing returns nothing call TriggerSleepAction(0) set mb1 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb1.SetItemWidth(1, 1, 8) // "Combo name" call mb1.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb1.SetItemWidth(1, 3, 8) // "Bonus damage" call mb1.SetItemWidth(2, 1, 1) call mb1.SetItemWidth(2, 2, 1) call mb1.SetItemWidth(2, 3, 1) call mb1.SetItemWidth(3, 1, 8) call mb1.SetItemWidth(3, 2, 8) call mb1.SetItemWidth(3, 3, 8) call mb1.SetItem(1, 1, "|cffffcc00Combo name|r") call mb1.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb1.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb1.SetItem(3, 1, TEXT[LEVEL[0]]) call mb1.SetItem(3, 2, I2S(BOUNTY[LEVEL[0]])) call mb1.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[0]])) if GetLocalPlayer() == Player(0) then call mb1.Show() endif set mb2 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb2.SetItemWidth(1, 1, 8) // "Combo name" call mb2.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb2.SetItemWidth(1, 3, 8) // "Bonus damage" call mb2.SetItemWidth(2, 1, 1) call mb2.SetItemWidth(2, 2, 1) call mb2.SetItemWidth(2, 3, 1) call mb2.SetItemWidth(3, 1, 8) call mb2.SetItemWidth(3, 2, 8) call mb2.SetItemWidth(3, 3, 8) call mb2.SetItem(1, 1, "|cffffcc00Combo name|r") call mb2.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb2.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb2.SetItem(3, 1, TEXT[LEVEL[1]]) call mb2.SetItem(3, 2, I2S(BOUNTY[LEVEL[1]])) call mb2.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[1]])) if GetLocalPlayer() == Player(1) then call mb2.Show() endif set mb3 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb3.SetItemWidth(1, 1, 8) // "Combo name" call mb3.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb3.SetItemWidth(1, 3, 8) // "Bonus damage" call mb3.SetItemWidth(2, 1, 1) call mb3.SetItemWidth(2, 2, 1) call mb3.SetItemWidth(2, 3, 1) call mb3.SetItemWidth(3, 1, 8) call mb3.SetItemWidth(3, 2, 8) call mb3.SetItemWidth(3, 3, 8) call mb3.SetItem(1, 1, "|cffffcc00Combo name|r") call mb3.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb3.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb3.SetItem(3, 1, TEXT[LEVEL[2]]) call mb3.SetItem(3, 2, I2S(BOUNTY[LEVEL[2]])) call mb3.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[2]])) if GetLocalPlayer() == Player(2) then call mb3.Show() endif set mb4 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb4.SetItemWidth(1, 1, 8) // "Combo name" call mb4.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb4.SetItemWidth(1, 3, 8) // "Bonus damage" call mb4.SetItemWidth(2, 1, 1) call mb4.SetItemWidth(2, 2, 1) call mb4.SetItemWidth(2, 3, 1) call mb4.SetItemWidth(3, 1, 8) call mb4.SetItemWidth(3, 2, 8) call mb4.SetItemWidth(3, 3, 8) call mb4.SetItem(1, 1, "|cffffcc00Combo name|r") call mb4.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb4.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb4.SetItem(3, 1, TEXT[LEVEL[3]]) call mb4.SetItem(3, 2, I2S(BOUNTY[LEVEL[3]])) call mb4.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[3]])) if GetLocalPlayer() == Player(3) then call mb4.Show() endif set mb5 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb5.SetItemWidth(1, 1, 8) // "Combo name" call mb5.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb5.SetItemWidth(1, 3, 8) // "Bonus damage" call mb5.SetItemWidth(2, 1, 1) call mb5.SetItemWidth(2, 2, 1) call mb5.SetItemWidth(2, 3, 1) call mb5.SetItemWidth(3, 1, 8) call mb5.SetItemWidth(3, 2, 8) call mb5.SetItemWidth(3, 3, 8) call mb5.SetItem(1, 1, "|cffffcc00Combo name|r") call mb5.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb5.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb5.SetItem(3, 1, TEXT[LEVEL[4]]) call mb5.SetItem(3, 2, I2S(BOUNTY[LEVEL[4]])) call mb5.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[4]])) if GetLocalPlayer() == Player(4) then call mb5.Show() endif set mb6 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb6.SetItemWidth(1, 1, 8) // "Combo name" call mb6.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb6.SetItemWidth(1, 3, 8) // "Bonus damage" call mb6.SetItemWidth(2, 1, 1) call mb6.SetItemWidth(2, 2, 1) call mb6.SetItemWidth(2, 3, 1) call mb6.SetItemWidth(3, 1, 8) call mb6.SetItemWidth(3, 2, 8) call mb6.SetItemWidth(3, 3, 8) call mb6.SetItem(1, 1, "|cffffcc00Combo name|r") call mb6.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb6.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb6.SetItem(3, 1, TEXT[LEVEL[5]]) call mb6.SetItem(3, 2, I2S(BOUNTY[LEVEL[5]])) call mb6.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[5]])) if GetLocalPlayer() == Player(5) then call mb6.Show() endif set mb7 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb7.SetItemWidth(1, 1, 8) // "Combo name" call mb7.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb7.SetItemWidth(1, 3, 8) // "Bonus damage" call mb7.SetItemWidth(2, 1, 1) call mb7.SetItemWidth(2, 2, 1) call mb7.SetItemWidth(2, 3, 1) call mb7.SetItemWidth(3, 1, 8) call mb7.SetItemWidth(3, 2, 8) call mb7.SetItemWidth(3, 3, 8) call mb7.SetItem(1, 1, "|cffffcc00Combo name|r") call mb7.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb7.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb7.SetItem(3, 1, TEXT[LEVEL[6]]) call mb7.SetItem(3, 2, I2S(BOUNTY[LEVEL[6]])) call mb7.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[6]])) if GetLocalPlayer() == Player(0) then call mb7.Show() endif set mb8 = Multiboard.Create(TITLE, ROWS, COLLUMNS, true, true, false, 25) call mb8.SetItemWidth(1, 1, 8) // "Combo name" call mb8.SetItemWidth(1, 2, 8) // "Bonus bounty" call mb8.SetItemWidth(1, 3, 8) // "Bonus damage" call mb8.SetItemWidth(2, 1, 1) call mb8.SetItemWidth(2, 2, 1) call mb8.SetItemWidth(2, 3, 1) call mb8.SetItemWidth(3, 1, 8) call mb8.SetItemWidth(3, 2, 8) call mb8.SetItemWidth(3, 3, 8) call mb8.SetItem(1, 1, "|cffffcc00Combo name|r") call mb8.SetItem(1, 2, "|cffffcc00Bonus bounty|r") call mb8.SetItem(1, 3, "|cffffcc00Bonus damage|r") call mb8.SetItem(3, 1, TEXT[LEVEL[7]]) call mb8.SetItem(3, 2, I2S(BOUNTY[LEVEL[7]])) call mb8.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[7]])) if GetLocalPlayer() == Player(7) then call mb8.Show() endif set mb[0] = mb1 set mb[1] = mb2 set mb[2] = mb3 set mb[3] = mb4 set mb[4] = mb5 set mb[5] = mb6 set mb[6] = mb7 set mb[7] = mb8 endfunction // explained above private function MultiboardSafe takes nothing returns nothing call MultiboardCreation.execute() call ReleaseTimer(GetExpiredTimer()) endfunction // Wooooooorks... private function StoreData takes nothing returns nothing set a = 0 loop exitwhen a > 7 set LEVEL[a] = 0 set a = a + 1 endloop set TEXT[0] = "None" set TEXT[1] = "Dope!" set TEXT[2] = "Deadly!" set TEXT[3] = "Damn!" set TEXT[4] = "Cool!" set TEXT[5] = "Crazy!" set TEXT[6] = "Blast!" set TEXT[7] = "Boom!" set TEXT[8] = "Atomic!" set TEXT[9] = "All right" set TEXT[10] = "GOSU!" set TEXT[11] = "OMG!" set TEXT[12] = "Smokin' " set TEXT[13] = "Smokin' Style" set TEXT[14] = "Smokin' Sick Style" set BOUNTY[0] = 0 set BOUNTY[1] = 10 set BOUNTY[2] = 15 set BOUNTY[3] = 25 set BOUNTY[4] = 30 set BOUNTY[5] = 35 set BOUNTY[6] = 45 set BOUNTY[7] = 50 set BOUNTY[8] = 60 set BOUNTY[9] = 70 set BOUNTY[10] = 75 set BOUNTY[11] = 85 set BOUNTY[12] = 95 set BOUNTY[13] = 95 set BOUNTY[14] = 100 set MULTIPLIER[0] = 0.00 set MULTIPLIER[1] = 0.05 set MULTIPLIER[2] = 0.1 set MULTIPLIER[3] = 0.1 set MULTIPLIER[4] = 0.15 set MULTIPLIER[5] = 0.15 set MULTIPLIER[6] = 0.2 set MULTIPLIER[7] = 0.25 set MULTIPLIER[8] = 0.3 set MULTIPLIER[9] = 0.35 set MULTIPLIER[10] = 0.4 set MULTIPLIER[11] = 0.45 set MULTIPLIER[12] = 0.5 set MULTIPLIER[13] = 0.55 set MULTIPLIER[14] = 0.6 set PLAYER_COLOR[0] = PLAYER_COLOR_RED set PLAYER_COLOR[1] = PLAYER_COLOR_BLUE set PLAYER_COLOR[2] = PLAYER_COLOR_CYAN set PLAYER_COLOR[3] = PLAYER_COLOR_PURPLE set PLAYER_COLOR[4] = PLAYER_COLOR_YELLOW set PLAYER_COLOR[5] = PLAYER_COLOR_ORANGE set PLAYER_COLOR[6] = PLAYER_COLOR_GREEN set PLAYER_COLOR[7] = PLAYER_COLOR_PINK call ReleaseTimer(GetExpiredTimer()) endfunction // also works private function OnAttack takes nothing returns boolean local unit cast = GetAttacker() local unit targ = GetTriggerUnit() local Data this if IsUnitType(cast, UNIT_TYPE_HERO) == true then//and IsUnitEnemy(targ, GetOwningPlayer(cast)) then set this = t[GetUnitIndex(cast)] if targ != this.targ then call this.destroy() set this = Data.create(cast) call this.wispSwap(targ) endif if not IsUnitInGroup(this.cast, gr) then call GroupAddUnit(gr, this.cast) endif endif set cast = null set targ = null return false endfunction private function OnDamage takes nothing returns boolean local unit cast = GetEventDamageSource() local unit targ = GetTriggerUnit() local real dmg = GetEventDamage() local Data this = t[GetUnitIndex(cast)] if this == 0 then else call DisableDamageDetect() call UnitDamageTarget(cast, targ, dmg + (dmg * MULTIPLIER[LEVEL[GetPlayerId(GetOwningPlayer(cast))]]), true, true, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNIVERSAL, null) call EnableDamageDetect() set TIME[this.cast] = 7 endif set cast = null set targ = null return false endfunction private function Minus takes nothing returns nothing local unit cast = GetEnumUnit() local integer id set TIME[cast] = TIME[cast] - 1 if TIME[cast] <= 0 then set id = GetPlayerId(GetOwningPlayer(cast)) if LEVEL[id] > 0 then set LEVEL[id] = LEVEL[id] - 1 endif set TIME[cast] = 7 // AAAAAAA ... :| call UpdateMultiboard.execute(cast, LEVEL[id]) endif set cast = null endfunction private function SubstractTime takes nothing returns nothing call ForGroup(gr, function Minus) endfunction private function Init takes nothing returns nothing local trigger trig = CreateTrigger() call TriggerRegisterAnyUnitEventBJ(trig, EVENT_PLAYER_UNIT_ATTACKED) call TriggerAddCondition(trig, Condition(function OnAttack)) call TimerStart(NewTimer(), 0.00, false, function StoreData) call TimerStart(NewTimer(), 0.5, false, function MultiboardSafe) call TimerStart(CreateTimer(), 1., true, function SubstractTime) call AddOnDamageFunc(Condition(function OnDamage)) endfunction endlibrary AMS system code: JASS:////////////////////////////////////////////////////////////////////////////// // // // ADVANCED MULTIBOARD SYSTEM - v3.02 Beta // // BY MAGENTIX // // // // Requires vJASS & Cohadar's ABC // // // //==========================================================================// // // // 1) CONFIGURATION: // // ================= // // - Create a trigger, name doesn't matter // // - Go to Edit -> Convert to Custom Text // // - Copy-Paste this entire piece of code over the generated text // // // // 2) INSTRUCTIONS: // // ================ // // For every multiboard action you want done, you MUST use the methods // // described below. Other use of natives is at your own risk and may // // cause the system to malfunction completely. // // // // // // Use .GetMultiboard() to get your multiboard. // // // // When setting colors, use a HEX code (6 letters). // // Giving a faulty color code will end up showing "FFFFFF" (White). // // // // USE INTEGERS AS PLAYERS (Player 1 = 0, Player 2 = 1, etc.) // // // // 3) FUNCTION LIST: // // ================= // // // // Display functions: // // .Create(title,rows,cols,showBoard,showValues,showIcons,width) // // .Show() // // .Hide() // // .Fold() // // .Unfold() // // .SetItemWidth(row,col,width) // // // // // // Retrieving functions: // // .GetItem(row,col) -> string // // .GetItemPrefix(row,col) -> string // // .GetItemSuffix(row,col) -> string // // .GetItemColor(row,col) -> string // // .GetItemPrefixColor(row,col) -> string // // .GetItemSuffixColor(row,col) -> string // // .GetTitle() -> string // // .GetTitlePrefix() -> string // // .GetTitleSuffix() -> string // // .GetTitleColor() -> string // // .GetTitlePrefixColor() -> string // // .GetTitleSuffixColor() -> string // // // // .GetValueState(row,col) -> boolean (show/hide) // // .GetIconState(row,col) -> boolean (show/hide) // // .GetIconPath(row,col) -> string // // // // .GetColumnCount() -> integer // // .GetRowCount() -> integer // // .GetMultiboard() -> multiboard // // // // Storing functions: // // .SetItem(row,col,value) // // .SetItemPrefix(row,col,value) // // .SetItemSuffix(row,col,value) // // .SetItemColor(row,col,value) // // .SetItemPrefixColor(row,col,value) // // .SetItemSuffixColor(row,col,value) // // .SetTitle(value) // // .SetTitlePrefix(value) // // .SetTitleSuffix(value) // // .SetTitleColor(value) // // .SetTitlePrefixColor(value) // // .SetTitleSuffixColor(value) // // // // .SetIconPath(row,col,path) // // .SetItemStyle(row,col,showValue,showIcon) // // // // Handy functions: // // .IncreaseItem(row,col,increment) // // .SuspendItem(row,col,string) // // .PrependItem(row,col,string) // // .SuspendTitle(string) // // .PrependTitle(string) // // // // Sorting functions: // // .SortRowsOnce(start_row,end_row,sort_col,ascending) // // .SortRows(start_row,end_row,sort_col,interval,ascending) // // .StopSorts() // // .SwapRows(row1,row2) // // // // Clock functions: // // .AddClock(asSuffix) // // .PauseClock() // // .ResumeClock() // // .ResetClock() // // .StopClock() // // // // Handy player functions: // // .AddPlayers(startPlayer,amount,startRow,col,colorName) // // .SetPlayerItem(player,col,value) // // .GetPlayerItem(player,col) -> string // // .SetPlayerRow(player,row) // // .GetPlayerRow(player) -> integer // // // // // // .Destroy() // // // //==========================================================================// // // // DO NOT EDIT BEYOND THIS POINT // // PLEASE GIVE CREDIT WHEN USING THIS SYSTEM // // // ////////////////////////////////////////////////////////////////////////////// library AMS initializer Init requires TimerUtils, Table globals private HandleTable ht endglobals //============================================================================== // TEXTMACROS //============================================================================== //! textmacro MBGetItem takes KEY, TYPE, VARNAME method Get$KEY$ takes integer row, integer col returns $TYPE$ return .GetItemData(((row-1)*.Cols)+col).$VARNAME$ endmethod //! endtextmacro //! textmacro MBGetTitle takes KEY, VARNAME method Get$KEY$ takes nothing returns string return .$VARNAME$ endmethod //! endtextmacro //! textmacro MBSetItem takes KEY, VARNAME method Set$KEY$ takes integer row, integer col, string value returns nothing set .GetItemData(((row-1)*.Cols)+col).$VARNAME$ = value call .UpdateItem(row,col) endmethod //! endtextmacro //! textmacro MBSetTitle takes KEY, VARNAME method Set$KEY$ takes string var returns nothing set .$VARNAME$ = var call .UpdateTitle() endmethod //! endtextmacro //============================================================================== // STRUCTS //============================================================================== private struct ItemData string Value string Prefix string Suffix string Color string PrefixColor string SuffixColor string IconPath boolean ShowValue boolean ShowIcon endstruct private struct Item ItemData data endstruct private struct SortData integer SORT_COL integer START_ROW integer END_ROW boolean ASC Multiboard MB endstruct //============================================================================== // GLOBALS //============================================================================== globals private string array PlayerColors private Item array Items private Multiboard array Multiboards private integer MultiboardCounter = 0 endglobals //============================================================================== // CALLBACKS //============================================================================== private function ClockCallback takes nothing returns nothing local timer t = GetExpiredTimer() local Multiboard mb = ht[t] local string s if (mb.STOP == false) then if (mb.seconds < 59) then set mb.seconds = mb.seconds + 1 elseif (mb.minutes < 59) then set mb.seconds = 0 set mb.minutes = mb.minutes + 1 else set mb.seconds = 0 set mb.minutes = 0 set mb.hours = mb.hours + 1 endif if (mb.hours < 10) then set s = "0"+I2S(mb.hours)+":" else set s = I2S(mb.hours)+":" endif if (mb.minutes < 10) then set s = s+"0"+I2S(mb.minutes)+":" else set s = s+I2S(mb.minutes)+":" endif if (mb.seconds < 10) then set s = s+"0"+I2S(mb.seconds) else set s = s+I2S(mb.seconds) endif if (mb.asSuffix) then call mb.SetTitleSuffix("- "+s) else call mb.SetTitle(s) endif else call ReleaseTimer(mb.ClockTimer) endif set s = null set t = null endfunction private function SortRowsCallback takes nothing returns nothing local timer t = GetExpiredTimer() local SortData dat = ht[t] if (dat.MB.SortStop == false) then call dat.MB.SortRowsOnce(dat.START_ROW, dat.END_ROW, dat.SORT_COL, dat.ASC) else call ht.flush(t) call dat.destroy() call ReleaseTimer(t) set dat.MB.SortCount = dat.MB.SortCount - 1 if (dat.MB.SortCount == 0) then set dat.MB.SortStop = false endif endif set t = null endfunction //============================================================================== // Multiboard STRUCT //============================================================================== struct Multiboard // Array Initial Value integer ArrayStart = 0 integer MultiboardNR = 1 // Multiboard Values private multiboard MB private integer Rows private integer Cols private integer array PlayerRow[11] // Title Values private string Value private string Prefix private string Suffix private string Color private string PrefixColor private string SuffixColor // Clock Values timer ClockTimer integer seconds = 0 integer minutes = 0 integer hours = 0 boolean asSuffix boolean STOP // Sort Values integer SortCount = 0 boolean SortStop = false static method Create takes string title, integer rows, integer cols, boolean showBoard, boolean showValues, boolean showIcons, integer width returns Multiboard local Multiboard mb = Multiboard.allocate() local integer i = 1 if (MultiboardCounter > 0) then set mb.ArrayStart = Multiboards[MultiboardCounter].ArrayStart + (Multiboards[MultiboardCounter].Rows * Multiboards[MultiboardCounter].Cols) set mb.MultiboardNR = MultiboardCounter + 1 endif set MultiboardCounter = MultiboardCounter + 1 set Multiboards[MultiboardCounter] = mb set mb.MB = CreateMultiboard() set mb.Rows = rows set mb.Cols = cols set mb.Value = title call MultiboardSetRowCount(mb.MB, mb.Rows) call MultiboardSetColumnCount(mb.MB, mb.Cols) call MultiboardSetTitleText(mb.MB, title) call MultiboardSetItemsStyle(mb.MB, showValues, showIcons) if (width <= 0) then set width = 25 endif call MultiboardSetItemsWidth(mb.MB, (width/cols)/100.00) call MultiboardDisplay(mb.MB, showBoard) loop exitwhen (i > mb.Rows * mb.Cols) set Items[mb.ArrayStart+i] = Item.create() set Items[mb.ArrayStart+i].data = ItemData.create() set Items[mb.ArrayStart+i].data.ShowIcon = showIcons set Items[mb.ArrayStart+i].data.ShowValue = showValues set Items[mb.ArrayStart+i].data.IconPath = "UI\\Widgets\\EscMenu\\Human\\observer-icon.blp" set i = i + 1 endloop return mb endmethod private method GetItemData takes integer ItemNR returns ItemData return Items[.ArrayStart+ItemNR].data endmethod method ShowItem takes integer row, integer col returns nothing local ItemData I = .GetItemData(((row-1)*.Cols)+col) call BJDebugMsg(I.Value) endmethod //! runtextmacro MBGetItem("Item","string","Value") //! runtextmacro MBGetItem("ItemPrefix","string","Prefix") //! runtextmacro MBGetItem("ItemSuffix","string","Suffix") //! runtextmacro MBGetItem("ItemColor","string","Color") //! runtextmacro MBGetItem("ItemPrefixColor","string","PrefixColor") //! runtextmacro MBGetItem("ItemSuffixColor","string","SuffixColor") //! runtextmacro MBGetItem("ValueState","boolean","ShowValue") //! runtextmacro MBGetItem("IconState","boolean","ShowIcon") //! runtextmacro MBGetItem("IconPath","string","IconPath") //! runtextmacro MBGetTitle("Title","Value") //! runtextmacro MBGetTitle("TitlePrefix","Prefix") //! runtextmacro MBGetTitle("TitleSuffix","Suffix") //! runtextmacro MBGetTitle("TitleColor","Color") //! runtextmacro MBGetTitle("TitlePrefixColor","PrefixColor") //! runtextmacro MBGetTitle("TitleSuffixColor","SuffixColor") method GetPlayerRow takes integer p returns integer return .PlayerRow[p] endmethod method GetColumnCount takes nothing returns integer return .Cols endmethod method GetRowCount takes nothing returns integer return .Rows endmethod method GetMultiboard takes nothing returns multiboard return .MB endmethod method Show takes nothing returns nothing call MultiboardDisplay(.MB, true) endmethod method Hide takes nothing returns nothing call MultiboardDisplay(.MB, false) endmethod method Fold takes nothing returns nothing call MultiboardMinimize(.MB, true) endmethod method Unfold takes nothing returns nothing call MultiboardMinimize(.MB, false) endmethod method SetItemWidth takes integer row, integer col, real width returns nothing local multiboarditem mbi = MultiboardGetItem(.MB,row-1,col-1) call MultiboardSetItemWidth(mbi, width/100.00) call MultiboardReleaseItem(mbi) set mbi = null endmethod private method UpdateItem takes integer row, integer col returns nothing local string full = "" local multiboarditem mbi local ItemData I = .GetItemData(((row-1)*.Cols)+col) if (I.Prefix != null) then if (I.PrefixColor != null and StringLength(I.PrefixColor) == 6) then set full = "|cFF"+I.PrefixColor+I.Prefix+"|r " else set full = "|cFFFFFFFF"+I.Prefix+"|r " endif endif if (I.Color != null and StringLength(I.Color) == 6) then set full = full+"|cFF"+I.Color+I.Value+"|r" else set full = full+"|cFFFFFFFF"+I.Value+"|r" endif if (I.Suffix != null) then if (I.SuffixColor != null and StringLength(I.SuffixColor) == 6) then set full = full+" |cFF"+I.SuffixColor+I.Suffix+"|r" else set full = full+" |cFFFFFFFF"+I.Suffix+"|r" endif endif set mbi = MultiboardGetItem(.MB,row-1,col-1) call MultiboardSetItemValue(mbi, full) call MultiboardReleaseItem(mbi) set full = null set mbi = null endmethod private method UpdateTitle takes nothing returns nothing local string full = "" if (.Prefix != null) then if (.PrefixColor != null and StringLength(.PrefixColor) == 6) then set full = "|cFF"+.PrefixColor+.Prefix+"|r " else set full = "|cFFFFCC00"+.Prefix+"|r " endif endif if (.Color != null and StringLength(.Color) == 6) then set full = full+"|cFF"+.Color+.Value+"|r" else set full = full+"|cFFFFCC00"+.Value+"|r" endif if (.Suffix != null) then if (.SuffixColor != null and StringLength(.SuffixColor) == 6) then set full = full+" |cFF"+.SuffixColor+.Suffix+"|r" else set full = full+" |cFFFFCC00"+.Suffix+"|r" endif endif call MultiboardSetTitleText(.MB, full) set full = null endmethod //! runtextmacro MBSetItem("Item","Value") //! runtextmacro MBSetItem("ItemPrefix","Prefix") //! runtextmacro MBSetItem("ItemSuffix","Suffix") //! runtextmacro MBSetItem("ItemColor","Color") //! runtextmacro MBSetItem("ItemPrefixColor","PrefixColor") //! runtextmacro MBSetItem("ItemSuffixColor","SuffixColor") //! runtextmacro MBSetTitle("Title","Value") //! runtextmacro MBSetTitle("TitlePrefix","Prefix") //! runtextmacro MBSetTitle("TitleSuffix","Suffix") //! runtextmacro MBSetTitle("TitleColor","Color") //! runtextmacro MBSetTitle("TitlePrefixColor","PrefixColor") //! runtextmacro MBSetTitle("TitleSuffixColor","SuffixColor") method SetPlayerRow takes integer p, integer row returns nothing set .PlayerRow[p] = row endmethod method SetItemStyle takes integer row, integer col, boolean showValue, boolean showIcon returns nothing local multiboarditem mbi set .GetItemData(((row-1)*.Cols)+col).ShowValue = showValue set .GetItemData(((row-1)*.Cols)+col).ShowIcon = showIcon set mbi = MultiboardGetItem(.MB,row-1,col-1) call MultiboardSetItemStyle(mbi, showValue, showIcon) call MultiboardReleaseItem(mbi) set mbi = null endmethod method SetIconPath takes integer row, integer col, string path returns nothing local multiboarditem mbi set .GetItemData(((row-1)*.Cols)+col).IconPath = path set mbi = MultiboardGetItem(.MB,row-1,col-1) call MultiboardSetItemIcon(mbi, path) call MultiboardReleaseItem(mbi) set mbi = null endmethod method IncreaseItem takes integer row, integer col, integer increment returns nothing call .SetItem(row,col,I2S(S2I(.GetItem(row,col))+increment)) endmethod method SuspendItem takes integer row, integer col, string Suffix returns nothing call .SetItem(row,col,.GetItem(row,col)+Suffix) endmethod method PrependItem takes integer row, integer col, string Prefix returns nothing call .SetItem(row,col,Prefix+.GetItem(row,col)) endmethod method SuspendTitle takes string Suffix returns nothing call .SetTitle(.GetTitle()+Suffix) endmethod method PrependTitle takes string Prefix returns nothing call .SetTitle(Prefix+.GetTitle()) endmethod method GetPlayerItem takes integer p, integer col returns string return .GetItem(.GetPlayerRow(p),col) endmethod method SetPlayerItem takes integer p, integer col, string value returns nothing call .SetItem(.GetPlayerRow(p),col,value) endmethod method AddPlayers takes integer startPlayer, integer amount, integer row, integer col, boolean colorName returns nothing local integer i = 0 loop exitwhen i == amount call .SetItem(row+i,col,GetPlayerName(Player(startPlayer+i))) set .PlayerRow[startPlayer+i] = row+i if (colorName) then call .SetItemColor(row+i,col,PlayerColors[startPlayer+i]) endif set i = i + 1 endloop endmethod method AddClock takes boolean asSuffix returns nothing if (.ClockTimer != null) then call BJDebugMsg("Error: This multiboard already has a clock.") else set .ClockTimer = CreateTimer() set .asSuffix = asSuffix set .STOP = false set ht[.ClockTimer] = this call TimerStart(.ClockTimer,1.00,true,function ClockCallback) endif endmethod method PauseClock takes nothing returns nothing set .STOP = true endmethod method ResumeClock takes nothing returns nothing set .STOP = false call TimerStart(.ClockTimer,1.00,true,function ClockCallback) endmethod method ResetClock takes nothing returns nothing set .seconds = 0 set .minutes = 0 set .hours = 0 endmethod method StopClock takes nothing returns nothing set .seconds = 0 set .minutes = 0 set .hours = 0 call ht.flush(.ClockTimer) call ReleaseTimer(.ClockTimer) set .ClockTimer = null if (.asSuffix) then call .SetTitleSuffix("") else call .SetTitle("") endif endmethod method SwapRows takes integer row1, integer row2 returns nothing local integer i = 0 local integer col = 1 local ItemData I loop exitwhen i > 11 if (.PlayerRow[i] == row1) then set .PlayerRow[i] = row2 elseif (.PlayerRow[i] == row2) then set .PlayerRow[i] = row1 endif set i = i + 1 endloop loop exitwhen col > .Cols set I = .GetItemData(((row1-1)*.Cols)+col) set Items[.ArrayStart+((row1-1)*.Cols)+col].data = .GetItemData(((row2-1)*.Cols)+col) set Items[.ArrayStart+((row2-1)*.Cols)+col].data = I call .UpdateItem(row1,col) call .UpdateItem(row2,col) set col = col + 1 endloop endmethod method SortRowsOnce takes integer START_ROW, integer END_ROW, integer SORT_COL, boolean ASC returns nothing local integer k = END_ROW - 1 local integer l local integer lv local integer Item1 local integer Item2 if (START_ROW > END_ROW) then call BJDebugMsg("Error: START_ROW must be less than END_ROW when calling a RowSort().") else loop exitwhen (k < START_ROW) set l = START_ROW set lv = START_ROW loop exitwhen (l > k) set Item1 = S2I(.GetItemData(((l-1)*.Cols)+SORT_COL).Value) set Item2 = S2I(.GetItemData((l*.Cols)+SORT_COL).Value) if ((Item1 > Item2 and ASC) or (Item1 < Item2 and not ASC)) then call .SwapRows(l,l+1) set lv = l endif set l = l + 1 endloop set k = lv - 1 endloop endif endmethod method StopSorts takes nothing returns nothing set .SortStop = true endmethod method SortRows takes integer START_ROW, integer END_ROW, integer SORT_COL, real interval, boolean ASC returns nothing local timer t = CreateTimer() local integer i = 0 local SortData dat = SortData.create() set dat.SORT_COL = SORT_COL set dat.START_ROW = START_ROW set dat.END_ROW = END_ROW set dat.ASC = ASC set dat.MB = this set ht[t] = dat call TimerStart(t,interval,true,function SortRowsCallback) set .SortCount = .SortCount + 1 set t = null endmethod method onDestroy takes nothing returns nothing local integer i = 1 loop exitwhen (i > .Rows * .Cols) call Items[.ArrayStart+i].data.destroy() call Items[.ArrayStart+i].destroy() set i = i + 1 endloop set i = 1 loop exitwhen i > Multiboards[MultiboardCounter].ArrayStart + (Multiboards[MultiboardCounter].Cols * Multiboards[MultiboardCounter].Rows) - (.ArrayStart + (.Cols * .Rows)) set Items[.ArrayStart+i] = Items[.ArrayStart+i+(.Cols*.Rows)] set i = i + 1 endloop set i = 1 loop exitwhen i > MultiboardCounter - .MultiboardNR set Multiboards[.MultiboardNR+i-1] = Multiboards[.MultiboardNR+i] set Multiboards[.MultiboardNR+i-1].MultiboardNR = Multiboards[.MultiboardNR+i-1].MultiboardNR - 1 if (Multiboards[.MultiboardNR+i-1].MultiboardNR == 1) then set Multiboards[.MultiboardNR+i-1].ArrayStart = 0 else set Multiboards[.MultiboardNR+i-1].ArrayStart = Multiboards[.MultiboardNR+i-2].ArrayStart + (Multiboards[.MultiboardNR+i-2].Cols * Multiboards[.MultiboardNR+i-2].Rows) endif set i = i + 1 endloop set MultiboardCounter = MultiboardCounter - 1 call .StopSorts() call DestroyMultiboard(.MB) endmethod endstruct //============================================================================== // INITIALIZER //============================================================================== private function Init takes nothing returns nothing set PlayerColors[0] = "FF0303" set PlayerColors[1] = "0042FF" set PlayerColors[2] = "1CB619" set PlayerColors[3] = "540081" set PlayerColors[4] = "FFFF01" set PlayerColors[5] = "FE8A0E" set PlayerColors[6] = "20C000" set PlayerColors[7] = "E55BB0" set PlayerColors[8] = "959697" set PlayerColors[9] = "7EBFF1" set PlayerColors[10] = "106246" set PlayerColors[11] = "4E2A04" set ht = HandleTable.create() endfunction endlibrary |
| 07-05-2009, 03:32 PM | #2 |
JASS:// MY NIGHTMARE, IT JUST DOESN'T WORK private function UpdateMultiboard takes unit cast, integer lvl returns nothing local player p = GetOwningPlayer(cast) local integer pid = GetPlayerId(p) local Multiboard mult = mb[pid] /* call mult.SetItem(3, 1, TEXT[LEVEL[pid]]) call mult.SetItem(3, 2, I2S(BOUNTY[LEVEL[pid]])) call mult.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[pid]])) */ call mult.SetItem(3, 1, TEXT[lvl]) call mult.SetItem(3, 2, I2S(BOUNTY[lvl])) call mult.SetItem(3, 3, R2S(MULTIPLIER[lvl])) call mult.Fold() call mult.Unfold() endfunction okay, it's good that you already did all kinds of debugging, so tell us what the effect was. like, did you put a DebugMessage after the local declaration and before the function calls, did you do a debug message even before the variable declarations, if so, which of these were shown. Did you try to input manual values instead of TEXT[lvl], like "test" or sth, and checked if these got updated? |
| 07-05-2009, 05:10 PM | #3 |
JASS:private function UpdateMultiboard takes unit cast, integer lvl returns nothing local player p = GetOwningPlayer(cast) local integer pid = GetPlayerId(p) local Multiboard mult = mb[pid] /* call mult.SetItem(3, 1, TEXT[LEVEL[pid]]) call mult.SetItem(3, 2, I2S(BOUNTY[LEVEL[pid]])) call mult.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[pid]])) */ call BJDebugMsg(GetPlayerTextColor(Player(0)) + I2S(pid) + "|r") call BJDebugMsg(GetPlayerTextColor(Player(1)) + I2S(mb[pid]) + "|r") call mult.SetItem(3, 1, TEXT[lvl]) call mult.SetItem(3, 2, I2S(BOUNTY[lvl])) call mult.SetItem(3, 3, R2S(MULTIPLIER[lvl])) call mult.Fold() call mult.Unfold() call BJDebugMsg("|cffffcc00end|r") endfunction It displays 0 (as it should since I pass Player 1 (Red)'s id), 1 (that is correct, I printed the struct's pointer after storing it to the array mb) and "end". So basically all these things work and the function reaches the end. JASS:private function UpdateMultiboard takes unit cast, integer lvl returns nothing local player p = GetOwningPlayer(cast) local integer pid = GetPlayerId(p) local Multiboard mult = mb[pid] /* call mult.SetItem(3, 1, TEXT[LEVEL[pid]]) call mult.SetItem(3, 2, I2S(BOUNTY[LEVEL[pid]])) call mult.SetItem(3, 3, R2S(MULTIPLIER[LEVEL[pid]])) call mult.SetItem(3, 1, TEXT[lvl]) call mult.SetItem(3, 2, I2S(BOUNTY[lvl])) call mult.SetItem(3, 3, R2S(MULTIPLIER[lvl])) */ call mult.SetItem(3, 1, "asfas") call mult.SetItem(3, 2, I2S(445)) call mult.SetItem(3, 3, R2S(1.55)) call mult.Fold() call mult.Unfold() endfunction Nothing. :| Doesn't change at all, which means the issue could be from the system itself?... That can't be possible since it's working normal and has never bugged like this before. I'm baffled... |
| 07-05-2009, 05:49 PM | #4 |