Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Скрипт на мининг от Edred`a
потому что это номер процедуры и номер строки в ней, только это касается откомпилированого варианта, и к обычному исходнику это аж вообще никак не относится и не соответствует.
надо наверное вообще эти циферки убрать, дабы не смущать.
надо наверное вообще эти циферки убрать, дабы не смущать.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Code: Select all
program MineBot;
// v.2.08 (c) Edred
{$Include 'all.inc'}
const
r1 = 10; r2 = 12; r3 = 8;
rmax = 12; // максимальный
M_nothing1 = 'There is nothing here';
M_nothing2 = 'That is too far';
M_nothing3 = 'Try mining elsewhere.';
M_nothing4 = 'You cannot mine so close';
M_nothing5 = 'You have no line of sight to that location';
M_nothing6 = 'reach';
M_fizzles1 = 'You loosen some rocks';
M_fizzles2 = 'не смогли выкопать ничего';
M_needwait = 'You decide not to mine';
M_success = 'in your pack.';
MaxLimit = 10; // максимальное кол-во физлов одной точки
Pickaxe1 = $0E85; // Типы кирок
Pickaxe2 = $0E86;
AnkhID = $40009C73; // сериал креста для реса
Ore1 = $19B7; // 1 Ore
Ore2 = $19BA; // 2 Ore
Ore3 = $19B8; // 3 Ore
Ore4 = $19B9; // 4 Ore
Boris = $00B18697;
Sunduk = $405DA266;
DeadLife = 40; // Временно - если меньше здоровья - мы мертвы
// Точнее, проверить через реконнект.
type Rail = array[1..rmax] of Integer;
var
Rail_1, Rail_2, Rail_3, StartMinPoint : Rail;
minret, MyMaxWeight,StartFlag, CaveLimit : integer;
IronCnt,BronzeCnt,CopperCnt,OzoneCnt,ShadowCnt : Integer;
BlueSteelCnt,CrinitCnt,SkyCnt,SteelCnt,DarkSteelCnt : Integer;
BlackSteelCnt,MytherilCnt,SilverCnt,GoldenCnt,PlutoniumCnt,HowManyDischarge : Integer;
ResCnt : Integer;
ScriptStartTime : TDateTime;
flag1 : Boolean;
function InitConfig : Boolean;
// Настройка переменных под конкретного чара
begin
Result := true;
// Rail_1: сундук - шахта
Rail_1[1] := 1887; Rail_1[2] := 266;
Rail_1[3] := 1888; Rail_1[4] := 266;
Rail_1[5] := 1888; Rail_1[6] := 272;
Rail_1[7] := 1893; Rail_1[8] := 272;
Rail_1[9] := 1896; Rail_1[10] := 272;
// Rail_2: сундук - ГЗ
Rail_2[1] := 1887; Rail_2[2] := 266;
Rail_2[3] := 1888; Rail_2[4] := 266;
Rail_2[5] := 1888; Rail_2[6] := 272;
Rail_2[7] := 1856; Rail_2[8] := 272;
Rail_2[9] := 1847; Rail_2[10] := 281;
Rail_2[11] := 1845; Rail_2[12] := 333;
// Rail_3: ГЗ - крест
Rail_3[1] := 1845; Rail_3[2] := 333;
Rail_3[3] := 1845; Rail_3[4] := 359;
Rail_3[5] := 1834; Rail_3[6] := 359;
Rail_3[7] := 1834; Rail_3[8] := 360;
// Счетчики разгруженной руды
IronCnt := 0;
BronzeCnt := 0;
CopperCnt := 0;
OzoneCnt := 0;
ShadowCnt := 0;
BlueSteelCnt := 0;
CrinitCnt := 0;
SkyCnt := 0;
SteelCnt := 0;
DarkSteelCnt := 0;
BlackSteelCnt := 0;
MytherilCnt := 0;
SilverCnt := 0;
GoldenCnt := 0;
PlutoniumCnt := 0;
ResCnt := 0;
if self = Boris then
begin
MyMaxWeight := 620;
StartMinPoint[1] := 1896;
StartMinPoint[2] := 272;
StartMinPoint[3] := 1901;
StartMinPoint[4] := 271;
StartMinPoint[5] := 1906;
StartMinPoint[6] := 271;
StartMinPoint[7] := 1912;
StartMinPoint[8] := 273;
StartMinPoint[9] := 1916;
StartMinPoint[10] := 282;
StartMinPoint[11] := 1921;
StartMinPoint[12] := 276;
StartMinPoint[13] := 1919;
StartMinPoint[14] := 272;
StartMinPoint[15] := 1922;
StartMinPoint[16] := 267;
StartMinPoint[17] := 1923;
StartMinPoint[18] := 262;
StartMinPoint[19] := 1927;
StartMinPoint[20] := 262;
CaveLimit := 1930;
exit;
end;
// Если дошли до сюда - это плохо!
Result := false;
addtosystemjournal('Error: Не могу настроиться под чара!');
exit;
end;
Code: Select all
Boris = $00B18697;
Что-то я не понял, что автор топика (Antoska) хочет.
Тебе ведь указали, где ошибка:
Тебе ведь указали, где ошибка:
Ты написал, что исправил:Vizit0r wrote:от 1 до 12.Antoska wrote:Code: Select all
const rmax = 12; // максимальный type Rail = array[1..rmax] of Integer;
а у тебя
а у тебя от 1 до 20.Code: Select all
StartMinPoint[20] := 262;
Потом я прошу тебя запостить начало исправленного скрипта, и получаю:Antoska wrote:Поставил на 20 все равно ошибку выдает.
И где ты исправил значение rmax? Как было 12, так и осталось.Antoska wrote:Code: Select all
program MineBot; // v.2.08 (c) Edred {$Include 'all.inc'} const r1 = 10; r2 = 12; r3 = 8; rmax = 12; // максимальный