Сдача манора.

[QaK]

Сообщение от Nion

(pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06)
откуда взять этот пакет ?

Ниоткуда, он сам "берется" прогой =)

Сообщение от Nion

(pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) а вот этот это пакет уходит серверу в момент когда я нажимаю кнопку сдать семена ?

ну типа того ... это не пакет, это проверка, является ли посланный пакет - пакетом на сдачу манора.

З.Ы. Nion ты, судя по посту, не знаешь даже азов программирования (без обид). Советую тебе начать с них ... если хочешь сам чего-то достигнуть и понять.

[Nion]

Сообщение от QaK

З.Ы. Nion ты, судя по посту, не знаешь даже азов программирования (без обид). Советую тебе начать с них ... если хочешь сам чего-то достигнуть и понять.

Ага не знаю вот и задаю вопросы, а с каких азов начать то ? ну можешь дать ссылку на азы только не на учебник делфи или паскаля а именно на те моменты где описывается суть создания скрипта ну вроде как
1- с чего начинается/заканчивается скрипт
2- основные команды/переменные
3- где они берутся
Я не стремлюсь выучить программирование и стать программистом мне нужно разобраться с манором чтобы слегка переделать скрипт, а потом по аналогии написать такой же скрипт на рыбалку и на скупку семян.
P/S/ знаю это глупо и если так не получится значит придется разбираться подробней, но мне это интересно! так что я пойду до конца.
кстати может кто по ЛС или почте или ICQ поднатаскает я вобще человек не глупый мне бы толко суть понять разжевать пару тройку скриптов типо Хеллоу сесть/встать и манора (откуда что брать и как эти пакеты составлять) мне этого за глаза хватит ну а дальше я сам.

[Murdoc]

Скрипт на рыбалку тут есть готовый

[darkangel323]

скрипт на манор работает как надо! но у нас на серваке жопа! у нас алимп 24 часа и не кокого объявления на олимп! естествено манор сдать немогу! что делать? я просто Нуб еще в этой проге! Подскажить плиз

if FromServer and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
попробуй вот этот кусок заменить на
//социальное действие yes для начала отчёта времени

//СКРИПТ АВТОМАТИЧЕСКОЙ СДАЧИ МАНОРА
//использование: скрипт запускается за несколько минут до объявления об олимпиаде
//при получении системного сообщения об ее начале засекается системное время и вычисляется время
//сдачи манора, также активируется таймер с интервалом ХХХ МС для контроля системного времени.
//после этого пытаемся сдать свои всходы- вручную. при этом мы получим ошибку что-
//манор система: выключена в данный момент. но при етом пакет на сдачу манора- скрипт запомнит в
//память для дальнейшего использования. через заданное время скрипт отправит 10 раз запомненный
//пакет с интервалом 0,3сек.
//проверено что: если манор сдастся примерно на 4-й раз (4-й повтор пакета) то остальные 6 повторов
//сервер принимает без ошибок, хотя в инвенторе отсутствуют нужные всходы- сервер на это не ругается

var
PaketManora: string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента
// и запомним его для того чтобы вручную не формировать его кодом.
//важно что оправлять его нужно после после объявления об олимпиаде.
//так как в пакете манора используются ИД сессии, которые изменяются
//каждый ровный час.

timer1: TTimer; //таймер контролирующий системное время

StartTime: TDateTime;
EndTime: TDateTime;


x:integer;

procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=false; // таймер по умолчанию выключен
timer1.interval:=1000; // через каждые 1 сек будем засекать контрольное время сдачи манора

x:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free; //освобождаем занимаемую память таймером
end;

//вызывается при срабатывании таймера
procedure OnTimer(Sender: TObject);
begin
//если наступило время сдавать манор и скрипт пока еще не отправил 30 попыток его сдать то
if (time >= EndTime) and (x<150) then
begin
//пишем сами себе в чат - что "ПОПЫТКА"
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClient;
// отправляем пакет на сдачу манора.
buf:=PaketManora;
SendToServer;
//счетчик попыток
x:=x+1;
end;
end;


begin

//если перехвачен пакет на сдачу манора то
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora:=pck;
end;

 //социальное действие yes для начало точки
  if FromClient and (pck=HStr('1B 06 00 00 00')) then
begin
//засекаем текущее время
StartTime:=time;
//вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде)
EndTime:=StartTime + EncodeTime(0,4,49,0); // изменяем и корректируем ето число в формате (ЧЧ,ММ,СС,МС)
//активируем таймер
timer1.enabled:=true;
//а ето- отправка сам себе сообщения о том что ВРЕМЯ ПОШЛО
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClient;
end;

end.

цветом выделил что можно подправить проверять не буду но вроде далжно работать если ты знаешь во сколько примерно сдаётся манор допустим приём всходов серв должен начинать 20:06 +-5 секну жмёшь в клиенте Yes социальное действие и таймер попёр через 4 минуты 49 секунд заранее заготовленый пакет наченает отправлятся через каждую секунду 120 раз т.е. 2 минуты хз как работать будет но должно подожди может програмеры подправят.

ЗЫ ну 20:00 примерно надо нажать соц действие есть :) для тех кто в танке

[darkangel323]

Буду сеня пробывать)

Добавлено спустя 31 минуту 52 секунды:
timer1.interval:=1000; // через каждые 1 сек будем засекать контрольное время сдачи манора _не проходит по синтексу ( пишет ошибочка) истествено не прогружает скрипт! что делать

Ты так с Color=хххх и вставил?

[kakashonok]

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

[Grinch]

скорее всего где то ковычки не доудалял я с работы писал торопился, а так хз может и не работать запрасто я ток учусь
ЗЫ какошонок срань господня а ты что в этом топике забыл :D иди сри про патч как обычно.