unit Script;interfaceuses	Windows, Types, SysUtils, Common, MMSystem;//==============================================================================// 娭悢掕媊		procedure NPCScript(tc:TChara; value:cardinal = 0; mode:byte = 0); //edited by The Harbinger -- darkWeiss version//==============================================================================implementation//==============================================================================procedure NPCScript(tc:TChara; value:cardinal = 0; mode:byte = 0);var	i,j,k,l :integer;  m       :integer;	cnt     :integer;	str     :string;	p       :pointer;	len     :cardinal;	flag    :boolean;	tn      :TNPC;	td      :TItemDB;{NPC僀儀儞僩捛壛}	ts      :TMob;	ts1     :TMob;	tm      :TMap;	tm1     :TMap;	tn1     :TNPC;	tc1     :TChara;  tg      :TGuild;  tgc     :TCastle;	w       :word;	Tick    :cardinal;	tr      :NTimer;	tcr     :TChatRoom;	mi      :MapTbl;{NPC僀儀儞僩捛壛僐僐傑偱}begin	flag := false;  	if (tc.AMode <> 3) then exit;	tn := tc.AData;	//with tn do begin		//嫍棧僠僃僢僋{NPC僀儀儞僩捛壛}		if (mode = 0) then begin			if (tc.Map <> tn.Map) or (abs(tc.Point.X - tn.Point.X) > 15) or (abs(tc.Point.Y - tn.Point.Y) > 15) then begin				tc.AMode := 0;				exit;			end;		end;		tm := Map.Objects[Map.IndexOf(tn.Map)] as TMap;		Tick := timeGetTime();{NPC僀儀儞僩捛壛僐僐傑偱}		cnt := 0;		while (tc.ScriptStep < tn.ScriptCnt) and (cnt < 100) do begin			case tn.Script[tc.ScriptStep].ID of			0: //(nop)				begin					Inc(tc.ScriptStep);				end;			1: //mes				begin					str := tn.Script[tc.ScriptStep].Data1[0];					i := AnsiPos('$[', str);					while i <> 0 do begin						j := AnsiPos(']', Copy(str, i + 2, 256));						if j <= 1 then break;{NPC僀儀儞僩捛壛}						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;{NPC僀儀儞僩捛壛僐僐傑偱}						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]);					i := Length(str);					WFIFOW(0, $00b4);					WFIFOW(2, i + 8);					WFIFOL(4, tn.ID);					WFIFOS(8, str, i);					tc.Socket.SendBuf(buf[0], i + 8);					Inc(tc.ScriptStep);				end;			2: //next				begin					WFIFOW(0, $00b5);					WFIFOL(2, tn.ID);					tc.Socket.SendBuf(buf[0], 6);					Inc(tc.ScriptStep);					break;				end;			3: //close				begin					WFIFOW(0, $00b6);					WFIFOL(2, tn.ID);					tc.Socket.SendBuf(buf[0], 6);					tc.ScriptStep := $FFFF;					break;				end;			4: //menu				begin					if value = 0 then begin						for i := 0 to tn.Script[tc.ScriptStep].DataCnt - 1 do begin							if i = 0 then								str := tn.Script[tc.ScriptStep].Data1[i]							else								str := str + ':' + tn.Script[tc.ScriptStep].Data1[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{惛楤NPC婡擻捛壛}              //EqLock夝彍							if tc.EqLock = true then tc.EqLock := false;{惛楤NPC婡擻捛壛僐僐傑偱}							tc.ScriptStep := $FFFF;							break;						end;						Dec(value);						if tn.Script[tc.ScriptStep].DataCnt <= value then begin							tc.ScriptStep := $FFFF;							break;						end;						tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[value];						value := 0;					end;				end;			5: //goto				begin					tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[0];				end;			6: //cutin				begin					WFIFOW(0, $0145);					WFIFOS(2, tn.Script[tc.ScriptStep].Data1[0], 16);					WFIFOB(18, tn.Script[tc.ScriptStep].Data3[0]);					tc.Socket.SendBuf(buf[0], 19);					Inc(tc.ScriptStep);				end;			7: //store				begin					tc.AMode := 4;					SendCStoreList(tc);					Inc(tc.ScriptStep);				end;			8: //warp				begin					SendCLeave(tc, 2);					tc.tmpMap := tn.Script[tc.ScriptStep].Data1[0];					tc.Point := Point(tn.Script[tc.ScriptStep].Data3[0],tn.Script[tc.ScriptStep].Data3[1]);					MapMove(tc.Socket, tc.tmpMap, tc.Point);					exit;				end;			9: //save				begin{NPC僀儀儞僩捛壛}					i := MapInfo.IndexOf(tm.Name);					if (i <> -1) then begin						mi := MapInfo.Objects[i] as MapTbl;						if (mi.noSave <> true) then begin							tc.SaveMap := tn.Script[tc.ScriptStep].Data1[0];							tc.SavePoint := Point(tn.Script[tc.ScriptStep].Data3[0],tn.Script[tc.ScriptStep].Data3[1]);						end;					end;{NPC僀儀儞僩捛壛僐僐傑偱}					Inc(tc.ScriptStep);				end;			10: //heal				begin					Inc(tc.HP, tn.Script[tc.ScriptStep].Data3[0]);					if tc.HP > tc.MAXHP then tc.HP := tc.MAXHP;					Inc(tc.SP, tn.Script[tc.ScriptStep].Data3[1]);					if tc.SP > tc.MAXSP then tc.SP := tc.MAXSP;					//僷働憲怣					WFIFOW( 0, $011a);					WFIFOW( 2, 28);					WFIFOW( 4, tn.Script[tc.ScriptStep].Data3[0]);					WFIFOL( 6, tc.ID);					WFIFOL(10, tn.ID);					WFIFOB(14, 1);					SendBCmd(tc.MData, tn.Point, 15);					{					WFIFOW( 0, $013d);					WFIFOW( 2, $0007);					WFIFOW( 4, tn.Script[tc.ScriptStep].Data3[1]);					tc.Socket.SendBuf(buf, 6);					}					WFIFOW( 0, $00b0);					WFIFOW( 2, $0005);					WFIFOL( 4, tc.HP);					tc.Socket.SendBuf(buf, 8);					WFIFOW( 0, $00b0);					WFIFOW( 2, $0007);					WFIFOL( 4, tc.SP);					tc.Socket.SendBuf(buf, 8);					Inc(tc.ScriptStep);				end;			11: //set				begin					str := tn.Script[tc.ScriptStep].Data1[0];					p := nil;					len := 0;							 if str = 'zeny'        then begin p := @tc.Zeny;        len := 4; end					else if str = 'job'         then begin p := @tc.JID;         len := 2; end					else if str = 'baselevel'   then begin p := @tc.BaseLV;      len := 2; end					else if str = 'joblevel'    then begin p := @tc.JobLV;       len := 2; end					else if str = 'statuspoint' then begin p := @tc.StatusPoint; len := 2; end					else if str = 'skillpoint'  then begin p := @tc.SkillPoint;  len := 2; end					else if str = 'option'      then begin p := @tc.Option;      len := 4; end					else if str = 'speed'       then begin p := @tc.Speed;       len := 2; end;					if len <> 0 then begin						//嵍曈偼僷儔儊乕僞{NPC僀儀儞僩捛壛}						j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱}						i := 0;						if tn.Script[tc.ScriptStep].Data3[0] <> 0 then CopyMemory(@i, p, len);						case tn.Script[tc.ScriptStep].Data3[0] of						0,1:	i := i + j;						2:		i := i - j;						3:		i := i * j;						4:		i := i div j;						end;						if i < 0 then i := 0;						if (tn.Script[tc.ScriptStep].Data3[1] <> 0) and								(i > tn.Script[tc.ScriptStep].Data3[1]) then i := tn.Script[tc.ScriptStep].Data3[1];						CopyMemory(p, @i, len);						SendCStat(tc);					end else begin						//嵍曈偼僼儔僌{NPC僀儀儞僩捛壛}						j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);						if (tn.Script[tc.ScriptStep].Data3[0] = 0) then begin							i := 0;						end else begin							i := ConvFlagValue(tc, str);						end;{NPC僀儀儞僩捛壛僐僐傑偱}						case tn.Script[tc.ScriptStep].Data3[0] of						0,1:  i := i + j;						2:    i := i - j;						3:    i := i * j;						4:    i := i div j;						end;						if i < 0 then i := 0;						if (tn.Script[tc.ScriptStep].Data3[1] <> 0) and							 (i > tn.Script[tc.ScriptStep].Data3[1]) then i := tn.Script[tc.ScriptStep].Data3[1];{NPC僀儀儞僩捛壛}						if (Copy(str, 1, 1) <> '\') then begin							tc.Flag.Values[str] := IntToStr(i);						end else begin							ServerFlag.Values[str] := IntToStr(i);						end;{NPC僀儀儞僩捛壛僐僐傑偱}					end;					Inc(tc.ScriptStep);				end;			12: //additem				begin{NPC僀儀儞僩捛壛}					i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]);					j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱}					td := ItemDB.IndexOfObject(i) as TItemDB;					if tc.MaxWeight >= tc.Weight + cardinal(td.Weight) * cardinal(j) then begin						k := SearchCInventory(tc, i, td.IEquip);						if k <> 0 then begin							if tc.Item[k].Amount + j > 30000 then j := 30000 - tc.Item[k].Amount;							if td.IEquip then j := 1;							//傾僀僥儉捛壛							tc.Item[k].ID := i;							tc.Item[k].Amount := tc.Item[k].Amount + j;							tc.Item[k].Equip := 0;							tc.Item[k].Identify := 1;							tc.Item[k].Refine := 0;							tc.Item[k].Attr := 0;							tc.Item[k].Card[0] := 0;							tc.Item[k].Card[1] := 0;							tc.Item[k].Card[2] := 0;							tc.Item[k].Card[3] := 0;							tc.Item[k].Data := td;							//廳検捛壛							tc.Weight := tc.Weight + cardinal(td.Weight) * cardinal(j);							WFIFOW( 0, $00b0);							WFIFOW( 2, $0018);							WFIFOL( 4, tc.Weight);							tc.Socket.SendBuf(buf, 8);							//傾僀僥儉僎僢僩捠抦							SendCGetItem(tc, k, j);						end;					end else begin						//廳検僆乕僶乕						WFIFOW( 0, $00a0);						WFIFOB(22, 2);						tc.Socket.SendBuf(buf, 23);					end;					Inc(tc.ScriptStep);				end;			13: //delitem				begin{NPC僀儀儞僩捛壛}					i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]);					j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱}					k := SearchCInventory(tc, i, false);					if k <> 0 then begin						if j > tc.Item[k].Amount then j := tc.Item[k].Amount;						//憰旛拞側(cè)傜憰旛夝彍						if tc.Item[k].Equip <> 0 then begin							WFIFOW(0, $00ac);							WFIFOW(2, k);							WFIFOW(4, tc.Item[k].Equip);							tc.Item[k].Equip := 0;							WFIFOB(6, 1);							tc.Socket.SendBuf(buf, 7);							CalcStat(tc);							SendCStat(tc);						end;						//傾僀僥儉悢尭彮						Dec(tc.Item[k].Amount, j);						if tc.Item[k].Amount = 0 then tc.Item[k].ID := 0;						WFIFOW( 0, $00af);						WFIFOW( 2, k);						WFIFOW( 4, j);						tc.Socket.SendBuf(buf, 6);						//廳検曄峏						tc.Weight := tc.Weight - tc.Item[k].Data.Weight * cardinal(j);						WFIFOW( 0, $00b0);						WFIFOW( 2, $0018);						WFIFOL( 4, tc.Weight);						tc.Socket.SendBuf(buf, 8);					end;					Inc(tc.ScriptStep);				end;			14: //checkitem				begin{NPC僀儀儞僩捛壛}					i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]);					j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱}					k := SearchCInventory(tc, i, false);					if (k <> 0) and (tc.Item[k].Amount >= j) then begin						DebugOut.Lines.Add(Format('s-checkitem: %d %d = 1', [i, j]));						tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[0];					end else begin						DebugOut.Lines.Add(Format('s-checkitem: %d %d = 0', [i, j]));						tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[1];					end;				end;			15: //check				begin					str := tn.Script[tc.ScriptStep].Data1[0];               if str = 'zeny'        then begin i := tc.Zeny;        end					else if str = 'job'         then begin i := tc.JID;         end					else if str = 'baselevel'   then begin i := tc.BaseLV;      end					else if str = 'joblevel'    then begin i := tc.JobLV;       end					else if str = 'statuspoint' then begin i := tc.StatusPoint; end					else if str = 'skillpoint'  then begin i := tc.SkillPoint;  end					else if str = 'option'      then begin i := tc.Option;      end					else if str = 'speed'       then begin i := tc.Speed;       end					else if str = 'gender'      then begin i := tc.Gender;      end{敮怓曄峏捛壛}					else if str = 'hcolor'      then begin i := tc.HairColor;   end          else if str = 'guildid'     then begin i := GetGuildID(tn);   end          else if str = 'guildkafra'  then begin i := GetGuildKafra(tn);   end          else if str = 'ismyguild'   then begin i := CheckGuildID(tn, tc);   end          else if str = 'ismymaster'   then begin i := CheckGuildMaster(tn, tc);   end          else if str = 'etrigger'   then begin i := GetGuildETrigger(tn);   end          else if str = 'dtrigger'   then begin i := GetGuildDTrigger(tn);   end{敮怓曄峏捛壛僐僐傑偱}					else begin