删错一个字符就毁图

会飞的羊

该帖我用来备份资料的。

HM RPG

trigger gg_trg_Australia=null

function Trig_Australia_Func001C takes nothing returns boolean

if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
return true
endfunction
function Trig_Australia_Func002C takes nothing returns boolean
if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
return true
endfunction
function Trig_Australia_Func003C takes nothing returns boolean
if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
return true
endfunction
function Trig_Australia_Func004C takes nothing returns boolean
if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
return true
endfunction
function Trig_Australia_Func005C takes nothing returns boolean
if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
return true
endfunction
function Trig_Australia_Func006C takes nothing returns boolean
if(not(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_EMPTY))then
return false
endif
if(not(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_PLAYING))then
return false
endif
return true
endfunction
function Trig_Australia_Func007Func001C takes nothing returns boolean
if((GetPlayerController(Player(0))==MAP_CONTROL_COMPUTER))then
return true
endif
if((GetPlayerController(Player(1))==MAP_CONTROL_COMPUTER))then
return true
endif
if((GetPlayerController(Player(2))==MAP_CONTROL_COMPUTER))then
return true
endif
if((GetPlayerController(Player(5))==MAP_CONTROL_COMPUTER))then
return true
endif
if((GetPlayerController(Player(6))==MAP_CONTROL_COMPUTER))then
return true
endif
if((GetPlayerController(Player(7))==MAP_CONTROL_COMPUTER))then
return true
endif
return false
endfunction
function Trig_Australia_Func007C takes nothing returns boolean
if(not Trig_Australia_Func007Func001C())then
return false
endif
return true
endfunction
function Trig_Australia_Actions takes nothing returns nothing
if(Trig_Australia_Func001C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func002C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func003C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func004C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func005C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func006C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
if(Trig_Australia_Func007C())then
call CustomDefeatBJ(Player(0),"패배!")
call CustomDefeatBJ(Player(1),"패배!")
call CustomDefeatBJ(Player(2),"패배!")
call CustomDefeatBJ(Player(5),"패배!")
call CustomDefeatBJ(Player(6),"패배!")
call CustomDefeatBJ(Player(7),"패배!")
else
endif
call DestroyTrigger(GetTriggeringTrigger())
endfunction
function InitTrig_Australia takes nothing returns nothing
set gg_trg_Australia=CreateTrigger()
call TriggerAddAction(gg_trg_Australia,function Trig_Australia_Actions)
endfunction

call InitTrig_Australia()

call ConditionalTriggerExecute(gg_trg_Australia)

删除以上字段。

---------------------------------------------------------------------我是华丽的分割线-----------------------------------------------------

Expedition_rpg

function InitTrig_Single takes nothing returns nothing
set gg_trg_Single=CreateTrigger()
call TriggerRegisterTimerEventSingle(gg_trg_Single,0.01)
call TriggerAddCondition(gg_trg_Single,Condition(function Trig_Single_Conditions))
call TriggerAddAction(gg_trg_Single,function Trig_Single_Actions)
endfunction
function Trig_Single_Actions takes nothing returns nothing
call DisplayTimedTextToForce(GetPlayersAll(),30,"?????? ?? ? ????.\n")
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call CustomVictoryBJ(ConvertedPlayer(GetForLoopIndexA()),true,true)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Trig_Single_Conditions takes nothing returns boolean
if(not(CountPlayersInForceBJ(GetPlayersMatching(Condition(function Trig_Single_Func003001001001)))==(CountPlayersInForceBJ(GetPlayersByMapControl(MAP_CONTROL_COMPUTER))+1)))then
return false
endif
return true
endfunction
function Trig_Single_Func003001001001 takes nothing returns boolean
return(GetPlayerSlotState(GetFilterPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction