((код jass

globals
constant boolean LIBRARY_DebugLog=true
integer DebugLog__CurrentString=0
integer DebugLog__Seconds=0
integer DebugLog__Minutes=0
constant integer DebugLog__StringLimit=200
trigger gg_trg_DebugLog=null
trigger gg_trg_Add=null
trigger gg_trg_Clear=null
trigger gg_trg_Update=null
trigger l__library_init
string array sDebugLogDebugLog
string array s2DebugLogDebugLog
endglobals
function sgDebugLogDebugLog_get takes integer i returns string
if(i<8191)then
return sDebugLogDebugLog[i]
else
return s2DebugLogDebugLog[i-8191]
endif
endfunction
function sgDebugLogDebugLog_set takes integer i,string v returns nothing
if(i<8191)then
set sDebugLogDebugLog[i]=v
else
set s2DebugLogDebugLog[i-8191]=v
endif
endfunction
function LogAdd takes string s returns nothing
local string sec=I2S(DebugLog__Seconds)
if(DebugLog__Seconds<10)then
set sec="0"+sec
endif
call sgDebugLogDebugLog_set(DebugLogCurrentString,sgDebugLogDebugLog_get(DebugLogCurrentStrin​g)+("["+I2S(DebugLog__Minutes)+":"sec"] "s"\n"))
if(StringLength(sgDebugLogDebugLog_get(DebugLogCurrentString))>=DebugLogStringLimit)then
set DebugLogCurrentString=DebugLogCurrentString+1
endif
endfunction
function LogClear takes nothing returns nothing
local integer i=0
loop
exitwhen not(i<=DebugLog__CurrentString)
call sgDebugLogDebugLog_set(i,"")
set i=i+1
endloop
set DebugLog__CurrentString=0
endfunction
function LogUpdate takes nothing returns nothing
local integer i=0
call PreloadGenClear()
call PreloadGenStart()
loop
exitwhen not(i<=DebugLog__CurrentString)
call Preload("\")\n"+sgDebugLogDebugLog_get(i)+"\n(\"")
set i=i+1
endloop
call PreloadGenEnd("C:\\Dir\\Debug.txt")
endfunction
function DebugLog__DebugLogOnTimer takes nothing returns nothing
set DebugLogSeconds=DebugLogSeconds+1
if(DebugLog__Seconds>59)then
set DebugLog__Seconds=0
set DebugLogMinutes=DebugLogMinutes+1
endif
endfunction
function DebugLog__DebugLogInit takes nothing returns nothing
call TimerStart(CreateTimer(),1.0,true,function LogUpdate)
call TimerStart(CreateTimer(),1.,true,function DebugLog__DebugLogOnTimer)
call LogAdd("By DoctorGester. Last compilation: 2011.04.25 19:03:15")
endfunction
function InitGlobals takes nothing returns nothing
endfunction
function Trig_Add_Actions takes nothing returns nothing
call LogAdd("TEST")
endfunction
function InitTrig_Add takes nothing returns nothing
set gg_trg_Add=CreateTrigger()
call TriggerRegisterPlayerChatEvent(gg_trg_Add,Player(0),"add",true)
call TriggerAddAction(gg_trg_Add,function Trig_Add_Actions)
endfunction
function Trig_Clear_Actions takes nothing returns nothing
call LogClear()
endfunction
function InitTrig_Clear takes nothing returns nothing
set gg_trg_Clear=CreateTrigger()
call TriggerRegisterPlayerChatEvent(gg_trg_Clear,Player(0),"clear",true)
call TriggerAddAction(gg_trg_Clear,function Trig_Clear_Actions)
endfunction
function Trig_Update_Actions takes nothing returns nothing
call LogUpdate()
endfunction
function InitTrig_Update takes nothing returns nothing
set gg_trg_Update=CreateTrigger()
call TriggerRegisterPlayerChatEvent(gg_trg_Update,Player(0),"update",true)
call TriggerAddAction(gg_trg_Update,function Trig_Update_Actions)
endfunction
function InitCustomTriggers takes nothing returns nothing
call InitTrig_Add()
call InitTrig_Clear()
call InitTrig_Update()
endfunction
function RunInitializationTriggers takes nothing returns nothing
call ConditionalTriggerExecute(gg_trg_DebugLog)
endfunction
function InitCustomPlayerSlots takes nothing returns nothing
call SetPlayerStartLocation(Player(0),0)
call SetPlayerColor(Player(0),ConvertPlayerColor(0))
call SetPlayerRacePreference(Player(0),RACE_PREF_HUMAN)
call SetPlayerRaceSelectable(Player(0),true)
call SetPlayerController(Player(0),MAP_CONTROL_USER)
endfunction
function InitCustomTeams takes nothing returns nothing
call SetPlayerTeam(Player(0),0)
endfunction
function main takes nothing returns nothing
call SetCameraBounds(-1280.0+GetCameraMargin(CAMERA_MARGIN_LEFT),-1536.0+GetCameraMargin(CAMERA_MARGIN_BO​TTOM),1280.0-GetCameraMargin(CAMERA_MARGIN_RIGHT),1024.0-GetCameraMargin(CAMERA_MARGIN_TOP),-1280.0+​GetCameraMargin(CAMERA_MARGIN_LEFT),1024.0-GetCameraMargin(CAMERA_MARGIN_TOP),1280.0-GetCameraMargin​(CAMERA_MARGIN_RIGHT),-1536.0+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl​","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call NewSoundEnvironment("Default")
call SetAmbientDaySound("LordaeronSummerDay")
call SetAmbientNightSound("LordaeronSummerNight")
call SetMapMusic("Music",true,0)
call InitBlizzard()
call ExecuteFunc("DebugLog__DebugLogInit")
call InitGlobals()
call InitCustomTriggers()
call ConditionalTriggerExecute(gg_trg_DebugLog)
endfunction
function config takes nothing returns nothing
call SetMapName("??? ???? ?????")
call SetMapDescription("???????? ???????????")
call SetPlayers(1)
call SetTeams(1)
call SetGamePlacement(MAP_PLACEMENT_USE_MAP_SETTINGS)
call DefineStartLocation(0,-64.0,-192.0)
call InitCustomPlayerSlots()
call SetPlayerSlotAvailable(Player(0),MAP_CONTROL_USER)
call InitGenericPlayerSlots()
endfunction
))