script.pas

仙境传说(RO)私人服务器端源代码。第一次上传。

unit Script;



interface

uses
	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;
						//憰旛拞側傜憰旛夝彍
						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