привет!!!! )) играю на 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
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Проблема!Помагите Stealth (Vizit0r)
Re: Проблема!Помагите Stealth (Vizit0r)
походу в твоих инклюдах нет функции checkdeadAche 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
Re: Проблема!Помагите Stealth (Vizit0r)
фал то есть))),что посоветуешь где его взять?
Re: Проблема!Помагите Stealth (Vizit0r)
покажи скрипт и иклюды
Re: Проблема!Помагите Stealth (Vizit0r)
пусть с недели стукнутся мне в скайп или асю.Ache wrote:привет!!!! )) играю на http://zuluhotel.net.ua/ приблежоный сервер к нашему старому дриму) админчики спрашуют не хочешь им помочь не безвазмезно настроить стелс под сервер) вот скайп deat-in-vegas, помаги мне пож с такой проблемай
Визитор и если ты сильно занет чтобы поработать посоветуй когото)))
версия v4,3,6
сейчас занят совсем.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Проблема!Помагите Stealth (Vizit0r)
всё сам додумался удалял строки кторорые мне писало скрипт заработал но бывает он застревает или что тупит короче )
както ктото там зделал себе чтобы он обратно возвращялся а я не шарю))
както ктото там зделал себе чтобы он обратно возвращялся а я не шарю))
Re: Проблема!Помагите Stealth (Vizit0r)
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.