Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 31.12.2011, 19:44   #1
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 48
Сказал Спасибо: 19
Имеет 4 спасибок в 3 сообщенях
Denever пока неопределено
По умолчанию Ошибка скрипта.

Код:
const Char_Name = 'Name';
Var mojno: Boolean;

procedure Init;
begin
mojno := True;
tt;
end;

procedure Free;
begin
mojno := False;
end;

procedure tt;
begin
If mojno then begin
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
delay(400);
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
pck:=''
//tt;
end;
end;
end.
Ругается на end. в чём проблема?
Как повторить цикл //tt; а то при вызове в самой процедуре tt ошибка..

Последний раз редактировалось Denever, 31.12.2011 в 19:47.
Denever вне форума   Ответить с цитированием
Старый 31.12.2011, 19:57   #2
Пользователь
 
Регистрация: 28.11.2011
Сообщений: 32
Сказал Спасибо: 6
Имеет 2 спасибок в 2 сообщенях
Maule пока неопределено
По умолчанию

PHP код:
pck:='' 
; - где?
Maule вне форума   Ответить с цитированием
За это сообщение Maule нажился спасибкой от:
Старый 31.12.2011, 19:59   #3
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 48
Сказал Спасибо: 19
Имеет 4 спасибок в 3 сообщенях
Denever пока неопределено
По умолчанию

Цитата:
Сообщение от Maule Посмотреть сообщение
PHP код:
pck:='' 
; - где?
Поставил всеравно на end.
Denever вне форума   Ответить с цитированием
Старый 31.12.2011, 20:34   #4
Пользователь
 
Регистрация: 28.11.2011
Сообщений: 32
Сказал Спасибо: 6
Имеет 2 спасибок в 2 сообщенях
Maule пока неопределено
По умолчанию

Цитата:
Сообщение от Denever Посмотреть сообщение
Поставил всеравно на end.
Ну у тебя к этому энду бегина как бы нет, или убери end. вообще, или добавь к нему begin, если будешь внутри что то писать.
Maule вне форума   Ответить с цитированием
Старый 01.01.2012, 20:02   #5
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

главных бегин/енд нету
__________________
dyh9l вне форума   Ответить с цитированием
Старый 03.01.2012, 05:12   #6
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

delphi Код:
const Char_Name = 'Name'; Var mojno: Boolean; procedure Init; begin mojno := True; tt; end; procedure Free; begin mojno := False; end; procedure tt; begin If mojno then begin buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); delay(400); buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); pck:='' //tt; end; end; begin end.

попробуй так не?

Последний раз редактировалось NLObP, 03.01.2012 в 21:19.
wimax вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 16:37.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!