private function tAct takes nothing returns nothing
local timer t = CreateTimer()
call DestroyTimer(t)
set HandNum = HandNum + 1
call LeaderboardSetItemValue(HandProg,LeaderboardGetPlayerIndex(HandProg, Player(0)),HandNum)
call LeaderboardResizeBJ(HandProg)
endfunction
scope HandleMadeMapLag
globals
private leaderboard HandProg
private timer t = CreateTimer()
private integer HandNum = 0
endglobals
private function tAct takes nothing returns nothing
local timer t = CreateTimer()
call DestroyTimer(t)
set HandNum = HandNum + 1
call LeaderboardSetItemValue(HandProg,LeaderboardGetPlayerIndex(HandProg, Player(0)),HandNum)
call LeaderboardResizeBJ(HandProg)
endfunction
private function Trig_Test_How_much_Handle_Made_Map_lag_Actions takes nothing returns nothing
call TimerStart(t,.001,true,function tAct)
set HandProg = CreateLeaderboard()
call LeaderboardSetLabel(HandProg,"Handle Creating Progress")
call LeaderboardResizeBJ(HandProg)
call PlayerSetLeaderboard(Player(0),HandProg)
call LeaderboardDisplay(HandProg,true)
call LeaderboardSetStyle(HandProg,true,true,true,true)
call LeaderboardAddItem(HandProg,"Handle Created", HandNum, Player(0))
endfunction
//===========================================================================
function InitTrig_Test_HandleLag takes nothing returns nothing
set gg_trg_Test_HandleLag = CreateTrigger()
call TriggerAddAction( gg_trg_Test_HandleLag, function Trig_Test_How_much_Handle_Made_Map_lag_Actions )
call TriggerRegisterTimerEvent(gg_trg_Test_HandleLag,1,false)
endfunction
endscope
//==============================================================================
// JERK - handle leak test by Cohadar
//
// PURPOUSE:
// * Testing how handle increase affects the lag
// * This test is not leaking objects, only handles
//
// HOW TO IMPORT:
// * Just create a trigger named Jerk
// convert it to text and replace the whole trigger text with this one
// * type -jerk in game to start the test.
// * type -off in game to pause the test.
//==============================================================================
//! textmacro TEST takes NUMBER
globals
private location array L$NUMBER$
endglobals
//==============================================================================
private function FillL$NUMBER$ takes nothing returns nothing
local integer i = 0
loop
exitwhen i >= TEST_SIZE
set L$NUMBER$<i> = GetRandomLocInRect(GetPlayableMapRect())
call RemoveLocation(L$NUMBER$<i>)
set i = i + 1
endloop
//call BJDebugMsg("Last Handle Index: " + I2S(H2I(L$NUMBER$[TEST_SIZE-1])-0x100000))
endfunction
//! endtextmacro
//==============================================================================
scope Jerk
globals
private constant integer TEST_SIZE = 4096 // 8192 causes op limit break
private timer Timer = null
private integer Counter = 0
endglobals
//! runtextmacro TEST("0")
//! runtextmacro TEST("1")
//! runtextmacro TEST("2")
//! runtextmacro TEST("3")
//! runtextmacro TEST("4")
//! runtextmacro TEST("5")
//! runtextmacro TEST("6")
//! runtextmacro TEST("7")
//! runtextmacro TEST("8")
//! runtextmacro TEST("9")
//! runtextmacro TEST("10")
//! runtextmacro TEST("11")
//! runtextmacro TEST("12")
//! runtextmacro TEST("13")
//! runtextmacro TEST("14")
//! runtextmacro TEST("15")
//! runtextmacro TEST("16")
//! runtextmacro TEST("17")
//! runtextmacro TEST("18")
//! runtextmacro TEST("19")
//! runtextmacro TEST("20")
//! runtextmacro TEST("21")
//! runtextmacro TEST("22")
//! runtextmacro TEST("23")
//! runtextmacro TEST("24")
//! runtextmacro TEST("25")
//! runtextmacro TEST("26")
//! runtextmacro TEST("27")
//! runtextmacro TEST("28")
//! runtextmacro TEST("29")
//! runtextmacro TEST("30")
//! runtextmacro TEST("31")
//! runtextmacro TEST("32")
//! runtextmacro TEST("33")
//! runtextmacro TEST("34")
//! runtextmacro TEST("35")
//! runtextmacro TEST("36")
//! runtextmacro TEST("37")
//! runtextmacro TEST("38")
//! runtextmacro TEST("39")
//! runtextmacro TEST("40")
//! runtextmacro TEST("41")
//! runtextmacro TEST("42")
//! runtextmacro TEST("43")
//! runtextmacro TEST("44")
//! runtextmacro TEST("45")
//! runtextmacro TEST("46")
//! runtextmacro TEST("47")
//! runtextmacro TEST("48")
//! runtextmacro TEST("49")
//! runtextmacro TEST("50")
//! runtextmacro TEST("51")
//! runtextmacro TEST("52")
//! runtextmacro TEST("53")
//! runtextmacro TEST("54")
//! runtextmacro TEST("55")
//! runtextmacro TEST("56")
//! runtextmacro TEST("57")
//! runtextmacro TEST("58")
//! runtextmacro TEST("59")
//! runtextmacro TEST("60")
//! runtextmacro TEST("61")
//! runtextmacro TEST("62")
//! runtextmacro TEST("63")
//! runtextmacro TEST("64")
//! runtextmacro TEST("65")
//! runtextmacro TEST("66")
//! runtextmacro TEST("67")
//! runtextmacro TEST("68")
//! runtextmacro TEST("69")
//! runtextmacro TEST("70")
//! runtextmacro TEST("71")
//! runtextmacro TEST("72")
//! runtextmacro TEST("73")
//! runtextmacro TEST("74")
//! runtextmacro TEST("75")
//! runtextmacro TEST("76")
//! runtextmacro TEST("77")
//! runtextmacro TEST("78")
//! runtextmacro TEST("79")
//! runtextmacro TEST("80")
//! runtextmacro TEST("81")
//! runtextmacro TEST("82")
//! runtextmacro TEST("83")
//! runtextmacro TEST("84")
//! runtextmacro TEST("85")
//! runtextmacro TEST("86")
//! runtextmacro TEST("87")
//! runtextmacro TEST("88")
//! runtextmacro TEST("89")
//! runtextmacro TEST("90")
//! runtextmacro TEST("91")
//! runtextmacro TEST("92")
//! runtextmacro TEST("93")
//! runtextmacro TEST("94")
//! runtextmacro TEST("95")
//! runtextmacro TEST("96")
//! runtextmacro TEST("97")
//! runtextmacro TEST("98")
//! runtextmacro TEST("99")
//===========================//
//! runtextmacro TEST("100")
//! runtextmacro TEST("101")
//! runtextmacro TEST("102")
//! runtextmacro TEST("103")
//! runtextmacro TEST("104")
//! runtextmacro TEST("105")
//! runtextmacro TEST("106")
//! runtextmacro TEST("107")
//! runtextmacro TEST("108")
//! runtextmacro TEST("109")
//! runtextmacro TEST("110")
//! runtextmacro TEST("111")
//! runtextmacro TEST("112")
//! runtextmacro TEST("113")
//! runtextmacro TEST("114")
//! runtextmacro TEST("115")
//! runtextmacro TEST("116")
//! runtextmacro TEST("117")
//! runtextmacro TEST("118")
//! runtextmacro TEST("119")
//! runtextmacro TEST("120")
//! runtextmacro TEST("121")
//! runtextmacro TEST("122")
//! runtextmacro TEST("123")
//! runtextmacro TEST("124")
//! runtextmacro TEST("125")
//! runtextmacro TEST("126")
//! runtextmacro TEST("127")
//! runtextmacro TEST("128")
//! runtextmacro TEST("129")
//! runtextmacro TEST("130")
//! runtextmacro TEST("131")
//! runtextmacro TEST("132")
//! runtextmacro TEST("133")
//! runtextmacro TEST("134")
//! runtextmacro TEST("135")
//! runtextmacro TEST("136")
//! runtextmacro TEST("137")
//! runtextmacro TEST("138")
//! runtextmacro TEST("139")
//! runtextmacro TEST("140")
//! runtextmacro TEST("141")
//! runtextmacro TEST("142")
//! runtextmacro TEST("143")
//! runtextmacro TEST("144")
//! runtextmacro TEST("145")
//! runtextmacro TEST("146")
//! runtextmacro TEST("147")
//! runtextmacro TEST("148")
//! runtextmacro TEST("149")
//! runtextmacro TEST("150")
//! runtextmacro TEST("151")
//! runtextmacro TEST("152")
//! runtextmacro TEST("153")
//! runtextmacro TEST("154")
//! runtextmacro TEST("155")
//! runtextmacro TEST("156")
//! runtextmacro TEST("157")
//! runtextmacro TEST("158")
//! runtextmacro TEST("159")
//! runtextmacro TEST("160")
//! runtextmacro TEST("161")
//! runtextmacro TEST("162")
//! runtextmacro TEST("163")
//! runtextmacro TEST("164")
//! runtextmacro TEST("165")
//! runtextmacro TEST("166")
//! runtextmacro TEST("167")
//! runtextmacro TEST("168")
//! runtextmacro TEST("169")
//! runtextmacro TEST("170")
//! runtextmacro TEST("171")
//! runtextmacro TEST("172")
//! runtextmacro TEST("173")
//! runtextmacro TEST("174")
//! runtextmacro TEST("175")
//! runtextmacro TEST("176")
//! runtextmacro TEST("177")
//! runtextmacro TEST("178")
//! runtextmacro TEST("179")
//! runtextmacro TEST("180")
//! runtextmacro TEST("181")
//! runtextmacro TEST("182")
//! runtextmacro TEST("183")
//! runtextmacro TEST("184")
//! runtextmacro TEST("185")
//! runtextmacro TEST("186")
//! runtextmacro TEST("187")
//! runtextmacro TEST("188")
//! runtextmacro TEST("189")
//! runtextmacro TEST("190")
//! runtextmacro TEST("191")
//! runtextmacro TEST("192")
//! runtextmacro TEST("193")
//! runtextmacro TEST("194")
//! runtextmacro TEST("195")
//! runtextmacro TEST("196")
//! runtextmacro TEST("197")
//! runtextmacro TEST("198")
//! runtextmacro TEST("199")
//===========================//
//! runtextmacro TEST("200")
//! runtextmacro TEST("201")
//! runtextmacro TEST("202")
//! runtextmacro TEST("203")
//! runtextmacro TEST("204")
//! runtextmacro TEST("205")
//! runtextmacro TEST("206")
//! runtextmacro TEST("207")
//! runtextmacro TEST("208")
//! runtextmacro TEST("209")
//! runtextmacro TEST("210")
//! runtextmacro TEST("211")
//! runtextmacro TEST("212")
//! runtextmacro TEST("213")
//! runtextmacro TEST("214")
//! runtextmacro TEST("215")
//! runtextmacro TEST("216")
//! runtextmacro TEST("217")
//! runtextmacro TEST("218")
//! runtextmacro TEST("219")
//! runtextmacro TEST("220")
//! runtextmacro TEST("221")
//! runtextmacro TEST("222")
//! runtextmacro TEST("223")
//! runtextmacro TEST("224")
//! runtextmacro TEST("225")
//! runtextmacro TEST("226")
//! runtextmacro TEST("227")
//! runtextmacro TEST("228")
//! runtextmacro TEST("229")
//! runtextmacro TEST("230")
//! runtextmacro TEST("231")
//! runtextmacro TEST("232")
//! runtextmacro TEST("233")
//! runtextmacro TEST("234")
//! runtextmacro TEST("235")
//! runtextmacro TEST("236")
//! runtextmacro TEST("237")
//! runtextmacro TEST("238")
//! runtextmacro TEST("239")
//! runtextmacro TEST("240")
//! runtextmacro TEST("241")
//! runtextmacro TEST("242")
//! runtextmacro TEST("243")
//! runtextmacro TEST("244")
//! runtextmacro TEST("245")
//! runtextmacro TEST("246")
//! runtextmacro TEST("247")
//! runtextmacro TEST("248")
//! runtextmacro TEST("249")
//! runtextmacro TEST("250")
//! runtextmacro TEST("251")
//! runtextmacro TEST("252")
//! runtextmacro TEST("253")
//! runtextmacro TEST("254")
//! runtextmacro TEST("255")
//===========================//
//===========================================================================
private function TimerActions takes nothing returns nothing
if Counter<256 then
call ExecuteFunc(SCOPE_PRIVATE+"FillL"+I2S(Counter))
set Counter = Counter + 1
else
set Counter = 0
endif
endfunction
//===========================================================================
private function JerkActions takes nothing returns nothing
call BJDebugMsg("|c0000FF00STARTED")
if Timer == null then
set Timer = CreateTimer()
endif
call TimerStart(Timer, 0.5, true, function TimerActions)
endfunction
//===========================================================================
private function OffActions takes nothing returns nothing
call BJDebugMsg("|c00FF0000PAUSED")
call PauseTimer(Timer)
endfunction
//===========================================================================
public function InitTrig takes nothing returns nothing
local trigger trig
set trig = CreateTrigger()
call TriggerRegisterPlayerChatEvent( trig, Player(0), "-jerk", true )
call TriggerAddAction( trig, function JerkActions )
set trig = CreateTrigger()
call TriggerRegisterPlayerChatEvent( trig, Player(0), "-off", true )
call TriggerAddAction( trig, function OffActions )
endfunction
endscope
</i></i>library HandleCounter initializer InitTrig
globals
private leaderboard Leaderboard = null
private integer MaxHandleIndex = 0
private location loc
string GAME_TIME_STRING = "Game Time: "
// leaderboard dummy players
private constant player LDP_TIME = Player(11)
private constant player LDP_HNUM = Player(8)
integer GAME_SECONDS = 0
integer GAME_MINUTES = 0
integer GAME_HOURS = 0
endglobals
//===========================================================================
private function H2I takes handle h returns integer
return h
return 0
endfunction
//===========================================================================
private function LeaderboardTimeTick takes nothing returns nothing
call LeaderboardSetPlayerItemLabelBJ( LDP_TIME, Leaderboard, GAME_TIME_STRING + I2S(GAME_HOURS) + ":" + I2S(GAME_MINUTES))
call LeaderboardSetPlayerItemValueBJ( LDP_TIME, Leaderboard, GAME_SECONDS)
endfunction
//===========================================================================
private function Actions takes nothing returns nothing
set Leaderboard = CreateLeaderboard()
//call BJDebugMsg("Leaderboard Created")
call LeaderboardSetLabel(Leaderboard, "")
call ForceSetLeaderboardBJ(Leaderboard, bj_FORCE_ALL_PLAYERS)
call LeaderboardAddItemBJ( LDP_TIME, Leaderboard, GAME_TIME_STRING , 0 )
call LeaderboardAddItemBJ( LDP_HNUM, Leaderboard, "Handle Count:", 0 )
call LeaderboardSetPlayerItemLabelColorBJ( LDP_TIME, Leaderboard, 0xFF, 0xCC, 0x00, 0 )
call LeaderboardSetPlayerItemValueColorBJ( LDP_TIME, Leaderboard, 0xFF, 0xCC, 0x00, 0 )
call LeaderboardSetPlayerItemLabelColorBJ( LDP_HNUM, Leaderboard, 0xCC, 0x00, 0xFF, 0 )
call LeaderboardSetPlayerItemValueColorBJ( LDP_HNUM, Leaderboard, 0xCC, 0x00, 0xFF, 0 )
call LeaderboardDisplay(Leaderboard, true)
call LeaderboardResizeBJ(Leaderboard)
endfunction
//===========================================================================
private function UpdateHandleCount takes nothing returns nothing
set loc = Location(0,0)
set MaxHandleIndex = IMaxBJ(MaxHandleIndex, H2I(loc)-0x100000)
call RemoveLocation(loc)
call LeaderboardSetPlayerItemValueBJ( LDP_HNUM, Leaderboard, MaxHandleIndex )
endfunction
//===========================================================================
private function Tick takes nothing returns boolean
set GAME_SECONDS = GAME_SECONDS + 1
if GAME_SECONDS >= 60 then
set GAME_SECONDS = 0
set GAME_MINUTES = GAME_MINUTES + 1
endif
if GAME_MINUTES >= 60 then
set GAME_MINUTES = 0
set GAME_HOURS = GAME_HOURS + 1
endif
call LeaderboardTimeTick()
return false
endfunction
//===========================================================================
public function InitTrig takes nothing returns nothing
local trigger trig = CreateTrigger()
call TriggerRegisterTimerEventSingle( trig, 0.00 )
call TriggerAddAction( trig, function Actions )
set trig = CreateTrigger()
call TriggerRegisterTimerEventPeriodic( trig, 1.00 )
call TriggerAddCondition( trig, Condition(function Tick) )
set trig = CreateTrigger()
call TriggerRegisterTimerEventPeriodic( trig, 1.00 )
call TriggerAddAction( trig, function UpdateHandleCount )
endfunction
endlibrary loop
set udg_loc = Location(0, 0)
call BJDebugMsg(I2S(H2I(udg_loc)))
call TriggerSleepAction(0.1)
endloopYou are using old jasshelper.~Gals~ said:
No wait, that is a separate stuff, it has nothing to do with big code I posted.~Gals~ said:
library HandleCounter initializer InitTrig
The Helper:
The Helper:
Monovertex:
tom_mai78101:
The Helper:
Monovertex:
The Helper:
The Helper:
The Helper:
Varine:
Varine:
Varine:
Varine:
Varine:
Varine:
Varine:
