[Holley] TeamWar

smoochy boys on tour

Wargo

Loyal Member
Loyal Member
Jan 13, 2015
31
0
33
Hi all!

I have a problem with this event, the event is activated but will not let me enter the room, Always tell me this: Currenlty Full - Cannot Enter.

Code:
[@GuildWarEventSystem]
{
#IF
Isadmin


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_0


#IF


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_1


[@StartTeamWarEventSystem]
#ACT
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_USER,FLD_FARE,FLD_STEP,FLD_MAXUSER1,FLD_MAXUSER2" @StartTeamWarEventSystem_Check


[@StartTeamWarEventSystem_Check()]
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov A1 %ARG(3)
Mov D2 %ARG(4)
Mov D3 %ARG(5)


#IF
Equal A1 "OpenGate"
#ELSEACT
break


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_2


#IF
CheckTeamCount [1] "E004" 0
#ACT
Mov D2 %P9


#IF
CheckTeamCount [2] "E004" 0
#ACT
Mov D3 %P9


#IF
ELarge D2 %D0
or ELarge D3 %D1


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_3


#ACT
break


#IF
Equal A1 "StartOpen"


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_4




#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_5


[@JoinChallengeTestSurviveGame]
#ACT
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP" @JoinChallengeTestSurviveGame_Next


[@JoinChallengeTestSurviveGame_Next()]
#IF
#ACT
Mov A1 %ARG(1)


#IF
Equal A1 "StartOpen"
Equal A0 %USERNAME
#ACT
Map E004
break


#IF
Equal A1 "StartOpen"
CheckGold %D0
#ELSEACT
break


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_6


#IF
ELarge D2 %D3
#ACT
Take Gold %D0
TeamMakeTeam 2
Killslave
Map E004
break


#IF
Small D2 %D3
#ACT
Take Gold %D0
TeamMakeTeam 1
Killslave
Map E004
break




[@JoinTeamWarEventSystem]
#ACT
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TotalControl'" "FLD_STEP" @JoinTeamWarEventSystem_Next


[@JoinTeamWarEventSystem_Next()]
#ACT
mov A9 %ARG(1)


#IF
Equal A9 "Ready"
#ACT
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP" @JoinTeamWarEventSystem_Next1


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_7


[@JoinTeamWarEventSystem_Next1()]
#ACT
mov A9 %ARG(1)


#IF
!Checkitem FreePass 1


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_8


#ACT
break


#IF
Equal A9 "Ready"
Checkitem FreePass 1


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_9


#ACT
MapTing E004 5 240 129
ChangeMapAttr "E004" "TEAMFIGHT"
FormatStr "FLD_USER='%s',FLD_STEP='StartClose'" %USERNAME
UpdateValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" %A9
UpdateValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_POINT1=10000,FLD_POINT2=10000"
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg0]
LineMsg [Grobal] %A7
Delaygoto [Grobal] 300 @JoinTeamWarEventSystem_Next2
break


#IF


#SAY
#INCLUDE [..\Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] @Convert_TeamWarNPC_10


#ACT
break


[@JoinTeamWarEventSystem_Next2]
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg1]
LineMsg [Grobal] %A7
UpdateValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP='OpenGate'"
Delaygoto [Grobal] 1200 @JoinTeamWarEventSystem_Next3


[@JoinTeamWarEventSystem_Next3]
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg2]
LineMsg [Grobal] %A7
UpdateValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP='CloseGate'"
Delaygoto [Grobal] 600 @JoinTeamWarEventSystem_Next4


[@JoinTeamWarEventSystem_Next4]
#ACT
ReadValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_POINT1,FLD_POINT2" @JoinTeamWarEventSystem_Next5


[@JoinTeamWarEventSystem_Next5()]
#ACT
Mov D0 %ARG(1)
Mov D1 %ARG(2)
UpdateValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP='End'"


#IF
Equal D0 %D1
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg3]
LineMsg [Grobal] %A7
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_REWORD1,FLD_REWORN1COUNT,FLD_MAPEXP" @JoinTeamWarEventSystem_Next6
break


#IF
Large D0 %D1
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg4]
LineMsg [Grobal] %A7
TeamTing E401 2 "E401 40 40 40"
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_REWORD1,FLD_REWORN1COUNT,FLD_MAPEXP" @JoinTeamWarEventSystem_Next6
break


#IF
Large D1 %D0
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg5]
LineMsg [Grobal] %A7
TeamTing E401 1 "E401 40 40 40"
ReadValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_REWORD1,FLD_REWORN1COUNT,FLD_MAPEXP" @JoinTeamWarEventSystem_Next6
break


[@JoinTeamWarEventSystem_Next6()]
#ACT
mov A9 %ARG(1)
mov D9 %ARG(2)
Mov D8 %ARG(3)
GiveExpMap E004 %D8
DropItemMap "E004,40,40,20" %A9 1 %D9
Delaygoto [Grobal] 300 @JoinTeamWarEventSystem_Next7


[@JoinTeamWarEventSystem_Next7]
#ACT
MapTing E002 5 240 129
Delaygoto [Grobal] 300 @JoinTeamWarEventSystem_Next8


[@JoinTeamWarEventSystem_Next8]
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\TeamWarNPC.txt] [Convert] [Msg6]
LineMsg [Grobal] %A7
UpdateValueSql "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_STEP='Ready'"
UpdateValueSql "TBL_EventSystemTotal" "FLD_NAME='TotalControl'" "FLD_STEP='Ready'"
}

Code:
[@Convert_TeamWarNPC_3]{
Currenlty Full - Cannot Enter\ \
<Exit/@exit>
}






[FONT=&quot]Resolved!![/FONT]
 
Last edited:

astral

Dedicated Member
Dedicated Member
Dec 14, 2012
109
3
45
Poland
can you write what the problem was? Because I have the same ...

---------- Post Merged on 15-02-2019 at 05:07 PM ---------- Previous Post was on 08-02-2019 at 08:31 PM ----------

up?

any help me? ;D
 
Upvote 0