tn.Script[tc.ScriptStep].Data2[6] := str;									$10: //奪										tn.Script[tc.ScriptStep].Data2[1] := str;                  $20: //嵍庤										tn.Script[tc.ScriptStep].Data2[2] := str;									$22: //椉庤晲婍										begin											tn.Script[tc.ScriptStep].Data2[2] := str;											tn.Script[tc.ScriptStep].Data2[3] := str;										end;									$40: //孋										tn.Script[tc.ScriptStep].Data2[5] := str;									$80: //傾僋僙2										tn.Script[tc.ScriptStep].Data2[7] := str;									$100: //摢忋抜										tn.Script[tc.ScriptStep].Data2[0] := str;									$200: //摢拞抜										tn.Script[tc.ScriptStep].Data2[8] := str;									$201: //摢拞壓抜										begin											tn.Script[tc.ScriptStep].Data2[8] := str;											tn.Script[tc.ScriptStep].Data2[9] := str;										end;									$300: //摢忋拞抜										begin											tn.Script[tc.ScriptStep].Data2[0] := str;											tn.Script[tc.ScriptStep].Data2[8] := str;										end;									$301: //摢忋拞壓抜										begin											tn.Script[tc.ScriptStep].Data2[0] := str;											tn.Script[tc.ScriptStep].Data2[8] := str;											tn.Script[tc.ScriptStep].Data2[9] := str;										end;								end;							end;						end;						for i := 0 to 9 do begin							if i = 0 then								str := tn.Script[tc.ScriptStep].Data2[i]							else								str := str + ':' + tn.Script[tc.ScriptStep].Data2[i];						end;						i := Length(str);						WFIFOW(0, $00b7);						WFIFOW(2, i + 8);						WFIFOL(4, tn.ID);						WFIFOS(8, str, i);						tc.Socket.SendBuf(buf[0], i + 8);						break;					end else begin						if value = $FF then begin              //EqLock夝彍              if tc.EqLock = true then tc.EqLock := false;							tc.ScriptStep := $FFFF;							break;						end;{NPC僀儀儞僩捛壛}						if (Copy(tn.Script[tc.ScriptStep].Data1[0], 1, 1) <> '\') then begin							tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(value);						end else begin							ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(value);						end;{NPC僀儀儞僩捛壛僐僐傑偱}						case value of							1:  l := $100; //摢忋抜							2:  l := $10;  //奪							3:  l := $20;  //嵍庤							4:  l := $2;   //塃庤							5:  l := $4;   //尐							6:  l := $40;  //孋							7:  l := $8;   //傾僋僙1							8:  l := $80;  //傾僋僙2							9:  l := $200; //摢忋抜							10: l := $1;   //摢壓抜							else l := 0;						end;						if l <> 0 then begin							k := 0;							j := 99;							for i := 1 to 100 do begin	    					if (tc.Item[i].ID <> 0) and (tc.Item[i].Amount <> 0) and tc.Item[i].Data.IEquip and  		  					 ((tc.Item[i].Equip and l) = l) then begin                  if tc.Item[i].Data.IType = 4 then begin                    j := tc.Item[i].Data.wLV;                  end else begin                    j := 0;                  end;                  k := i;                  break;                end;              end;{NPC僀儀儞僩捛壛}							if (Copy(tn.Script[tc.ScriptStep].Data1[1], 1, 1) <> '\') then begin								tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[1]] := IntToStr(j);							end else begin								ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[1]] := IntToStr(j);							end;							if (Copy(tn.Script[tc.ScriptStep].Data1[2], 1, 1) <> '\') then begin								if k <> 0 then									tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[2]] := IntToStr(tc.Item[i].Refine)								else									tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[2]] := '0';							end else begin								if k <> 0 then									ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[2]] := IntToStr(tc.Item[i].Refine)								else									ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[2]] := '0';							end;{NPC僀儀儞僩捛壛僐僐傑偱}						end;  					value := 0;					end;					Inc(tc.ScriptStep);				end;			31: //lockitem				begin{NPC僀儀儞僩捛壛}					i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0], true);{NPC僀儀儞僩捛壛僐僐傑偱}					if i = 0 then tc.EqLock := false						else if i = 1 then tc.EqLock := true;					Inc(tc.ScriptStep);				end;{惛楤NPC婡擻捛壛僐僐傑偱}{敮怓曄峏捛壛}			32: //hcolor				begin{NPC僀儀儞僩捛壛}					i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0], true);{NPC僀儀儞僩捛壛僐僐傑偱}					if (i >= 0) and (i <= 8) then begin						tc.HairColor := i;						WFIFOW(0, $00c3);						WFIFOL(2, tc.ID);						WFIFOB(6, 6);						WFIFOB(7, i);						SendBCmd(tc.MData, tc.Point, 8);					end;					Inc(tc.ScriptStep);				end;{敮怓曄峏捛壛僐僐傑偱}{NPC僀儀儞僩捛壛}			33: //callmob				begin					ts := TMob.Create;					with ts do begin						Map := tn.Script[tc.ScriptStep].Data1[0];						Point.X := tn.Script[tc.ScriptStep].Data3[0];						Point.Y := tn.Script[tc.ScriptStep].Data3[1];						if (Point.X = 0) and (Point.Y = 0) then begin							j := 0;							repeat								Point.X := Random(tm.Size.X - 2) + 1;								Point.Y := Random(tm.Size.Y - 2) + 1;								Inc(j);							until (tm.gat[Point.X, Point.Y] and 1 <> 0) or (j = 100);						end;						if (j = 100) then continue;						Name := tn.Script[tc.ScriptStep].Data1[1];						JID := tn.Script[tc.ScriptStep].Data3[2];						Data := MobDB.IndexOfObject(ts.JID) as TMobDB;						ID := NowMobID;						Inc(NowMobID);						//僀儀儞僩愝掕						if (tn.Script[tc.ScriptStep].Data2[0] = '') then Event := 0						else Event := StrToInt(tn.Script[tc.ScriptStep].Data2[0]);						Dir := Random(8);						HP := Data.HP;						Speed := Data.Speed;						SpawnDelay1 := $7FFFFFFF;						SpawnDelay2 := 0;						SpawnType := 0;						SpawnTick := 0;						isLooting := False;						for j:= 1 to 10 do begin							Item[j].ID := 0;							Item[j].Amount := 0;							Item[j].Equip := 0;							Item[j].Identify := 0;							Item[j].Refine := 0;							Item[j].Attr := 0;							Item[j].Card[0] := 0;							Item[j].Card[1] := 0;							Item[j].Card[2] := 0;							Item[j].Card[3] := 0;						end;						if (tn.Script[tc.ScriptStep].Data3[3] = 0) then begin							if Data.isDontMove then								MoveWait := 4294967295							else								MoveWait := Tick + 5000 + Cardinal(Random(10000));							isActive := ts.Data.isActive;						end else begin							MoveWait := timeGetTime();							isActive := true;						end;						ATarget := 0;						ATKPer := 100;						DEFPer := 100;						DmgTick := 0;						Element := Data.Element;						for j := 0 to 31 do begin							EXPDist[j].CData := nil;							EXPDist[j].Dmg := 0;						end;						if Data.MEXP <> 0 then begin							for j := 0 to 31 do begin								MVPDist[j].CData := nil;								MVPDist[j].Dmg := 0;							end;							MVPDist[0].Dmg := Data.HP * 30 div 100; //FA偵30%壛嶼						end;						isSummon := True;						tm.Mob.AddObject(ID, ts);						tm.Block[Point.X div 8][Point.Y div 8].Mob.AddObject(ID, ts);						//廃埻偵憲怣						ZeroMemory(@buf[0], 41);						WFIFOW( 0, $007c);						WFIFOL( 2, ID);						WFIFOW( 6, Speed);						WFIFOW( 8, Stat1);						WFIFOW(10, Stat2);						WFIFOW(20, JID);						WFIFOM1(36, Point, Dir);						SendBCmd(tm,Point,41,nil,true);						Inc(tc.ScriptStep);					end;				end;			34: //broadcast				begin					l := tn.Script[tc.ScriptStep].Data3[0];					str := tn.Script[tc.ScriptStep].Data1[0] + chr(0);					i := AnsiPos('$[', str);					while i <> 0 do begin						j := AnsiPos(']', Copy(str, i + 2, 256));						if j <= 1 then break;						if (Copy(str, i + 2, 1) = '$') then begin							str := Copy(str, 1, i - 1) + tc.Flag.Values[Copy(str, i + 2, j - 1)]  + Copy(str, i + j + 2, 256);						end else if (Copy(str, i + 2, 2) = '\$') then begin							str := Copy(str, 1, i - 1) + ServerFlag.Values[Copy(str, i + 2, j - 1)]  + Copy(str, i + j + 2, 256);						end else begin							k := ConvFlagValue(tc, Copy(str, i + 2, j - 1), true);							if k <> -1 then begin								str := Copy(str, 1, i - 1) + IntToStr(k) + Copy(str, i + j + 2, 256);							end else begin								str := Copy(str, 1, i - 1) + Copy(str, i + j + 2, 256);							end;						end;						i := AnsiPos('$[', str);					end;					str := StringReplace(str, '$codeversion', CodeVersion, [rfReplaceAll]);					str := StringReplace(str, '$charaname', tc.Name, [rfReplaceAll]);          str := StringReplace(str, '$guildname', GetGuildName(tn), [rfReplaceAll]);          str := StringReplace(str, '$guildmaster', GetGuildMName(tn), [rfReplaceAll]);          str := StringReplace(str, '$edegree', IntToStr(GetGuildEDegree(tn)), [rfReplaceAll]);          str := StringReplace(str, '$etrigger', IntToStr(GetGuildETrigger(tn)), [rfReplaceAll]);          str := StringReplace(str, '$ddegree', IntToStr(GetGuildDDegree(tn)), [rfReplaceAll]);          str := StringReplace(str, '$dtrigger', IntToStr(GetGuildDTrigger(tn)), [rfReplaceAll]);					str := StringReplace(str, '$$', '$', [rfReplaceAll]);					str := StringReplace(str, '\\', '\', [rfReplaceAll]);					if ((l mod 100) div 10 = 0) then str := tn.Name + ' : ' + str;					if (l div 100 = 1) then str := 'blue' + str;					w := Length(str) + 4;					WFIFOW(0, $009a);					WFIFOW(2, w);					WFIFOS(4, str, w - 4);					if (l mod 10 = 0) then begin						//僇儗儞僩MAP偺僉儍儔偵憲怣						tm := Map.Objects[Map.IndexOf(tn.Map)] as TMap;						for i := 0 to tm.CList.Count - 1 do begin							tc1 := tm.CList.Objects[i] as TChara;							if tc1.Login = 2 then tc1.Socket.SendBuf(buf, w);						end;					end else begin						//慡儚乕儖僪偺僉儍儔偵憲怣						for i := 0 to CharaName.Count - 1 do begin							tc1 := CharaName.Objects[i] as TChara;							if tc1.Login = 2 then tc1.Socket.SendBuf(buf, w);						end;					end;					Inc(tc.ScriptStep);				end;			35: //npctimer				begin					i := tn.Script[tc.ScriptStep].Data3[0];					j := tm.TimerAct.IndexOf(tn.ID);					if (i = 0) then begin						//僞僀儅乕OFF						if (j <> -1) then begin							DebugOut.Lines.Add(Format('NPC Timer(%d) was deleted / Remaining Timer(%d)', [tn.ID,tm.TimerAct.Count-1]));							tm.TimerAct.Delete(tm.TimerAct.IndexOf(tn.ID));						end;					end else if (i = 1) then begin						//僞僀儅乕ON						if (j = -1) then begin							//怴婯僗僞乕僩							j := tm.TimerDef.IndexOf(tn.ID);							if (j <> -1) then begin								tr := tm.TimerDef.Objects[j] as NTimer;								tr.Tick := timeGetTime();								for k := 0 to tr.Cnt - 1 do begin									tr.Done[k] := 0;								end;								tm.TimerAct.AddObject(tn.ID, tr);								DebugOut.Lines.Add(Format('NPC Timer(%d) was started / Starting Timer(%d)', [tn.ID,tm.TimerAct.Count]));							end;						end else begin							//嵞僗僞乕僩							tr := tm.TimerAct.Objects[j] as NTimer;							tr.Tick := timeGetTime();							for k := 0 to tr.Cnt - 1 do begin								tr.Done[k] := 0;							end;							DebugOut.Lines.Add(Format('NPC Timer(%d) was re-started / Starting Timer(%d)', [tn.ID,tm.TimerAct.Count]));						end;					end;					Inc(tc.ScriptStep);				end;			36: //addnpctimer				begin					i := -1;					for k := 0 to tm.NPC.Count - 1 do begin						tn1 := tm.NPC.Objects[k] as TNPC;						if (tn1.Name = tn.Script[tc.ScriptStep].Data1[0]) then begin							i := 0;							break;						end;					end;					if (i <> -1) then begin						i := tn.Script[tc.ScriptStep].Data3[0];						j := tm.TimerAct.IndexOf(tn1.ID);						if (j <> -1) then begin							tr := tm.TimerAct.Objects[j] as NTimer;							if (i > 0) then tr.Tick := tr.Tick - cardinal(i)							else tr.Tick := tr.Tick + cardinal(abs(i));							if (tr.Tick > Tick) then tr.Tick := Tick;							for k := 0 to tr.Cnt - 1 do begin								if (i < 0) and (tr.Tick + cardinal(tr.Idx[k]) > Tick) then begin									//夁嫀偺僀儀儞僩傪枹幚峴偵偡傞									tr.Done[k] := 0;								end else if (i > 0) and (tr.Tick + cardinal(tr.Idx[k]) < Tick) then begin									//枹棃偺僀儀儞僩傪幚峴嵪偵偡傞									tr.Done[k] := 1;								end;							end;							DebugOut.Lines.Add(Format('NPC Timer(%d) was added (%d)ms', [tn.ID,i]));						end;					end;					Inc(tc.ScriptStep);				end;			37: //return				begin					tc.ScriptStep := $FFFF;					break;				end;			38: //warpallpc				begin					if (tn.Script[tc.ScriptStep].Data3[2] = 0) then begin						//僇儗儞僩MAP偺僉儍儔傪揮憲						tm := Map.Objects[Map.IndexOf(tn.Map)] as TMap;						while (tm.CList.Count > 0) do begin							tc1 := tm.CList.Objects[0] as TChara;							if tc1.Login = 2 then begin								SendCLeave(tc1, 2);								tc1.tmpMap := tn.Script[tc.ScriptStep].Data1[0];								tc1.Point := Point(tn.Script[tc.ScriptStep].Data3[0],tn.Script[tc.ScriptStep].Data3[1]);								MapMove(tc1.Socket, tc1.tmpMap, tc1.Point);							end;						end;					end else if (tn.Script[tc.ScriptStep].Data3[2] = 1) then begin						//慡儚乕儖僪偺僉儍儔傪揮憲						for j := 0 to CharaName.Count - 1 do begin							tc1 := CharaName.Objects[j] as TChara;							if tc1.Login = 2 then begin								SendCLeave(tc1, 2);								tc1.tmpMap := tn.Script[tc.ScriptStep].Data1[0];								tc1.Point := Point(tn.Script[tc.ScriptStep].Data3[0],tn.Script[tc.ScriptStep].Data3[1]);								MapMove(tc1.Socket, tc1.tmpMap, tc1.Point);							end;						end;					end else begin						//NPC僠儍僢僩儖乕儉撪偺僉儍儔傪揮憲						if (tn.ChatRoomID <> 0) then begin							i := ChatRoomList.IndexOf(tn.ChatRoomID);							tcr := ChatRoomList.Objects[i] as TChatRoom;							if (tcr.Users < 2) then continue;							while (tcr.Users > 1) do begin								tc1 := CharaPID.IndexOfObject(tcr.MemberID[1]) as TChara;								if tc1.Login = 2 then begin									SendCLeave(tc1, 2);									tc1.tmpMap := tn.Script[tc.ScriptStep].Data1[0];									tc1.Point := Point(tn.Script[tc.ScriptStep].Data3[0],tn.Script[tc.ScriptStep].Data3[1]);									MapMove(tc1.Socket, tc1.tmpMap, tc1.Point);								end;							end;						end;					end;					Inc(tc.ScriptStep);				end;			39: //waitingroom				begin