TSL Compatability, separating componets

TS_Sime/dialogue/FATESP.d

@@ -10,4 +10,4 @@ Wait(2)
 SetGlobal("VP_SimeRomanceActive","GLOBAL",2)
 CreateCreature("vpsime25",[1999.1228],0) 
 SetGlobal("VPSimeSummoned","GLOBAL",1)~ GOTO 8
-END
+END

TS_Sime/dialogue/crossmod/tsl-kachiko.d

@@ -0,0 +1,39 @@
+// Kachiko Banters
+
+CHAIN
+IF ~InParty("vpkachi")
+See("vpkachi")
+!StateCheck("vpkachi",CD_STATE_NOTVALID)
+!StateCheck("vpsime",CD_STATE_NOTVALID)
+CombatCounter(0)
+!See([ENEMY])
+RealGlobalTimerExpired("VPSimeKachikoTimer","GLOBAL")
+Global("VPSimeKachiko1","GLOBAL",0)~ THEN VPSIMEB SimeKachiko1
+@0
+DO ~SetGlobal("VPSimeKachiko1","GLOBAL",1)~
+== VPKACHIB @1
+== VPSIMEB @2
+== VPKACHIB @3
+== VPSIMEB @4
+EXIT
+
+CHAIN
+IF ~InParty("vpkachi")
+See("vpkachi")
+!StateCheck("vpkachi",CD_STATE_NOTVALID)
+!StateCheck("vpsime",CD_STATE_NOTVALID)
+CombatCounter(0)
+!See([ENEMY])
+RealGlobalTimerExpired("VPSimeKachikoTimer","GLOBAL")
+Global("VPSimeKachiko2","GLOBAL",0)~ THEN VPSIMEB SimeKachiko2
+@5
+DO ~SetGlobal("VPSimeKachiko2","GLOBAL",1)~
+== VPKACHIB @6
+== VPSIMEB @7
+== VPKACHIB @8
+== VPSIMEB @9
+== VPKACHIB @10
+== VPSIMEB @11
+== VPKACHIB @12
+== VPSIMEB @13
+EXIT

TS_Sime/dialogue/crossmod/tsl.d

@@ -0,0 +1,42 @@
+//TS Island Interjections
+
+EXTEND_BOTTOM PPSAEM %vpsimeppsaemext%
+  IF ~InParty("vpsime") Global("ThiefGroup","GLOBAL",1)~ THEN REPLY @4 DO ~SetGlobal("Island_War","GLOBAL",1)~ EXTERN VPSIMEJ vpsimetsl0
+END
+
+CHAIN VPSIMEJ vpsimetsl0
+@14
+END
+  IF ~~ THEN REPLY @15 EXTERN VPSIMEJ vpsimetsl1
+  IF ~~ THEN REPLY @16 EXTERN VPSIMEJ vpsimetsl2
+
+CHAIN VPSIMEJ vpsimetsl1
+@17
+DO ~SetGlobal("Kicked_Out","LOCALS",1)
+ChangeAIScript("",DEFAULT)
+SetLeavePartyDialogFile()
+LeaveParty()~
+EXIT
+
+CHAIN VPSIMEJ vpsimetsl2
+@18 DO ~SetGlobal("Kicked_Out","LOCALS",0)~
+EXIT
+
+
+//Sailoff Dialogue
+
+EXTEND_BOTTOM PPSAEM 48
+  IF ~InParty("vpsime") InParty("vpkachi")~ THEN EXTERN ~PPARAN2~ VPSailOffSime_TSL
+END
+
+CHAIN PPARAN2 VPSailOffSime_TSL
+@20
+= #43913
+== PPSAEM #43916
+== VPSIMEJ #43917
+== PPSAEM #43918
+== PPARAN2 #43919
+== PPSAEM #43920
+= #43921
+END
+IF ~~ THEN EXTERN VPKACHIJ %vpkachisailoff1%

TS_Sime/dialogue/vparan.d

@@ -56,4 +56,4 @@ CHAIN VPARAN 7
 @21
 == VPSIMEJ @22
 DO ~SetGlobal("VP_Aran_Ring","GLOBAL",1) SetGlobal("VP_Sime_Aran","GLOBAL",2) SetGlobal("VP_AranLeaves","GLOBAL",1) GiveItemCreate("vparring",Player1,3,0,0)~
-EXIT
+EXIT