Жесткий скриптинг Раздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами
21.04.2009, 21:20
#1
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
Пол года пишу бот, Хочу виложить части когда так сказать на разбор полётов, а также для оптимизации кода. Думаю некоторим будет интересно.
Сразу сори так как програмить учился 10 лет назад в техникуме...
сначала виложу основние юнити:
delphi Код:
unit TItems;
interface
Uses Contnrs,Dialogs,SysUtils;
Type
TItem = class
Public
ID:integer ;
OID:integer ;
Count:integer ;
AugmentationBonus:integer ;
end ;
TItemList = class ( TObjectList)
private
function GetItems( Index: Integer ) : TItem;
procedure SetItems( Index: Integer ; const Value: TItem) ;
function GetItemsi( Index: Integer ) : TItem;
procedure SetItemsi( Index: Integer ; const Value: TItem) ;
function GetItemso( Index: Integer ) : TItem;
procedure SetItemso( Index: Integer ; const Value: TItem) ;
public
procedure AddItem( OID,IID,C,AB:integer ) ;
function IFIID( ID:Integer ) :Integer ;
function IFOID( OID:Integer ) :Integer ;
property Items[Index: Integer]: TItem read GetItems write SetItems; default;
property ItemI[Index: Integer]: TItem read GetItemsi write SetItemsi;
property ItemO[Index: Integer]: TItem read GetItemso write SetItemso;
end ;
Var NI:TItem;
implementation
{ TItemList }
procedure TItemList.AddItem ( OID, IID, C,AB: integer ) ;
Var NewItem:TItem;
begin
Try
if IFOID( OID) =-1 then Begin
NewItem:=TItem.Create ;
NewItem.ID :=IID;
NewItem.OID :=OID;
NewItem.Count :=C;
NewItem.AugmentationBonus :=AB;
Add( NewItem) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.AddItem:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TItemList.GetItems ( Index: Integer ) : TItem;
begin
Result := TItem.Create ;
Try
if Index<Count then Result := TItem( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.GetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TItemList.SetItems ( Index: Integer ; const Value: TItem) ;
begin
Try
inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.SetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TItemList.GetItemsi ( Index: Integer ) : TItem;
begin
Result := NI;
Try
Index:=IFIID( Index) ;
if Index<>-1 then Result := TItem( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.GetItemsi:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TItemList.GetItemso ( Index: Integer ) : TItem;
begin
Result := NI;
Try
Index:=IFOID( Index) ;
if Index<>-1 then Result := TItem( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.GetItemso:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TItemList.IFIID ( ID: Integer ) : Integer ;
var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].ID =ID then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.IFIID:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TItemList.IFOID ( OID: Integer ) : Integer ;
var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].OID =OID then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.IFOID:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TItemList.SetItemsi ( Index: Integer ; const Value: TItem) ;
begin
Try
Index:=IFIID( Index) ;
if Index<>-1 then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.SetItemsi:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TItemList.SetItemso ( Index: Integer ; const Value: TItem) ;
begin
Try
Index:=IFOID( Index) ;
if Index<>-1 then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TItemList.SetItemsi:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
Begin
NI:=TItem.Create ;
end .
delphi Код:
library AUTOMP;
{$define RELEASE} // для совместимости с релизом пакетхака, при дебуге можно закоментировать
uses
SysUtils,
Windows,
Dialogs,
Classes,
Coding,
IniFiles,
Forms,
AAction in 'AAction.pas' ,
Unit2 in 'Unit2.pas' ,
MSBU in 'MSBU.pas' ,
TItems in 'TItems.pas' ,
TSkils in 'TSkils.pas' ,
TNpcs in 'TNpcs.pas' ,
Other_Func in 'Other_Func.pas' ,
MsbForm in 'MsbForm.pas' {Form2} ,
OtherTypes in 'OtherTypes.pas' ,
TChars in 'TChars.pas' ,
Augmentation in 'Augmentation.pas' ;
var {version} {revision}
min_ver_a: array[0 ..3 ] of Byte = ( 3 ,4 ,1 , 46 ) ;
min_ver: Integer absolute min_ver_a; // минимальная поддерживаемая версия программы
fcl:boolean = false ;
MD:TMyDelay;
function GetPluginInfo( const ver: Integer ) : PChar ; stdcall;
begin
if ver<min_ver then
Result:='Plugin к программе l2phx' +sLineBreak+
'Для версий 3.4.0+' +sLineBreak+
'У вас старая версия программы! Плагин не сможет корректно с ней работать!'
else
Result:='Plugin к программе l2phx' +sLineBreak+
'Для версий 3.4.0+' +sLineBreak+
'Авто CP HP MP' ;
end ;
function SetStruct( const struct: TPluginStruct) : Boolean ; stdcall;
begin
ps:=struct;
Result:=True ;
end ;
procedure OnLoad; stdcall;
var i:integer ;
begin
Try
User:=TUserList.Create ;
for i := 0 to 9 do User.Add ( TUser.create ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА OnLoad:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure OnPacket( const cnt: Cardinal ; const fromServer: Boolean ; var pck: TPacket) ; stdcall;
Var i:integer ;
s:string ;
begin
Try
if ( pck.size <3 ) or ( fcl) or ( user[cnt]=nil ) then exit ;
ppck:=@pck;
with user[cnt] do Begin
inc ( Bussi) ;
//----------------------------------------------------------------------------
if ( ps.Threads [cnt].Name <>'' ) and ( not user[cnt].Online ) then Begin
user[cnt].Init ( ps.Threads [cnt].Name ) ;
Form2.Ncr ( cnt) ;
End ;
//----------------------------------------------------------Пакети от клиента---
if not FromServer then Begin
if ( pck.id =$D0) and ( ps.ReadHEx ( pck,3 ) =68 ) then Begin //----------------------------------RequestRefine---
SetAgValue( cnt,ps.ReadHEx ( pck,3 ) ,ps.ReadDEx ( pck,5 ) ,ps.ReadDEx ( pck,9 ) ,ps.ReadDEx ( pck,13 ) ,ps.ReadDEx ( pck,17 ) ) ;
End ;
if pck.id =$5F then Begin //-----------------------------------------Enchat---
//encid:=ps.ReadDEx(pck,3);
//pck.size:=2;
End ;
if pck.id =$49 then Begin
s:=ps.ReadSEx ( pck,3 ) ;
if pos ( s,'ago,pgo,sbgo,pbgo,abgo,sck,asgo,sl,srk,mtck,mtt,rgo,rstop,rp,gid,np,sbs,ag,ka' ) <>0 then pck.size :=2 ; // не пропускаем пакет
if s='ago' then User[cnt].OnAutoAtack :=true ;
if s='asgo' then User[cnt].OnAutoAssist :=true ;
if s='pgo' then User[cnt].OnAutoPickUp :=true ;
if s='sbgo' then User[cnt].OnselfBaf :=true ;
if s='pbgo' then User[cnt].OnPartyBaf :=true ;
if s='abgo' then User[cnt].OnAutoBaf :=true ;
if s='da' then MA.SetAction ( 0 ,'0=DLGSEL(talk_select)' ) ;
if s='sbs' then User[cnt].OnSBS :=True ;
if s='np' then User[cnt].isInMTP :=false ;
if s='ag' then Begin
sts( cnt,'D0 44 00' +anti4HEX( IList.Itemi [6369 ].OID ) +anti4HEX( IList.Itemi [8732 ].OID ) +anti4HEX( IList.Itemi [2131 ].OID ) +'19 00 00 00' ) ;
End ;
if s='mtt' then Begin
User[cnt].OnAutoMTT :=true ;
say( cnt,'OnAutoMTT On' ) ;
End ;
if s='gid' then Begin
say( cnt,'NpcID: ' +inttostr ( NpcList.Itemi [CurentT.ID ].NpcID ) ) ;
End ;
if s='rgo' then User[cnt].RecordTreck :=true ;
if s='rp' then Treck.AddPoint ( x,y,z) ;
if s='rstop' then Begin
User[cnt].RecordTreck :=False ;
User[cnt].Treck .SaveToFile ( GetCurrentDir +'\Treks\' +User[cnt].Name +'.trk' ) ;
End ;
if s='sck' then Begin
CurentCK.x :=User[cnt].x ;
CurentCK.y :=User[cnt].y ;
CurentCK.z :=User[cnt].z ;
NpcList.SetXYZ ( User[cnt].x ,User[cnt].y ,User[cnt].z ,True ) ;
say( cnt,'Центр кача установлен' ) ;
End ;
if s='mtck' then Begin
with User[cnt].CurentCK do MoveToPoint( cnt,x,y,z) ;
say( cnt,'Идём к точке кача' ) ;
End ;
if s='srk' then Begin
if User[cnt].CurentCK .x <>0 then User[cnt].rk :=ras( User[cnt].CurentCK .x ,User[cnt].CurentCK .y ,User[cnt].x ,User[cnt].y ) ;
say( cnt,'Радиус кача - ' +inttostr ( User[cnt].rk ) ) ;
End ;
if s='sl' then Begin
if CurentT.ID <>0 then Lider.ID :=CurentT.ID ;
if Lider.ID <>0 then OnMoveToLiader:=True ;
say( cnt,'Лидер выбран' ) ;
End ;
End ;
if ( pck.id =$23 ) and ( pos ( ps.ReadSEx ( pck,3 ) ,'sbs,np,mtt,p4,sa,ag,ka' ) <>0 ) then Begin
ByPass( cnt,ps.ReadSEx ( pck,3 ) ) ;
pck.size :=2 ; // не пропускаем пакет
End ;
//------------------------------------------------------RequestSocialAction---
if ( pck.id =$34 ) then Begin
if ps.ReadDEx ( pck,3 ) =6 then Begin // Yes
pck.size :=2 ;// не пропускаем пакет
//Form2.Visible:=true;
ShowInfo( cnt) ;
End ;
if ps.ReadDEx ( pck,3 ) =5 then Begin // No
pck.size :=2 ;// не пропускаем пакет
Form2.Visible :=false ;
End ;
if ps.ReadDEx ( pck,3 ) =11 then Begin // Aplaus
pck.size :=2 ;// не пропускаем пакет
End ;
End ;
//-------------------------------------------------------ValidatePosition---
if pck.id =$59 then
ValidatePosition( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ) ;
//--------------------------------------------------------------------------
if pck.id =$0f then StopMoveTT( cnt) ;//--------------MoveBackwardToLocation---
if pck.id =$48 then StopMoveTT( cnt) ;//----------------RequestTargetCanceld---
//--------------------------------------------------------------------------
End ;
//----------------------------------------------------------------------------
//------------------------------------------------------------------------------
//----------------------------------------------------------Пакети от сервера---
if FromServer then Begin
if ( pck.id =$f3) and ( ps.ReadDEx ( pck,3 ) =1510 ) and ( ps.ReadSEx ( pck,15 ) ='M002' ) then sts( cnt,'C6E605000001000000' +anti4HEX( User[cnt].ObjectID ) ) ;
if ( ( pck.id =$2f) or ( pck.id =$27 ) ) and ( ObjectID=0 ) then sts( cnt,'14' ) ;
//---------------------------------------------------------------UserInfo---
if pck.id =$32 then Begin
i:=23 +( Length ( ps.ReadSEx ( pck,23 ) ) *2 ) +2 ;
i:=i+508 +( Length ( ps.ReadSEx ( pck,i+508 ) ) *2 ) +2 ;
UserInfo( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,19 ) ,ps.ReadDEx ( pck,i+53 ) ,ps.ReadSEx ( pck,23 ) ) ;
RHID:=ps.ReadDEx ( pck,( 133 +( length ( ps.ReadSEx ( pck,23 ) ) *2 ) ) ) ;
LHID:=ps.ReadDEx ( pck,( 137 +( length ( ps.ReadSEx ( pck,23 ) ) *2 ) ) ) ;
End ;
//---------------------------------------------------------------CharInfo---
if pck.id =$31 then Begin
i:=23 +( Length ( ps.ReadSEx ( pck,23 ) ) *2 ) +2 ;
i:=i+272 +( Length ( ps.ReadSEx ( pck,i+272 ) ) *2 ) +2 ;
CharInfo( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,19 ) ,ps.ReadDEx ( pck,i+41 ) ,ps.ReadDEx ( pck,i) ,ps.ReadSEx ( pck,23 ) ) ;
//say(cnt,ps.ReadSEx(pck,23)+' - '+inttostr(ps.ReadDEx(pck,i))); 1435
End ;
//----------------------------------------------------------------PetInfo---
if ( pck.id =$B2) or ( pck.id =$B6) then Begin
Pet.stype :=ps.ReadDEx ( pck,3 ) ;
Pet.ID :=ps.ReadDEx ( pck,7 ) ;
//if ps.ReadCEx(pck,125)=1 then user[cnt].Pet.isInCombat:=true else user[cnt].Pet.isInCombat:=false;
End ;
//--------------------------------------------------------PetStatusUpdate---
if pck.id =$B6 then Begin
Pet.ID :=ps.ReadDEx ( pck,7 ) ;
i:=23 +( Length ( ps.ReadSEx ( pck,23 ) ) *2 ) +2 ;
Pet.HP :=ps.ReadDEx ( pck,i+8 ) ;
Pet.MaxHP :=ps.ReadDEx ( pck,i+12 ) ;
if ( Pet.HP <( Pet.MaxHP -500 ) ) and ( Pet.HPC <>0 )
and ( GetTickCount-Pet.LTU >15000 ) then Begin
sts( cnt,'94' +anti4HEX( Pet.HPID ) ) ;
Pet.LTU :=GetTickCount;
End ;
//say(cnt,inttostr(user[cnt].Pet.HP)+'\'+inttostr(user[cnt].Pet.MaxHP));
End ;
//-----------------------------------------------------PetInventoryUpdate---
if pck.id =$B4 then Begin
for i:=0 to ps.ReadHEx ( pck,3 ) -1 do Begin
if ps.ReadDEx ( pck,13 +i*58 ) =1539 then Begin
Pet.HPID :=ps.ReadDEx ( pck,9 +i*58 ) ;
Pet.HPC :=ps.ReadDEx ( pck,17 +i*58 ) ;
End ;
if ( ps.ReadDEx ( pck,13 +i*58 ) =9668 ) and ( ps.ReadDEx ( pck,17 +i*58 ) <20 ) then Begin
say( cnt,inttostr ( ps.ReadDEx ( pck,17 +i*58 ) ) +' Мало еди у питомца!!!' ) ;
sts( cnt,'56130000000000000000' ) ;
End ;
End ;
End ;
//-------------(CID,Invid,id,x,y,z:integer)----------------------DropItem---
if pck.id =$16 then
DropItem( cnt,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,15 ) ,ps.ReadDEx ( pck,19 ) ,ps.ReadDEx ( pck,23 ) ) ;
//--------------------------------------------------------------------------
//--------------------------------------------------------------------------
if ( pck.id =$05 ) then DropItem( cnt,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,15 ) ,ps.ReadDEx ( pck,19 ) ) ;
//--------------------------------------------------------------------------
//---------------------------------------------------------------ItemList---
if ( pck.id =$11 ) then //IL(CID,OID,IID,C,n:integer);
for i:=0 to ps.ReadHEx ( pck,5 ) -1 do
IL( cnt,ps.ReadDEx ( pck,9 +i*72 ) ,ps.ReadDEx ( pck,13 +i*72 ) ,ps.ReadDEx ( pck,21 +i*72 ) ,ps.ReadDEx ( pck,39 +i*72 ) ,i) ;
//--------------------------------------------------------------------------
//--------------------------------------------------------InventoryUpdate---
if ( pck.id =$21 ) Then //InventoryUpdate(CID,CH,OID,IID,C:integer);
for i:=0 to ps.ReadHEx ( pck,3 ) -1 do
InventoryUpdate( cnt,ps.ReadHEx ( pck,5 +( i*74 ) ) ,ps.ReadDEx ( pck,9 +( i*74 ) ) ,ps.ReadDEx ( pck,13 +( i*74 ) ) ,ps.ReadDEx ( pck,21 +( i*74 ) ) ,ps.ReadDEx ( pck,39 +( i*74 ) ) ) ;
//--------------------------------------------------------------------------
//----------------------------------------------------------SystemMessage---
if pck.id =$62 then Begin
if ( ps.ReadDEx ( pck,3 ) =1405 ) or ( ( ps.ReadDEx ( pck,3 ) =48 ) and ( ps.ReadDEx ( pck,15 ) =5592 ) ) then IsCPUse:=false ; //---------------------------CP restore---
if ( ps.ReadDEx ( pck,3 ) =936 ) and ( ps.ReadDEx ( pck,15 ) =5592 ) then IsCPUse:=True ;
if ( ps.ReadDEx ( pck,3 ) =44 ) then Begin //Крит
//sts(cnt,'5F'+anti4HEX(encid));
End ;
if ( ps.ReadDEx ( pck,3 ) =46 ) and ( ps.ReadDEx ( pck,15 ) =MCS) then Begin
CurentT.CurseTime :=GetTickCount;
CurentT.isInCurse :=True ;
End ;
if ( ps.ReadDEx ( pck,3 ) =139 ) and ( ps.ReadDEx ( pck,31 ) = MCS) then CurentT.isInCurse :=False ;
if ( ps.ReadDEx ( pck,3 ) =46 ) and ( ps.ReadDEx ( pck,15 ) = 42 ) then isInSweep:=False ;
if ( ps.ReadDEx ( pck,3 ) =612 ) or ( ps.ReadDEx ( pck,3 ) =357 ) then CurentT.spoiled :=true ;
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =20320 ) then IsMPUse:=false ;//20320
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =20370 ) then IsMPUse:=false ;//20370
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =2037 ) then IsHPUse:=false ; //2037
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =2035 ) then UseITEm( cnt,1375 ) ;
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =2032 ) then IsHPUse:=false ; //2032
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =2031 ) then IsHPUse:=false ; //2031
if ( ps.ReadDEx ( pck,3 ) =92 ) and ( ps.ReadDEx ( pck,15 ) =4072 ) then UnHold( cnt) ; //2031
if ( ps.ReadDEx ( pck,3 ) =22 ) or ( ps.ReadDEx ( pck,3 ) =181 ) then Begin //(22) цель слишком далеко (181) цель не видно
INKT:=false ;
isInCombat:=false ;
//sts(cnt,'84',false);//LeaveWorld
if not MD.Active then sts( cnt,'57' ) ;//RequestRestart
MD.SLTU ( 500 ) ;
End ;
End ;
//--------------------------------------------------------------------------
//-----------------------------------------------------------StatusUpdate---
if pck.id =$18 then
for i:=0 to ps.ReadDEx ( pck,7 ) -1 do
StatsUpdate( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,11 +i*8 ) ,ps.ReadDEx ( pck,15 +i*8 ) ) ;
//--------------------------------------------------------------------------
//-----------------------------------------------------------PartySpelled---
if pck.id =$F4 then
for i:=0 to ps.ReadDEx ( pck,11 ) -1 do
PartySpelled( cnt,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,15 +i*10 ) ,ps.ReadDEx ( pck,21 +i*10 ) ) ;
//--------------------------------------------------------------------------
//----------------------------------------------PartySmallWindowDeleteAll---
if pck.id =$50 then PartyList.Clear ;
//-------------------------------------------------PartySmallWindowDelete---
if pck.id =$51 then PartyList.DelChar ( ps.ReadDEx ( pck,3 ) ) ;
//-------------------------------------------------PartySmallWindowUpdate---
if pck.id =$52 then Begin
i:=Length ( ps.ReadSEx ( pck,7 ) ) *2 ;
PartySWUpdate( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,9 +i) ,ps.ReadDEx ( pck,13 +i)
,ps.ReadDEx ( pck,17 +i) ,ps.ReadDEx ( pck,21 +i) ,ps.ReadDEx ( pck,25 +i)
,ps.ReadDEx ( pck,29 +i) ,ps.ReadDEx ( pck,33 +i) ,ps.ReadDEx ( pck,37 +i) ,ps.ReadSEx ( pck,7 ) ) ;
End ;
//--------------------------------------------------------------------------
//-------------------------------------------------ExPartyPetWindowUpdate---
if ( pck.id =$FE) and ( ps.ReadHEx ( pck,3 ) =25 ) then Begin
i:=Length ( ps.ReadSEx ( pck,21 ) ) *2 ;
PartySWUpdate( cnt,ps.ReadDEx ( pck,5 ) ,0 ,0
,ps.ReadDEx ( pck,23 +i) ,ps.ReadDEx ( pck,27 +i) ,ps.ReadDEx ( pck,31 +i)
,ps.ReadDEx ( pck,35 +i) ,ps.ReadDEx ( pck,39 +i) ,0 ,ps.ReadSEx ( pck,21 ) ) ;
End ;
//--------------------------------------------------------------------------
//----------------------------------------------------PartyMemberPosition---
if pck.id =$BA then for i:=0 to ps.ReadDEx ( pck,3 ) -1 do
PartyMemberPosition( cnt,ps.ReadDEx ( pck,7 +i*16 ) ,ps.ReadDEx ( pck,11 +i*16 ) ,ps.ReadDEx ( pck,15 +i*16 ) ,ps.ReadDEx ( pck,19 +i*16 ) ) ;
//--------------------------------------------------------------------------
//---------------------------------------------------------------SkilList---
if ( pck.id =$5f) and ( User[cnt].Name <>'' ) then
for i:=0 to ps.ReadDEx ( pck,3 ) -1 do
if ( ( ps.ReadDEx ( pck,7 +( i*13 ) ) ) =0 ) and ( User[cnt].IgnorList .IndexOfName ( inttostr ( ps.ReadDEx ( pck,15 +( i*13 ) ) ) ) =-1 ) then
User[cnt].SkilList .ADDSkil ( sid.Values [inttostr( ps.ReadDEx ( pck,15 +( i*13 ) ) ) ],ps.ReadDEx ( pck,15 +( i*13 ) ) ) ;
//--------------------------------------------------------------------------
//----------------------------------------------------------MagicSkillUse---
if pck.id =$48 then MagicSkillUse( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,( ps.ReadDEx ( pck,23 ) ) ) ; //ps.ReadDEx(pck,19)
//---------------------------------------------------AbnormalStatusUpdate---
if ( pck.id =$85 ) and ( Name<>'' ) then
for i:=0 to ps.ReadHEx ( pck,3 ) -1 do
ASUpdate( cnt,ps.ReadDEx ( pck,5 +i*10 ) ,ps.ReadDEx ( pck,11 +i*10 ) ) ;
//--------------------------------------------------------------------------
if pck.id =$49 then Unkast( cnt,ps.ReadDEx ( pck,3 ) ) ;//----MagicSkillCanceled---
if pck.id =$54 then Unkast( cnt,ps.ReadDEx ( pck,3 ) ) ;//----MagicSkillLaunched---
//--------------------------------------------------------------------------
if pck.id =$B9 then MyT( cnt,ps.ReadDEx ( pck,3 ) ) ;//---------MyTargetSelected---
//---------------------------------------------------------TargetSelected---
if pck.id =$23 then TargetSelected( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ) ;
//--------------------------------------------------------------------------
if pck.id =$24 then UnTarget( cnt,ps.ReadDEx ( pck,3 ) ) ;//------Потеря таргета---
//------------------------------------------------Обработка появления Npc---
if ( pck.id =$0C) and ( ps.ReadCEx ( pck,122 ) =0 ) then
NpcInfo( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadCEx ( pck,122 ) ,ps.ReadDEx ( pck,15 ) ,ps.ReadDEx ( pck,19 ) ,ps.ReadDEx ( pck,23 ) ) ;
//---------------------------------------------------------MoveToLocation---
if pck.id =$2F then
MTL( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,15 ) ) ;
//-------------------------------------------------------ValidateLocation---
if pck.id =$79 then
MTL( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,11 ) ,ps.ReadDEx ( pck,15 ) ) ;
//-------------------------------------------------------------MoveToPawn---
if pck.id =$72 then
MTL( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,15 ) ,ps.ReadDEx ( pck,19 ) ,ps.ReadDEx ( pck,23 ) ,ps.ReadDEx ( pck,7 ) ,true ) ;
//--------------------------------------------------------------------------
if pck.id =$08 then DelObj( cnt,ps.ReadDEx ( pck,3 ) ) ;//-------Удаляем обьєкти---
if pck.id =$00 then Die( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,23 ) ) ;//---Die---
//--------------------------------------------------------------------------
//-----------------------------------------------------------------Attack---
if pck.id =$33 then
Attack( cnt,ps.ReadDEx ( pck,3 ) ,ps.ReadDEx ( pck,7 ) ,ps.ReadDEx ( pck,16 ) ,ps.ReadDEx ( pck,20 ) ) ;
//--------------------------------------------------------------------------
//if pck.id=$71 then RR(cnt);//-------------------------------------restart---
if pck.id =$84 then RR( cnt) ;//--------------------------------------logaut---
//if pck.id=$1f then ActionFailed(cnt);//----------------------ActionFailed---
end ;
dec ( User[cnt].Bussi ) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА OnPacket:' +inttostr ( pck.id ) +'--' +inttostr ( cnt) +'--' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при выгрузке плагине
procedure OnFree; stdcall;
var i:integer ;
begin
Try
fcl:=true ;
//Form2.Free;
//sid.Free;
//itid.Free;
//npid.Free;
for i := 0 to 9 do while User[i].Bussi <>0 do ;
//User.Clear;
//User.Destroy;
User.Free ;
//
//if User<>nil then
except on E : Exception do
ShowMessage ( 'ОШИБКА OnFree:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
exports
GetPluginInfo,
OnPacket,
OnLoad,
SetStruct,
OnFree;
begin
Try Begin
Form2:=TForm2.Create ( application) ;
//Form2.Visible:=false;
End ;
except on E : Exception do
ShowMessage ( 'код 1:ОШИБКА ИНИЦИАЛИЗАЦИИ ДАННЫХ!!! ' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end .
Последний раз редактировалось QaK, 12.05.2009 в 15:01 .
За это сообщение Name4Me нажился 4 спасибками от:
22.04.2009, 00:16
#2
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
delphi Код:
unit Unit2;
interface
uses SysUtils,Dialogs,Classes,Windows,Variants;
procedure UserInfo( cid,sx,sy,sz,OID,ClID:integer ;Nm:string ) ;
procedure CharInfo( cid,x,y,z,OID,ClasID,ClanID:integer ;Nm:string ) ;
procedure NpcInfo( CID,OID,NID,isa,inc ,X,Y,Z:integer ) ;
procedure ValidatePosition( CID,mx,my,mz:integer ) ;
procedure MTL( CID,OID,sx,sy,sz:integer ;TAR:integer =0 ;f:boolean = false ) ;
procedure AA( CID:integer ) ;
procedure MyT( CID,TID:integer ) ;
procedure TargetSelected( CID,OID,TID:integer ) ;
procedure UnTarget( CID,OID:integer ) ;
procedure ByPass( CID:integer ;command:string ) ;
procedure PartySWUpdate( CID,OID,CP,MCP,HP,MHP,MP,MMP,Lvl,CLID:integer ;nm:string ) ;
procedure PartyMemberPosition( CID,OID,x,y,z:integer ) ;
procedure PartySpelled( CID,OID,skid,dur:integer ) ;
procedure ASUpdate( cid,skid,Duration:integer ) ;
procedure MagicSkillUse( cid,OID,TID,skid,delay:integer ) ;
procedure StatsUpdate( cid,OID,id,Value:integer ) ;
//procedure RR(CID:integer);
procedure Attack( CID,ATK,TAR,x,y:integer ) ;
procedure DropItem( CID,Invid,id,x,y,z:integer ) ;
procedure IL( CID,OID,IID,C,AB,n:integer ) ;
procedure InventoryUpdate( CID,CH,OID,IID,C,AB:integer ) ;
procedure DelObj( CID,OID:integer ) ;
procedure Die( CID,OID,sw:integer ) ;
procedure Unkast( CID,OID:integer ) ;
procedure RR( CID:integer ) ;
implementation
uses AAction,msbu,msbform,Other_Func,Augmentation;
//---------------------------------------------------------------Инфа о чарах---
procedure UserInfo( cid,sx,sy,sz,OID,ClID:integer ;Nm:string ) ;
begin
Try
//if User[CID]=nil then User[CID]:=TUser.create(Nm);
with User[CID] do Begin
if ( ClassID<>ClID) or ( Name<>Nm) then begin
Save;
Form2.DN ( CID) ;
say( ClID,'ClassID ' +inttostr ( ClID) ) ;
ClassID:=ClID;
init( Nm) ;
Form2.Ncr ( CID) ;
end ;
ObjectID:=OID;
x:=sx;
y:=sy;
z:=sz;
Name:=nm;
NpcList.SetXYZ ( x,y,z) ;
End ;
//ShowInfo(cid);
except on E : Exception do
ShowMessage ( 'ОШИБКА UserInfo:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//---------------------------------------------------------------Инфа о чарах---
procedure CharInfo( cid,x,y,z,OID,ClasID,ClanID:integer ;Nm:string ) ;
begin
Try
user[CID].CharList .AddChar ( x,y,z,OID,ClasID,ClanID,Nm) ;
//if (ClasID=116) or(ClasID=97) or (ClasID=16)then Say(cid,'!!!');///ShowCharInfo(cid);
except on E : Exception do
ShowMessage ( 'ОШИБКА CharInfo:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//----------------------------------------------------Обработка появления Npc---
procedure NpcInfo( CID,OID,NID,isa,inc ,X,Y,Z:integer ) ;
var ni:integer ;
begin
Try
ni:=nid-1000000 ;
if npid.Values [inttostr( ni) ]<>'' then User[cid].NpcList .ADDNpc ( OID,ni,isa,X,Y,Z,npid.Values [inttostr( ni) ])
else User[cid].NpcList .ADDNpc ( OID,ni,isa,X,Y,Z,'NoName' ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА NpcInfo:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-----------------------------------------------------------ValidatePosition---
procedure ValidatePosition( CID,mx,my,mz:integer ) ;
begin
Try
with User[CID] do begin
x:=mx;
y:=my;
z:=mz; //say(CID,'CID'+inttostr(CID)+'/'+inttostr(User[CID].CID));
NpcList.SetXYZ ( mx,my,mz) ;
if isInMTP and ( ras( mx,my,MovePoint.x ,MovePoint.y ) <180 ) and not OnSBS then Begin
isInMTP:=false ;
//MoveTT(CID);
End ;
if ( RecordTreck) and ( Treck.size =0 ) then Treck.AddPoint ( x,y,z) ;
if ( RecordTreck) and ( Treck.size >0 ) and ( ras( x,y,Treck.Point [Treck.size ].x ,Treck.Point [Treck.size ].y ) >100 ) then Begin
Treck.AddPoint ( x,y,z) ;
say( cid,'P[' +inttostr ( Treck.size ) +']' ) ;
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MoveToLocation:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//---------------------------------------------------------Обработка движения---
procedure MTL( CID,OID,sx,sy,sz:integer ;TAR:integer =0 ;f:boolean =false ) ;
begin
Try
with User[CID] do begin
if ( OID=Lider.ID ) then Begin
Lider.x :=sx;
Lider.y :=sy;
Lider.z :=sz;
{if f and (OID=Lider.ID) then Begin
Lider.isInCombat:=true;
Lider.DTT:=TAR;
End;}
if ( not f) or ( f and ( not isInCombat and not lider.isInCombat ) ) then move2( CID) ;
End ;
NpcList.MTL ( OID,sx,sy,sz) ;
PartyList.MTL ( OID,sx,sy,sz,x,y) ;
end ;
Form2.StUpdate ( CID) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MoveToLocation:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------------------AA---
procedure AA( CID:integer ) ;
begin
Try
with user[CID] do if hp>0 then begin
AutoBotleUse( CID) ;
if GetTickCount-CurentT.CurseTime >15000 then CurentT.isInCurse :=false ;
if ( mhs<>0 ) and ( not INKT) then AutoHeal( CID) ;
if ( not INPU) and ( not INKT) and ( SwepList.Count <>0 ) and ( User[cid].ClassID =55 ) then Sweep( CID) ;
if ( OnSelfBaf) and ( not INPU) and ( not INKT) and ( not isInHeal) then SelfBaf( CID) ;
if ( OnPartyBaf) and ( not INPU) and ( not INKT) and ( not isInHeal) and ( not isInSBaf) then PartyBaf( CID) ;
if ( OnAutoBaf) and ( not User[CID].INKT ) then AutoBaf( CID) ;
if ( OnAutoPickUp) and ( not isInSweep) and ( not INKT) and ( not INPU) then PickUp( CID) ;
if ( OnAutoAtack) and ( not isInSweep) and ( not isInMTP) and ( not INKT) and ( not INPU) then AAtack( CID) ;
if ( OnAutoAssist) and ( not isInSweep) and ( not isInMTP) and ( not INKT) and ( not INPU) and ( Lider.isInCombat ) then AAssist( CID) ;
if ( OnAutoMTT) and ( not isInMTP) then MoveTT( CID) ;
//if (i=0) and (User[cid].CurentCK.x<>0) then STS(cid,'0f'+anti4HEX(User[cid].CurentCK.x)+anti4HEX(User[cid].CurentCK.y)+anti4HEX(User[cid].CurentCK.z)+'00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00');
Form2.StUpdate ( CID) ;
//isInHeal:=false;
//isInSBaf:=false;
if ( not MA.Count >0 ) and ( not MA.isComplete ) and ( not INKT) then DoAction( CID) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AA:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//----------------------------------------------------------Получение таргета---
procedure MyT( CID,TID:integer ) ;
begin
Try
User[CID].CurentT .id :=TID;
User[CID].CurentT .selected :=true ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MyT:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------TargetSelected---
procedure TargetSelected( CID,OID,TID:integer ) ;
begin
Try
if ( User[CID].Online ) and ( OID=User[CID].Lider .ID ) then Begin
User[CID].Lider .DTT :=TID;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TargetSelected:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------Потеря таргета---
procedure UnTarget( CID,OID:integer ) ;
begin
Try
with User[CID] do begin
if OID=ObjectID then Begin
CurentT.id :=0 ;
CurentT.DTT :=0 ;
CurentT.MaxHP :=0 ;
CurentT.HP :=0 ;
CurentT.x :=0 ;
CurentT.y :=0 ;
CurentT.selected :=false ;
CurentT.isInCurse :=false ;
CurentT.spoiled :=false ;
isInCombat:=false ;
INPU:=false ;
//say(CID,'UnTarget');
End ;
if OID=Lider.ID then Begin
Lider.isInCombat :=false ;
Lider.DTT :=0 ;
//say(CID,'UnTarget');
End ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА UnTarget:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
procedure ByPass( CID:integer ;command:string ) ;
var i:integer ;
Begin
if command='sbs' then User[CID].OnSBS :=True ;
if command='np' then User[CID].isInMTP :=false ;
if command='p4' then User[CID].CurentPN :=4 ;
if command='ag' then Augment( CID) ;
if command='sa' then Begin
for i:= 1 to User[CID].Treck .size do begin
ShowMessage ( User[CID].Treck .Point [i].alist ) ;
End ;
End ;
if command='mtt' then Begin
User[CID].OnAutoMTT :=true ;
say( CID,'OnAutoMTT On' ) ;
End ;
//ShowInfo(CID);
End ;
//------------------------------------------------------------------------------
//-----------------------------------------------------PartySmallWindowUpdate---
procedure PartySWUpdate( CID,OID,CP,MCP,HP,MHP,MP,MMP,Lvl,CLID:integer ;nm:string ) ;
var i:integer ;
Begin
try
with user[CID].PartyList do begin
i:=IFOID( OID) ;
if i=-1 then Begin
AddChar( 0 ,0 ,0 ,OID,0 ,0 ,'' ) ;
i:=IFOID( OID) ;
End ;
items[i].CP :=CP;
items[i].MaxCP :=MCP;
items[i].HP :=HP;
items[i].MaxHP :=MHP;
items[i].MP :=MP;
items[i].MaxMP :=MMP;
items[i].Lvl :=Lvl;
items[i].ClassID :=CLID;
items[i].Name :=nm;
items[i].Ch :=false ;
Form2.StUpdate ( CID) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА PartySWUpdate:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//--------------------------------------------------------PartyMemberPosition---
procedure PartyMemberPosition( CID,OID,x,y,z:integer ) ;
var i:integer ;
Begin
Try
with user[CID].PartyList do begin
i:=IFOID( OID) ;
if i=-1 then Begin
AddChar( 0 ,0 ,0 ,OID,0 ,0 ,'' ) ;
i:=IFOID( OID) ;
End ;
items[i].x :=x;
items[i].y :=y;
items[i].z :=z;
items[i].dist :=ras( x,y,user[CID].x ,user[CID].y ) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА PartyMemberPosition:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//---------------------------------------------------------------PartySpelled---
procedure PartySpelled( CID,OID,skid,dur:integer ) ;
var i:integer ;
Begin
Try
with user[CID].PartyList do begin
i:=IFOID( OID) ;
if i=-1 then Begin
AddChar( 0 ,0 ,0 ,OID,0 ,0 ,'' ) ;
i:=IFOID( OID) ;
End ;
items[i].Baffs .SLTU ( skid,dur) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА PartySpelled:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//-------------------------------------------------------AbnormalStatusUpdate---
procedure ASUpdate( cid,skid,Duration:integer ) ;
Begin
Try
User[cid].Baffs .SLTU ( skid,Duration) ;
if ( skid=4072 ) and ( Duration>0 ) then User[cid].isInHold :=True ;
except on E : Exception do
ShowMessage ( 'ОШИБКА ASUpdate:' +User[cid].Name +'//' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------MagicSkillUse---
procedure MagicSkillUse( cid,OID,TID,skid,delay:integer ) ;
Begin
Try
with User[cid] do Begin
if ( OID=ObjectID) and ( SkilList.IFIID ( skid) <>-1 ) then
SkilList.Itemi [skid].SetDelay ( delay,GetTickCount) ;
if ( skid<>42 ) and ( OID=Lider.ID ) and ( TID<>Lider.ID ) and ( TID<>ObjectID) and ( PartyList.IFOID ( TID) =-1 ) then Begin
Lider.isInCombat :=true ;
Lider.DTT :=TID;
End ;
if ( OID=ObjectID) and ( TID<>ObjectID) and ( skid=MAS) then isInCombat:=true ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MagicSkillUse:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//----------------------------------------------------------------StatsUpdate---
procedure StatsUpdate( cid,OID,id,Value:integer ) ;
begin
Try
with User[cid] do Begin
if OID=ObjectID then case id of
9 : HP:=Value;
10 : MaxHP:=Value;
33 : CP:=Value;
34 : MaxCP:=Value;
11 : MP:=Value;
12 : MaxMP:=Value;
end ;
if OID=CurentT.ID then case id of
9 : CurentT.HP :=Value;
10 : CurentT.MaxHP :=Value;
end ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА StatsUpdate:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//----------------------------------------------------обработка пакета атаки!---
procedure Attack( CID,ATK,TAR,x,y:integer ) ;
begin
Try
with user[CID] do begin
if ( ATK=ObjectID) then Begin
CurentT.ID :=TAR;
//INAA:=true;
//isInCombat:=true;
if ( not CurentT.spoiled ) and ( ClassID=55 ) and ( CharList.IFOID ( TAR) =-1 ) then sts( cid,'39FE0000000000000000' ) ;
if ( not CurentT.spoiled ) and ( ClassID=117 ) and ( CharList.IFOID ( TAR) =-1 ) then sts( cid,'395C0100000000000000' ) ;
if ( Pet.ID <>0 ) and ( not Pet.isInCombat ) then Begin
Pet.isInCombat :=true ;
//sts(cid,'56100000000000000000');
if Pet.stype =1 then sts( cid,'56160000000000000000' ) ;
End ;
End ;
if ( ATK=user[CID].Lider .ID ) then Begin
Lider.isInCombat :=true ;
Lider.DTT :=TAR;
End ;
if ( ATList.IndexOf ( inttostr ( ATK) ) =-1 ) and ( NpcList.IFOID ( ATK) <>-1 ) and ( ( TAR=ObjectID) or ( PartyList.IFOID ( TAR) <>-1 ) or ( ATK=ObjectID) or ( PartyList.IFOID ( ATK) <>-1 ) ) then Begin
ATList.Add ( inttostr ( ATK) ) ;
//if (WeaponOID<>0) and (RHID<>WeaponOID) then UseItem(CID,WeaponOID);
//if (MAS.ID<>0) and (MAS.Active) then MAS.Cust(CID);
//if (MDS.ID<>0) and (MDS.Active) then MDS.Cust(CID);
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА Attack:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------------DropItem---
procedure DropItem( CID,Invid,id,x,y,z:integer ) ;
begin
Try
if ras( x,y,user[CID].x ,user[CID].y ) <400 then
user[CID].DropList .Add ( inttostr ( id) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА DropItem:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------------ItemList---
procedure IL( CID,OID,IID,C,AB,n:integer ) ;
begin
Try
if n=0 then user[CID].IList .Clear ;
user[CID].IList .AddItem ( OID,IID,C,AB) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА IL:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//------------------------------------------------------------InventoryUpdate---
procedure InventoryUpdate( CID,CH,OID,IID,C,AB:integer ) ;
var i:integer ;
begin
Try
with user[CID].IList do begin
i:=IFOID( OID) ;
if i<>-1 Then case ch of
3 : Delete ( i) ;
2 : user[CID].IList [i].Count :=C;
End ;
if ch=1 Then AddItem( OID,IID,C,AB) ;
if ( IID=3949 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5264 ) <>-1 ) then useitem( cid,5264 ) ;//Blessed Spiritshot: C Grade
if ( IID=3950 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5265 ) <>-1 ) then useitem( cid,5265 ) ;//Blessed Spiritshot: B Grade
if ( IID=3951 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5266 ) <>-1 ) then useitem( cid,5266 ) ;//Blessed Spiritshot: A Grade
if ( IID=3952 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5267 ) <>-1 ) then useitem( cid,5267 ) ;//Blessed Spiritshot: S Grade
if ( IID=1464 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5255 ) <>-1 ) then useitem( cid,5255 ) ;//Soulshot: C-grade
if ( IID=1465 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5253 ) <>-1 ) then useitem( cid,5253 ) ;//Soulshot: B-grade
if ( IID=1466 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5254 ) <>-1 ) then useitem( cid,5254 ) ;//Soulshot: A-grade
if ( IID=1467 ) and ( c<=20 ) and ( c>0 ) and ( IFIID( 5255 ) <>-1 ) then useitem( cid,5255 ) ;//Soulshot: S-grade
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА InventoryUpdate:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------Die---
procedure Die( CID,OID,sw:integer ) ;
begin
Try
with User[cid] do Begin
//DinoIsRaedy:=false;
if ( sw=1 ) and ( ( ClassID=55 ) or ( ClassID=117 ) ) then Begin
if ( ( CurentT.ID <>OID) or INKT or isInHold) and ( ATList.IndexOf ( inttostr ( OID) ) <>-1 ) then SwepList.Add ( inttostr ( OID) ) ;
if ( CurentT.ID =OID) and not INKT then Begin
INKT:=True ;
SkilList.Itemi [42 ].Cust ( Cid) ;
End ;
End ;
NpcList.DelNpc ( OID) ;
if ATList.IndexOf ( inttostr ( OID) ) <>-1 then
ATList.Delete ( ATList.IndexOf ( inttostr ( OID) ) ) ;
if ( CurentT.ID =OID) and ( ( sw<>1 ) or ( ( ClassID<>55 ) or ( ClassID<>117 ) ) ) then Begin
CurentT.isInCurse :=False ;
CurentT.spoiled :=False ;
Pet.isInCombat :=false ;
isInCombat:=false ;
INPU:=false ;
End ;
if Lider.DTT =OID then Begin
Lider.DTT :=0 ;
Lider.isInCombat :=False ;
End ;
if ( OID=ObjectID) and ( OnAutoOFF) then Begin
sts( CID,'7D00000000' ) ;
sts( CID,'84' ,false ) ;//LeaveWorld
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА DelObj:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//---------------------------------------------------------------------DelObj---
procedure DelObj( CID,OID:integer ) ;
begin
Try
with User[CID] do Begin
if DropList.IndexOf ( inttostr ( OID) ) <>-1 then Begin
DropList.Delete ( DropList.IndexOf ( inttostr ( OID) ) ) ;
if CurentPUID=OID then INPU:=false ;
End ;
CharList.DelChar ( OID) ;
NpcList.DelNpc ( OID) ;
if ATList.IndexOf ( inttostr ( OID) ) <>-1 then
ATList.Delete ( ATList.IndexOf ( inttostr ( OID) ) ) ;
if SwepList.IndexOf ( inttostr ( OID) ) <>-1 then
SwepList.Delete ( SwepList.IndexOf ( inttostr ( OID) ) ) ;
if CurentT.ID =OID then Begin
CurentT.ID :=0 ;
CurentT.selected :=False ;
CurentT.spoiled :=False ;
CurentT.isInCurse :=False ;
Pet.isInCombat :=false ;
isInCombat:=false ;
INPU:=false ;
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА DelObj:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//---------------------------------------------------------------------Unkast---
procedure Unkast( CID,OID:integer ) ;
begin
Try
if User[CID].ObjectID =OID then Begin
User[CID].INKT :=False ;
if not User[CID].OnAutoMTT then User[CID].isInMTP :=False ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА Unkast:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
//------------------------------------------------------------------------------
procedure RR( CID:integer ) ;
Begin
Try
User[CID].Save ;
Form2.DN ( CID) ;
User[CID].Online :=false ;
except on E:Exception do
ShowMessage ( 'RR' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
end .
Добавлено через 1 минуту
delphi Код:
unit TNpcs;
interface
Uses Contnrs,Dialogs,SysUtils,math,Other_Func;
Type
Position = Record
x,y,z:integer ;
End ;
TNpc = class
Public
ObjectID:integer ;
NpcID,IsAttackable:integer ;
NpcName:string ;
Dist:integer ;
x,y,z:integer ;
end ;
TNpcList = class ( TObjectList)
private
us,ct:Position;
centre:boolean ;
function GetItems( Index: Integer ) : TNpc;
procedure SetItems( Index: Integer ; const Value: TNpc) ;
function GetItemsi( Index: Integer ) : TNpc;
procedure SetItemsi( Index: Integer ; const Value: TNpc) ;
public
pol:Poligon;
function IFOID( OID:Integer ) :Integer ;
function IFIID( IID:Integer ) :Integer ;
function GetMinDist( minr:integer =9999 ) : integer ;
Procedure ADDNpc( OID,NID,isa,sx,sy,sz:Integer ;Nm:string ) ;
Procedure DelNpc( OID:Integer ) ;
Procedure SetXYZ( sx,sy,sz:Integer ;cn:boolean = false ) ;
Procedure MTL( OID,sx,sy,sz:Integer ) ;
property Items[Index: Integer]: TNpc read GetItems write SetItems; default;
property Itemi[Index: Integer]: TNpc read GetItemsi write SetItemsi;
end ;
Function MyNPCSort( el1,el2:TNpc) :integer ;
implementation
Function MyNPCSort( el1,el2:TNpc) :integer ;
Begin
Result:=0 ;
Try
if ( ( el1.IsAttackable =0 ) and ( el2.IsAttackable =0 ) ) or
( ( el1.IsAttackable <>0 ) and ( el2.IsAttackable <>0 ) ) then
result:=ComparСeInteger( el1.Dist ,el2.Dist ) ;
if ( ( el1.IsAttackable =0 ) and ( el2.IsAttackable <>0 ) ) then result:=1 ;
if ( ( el1.IsAttackable <>0 ) and ( el2.IsAttackable =0 ) ) then result:=-1 ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MyNPCSort:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
{ TNpcList }
procedure TNpcList.ADDNpc ( OID, NID,isa, sx, sy, sz: Integer ;Nm:string ) ;
Var MyNpc:TNpc;
i:integer ;
Begin
Try
i:=IFOID( OID) ;
if i=-1 then Begin
MyNpc:=TNpc.create ;
MyNpc.ObjectID :=OID;
MyNpc.NpcID :=NID;
MyNpc.IsAttackable :=isa;
MyNpc.x :=sx;
MyNpc.y :=sy;
MyNpc.z :=sz;
MyNpc.NpcName :=nm;
MyNpc.Dist :=Ras( sx,sy,us.x ,us.y ) ;
Add( MyNpc) ;
End
else Begin
items[i].x :=sx;
items[i].y :=sy;
items[i].z :=sz;
items[i].Dist :=Ras( sx,sy,us.x ,us.y ) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TTNpcList.ADDNpc:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TNpcList.DelNpc ( OID: Integer ) ;
var i:integer ;
begin
Try
i:=IFOID( OID) ;
if i<>-1 then Delete ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.DelNpc:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TNpcList.GetItems ( Index: Integer ) : TNpc;
begin
Result:=nil ;
Try
if ( Index>-1 ) and ( Index<Count) then Result := TNpc( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.GetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TNpcList.GetItemsi ( Index: Integer ) : TNpc;
begin
Result := TNpc.Create ;
Try
Index:=IFOID( Index) ;
if ( Index>-1 ) and ( Index<Count) then Result := TNpc( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.GetItemsi:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TNpcList.IFIID ( IID: Integer ) : Integer ;
Var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].NpcID =IID then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.IFIID:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TNpcList.IFOID ( OID: Integer ) : Integer ;
Var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].ObjectID =OID then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.IFOID:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TNpcList.MTL ( OID, sx, sy, sz: Integer ) ;
begin
Try
with itemi[OID] do if ObjectID<>0 then begin
x:=sx;
y:=sy;
z:=sz;
Dist:=Ras( sx,sy,us.x ,us.y ) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.MTL:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TNpcList.SetItems ( Index: Integer ; const Value: TNpc) ;
begin
Try
if ( Index>-1 ) and ( Index<Count) then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.SetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TNpcList.SetItemsi ( Index: Integer ; const Value: TNpc) ;
begin
Try
Index:=IFOID( Index) ;
if ( Index>-1 ) and ( Index<Count) then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.SetItemsi:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TNpcList.SetXYZ ( sx, sy, sz: Integer ;cn:boolean = false ) ;
var i:integer ;
begin
Try
if not cn then Begin
us.x :=sx;
us.y :=sy;
us.z :=sz;
for i := 0 to Count - 1 do items[i].Dist :=Ras( items[i].x ,items[i].y ,us.x ,us.y ) ;
End else Begin
ct.x :=sx;
ct.y :=sy;
ct.z :=sz;
Centre:=true ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.SetXYZ:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TNpcList.GetMinDist ( minr:integer =9999 ) : integer ;
var i:integer ;
begin
Result:=0 ;
i:=0 ;
Try
sort( @MyNPCSort) ;
if count>0 Then while ( result=0 ) and ( i<Count-1 ) do with items[i] do begin
if ( not centre) and ( IsAttackable=1 )
and ( Dist<minr) and ( abs ( us.z -z) <=300 ) then Result:=ObjectID;
if centre and ( IsAttackable=1 )
and ( Ras( x,y,ct.x ,ct.y ) <minr) and ( abs ( ct.z -z) <=300 ) then Result:=ObjectID;
inc ( i) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TNpcList.SortByDist:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
end .
Добавлено через 1 минуту
delphi Код:
unit TSkils;
interface
Uses Windows,Dialogs,SysUtils,ExtCtrls,Contnrs;
Type
TSkil = class ( TObject )
private
function Getp: Boolean ;
Public
ReuseDelay:DWORD;
ID:integer ;
Name: String ;
Duration:integer ;
LastTimeUsed:DWORD;
Procedure SetDelay( Delay,LTU:integer ) ;
function Cust( CID:integer ) :Boolean ;
property isActive:Boolean read Getp;
end ;
TSkilList = class ( TObjectList)
private
function GetItems( Index: Integer ) : TSkil;
procedure SetItems( Index: Integer ; const Value: TSkil) ;
function GetItemsi( Index: Integer ) : TSkil;
procedure SetItemsi( Index: Integer ; const Value: TSkil) ;
public
function IFIID( ID:Integer ) :Integer ;
function IFName( Nm:String ) :Integer ;
Procedure ADDSkil( SkilName:string ;ID:Integer ) ;
property Items[Index: Integer]: TSkil read GetItems write SetItems; default;
property Itemi[Index: Integer]: TSkil read GetItemsi write SetItemsi;
end ;
Var NI:TSkil;
implementation
Uses AAction;
{ TSkil }
//----------------------------------------------------------------------TSkil---
function TSkil.Getp : Boolean ;
begin
Result:=false ;
Try
if ( GetTickCount-LastTimeUsed) >=ReuseDelay then Result:=True ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkil.Getp:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
Procedure TSkil.SetDelay ( Delay,LTU:integer ) ;
Begin
Try
LastTimeUsed:=LTU;
ReuseDelay:=Delay;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkil.SetDelay:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
function TSkil.Cust ( CID:integer ) :boolean ;
Begin
result:=false ;
Try
if isActive then Begin
LastTimeUsed:=GetTickCount;
ReuseDelay:=1500 ;
MagicSU( CID,ID) ;
Result:=true ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkil.Cust:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
{ TSkilList }
//------------------------------------------------------------------TSkilList---
function TSkilList.GetItems ( Index: Integer ) : TSkil;
begin
Result:=NI;
Try
if ( Index>-1 ) and ( Index<Count) then Result := TSkil( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.GetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TSkilList.GetItemsi ( Index: Integer ) : TSkil;
begin
Result:=TSkil.Create ;
Try
Index:=IFIID( Index) ;
if ( Index>-1 ) and ( Index<Count) then Result := TSkil( inherited GetItem( Index) ) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.GetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TSkilList.IFIID ( ID: Integer ) : Integer ;
Var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].ID =ID then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.IFIID:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
function TSkilList.IFName ( Nm: String ) : Integer ;
Var i:integer ;
begin
Result:=-1 ;
Try
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].Name =Nm then Result:=i else inc ( i) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.IFName:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TSkilList.SetItems ( Index: Integer ; const Value: TSkil) ;
begin
Try
if ( Index>-1 ) and ( Index<Count) then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.SetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TSkilList.SetItemsi ( Index: Integer ; const Value: TSkil) ;
begin
Try
Index:=IFIID( Index) ;
if ( Index>-1 ) and ( Index<Count) then inherited SetItem( Index, Value) ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.SetItems:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
Procedure TSkilList.ADDSkil ( SkilName:string ;ID:Integer ) ;
Var MySkil:TSkil;
Begin
Try
if IFIID( ID) =-1 then Begin
MySkil:=TSkil.create ;
MySkil.Name :=SkilName;
MySkil.ID :=ID;
Add( MySkil) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА TSkilList.ADDSkil:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
Begin
NI:=TSkil.Create ;
end .
Добавлено через 45 секунд
delphi Код:
unit AAction;
interface
uses Coding, SysUtils,Dialogs,Classes,windows,ExtCtrls,unit2,Other_Func,OtherTypes;
function MoveToPoint( CID,mx,my,mz:integer ) :boolean ;
function MoveTT( CID:integer ) :boolean ;
function UseItem( CID,IID:integer ) :boolean ;
function AutoBaf( CID:integer ) :boolean ;
function Sweep( CID:integer ) :boolean ;
procedure PickUp( cid:integer ) ;
procedure ShowInfo( CID:integer ) ;
procedure MagicSU( CID,MagicID:integer ) ;
procedure AAtack( cid:integer ) ;
procedure AAssist( cid:integer ) ;
procedure PartyBaf( CID:integer ) ;
procedure SelfBaf( CID:integer ) ;
procedure AutoHeal( CID:integer ) ;
Procedure AutoBotleUse( CID:integer ) ;
procedure Move2( Cid:integer ) ;
procedure STS( CID:integer ;msg:string ;F:boolean = true ) ;
procedure Say( CID:integer ;msg:string ) ;
procedure DoAction( CID:integer ) ;
Procedure StopMoveTT( CID:integer ) ;
Procedure Fishing( CID:integer ) ;
Procedure UnHold( CID:integer ) ;
const
fish=1312 ; //ID fishing
pump=1313 ; //ID pumping
reel=1314 ; //ID reeling
//MP726=726; //mp маленькая банка iid-726
//HP
//FShotID=6540;
//WeaponID=5643;
//RoodID=6534;
//Green Colored Lure ID:6520 6519-6527
//Purple Colored Lure - High Grade ID:6524
//Yellow Colored Lure - High Grade ID:6527
//Triton Pole ID:6534
Var
ppck: PPacket;
ps: TPluginStruct;
implementation
uses msbu,MsbForm;
Procedure UnHold( CID:integer ) ;
Begin
with user[CID] do Begin
isInHold:=false ;
IsHPUse:=false ;
IsMPUse:=false ;
isInCombat:=false ;
INPU:=false ;
INKT:=false ;
End ;
End ;
Procedure Fishing( CID:integer ) ;
Begin
if user[CID]<>nil then with user[CID] do Begin
if ( RoodOID<>0 ) and ( RHID<>RoodOID) then UseItem( CID,RoodOID) ;
if ( CurenLureOID<>0 ) and ( LHID<>CurenLureOID) then UseItem( CID,CurenLureOID) ;
End ;
End ;
Procedure StopMoveTT( CID:integer ) ;
Begin
if user[CID]<>nil then with user[CID] do Begin
OnAutoMTT:=False ;
isInMTP:=false ;
End ;
End ;
procedure DoAction( CID:integer ) ;
var
al:TStrings;
id,oid:integer ;
fl:boolean ;
s,buf:string ;
Begin
Try
with user[CID] do if ( MA.AList <>'' ) and ( MA.md .Active ) then begin
fl:=false ;
oid:=0 ;
al:=TstringList .Create ;
al.Text :=MA.AList ; //NPCDLG(Jeremy[ID=31521])
if pos ( 'NPCDLG' ,al[MA.CA ]) <>0 then Begin
id:=strtoint ( copy ( al[MA.CA ],pos ( '(' ,al[MA.CA ]) +1 ,pos ( ')' ,al[MA.CA ]) -pos ( '(' ,al[MA.CA ]) -1 ) ) ;
id:=NpcList.IFIID ( id) ;
if id<>-1 then oid:=NpcList[id].ObjectID ;
if ( oid<>0 ) and ( CurentT.ID <>oid) then Begin
STS( cid,'1f' +anti4HEX( oid) +'00000000000000000000000000' ) ;
MA.md .SLTU ( 1000 ) ;
End ;
if ( oid<>0 ) and ( CurentT.ID =oid) then Begin
STS( cid,'1f' +anti4HEX( oid) +'00000000000000000000000000' ) ;
fl:=true ;
MA.md .SLTU ( 1000 ) ;
End ;
if oid=0 then MA.isComplete :=true ;
End ;
if pos ( 'DLGSEL' ,al[MA.CA ]) <>0 then Begin
s:=copy ( al[MA.CA ],pos ( '(' ,al[MA.CA ]) +1 ,pos ( ')' ,al[MA.CA ]) -pos ( '(' ,al[MA.CA ]) -1 ) ;
with ps do begin
buf:=HexToString( '23' ) ;
WriteS( buf,s) ;
SendPckStr( buf,CID,True ) ;
end ;
fl:=true ;
MA.md .SLTU ( 1000 ) ;
End ;
if pos ( 'UseSkill' ,al[MA.CA ]) <>0 then Begin
s:=copy ( al[MA.CA ],pos ( '(' ,al[MA.CA ]) +1 ,pos ( ')' ,al[MA.CA ]) -pos ( '(' ,al[MA.CA ]) -1 ) ;
if SkilList.Itemi [strtoint( s) ].Cust ( CID) then Begin
INKT:=True ;
fl:=true ;
MA.md .SLTU ( 200 ) ;
End ;
End ;
if pos ( 'USEITEM' ,al[MA.CA ]) <>0 then Begin //USEITEM(Greater Haste Potion[ID=1374])
id:=strtoint ( copy ( al[MA.CA ],pos ( '(' ,al[MA.CA ]) +1 ,pos ( ')' ,al[MA.CA ]) -pos ( '(' ,al[MA.CA ]) -1 ) ) ;
if ( id=1374 ) and ( Baffs.Itemi [2034 ].Duration <=300 ) then UseItem( CID,id) ;
if id<>1374 then UseItem( CID,id) ;
fl:=true ;
MA.md .SLTU ( 200 ) ;
End ;
if pos ( 'RESTART' ,al[MA.CA ]) <>0 then Begin //USEITEM(Greater Haste Potion[ID=1374])
CurentPN:=0 ;
fl:=true ;
End ;
if fl then inc ( MA.CA ) ;
if MA.CA =MA.Count then MA.isComplete :=true ;
al.Free ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА DoAction:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
//---------------------------------------------------------------AutoBotleUse---
Procedure AutoBotleUse( CID:integer ) ;
Begin
Try
with User[CID] do begin
if ( HP>0 ) and ( MaxCP>0 ) and ( MaxCP-CP>100 ) and ( not IsCPUse) and ( useitem( cid,CPiID) ) then IsCPUse:=True ;
if ( HP>0 ) and ( MaxHP>0 ) and ( HP/MaxHP<0 .8 ) and ( not IsHPUse) and ( useitem( cid,HPiID) ) then IsHPUse:=True ;
if ( HP>0 ) and ( MaxMP>0 ) and ( MP/MaxMP<0 .8 ) and ( not IsMPUse) and ( useitem( cid,MPiID) ) then IsMPUse:=True ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AutoBotleUse:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
//------------------------------------------------------------------------------
//----------------------------------------------------------------MoveToPoint---
function MoveToPoint( CID,mx,my,mz:integer ) :boolean ;
Begin
Result:=false ;
Try
with User[CID] do if ras( x,y,mx,my) >20 then begin
isInMTP:=true ;
MovePoint.x :=mx;
MovePoint.y :=my;
MovePoint.z :=mz;
STS( cid,'0f' +anti4HEX( mx) +anti4HEX( my) +anti4HEX( mz) +'00000000000000000000000001000000' ) ;
Result:=true ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MoveToPoint:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
//------------------------------------------------------------------------------
//----------------------------------------------------------------MoveToPoint---
function MoveTT( CID:integer ) :boolean ;
Begin
Result:=false ;
Try
with User[CID] do begin
OnAutoOFF:=true ;
//say(CID,'Curent point: '+inttostr(CurentPN));
if ( Treck.size >0 ) and ( CurentPN<=Treck.size ) then Begin
if ( Treck.Point [CurentPN].alist <>'' ) and ( ma.PN <>CurentPN) then
ma.SetAction ( CurentPN,Treck.Point [CurentPN].alist ) ;
if ( ( Treck.Point [CurentPN].alist ='' ) or ( ma.isComplete ) ) and ( CurentPN<Treck.size ) then Begin
inc ( CurentPN) ;
MoveToPoint( CID,Treck.Point [CurentPN].x ,Treck.Point [CurentPN].y ,Treck.Point [CurentPN].z ) ;
End ;
End ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MoveToPoint:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
//------------------------------------------------------------------------------
//-----------------------------------------------------------------------Swep---
function Sweep( CID:integer ) :boolean ;
Begin
Result:=false ;
Try
with User[CID] do if ( SwepList.Count >0 ) and ( ( User[cid].ClassID =55 ) or ( ClassID=117 ) ) then begin
if ( CurentT.ID <>strtoint( SwepList[0 ]) ) and ( not CurentT.selected ) then Begin
isInSweep:=true ;
CurentT.ID :=strtoint ( SwepList[0 ]) ;
STS( cid,'1f' +anti4HEX( CurentT.ID ) +'00000000000000000000000001' ) ;
End ;
if ( CurentT.ID =strtoint ( SwepList[0 ]) ) and CurentT.selected then Begin
INKT:=True ;
SkilList.Itemi [42 ].Cust ( Cid) ;
SwepList.Delete ( 0 ) ;
End ;
Result:=true ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА Swep:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
//------------------------------------------------------------------------------
//----------------------------------------------------------------Авто PickUp---
procedure PickUp( cid:integer ) ;
begin
Try
with User[cid] do if ( DropList.Count <>0 ) then Begin
INPU:=true ;
CurentPUID:=strtoint ( DropList[DropList.Count -1 ]) ;
STS( cid,'1f' +anti4HEX( CurentPUID) +'00000000000000000000000000' ) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА PickUp:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------------ShowInfo---
procedure ShowInfo( CID:integer ) ;
var
buf: string ;
hmlstr:widestring ;
begin
Try
with User[cid] do Begin
hmlstr:='' ;
hmlstr:='<html><title>' +Name+' [' +inttostr ( ClassID) +'][' +inttostr ( ObjectID) +']' +'</title><body>' ;
hmlstr:=hmlstr+'<center>' ;
hmlstr:=hmlstr+'<br><button action="bypass mtt" value="MTT" width=74 height=21 back="L2UI_CH3.Btn1_normalOn" fore="L2UI_CH3.Btn1_normal">' ;
hmlstr:=hmlstr+'<br><button action="bypass sbs" value="SBS" width=74 height=21 back="L2UI_CH3.Btn1_normalOn" fore="L2UI_CH3.Btn1_normal">' ;
hmlstr:=hmlstr+'<br><button action="bypass np" value="Next point" width=74 height=21 back="L2UI_CH3.Btn1_normalOn" fore="L2UI_CH3.Btn1_normal">' ;
hmlstr:=hmlstr+'<br><button action="bypass ag" value="Ag" width=74 height=21 back="L2UI_CH3.Btn1_normalOn" fore="L2UI_CH3.Btn1_normal">' ;
hmlstr:=hmlstr+'<br><button action="bypass ka" value="Ka" width=74 height=21 back="L2UI_CH3.Btn1_normalOn" fore="L2UI_CH3.Btn1_normal">' ;
hmlstr:=hmlstr+'</center>' ;
//hmlstr:=hmlstr+'<buttom value="MTT" action="bypass mtt" width="100" height="22"><br>';
//hmlstr:=hmlstr+'<buttom value="Next point" action="bypass np" width="100" height="22" back="L2UI_CT1.Button_DF_Down" fore="L2UI_CT1.Button_DF"><br>';
hmlstr:=hmlstr+'</body></html>' ;
End ;
if User[cid].ObjectID <>0 then with ps do begin
buf:=HexToString( '19' ) ;
WriteD( buf,User[cid].ObjectID ) ;
WriteS( buf,hmlstr) ;
WriteD( buf,0 ) ;
SendPckStr( buf,CID,False ) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА ShowInfo:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
End ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------------MagicSU---
procedure MagicSU( CID,MagicID:integer ) ;
begin
sts( CID,'39' +anti4HEX( MagicID) +'0000000000' ) ;
end ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------------UseItem---
function UseItem( CID,IID:integer ) :boolean ;
begin
Result:=false ;
Try
with User[cid].IList .Itemi [IID] do begin
if ( OID<>0 ) and ( Count<>0 ) then Result:=true ;
if Result then sts( CID,'19' +anti4HEX( OID) +'00000000' ) ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА UseItem:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-----------------------------------------------------------------Авто Atack---
procedure AAtack( cid:integer ) ;
Var i:integer ;
fl:boolean ;
begin
Try
fl:=false ;
with User[cid] do Begin
if ( CurentT.ID =0 ) and ( not CurentT.selected ) and ( not isInCombat) then Begin
i:=NpcList.GetMinDist ( rk) ;
CurentT.ID :=i;
if i<>0 then STS( cid,'1f' +anti4HEX( i) +'00000000000000000000000001' ) ;
End ;
if ( CurentT.selected ) and ( not isInCombat) and ( status[6 ]='-' ) then Begin
isInCombat:=true ;
STS( cid,'1f' +anti4HEX( CurentT.ID ) +'00000000000000000000000000' ) ;
End ;
if ( CurentT.selected ) and ( MAS<>0 ) then Begin
isInCombat:=true ;
if ( MCS<>0 ) and ( not CurentT.isInCurse ) then Begin
fl:=true ;
CurentT.CurseTime :=GetTickCount;
CurentT.isInCurse :=true ;
SkilList.Itemi [MCS].Cust ( Cid) ;
End ;
if not fl then SkilList.Itemi [MAS].Cust ( Cid) ;
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AAtack:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//---------------------------------------------------------------Авто AAssist---
procedure AAssist( cid:integer ) ;
var
fl:boolean ;
begin
Try
fl:=false ;
with User[cid] do Begin
if ( CurentT.ID <>Lider.DTT ) and ( Lider.DTT <>0 ) then Begin
CurentT.ID :=Lider.DTT ;
STS( cid,'1f' +anti4HEX( CurentT.ID ) +'00000000000000000000000001' ) ;
isInCombat:=False ;
End ;
if ( CurentT.ID =Lider.DTT ) and ( Lider.DTT <>0 ) and ( not isInCombat) and ( status[6 ]='-' ) then Begin
isInCombat:=true ;
STS( cid,'1f' +anti4HEX( CurentT.ID ) +'00000000000000000000000000' ) ;
End ;
if ( CurentT.ID =Lider.DTT ) and ( Lider.DTT <>0 ) and ( MAS<>0 ) then Begin
if ( MCS<>0 ) and ( not CurentT.isInCurse ) then Begin
isInCombat:=true ;
fl:=true ;
CurentT.CurseTime :=GetTickCount;
CurentT.isInCurse :=true ;
SkilList.Itemi [MCS].Cust ( Cid) ;
End ;
if not fl then SkilList.Itemi [MAS].Cust ( Cid) ;
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AAssist:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//-------------------------------------------------------------------PartyBuf---
procedure PartyBaf( CID:integer ) ;
var i,p,bi:integer ;
fl,pfl:boolean ;
ms,bt:boolean ;
begin
Try
fl:=false ;
pfl:=false ;
ms:=false ;
p:=0 ;
bi:=0 ;
with User[cid] do Begin
while ( p<=PartyList.Count -1 ) and ( not pfl) do Begin
case PartyList[p].ClassID of
10 ..17 ,25 ..30 ,38 ..43 ,49 ..52 ,94 ..98 ,103 ..105 ,110 ..112 ,115 ,116 :bt:=true ;
else bt:=false ;
end ;
if bt and ( MBList.Count <>0 ) then begin //--------------------Mistick baf---
i:=0 ;
while ( i<=MBList.Count -1 ) and ( not fl) and ( PartyList[p].HP >0 ) and ( PartyList[p].dist <700 ) do Begin
if not PartyList[p].Baffs .Active [StrToInt( MBList.Names [i]) ] then fl:=true ;
if not fl then inc ( i) ;
End ;
if fl then bi:=strtoint ( MBList.Names [i]) ;
if fl then pfl:=true ;
End ;
if not bt and ( FBList.Count <>0 ) then begin //----------------Fighter baf---
i:=0 ;
while ( i<=FBList.Count -1 ) and ( not fl) and ( PartyList[p].HP >0 ) and ( PartyList[p].dist <700 ) do Begin
if not PartyList[p].Baffs .Active [StrToInt( FBList.Names [i]) ] then fl:=true ;
if not fl then inc ( i) ;
End ;
if fl then bi:=strtoint ( FBList.Names [i]) ;
if fl then pfl:=true ;
End ;
if not pfl then inc ( p) ;
End ;
//if (pfl) and (User[cid].PartyList[p].dist>700) then pfl:=false;
if ( pfl) and ( ( ( CurentT.ID =PartyList[p].ObjectID ) and ( CurentT .selected ) ) or ( ms) ) and ( not INKT) then Begin
if SkilList.Itemi [bi].Cust ( cid) then INKT:=True ;;
End ;
if ( pfl) and ( CurentT.ID <>PartyList[p].ObjectID ) and ( not ms) then Begin
CurentT.selected :=false ;
CurentT.ID :=PartyList[p].ObjectID ;
STS( cid,'1f' +anti4HEX( CurentT.ID ) +'00000000000000000000000001' ) ;
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА PartyBaf:' +Inttostr ( CID) +'-' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------------SelfBaf---
procedure SelfBaf( CID:integer ) ;
var i,bi:integer ;
fl,ms,bt:boolean ;
begin
Try
fl:=false ;
ms:=false ;
bi:=0 ;
with User[cid] do begin
case ClassID of
10 ..17 ,25 ..30 ,38 ..43 ,49 ..52 ,94 ..98 ,103 ..105 ,110 ..112 ,115 ,116 :bt:=true ;
else bt:=false ;
end ;
if bt and ( MBList.Count <>0 ) then begin
i:=0 ;
while ( i<=MBList.Count -1 ) and ( not fl) do Begin
if not Baffs.Active [StrToInt( MBList.Names [i]) ] then fl:=true ;
if not fl then inc ( i) ;
End ;
if fl then bi:=strtoint ( MBList.Names [i]) ;
End ;
if not bt and ( FBList.Count <>0 ) then begin
i:=0 ;
while ( i<=FBList.Count -1 ) and ( not fl) do Begin
if not Baffs.Active [StrToInt( FBList.Names [i]) ] then fl:=true ;
if not fl then inc ( i) ;
End ;
if fl then bi:=strtoint ( FBList.Names [i]) ;
End ;
case ClassID of
95 :ms:=true ;
end ;
if ( bi<>0 ) and ( CurentT.ID <>ObjectID) and ( not ms) then Begin
//User[cid].INKT:=True;
CurentT.selected :=false ;
CurentT.ID :=ObjectID;
STS( cid,'1f' +anti4HEX( ObjectID) +'00000000000000000000000001' ) ;
End ;
if ( bi<>0 ) and ( ( ( CurentT.ID =ObjectID) and CurentT.selected ) or ms) and
not INKT and SkilList.Itemi [bi].Cust ( CID) then INKT:=True ;
if bi=0 then isInSBaf:=false else isInSBaf:=true ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА SelfBaf:' +Inttostr ( CID) +'-' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------------AutoBaf---
function AutoBaf( CID:integer ) :boolean ;
var i,bi:integer ;
fl:boolean ;
begin
Result:=false ;
Try
fl:=false ;
bi:=0 ;
with User[cid] do Begin
if ABList.Count <>0 then begin
i:=0 ;
while ( i<=ABList.Count -1 ) and ( not fl) do Begin
if not Baffs.Active [StrToInt( ABList.Names [i]) ] then fl:=true ;
if not fl then inc ( i) ;
End ;
if fl then bi:=strtoint ( ABList.Names [i]) ;
End ;
if ( bi<>0 ) and ( not INKT) then Begin
if SkilList.Itemi [bi].Cust ( CID) then INKT:=True ;
if INKT then Begin
isInCombat:=false ;
End ;
Result:=True
End ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AutoBaf:' +Inttostr ( CID) +'-' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//--------------------------------------------------------------------AutoHeal---
procedure AutoHeal( CID:integer ) ;
var i,n:integer ;
begin
Try
with User[cid] do begin
INPU:=False ;
n:=0 ;
i:=0 ;
if ( MHS<>0 ) then Begin
if ( MaxHP-HP>600 ) then n:=ObjectID;
while ( i<=PartyList.Count -1 ) and ( n>=0 ) do with PartyList[i] do Begin
if ( ObjectID<>0 ) and ( HP<>0 ) and ( dist<630 ) and ( HP/MaxHP<0 .75 ) and ( n>0 )
and ( User[cid].MMH <>0 ) and ( SkilList[SkilList.IFIID ( MMH) ].isActive ) then n:=-1 ;
if ( ObjectID<>0 ) and ( HP<>0 ) and ( dist<630 ) and ( HP/MaxHP<0 .75 ) and ( n=0 ) then n:=ObjectID;
inc ( i) ;
End ;
if ( n>0 ) and ( CurentT.ID <>n) then Begin
CurentT.selected :=false ;
CurentT.ID :=n;
isInHeal:=True ;
STS( cid,'1f' +anti4HEX( n) +'00000000000000000000000001' ) ;
End ;
if ( n>0 ) and ( CurentT.ID =n) and ( CurentT.selected ) and ( not INKT) then
if SkilList[SkilList.IFIID ( MHS) ].Cust ( cid) then INKT:=True ;
End ;
if ( n<0 ) and ( MMH<>0 ) and ( not INKT) then
if SkilList[SkilList.IFIID ( MMH) ].Cust ( cid) then INKT:=True ;
if n=0 then isInHeal:=False else isInHeal:=True ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА AutoHeal:' +Inttostr ( CID) +'-' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure Move2( Cid:integer ) ;// -------------------------Следование за лидером---
var d:integer ;
begin
Try
Randomize ;
with User[Cid] do if ( Lider.ID <>0 ) and ( OnMoveToLiader) Then begin
d:=ras( x,y,Lider.x ,Lider.y ) ;
if ( d>200 ) and ( d<1900 ) then begin
MoveToPoint( Cid,Lider.x +20 +random ( 50 ) ,Lider.y +20 +random ( 50 ) ,Lider.z ) ;
INKT:=false ;
INPU:=false ;
isInHeal:=false ;
isInCombat:=false ;
Lider.isInCombat :=false ;
End ;
end ;
except on E : Exception do
ShowMessage ( 'ОШИБКА Move2:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
end ;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------STS---
procedure STS( CID:integer ;msg:string ;F:boolean = true ) ;
begin
if ( CID<>-1 ) and ( msg<>'' ) then with ps do SendPckStr( HexToString( msg) ,CID,f) ;
end ;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------Say---
procedure Say( CID:integer ;msg:string ) ;
var
buf: string ;
begin
with ps do begin
buf:=HexToString( '4A00000000' ) ;
WriteD( buf,2 ) ;
WriteS( buf,'Auto' ) ;
WriteS( buf,msg) ;
SendPckStr( buf,CID,False ) ;
end ;
end ;
//------------------------------------------------------------------------------
end .
Последний раз редактировалось QaK, 12.05.2009 в 15:10 .
Причина: Добавлено сообщение
За это сообщение Name4Me нажился 2 спасибками от:
22.04.2009, 00:24
#3
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
delphi Код:
unit OtherTypes;
interface
uses Windows,Classes;
Type
TBaff = Record
public
SkillID:integer ;
LTU:DWORD;
Duration:integer ;
End ;
TBaffList = Record
private
items:array[0 ..36 ] of TBaff;
Count:integer ;
function IFID( ID: Integer ) : Integer ;
function GetR( ID: Integer ) : boolean ;
function GetItem( ID: Integer ) : TBaff;
public
Procedure SLTU( ID:Integer ;D:integer = 1000 ) ;
Property Active[ID: Integer]:boolean read GetR;
Property Itemi[ID: Integer]:TBaff read GetItem;
End ;
TMyDelay = Record
private
Delay:DWord;
LTU:DWord;
function GetR: boolean ;
public
Procedure SLTU( D:integer = 1000 ) ;
Property Active:boolean read GetR;
End ;
TMyMacroAction = Record
md:TMyDelay;
CA:DWord;
Count:DWord;
AList:string ;
PN:integer ;
isComplete:Boolean ;
Procedure SetAction ( PointN:integer ;ActionList:string ) ;
End ;
implementation
{------------------------------------------------------------------TBaffList---}
function TBaffList.GetItem ( ID: Integer ) : TBaff;
var i:integer ;
b:TBaff;
begin
Result:=b;
i:=IFID( ID) ;
if i<>-1 then Result:=Items[i];
end ;
function TBaffList.GetR ( ID: Integer ) : boolean ;
var i:integer ;
begin
Result:=false ;
i:=IFID( ID) ;
if ( i<>-1 ) and ( ( ( items[i].Duration -( GetTickCount-items[i].LTU ) /1000 ) >20 ) ) then Result:=True ;
end ;
procedure TBaffList.SLTU ( ID:Integer ;D: integer ) ;
var i:integer ;
begin
i:=IFID( ID) ;
if i=-1 then Begin
items[Count].SkillID :=ID;
items[Count].Duration :=D;
items[Count].LTU :=GetTickCount;
inc ( Count) ;
End else Begin
items[i].Duration :=D;
items[i].LTU :=GetTickCount;
End ;
end ;
function TBaffList.IFID ( ID: Integer ) : Integer ;
var i:integer ;
begin
Result:=-1 ;
i:=0 ;
while ( Result=-1 ) and ( i<Count) do
if items[i].SkillID =ID then Result:=i else inc ( i) ;
end ;
{-------------------------------------------------------------------TMyDelay---}
function TMyDelay.GetR : boolean ;
begin
Result := false ;
if LTU+Delay<GetTickCount then Result := True ;
end ;
procedure TMyDelay.SLTU ( D:integer = 1000 ) ;
begin
Delay:=D;
LTU:=GetTickCount;
end ;
{ TMyMacroAction }
procedure TMyMacroAction.SetAction ( PointN:integer ;ActionList:string ) ;
var ml:TStrings;
begin
ml:=TstringList .Create ;
isComplete:=false ;
PN:=PointN;
CA:=0 ;
AList:=ActionList;
ml.Text :=ActionList;
Count:=ml.Count ;
ml.Free ;
end ;
end .
Добавлено через 1 минуту
delphi Код:
unit MsbForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls,
Gauges, ToolWin, Buttons, ImgList,DateUtils, Menus,
msbu, Spin, Tabs, DockTabSet, ButtonGroup;
type
TForm2 = class ( TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TBR: TTrackBar;
Shp1: TShape;
Panel1: TPanel;
ProgressBar1: TProgressBar;
TabSheet3: TTabSheet;
Memo1: TMemo;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
ImageList1: TImageList;
PageControl2: TPageControl;
TabSheet7: TTabSheet;
Gauge4: TGauge;
Gauge5: TGauge;
Gauge6: TGauge;
Button3: TButton;
CheckBox2: TCheckBox;
CheckBox1: TCheckBox;
Gauge3: TGauge;
Timer1: TTimer;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Gauge1: TGauge;
Panel3: TPanel;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
StatusBar1: TStatusBar;
Label3: TLabel;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
PM: TPopupMenu;
FBUF1: TMenuItem;
MBuf1: TMenuItem;
AllBuF1: TMenuItem;
ADD1: TMenuItem;
Remove1: TMenuItem;
FBuf2: TMenuItem;
MBuf2: TMenuItem;
AllBuf2: TMenuItem;
Ignor1: TMenuItem;
AutoBuff1: TMenuItem;
MAS1: TMenuItem;
MDS1: TMenuItem;
MBS1: TMenuItem;
SetLiader1: TMenuItem;
WarList1: TMenuItem;
FrendList1: TMenuItem;
PB: TPaintBox;
TrackBar3: TTrackBar;
Button2: TButton;
RadioGroup3: TRadioGroup;
MCS1: TMenuItem;
Button1: TButton;
OPD: TOpenDialog ;
PageControl3: TPageControl;
TabSheet2: TTabSheet;
ListBox1: TListBox;
TabSheet6: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
SpinEdit1: TSpinEdit;
procedure Ncr( id:integer ) ;
procedure DN( id:integer ) ;
procedure StUpdate( id:integer ) ;
procedure MyRGClick( Sender: TObject ) ;
procedure MyBTClick( Sender: TObject ) ;
procedure MySPClick( Sender: TObject ; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer ) ;
procedure MyTimer( Sender: TObject ) ;
procedure FBUF1Click( Sender: TObject ) ;
procedure PMPopup( Sender: TObject ) ;
procedure CheckBox1Click( Sender: TObject ) ;
procedure TrackBar3Change( Sender: TObject ) ;
procedure MySpinEditChange( Sender: TObject ) ;
procedure MyTreeViewClick( Sender: TObject ) ;
procedure MyTreeViewCustomDrawItem( Sender: TCustomTreeView; Node: TTreeNode;
State: TCustomDrawState; var DefaultDraw: Boolean ) ;
procedure MyTreeViewEdited( Sender: TObject ; Node: TTreeNode; var S: string ) ;
procedure Timer1Timer( Sender: TObject ) ;
procedure Button1Click( Sender: TObject ) ;
procedure Button2Click( Sender: TObject ) ;
procedure Button3Click( Sender: TObject ) ;
procedure SpinEdit1Change( Sender: TObject ) ;
procedure RadioGroup3Click( Sender: TObject ) ;
end ;
var
Form2: TForm2;
mx,my:integer ;
lb:bool;
implementation
uses unit2,AAction,Other_Func,TNpcs;
{$R *.dfm}
procedure TForm2.MySpinEditChange ( Sender: TObject ) ;
begin
with Sender as TSpinEdit do User[strtoint( Name[3 ]) ].rk :=Value;
end ;
procedure TForm2.FBUF1Click ( Sender: TObject ) ;
Var Cid:integer ;
begin
cid:=strtoint ( ( PM.PopupComponent as TComboBox) .Name [3 ]) ;
with ( PM.PopupComponent as TComboBox) do
with User[cid] do
Case TMenuItem( Sender) .Tag of
//28: User[id].SList.IgnorList.Add(User[id].SList.SkilList[(PM.PopupComponent as TComboBox).ItemIndex]);
24 : with SkilList[SkilList.IFName ( SelText) ] do
if ABList.IndexOfName ( inttostr ( id) ) =-1 then ABList.Add ( inttostr ( id) +'=' +Name) ;
27 : with SkilList[SkilList.IFName ( SelText) ] do
if ABList.IndexOfName ( inttostr ( id) ) <>-1 then ABList.Delete ( ABList.IndexOfName ( inttostr ( id) ) ) ;
29 : MAS:=SkilList[SkilList.IFName ( SelText) ].ID ;
38 : MCS:=SkilList[SkilList.IFName ( SelText) ].ID ;
//30: User[id].mds:=strtoint(User[id].SList.SkilList.Names[(PM.PopupComponent as TComboBox).ItemIndex]);
//31: User[id].mbs:=strtoint(User[id].SList.SkilList.Names[(PM.PopupComponent as TComboBox).ItemIndex]);
//33: User[id].LiderInfo.ID:=User[id].CharList.ValueFromIndex[(PM.PopupComponent as TComboBox).ItemIndex];
End ;
end ;
procedure TForm2.SpinEdit1Change ( Sender: TObject ) ;
begin
User[RadioGroup3.ItemIndex ].CurentPN :=SpinEdit1.Value ;
end ;
procedure TForm2.StUpdate ( id:integer ) ;
Var
i:integer ;
var CI:TTreeNode;
Begin
try
if ( User[id]<>nil) and ( User[id].Online ) and visible then with User[id] do
with PageControl2 do
with TTabSheet( FindComponent( 'NT' +inttostr ( id) ) ) do Begin
Caption:=User[id].Name +'[' +inttostr ( ClassID) +']' ;
TLabel( FindComponent( 'LB' +inttostr ( id) ) ) .Caption :=inttostr ( ObjectID) ;
TSpinEdit( FindComponent( 'SE' +inttostr ( id) ) ) .Value :=rk;
TLabel( FindComponent( 'LBT' +inttostr ( id) ) ) .Caption :=inttostr ( CurentT.ID ) +'-[' +inttostr ( CurentT.HP ) +'/' +inttostr ( CurentT.MaxHP ) +']' ;
if CurentT.spoiled then TLabel( FindComponent( 'LBT' +inttostr ( id) ) ) .Caption :=TLabel( FindComponent( 'LBT' +inttostr ( id) ) ) .Caption +'+' ;
TGauge( FindComponent( 'CG' ) ) .MaxValue :=MaxCP;
TGauge( FindComponent( 'CG' ) ) .Progress :=CP;
TGauge( FindComponent( 'HG' ) ) .MaxValue :=MaxHP;
TGauge( FindComponent( 'HG' ) ) .Progress :=HP;
TGauge( FindComponent( 'MG' ) ) .MaxValue :=MaxMP;
TGauge( FindComponent( 'MG' ) ) .Progress :=MP;
TGauge( FindComponent( 'HGT' ) ) .MaxValue :=CurentT.MaxHP ;
TGauge( FindComponent( 'HGT' ) ) .Progress :=CurentT.HP ;
//-------------------------------------------------------------SkilList---
if User[id].SkilList .Count <>0 then with TComboBox( FindComponent( 'SL' +inttostr ( id) ) ) do Begin
if Items.count <>User[id].SkilList .Count then Begin
Clear;
for I := 0 to User[id].SkilList .Count -1 do Items.Add ( User[id].SkilList [i].Name ) ;
End ;
End ;
//------------------------------------------------------------------------
TRadioGroup( FindComponent( 'RG1' +inttostr ( id) ) ) .Caption :='HP [' +inttostr ( IList.Itemi [HPiID].Count ) +']' ;
if User[id].HPiID = 1060 then TRadioGroup( FindComponent( 'RG1' +inttostr ( id) ) ) .ItemIndex :=0 ;
if User[id].HPiID = 1061 then TRadioGroup( FindComponent( 'RG1' +inttostr ( id) ) ) .ItemIndex :=1 ;
if User[id].HPiID = 1539 then TRadioGroup( FindComponent( 'RG1' +inttostr ( id) ) ) .ItemIndex :=2 ;
TRadioGroup( FindComponent( 'RG2' +inttostr ( id) ) ) .Caption :='MP [' +inttostr ( IList.Itemi [MPiID].Count ) +']' ;
if User[id].MPiID = 726 then TRadioGroup ( FindComponent( 'RG2' +inttostr ( id) ) ) .ItemIndex :=0 ;
if User[id].MPiID = 728 then TRadioGroup ( FindComponent( 'RG2' +inttostr ( id) ) ) .ItemIndex :=1 ;
if User[id].isInCombat then TShape( FindComponent( 'SH' +inttostr ( id) +'1' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'1' ) ) .Brush .Color :=ClWhite;
if User[id].IsCPUse then TShape( FindComponent( 'SH' +inttostr ( id) +'2' ) ) .Brush .Color :=ClYellow
else TShape( FindComponent( 'SH' +inttostr ( id) +'2' ) ) .Brush .Color :=ClWhite;
if User[id].IsHPUse then TShape( FindComponent( 'SH' +inttostr ( id) +'3' ) ) .Brush .Color :=ClRed
else TShape( FindComponent( 'SH' +inttostr ( id) +'3' ) ) .Brush .Color :=ClWhite;
if User[id].IsMPUse then TShape( FindComponent( 'SH' +inttostr ( id) +'4' ) ) .Brush .Color :=ClBlue
else TShape( FindComponent( 'SH' +inttostr ( id) +'4' ) ) .Brush .Color :=ClWhite;
if User[id].CurentT .isInCurse then TShape( FindComponent( 'SH' +inttostr ( id) +'5' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'5' ) ) .Brush .Color :=ClWhite;
if User[id].isInMTP then TShape( FindComponent( 'SH' +inttostr ( id) +'6' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'6' ) ) .Brush .Color :=ClWhite;
if isInHold then TShape( FindComponent( 'SH' +inttostr ( id) +'7' ) ) .Brush .Color :=ClBlue
else TShape( FindComponent( 'SH' +inttostr ( id) +'7' ) ) .Brush .Color :=ClWhite;
if User[id].isInHeal then TShape( FindComponent( 'SH' +inttostr ( id) +'8' ) ) .Brush .Color :=ClRed
else TShape( FindComponent( 'SH' +inttostr ( id) +'8' ) ) .Brush .Color :=ClWhite;
if User[id].isInSBaf then TShape( FindComponent( 'SH' +inttostr ( id) +'9' ) ) .Brush .Color :=ClBlue
else TShape( FindComponent( 'SH' +inttostr ( id) +'9' ) ) .Brush .Color :=ClWhite;
if User[id].isInSweep then TShape( FindComponent( 'SH' +inttostr ( id) +'10' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'10' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoBaf then TShape( FindComponent( 'SH' +inttostr ( id) +'11' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'11' ) ) .Brush .Color :=ClWhite;
if User[id].OnPartyBaf then TShape( FindComponent( 'SH' +inttostr ( id) +'12' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'12' ) ) .Brush .Color :=ClWhite;
if User[id].OnSelfBaf then TShape( FindComponent( 'SH' +inttostr ( id) +'13' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'13' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoAtack then TShape( FindComponent( 'SH' +inttostr ( id) +'14' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'14' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoPickUp then TShape( FindComponent( 'SH' +inttostr ( id) +'15' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'15' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoAssist then TShape( FindComponent( 'SH' +inttostr ( id) +'16' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'16' ) ) .Brush .Color :=ClWhite;
if User[id].OnMoveToLiader then TShape( FindComponent( 'SH' +inttostr ( id) +'17' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'17' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoMTT then TShape( FindComponent( 'SH' +inttostr ( id) +'23' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'23' ) ) .Brush .Color :=ClWhite;
if status[6 ]='+' then TShape( FindComponent( 'SH' +inttostr ( id) +'24' ) ) .Brush .Color :=clFuchsia
else TShape( FindComponent( 'SH' +inttostr ( id) +'24' ) ) .Brush .Color :=ClWhite;
if User[id].INPU then TShape( FindComponent( 'SH' +inttostr ( id) +'19' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'19' ) ) .Brush .Color :=ClWhite;
if User[id].INKT then TShape( FindComponent( 'SH' +inttostr ( id) +'21' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'21' ) ) .Brush .Color :=ClWhite;
if User[id].OnAutoOFF then TShape( FindComponent( 'SH' +inttostr ( id) +'22' ) ) .Brush .Color :=Clgreen
else TShape( FindComponent( 'SH' +inttostr ( id) +'22' ) ) .Brush .Color :=ClWhite;
{
with TTreeView(FindComponent('TV'+inttostr(id))).Items do Begin
CI:=GetFirstNode;
while CI<>nil do Begin
if (CI.Text='[UserInfo]') then Begin
if Lider.isInCombat then CI.Item[0].Text:='Lider ID: '+inttostr(Lider.ID)+' ! ['+inttostr(Lider.DTT)+']'
else CI.Item[0].Text:='Lider ID: '+inttostr(Lider.ID)+' ['+inttostr(Lider.DTT)+']';
CI.Item[1].Text:='MAS ['+inttostr(Mas)+']';
CI.Item[2].Text:='MCS ['+inttostr(Mcs)+']';
End;
if (CI.Text='[Party list]') and (PartyList.Count>0) and (PartyList.Count<>CI.Count) then
for I := 0 to NpcList.Count - 1 do Begin
if CI.Count<PartyList.Count then AddChild(CI,PartyList[i].Name);
CI.Item[i].Text:=PartyList[i].Name+' --> '+inttostr(PartyList[i].Dist);
CI.Item[i].SelectedIndex:=PartyList[i].ObjectID;
if CI.Count>PartyList.Count then Delete(CI.Item[PartyList.Count]);
End;
if (CI.Text='[NPC list]') and (NpcList.Count>0) then Begin
NpcList.Sort(@MyNPCSort);
for I := 0 to NpcList.Count - 1 do Begin
if CI.Count<NpcList.Count then AddChild(CI,'');
CI.Item[i].Text:=NpcList[i].NpcName+' ['+inttostr(NpcList[i].NpcID)+'] --> '+inttostr(NpcList[i].Dist);
CI.Item[i].SelectedIndex:=NpcList[i].ObjectID;
CI.Item[i].StateIndex:=NpcList[i].NpcID;
if CI.Count>NpcList.Count then Delete(CI.Item[NpcList.Count]);
End;
End;
//---------------------------------------------------------CharList---
if (CI.Text='[Char list]') and (CharList.Count>0) and (CharList.Count<>CI.Count) then
for I := 0 to CharList.Count - 1 do Begin
if CI.Count<CharList.Count then AddChild(CI,CharList[i].Name);
CI.Item[i].Text:=CharList[i].Name;
CI.Item[i].SelectedIndex:=CharList[i].ObjectID;
CI.Item[i].StateIndex:=CharList[i].ClassID;
if CI.Count>CharList.Count then Delete(CI.Item[CharList.Count]);
End;
if (CI.Text='[ATList]') and (ATList.Count>0) then
for I := 0 to ATList.Count - 1 do Begin
if CI.Count<ATList.Count then AddChild(CI,ATList[i]);
CI.Item[i].Text:=ATList[i];
CI.Item[i].SelectedIndex:=StrToInt(ATList[i]);
if CI.Count>ATList.Count then Delete(CI.Item[ATList.Count]);
End;
if (CI.Text='[ItemList]') and (IList.Count>0) then
for I := 0 to IList.Count - 1 do Begin
if CI.Count<IList.Count then AddChild(CI,'');
if itid.Values[inttostr(IList[i].ID)]<>'' then
CI.Item[i].Text:=itid.Values[inttostr(IList[i].ID)]+' ['+inttostr(IList[i].Count)+']'
else CI.Item[i].Text:='['+inttostr(IList[i].ID)+']'+' ['+inttostr(IList[i].Count)+']';
//CI.Item[i].SelectedIndex:=StrToInt(IList[i]);
if CI.Count>IList.Count then Delete(CI.Item[IList.Count]);
End;
CI:=CI.GetNext;
End;
End;
//------------------------------------------------------------------------
}
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА StUpdate:' +E.ClassName +' ошибка: ' +E.Message ) ;
end ;
End ;
procedure TForm2.Timer1Timer ( Sender: TObject ) ;
Var CID,i:integer ;
mt:real ;
begin
Try
CID:=RadioGroup3.ItemIndex ;
with PB.Canvas do with User[CID] do Begin
Brush.Color := ClWhite;
FillRect( ClipRect) ;
if Treck.size >1 then for i:= 1 to Treck.size do begin
Pen.Color :=ClBlue;
//map.LoadFromFile(GetCurrentDir+'\Treks\Atrei1.trk');
Pen.Color :=ClRed;
Pen.Width :=1 ;
with User[CID].Treck do Begin
mt:=( 350 /mult) ;
Font.Size :=4 ;
TextOut( round ( ( maxx-Point[i].x ) *mt) +15 ,10 +round ( ( maxy-Point[i].y ) *mt) ,Point[i].Name ) ;
if i>1 then Begin
MoveTo( round ( ( maxx-Point[i-1 ].x ) *mt) +15 ,10 +round ( ( maxy-Point[i-1 ].y ) *mt) ) ;
LineTo( round ( ( maxx-Point[i].x ) *mt) +15 ,10 +round ( ( maxy-Point[i].y ) *mt) ) ;
End ;
//Pen.Color:=cllime;
//PB.Canvas.Brush.Style:=bsSolid;
Brush.Color :=cllime;
Ellipse( round ( ( maxx-x) *mt) +11 ,6 +round ( ( maxy-y) *mt) ,round ( ( maxx-x) *mt) +19 ,14 +round ( ( maxy-y) *mt) ) ;
FloodFill( round ( ( maxx-x) *mt) +15 ,10 +round ( ( maxy-y) *mt) ,cllime,fsBorder) ;
Brush.Color := ClWhite;
End ;
End ;
Pen.Color :=ClGreen;
Font.Size :=5 ;
TextOut( 5 ,2 ,'Curent poin: ' +inttostr ( CurentPN) ) ;
TextOut( 5 ,15 ,'Treck Size: ' +inttostr ( Treck.size ) ) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА Timer1Timer:' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
procedure TForm2.TrackBar3Change ( Sender: TObject ) ;
begin
Form2.AlphaBlendValue :=TrackBar3.Position ;
end ;
procedure TForm2.MyTreeViewEdited ( Sender: TObject ; Node: TTreeNode;
var S: string ) ;
begin
{if Node.StateIndex>0 then Begin
if npid.IndexOfName(inttostr(Node.StateIndex))=-1 then npid.Add(inttostr(Node.StateIndex)+'='+s);
npid.SaveToFile('npcsid.ini');
End;
Caption:=s;}
end ;
procedure TForm2.MyTreeViewCustomDrawItem ( Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean ) ;
Var MC:TColor;
Begin
with Sender as TTreeView do
if ( Node.HasAsParent ( Node) ) and ( Node.Parent .Text ='[Char list]' ) then Begin
mc:=Canvas.Pen .Color ;
case Node.StateIndex of
16 : Canvas.Pen .Color := clSkyBlue;
97 : Canvas.Pen .Color := clSkyBlue;
116 : Canvas.Pen .Color := clFuchsia;
else Canvas.Pen .Color := mc;
End ;
End ;
End ;
procedure TForm2.MyTreeViewClick ( Sender: TObject ) ;
Var CID:integer ;
begin
with Sender as TTreeView do Begin
cid:=strtoint ( name[3 ]) ;
if Selected.SelectedIndex >0 then STS( cid,'1f' +anti4HEX( Selected.SelectedIndex ) +'00000000000000000000000001' ) ; //Select
//Caption:=Selected.Text+inttostr(Selected.Index);
End ;
end ;
procedure TForm2.Ncr ;
Var
i:integer ;
sCID:string ;
mp,p:TComponent;
begin
sCID:=inttostr ( id) ;
with TTabSheet.Create ( PageControl2) do begin
Name:='NT' +sCID;
Caption:=User[id].Name ;
PageControl:=PageControl2;
end ;
mp:=PageControl2.FindComponent ( 'NT' +sCID) ;
with TPageControl.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='PGC' +sCID;
Width:=380 ;
Height:=454 ;
top:=215 ;
Left:=3 ;
end ;
//End;
p:=mp.FindComponent ( 'PGC' +sCID) ;
with TTabSheet.Create ( p) do begin
Name:='PG1' ;
Caption:='NPC List' ;
PageControl:=p as TPageControl;
end ;
with TButton.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='MB' +sCID;
caption:='On' ;
Width:=30 ;
Height:=17 ;
top:=3 ;
Left:=3 ;
OnClick:=MyBTClick;
end ;
with TSpinEdit.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='SE' +sCID;
Width:=60 ;
Height:=22 ;
top:=165 ;
Left:=3 ;
OnChange:=MySpinEditChange;
ShowHint:=true ;
Hint:='Radius Kacha' ;
end ;
with TComboBox.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='SL' +sCID;
top:=190 ;
PopupMenu:=PM;
Text :='' ;
Width:=158 ;
Left:=3 ;
end ;
for i:=1 to 24 do with TShape.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='SH' +sCID+inttostr ( i) ;
Width:=10 ;
Height:=10 ;
ShowHint:=true ;
OnMouseDown:=MySPClick;
Tag:=i;
case i of
1 :Hint:='IsInCombat' ;
2 :Hint:='IsCPUse' ;
3 :Hint:='IsHPUse' ;
4 :Hint:='IsMPUse' ;
5 :Hint:='TargetIsInCurse' ;
6 :Hint:='MoveToPoint' ;
7 :Hint:='isInHold' ;
8 :Hint:='isInHeal' ;
9 :Hint:='isInSBaf' ;
10 :Hint:='isInSweep' ;
11 :Hint:='OnAutoBaf' ;
12 :Hint:='OnPartyBaf' ;
13 :Hint:='OnSelfBaf' ;
14 :Hint:='OnAutoAtack' ;
15 :Hint:='OnAutoPickUp' ;
16 :Hint:='OnAutoAssist' ;
17 :Hint:='OnMoveToLiader' ;
18 :Hint:='INA' ;
19 :Hint:='INPU' ;
20 :Hint:='INAA' ;
21 :Hint:='INKT' ;
22 :Hint:='OnAutoOFF' ;
23 :Hint:='' ;
24 :Hint:='Mistik' ;
end ;
case i of
1 ..40 : Begin
Top:=3 ;
Left:=40 +i*13 ;
End ;
end ;
end ;
with TLabel.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='LB' +sCID;
top:=25 ;
Left:=3 ;
end ;
with TLabel.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='LBT' +sCID;
top:=63 ;
Left:=3 ;
end ;
for i:=1 to 4 do
with TGauge.Create ( mp) do begin
Parent:=mp as TTabSheet;
Case i of
1 : begin
Name:='CG' ;
ForeColor:=ClYellow;
Top:=40 ;
end ;
2 : begin
Name:='HG' ;
ForeColor:=ClRed;
Top:=47 ;
end ;
3 : begin
Name:='MG' ;
ForeColor:=ClBlue;
Top:=54 ;
end ;
4 : begin
Name:='HGT' ;
ForeColor:=ClRed;
Top:=78 ;
end
end ;
ShowText:=False ;
Width:=158 ;
Height:=6 ;
Left:=3 ;
end ;
for i:=1 to 2 do
with TRadioGroup.Create ( mp) do begin
Parent:=mp as TTabSheet;
Name:='RG' +inttostr ( i) +sCID;
Width:=80 ;
Height:=60 ;
Left:=3 +85 *( i-1 ) ;
Top:=95 ;
tag:=i;
case i of
1 :Begin
Caption:='HP' ;
items.Add ( 'LHP' ) ; items.Add ( 'HP' ) ; items.Add ( 'GHP' ) ;
End ;
2 :Begin
Caption:='MP' ;
items.Add ( 'MP' ) ; items.Add ( 'GMP' ) ;
End ;
End ;
OnClick:=MyRGClick;
end ;
with TTimer.Create ( mp) do begin
Name:='MT' +sCID;
interval:=100 ;
ontimer:=MyTimer;
Enabled:=True ;
end ;
End ;
procedure TForm2.PMPopup ( Sender: TObject ) ;
var i:integer ;
begin
if pos ( 'UL' ,TPopupMenu( Sender) .PopupComponent .name ) <>0 then
for i := 0 to TPopupMenu( Sender) .Items .Count - 1 do case TPopupMenu( Sender) .Items [i].Tag of
33 ..35 : TPopupMenu( Sender) .Items [i].Visible :=true ;
end
else for i := 0 to TPopupMenu( Sender) .Items .Count - 1 do case TPopupMenu( Sender) .Items [i].Tag of
33 ..35 : TPopupMenu( Sender) .Items [i].Visible :=false ;
end ;
if pos ( 'SL' ,TPopupMenu( Sender) .PopupComponent .name ) <>0 then
for i := 0 to TPopupMenu( Sender) .Items .Count - 1 do case TPopupMenu( Sender) .Items [i].Tag of
21 ..31 ,38 : TPopupMenu( Sender) .Items [i].Visible :=true ;
end
else for i := 0 to TPopupMenu( Sender) .Items .Count - 1 do case TPopupMenu( Sender) .Items [i].Tag of
21 ..31 ,38 : TPopupMenu( Sender) .Items [i].Visible :=false ;
end ;
//ShowMessage(TPopupMenu(Sender).PopupComponent.ClassName);
end ;
procedure TForm2.RadioGroup3Click ( Sender: TObject ) ;
begin
//RadioGroup3.Items.Objects[0]. :=false;
end ;
procedure TForm2.Button1Click ( Sender: TObject ) ;
Var s:string ;
begin
s:=InputBox ( 'Save Treck' ,'Name' ,User[RadioGroup3.ItemIndex ].Name ) ;
if s<>'' then with User[RadioGroup3.ItemIndex ] do
Treck.SaveToFile ( GetCurrentDir +'\Treks\' +s+'.trk' ) ;
end ;
procedure TForm2.Button2Click ( Sender: TObject ) ;
begin
OPD.InitialDir :=GetCurrentDir +'\Treks\' ;
OPD.Execute ;
if OPD.FileName <>'' then User[RadioGroup3.ItemIndex ].Treck .LoadFromFile ( OPD.FileName ) ;
end ;
procedure TForm2.Button3Click ( Sender: TObject ) ;
begin
user[0 ].Init ( 'MrXtreme' ) ;
Form2.Ncr ( 0 ) ;
end ;
procedure TForm2.CheckBox1Click ( Sender: TObject ) ;
begin
if CheckBox1.Checked then Form2.FormStyle :=fsStayOnTop
else Form2.FormStyle :=fsNormal;
end ;
procedure TForm2.DN ;
begin
( PageControl2.FindComponent ( 'NT' +inttostr ( id) ) as TTabSheet) .Destroy ;
End ;
procedure TForm2.MyRGClick ( Sender: TObject ) ;
begin
with sender as TRadioGroup do with User[strtoint( name[4 ]) ] do
case tag of
1 : case ItemIndex of
0 : HPiID:=1060 ;
1 : HPiID:=1061 ;
2 : HPiID:=1539 ;
end ;
2 : case ItemIndex of
0 : MPiID:=726 ;
1 : MPiID:=728 ;
end ;
end ;
end ;
procedure TForm2.MyBTClick ( Sender: TObject ) ;
Var id:string ;
begin
with sender as TButton do Begin
id:=name[3 ];
if Caption='On' then Begin
Caption:='Off' ;
with PageControl2 do
with TTabSheet( FindComponent( 'NT' +id) ) do TTimer( FindComponent( 'MT' +id) ) .Enabled :=True ;
End
Else Begin
Caption:='On' ;
with PageControl2 do
with TTabSheet( FindComponent( 'NT' +id) ) do TTimer( FindComponent( 'MT' +id) ) .Enabled :=False ;
End ;
End ;
end ;
procedure TForm2.MySPClick ( Sender: TObject ; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer ) ;
begin
with sender as TShape do
with User[strtoint( name[3 ]) ] do
Case Tag of
1 : IsInCombat:= not IsInCombat;
2 : IsCPUse:= not IsCPUse;
3 : IsHPUse:= not IsHPUse;
4 : IsMPUse:= not IsMPUse;
5 : CurentT.IsInCurse := not CurentT.IsInCurse ;
6 : isInMTP:= not isInMTP;
7 : isInHold:= not isInHold;
8 : isInHeal:= not isInHeal;
9 : isInSBaf:= not isInSBaf;
10 : isInSweep:= not isInSweep;
11 : OnAutoBaf:= not OnAutoBaf;
12 : OnPartyBaf:= not OnPartyBaf;
13 : OnSelfBaf:= not OnSelfBaf;
14 : OnAutoAtack:= not OnAutoAtack;
15 : OnAutoPickUp:= not OnAutoPickUp;
16 : OnAutoAssist:= not OnAutoAssist;
17 : OnMoveToLiader:= not OnMoveToLiader;
18 : ;
19 : INPU:= not INPU;
20 : ;
21 : INKT:= not INKT;
22 : OnAutoOFF:= not OnAutoOFF;
23 : ;
24 : ;
//11: if Pen.Color=clLime then OnAutoBaf:=True else OnAutoBaf:=False;
//12: if Pen.Color=clLime then OnPartyBaf:=True else OnPartyBaf:=False;
//13: if Pen.Color=clLime then OnSelfBaf:=True else OnSelfBaf:=False;
//14: if Pen.Color=clLime then OnAutoAtack:=True else OnAutoAtack:=False;
//15: if Pen.Color=clLime then OnAutoPickUp:=True else OnAutoPickUp:=False;
//16: if Pen.Color=clLime then OnAutoAssist:=True else OnAutoAssist:=False;
//17: if Pen.Color=clLime then OnMoveToLiader:=True else OnMoveToLiader:=False;
//24: if Pen.Color=clLime then status[6]:='+' else status[6]:='-';
End ;
end ;
procedure TForm2.MyTimer ( Sender: TObject ) ;
var Cid:integer ;
begin
Cid:=0 ;
try
with sender as TTimer do Cid:=strtoint ( name[3 ]) ;
With User[CID] Do Begin
if not isInHold then AA( CID) ;
if isInHold then with Baffs.Itemi [4072 ] do if Duration<( GetTickCount-LTU) /1000 then UnHold( cid) ;
End ;
except on E : Exception do
ShowMessage ( 'ОШИБКА MyTimer:' +inttostr ( Cid) +' ' +E.ClassName +' ошибка: ' +E.Message ) ;
End ;
end ;
end .
Последний раз редактировалось Name4Me, 15.05.2009 в 11:55 .
Причина: Добавлено сообщение
За это сообщение Name4Me нажился 2 спасибками от:
22.04.2009, 00:30
#4
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
Вроде всё если что виложу чего не виложил...
Буду оч благодарен если кто напишет свои предложения....
Бот пока сирой но достаточно работоспосбний, писался под хелбаунд
Поддерживаеться:
-авто мп,хп,( сп вроде как иногда глючит);
-Авто асист, следование за лидером, авто атака с ограничением дистанции и возможностью вибора радиуса и центра кача (для файтера и мага);
-авто баф, есть возможность бафать по 2 вариантам, авто хил;
-споил, свип;
-Подерживаеться возможность асиста петом;
-Поддерживаеться работа движения по маршруту с виполнением действий в определёних точках
За это сообщение Name4Me нажился 5 спасибками от:
12.05.2009, 15:02
#5
Рыцарь
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
Name4Me , Для оформления кода юзай теги [ HIGHLIGHT = "delphi" ]тут код [ /HIGHLIGHT ] без пробелов в тегах
Также, неплохо было бы убарть ненужный код в каментах и прокоментировать рабочий код.
Последний раз редактировалось QaK, 12.05.2009 в 15:12 .
11.05.2009, 08:57
#6
Новичок
Регистрация: 27.10.2007
Адрес: Пермь
Сообщений: 19
Сказал Спасибо: 28
Имеет 1 спасибку в 1 сообщении
Выложите пожалста откомпилированый плагин. Просто дельфи нету под рукой щас
__________________
Если Вы недовольны моими действиями - то Вам
сюда !
14.05.2009, 19:01
#7
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
За это сообщение Name4Me нажился 2 спасибками от:
14.05.2009, 22:18
#8
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
При запуске требует libmySQL.dll, где брать?
//alexteam: в гугл! -)))
Нашел. Это от MySQL.
Только не пойму, для чего там эта либа?
Последний раз редактировалось NLObP, 14.05.2009 в 22:41 .
15.05.2009, 01:54
#9
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
В раней версии велась запись в базу даних... MySQL, запись отрубил а ссилка осталась ща найду где отрублю
Последний раз редактировалось Name4Me, 15.05.2009 в 11:53 .
15.05.2009, 02:05
#10
Пользователь
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
По ходу должна работать без библиотеки, только что специально просмотрел код ссилки, на дллку нет.
Хотя мож что и пропустил, дело в том что сначала планировалось писать стати чаров в базу даних потом по ходу заменил на ини файл.
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:17 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!