Писать скрипты для phx. [Архив]

Nickers

04.03.2011, 13:06

Отвечаем на вопросы пользователей по скрипто-писанию.

Хотел создать мануал по написанию скриптов под ПХ, который уж 5 лет никто написать не может (Я не встречал), но сталкнулся с проблемой, что большинство тех, кто еще не научились писать скрипты попросту не знают языка... Описывать с нуля каждую функцию это ппц... Гораздо легче объяснять "Детям Фри или Турбо паскаля" (Таким же как я)

И поэтому я решил создать эту тему, где можно задавать свои вопросы по скриптам (Именно по написанию/корректировке ваших проектов), но я знаю далеко не все и мне б нужна помощь других Активных участников форума)))

Ну начнем пожалуй... Задавайте сюда свои вопросы по скриптам.
Можно по чужим, например изменение их в каком-либо направлении...

Полезное:

Основное:
Что нужно знать. (http://coderx.ru/showthread.php?t=10) (Основы)
Полезные функции. (http://coderx.ru/showthread.php?t=15) (Сборник полезностей)
Переделать скрипт под другую версию (http://coderx.ru/showpost.php?p=125432&postcount=125)
Плагины в phx. (http://coderx.ru/showthread.php?t=890)

База инвентаря:
Способ №1 (Простой) (http://coderx.ru/showpost.php?p=146039&postcount=8)
Способ №2 (http://coderx.ru/showpost.php?p=146210&postcount=20)
Способ №3 (Геморой) (http://coderx.ru/showpost.php?p=146266&postcount=25)

Работа с таймером:
1) В общем. (http://zhyk.ru/forum/showpost.php?p=455465&postcount=1) (Не нашел на Coderx'e дай-те ссылку)
2) Из темы:
Простейший пример таймера. (http://coderx.ru/showpost.php?p=149183&postcount=50)
Посылка пакета. (http://coderx.ru/showpost.php?p=149192&postcount=52)

Скрипты-боты:
Сборник (http://coderx.ru/showthread.php?t=14)
Локомотив от Alexus (http://coderx.ru/showthread.php?t=334)

Автозаточка:
NLObp (http://coderx.ru/showthread.php?t=476)
mks (http://coderx.ru/showthread.php?t=1684)
TAMBIK (http://coderx.ru/showthread.php?t=2237)
-----------------------

Перебор MultiSell Пакетов (Теория) (http://coderx.ru/showpost.php?p=159909&postcount=4)

supernewbie

04.03.2011, 13:31

серф ввв.ло2супершматка.клан.су нужен скрипт тип точиш 1 раз он точит дальше напиши плис я сам нуб

Добавлено через 30 секунд
хроники интрлуд

PS лучше пусть темки плодят, чем венегред тут устраивать

dyh9l

04.03.2011, 15:17

Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??

p.s: есстесно что пример supernewbie не исключение, и с такими тоже надо будет как то бороться, и каждый раз объеснять что coderx не чит-портал.

Лан, стартану я, у меня есть скрипт на заточку (не NLObP, а приватный так скажем), нужна помощь в реализовании заточки вещей до сейва простыми точками, в дальнейшем блесс, приду с работы, скину скрипт в лс, а вобще если бы ты мне смог объеснить прямо тут на словах, чтоб я сам смог поправить, было бы еще лучше ;)

supernewbie

04.03.2011, 16:08

приду с работы
:D где работаешь то хоть?)

dyh9l

04.03.2011, 16:18

в компьютерной фирме)) учеба закончилась, щас полгода проработать, защитить диплом и бб гл

Nickers

04.03.2011, 18:31

Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??
Я сам готов но тут 2 минуса:
1й - время... из-за учебы его мало =))
2й то что я сам нуб ппц и с нуля скрипт на точку не напишу...
Я знаю как он работает и (Например) могу в готовом скрипте разобратся и поменять его например для другой цели...

Обязательно нужен человек, который буит мне помогать, если у мну моцка или сил не хватает...

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

Добавлено через 4 минуты
Кстати вполне возможно помогать людям не знакомых с языком, но с мозгом в наличии... Для этого требуется объяснение пары функций и просто алгоритм работы скрипта, что гораздо легче чем писать Справочник по паскалю с уклоном на ПХ (Можно книгу написать <<Паскаль для ПХ как 2 пальца абассать>>)

Добавлено через 4 минуты
Лан, стартану я, у меня есть скрипт на заточку (не NLObP, а приватный так скажем), нужна помощь в реализовании заточки вещей до сейва простыми точками, в дальнейшем блесс, приду с работы, скину скрипт в лс, а вобще если бы ты мне смог объеснить прямо тут на словах, чтоб я сам смог поправить, было бы еще лучше
Ну это нужно на скрипт глянуть))

dyh9l

05.03.2011, 03:36

го лучше новый состряпаем) я вот тут чото начал, ну и конечно же запинки, над узнать как то ObjectID всех скролов которые в сумке и которые будут в дальнейшем покупатся)
const
name = 'secret' ;
rbID = 858 ;
enchlvl = 7;
var
EnchantTimer:TTimer;
a,ObjectIDrb:integer;
procedure Init;
begin
a:=1;
EnchantTimer:=TTimer.Create(nil);
EnchantTimer.Ontimer:=@Enchant;
EnchantTimer.Interval:=1100;
EnchantTimer.Enabled:=false;
end;
procedure Free;
begin
EnchantTimer.free;
end;
procedure Enchant;
begin
case a of
1: begin // первые 2 действия заточка простым скролом
buf:=#$14;
// WriteD(тут объект ид у скрола);
WriteD(0);
SendToServerEx(name);
a:=2;
end;

2: begin
buf:=#$58;
WriteD(ObjectIDrb);
WriteD(0);
SendToServerEx(name);
EnchantTimer.Enabled:=false;
end;

3: begin //Заточка блесс скролом
buf:=#$14;
// WriteD(тут объект ид у скрола);
WriteD(0);
SendToServerEx(name);
a:=4;
end;

4: begin
buf:=#$58;
WriteD(ObjectIDrb);
WriteD(0);
SendToServerEx(name);
EnchantTimer.Enabled:=false;
end;

end;
end;
procedure InvertoryUpdate;
begin
if (ReadD(12)=rbID) then
begin
ObjectIDrb:=ReadD(8);
case ReadH(30) of
0..5: begin a:=1; EnchantTimer.Enabled:=true; end;
5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
end;
end;
if (ReadD(42)=rbID) then
begin
case ReadH(60) of
0..5: begin a:=1; EnchantTimer.Enabled:=true; end;
5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
end;
end;
end;
begin
if (connectname=name) and (fromserver) then
case pck[1] of
#$27: InvertoryUpdate;
end;
end.

Nickers

05.03.2011, 08:27

Давай ка вместо 1го "Инвентари Апдейт" вставим вот это для начала))
procedure CreateItemBase;
var
i, j, ListCount: integer;
begin
for i:=1 to max do begin
//очищаем масив
ItemBase[1,i]:=0; //OID
ItemBase[2,i]:=0; //ID
ItemBase[3,i]:=0; //kol-vo
ItemBase[4,i]:=0; //lvl
end;
j:=4;
ListCount:=ReadH(j);
j:=8;
for i:=1 to ListCount do begin
itemBase[1,i]:=ReadD(j); //OID
itemBase[2,i]:=ReadD(j); //ItemID
itemBase[3,i]:=ReadD(j); //кол-во
inc(j,10);
itemBase[4,i]:=ReadH(j);//EnchantLevel
inc(j,12);
end;
end;
//......................................
//************************************************** ****************************
procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
var
i, ii, j, OID, ID, Count, ListCount, UpdType, lvl: integer;
add : boolean;
begin
add:=false;
ListCount:=ReadH(2);
j:=4;
for ii:=1 to ListCount do begin
add:=false;
UpdType:=ReadH(j);
ReadH(j); //ItemType1
OID:=ReadD(j); //ObjectID
ID:=ReadD(j); //ItemID
Count:=ReadD(j); //кол-во
inc(j,10);
lvl:=ReadH(j);
case UpdType of
1: begin
for i:=1 to max do begin
if (ItemBase[1,i]=0) and (add=false) then begin
ItemBase[1,i]:=OID;
ItemBase[2,i]:=ID;
ItemBase[3,i]:=Count;
ItemBase[4,i]:=lvl;
add:=true;
end;
end;
end;
2: begin
for i:=1 to max do begin
if ItemBase[1,i]=OID then begin
ItemBase[3,i]:=Count;
ItemBase[4,i]:=lvl;
end;
end;
end;
3: begin
for i:=1 to max do begin
if ItemBase[1,i]=OID then begin
ItemBase[1,i]:=0;
ItemBase[2,i]:=0;
ItemBase[3,i]:=0;
ItemBase[4,i]:=0;
end;
end;
end;
end;
inc(j,10);
end;
end;

function GetItem(ID, FieldIn, FieldOut : integer) : integer;
var
i : integer;
begin
for i:=1 to max do
if ItemBase[FieldIn,i]=ID then begin
result:=ItemBase[FieldOut,i]; // itemOID
exit;
end;
result:=0;
end;

Var:
Const
Name='ArchDevil'; //Афффтор
Max=300;
var
ItemBase : array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
timer:TTimer;

Во 1х мне так удобней чесн слово)))
во 2х GetItem оч полезная функция...

--------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------------

узнать как то ObjectID всех скролов которые в сумке
GetItem(ID,2,1); //ID Вещи, тоесть скролла, не меняется.
Функция выдает ОИД вещи с ИД "ID".

--------------------------------------------------------------------------------------------------------------------------------
Думаю всех не обязательно узнавать и прост по 1му вытаскивать по мере работы скрипта, но если пока буим делать появится проблема сможем переделать, чтоб он сразу ВСЕ скроллы в Массив записывал (Нада в чужих скриптах по копаться, посмотреть как у них там, но сейчас не могу... вечером)
--------------------------------------------------------------------------------------------------------------------------------

supernewbie

05.03.2011, 08:41

госпади, как же вам отстойно без классов и рекордов)

Nickers

05.03.2011, 10:55

А нах тут рекорды? Массивов вполне достаточно...
Или дай пример через классы/рекорды я разберу... Ну пока у мну и без них не возникало пороблем...

Добавлено через 45 секунд
(Я не знаком с классами)

supernewbie

05.03.2011, 11:41

да какие тут могут быть примеры) вообще, по-хорошему, надо делать так:
1. Создание картины мира (совсем по-хорошему абсолютно полную)
2. И потом по этим данным уже делать действия которые тебе нужны.

через массивы то конечно можно все что угодно сделать)
но TList и класс скажем
TL2Item=class
public
OID,ID:integer;
Count:int64;
Enachant:smallint;
isEquipped:boolean; //и тд
end;

так удобнее, согласись

ну а тут судя по всему придется делать массивы, потом опять же массив нпсов, массив текущего мультиселла, расшифровщик хтмла(наверное) и думаю этого хватит.

Nickers

05.03.2011, 14:36

Все гораздо проще на мой взгляд...
Я не лазил у NLObP, но в скрипте TAMBIK'a лазил...
Скрипт простой (Тут я имею виду сам алгоритм скрипта на Энчант, а не конкретного автора), до ужаса...
Если Пакет Юз итем=> Записываем ИД скролла (ИЗ пакета берет ОИД, через ГетИтем получаем ИД)
Если пакет Актион (04 вродя), то записываются все нужные даные
Пакет Мультиселла-> Записываем

Потом в циклах: Поиск через ГетИтем Скролла(Записан ИД), Проверка че из этого получилось(Энчант-лвл), Проверка скок там еще свитков (Если мало то: Актион->Мультиселл) если норм, то по новой...

Ну и там всякие навороты типо сист сообщений, Энчант-лвл-макс в чат...
(Я считаю определение ИД скролла по Юзитем пакету тож наворотом, но эт удобна =))

Добавлено через 3 минуты
dyh9l, Мы на какие хроники то делаем?

Добавлено через 11 минут
Подсчет свитков тамбик устроил вот так:
sumskrol:=Getsumitem(skrolID,3,4);
//где 3-Ид скролла, 4-кол-во, а GetsumItem:
function Getsumitem(Obj,up,down:integer): integer;
var
i: integer;
begin
Result:= 0; //В начале у нас 0
for i:=1 to max do
if (BaseItems[i,up]=Obj) then begin
Result:=Result+BaseItems[i,down];
end;
end;
//TAMBIK(c)
Как видно обходится без массива со всеми скроллами...
А функция лишь для подсчета... (Оч удобно)

dyh9l

05.03.2011, 15:03

Nickers, c4

Добавлено через 9 минут
пойду тоже тамбика покурю)

Nickers

05.03.2011, 16:52

В принципе можно скрипт тамбика переделать, а потом на с4 перегнать...
Добавить в Конст Сейф-Энчант-лвл, ИД Обычного скролла и в механизме энчанта вставить Case До сейва и после сев-энч-лвл (2 разных пути, 2 разных ИД)
Беагин
Если лвл
<3 : хуня:=скролл;
>3 : хуня:=блессскролл;
Эндь;
Точить(хуню);
Эндь;

dyh9l

05.03.2011, 17:11

нехочу редактировать чужие скрипты) давай новый сделаем)

supernewbie

05.03.2011, 17:54

Nickers, советую начинать качать клиент с4)

Nickers

05.03.2011, 18:11

supernewbie, Ога ппц влом))

dyh9l

05.03.2011, 18:28

supernewbie, злой ты человек..

supernewbie

05.03.2011, 19:32

:to_become_senile:

NLObP

05.03.2011, 23:11

Так более универсально - для C4

var
ItemID, ItemOID, ItemEnch: integer; //ItemID затачиваемого предмета
//ITEMs
BaseItems: array[1..maxitems, 1..12] of integer; //все предметы в инвентаре

//......................................
Procedure ItemList; //создание базы предметов
var
i, j, count : integer;
values : array[0..8] of variant;
begin
count:=round((length(pck)-5)/ReadH(4));
for j:=1 to 12 do for i:=1 to maxitems do BaseItems[i,j]:=0;
for i:=0 to ReadH(4)-1 do
begin
readmask('hdddhhhdh', 6+i*count, values);
BaseItems[i+1,2]:=values[1]; //OID
BaseItems[i+1,3]:=values[2]; //ItemID
BaseItems[i+1,5]:=values[3]; //Amount (кол-во предметов)
BaseItems[i+1,10]:=values[8]; //EnchLvl
end;
end;
//......................................
Procedure InventoryUpdate;
var
i, j, obj, count : integer;
values : array[0..9] of variant;
begin
count:=round((length(pck)-3)/ReadH(2));
for i:=0 to ReadH(2)-1 do
begin
readmask('hhdddhhhdh', 4+i*count, values);
case values[0] of
1: obj:=0;
2: obj:=values[2];
3: begin
for i:=1 to maxitems do
if BaseItems[i,2]=values[2] then
begin
for j:=1 to 12 do BaseItems[i,j]:=0;
break;
end;
continue;
end;
end;
for i:=1 to maxitems do
if BaseItems[i,2]=obj then
begin
BaseItems[i,2]:=values[2]; //OID
BaseItems[i,3]:=values[3]; //ItemID
BaseItems[i,5]:=values[4]; //Amount
BaseItems[i,10]:=values[9]; //EnchLvl
break;
end;
end;
end;

Тоже самое для Freya
//......................................
Procedure ItemList; //создание базы предметов
var
i, j, count : integer;
values : array[0..8] of variant;
begin
count:=round((length(pck)-5)/ReadH(4));
for j:=1 to 12 do for i:=1 to maxitems do BaseItems[i,j]:=0;
for i:=0 to ReadH(4)-1 do
begin
readmask('dddqhhhdh', 6+i*count, values);
BaseItems[i+1,2]:=values[0];
BaseItems[i+1,3]:=values[1];
BaseItems[i+1,5]:=values[3];
BaseItems[i+1,10]:=values[8];
end;
end;
//......................................
Procedure InventoryUpdate;
var
i, j, obj, count : integer;
values : array[0..9] of variant;
begin
count:=round((length(pck)-3)/ReadH(2));
for i:=0 to ReadH(2)-1 do
begin
readmask('hdddqhhhdh', 4+i*count, values);
case values[0] of
1: obj:=0;
2: obj:=values[1];
3: begin
for i:=1 to maxitems do
if BaseItems[i,2]=values[1] then
begin
for j:=1 to 12 do BaseItems[i,j]:=0;
break;
end;
continue;
end;
end;
for i:=1 to maxitems do
if BaseItems[i,2]=obj then
begin
BaseItems[i,2]:=values[1];
BaseItems[i,3]:=values[2];
BaseItems[i,5]:=values[4];
BaseItems[i,10]:=values[9];
break;
end;
end;
end;

supernewbie

06.03.2011, 10:23

BaseItems: array[1..maxitems, 1..12] of integer; - не круто. 12 интеджеров у вещи, а используются по ходу только 4 это раз, а во-вторых массив не динамический, что тоже не круто. В-третьих что-то не видно добавления итема через ИнвентарьАпдейт, стоит просто 1: obj:=0;, дальше я так понял его просто ищут в инвентаре по oid'у, не находят и... всё?

Fer123

06.03.2011, 12:08

А зачем динамический если больше maxitems вещей не может быть.
Все что не используется можно легко убрать.
При obj:=0 ищется первая не занятая ячейка массива и ей присваивается новый обжект ид и все остальное.

supernewbie

06.03.2011, 12:21

оу, интересно интересно)
ну скажем у меня вещей в инвентаре 10 всего, а массив на 80, ну ладно.. каг хатите..

Добавлено через 1 минуту
итем лист тоже не особенно, очищать массив, заполнять массив..
хотя тут по-моему и так сойдет..

NLObP

06.03.2011, 12:25

supernewbie, давай свой вариант. Посмотрим, покритикуем. =)

supernewbie

06.03.2011, 12:26

хех) окей, где-то писал... ща найду..

const
Name='OldMen';
offset=68;

var
Inventory:array of variant;

procedure Init; //Вызывается при включении скрипта
begin
buf:=#$14;
SendToServerEx(Name);
SetLength(Inventory,0);
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure ItemList;
var
i:integer;
v:variant;
begin
SetLength(Inventory,0);
if ReadH(4)<1 then exit;
for i:=0 to ReadH(4)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6); //0 - OID
v[1]:=ReadD(i*offset+10); //1 - ItemID
v[2]:=ReadQ(i*offset+18); //2 - Count
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
end;

procedure InventoryUpdate;
var
i,j:integer;
v:variant;
begin
if ReadH(2)<1 then exit;
for i:=0 to ReadH(2)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6);
v[1]:=ReadD(i*offset+10);
v[2]:=ReadQ(i*offset+18);
case ReadH(i*offset+4) of
1: begin
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
2: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
Inventory[j]:=v;
end;
3: begin
j:=FindItemByParams(v,0);
if j=-1 then exit;
if (j<>length(Inventory)-1) then Inventory[j]:=Inventory[length(Inventory)-1];
SetLength(Inventory,length(Inventory)-1);
end;
end;
end;
end;

function FindItemByParams(v:variant;p:byte) : integer;
var
i:integer;
tempv:variant;
begin
result:=-1;
for i:=0 to length(Inventory)-1 do
begin
tempv:=Inventory[i];
if tempv[p]=v[p] then
begin
result:=i;
exit;
end;
end;
end;

function Say2 : boolean;
var
i:integer;
v:variant;
begin
result:=true;
case ReadS(2) of
'how': CreatureSay('Всего вещей '+inttostr(length(Inventory)));
'say all' :
for i:=0 to length(Inventory)-1 do
begin
v:=Inventory[i];
CreatureSay(IntToStr(i+1)+'. OID='+inttostr(v[0])+'; ItemID='+inttostr(v[1])+'; Count='+inttostr(v[2]));
end;
else result:=false;
end;
if result then pck:='';
end;

procedure CreatureSay(s:string);
begin
buf:=#$4A;
WriteMask('ddss',[0,3,'Инфо',s]);
SendToClientEx(Name);
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$21: InventoryUpdate;
end;
if FromClient and (ConnectName=Name) then
case pck[1] of
#$49: Say2;
end;

end.

Fer123

06.03.2011, 12:41

Интересно.... Когда-то пробовал что-то подобное написать так и не получилось сделать двумерный динамический массив.

Nickers

06.03.2011, 22:29

Не... Мне влом его курить))

Добавлено через 2 часа 15 минут
dyh9l, Мы чет встали... Че ща по скрипту нада делать? Я прост хз с чего начать)) Ты тамбика курнул?

Добавлено через 13 минут
У меня у самого проблема... Гдет нашел скрипт на Аргументацию для ленивых под Грацию, нада переделать под С6

Я так понял афтор специально поместил все сборки пакетов в 1 скрипт... Как они меняются с версиями? Брать ини из ПХ и все подгонять? оО Чет их дахрена...

L2.exe

07.03.2011, 01:49

Мне нужно в бота добавить функцию,что бы в случай смерти он нажимал "в деревню",как я понял,нужно поймать пакет который производит данное действие,далее вставить его в скрип;).Только вот какой пакет и куда его вставлять понятия не имею:confused:
Вот этот бот (http://coderx.ru/attachment.php?attachmentid=1319&d=1277796230)

dyh9l

07.03.2011, 02:54

Elees

07.03.2011, 21:01

supernewbie

07.03.2011, 21:31

ну теоретически да

dyh9l

07.03.2011, 22:28

Всем привет! Мене хотелось бы знать.. вот я хачу что б при нажатии на какую нить кнопку(к примеру F4 прям в игре) и что б програмка l2phx отправила пакеты
как можно сделать такой скрипт

и ещё хачу что б пакеты отправлялись с паузай ну скажем с 0.2сек

такое вообще возможно

На кнопку ф4 макрос, а сам скрипт пусть состоит из убийства макроса + какие то нужные тебе действия) я так делал когда на дино бегал и от мобов анти таргет тыкал)

supernewbie

07.03.2011, 22:53

можна и без макроса сообразить :spiteful:

dyh9l

07.03.2011, 22:56

тока душу надо дьяволу продать чтоб начинать сооброжать в этих всяких плагинах

Elees

08.03.2011, 00:32

можна и без макроса сообразить :spiteful:

дело в том что пакет отправляеться (пакет скила) гараздо быстрее чем я тыкаю кнопки, тоесть одновременно все пакеты, одновременно все скилы, а пауза нужна что б невозник вопрос у Админов что в логе 4-5скилов за 1долю секуннды

//J-Fobos: пауза = TTimer

dyh9l

08.03.2011, 02:40

блин жесть нужен скрипт на точку блесами, сонный сломал баюма ... жессть ааа ненавижу

supernewbie, мб допишешь по старой дружбе пару строчек)

supernewbie

08.03.2011, 09:13

давай сюда че есть у тебя там

L2.exe

09.03.2011, 00:50

L2.exe, не встал всматриватся в скрипт, но увидел последние строчки
if MyHP = 0 then // Проверка не убили ли нас...
begin
SendMsg_to_CL('Нас убили...');
log.Lines.Add('Нас убили...');
StopGame;
end;
ну дак и добавь в этот блок отправлять пакет в город
p.s:
buf:=Hstr('пакет');
SendToServerEx(NickName);

Я сделал вот так...но это только начало))

begin
StatusUpdate;
if (MyHP > 0) and (MyHP < HPlevelProcent) then if Wait(time1,DrinkDelay) then DrinkBottle; // пьем бутылки
if MyHP > HPlevelProcent then time1:=1;
if MyHP = 0 then // Проверка не убили ли нас...
begin
SendMsg_to_CL('Нас убили...');
log.Lines.Add('Нас убили...');
buf:=Hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(NickName');
StopGame;
end;
В каком виде должен быть пакет?в этом?Если не изменяет память это бинарный...:D
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Буду очtнь благодарен если вы скажите мне его ID ;)

dyh9l

09.03.2011, 00:53

SendToServerEx(NickName'); - лишняя ' это веть константа, а в константе у тебя уже есть ' '

L2.exe

09.03.2011, 01:00

SendToServerEx(NickName'); - лишняя ' это веть константа, а в константе у тебя уже есть ' '

Благодарю:good: осталось только пакет тот поймать...

dyh9l

09.03.2011, 01:04

в город?

L2.exe

09.03.2011, 01:15

Благодарю:good: осталось только пакет тот поймать...

Я думаю 01

Добавлено через 39 секунд
в город?

да

dyh9l

09.03.2011, 01:25

умреть и посмотреть не судьба?

L2.exe

09.03.2011, 01:27

умреть и посмотреть не судьба?

Их много проходит...не пойму какой из них

dyh9l

09.03.2011, 01:30

на моем сервере такой
6D 00 00 00 00
Tèï: 0x6D (RequestRestartPoint)
Pàçìåð: 5+2
Âðåìÿ ïðèõîäà: 00:28:05:953
0002 d PointType: res to town ID:0 (0x0000)

L2.exe

13.03.2011, 14:52

begin
UserInfo;
btnInit.enabled:= false;
if MyHP = 0 then // Проверка не убили ли нас...
begin
SendMsg_to_CL('Нас убили...');
log.Lines.Add('Нас убили...');
buf:=Hstr('7D 00 00 00 00');
SendToServerEx(NickName);
end;

Вот,нашёл пакет,поставил,телепортируеться...Но!сбрасываются все настройки...убрал StopGame; Настройки радиуса перестали сбрасываться,но всё равно нужно выполнить команду "start"...
Как сделать что бы он возвращался на заданную позицию?:o

Добавлено через 46 минут
на моем сервере такой
6D 00 00 00 00
Tèï: 0x6D (RequestRestartPoint)
Pàçìåð: 5+2
Âðåìÿ ïðèõîäà: 00:28:05:953
0002 d PointType: res to town ID:0 (0x0000)
Помогло:cool:
Только у меня он такой 7D 00 00 00 00

Ещё проблемка возникла,бот бутыли хп не кушает...Кто сталкивался с этой проблемой выкладывайте решение;)

Breadfan

13.03.2011, 15:11

Выкладываю: покупаешь бутылки - начинает жрать. Вот самое очевидное и верное решение проблемы.
Как вариант - посмотреть готовые решения по поиску итемов в сумке, под определенные хроники. Например в ветке посвященной заточке итемов - эта тема поднималась миллионы раз. Или религия не позволяет? Ведь достаточно подобрать скрипт на заточку - который будет отображать содержимое инвентаря - и выдернуть оттуда процедуры поиска оид\количество итемов.

L2.exe

14.03.2011, 06:18

L2.exe

17.03.2011, 16:16

Хотел что бы бот юзал определённый скил через N промежуток времени,попытался составить скрипт из кусков,но не уверен что будет работать,так как многое для меня ещё не понятно.
Вот,мне нужно что бы он через 20 минут,посылал 39 63 00 00 00 00 00 00 00 00 этот пакет.
За раннее благодарю:cool:

Добавлено через 23 минуты
begin
if FromClient and(pck=HStr('39 63 00 00 00 00 00 00 00 00 ')) then begin - Юзаем скил
SendToServer;
delay(36000);
end;
Вот это должно работать?
Или Вот это?
var
timer:TTimer;
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=true;
timer.interval:=1000; //время задержки
buf:=Hstr('39 63 00 00 00 00 00 00 00 00');
SendToServerEx(NickName);
end;

Nickers

18.03.2011, 08:19

1й вариант мимо 2й почти правильно...
Var
timer:TTimer;

procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=true;
timer.interval:=1000; //время задержки
end;

procedure Free;
begin
timer.Free; //Освобождаем память (Спасает от ошибок и вообще Эстетически верно)))
end;

procedure OnTimer(Sender: TObject); //Процедура вызывается, если (timer.enabled=true),
begin // каждые timer.interval (мс)
buf:=#$00; //Пакет, который посылаем
SendToServerEx(Name);
end;
Вот так...
timer.enabled:=true;
Если присвоить true-таймер будет выполняться (1й раз выполняется по прошествию времени таймера (Если хочешь чтобы при включении скрипта и потом каждые (время таймера), то просто поставь отправку этого пакета перед этой строчкой timer.enabled:=true; или сразу после нее...
Если timer.enabled:=false; таймер останавливается...
В procedure Init; указываешь начально состояние (При включении скрипта работает или нет)(эта процедура выполняется при включении скрипта)

L2.exe

18.03.2011, 09:47

buf:=#$00; //Пакет, который посылаем

Это в какую систему счислений нужно преобразовать вот этот 39 63 00 00 00 00 00 00 00 00 пакет?

Nickers

18.03.2011, 10:04

пакет вот так:
buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;
(Если пакет не меняется)

По хорошему нада так делать:
(Удобно, если пакет изменяется)
buf:=#$39; //ID пакета (1я пара)
ReadD(99); //63 00 00 00
ReadD(0); //00 00 00 00
ReadC(0); //00
SendToServerEx(Name);

L2.exe

18.03.2011, 12:34

пакет вот так:
buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;

По хорошему нада так делать:
buf:=#$39;
ReadD([Сюды число - десятичный эквивалент 63 00 00 00]);
ReadD(0);
ReadC(0);
SendToServerEx(Name);
Спасибо ещё раз;),я бы не догадался:confused::D

Nickers

18.03.2011, 13:52

L2.exe, Обращайся))

Elees

19.03.2011, 17:39

Nickers, помоги плис написать скрипт, что б в игре при нажатии кнопки "5" отправлялись пакеты 4-5шт с паузой между пакетами в 0.2сек, или такой скрипт невозможен?

dyh9l

19.03.2011, 19:26

ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы)
p.s: при нажатии 5, или допустим в чат писалось 5?)

Nickers

20.03.2011, 09:55

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

Elees

21.03.2011, 11:08

Nickers

21.03.2011, 11:35

Примерно так... (У мну нету ПХ так-что не исключены ошибки (Не у верен вот в этом месте: ReadS(2)='.lol')

Чтобы заработало:
1) Вписать свой ник в самом верху скрипта.
2) Сверху вписать кол-во пакетов (Сколько раз пошлет).
4) В игре создать макрос с таким содержанием:
#.lol
# Определяет только чат (В группе за флуд не банит и без палева) можно написать просто .lol это не важно...

5) Поставить макрос на F5.

Если возникнут ошибки пиши где и что пишет... Если не корректно работает - отпиши что и как.

Сам скриптег:
const
Name='Nickers'; //Ник
N=5; //Сколько раз послать пакет

Var
timer : TTimer;
packet:string; j:integer;

procedure OnTimer(Sender: TObject);
begin
inc(j);
buf:=packet;
SendToServerEx(Name);
if j=N then
begin
j:=0;
timer.enabled:=false;
end;
end;

procedure Init;
begin
packet:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // Пакет

timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=200; //0.2 сек
j:=0;
end;

procedure Free;
begin
timer.free;
end;

begin
if fromclient and (pck[1]=#$38) and (ReadS(2)='.lol') then timer.enabled:=true;
end.

L2.exe

22.03.2011, 07:45

Полезный скриптик:this:

Добавлено через 16 часов 48 минут
var act:integer; me1:char; me2:char; me3:char; me4:char; nm:integer; t1:char; t2:char; t3:char; t4:char; nt:integer; shade:integer; mz:integer; pz:integer; tz:integer; hz:integer;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin

//анализ ИД себя

if nm<>1 then
begin
if FromServer and (pck[1]=#$04) then
begin
me1:=pck[18];
me2:=pck[19];
me3:=pck[20];
me4:=pck[21];
nm:= 1;
end;
end;

//защитная часть

if FromClient and (pck[1]=#$1B) and (pck[2]=#$06) then
begin
act:=1;
SendMsg('AT system on');
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$05) then
begin
act:=0;
SendMsg('AT system off');
end;

if FromClient and (pck=#$38#$3C#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
mz:=1;
SendMsg('Advanced m.def on')
end;

if FromClient and (pck=#$38#$3C#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
mz:=0;
SendMsg('Advanced m.def off')
end;

if FromClient and (pck=#$38#$3F#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
pz:=1;
SendMsg('Advanced p.def on')
end;

if FromClient and (pck=#$38#$3F#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
pz:=0;
SendMsg('Advanced p.def off')
end;

if FromClient and (pck=#$38#$42#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
tz:=1;
SendMsg('Anti-target on')
end;

if FromClient and (pck=#$38#$42#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
tz:=0;
SendMsg('Anti-target off')
end;

if FromClient and (pck=#$38#$45#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
hz:=1;
SendMsg('Hit"n"Hide on')
end;

if FromClient and (pck=#$38#$45#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
hz:=0;
SendMsg('Hit"n"Hide off')
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$03) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;

if act=1 then
begin

if tz=1 then
begin
if FromServer and (pck[1]=#$29) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if mz=1 then
begin
if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if pz=1 then
begin
if FromServer and (pck[1]=#$05) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if hz=1 then
begin
if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

end;

//часть таргета

if FromClient and (pck[1]=#$04) then
begin
nt:=1;
t1:=pck[2];
t2:=pck[3];
t3:=pck[4];
t4:=pck[5];
end;

if FromClient and (pck[1]=#$37) then
begin
nt:=0;
end;

if nt=1 then
begin
if FromClient and (pck[1]=#$30) then
begin
buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00 #$00#$00#$00#$00#$00#$00;
SendToServer;
buf:=#$A6+t1+t2+t3+t4+#$00#$00;
SendToClient;
end;
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$04) then
begin
buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00 #$00#$00#$00#$00#$00#$00;
SendToServer;
buf:=#$A6+t1+t2+t3+t4+#$00#$00;
SendToClient;
end;

//shadowmelt

if FromClient and (pck[1]=#$1B) and (pck[2]=#$07) then
begin
shade:=1;
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1# $FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
SendMsg('Skipped to Shadows');
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$08) then
begin
shade:=0;
buf:=#$30#$00#$00;
SendToServer;
SendMsg('Reveal from Darkness');
end;

if shade = 1 then
begin
if FromClient and (pck[1]=#$30) then pck:='';
end;

end.
Что тут не так?

Nickers

22.03.2011, 09:56

L2.exe, Что за скрипт, что должен делать, что именно идет не так, есть ли ошибки?

NLObP

22.03.2011, 12:42

L2.exe, все if ... then .... лучше переделать в case ... of, по типу такого:

//************************************************** ******
// вызывается при приходе каждого пакета, если скрипт включен
//************************************************** ******
begin
if pck='' then exit; //не обрабатываем пустые пакеты
if FromServer then
case pck[1] of //ID пакета
#$11: begin
//debugmsg('S>C Пакет ItemListPacket #$11');
ItemList;
end;
#$21: begin
//debugmsg('S>C Пакет InventoryUpdate #$21');
InventoryUpdate;
end;

end
else
case pck[1] of //ID пакета
#$XX: begin
...
end;
#$XX: begin
...
end;
end;
end.

И ещё, не понятно зачем полностью пакет сверять, можно один два характерных байта.

Nickers

22.03.2011, 12:51

Кто-нибудь за тестите скриптик (http://coderx.ru/showpost.php?p=149778&postcount=59))) А то мне самому интересно робит он или нет)

Breadfan

22.03.2011, 13:02

офаю тему, все это есть в Скриптинге да и NLObP решение показал

Nickers

22.03.2011, 13:22

Breadfan, Эмм... Тема вообще-то для вопросов-ответов... и NLObP дал ответ только на последний из них... Там еще 6 страниц есть, уверяю... Тему прошу не закрывать она бесконечна))

Добавлено через 3 минуты
+ 1ю страницу буду обновлять и пополнять... Мне лично не удобно все искать по форуму через аццкий поисковик...
(Ну у меня то все на компе в папочке отсортировано по алфовиту, но другим буит полезно)

Добавлено через 1 минуту
Голосование я не просто так сделал...

L2.exe

22.03.2011, 16:59

НЕ оФфайте тему!!!!!!!!!!!!!!!!!!!!!!!!!:moil:
Она нужна мне как яйца^^

Добавлено через 9 минут
L2.exe, Что за скрипт, что должен делать, что именно идет не так, есть ли ошибки?

Это антитаргет;)
И так управление - нажимает Social Yes, система запущена, но еще не подключены модули... Подключаем те которые нам нужны...

пишем в ПАТИ ЧАТ:

т+ / т- - Включение/Выелючение АВТО антитаргета - таргет сбрасывется когда вас БЕРУТ НА ТАРГЕТ, тоесть он пытается выделить, а вы сбрасываете!

м+ / м- , п+ / п- - дополнительная магическая и физическая защита, непомню уже сам как работает (да у меня и не работает, изза лагучести инета) но знакомый говорит, если включить их в паре, то сбивает каст когда пытаются кастануть на вас заклинание, и "ичезает" прямо во время физической атаки на вас...

х+ / х- - уход в хайд после каждой своей физической атаки

Там есть еще такая штукенция, что после хайда, предыдущий таргет выберется автоматом (этого не видно в клиенте но он выделится, протестите на мобах)

Social Bow / Social Unaware - исчезнуть и появится, ну это кусок скрипта ХИНТА на его антитаргет.}
Ворованый
Работает вроде,сейчас комп перезагружу и попробую !;)

dyh9l

22.03.2011, 17:49

Nickers, стукни в аську 613322590 если не трудно :)
P.s: херня это а не анти-таргет, я один раз в жизни когда додумался до антитаргета это было клева)))

Nickers

22.03.2011, 18:32

dyh9l, Проблема в том, что я там не сижу)) Могу дать асю, но мне лучше в Skype
В чате, конечно... Я мелкий школьник с писклявым голосом :D

L2.exe

22.03.2011, 18:35

dyh9l
В чате, конечно... Я мелкий школьник с писклявым голосом :D

Ухахахах:D:D

Добавлено через 1 минуту
Nickers, стукни в аську 613322590 если не трудно :)
P.s: херня это а не анти-таргет, я один раз в жизни когда додумался до антитаргета это было клева)))
Можешь скинуть,до чего ты додумался?:D

dyh9l

22.03.2011, 19:21

Nickers, ыыыыыыыыыыы, я добавил в скайп)

Nickers

08.04.2011, 17:18

Ап же

L2.exe

21.04.2011, 00:25

а можно сделать так....написать какой нибудь скрипт что бы он блокировал некоторые пакеты?!;)

Nickers

21.04.2011, 08:17

Вроде где-то обсуждалось... Возможно даже здесь... Но я не понимаю зачем это вообще))

L2.exe

21.04.2011, 13:02

Вроде где-то обсуждалось... Возможно даже здесь... Но я не понимаю зачем это вообще))

Помнишь я тебе рассказывал о "загадочном продавце",у меня есть идейки ;)

dyh9l

21.04.2011, 14:02

а можно сделать так....написать какой нибудь скрипт что бы он блокировал некоторые пакеты?!;)
т.к. ты не дал инфы о какиех пакетах идет речь то

begin
if (pck=Hstr('ну тут сам пакет как ты понял')) then pck:='';
//pck:='' - это блочить пакет
end.

L2.exe

21.04.2011, 16:51

т.к. ты не дал инфы о какиех пакетах идет речь то

begin
if (pck=Hstr('ну тут сам пакет как ты понял')) then pck:='';
//pck:='' - это блочить пакет
end.

Благодарю!:cool:

Nickers

21.04.2011, 20:52

о "загадочном продавце"
Мде) Ток помни, что ты можешь действовать только на пакеты, которые идут от тебя (Не дать им дойти) или к тебе (Не на что не влияет)...
Врятли в этом суть)) Но можно отловить пакеты и просто повторить в точности действия(то рас) или с помощью суммона (Это нада тож по координатам смотреть) Удачи тебе))

dyh9l

21.04.2011, 20:54

Угу, допустим, ты убьешь все пакеты NpcInfo и побежишь на поляну с аграми, клиент видеть мобов не будет, но они будут тебя бить

Breadfan

22.04.2011, 08:45

и пох ваще, блочишь нпсинфо в окне с пп\варк - чтоб не рисовали то чего им абсолютно не требуетса - некоторый выигрышь в быстродействии будет.

wimax

22.04.2011, 20:59

dyh9l, клиент кританет проста по крайней мере у меня критует =)

L2.exe

22.04.2011, 21:50

dyh9l, клиент кританет проста по крайней мере у меня критует =)

У меня всё отлично работает:cool:

OpenA1r

14.05.2011, 18:14

Cpasibo)

Diverclaim

15.05.2011, 18:41

Пытаюсь сделать управление скриптом из игры (Aion) и делаю это при помощи эмоций. Проверяю на пакет так:
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$5015) then
И все отлично срабатывает, НО пакет эмоции все таки проходит на сервер, что мне довольно сильно мешает. Есть ли способ блокировать этот самый пакет эмоции? Заранее спасибо.

dyh9l

15.05.2011, 18:44

pck:='';

Diverclaim

15.05.2011, 21:27

dyh9l Большое спасибо)
Еще вопросик:
В Init я задаю переменную PlayerID (string):

PlayerID := '46 21 3B 00';

Мне она нужна далее в скрипте. Потом когда приходит пакет мне надо сравнить этот PlayerID с 4 байтами в пакете. Я знаю только 1 способ как это можно сделать:

if ReadD(4)=$003B2146 then

Но данный способ не подходит т.к. при другом PlayerID мне надо будет везде менять сравнения. Есть ли другой способ?

dyh9l

15.05.2011, 21:54

а нахера ИД стринговое?)
P.s: очень трудно понять что нужно тебе:(

NLObP

15.05.2011, 23:55

Diverclaim, сделай примерно так

var
PlayerId : integer;
...
procedure Init
Begin
PlayerId:=$003B2146;
end;
...
if PlayerId=ReadD(4) then
...

Diverclaim

16.05.2011, 13:11

Ну id в стринге чтобы удобно было из пакета копировать)
Ладн тогда другой вопрос:
Мне надо задать переменную типа Single (4байта) и записать ее в buf (также как делается в "Преобразованиях"). Нигде не могу найти конвертации single -> string (hex). Подскажите кто знает)

L2.exe

05.12.2011, 18:57

L2.exe

11.12.2011, 23:46

Так,вообщем я захотел подогнать под себя Локомотив от Alexus ,а именно нужны таймеры на скиллы и...что бы он говорил по Русски когда его игрок атаковывает,втыкал весь день в монитор,но конструктор мой работать не хочет:cray:
В делфи не шарю,так что попрошу вас помочь мне;) А то скоро мозг лопнет,от переизбытка новой информации:D

За раннее благодарю:cool:

delphi support (http://delphi.support.uz/)

Жлобы,как будто все из Израиля:diablo::p

Добавлено через 3 часа 35 минут
Прошу прощения за крайне грубое не знание паскаля,но всё равно,помогите,не проходите мимо...
Как я понял,это основная часть скрипта
begin
if (pck=hstr('62 ED 02 00 00 01 00 00 00 04 00 00 00 9D 01 00 00 08 00 00 00 ')) then
begin
buf:=HsTR('39 9D 01 00 00 00 00 00 00 00 ');
sendtoserverex(NickName);
end;
if (pck=hstr('62 5C 00 00 00 01 00 00 00 04 00 00 00 63 00 00 00 02 00 00 00 ')) then
begin
buf:=HsTR('39 63 00 00 00 00 00 00 00 00 ');
sendtoserverex(NickName);
end;
end.
Что сюда то писать?!
procedure Init; //Вызывается при включении скрипта
begin
???????????
end;

procedure Free; //Вызывается при выключении скрипта
begin
????????????
end;
Если я не прав,подскажите,что ,куда,зачем... можно в кратце:rolleyes:

supernewbie

11.12.2011, 23:49

procedure Init; //Вызывается при включении скрипта
begin
???????????
end;

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

L2.exe

21.12.2011, 00:46

читай комменты епт
Пацан,за базаром своим следи.

Pinko

21.12.2011, 15:53

procedure Init; //Вызывается при включении скрипта
begin
???????????
при включении скрипта- выполнить то да се
пр.
стакан пустой
Налить Стакан Водки.
end;

procedure Free; //Вызывается при выключении скрипта
begin
????????????
ежле в то время когда скрипт работает и не кто
НЕ Випил Стакан
али еше налили
ТО
Вылить водку туда где была
чтоби бил стакан пуст
end;

L2.exe

22.12.2011, 23:31

FrankJScott

07.05.2025, 15:19

In reply to the man asking about slot online terbaru, togel situs online, permainan slot asli, semua nama situs judi slot online, situs deposit pulsa, www joker gaming, permainan slot gampang menang, pragmatic play apa itu, judi slot terbaru, situs togel gampang menang, I highly suggest this high rated login tajir4d site (https://lucas4h21qer5.blogunok.com/profile) or joker gaming daftar, agen slot, cara main slot mudah menang, situs slot yg terpercaya, judi slot game, situs slot spadegaming, situs judi casino online terpercaya, slot online terbaru, daftar agen slot terpercaya, situs slot ternama, not to mention this additional hints on tajir4d link alternatif info (https://minibookmarking.com/story19603271/slot-terbaru-dan-slot-resmi-terbaru) and don't forget live casino sbobet, slot terpercaya terbaru, togel promo, toto togel slot login, judi slot tembak ikan, pusat judi online, situs togel dan slot terbesar, situs judi online resmi, bandar togel slot resmi, slot mudah menang, not forgetting sites such as this continue reading for tajir4d site (https://getsocialselling.com/story4918486/permainan-slot-dan-situs-togel) which is also great. Also, have a look at this updated login tajir4d tips (https://jack6f67uwx2.losblogos.com/profile) bearing in mind waktu main slot, situs slot online terpercaya, situs slot tanpa potongan deposit pulsa, situs slot terpercaya terbaru, idn live game, agen situs slot, pulsa slot online, terbaru slot, situs agen togel resmi terpercaya, situs resmi slot online, not to mention this updated tajir4d link alternatif blog (https://bookmarkcork.com/story20122573/situs-judi-slot-online-terpercaya-dan-situs-deposit-pulsa) and don't forget cara main game slot online, permainan slot yang gampang menang, deposit via pulsa slot, judi casino live, agen resmi togel terbesar, made my day about (https://dominickcmvd07419.imblogs.net) which is worth considering with 100 situs slot, idn slot situs, promo judi slot online, main casino, agen slot paling mudah menang, for good measure. Check more @ Updated Tajir4D Link Alternatif Guide (http://fantasticbombastic.net/cuckforum/index.php?topic=44314.new#new) 34_6f1b

Добавлено через 4 часа 33 минуты
In response to the people asking about laser treatment cellulite, laser rejuvenation, skin care aesthetics, treatment laser treatment, red light therapy for skin, facial programs, plasma facial rejuvenation, medical aesthetics procedures, aesthetics spa, aesthetics injections, I highly suggest this get more info for laser facial skin tightening forum (http://bbs.boway.net/home.php?mod=space&uid=1341722) or chemical peels body, laser treatment on body, renuva injections, lifting skin care, face lifting skin care, best facial aesthetics, microneedling therapy, med spa laser treatments, microneedling sarasota, vampire facial what is it, not forgetting sites such as this read what he said about laser treatment spots face Sarasota details (https://leo9i82hlq0.blogrenanda.com/profile) as well as filler injections, facial rejuvenation therapy, spa aesthetics, rf microneedling skin tightening, best face fillers, matrix prp, skin care and laser, laser treatment for skin texture, laser for skin care, skin and peel, not forgetting sites such as this great pigmentation treatment Sarasota advice (https://immensedirectory.com/listings738018/skin-tightening-and-juvederm-lip-augmentation) which is also great. Also, have a look at this additional hints on laser treatment Sarasota advice (https://joseph2z05yir0.blog-a-story.com/profile) not to mention best face fillers for wrinkles, rf microneedling post treatment, best skin care treatment, med spa, skin rejuvenation light therapy, best treatment for skin tightening, lift for skin, facial therapy, best skin rejuvenation procedures, facial best facial, on top of this updated laser treatment skin tightening tips (https://logan4x76jrl1.webbuzzfeed.com/profile) not forgetting sites such as skin care by, vampire facial spa, aesthetics med, microneedling rejuvenation, lip enhancement fillers, what google did to me for (https://eduardolgzp64320.onesmablog.com) on top of face rejuvenation procedures, perfect peel facial, skin tightening non invasive, skin peel treatment, skin care light therapy, for good measure. Check more @ Best Laser Facial Skin Treatment Guide (https://labvirtus.com.br/lab/showthread.php?tid=28216&pid=311937#pid311937) 670b350

Добавлено через 17 часов 9 минут
For the person talking about best free stock analyzer, artificial intelligence and stock market, ai online trading, ai stocks to buy, ai in the stock market, trading via ai, most promising ai stocks, top ai stocks to buy now, top ai stock to buy, ai trading account, I highly suggest this more tips here on AI stock trading platform url (https://sergiothqy24579.thebindingwiki.com/8155689/20_great_tips_on_deciding_on_ai_stock_predictions_ analysis_websites) or best place to analyze stocks, ai for predicting stocks, day trading with ai, top ai stocks, best ai stock to invest in, ai bot investing, ai stocks to invest, ai that predicts stock market, good ai stocks, ai app for stock market, together with this click here on AI stock picker platform info (https://codyjstt01111.blogmazing.com/33978611/20-new-advice-to-picking-ai-stock-trading-platform-websites) bearing in mind artificial intelligence stocks to invest in, us stock analysis website, best stock market tools, free stock picks for today, shares in chat gpt, ai stock investing, stock market tools, best ai trading, ai tools for stock trading, up and coming ai companies to invest in, not forgetting sites such as this i thought about this for AI stock predictions platform details (https://andregugr53085.mybuzzblog.com/14608515/20-new-suggestions-for-choosing-ai-stock-predictions-analysis-sites) which is also great. Also, have a look at this continue reading this on AI stock trading platform info (https://emilioyaaa78899.blogadvize.com/42487132/20-great-tips-on-deciding-on-ai-stock-predictions-analysis-websites) and don't forget stock trading and investing, us stock analysis website, top ten ai stocks, buy stocks in openai, cheap ai stocks to buy, ai company shares, ticker ai, stock investment prediction, stock data analysis, stocks and investing, bearing in mind this at bing on AI stock trading platform blog (https://landenoibu27766.blog-ezine.com/35014286/20-good-news-for-selecting-ai-stock-picker-platform-sites) bearing in mind stock market investment tools, stock in investment, stock analysis ai, ai automated stock trading, ai for stock prediction, her explanation for (https://lorenzokbla69369.blogoscience.com) and don't forget ai stock review, ai firms to invest in, ai stock analysis software, deep learning ai stocks, best ai stock to buy, for good measure. Check more @ Updated Klaim Bonus Eksklusif Site (http://hebforum.apnea.co.il/viewtopic.php?p=12173#12173) 7f130c9

FrankJScott

15.05.2025, 23:07

In response to the lady asking about spa massage therapist, my massage reviews, massage g, jing massage spa, thermae massage, a lymphatic massage, lomi lomi near me, body lymphatic massage, gd massage, lymphatic drainage massage package, I highly suggest this advice for Pyeongtaek business massage site (https://benjamin4u61jpt3.thebindingwiki.com/user) or the wellness center massage, sessions massage, deep tissue massage yourself, deep tissue therapist near me, perfect massage and spa, at home massage therapist near me, massage off, body massage reviews, wellness through massage, wellness center massage center, not forgetting sites such as this next page on Pyeongtaek business massage details (https://webdirectorytalk.com/listings718530/anseong-massage-and-ansan-massage) bearing in mind lymph drainage massage at home, touch of relief, lymphatic drainage therapist, deep tissue massage what is, balancer lymph drainage, good massage place, lymphatic massage therapists near me, deep tissue massage name, jin massage, tension massage, which is worth considering with this excellent Pyeongtaek business massage details (https://directoryforrank.com/listings13189417/twitter-business-trip-and-massage-therapist-profile) which is also great. Also, have a look at this consultant about Pyeongtaek business massage link (https://brody8v97rtu6.theblogfairy.com/profile) on top of relaxant massage, massage in best, lymphatic massage courses, rejuvenate massage, need a massage, find a massage appointment, massage place reviews, relax and restore spa, deep massage book, best deep tissue, on top of this recommended Pyeongtaek business massage details (https://benjamin9h44gzs7.signalwiki.com/user) and don't forget after a lymphatic drainage massage, incredible massage, massage lin, you you massage, massage and energy, my response for (https://jaidenrbjp91234.wikinstructions.com) together with my massage and wellness, massage near melbourne fl, spa in massage, lymph drainage massage therapist, massage g, for good measure. Check more @ Recommended TAJIR4D Tips (https://linkeducations.com/community/showthread.php?tid=37235&pid=86711#pid86711) 2856886

FrankJScott

20.05.2025, 00:57

In response to the people talking about ai for stock picking, ai for stocks, stock analysis online free, shares in chat gpt, best free site for stock analysis, best stock market research tools, ai trading technology, best stock prediction website, free stock market info, ai tools for stock trading, I highly suggest this at yahoo about AI stock predictions analysis forum (https://cenlatechs.xyz/2025/05/14/20-handy-advice-for-deciding-on-ai-stock-trading-analysis-sites/) or best stock research websites free, stock market analytics tools, good ai companies to invest in, best technical analysis website, best stock market analysis, best ai stocks, investment ai software, top ai stock to buy, best ai shares to buy, stock analysis service, alongside all this go here on AI stock picker platform details (https://xinbiquge9.com/20-good-news-to-selecting-ai-stock-predictions-platform-websites/) on top of automated ai investing, ai tools for stock trading, best investment research apps, ai artificial intelligence stock, ai stock investment app, best technical analysis app, chat gpt stock market, using ai for trading, ai for share trading, stock price prediction ai, together with this top article about AI stock trading platform info (https://cescaptial.com/2025/05/15/20-excellent-reasons-on-deciding-on-ai-stock-picker-platform-websites/) which is also great. Also, have a look at this top rated AI stock predictions platform site (https://cialisonlinecialispricehnn.com/20-free-news-to-selecting-ai-stock-predictions-platform-sites/) as well as best free stock market websites, stock picking advice, chatbot stock, best app for analysing stocks, publicly listed ai companies, website for stock analysis, stock trading analysis, best ai to invest in, top ai stocks to invest in, learn stock market analysis, and don't forget this cool AI stock trading analysis tips (https://sxmumu.com/2025/05/15/20-pro-suggestions-to-picking-ai-stock-picker-analysis-sites/) alongside all best app for trading analysis, best artificial intelligence trading software, investing in open ai, ai shares, ai investment opportunities, additional reading on (https://holdenujua46789.wikijournalist.com) alongside all ai based trading, artificial intelligence companies to invest in, number one ai stock, buy ai stock, best sites for stock research, for good measure. Check more @ Recommended Tajir4D Link Alternatif Info (http://forum.avazak.ir/showthread.php?tid=2790&pid=264009#pid264009) 8568867

Добавлено через 12 часов 59 минут
In reply to the guy asking about chat gpt stocks to buy, chat gpt stock trading, ai nasdaq stocks, stocks and trading, stock for chat gpt, best stock market analysis, stock buying advice, future ai stocks, ai chat gpt stock, ai companies on the stock market, I highly suggest this great AI stock investing platform site (https://budgethealthtips.co.uk/2025/05/13/20-good-tips-for-choosing-ai-stock-picker-platform-websites/) or bot stock trading, free stock picker, stock price prediction ai, shares in ai, stock market study, best trading analysis app, best site for stock, ai trading systems, stock market how to use, best stock analysis website free, which is worth considering with this learn more for AI stock investing platform advice (https://lv33cha.online/2025/05/15/20-best-news-to-picking-ai-stock-trading-platform-websites/) and don't forget use ai to predict stock price, best stock info websites, stock picking software reviews, top stock analysis apps, stock analyzer tool free, ai stocks to invest, investment ai software, stock market stock investment, artificial intelligence companies to invest in, ai intelligence stocks, on top of this my website for AI stock predictions analysis blog (https://jhgjss.com/2025/05/15/20-pro-news-to-selecting-ai-stock-investing-analysis-sites/) which is also great. Also, have a look at this helpful site about AI stock picker platform site (https://apgindo.com/20-free-info-to-selecting-ai-stock-investing-analysis-sites/) alongside all ai based investment advisor, stock price ai, ai software for stock trading, share price prediction tool, free stock research sites, best free stock analyzer, stock investment prediction, chat gpt stock, open ai on stock market, stock analysis, together with this read full article on AI stock trading analysis blog (https://hhtzffcom.com/20-pro-suggestions-to-picking-ai-stock-picker-platform-sites/) not to mention top artificial intelligence stocks, best technical analysis website, stock picking ai, best sites for stock, stock picks free, on bing for (https://kamerondavm26048.wiki-cms.com) on top of invest chat gpt, best investment analysis tools, best stock trading information, intelligence stocks, best companies to invest in ai, for good measure. Check more @ High Rated TAJIR4D Tips (http://coderx.ru/showthread.php?p=205805#post205805) 50c5b33

Добавлено через 13 часов 42 минуты
To the people inquiring about best ai stocks for the future, best trading ai, buy open ai stock, ai share companies, upcoming ai companies to invest in, stock market help, good websites for stock analysis, shares in artificial intelligence, best free stock research tools, best free stock information websites, I highly suggest this high rated AI stock predictions analysis blog (https://budgethealthtips.co.uk/2025/05/13/20-good-tips-for-choosing-ai-stock-picker-platform-websites/) or artificial intelligence for investment, ai stock screener, day trading ai, best ai stocks to invest in, invest chat gpt, ai chart analysis, open ai stock, ways to invest in ai, ai predict stock price, software for stock market, bearing in mind this excellent AI stock picker platform link (https://sagamingc4.com/20-handy-suggestions-to-picking-ai-stock-trading-platform-sites/) which is worth considering with cheap ai stocks, best ai software for stock trading, top ai stock picks, top ai investments, stock analysis best website, best ai stock trader, stock market prediction app, share trading software, stock market ai, fundamentals of share market, together with this recommended AI stock picker platform site (https://fangxincang.com/2025/05/13/20-handy-news-on-deciding-on-ai-stock-picker-platform-sites/) which is also great. Also, have a look at this what is it worth about AI stock predictions analysis details (https://kylf4.com/20-new-info-tips-to-selecting-ai-stock-trading-platform-websites/) bearing in mind ai stocks to buy now, stock ticker ai, stock market how to use, best market analysis, best sites for us stock market analysis, intelligence stocks, undervalued ai stocks, about stock investment, ai investment stocks, stock market research tools, not forgetting sites such as this recommended AI stock trading analysis info (https://encambiotabasco.online/2025/05/15/20-top-news-to-choosing-ai-stock-trading-analysis-sites/) not forgetting sites such as best stock research software, tools to predict stock market, chat gpt for stocks, ai stock picking software, best ai companies on stock market, see post about (https://louisjclp64206.actoblog.com) as well as ai stock news today, best ai company stocks, ai share companies, best ai stock trader, investing tools for stocks, for good measure. Check more @ Recommended Login Tajir4D Tips (http://forum.avazak.ir/showthread.php?tid=15208&pid=263978#pid263978) 5688670

FrankJScott

20.05.2025, 06:16

In response to the people inquiring about artificial intelligence stock market, ai us stock, best stock market research, top ai stock to buy, predict stock price, the best ai stocks to invest in, best stock analysis software free, artificial intelligence stock market prediction software, trading via ai, best stock prediction, I highly recommend this good about AI stock predictions platform link (https://sorrymygeneration.com/2025/05/14/20-great-info-tips-to-picking-ai-stock-trading-platform-websites/) or ai stock exchange, stock predict, stock trading advice, equity trading software, best website for stock information, the best ai stocks to invest in, best artificial intelligence stocks to buy, best stock market analysis app, incite stock, stock market tools free, and don't forget this these details about AI stock predictions analysis info (https://yyinocerossrhino.com/20-pro-suggestions-to-picking-ai-stock-picker-platform-sites/) which is worth considering with ai program for stock trading, investing analysis, stock market bot, stock market analysis, invest in ai companies, ai investment stocks, best app for researching stocks, analyzing stocks for beginners, ai market trading, future ai stocks, together with this useful AI stock predictions platform blog (https://exitoventure.com/2025/05/13/20-handy-ideas-on-deciding-on-ai-stock-picker-platform-websites/) which is also great. Also, have a look at this link for AI stock picker analysis link (https://uty798.com/20-top-facts-on-selecting-ai-stock-predictions-platform-sites-2/) bearing in mind ai stock news, stock picking software reviews, stock price prediction ai, companies investing in ai, stock insights, stock market data analysis, stocks dealing with artificial intelligence, ai trading software cost, ai stock symbol, best app for analyzing stocks, not to mention this click this link for AI stock investing analysis link (https://vietnamw88.com/20-top-news-on-deciding-on-ai-stock-predictions-analysis-sites/) not forgetting sites such as ai trading technology, best tool to buy stocks, tools to analyze stocks, ai model for stock prediction, best new ai stocks, my latest blog post for (https://elliottlxis63186.wikipresses.com) and don't forget stock market trading tools, best stock picking software, ai stock market software, stock analysis online free, best stock market trading software, for good measure. Check more @ Updated Tajir4D Link Alternatif Tips (https://forum.narutotrad.com/viewtopic.php?p=477937#p477937) f87f130

FrankJScott

27.05.2025, 20:58

In reply to the guy inquiring about hasil keluaran sgp, link data togel, pengeluaran angka togel hari ini, data nomor togel sgp, angka togel keluar hari ini, angka keluar sgp live draw, situs togel online resmi terpercaya, angka togel hongkong yang keluar hari ini, angka jitu sdy, situs togel terbesar di indonesia, I highly suggest this i thought about this about 7 RAJA TOGEL forum (https://marioppkb72715.lotrlegendswiki.com/1510183/30_recommended_ideas_on_deciding_on_7_raja_togel_s ites) or data keluaran sgp hk sdy, pengeluaran angka singapura, keluaran togel singapore live, angka togel sekarang, result sgp hk sdy, info nomor togel hongkong, data togel sdy 2022, live draw sgp terpercaya, keluar angka sgp hari ini, keluaran togel sgp, together with this excellent 7 RAJA TOGEL info (https://dallaswles12346.wikijournalist.com/5343971/30_top_advice_for_deciding_on_7rajatogel_sites) not to mention rekap togel sgp, angka keluar togel sgp, keluar angka singapura hari ini, situs togel angka jitu, data pengeluaran, angka keluar togel hk, bocoran togel sgp hari ini, angka togel hk hari ini, hasil keluaran hk hari ini, keluar angka sgp hari ini, which is worth considering with this helpful hints on 7RAJATOGEL tips (https://eduardoqaks53074.wikilima.com/1386902/30_free_ideas_on_picking_7rajatogel_sites) which is also great. Also, have a look at this get more info for 7RAJATOGEL details (https://augustxpdr65319.blogproducer.com/42437887/30-excellent-news-to-selecting-7rajatogel-sites) which is worth considering with angka sgp yang keluar hari ini, result sdy sgp hk, data keluaran singapore 2022, cara mencari angka jitu togel, angka togel keluar malam ini, angka keluaran togel hongkong, keluaran angka sgp hari ini, angka bocoran togel singapura, prediksi nomor jitu togel singapore hari ini, keluaran togel hari ini hk, on top of this look at this for 7RAJATOGEL site (https://keeganfcfr60628.life-wiki.com/1517195/30_new_facts_to_deciding_on_7rajatogel_websites) not to mention keluaran togel singapura, angka jitu sdy, data togel sdy 2022, angka jitu togel singapura, togel singapore sydney hongkong, discover more here about (https://felixurkb10987.eveowiki.com) as well as nomor togel hari ini singapore, result togel, prediksi angka keluar sgp hari ini, cara bermain togel hongkong, angka togel keluar malam ini, for good measure. Check more @ Useful Login Tajir4D Info (http://hebforum.apnea.co.il/viewtopic.php?p=12148#12148) 0c5b333

Добавлено через 6 часов 56 минут
For the lady asking about situs slot login, slot situs baru, tentang judi slot online, link judi togel terpercaya, situs game slot terpercaya, permainan judi online, game slot yang mudah menang, slot situs resmi, situs judi slot terbaik dan terpercaya, kumpulan situs slot online, I highly recommend this top Tajir4D url (https://webnamedirectory.com/listings13191796/situs-judi-slot-online-dan-situs-online-terpercaya) or menang judi slot, slot joker gaming, situs game slot terpercaya, link togel online terpercaya, slot online terbesar di indonesia, mesin slot, bandar togel online terbaik, spin slot 88 link alternatif, rupiah slot link alternatif, permainan casino, which is worth considering with this recommended TAJIR4D Login url (https://bookmarkindexing.com/story19500227/slot-menang-dan-situs-slot-terbesar) on top of situs slot joker gaming, slot toto online, game pg soft terbaik, situs togel terpercaya dan aman, slot ini, situs bandar, keluaran hk siang, link judi slot online, situs judi slot indonesia, situs pragmatic slot, not to mention this a knockout post on TAJIR4D Login tips (https://thedeepdirectory.com/listings13208198/slot-resmi-dan-slot-game-login) which is also great. Also, have a look at this excellent TAJIR4D Login tips (https://mateo5v23thu9.life3dblog.com/profile) on top of bandar darat togel terpercaya, buat togel, slot judi slot, link pg slot, rupiah slot login, game slot uang, situs game judi online, situs togel togel, akun togel dan slot terpercaya, situs slot terbesar indonesia, and don't forget this click here on TAJIR4D Login forum (https://socialbaskets.com/story5205279/tajir4d-login-dan-game-slot-game-slot) together with situs judi slot online terbaru, situs bandar slot terpercaya, game terbaru pragmatic play, joker slot login, permainan bisa, my response on (https://messiahbkue07520.wikipublicity.com) not to mention slot yg gampang menang, bandar online terbaik, game slot online terpercaya, permainan slot, jenis permainan casino, for good measure. Check more @ Top Rated Tajir4D Link Alternatif Info (https://dorminantus.de/thread-458764-post-1335703.html#pid1335703) 3eef87f

Добавлено через 58 минут
In reply to the person inquiring about bandar online terbaik, link togel terpercaya dan aman, situs slot online terbesar, permainan slot yang gampang menang, link situs judi slot online terbaik, link mudah menang, web togel terbaik, link togel online terpercaya, slot judi, slot online pragmatic play, I highly recommend this homepage on DVL TOTO blog (http://bbs.51pinzhi.cn/home.php?mod=space&uid=6778969) or bandar togel terbaik, slot togel 4d, link judi togel, game slot yg mudah menang, mesin slot pragmatic play, situs slot uang asli, slot situs terbaik, bandar judi togel online, situs judi slot terbesar di indonesia, kumpulan situs slot terbaik, together with this total stranger about DVL TOTO url (http://forum.orangepi.org/home.php?mod=space&uid=5216558) on top of situs judi game slot online, game judi slot online terbaik, slot situs resmi, situs resmi togel dan slot, game slot tembak ikan, slot terbaru, slot jackpot terbesar, situs togel dan slot, link togel slot, situs judi terbesar di indonesia, bearing in mind this source for DVLTOTO advice (https://socialbookmarkgs.com/story19651744/link-slot-terpercaya-dan-slot-online-terbaru) which is also great. Also, have a look at this what do you think about DVL TOTO advice (https://ian6r17jgm5.wikijournalist.com/user) alongside all situs judi resmi, togel slot, game slot terpercaya, judi slot online terbaru, provider game slot terbaik, situs judi casino, menang togel, slot live casino, game slot online adalah, judi online live, not to mention this the original source about DVL TOTO forum (https://isaiah9q88sci7.wonderkingwiki.com/user) on top of masuk game slot, provider slot terbaik, situs resmi togel terpercaya, login judi slot, pojok slot login, the original source about (https://daltongbtk43210.mywikiparty.com) and don't forget bisa bermain, kumpulan situs slot online terbaik, casino online terpercaya, daftar judi, situs togel gampang menang, for good measure. Check more @ Top Rated 7 RAJA TOGEL Guide (https://igsing.com/forum.php?mod=viewthread&tid=88391&pid=347079&page=1&extra=page%3D1#pid347079) c285688

Добавлено через 15 часов 36 минут
For the person inquiring about difference between hand knotted and hand tufted rugs, home rugs, carpet rug design, rugs in offices, carpets designs and colors, design carpet for living room, carpet design software, living room area rug on top of carpet, rug shopping, house of carpets, I highly suggest this website for house cleaning service tips (https://thedeepdirectory.com/listings13208895/deep-cleaning-company-and-home-deep-cleaning-in-australia) or area rug over rug, highest quality area rugs, cover carpet with rug, hand made carpet, buy patterned carpet, design your rug, room size rugs, area rug shops near me, wool rug bedroom, more carpets, bearing in mind this top rated house cleaning service blog (http://umsr.fgpzq.online/home.php?mod=space&uid=23243) on top of rug hand, carpet colors, living room designer rugs, interior carpet, house floor carpet, custom color area rugs, rugs etc, living room carpet sizes, best carpets for living rooms, design a carpet, and don't forget this click this about house cleaning service tips (https://tops-directory.com/listings13205733/local-house-cleaners-and-general-cleaning-in-australia) which is also great. Also, have a look at this such a good point about house cleaning service site (https://tristan1k43uht6.wikirecognition.com/user) not forgetting sites such as pretty carpet colors, rug design types, custom home rugs, best area rugs for families, luxury home carpet, making a custom rug, cheap luxury rugs, interior design area rugs, carpet shop in northfield, area rug designs, which is worth considering with this killer deal on house cleaning service tips (https://forum.mrfinancialindependence.com/index.php?action=profile;u=2440347) and don't forget high rug, color area rugs, best rugs, rugs for living room nearby, rugs for carpet floor, your input here for (https://marcoawof21987.blogpayz.com) as well as link carpet, carpets are made of, patterned carpet, floor rug carpet, carpet rug stores near me, for good measure. Check more @ Top Gracianna Winery Website (http://junlinro520.gain.tw/viewthread.php?tid=1558149&pid=2047245&page=1&extra=#pid2047245) 331_8fe

FrankJScott

06.06.2025, 18:50

For the people asking about best analysis for stock market, stock open ai, chat gpt stock, ai to buy and sell stocks, stock market chatbot, stock market prediction ai, free stock picks for today, ai ticker, best stocks in ai, stock picking tools, I highly suggest this listen to this podcast for AI Stock Predictions Platform link (https://mirageresortcasinos.com/top-10-tips-to-help-determine-the-costs-and-prices-of-ai-trading-platforms-that-forecast-or-analyze-the-prices-of-stocks/) or ai stock portfolio, trading technical analysis, ai chatbot stocks, upcoming ai companies to invest in, ai software trading, ai for stock trading, best tool for trading, ai picking stocks, stock programs, best ai tech stocks, which is worth considering with this updated blog post on AI Stock Picker Platform url (https://imageconvertor.us/20-excellent-news-on-choosing-ai-stock-investing-analysis-websites/) together with ai software stocks, stock analysis software, best platform for stock analysis, stock analyzer tool, all ai stocks, deep learning ai stocks, free stock tools, stock trend analysis, day trading ai, investing analysis, and don't forget this new AI Stock Trading Analysis site (https://congeladosgourmet.de/20-new-tips-on-deciding-on-ai-stock-picker-platform-sites/) which is also great. Also, have a look at this consultant on AI Stock Investing Platform advice (https://gardenrescues.us/20-recommended-news-on-choosing-ai-stock-investing-analysis-websites/) alongside all stock market investment software, technical analysis, stock pick, stock prediction app, best free stock information websites, stock market ai, ai investing, incite stock, chat gpt company stock, stocks of artificial intelligence, together with this sources tell me on AI Stock Trading Platform blog (https://sarahknox.us/index.php/2025/06/01/20-handy-advice-for-deciding-on-ai-stock-picker-platform-websites/) which is worth considering with ai to predict stocks, stock investment software, stock trading picks, ai based stocks, stock investment, next page for (https://zanemjdt49837.onzeblog.com) alongside all stock prediction bot, ai day trader, best ai company stocks, stock analysis online free, stock analyzer tool, for good measure. Check more @ High Rated 7RAJATOGEL Info (https://www.b04.abdemo.zzart.me/forum.php?mod=viewthread&tid=4495&pid=7244&page=1&extra=#pid7244) 350c5b3

FrankJScott

10.06.2025, 17:20

In response to the person asking about sell any house, get a cash offer on your home, sell this house fast, sell an inherited house, fast cash offer, cash from house, sale my home fast, buy houses as is for cash, want to sell, want to sell my home fast, I highly suggest this learn more on quick house buy details (https://remingtonkeui31087.blognody.com/38543652/20-new-reasons-for-deciding-on-quick-house-selling-sites) or houses to mortgage, cash offer on your home, buy and flip homes, house at usa, sell your home in 7 days, the best time to sell your house, make a cash offer, we buy houses tacoma, cash to buy, need to sell home fast, bearing in mind this great quick house buy advice (https://paxtonmhas87665.bmswiki.com/5293377/20_best_reasons_for_picking_quick_house_selling_we bsites) alongside all sell your house with us, cash real estate closing, sale my home fast, sell my house cash, buy houses for cash reviews, companies who buy houses fast, to sell the house, sell my duplex, sell bungalow, look up my house, alongside all this basics on quick house buy url (https://josuespia61504.vigilwiki.com/6956906/20_great_reasons_for_deciding_on_quick_house_selli ng_websites) which is also great. Also, have a look at this useful quick house buy info (https://edwinqgoo77641.wikibriefing.com/3452876/20_excellent_suggestions_for_picking_quick_house_s elling_websites) on top of quick home sale, we buy as is, i will buy your house, sale your home, house and for sale, i want to sell my house for cash, companies that will buy your home, selling a house to a company, selling houses real estate, sell my house fast for cash near me, together with this over at this website for quick house buy forum (https://jaidenoxhg27272.bligblogging.com/36200624/20-pro-facts-for-choosing-quick-house-selling-sites) on top of sell homes, needs in a house, sell my house today, get a cash offer on my home, sell house instantly, great post to read about (https://andretpja00987.articlesblogger.com) as well as buy for home, we buy houses companies, sell to buy, want to sell my property fast, sale home usa, for good measure. Check more @ Top Laser Treatment Sarasota Tips (https://forum.zanjantkr.ir/viewtopic.php?f=3&t=17038&p=18258#p18258) b350c5b

FrankJScott

13.06.2025, 05:06

In reply to the man asking about play lucky slots, casino site, online slot app, judi slot gacor, e money bank bca, cara mengisi saldo e money mandiri, perbankan mandiri, judi hongkong online, cara mengisi deposit, cara main judi online, I highly suggest this helpful hints on judi slot toto tips (https://riverxpfo15816.blogerus.com/57617457/30-top-suggestions-for-picking-cuan88-sites) or cara toto, bank bri mobile, slot online promo, panda slot 88 login, outlet mandiri, main slots, yang dapat di, cara deposit ke bank bca, singapore hk, apa itu bank bca, not to mention this website on judi slot toto info (https://travislkgb22221.ouyawiki.com/1544836/30_best_pieces_of_advice_for_deciding_on_7rajatoge l_websites) on top of pulsa ke link aja, www bank mandiri, slot e, cara menambah saldo di aplikasi dana, e money tidak bisa digunakan, bandar casino, bandar judi terbesar, bank mandiri bank, judi slot yang gacor, toto online, on top of this my explanation on judi slot toto blog (https://angelozrhv86431.wikinarration.com/6894302/30_great_ideas_for_choosing_322_togel_sites) which is also great. Also, have a look at this basics about judi slot toto advice (https://louisxhra85207.mybloglicious.com/55701832/30-new-tips-for-deciding-on-dvl-toto-sites) not forgetting sites such as google slot online, banner slot gacor, slots indonesia, bg mandiri, informasi bank mandiri, informasi bank, mg live casino, mks mandiri, slot game provider, daftar slots, which is worth considering with this top judi slot toto advice (https://andywlyi70369.laowaiblog.com/34507919/30-best-facts-for-choosing-cuanslot88-websites) together with situs slot games, sini slot login, judi online 24 jam, peraturan bank bri, bandar togel dunia, weblink on (https://reidkhdy10009.blog-eye.com) bearing in mind link slot to, cara transfer lewat hp bank mandiri, informasi bank bca, slot wild, slot online rtp, for good measure. Check more @ Best Login Tajir4D Site (https://www.kjwzd.com/forum.php?mod=viewthread&tid=5130&pid=7225&page=1&extra=page%3D1#pid7225) 670b350

Добавлено через 8 минут
In response to the person talking about top casino, casino slot games, transfer dari bank bri ke bni, website judi malaysia, judi slot itu apa, slot spade, link resmi bank bri, judi hongkong online, kode untuk transfer bank mandiri, cara transfer e money mandiri ke rekening mandiri, I highly recommend this at yahoo about judi slot toto details (https://reidzqfs75310.blogcudinti.com/35730706/30-handy-facts-for-choosing-7rajatogel-sites) or slot yang lagi promo, crash slot game, bank bank mandiri, cara transfer dari bank bri ke bank bni, cara mengisi dana ke ovo, pgsoft casino, cara login slot online, cara toto, 88 slots, game online deposit, not forgetting sites such as this cool judi slot toto url (https://lorenzofpzi18631.signalwiki.com/1550374/30_top_ideas_for_choosing_dvltoto_websites) on top of main slot judi, asia slot online, casino di, one game slot, situs resmi bank bri, tiger slots, bandar hongkong pools, hacksaw gaming rtp, singapore slot game, bank bca bank apa, together with this additional hints about judi slot toto forum (https://cristianuenw64196.imblogs.net/85191144/30-good-reasons-for-deciding-on-7rajatogel-sites) which is also great. Also, have a look at this new judi slot toto site (https://kylergmrr89989.celticwiki.com/1542572/30_good_facts_for_deciding_on_dvl_toto_sites) alongside all slot judi 88, mengisi saldo e money, cara tf di bank mandiri, cara mengisi saldo bank bri, cara toto, funky slot, judi slot olympus, link slot game online, sini slot online, deposit judi slot, which is worth considering with this how you can help for judi slot toto advice (https://brooksulah80357.smblogsites.com/35602342/30-top-suggestions-for-choosing-cuanslot88-sites) not to mention main slot agar menang, bandar casino, slot online nexus, cara transfer rekening mandiri, ovo slot 88, helpful hints for (https://holdentcgi68901.blogsumer.com) together with sistem game slot, bg mandiri, game slot link, slot online jackpot, pakai link, for good measure. Check more @ Best 7RAJATOGEL Guide (https://arabi.cam/viewtopic.php?p=1289#p1289) ac28568

Добавлено через 7 часов 46 минут
To the person inquiring about website judi malaysia, slot poker games, cara daftar aplikasi link aja, download casino online, judi cuan, cara masukin saldo ke dana, cuan slot 88 login, online 24, cuan slot online, web resmi bank bri, I highly suggest this enquiry on CUANSLOT88 link (https://evan2t64tdn3.like-blogs.com/profile) or pay pulsa, cara tf bank bni, cara mengisi dana ovo, promo slot online, hot slot games, online 24, cara tf dari bank mandiri ke bca, slot saja, jago slots, main casino, which is worth considering with this that guy on 322 Togel url (https://joseph8i80qmd5.blogripley.com/profile) together with toto online malaysia, cara mengisi dana ke ovo, apa itu rtp slot, panda online casino, bg mandiri, lucky casino online, slot gameplay, bank bank bri, jackpot game slot, nama game slot, on top of this top 322 Togel blog (https://jonathan0b09kyj2.wizzardsblog.com/profile) which is also great. Also, have a look at this high rated CUAN88 info (https://cool-directory.com/listings751151/download-slot-games-dan-slot-online-indonesia) on top of promo judi slot, judi mesin slot online malaysia, link judi slot, cara transfer bank bri ke bank bni, cara transfer bank mandiri ke bank bri, website judi, casino slot rtp, agen game slot, bandar cuan slot, game gacor, as well as this useful 322toto blog (https://directory-2020.com/listings755980/judi-slot888-login-dan-bandar-slot88-login) which is worth considering with bank mandiri bank mandiri, bri bni, nama nama situs judi slot, cara mengisi form mandiri, joker slots, his explanation on (https://titusofui20865.arwebo.com) which is worth considering with cara saldo, cara transfer rekening bri ke bca, cara masukin saldo dana, gacor 88 login, 11 toto, for good measure. Check more @ Top Tajir4D Link Alternatif Blog (https://www.thewardrobe.club/viewtopic.php?p=136#p136) 8_adb00

Добавлено через 3 часа 32 минуты
For the lady talking about be meaning crypto, crypto payment, start with crypto, crypto start, crypto and web3, career in crypto, p2p crypto meaning, web3 payment, crypto payment website, growth crypto, I highly suggest this for beginners on unigox non-custodial wallet url (https://elliotdwlw47035.iyublog.com/34700998/30-great-reasons-for-picking-unigox-usdt-exchange) or crypto how to start, starting in crypto, crypto as payment, p2p meaning in crypto, crypto and web3, krypto web, crypto p2p, crypto https, crypto company meaning, crypto hotline, which is worth considering with this recommended unigox crypto to fiat tips (https://eduardolgzp64320.onesmablog.com/30-new-reasons-for-deciding-on-unigox-copyright-to-fiat-76355329) which is worth considering with crypto company meaning, website crypto, crypto p2p, crypto company, crypto growth, websites for crypto, crypto webshop, crypto paid, crypto website, crypto payment meaning, not to mention this i loved this about unigox non-custodial wallet blog (https://israelzkqt12344.blogdiloz.com/34526833/30-recommended-tips-for-picking-unigox-wallet) which is also great. Also, have a look at this next page on unigox usdc wallet tips (https://keeganrerc08641.wonderkingwiki.com/1544936/30_free_suggestions_for_choosing_unigox_trading_pl atform) bearing in mind crypto company, crypto p2p, website crypto, web 3 and crypto, crypto growth, payment crypto, crypto helpline, cripto crypto, crypto paid, web 3 in crypto, and don't forget this link for unigox wallet advice (https://juliusjevh81480.blogpostie.com/56959553/30-handy-suggestions-for-deciding-on-unigox-p2p-exchange) as well as web3 crypto, paying in crypto, growth crypto, growth of crypto, career in crypto, basics on (https://becketttmxd29752.blogacep.com) and don't forget crypto contacts, starting in crypto, career in crypto, start a crypto, crypto https, for good measure. Check more @ Cool TAJIR4D Tips (http://aadd2.net/vb/showthread.php?p=1143573#post1143573) 30c9ac2