game.pas

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

unit Game;



interface

uses
	Windows, MMSystem, Forms, Classes, Math, SysUtils, ScktComp,
	Path, Script, Common;

//==============================================================================
// 娭悢掕媊
		procedure sv3PacketProcess(Socket: TCustomWinSocket);  //edited by The Harbinger -- darkWeiss version
//==============================================================================










implementation
//==============================================================================
// 僎乕儉僒乕僶乕僷働僢僩張棟
procedure sv3PacketProcess(Socket: TCustomWinSocket);
var
	i    :integer;
  h    :integer;
	j    :integer;
	k    :integer;
	ii   :integer;
	cmd  :word;
	w    :word;
	w1   :word;
	w2   :word;
  w3   :word;
{捛壛}
	wjob:Int64;
{捛壛僐僐傑偱}
{傾僀僥儉惢憿捛壛}
	m1     :word;//庡偵惢憿偝傟傞傾僀僥儉偺ID偲偟偰棙梡
	m      :array[0..2] of word;//庡偵惢憿傾僀僥儉偵晄壜偝傟傞懏惈愇丄惎偺偐偗傜偺ID偲偟偰棙梡
	e,e2   :word;//庡偵惢憿帪徚旓傾僀僥儉偺Inventory撪専嶕帪偵棙梡
	anvil  :word;//嬥晘偵傛偭偰忋偑傞惉岟棪
{傾僀僥儉惢憿捛壛僐僐傑偱}
	id1,id2:cardinal;
	l         :cardinal;
	l2        :cardinal;
	weight    :cardinal;
  c         :cardinal;
	b         :byte;
	len       :integer;
	str       :string;
  str2      :string;
	accountid :string;
	charaid   :string;
	npcid     :string;
	tp  :TPlayer;
	tc  :TChara;
	tc1 :TChara;
	tm  :TMap;
	tn  :TNPC;
	ts  :TMob;
  ts1 :TMob;
  tss :TSlaveDB;
  ma  :TMArrowDB;
  tid :TIDTbl;
	ti  :TItem;
	tk  :TSkill;
  tkf :TKafra;
  tbn :TBan;
	tl  :TSkillDB;
	td  :TItemDB;
{傾僀僥儉惢憿捛壛}
	tma :TMaterialDB;
{傾僀僥儉惢憿捛壛僐僐傑偱}
{僷乕僥傿乕婡擻捛壛}
	tpa :TParty;
{僷乕僥傿乕婡擻捛壛僐僐傑偱}
{僠儍僢僩儖乕儉婡擻捛壛}
	tcr :TChatRoom;
{僠儍僢僩儖乕儉婡擻捛壛僐僐傑偱}
{業揦僗僉儖捛壛}
	tv  :TVender;
{業揦僗僉儖捛壛僐僐傑偱}  
{庢堷婡擻捛壛}
	tdl :TDealings;
{庢堷婡擻捛壛僐僐傑偱}
{僉儏乕儁僢僩}
        tpd             :TPetDB;
        tmd             :TMobDB;
{巵{敔捛壛}
	tsmn	:TSummon;
{巵{敔捛壛僐僐傑偱}
        tpe             :TPet;
        i1, j1, k1      :integer;
{僉儏乕儁僢僩偙偙傑偱}
{NPC僀儀儞僩捛壛}
	mi  :MapTbl;
{NPC僀儀儞僩捛壛僐僐傑偱}
{僊儖僪婡擻捛壛}
	tg    :TGuild;
	tg1   :TGuild;
	tgb   :TGBan;
	tgl   :TGRel;
	tp1   :TPlayer;
{僊儖僪婡擻捛壛僐僐傑偱}
	ta  :TMapList;
	xy  :TPoint;
  s   :string;
	sl  :TStringList;
	ww  :array of array of word;
	tmpbuf:array of byte;
  txt:TextFile;
begin
  j := 0;
  tcr := nil;
	while Socket.ReceiveLength >= 2 do begin
		//len := Socket.ReceiveLength;
		Socket.ReceiveBuf(buf[0], 2);
		RFIFOW(0, cmd);
		//if cmd = $00c8 then
		//	DebugOut.Lines.Add('!');
		tc := Socket.Data;
		if (cmd > $200) then begin
			//DebugOut.Lines.Add('晄柧側僷働僢僩' + IntToStr(Socket.ReceiveLength) + '僶僀僩傪攋婞偟傑偟偨');
			SetLength(tmpbuf, Socket.ReceiveLength);
			Socket.ReceiveBuf(tmpbuf[0], Socket.ReceiveLength);
			continue;
		end;
		Assert((cmd > 0) and (cmd <= $200), 'Packet Type: index error ' + IntToStr(cmd));
		if PacketLength[cmd] = -1 then begin
			Socket.ReceiveBuf(buf[2], 2);
			RFIFOW(2, w);
			Socket.ReceiveBuf(buf[4], w - 4);
			//DebugOut.Lines.Add(Format('3:%.8d CMD %.4x len:%d plen:%d', [tc.ID, cmd, w, len]));
		end else begin
			Socket.ReceiveBuf(buf[2], PacketLength[cmd] - 2);
			//if cmd <> $0072 then begin
			//	DebugOut.Lines.Add(Format('3:%.8d CMD %.4x', [tc.ID, cmd]));
			//end;
		end;
    //DebugOut.Lines.Add('Command:' + IntToStr(cmd));

		case cmd of
		//--------------------------------------------------------------------------
		$0072: //僎乕儉嶪愙懕梫媮
			begin
				RFIFOL( 2, l);
				accountid := IntToStr(l);
				//DebugOut.Lines.Add(Format('3:%.8d CMD %.4x', [l, cmd]));
				//DebugOut.Lines.Add('		AccountID = ' + IntToHex(l, 4));
				RFIFOL( 6, l2);
				charaid := IntToStr(l2);
				//DebugOut.Lines.Add('		CharaID = ' + IntToHex(l, 4));
				RFIFOL(10, id1);
				//DebugOut.Lines.Add('		LoginID1 = ' + IntToHex(id1, 4));
				//RFIFOL(14, id2);
				if (Player.IndexOf(l) <> -1) and (Chara.IndexOf(l2) <> -1) then begin
					tp := Player.IndexOfObject(l) as TPlayer;
					tc := Chara.IndexOfObject(l2) as TChara;
					//if tc.IP = Socket.RemoteAddress then begin

					if (tp.LoginID1 = id1) and (tp.LoginID1 <> 0) then begin
						tc.ver2 := tp.ver2;
						//tp.LoginID1 := 0;
						tc.Login := 1;
						//tc.ID := tp.ID;
						//tc.Gender := tp.Gender;
						tc.PData := tp;
						if CharaPID.IndexOf(tc.ID) = -1 then CharaPID.AddObject(tc.ID, tc);
						tc.Socket := Socket;
						Socket.Data := tc;
						WFIFOL(0, $00000000);
						Socket.SendBuf(buf, 4);

						WFIFOW(0, $0073);
						WFIFOL(2, timeGetTime());
						WFIFOM1(6, tc.Point);
						WFIFOW(9, $0505);
						Socket.SendBuf(buf, 11);

						//慜夞儚乕僾偵幐攕偟偰棊偪偨偲偒偺暅媽張棟
						if tc.tmpMap <> '' then begin
							tc.Map := tc.tmpMap;
							tc.tmpMap := '';
						end;

						//儅僢僾儘乕僪
						if Map.IndexOf(tc.Map) = -1 then begin
							MapLoad(tc.Map);
						end;
{僊儖僪婡擻捛壛}
						j := GuildList.IndexOf(tc.GuildID);
						if (j <> -1) then begin
							tg := GuildList.Objects[j] as TGuild;
							//儊儞僶乕偵捠抦
							WFIFOW( 0, $016d);
							WFIFOL( 2, tc.ID);
							WFIFOL( 6, tc.CID);
							WFIFOL(10, 1);
							SendGuildMCmd(tc, 14, true);
							//僊儖僪忣曬
							SendGLoginInfo(tg, tc);
						end;
{僊儖僪婡擻捛壛僐僐傑偱}
					end else begin
						WFIFOW(0, $0074); //偁偭偰傞偐側丠
						WFIFOB(2, 0);
						Socket.SendBuf(buf, 3);
					end;
				end;
			end;
		//--------------------------------------------------------------------------
		$007d: //MAP儘乕僪姰椆
			begin
				if tc.tmpMap <> '' then begin
					tc.Map := tc.tmpMap;
					tc.tmpMap := '';
				end;

				tm := Map.Objects[Map.IndexOf(tc.Map)] as TMap;
				while tm.Mode < 2 do
					Application.ProcessMessages;

				tc.MData := tm;
				if CharaPID.IndexOf(tc.ID) = -1 then CharaPID.AddObject(tc.ID, tc);

        mi := MapInfo.Objects[MapInfo.IndexOf(tm.Name)] as MapTbl;
				//儅僢僾偵帺暘偑嫃傞偙偲傪婰榐
				tm.CList.AddObject(tc.ID, tc);
				tm.Block[tc.Point.X div 8][tc.Point.Y div 8].CList.AddObject(tc.ID, tc);

				//惗偒曉傝張棟
				if tc.Sit = 1 then tc.Sit := 3;
				if tc.HP = 0 then if tc.JID = 0 then tc.HP := tc.MAXHP div 2 else tc.HP := 1;

{業揦僗僉儖捛壛}
				tc.VenderID := 0;
{業揦僗僉儖捛壛僐僐傑偱}
{僠儍僢僩儖乕儉婡擻捛壛}
				tc.ChatRoomID := 0;
{僠儍僢僩儖乕儉婡擻捛壛僐僐傑偱}
{庢堷婡擻捛壛}
				tc.DealingID := 0;
				tc.PreDealID := 0;
{庢堷婡擻捛壛僐僐傑偱}

				//僽儘僢僋張棟
				for j := tc.Point.Y div 8 - 2 to tc.Point.Y div 8 + 2 do begin
					for i := tc.Point.X div 8 - 2 to tc.Point.X div 8 + 2 do begin
						//NPC儘乕僪
						for k := 0 to tm.Block[i][j].NPC.Count - 1 do begin
							tn := tm.Block[i][j].NPC.Objects[k] as TNPC;
							if (abs(tc.Point.X - tn.Point.X) < 16) and (abs(tc.Point.Y - tn.Point.Y) < 16) then begin
{NPC僀儀儞僩捛壛}
                //SendNData(Socket, tn, tc.ver2);
								if (tn.Enable = true) then begin
									SendNData(Socket, tn,tc.ver2);
									if (tn.ScriptInitS <> -1) and (tn.ScriptInitD = false) then begin
										//OnInit儔儀儖傪幚峴
										//DebugOut.Lines.Add(Format('OnInit Event(%d)', [tn.ID]));
										tc1 := TChara.Create;
										tc1.TalkNPCID := tn.ID;
										tc1.ScriptStep := tn.ScriptInitS;
										tc1.AMode := 3;
										tc1.AData := tn;
										tc1.Login := 0;
										NPCScript(tc1,0,1);
										tn.ScriptInitD := true;
										tc1.Free;
									end;
									if (tn.ChatRoomID <> 0) then begin
										//僠儍僢僩儖乕儉傪昞帵偡傞
										ii := ChatRoomList.IndexOf(tn.ChatRoomID);
										if (ii <> -1) then begin
											tcr := ChatRoomList.Objects[ii] as TChatRoom;
											if (tn.ID = tcr.MemberID[0]) then begin
												w := Length(tcr.Title);
												WFIFOW(0, $00d7);
												WFIFOW(2, w + 17);
												WFIFOL(4, tcr.MemberID[0]);
												WFIFOL(8, tcr.ID);
												WFIFOW(12, tcr.Limit);
												WFIFOW(14, tcr.Users);
												WFIFOB(16, tcr.Pub);
												WFIFOS(17, tcr.Title, w);
												if tc.Socket <> nil then begin
													tc.Socket.SendBuf(buf, w + 17);
												end;
											end;
										end;
									end;
								end;
{NPC僀儀儞僩捛壛僐僐傑偱}
							end;
						end;
						//廃傝偺恖偵捠抦&廃傝偵偄傞恖傪昞帵偝偣傞
						for k := 0 to tm.Block[i][j].CList.Count - 1 do begin
							tc1 := tm.Block[i][j].CList.Objects[k] as TChara;
							if (tc <> tc1) and (abs(tc.Point.X - tc1.Point.X) < 16) and (abs(tc.Point.Y - tc1.Point.Y) < 16) then begin
								SendCData(tc.Socket, tc1);
								SendCData(tc1.Socket, tc, true);
{僠儍僢僩儖乕儉婡擻捛壛}
								//廃曈偺僠儍僢僩儖乕儉傪昞帵
								ChatRoomDisp(tc.Socket, tc1);
{僠儍僢僩儖乕儉婡擻捛壛僐僐傑偱}
{業揦僗僉儖捛壛}
								//廃曈偺業揦傪昞帵
								VenderDisp(tc.Socket, tc1);
{業揦僗僉儖捛壛僐僐傑偱}
							end;
						end;
						//儌儞僗僞乕儘乕僪
						for k := 0 to tm.Block[i][j].Mob.Count - 1 do begin
							ts := tm.Block[i][j].Mob.Objects[k] as TMob;
							if (abs(tc.Point.X - ts.Point.X) < 16) and (abs(tc.Point.Y - ts.Point.Y) < 16) then begin
								SendMData(Socket, ts);
							end;
						end;
					end;
				end;

				//僗僉儖憲怣
				SendCSkillList(tc);
				{
				WFIFOW( 0, $010f);
				j := 0;
				for i := 1 to 157 do begin
					if tc.Skill[i].Lv <> 0 then begin
						WFIFOW( 0+37*j+4, i);
						WFIFOW( 2+37*j+4, tc.Skill[i].Data.SType);
						WFIFOW( 4+37*j+4, 0);
						WFIFOW( 6+37*j+4, tc.Skill[i].Lv);
						WFIFOW( 8+37*j+4, tc.Skill[i].Data.SP[tc.Skill[i].Lv]);
						WFIFOW(10+37*j+4, tc.Skill[i].Data.Range);
						WFIFOS(12+37*j+4, tc.Skill[i].Data.IDC, 24);
						WFIFOB(36+37*j+4, 0);
						Inc(j);
					end;
				end;
				WFIFOW( 2, 4+37*j);
				Socket.SendBuf(buf, 4+37*j);
				}

				//僷儔儊乕僞
				CalcStat(tc);
				SendCStat(tc);

				//傾僀僥儉僨乕僞
				WFIFOW(0, $00a3);
				j := 0;
				for i := 1 to 100 do begin
					if (tc.Item[i].ID <> 0) and (not tc.Item[i].Data.IEquip) then begin
						WFIFOW( 4 +j*10, i);
						WFIFOW( 6 +j*10, tc.Item[i].Data.ID);
						WFIFOB( 8 +j*10, tc.Item[i].Data.IType);
						WFIFOB( 9 +j*10, tc.Item[i].Identify);
						WFIFOW(10 +j*10, tc.Item[i].Amount);
						if tc.Item[i].Data.IType = 10 then
							WFIFOW(12 +j*10, 32768)
						else
							WFIFOW(12 +j*10, 0);
						Inc(j);
					end;
				end;
				WFIFOW(2, 4+j*10);
				Socket.SendBuf(buf, 4+j*10);
				//憰旛僨乕僞
				WFIFOW(0, $00a4);
				j := 0;
				for i := 1 to 100 do begin
					if (tc.Item[i].ID <> 0) and tc.Item[i].Data.IEquip then begin
						WFIFOW( 4 +j*20, i);
						WFIFOW( 6 +j*20, tc.Item[i].Data.ID);
						WFIFOB( 8 +j*20, tc.Item[i].Data.IType);
						WFIFOB( 9 +j*20, tc.Item[i].Identify);
						with tc.Item[i].Data do begin
							if (tc.JID = 12) and (IType = 4) and (Loc = 2) and
								 ((View = 1) or (View = 2) or (View = 6)) then
								WFIFOW(10 +j*20, 34)
							else
								WFIFOW(10 +j*20, Loc);
						end;
						WFIFOW(12 +j*20, tc.Item[i].Equip);
						WFIFOB(14 +j*20, tc.Item[i].Attr);
						WFIFOB(15 +j*20, tc.Item[i].Refine);
						WFIFOW(16 +j*20, tc.Item[i].Card[0]);
						WFIFOW(18 +j*20, tc.Item[i].Card[1]);
						WFIFOW(20 +j*20, tc.Item[i].Card[2]);
						WFIFOW(22 +j*20, tc.Item[i].Card[3]);
						Inc(j);
					end;
				end;
				WFIFOW(2, 4+j*20);
				Socket.SendBuf(buf, 4+j*20);
				//憰旛偟偰偄傞媩
				j := 0;
				for i := 1 to 100 do begin