Проблема!Помагите Stealth (Vizit0r)

Ache · Post by **Ache** » 05.06.2015 16:00

привет!!!!

)) играю на http://zuluhotel.net.ua/ приблежоный сервер к нашему старому дриму) админчики спрашуют не хочешь им помочь не безвазмезно настроить стелс под сервер) вот скайп deat-in-vegas, помаги мне пож с такой проблемай) не знаю что делать у всех работает у меня нет,инклюды скидывали стесл скидывали у кореша пашет скрипт на миниг у меня вот что пишит.15:14:03:387 [nero boy]: Compiling
15:14:03:407 [nero boy]: Compiler: [Error] (Mina MOET.txt at 60:1): Unknown identifier 'checkdead'
15:14:03:409 [nero boy]: Compiling failed
15:14:03:410 [nero boy]: Script Mina MOET.txt stopped successfuly
15:15:56:447 [nero boy]: Compiling
15:15:56:466 [nero boy]: Compiler: [Error] (Mina MOET.txt at 60:1): Unknown identifier 'checkdead'
15:15:56:467 [nero boy]: Compiling failed
15:15:56:468 [nero boy]: Script Mina MOET.txt stopped successfuly

Визитор и если ты сильно занет чтобы поработать посоветуй когото)))

версия v4,3,6

Roman · Post by **Roman** » 05.06.2015 23:37

Ache wrote:привет!!!! )) играю на http://zuluhotel.net.ua/ приблежоный сервер к нашему старому дриму) админчики спрашуют не хочешь им помочь не безвазмезно настроить стелс под сервер) вот скайп deat-in-vegas, помаги мне пож с такой проблемай) не знаю что делать у всех работает у меня нет,инклюды скидывали стесл скидывали у кореша пашет скрипт на миниг у меня вот что пишит.15:14:03:387 [nero boy]: Compiling
15:14:03:407 [nero boy]: Compiler: [Error] (Mina MOET.txt at 60:1): Unknown identifier 'checkdead'
15:14:03:409 [nero boy]: Compiling failed
15:14:03:410 [nero boy]: Script Mina MOET.txt stopped successfuly
15:15:56:447 [nero boy]: Compiling
15:15:56:466 [nero boy]: Compiler: [Error] (Mina MOET.txt at 60:1): Unknown identifier 'checkdead'
15:15:56:467 [nero boy]: Compiling failed
15:15:56:468 [nero boy]: Script Mina MOET.txt stopped successfuly

Визитор и если ты сильно занет чтобы поработать посоветуй когото)))

версия v4,3,6

походу в твоих инклюдах нет функции checkdead

Ache · Post by **Ache** » 09.06.2015 18:12

фал то есть))),что посоветуешь где его взять?

Roman · Post by **Roman** » 10.06.2015 10:51

покажи скрипт и иклюды

Vizit0r · Post by **Vizit0r** » 10.06.2015 20:51

Ache wrote:привет!!!! )) играю на http://zuluhotel.net.ua/ приблежоный сервер к нашему старому дриму) админчики спрашуют не хочешь им помочь не безвазмезно настроить стелс под сервер) вот скайп deat-in-vegas, помаги мне пож с такой проблемай

Визитор и если ты сильно занет чтобы поработать посоветуй когото)))

версия v4,3,6

пусть с недели стукнутся мне в скайп или асю.
сейчас занят совсем.

Ache · Post by **Ache** » 26.06.2015 17:51

всё сам додумался удалял строки кторорые мне писало скрипт заработал но бывает он застревает или что тупит короче )
както ктото там зделал себе чтобы он обратно возвращялся а я не шарю))

Ache · Post by **Ache** » 26.06.2015 17:52

Code: Select all

Program Mining;
type MiningR = record
tile:word;
px,py,pz:integer;
end;
Var MiningP: array [0..234] of MiningR;
ItemCount,b:Integer;
Const
Forge = $40D38DC8;
eda = $097B;
point1X = 2557;
point1Y = 501;
point2X = 2569;
point2Y = 517;
nearX = 2570;
nearY = 538;
onboadx = 2570;
onboady = 541;
onboadz = -2;
Trap = $40DCD9D1;
waightlimit = 240;
OreType = $19B9;
PickType = $0E85;
PickGump = '3717';
Tinktype = $1EBC;
CopperType = $1BF2;

{$Include 'all.inc'}



Procedure GetMiningTiles(s:String;WPos:Integer);
begin
s := s + ' ';
MiningP[WPos].tile:=StrToInt(Copy(s,1,Pos(' ',s)-1));
Delete(s,1,Pos(' ',s));
MiningP[WPos].px:=StrToInt(Copy(s,1,Pos(' ',s)-1));
Delete(s,1,Pos(' ',s));
MiningP[WPos].py:=StrToInt(Copy(s,1,Pos(' ',s)-1));
Delete(s,1,Pos(' ',s));
MiningP[WPos].pz:=StrToInt(Copy(s,1,Pos(' ',s)-1));
Delete(s,1,Pos(' ',s));
end;

Procedure GetCoord;
var
List:TStringList;
b:integer;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\UO\Zulu Hotel Europe\!ZHE_Stealth\Scripts\tile\tile2.txt');
for b := 0 to List.Count-1 do
   GetMiningTiles(List.strings[b],b);
ItemCount:=b;
end;  

procedure checkcoord;
begin
CheckSave;
if (GetZ(self) = onboadz) then
   begin
   repeat
   UseObject(Trap);
   wait(500);
   Raw_Move(0, True);
   Raw_Move(0, True);
   wait(500);
   until (GetZ(self) <> onboadz);
   MoveXY(point2X,point2Y, True, 0, True);
   MoveXY(point1X,point1Y, True, 0, True);
   end;
end;

procedure CheckCooper;
begin
FindType(CopperType, Backpack);
if (FindFullQuantity < 10) then
   begin
   FindTypeEx(CopperType,$0000,Ground,true);
   MoveItem(finditem, 25, Backpack, 0,0,0);
   wait(500);
   end;
end;

procedure CheckPick;
begin
CheckSave;
CheckCooper;
if (Count(PickType) < 2) then
   begin
   repeat
   CheckCooper;
   ClearJournal;
   WaitGump(PickGump);
   WaitTargetobject(findtype(CopperType, Backpack));
   UseObject(FindType(TinkType, Ground));
   WaitJournalLine(Now, 'You create|destroy|You put', 30000);
   wait(500);
   CheckCooper;
   until (Count(PickType) >= 2);
   end;
end;

procedure DropOre;
var g : integer;
OreCol : Array [0..18] of Word;
Begin
finddistance := 2;
CheckSave;
AddToSystemJournal('Сбрасываем руду');
              oreCol[0] := $0602; // Copper Ore
              oreCol[1] := $0000; // Iron Ore
              oreCol[2] := $0482; // Steel Ore
              oreCol[3] := $045E; // Anra Ore
              oreCol[4] := $07D6; // Valurite Ore
              oreCol[5] := $0852; // Old Britain Ore
              oreCol[6] := $04EA; // Lavarock Ore
              oreCol[7] := $04AB; // Black Dwarf Ore
              oreCol[8] := $07F8; // Spectral Ore
              oreCol[9] := $0948; // Shadow Ore
              oreCol[10] := $095F; // Azurite Ore
              oreCol[11] := $0A09; // Icerock Ore
              oreCol[12] := $094C; // Doom Ore
              oreCol[13] := $0A3D; // Blue Steel Ore
              oreCol[14] := $04B0; // Dark Ruby Ore
              oreCol[15] := $0487; // Crystallite Ore
              oreCol[16] := $094F; // Onyx Ore
              oreCol[17] := $0947; // Mithril Ore
              oreCol[18] := $0867; // Omega Ore
for g := 0 to 18 do
begin
CheckSave;
FindTypeEx(CopperType,oreCol[g],backpack,true);
if FindCount > 0 then
begin
stack(CopperType,oreCol[g]);
wait(500);
end;
end;
hungry (1,ground);
wait(500);
Addtosystemjournal('=========================================');
FindType(CopperType,ground);
Addtosystemjournal('Всего металла на лодке - '+intToStr(findfullquantity));
FindTypeEx(CopperType,$0000,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Copper - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$0602 ,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Iron - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$0482,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Steel - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$0000,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Anra - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$07D6,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Valurit - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$045E,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Lavarock - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$045E,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Icerock - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$07D6,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Shadow - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$0482,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Azurite - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$04AB,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Doom - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$009C,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('BlueSteel - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$010A,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('DarkRuby - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$0487,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Crystallit - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$07F8,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Onix - '+intToStr(findfullquantity));
   end;
FindTypeEx(CopperType,$000B,ground,False);
if FindCount > 0 then
   begin
   Addtosystemjournal('Mifril - '+intToStr(findfullquantity));
   end;
FindType(TinkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
End;

procedure smelting;
begin
if (Count(OreType) <> 0) then
   begin
   repeat
   WaitTargetObject(Forge);
   UseObject(FindType(OreType,Backpack));
   WaitJournalLine(Now, 'You create|destroy', 10000);
   wait(500);
   until (Count(OreType) = 0);
   end;
end;

procedure GotoOnBoad;
begin
CheckSave;
MoveXY(point1X,point1Y, True, 0, True);
MoveXY(point2X,point2Y, True, 0, True);
smelting;
MoveXY(nearX,nearY, True, 0, True);
wait(500);
repeat
UseObject(Trap);
wait(1000);
until (GetX(self) = OnBoadX) and (GetY(self) = OnBoadY);
wait(500);
Hungry(1,ground);
DropOre;
CheckPick;
checkcoord;
end;

procedure checktools;
begin
FindType(PickType, Backpack);
if (FindCount < 2) then
   begin
   GotoOnBoad;
   end;
end;

procedure CheckEquip;
Var EquipPick : Cardinal;
begin
if (GetType(ObjAtLayer(RhandLayer)) <> PickType) then
   begin
   Disarm;
   wait(500);
   checktools;
   FindType(PickType, Backpack);
   EquipPick := finditem;
   Equip(RhandLayer, EquipPick);
   end;
end;

function Mining(tile:Word;x,y,z:Integer):boolean;
begin
CheckSave;
WaitTargetTile(tile,x,y,z);
UseObject(ObjAtLayer(RhandLayer));
WaitJournalLine(Now, 'no more ore|broke|stop mining|cannot see|far away|cannot mine|what is this?!', 30000);
end;

procedure checkweight;
begin
if (Weight > waightlimit) then  
   begin
   GotoOnBoad;
   end;
end;

Begin
SetArStatus(true);
getcoord;
ClearJournal;
AddToSystemJournal('Скрипт успешно стартовал.');
While (not Dead) do
   begin
   for b :=0 to 234 do
      begin
      CheckSave;
      CheckCoord;
      CheckWeight;
      MoveXY(MiningP[b].px,MiningP[b].py, True, 1, True);
      Addtosystemjournal('Tile number '+intToStr(b)+'!');
      CheckEquip;
      Mining(MiningP[b].tile,MiningP[b].px,MiningP[b].py,MiningP[b].pz);
      Wait(500);
      end;
   end;
End.

home api manuals about Forum

Проблема!Помагите Stealth (Vizit0r)

Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)

Re: Проблема!Помагите Stealth (Vizit0r)