[CD3.55] Team War Script

[astral]

Has anyone used these scripts?

QuestDiary/EventSystem/TeamWar

TeamWarNPC:

[@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 0 183 217
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] 180 @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 0 183 217
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'"
}


˙

Map_TeamWar

[@Main]#ACT
ReadValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" "FLD_POINT1,FLD_POINT2"  [MENTION=22745]Team[/MENTION]EventSystemTime_MapQuest


  [MENTION=22745]Team[/MENTION]EventSystemTime_MapQuest()]
#ACT
Mov D0 %ARG(1)
Mov D1 %ARG(2)


#IF
CheckTeam 1
#ACT
Inc D0 5
Dec D1 3
FormatStr "FLD_POINT1=%s,FLD_POINT2=%s" %D0 %D1
UpdateValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" %A9


#IF
CheckTeam 2
#ACT
Dec D0 3
Inc D1 5
FormatStr "FLD_POINT1=%s,FLD_POINT2=%s" %D0 %D1
UpdateValueSQL "TBL_EventSystemTotal" "FLD_NAME='TeamWar'" %A9


#IF
#ACT
LoadValue A7 [Convert_Def\QuestDiary\EventSystem\TeamWar\Map_TeamWar.txt] [Convert] [Msg0]
EventMsg "E001" %A7
break

Convert_Def:

TeamWarNPC

[Convert]Msg0 = Team War game starts in 5 minutes.
Msg1 = Team War game started. You have 10 minutes left to join.
Msg2 = You can't join Team War any longer.
Msg3 = Mir Team's point and Legend Team's point are same.
Msg4 = Mir Team won with <$OUTPUT(D0)>points.
Msg5 = Legend Team won with <$OUTPUT(D1)>points.
Msg6 = (!) Event System can be operated.


[@Convert_TeamWarNPC_0]
{
{FCOLOR/10}Operator Menu{FCOLOR/12} \ \
<Initialize TeamWar.  [MENTION=22745]Team[/MENTION]WarEventSystemTime> \ \
{FCOLOR/10}User Menu{FCOLOR/12} \ \


}


[@Convert_TeamWarNPC_1]
{
Desert MudWall is the center of desert.. \ \
<Start TeamWar Event./@JoinTeamWarEventSystem> \ \
<Join TeamWar Event.??/@StartTeamWarEventSystem> \ \




}


[@Convert_TeamWarNPC_2]
{
You cannot join since it's not entry time of Team War. \ \
<Close/@exit>


}


[@Convert_TeamWarNPC_3]
{
The number of participants is full. \ \
<Close/@exit>
}


[@Convert_TeamWarNPC_4]
{
You can win Team War if you have higher points after certain time. \
We get -3 points when a member of our team dies, and we get plus 5 points when a member of the other team dies. \ \
<Join ChamberOfOrdeal Game./@JoinChallengeTestSurviveGame>\
}


[@Convert_TeamWarNPC_5]
{
Now, you can't participate in the Chamber Of Ordeal Game. \ \
<Close/@exit>


}


[@Convert_TeamWarNPC_6]
{
You can't participate in the game if you don't have enough money. \ \
<Close/@exit>


}


[@Convert_TeamWarNPC_7]
{
There's an event going on right now, so you can't apply for the event. \ \
<Close/@exit>


}


[@Convert_TeamWarNPC_8]
{
<$USERNAME>, you don't have a FreePass.. \ \
<Close/@exit>
}


[@Convert_TeamWarNPC_9]
{
TeamWar Game started. \ \
<Close/@exit>
}


[@Convert_TeamWarNPC_10]
{
TeamWar game is already going on. \ \
<Close/@exit>
}

MapTeamWar:

[Convert]
Msg0 = Mir team's point is: <$OUTPUT(D0)>points , Legend team's point is : <$OUTPUT(D1)>points

Was it working for someone?

---------- Post Merged on 12-02-2019 at 03:31 PM ---------- Previous Post was on 08-02-2019 at 08:24 PM ----------

no one used this script?? ;/