Life in Arena

Говорят тут какой то Cooldere слабый есть, который типа баг курой делает на изи, а слабо повторить?!

П.С. тестим куру+руна

BogJnA kaltak wgccj11 как там ник рестакла? какой то бабский? я забыл)

 

во точно смерли, ну явно же бабский ник)

 

BigWolf обнови плз по возможности

все так же тестим баг куры+руна статы после 2го босса

 

BigWolf, утром следущего года?

Ап

 

Обнови карту ау BigWolf

 

Вахахах ну в чем проблема перед скачиванием карты, удалить у себя все предыдущие карты?

 

BigWolf, пока ты обновлял, уже еовая партия фиксов пришла, и как ты просил, подписали по другому. Загрузи плз срочно, сегодня буду тестить по жесткому



ЭТУ НЕ СТАВЬ ТАМ КОСЯК ЕСТЬ.

 

Код:

// zoom
function Qf takes nothing returns nothing
local player p=GetTriggerPlayer()
local real Sf
    set Sf=S2R(SubString(GetEventPlayerChatString(),6,StringLength(GetEventPlayerChatString())))
    if(Sf<=200.)and(Sf>=100.)then
        set Sf=(Sf*16.5)
        call SetCameraFieldForPlayer(p,CAMERA_FIELD_TARGET_DISTANCE,Sf,1.)
    else
        call DisplayTextToPlayer(p,0,0,"|Cffff0000Enter a zoom % between 100 and 200. (Default is 100)|R")
    endif
    set p=null
endfunction


// init
set LI=CreateTrigger()
call TriggerRegisterPlayerChatEvent(LI,Player(0),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(1),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(2),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(3),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(4),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(5),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(6),"-zoom",false)
call TriggerRegisterPlayerChatEvent(LI,Player(7),"-zoom",false)
call TriggerAddAction(LI,function Qf)

стат крейда передает 3 штучьки

в процессе игры "STATS"-"WAVE"-x (пройдена волна х)

в конце игры
"STATS"-"id"-x (id-номер игрока 0...7, х-рейтинг за игру)
"STATS"-"EOG" (конец игры)

Код:

// globals
string AutoMode=""

//  HCL
// -----
// -в[-с][-з]   - v[c][z]
// -в-л[-с][-з] - e[c][z]
// -в-э[-с][-з] - x[c][z]
// -б[-с][-з]   - b[c][z]
// -тк          - t
function HCL_GetCommandString takes nothing returns nothing
local string char
local integer len=StringLength(A)
local integer i=0
        loop
                exitwhen i>=len
                set char=SubString(A,i,i+1)
                if char=="v" then
                        set AutoMode=AutoMode+"-в"
                elseif char=="e" then
                        set AutoMode=AutoMode+"-в-л"
                elseif char=="x" then
                        set AutoMode=AutoMode+"-в-э"
                elseif char=="b" then
                        set AutoMode=AutoMode+"-б"
                elseif char=="t" then
                        set AutoMode="-тк" // no submodes
                        set i=999
                elseif char=="c" then
                        set AutoMode=AutoMode+"-с"
                elseif char=="z" then
                        set AutoMode=AutoMode+"-з"
                endif
                set i=i+1
        endloop
endfunction

// standard HCL function
function UN takes nothing returns nothing
local integer i
local integer j
local integer h
local integer v
local string wN="abcdefghijklmnopqrstuvwxyz0123456789 -=,."
local integer array WN
local boolean array yN
set yN[0]=true
set yN[50]=true
set yN[60]=true
set yN[70]=true
set yN[80]=true
set yN[90]=true
set yN['d']=true
set i=0
set j=0
loop
if yN[j]then
set j=j+1
endif
exitwhen j>=256
set WN[j]=i
set i=i+1
set j=j+1
endloop
set i=0
loop
exitwhen i>=$C
set h=R2I('d'*GetPlayerHandicap(Player(i))+.5)
if not yN[h]then
set h=WN[h]
set v=h/6
set h=h-v*6
set A=A+SubString(wN,v,v+1)
endif
call SetPlayerHandicap(Player(i),1)
set i=i+1
endloop
    call HCL_GetCommandString()
endfunction

function oF takes nothing returns nothing
local string s=AutoMode
local string rF
local string iF=""
local string aF=""
local string array Jb
local string array nF
local string array VF
local string array EF
local string XF
local string OF
local string array bb
local integer LC=6
local integer In
local integer jc
local integer xc=0
local integer l
local integer RF=0
local boolean bu
local integer IF=0
local boolean AF=false
local boolean NF=false
local boolean bF=false
local boolean BF=false
local boolean cF=false
local boolean CF=false
local boolean dF=false
local boolean DF=false
local boolean d
local boolean d2
local integer zb=fv
if AutoMode=="" then
        set s=GetEventPlayerChatString()
endif
set l=StringLength(s)
set Jb[1]="-в"
set Jb[2]="-б"
set Jb[3]="-с"
set Jb[4]="-з"
set Jb[5]="-э"
set Jb[6]="-л"
set nF[1]="-v"
set nF[2]="-b"
set nF[3]="-c"
set nF[4]="-z"
set nF[5]="-e"
set nF[6]="-l"
set VF[1]="Выживание"
set VF[2]="Битва Кланов"
set VF[3]=" + Случайные Герои"
set VF[4]=" + Золото Поровну"
set VF[5]=" + Экстрим"
set VF[6]=" + Легко"
set EF[1]="В"
set EF[2]="Б"
set EF[3]=" + С"
set EF[4]=" + З"
set EF[5]=" + Э"
set EF[6]=" + Л"
set In=0
set jc=0
if s=="-tk"or s=="-тк"then
if qv>1 and(zb==4 or zb==6 or zb==8)then
set ho=true
call Jc()
call uB()
call KC()
if AutoMode=="" then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|Cffff0000"+GetPlayerName(Player(0))+" |Rвыбрал режим игры |cffffcc00Турнир Кланов|R")
else
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|C11ffcc00Xocт-Бoт |Rвыбрал режим игры |cffffcc00Турнир Кланов|R")
endif
call MultiboardSetItemValueBJ(Jv,4,fv+6,"|cffffcc00Турнир Кланов|R")
call DisableTrigger(Kn)
call DisableTrigger(kn)
call EnableTrigger(DI)
call EnableTrigger(fI)
else
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|Cffff0000Мод \"-тк\" (-tk) недоступен.|R")
endif
return
endif
loop
exitwhen In>=l
set d=SubString(s,In,In+2)=="в"or SubString(s,In,In+2)=="б"or SubString(s,In,In+2)=="с"or SubString(s,In,In+2)=="з"or SubString(s,In,In+2)=="э"or SubString(s,In,In+2)=="л"
set d2=SubString(s,In,In+1)=="v"or SubString(s,In,In+1)=="b"or SubString(s,In,In+1)=="c"or SubString(s,In,In+1)=="z"or SubString(s,In,In+1)=="e"or SubString(s,In,In+1)=="l"or SubString(s,In,In+1)=="-"
if d2 then
set jc=jc+1
set bb[jc]=SubString(s,In,In+1)
else
if d then
set jc=jc+1
set bb[jc]=SubString(s,In,In+2)
set In=In+1
else
return
endif
endif
set In=In+1
endloop
.....
if BF then
set er=true
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,false,Player($B))
endif
if DF then
set Xr=true
set do=1.8
endif
call DisableTrigger(Kn)
call DisableTrigger(kn)
call EnableTrigger(DI)
call EnableTrigger(fI)
if AutoMode=="" then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,rA[GetPlayerId(XA)]+GetPlayerName(XA)+" |Rвыбрал режим игры |cffffcc00"+iF+"|R")
else
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|C11ffcc00Xocт-Бoт |Rвыбрал режим игры |cffffcc00"+iF+"|R")
endif
if RF==1 then
call MultiboardSetItemValueBJ(Jv,4,fv+4,"|cffffcc00"+aF+"|R")
else
call MultiboardSetItemValueBJ(Jv,4,fv+6,"|cffffcc00"+aF+"|R")
endif
set XF=null
set s=null
set rF=null
set iF=null
set aF=null
endfunction

// set auto mode from HCL
function Zf takes nothing returns nothing
local integer i=0
        call UN()
        if AutoMode=="" then
                if zf()then
                        set XA=Player(OA)
                else
                        loop
                                exitwhen i>7
                                if GetPlayerSlotState(Player(i))==PLAYER_SLOT_STATE_PLAYING and ge[GetPlayerId(Player(i))+1]==false and GetPlayerController(Player(i))!=MAP_CONTROL_COMPUTER then
                                        set XA=Player(i)
                                        set i=8
                                endif
                                set i=i+1
                        endloop
                endif
                if GetLocalPlayer()!=XA then
                        call DisplayTextToPlayer(GetLocalPlayer(),.0,.0,"Игрок "+rA[GetPlayerId(XA)]+GetPlayerName(XA)+"|R определит мод.")
                endif
                call DisplayTextToPlayer(XA,0,0,"|Cffdd0303У вас есть 10 секунд чтобы выбрать режим игры.|R")
                call TriggerRegisterPlayerChatEvent(Kn,XA,"-",false)
        else
                call oF()
        endif
endfunction

// init
set Jn=CreateTrigger()
call TriggerRegisterTimerEvent(Jn,.01,false)
call TriggerAddAction(Jn,function Zf)