📄 objnpc.~pas
字号:
var
i: Integer;
UpgradeInfo: pTUpgradeInfo;
n10, n14, n18, n1C, n90: Integer;
UserItem: pTUserItem;
StdItem: pTStdItem;
begin
n18 := 0;
UpgradeInfo := nil;
if not User.IsEnoughBag then begin
// User.SysMsg('你的背包已经满了，无法再携带任何物品了！！！',0);
GotoLable(User, sGETBACKUPGFULL, False);
Exit;
end;
for i := m_UpgradeWeaponList.Count - 1 downto 0 do begin //for i := 0 to m_UpgradeWeaponList.Count - 1 do begin
if m_UpgradeWeaponList.Count <= 0 then break;
if pTUpgradeInfo(m_UpgradeWeaponList.Items[i]).sUserName = User.m_sCharName then begin
n18 := 1;
if ((GetTickCount - pTUpgradeInfo(m_UpgradeWeaponList.Items[i]).dwGetBackTick) > g_Config.dwUPgradeWeaponGetBackTime) or (User.m_btPermission >= 4) then begin
UpgradeInfo := m_UpgradeWeaponList.Items[i];
m_UpgradeWeaponList.Delete(i);
SaveUpgradingList();
n18 := 2;
break;
end;
end;
end;
if UpgradeInfo <> nil then begin
case UpgradeInfo.btDura of //
0..8: begin //004A0DE5
// n14:=_MAX(3000,UpgradeInfo.UserItem.DuraMax shr 1);
if UpgradeInfo.UserItem.DuraMax > 3000 then begin
Dec(UpgradeInfo.UserItem.DuraMax, 3000);
end else begin
UpgradeInfo.UserItem.DuraMax := UpgradeInfo.UserItem.DuraMax shr 1;
end;
if UpgradeInfo.UserItem.Dura > UpgradeInfo.UserItem.DuraMax then
UpgradeInfo.UserItem.Dura := UpgradeInfo.UserItem.DuraMax;
end;
9..15: begin //004A0E41
if Random(UpgradeInfo.btDura) < 6 then begin
if UpgradeInfo.UserItem.DuraMax > 1000 then
Dec(UpgradeInfo.UserItem.DuraMax, 1000);
if UpgradeInfo.UserItem.Dura > UpgradeInfo.UserItem.DuraMax then
UpgradeInfo.UserItem.Dura := UpgradeInfo.UserItem.DuraMax;
end;
end;
18..255: begin
case Random(UpgradeInfo.btDura - 18) of
1..4: Inc(UpgradeInfo.UserItem.DuraMax, 1000);
5..7: Inc(UpgradeInfo.UserItem.DuraMax, 2000);
8..255: Inc(UpgradeInfo.UserItem.DuraMax, 4000)
end;
end;
end; // case
if (UpgradeInfo.btDc = UpgradeInfo.btMc) and (UpgradeInfo.btMc = UpgradeInfo.btSc) then begin
n1C := Random(3);
end else begin
n1C := -1;
end;
if ((UpgradeInfo.btDc >= UpgradeInfo.btMc) and (UpgradeInfo.btDc >= UpgradeInfo.btSc)) or
(n1C = 0) then begin
n90 := _MIN(11, UpgradeInfo.btDc);
n10 := _MIN(85, n90 shl 3 - n90 + 10 + UpgradeInfo.UserItem.btValue[3] - UpgradeInfo.UserItem.btValue[4] + User.m_nBodyLuckLevel);
// n10:=_MIN(85,n90 * 8 - n90 + 10 + UpgradeInfo.UserItem.btValue[3] - UpgradeInfo.UserItem.btValue[4] + User.m_nBodyLuckLevel);
if Random(g_Config.nUpgradeWeaponDCRate) < n10 then begin //if Random(100) < n10 then begin
UpgradeInfo.UserItem.btValue[10] := 10;
if (n10 > 63) and (Random(g_Config.nUpgradeWeaponDCTwoPointRate) = 0) then //if (n10 > 63) and (Random(30) = 0) then
UpgradeInfo.UserItem.btValue[10] := 11;
if (n10 > 79) and (Random(g_Config.nUpgradeWeaponDCThreePointRate) = 0) then //if (n10 > 79) and (Random(200) = 0) then
UpgradeInfo.UserItem.btValue[10] := 12;
end else UpgradeInfo.UserItem.btValue[10] := 1; //004A0F89
end;
if ((UpgradeInfo.btMc >= UpgradeInfo.btDc) and (UpgradeInfo.btMc >= UpgradeInfo.btSc)) or
(n1C = 1) then begin
n90 := _MIN(11, UpgradeInfo.btMc);
n10 := _MIN(85, n90 shl 3 - n90 + 10 + UpgradeInfo.UserItem.btValue[3] - UpgradeInfo.UserItem.btValue[4] + User.m_nBodyLuckLevel);
if Random(g_Config.nUpgradeWeaponMCRate) < n10 then begin //if Random(100) < n10 then begin
UpgradeInfo.UserItem.btValue[10] := 20;
if (n10 > 63) and (Random(g_Config.nUpgradeWeaponMCTwoPointRate) = 0) then //if (n10 > 63) and (Random(30) = 0) then
UpgradeInfo.UserItem.btValue[10] := 21;
if (n10 > 79) and (Random(g_Config.nUpgradeWeaponMCThreePointRate) = 0) then //if (n10 > 79) and (Random(200) = 0) then
UpgradeInfo.UserItem.btValue[10] := 22;
end else UpgradeInfo.UserItem.btValue[10] := 1;
end;
if ((UpgradeInfo.btSc >= UpgradeInfo.btMc) and (UpgradeInfo.btSc >= UpgradeInfo.btDc)) or
(n1C = 2) then begin
n90 := _MIN(11, UpgradeInfo.btMc);
n10 := _MIN(85, n90 shl 3 - n90 + 10 + UpgradeInfo.UserItem.btValue[3] - UpgradeInfo.UserItem.btValue[4] + User.m_nBodyLuckLevel);
if Random(g_Config.nUpgradeWeaponSCRate) < n10 then begin //if Random(100) < n10 then begin
UpgradeInfo.UserItem.btValue[10] := 30;
if (n10 > 63) and (Random(g_Config.nUpgradeWeaponSCTwoPointRate) = 0) then //if (n10 > 63) and (Random(30) = 0) then
UpgradeInfo.UserItem.btValue[10] := 31;
if (n10 > 79) and (Random(g_Config.nUpgradeWeaponSCThreePointRate) = 0) then //if (n10 > 79) and (Random(200) = 0) then
UpgradeInfo.UserItem.btValue[10] := 32;
end else UpgradeInfo.UserItem.btValue[10] := 1;
end;
New(UserItem);
UserItem^ := UpgradeInfo.UserItem;
DisPose(UpgradeInfo);
StdItem := UserEngine.GetStdItem(UserItem.wIndex);
//004A120E
if StdItem.NeedIdentify = 1 then
AddGameDataLog('24' + #9 +
User.m_sMapName + #9 +
IntToStr(User.m_nCurrX) + #9 +
IntToStr(User.m_nCurrY) + #9 +
User.m_sCharName + #9 +
//UserEngine.GetStdItemName(UserItem.wIndex) + #9 +
StdItem.Name + #9 +
IntToStr(UserItem.MakeIndex) + #9 +
'1' + #9 +
'0');
User.AddItemToBag(UserItem);
User.SendAddItem(UserItem);
end;
case n18 of //
0: GotoLable(User, sGETBACKUPGFAIL, False);
1: GotoLable(User, sGETBACKUPGING, False);
2: GotoLable(User, sGETBACKUPGOK, False);
end; // case
end;
function TMerchant.GetUserPrice(PlayObject: TPlayObject; nPrice: Integer): Integer; //0049F6E0
var
n14: Integer;
begin
{
if m_boCastle then begin
if UserCastle.IsMasterGuild(TGuild(PlayObject.m_MyGuild)) then begin
n14:=_MAX(60,ROUND(m_nPriceRate * 8.0000000000000000001e-1));//80%
Result:=ROUND(nPrice / 1.0e2 * n14); //100
end else begin
Result:=ROUND(nPrice / 1.0e2 * m_nPriceRate);
end;
end else begin
Result:=ROUND(nPrice / 1.0e2 * m_nPriceRate);
end;
}
if m_boCastle then begin
// if UserCastle.IsMasterGuild(TGuild(PlayObject.m_MyGuild)) then begin
if (m_Castle <> nil) and TUserCastle(m_Castle).IsMasterGuild(TGUild(PlayObject.m_MyGuild)) then begin
n14 := _MAX(60, ROUND(m_nPriceRate * (g_Config.nCastleMemberPriceRate / 100))); //80%
Result := ROUND(nPrice / 100 * n14); //100
end else begin
Result := ROUND(nPrice / 100 * m_nPriceRate);
end;
end else begin
Result := ROUND(nPrice / 100 * m_nPriceRate);
end;
end;
procedure TMerchant.UserSelect(PlayObject: TPlayObject; sData: string);
procedure SuperRepairItem(User: TPlayObject);
begin
User.SendMsg(Self, RM_SENDUSERSREPAIR, 0, Integer(Self), 0, 0, '');
end;
procedure BuyItem(User: TPlayObject; nInt: Integer);
var
i, n10, nStock, nPrice: Integer;
nSubMenu: ShortInt;
sSENDMSG, sName: string;
UserItem: pTUserItem;
StdItem: pTStdItem;
List14: TList;
sUserItemName: string;
begin
sSENDMSG := '';
n10 := 0;
for i := 0 to m_GoodsList.Count - 1 do begin
List14 := TList(m_GoodsList.Items[i]);
if List14 = nil then Continue;
UserItem := List14.Items[0];
if UserItem = nil then Continue;
StdItem := UserEngine.GetStdItem(UserItem.wIndex);
if StdItem <> nil then begin
//取自定义物品名称
sName := '';
if UserItem.btValue[13] = 1 then
sName := ItemUnit.GetCustomItemName(UserItem.MakeIndex, UserItem.wIndex);
if sName = '' then
sName := StdItem.Name;
nPrice := GetUserPrice(User, GetItemPrice(UserItem.wIndex));
nStock := List14.Count;
if (StdItem.StdMode <= 4) or
(StdItem.StdMode = 42) or
(StdItem.StdMode = 31) then nSubMenu := 0
else nSubMenu := 1;
sSENDMSG := sSENDMSG + sName + '/' + IntToStr(nSubMenu) + '/' + IntToStr(nPrice) + '/' + IntToStr(nStock) + '/';
Inc(n10);
end;
end; // for
User.SendMsg(Self, RM_SENDGOODSLIST, 0, Integer(Self), n10, 0, sSENDMSG);
end;
procedure BuySellItem(User: TPlayObject); //拍卖物品列表
var
i, n18, nStock, nSubMenu, nSellGold: Integer;
List20: TList;
s1C, sName: string;
SellOffInfo: pTSellOffInfo;
StdItem: pTStdItem;
begin
s1C := '';
n18 := 0;
List20 := TList.Create;
g_SellOffGoodList.GetSellOffGoodList(List20);
for i := 0 to List20.Count - 1 do begin
if List20.Count <= 0 then break;
SellOffInfo := List20.Items[i];
if SellOffInfo = nil then Continue;
StdItem := UserEngine.GetStdItem(SellOffInfo.UseItems.wIndex);
if StdItem <> nil then begin
//取自定义物品名称
sName := '';
if SellOffInfo.UseItems.btValue[13] = 1 then
sName := ItemUnit.GetCustomItemName(SellOffInfo.UseItems.MakeIndex, SellOffInfo.UseItems.wIndex);
if sName = '' then
sName := StdItem.Name;
nStock := List20.Count;
if (StdItem.StdMode <= 4) or
(StdItem.StdMode = 42) or
(StdItem.StdMode = 31) then nSubMenu := 0
else nSubMenu := 1;
if CompareText(SellOffInfo.sCharName, User.m_sCharName) = 0 then nSellGold := -SellOffInfo.nSellGold else nSellGold := SellOffInfo.nSellGold;
s1C := s1C + sName + '/' + IntToStr(nSubMenu) + '/' + IntToStr(nSellGold) + '/' + IntToStr(nStock) + '/';
Inc(n18);
end;
end;
User.SendMsg(Self, RM_SENDSELLOFFGOODSLIST, 0, Integer(Self), n18, 0, s1C);
List20.Free;
end;
procedure GetSellGold(User: TPlayObject);
var
i: Integer;
nSellGold: Integer;
nRate: Integer;
nSellGoldCount: Integer;
nRateCount: Integer;
s1C: string;
SellOffInfo: pTSellOffInfo;
n18: Integer;
List20: TList;
bo01: Boolean;
begin
nSellGoldCount := 0;
nRateCount := 0;
s1C := '';
List20 := TList.Create;
g_SellOffGoldList.GetUserSellOffGoldListByChrName(User.m_sCharName, List20);
for i := 0 to List20.Count - 1 do begin
if List20.Count <= 0 then break;
SellOffInfo := pTSellOffInfo(List20.Items[i]);
if SellOffInfo = nil then Continue;
if g_Config.nUserSellOffTax > 0 then begin
nRate := SellOffInfo.nSellGold * g_Config.nUserSellOffTax div 100;
nSellGold := SellOffInfo.nSellGold - nRate;
end else begin
nSellGold := SellOffInfo.nSellGold;
nRate := 0;
end;
s1C := '物品:' + UserEngine.GetStdItemName(SellOffInfo.UseItems.wIndex) + ' 金额:' + IntToStr(nSellGold) + ' 税:' + IntToStr(nRate) + g_Config.sGameGoldName + ' 拍卖日期:' + DateTimeToStr(SellOffInfo.dSellDateTime);
User.SysMsg(s1C, c_Green, t_Hint);
Inc(User.m_nGameGold, nSellGold);
Inc(nSellGoldCount, nSellGold);
User.GameGoldChanged;
Inc(nRateCount, nRate);
Inc(n18);
g_SellOffGoldList.DelSellOffGoldItem(Se⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -