мб уже была темка, но всёже

[InTeLiGeNT]

Ребят, не в службу а в дружбу ( друзья по задротству линяги ).
Дайте готовый скрипт на ловлю рыбы и чтоб мобов бил ( если можно )
p.s. серв пвп...
з.ы.ы. мб темка была, но я не нашёл ибо слеповат)
Заранее Спасибище) :good:

Добавлено через 1 минуту
обычный скрипт на пакете** заебалсо делать.. не доходит.))))

[TAMBIK]

InTeLiGeNT,
мб уже была темка

но всёже надо поискать

[InTeLiGeNT]

Дайте готовый скрипт на ловлю рыбы и чтоб мобов бил
ёпт, если я спросил СКРИПТ на ловлю рыбы, ясен куй я точить умею.....
тупо готовый скрип можно? чтоб не иметь мозг себе...

[ElKornacio]

вообще тут уже делали огромный скриптищще, где бот даже сдавал то что заработал, килял, пил хилки и тп. я давно как то тоже скриптик делал.. делюсь)


const
Fishing=1312;
Reeling=1313;
RFail=1468;
Pumping=1314;
PFail=1466;
AF=1231;
MoveTime=300;
MinHP=2200;
Name='ElKornacio';

var
CharID,MobID,X,Y,Z,tmp,ShotID,SocialID,PuhaID,colv ,Udochka,Nazhivka,HealID:integer;
stoped,Skill,wh,wh2,wh3,wh4,wh5,First,InFishing,In War:boolean;
LT,AT:TTimer;
IDs:TStrings;

procedure OnTimer(Sender:TObject);
begin
if Skill then begin UseItem(ShotID); MagicSkillUse(Reeling); end else begin UseItem(ShotID); MagicSkillUse(Pumping); end;
end;

procedure StatusUpdate;
var
i,CurHP:integer;
begin
for i:=0 to ReadD(6)-1 do if pck[i*8+10]=#$09 then CurHP:=ReadD(i*8+14);
if CurHP<=MinHP then UseItem(HealID);
end;

procedure Init; //Вызывается при включении скрипта
begin
CharID:=0;
MobID:=0;
Skill:=true;
stoped:=true;
LT:=TTimer.Create(nil);
LT.Interval:=250;
LT.OnTimer:=@OnTimer;
LT.Enabled:=false;
AT:=TTimer.Create(nil);
AT.Interval:=MoveTime;
AT.OnTimer:=@OnTimerA;
AT.Enabled:=false;
wh:=false;
wh2:=false;
wh3:=false;
wh4:=false;
InFishing:=false;
InWar:=false;
IDs:=TStringList.Create;
IDs.LoadFromFile('IDs.txt');
ShotID:=StrToInt(IDs[0]);
PuhaID:=StrToInt(IDs[1]);
Udochka:=StrToInt(IDs[2]);
Nazhivka:=StrToInt(IDs[3]);
HealID:=StrToInt(IDs[4]);
end;

procedure OnTimerA(Sender: TObject);
begin
if InWar then begin MagicSkillUseA(AF);
if colv=12 then begin AT.Enabled:=false; UseItem(Udochka); UseItem(Nazhivka); MagicSkillUse(Fishing); LT.Enabled:=false; InWar:=false; end else colv:=colv+1; end;
end;

procedure Free;
begin
LT.Free;
AT.Free;
IDs.Clear;
IDs.Add(IntToStr(ShotID));
IDs.Add(IntToStr(PuhaID));
IDs.Add(IntToStr(Udochka));
IDs.Add(IntToStr(Nazhivka));
IDs.Add(IntToStr(HealID));
IDs.SaveToFile('IDs.txt');
IDs.Free;
end;

procedure UseItem(ItemID:integer);
begin
buf:=#$19;
WriteD(ItemID);
WriteD(0);
SendToServerEx(Name);
end;

procedure MagicSkillUse(MagicID:integer);
begin
if stoped=false then begin
buf:=#$39;
WriteD(MagicID);
WriteD(00);
WriteC(00);
SendToServerEx(Name);
end;
end;

procedure MagicSkillUseA(MagicID:integer);
begin
buf:=#$39;
WriteD(MagicID);
WriteD(01);
WriteC(00);
SendToServerEx(Name);
end;

procedure TargetAttacker;
begin
buf:=#$1F;
WriteD(MobID);
WriteD(X);
WriteD(Y);
WriteD(Z);
WriteC(00);
SendToServerEx(Name);
end;

procedure Say(s:string);
begin
buf:=#$4A;
WriteD(CharID);
WriteD(1);
WriteS(Name);
WriteS(s);
SendToClientEx(Name);
end;

begin
if FromServer and (ConnectName=Name) and (pck[1]=#$33) then begin
tmp:=ReadD(6);
if (CharID=tmp) and (InWar=false) then begin
Say('Нас ударили');
InWar:=true;
if InFishing then MagicSkillUse(Fishing);
LT.Enabled:=false;
UseItem(PuhaID);
MobID:=ReadD(2);
colv:=0;
TargetAttacker;
AT.Enabled:=true;
end;
end else
if FromClient and (ConnectName=Name) and (pck[1]=#$59) then begin
X:=ReadD(2);
Y:=ReadD(6);
Z:=ReadD(10);
end else
if FromServer and (ConnectName=Name) and (pck[1]+pck[2]=#$FE+#$27) then begin
if stoped=false then begin
Skill:=true;
LT.Enabled:=true;
end;
end else
if FromClient and (ConnectName=Name) and (pck[1]=#$34) then begin
SocialID:=ReadD(2);
case SocialID of
6: begin stoped:=false; AT.Enabled:=false; MagicSkillUse(Fishing); pck:=''; end;
5: begin if InFishing then MagicSkillUse(Fishing); stoped:=true; LT.Enabled:=false; AT.Enabled:=false; pck:=''; end;
2: begin wh:=true; pck:=''; end;
3: begin wh2:=true; pck:=''; end;
7: begin wh3:=true; pck:=''; end;
8: begin wh4:=true; pck:=''; end;
9: begin wh5:=true; pck:=''; end;
4: begin pck:=''; stoped:=false; MagicSkillUseA(AF); stoped:=true; end;
end;
end else
if FromClient and (ConnectName=Name) and (pck[1]=#$17) then begin
if (wh) then begin wh:=false; ShotID:=ReadD(2); end else
if (wh3) then begin wh3:=false; Udochka:=ReadD(2); end else
if (wh4) then begin wh4:=false; Nazhivka:=ReadD(2); end else
if (wh5) then begin wh5:=false; HealID:=ReadD(2); end else
if (wh2) then begin wh2:=false; PuhaID:=ReadD(2); end;
end else
if FromServer and (ConnectName=Name) and (pck[1]=#$62) then begin
if (ReadD(2)=RFail) or (ReadD(2)=PFail) then Skill:=not Skill;
end else
if FromServer and (ConnectName=Name) and (pck[1]+pck[2]=#$FE+#$1F) then begin
InFishing:=false;
if InWar=false then begin
LT.Enabled:=false;
Delay(500);
MagicSkillUse(Fishing);
end;
end else
if FromServer and (ConnectName=Name) and (pck[1]+pck[2]=#$FE+#$1E) then InFishing:=true else
if FromServer and (ConnectName=Name) and (pck[1]=#$32) then CharID:=ReadD(18) else
if FromServer and (ConnectName=Name) and (pck[1]=#$18) and (CharID=ReadD(2)) then StatusUpdate;
end.

[InTeLiGeNT]

Спасибище

[TAMBIK]

InTeLiGeNT,
а как за твой ответ мне

поискать
http://coderx.ru/showthread.php?t=198

а ты грубишь