fstate.pas

传奇客户端

   DMinusSC.SetImgIndex (g_WMainImages, 228);
   DMinusSC.Left := 227;
   DMinusSC.Top := 140;
   DMinusAC.SetImgIndex (g_WMainImages, 228);
   DMinusAC.Left := 227;
   DMinusAC.Top := 160;
   DMinusMAC.SetImgIndex (g_WMainImages, 228);
   DMinusMAC.Left := 227;
   DMinusMAC.Top := 181;
   DMinusHP.SetImgIndex (g_WMainImages, 228);
   DMinusHP.Left := 227;
   DMinusHP.Top := 201;
   DMinusMP.SetImgIndex (g_WMainImages, 228);
   DMinusMP.Left := 227;
   DMinusMP.Top := 220;
   DMinusHit.SetImgIndex (g_WMainImages, 228);
   DMinusHit.Left := 227;
   DMinusHit.Top := 240;
   DMinusSpeed.SetImgIndex (g_WMainImages, 228);
   DMinusSpeed.Left := 227;
   DMinusSpeed.Top := 261;

   d := g_WMainImages.Images[536];
   if d <> nil then begin
      DFriendDlg.SetImgIndex (g_WMainImages, 536);
      DFriendDlg.Left := 0;
      DFriendDlg.Top := 0;
   end;
   DFrdClose.SetImgIndex(g_WMainImages, 371);
   DFrdClose.Left:=247;
   DFrdClose.Top:=5;
   DFrdPgUp.SetImgIndex(g_WMainImages, 373);
   DFrdPgUp.Left:=259;
   DFrdPgUp.Top:=102;
   DFrdPgDn.SetImgIndex(g_WMainImages, 372);
   DFrdPgDn.Left:=259;
   DFrdPgDn.Top:=154;
   DFrdFriend.SetImgIndex(g_WMainImages, 540);
   DFrdFriend.Left:=15;
   DFrdFriend.Top:=35;
   DFrdBlackList.SetImgIndex(g_WMainImages, 573);
   DFrdBlackList.Left:=130;
   DFrdBlackList.Top:=35;
   DFrdAdd.SetImgIndex(g_WMainImages, 554);
   DFrdAdd.Left:=90;
   DFrdAdd.Top:=233;
   DFrdDel.SetImgIndex(g_WMainImages, 556);
   DFrdDel.Left:=124;
   DFrdDel.Top:=233;
   DFrdMemo.SetImgIndex(g_WMainImages, 558);
   DFrdMemo.Left:=158;
   DFrdMemo.Top:=233;
   DFrdMail.SetImgIndex(g_WMainImages, 560);
   DFrdMail.Left:=192;
   DFrdMail.Top:=233;
   DFrdWhisper.SetImgIndex(g_WMainImages, 562);
   DFrdWhisper.Left:=226;
   DFrdWhisper.Top:=233;

   d := g_WMainImages.Images[536];
   if d <> nil then begin
      DMailListDlg.SetImgIndex (g_WMainImages, 536);
      DMailListDlg.Left := 512;
      DMailListDlg.Top := 0;
   end;
   DMailListClose.SetImgIndex(g_WMainImages, 371);
   DMailListClose.Left:=247;
   DMailListClose.Top:=5;
   DMailListPgUp.SetImgIndex(g_WMainImages, 373);
   DMailListPgUp.Left:=259;
   DMailListPgUp.Top:=102;
   DMailListPgDn.SetImgIndex(g_WMainImages, 372);
   DMailListPgDn.Left:=259;
   DMailListPgDn.Top:=154;
   DMLReply.SetImgIndex(g_WMainImages, 564);
   DMLReply.Left:=90;
   DMLReply.Top:=233;
   DMLRead.SetImgIndex(g_WMainImages, 566);
   DMLRead.Left:=124;
   DMLRead.Top:=233;
   DMLDel.SetImgIndex(g_WMainImages, 556);
   DMLDel.Left:=158;
   DMLDel.Top:=233;
   DMLLock.SetImgIndex(g_WMainImages, 568);
   DMLLock.Left:=192;
   DMLLock.Top:=233;
   DMLBlock.SetImgIndex(g_WMainImages, 570);
   DMLBlock.Left:=226;
   DMLBlock.Top:=233;

   d := g_WMainImages.Images[536];
   if d <> nil then begin
      DBlockListDlg.SetImgIndex (g_WMainImages, 536);
      DBlockListDlg.Left := 512;
      DBlockListDlg.Top := 0;
   end;
   DBlockListClose.SetImgIndex(g_WMainImages, 371);
   DBlockListClose.Left:=247;
   DBlockListClose.Top:=5;
   DBLPgUp.SetImgIndex(g_WMainImages, 373);
   DBLPgUp.Left:=259;
   DBLPgUp.Top:=102;
   DBLPgDn.SetImgIndex(g_WMainImages, 372);
   DBLPgDn.Left:=259;
   DBLPgDn.Top:=154;
   DBLAdd.SetImgIndex(g_WMainImages, 554);
   DBLAdd.Left:=192;
   DBLAdd.Top:=233;
   DBLDel.SetImgIndex(g_WMainImages, 556);
   DBLDel.Left:=226;
   DBLDel.Top:=233;

   d := g_WMainImages.Images[537];
   if d <> nil then begin
      DMemo.SetImgIndex (g_WMainImages, 537);
      DMemo.Left := 290;
      DMemo.Top := 0;
   end;
   DMemoClose.SetImgIndex(g_WMainImages, 371);
   DMemoClose.Left:=205;
   DMemoClose.Top:=1;
   DMemoB1.SetImgIndex(g_WMainImages, 544);
   DMemoB1.Left:=58;
   DMemoB1.Top:=114;
   DMemoB2.SetImgIndex(g_WMainImages, 538);
   DMemoB2.Left:=126;
   DMemoB2.Top:=114;

   DButtonHP.Left   := 40;
   DButtonHP.Top    := 91;
   DButtonHP.Width  := 45;
   DButtonHP.Height := 90;

   DButtonMP.Left   := 40 + 47;
   DButtonMP.Top    := 91;
   DButtonMP.Width  := 45;
   DButtonMP.Height := 90;
   {
   //背包物品窗口
   DItemBag.SetImgIndex (g_WMain3Images, 6);
   DItemBag.Left := 0;
   DItemBag.Top := 0;

   DItemGrid.Left := 29;
   DItemGrid.Top  := 41;
   DItemGrid.Width := 286;
   DItemGrid.Height := 162;

//   DClosebag.SetImgIndex (g_WMainImages, 372);
   DClosebag.Downed:=True;
   DCloseBag.Left := 336;
   DCloseBag.Top := 59;
   DCloseBag.Width := 14;
   DCloseBag.Height := 20;

   DGold.Left := 18;
   DGold.Top  := 218;

   d := g_WMain3Images.Images[207];  //惑怕
   if d <> nil then begin
      DStateWin.SetImgIndex (g_WMain3Images, 207);
      DStateWin.Left := SCREENWIDTH - d.Width;
      DStateWin.Top := 0;
   end;
   }
end;




{------------------------------------------------------------------------}



//惑怕芒 凯扁
procedure TFrmDlg.OpenSoundOption;
begin
  g_boSound := not g_boSound;
  if g_boSound then begin
    DScreen.AddChatBoardString ('[SoundEffect On]',clWhite, clBlack);
  end else begin
    DScreen.AddChatBoardString ('[SoundEffect Off]',clWhite, clBlack);
  end;
end;
procedure TFrmDlg.OpenMyStatus;
begin
   DStateWin.Visible := not DStateWin.Visible;
   PageChanged;
end;

procedure TFrmDlg.OpenUserState (UserState: TUserStateInfo);
begin
   UserState1 := UserState;
   DUserState1.Visible := TRUE;
end;

//啊规 凯扁
procedure TFrmDlg.OpenItemBag;
begin
   DItemBag.Visible := not DItemBag.Visible;
   if DItemBag.Visible then
      ArrangeItemBag;
end;

//窍窜 惑怕官 焊扁
procedure TFrmDlg.ViewBottomBox (visible: Boolean);
begin
   DBottom.Visible := visible;
end;


// 酒捞袍 付快胶肺 捞悼吝 秒家
procedure TFrmDlg.CancelItemMoving;
var
   idx, n: integer;
begin
   if g_boItemMoving then begin
      g_boItemMoving := FALSE;
      idx := g_MovingItem.Index;
      if idx < 0 then begin
         if (idx <= -20) and (idx > -30) then begin
            AddDealItem (g_MovingItem.Item);
         end else begin
            n := -(idx+1);
            if n in [0..12] then begin
               g_UseItems[n] := g_MovingItem.Item;
            end;
         end;
      end else
         if idx in [0..MAXBAGITEM-1] then begin
            if g_ItemArr[idx].S.Name = '' then begin
               g_ItemArr[idx] := g_MovingItem.Item;
            end else begin
               AddItemBag (g_MovingItem.Item);
            end;
         end;
      g_MovingItem.Item.S.Name := '';
   end;
   ArrangeItemBag;
end;

//捞悼吝牢 酒捞袍阑 官蹿俊 冻绢 哆覆...
//啊规(骇飘)俊辑 滚赴巴父 龋免凳
procedure TFrmDlg.DropMovingItem;
var
   idx: integer;
begin
   if g_boItemMoving then begin
      g_boItemMoving := FALSE;
      if g_MovingItem.Item.S.Name <> '' then begin
         FrmMain.SendDropItem (g_MovingItem.Item.S.Name, g_MovingItem.Item.MakeIndex);
         AddDropItem (g_MovingItem.Item);
         g_MovingItem.Item.S.Name := '';
      end;
   end;
end;

procedure TFrmDlg.OpenAdjustAbility;
begin
   DAdjustAbility.Left := 0;
   DAdjustAbility.Top := 0;
   g_nSaveBonusPoint := g_nBonusPoint;
   FillChar (g_BonusAbilChg, sizeof(TNakedAbility), #0);
   DAdjustAbility.Visible := TRUE;
end;

procedure TFrmDlg.DBackgroundBackgroundClick(Sender: TObject);
var
   dropgold: integer;
   valstr: string;
begin
   if g_boItemMoving then begin
      DBackground.WantReturn := TRUE;
      if g_MovingItem.Item.S.Name = g_sGoldName{'金币'} then begin
         g_boItemMoving := FALSE;
         g_MovingItem.Item.S.Name := '';
         //倔付甫 滚副 扒瘤 拱绢夯促.
         DialogSize := 1;
         DMessageDlg ('How much ' +g_sGoldName+ ' do you want to drop?', [mbOk, mbAbort]);
         GetValidStrVal (DlgEditText, valstr, [' ']);
         dropgold := Str_ToInt (valstr, 0);
         //
         FrmMain.SendDropGold (dropgold);
      end;
      if g_MovingItem.Index >= 0 then //酒捞袍 啊规俊辑 滚赴巴父..
         DropMovingItem;
   end;
end;

procedure TFrmDlg.DBackgroundMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if g_boItemMoving then begin
      DBackground.WantReturn := TRUE;
   end;
end;

procedure TFrmDlg.DBottomMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   function ExtractUserName (line: string): string;
   var
      uname: string;
   begin
      GetValidStr3 (line, line, ['(', '!', '*', '/', ')']);
      GetValidStr3 (line, uname, [' ', '=', ':']);
      if uname <> '' then
         if (uname[1] = '/') or (uname[1] = '(') or (uname[1] = ' ') or (uname[1] = '[') then
            uname := '';
      Result := uname;
   end;
var
   n: integer;
   str: string;
begin
   //盲泼芒俊 努腐窍搁, '/'庇加富 老锭 努腐茄 措拳甫 茄荤恩狼 捞抚捞 庇富措惑磊啊 登霸 茄促.
   if (X >= 208) and (X <= 208+374) and (Y >= SCREENHEIGHT-130) and (Y <= SCREENHEIGHT-130 + 12*9) then begin
      n := DScreen.ChatBoardTop + (Y - (SCREENHEIGHT-130)) div 12;
      if (n < DScreen.ChatStrs.Count) then begin
         if not PlayScene.EdChat.Visible then begin
            PlayScene.EdChat.Visible := TRUE;
            PlayScene.EdChat.SetFocus;
         end;
         PlayScene.EdChat.Text := '/' + ExtractUserName (DScreen.ChatStrs[n]) + ' ';
         PlayScene.EdChat.SelStart := Length(PlayScene.EdChat.Text);
         PlayScene.EdChat.SelLength := 0;
      end else
         PlayScene.EdChat.Text := ''; 
   end;
end;





{------------------------------------------------------------------------}

////皋技瘤 促捞倔肺弊 冠胶


function  TFrmDlg.DMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
const
   XBase = 324;
var
  I: Integer;
   lx, ly: integer;
   d: TDirectDrawSurface;
  procedure ShowDice();
  var
    I: Integer;
    bo05:Boolean;
  begin
    if m_nDiceCount = 1 then begin
      if m_Dice[0].n67C < 20 then begin
        if GetTickCount - m_Dice[0].dwPlayTick > 100 then begin
          if m_Dice[0].n67C div 5 = 4 then begin
            m_Dice[0].nPlayPoint:=Random(6) + 1;
          end else begin
            m_Dice[0].nPlayPoint:=m_Dice[0].n67C div 5 + 8;
          end;
          m_Dice[0].dwPlayTick:=GetTickCount();
          Inc(m_Dice[0].n67C);
        end;
        exit;
      end;//00491461
      m_Dice[0].nPlayPoint:= m_Dice[0].nDicePoint;
      if GetTickCount - m_Dice[0].dwPlayTick > 1500 then begin
        DMsgDlg.Visible:=False;
      end;
      exit;
    end;//004914AD
    
    bo05:=True;
    for I := 0 to m_nDiceCount - 1 do begin
      if m_Dice[I].n67C < m_Dice[I].n680 then begin
        if GetTickCount - m_Dice[I].dwPlayTick > 100 then begin
          if m_Dice[I].n67C div 5 = 4 then begin
            m_Dice[I].nPlayPoint:=Random(6) + 1;
          end else begin
            m_Dice[I].nPlayPoint:=m_Dice[I].n67C div 5 + 8;
          end;
          m_Dice[I].dwPlayTick:=GetTickCount();
          Inc(m_Dice[I].n67C);
        end;
        bo05:=False;
      end else begin  //004915E4
        m_Dice[I].nPlayPoint:= m_Dice[I].nDicePoint;
        if GetTickCount - m_Dice[I].dwPlayTick < 2000 then begin
          bo05:=False;
        end;
      end;
    end; //for
    if bo05 then begin
      DMsgDlg.Visible:=False;
    end;
      
  end;
begin
   if DConfigDlg.Visible  then begin //打开提示框时关闭选项框
     DOptionClick();
   end;
     
   lx := XBase;
   ly := 126;
   case DialogSize of
      0:  //累篮芭
         begin
            d := g_WMainImages.Images[381];
            if d <> nil then begin