[Помогите!] Нупику)

[вовила))]

Я так понял что скрипты на вп нужно писать в самом вп на языке object pascal. Поясните пожалуйста так или нет, и поподробней с чего начать? Просто нет рядом никого знающего чтоб помочь((

[-=ShoN=-]

Цитата: Сообщение от 97Power97 да. начни с чего-нибудь простого. например, чтобы скрипт писал в лог мессагу "Привет!" при коннекте

дай свой скайп, ну или стукни мне
splinter633

[victor20010]

зайди в папку WP потом DOC и там почитай мануал в 1-вом есть как перехватывать пакеты
язык и тд

[вовила))]

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

[valsoray]

Цитата: Сообщение от вовила)) object pascal

Fast Scripts

[вовила))]

Цитата: Сообщение от 97Power97 лови пакеты с помощью вп, или wpe pro, потом разбирай их. это не трудно

Всмысле разбирать? Ловить то не сложно) Объясняй раз знаешь

[вовила))]

Блин ну ты капитан, я это знаю. ну и что наловлю я этих пакетов полные штаны? Дальше то что? как мне эти знания применить непосредственно в написании скрипта?
там типа var i: integer
begin
send и пакет?
end. так чтоли?

Добавлено через 2 минуты

Цитата: Сообщение от valsoray Fast Scripts

Это язык? И его лучше изучать?

[вовила))]

((( ты меня не понимаешь...

[вовила))]

Блин дак как мне в скрипте написать вот дай мне исходник такого скрипта раз такой умный? чтоб этот скрипт ремал корабль если прочка не полная

[вовила))]

Цитата: Сообщение от 97Power97 maxhp:=l[4]; hp:=l[3]; if hp<maxhp then gSys.SendS('S|ROB'+HStr('0A00')); hp и maxhp лежат в пакете 0|A|HPT|

Оэоомм спс)) я думаю все понятно кроме вот этого gSys

[вовила))]

О спасибо, вот теперь понял) Ща буду вп драконить)

Добавлено через 24 минуты
Вставляю то что ты прислал в script tester и ничаво не получается(

Добавлено через 29 минут
var l:array [0..255] of char;
var maxhp, hp: char;
begin;
maxhp:=l[4];
hp:=l[3];
if hp<maxhp then
gSys.SendS('S|ROB'+HStr('0A00'));
end.

ВОт так надо? И скрипт работать будет?

[valsoray]

Цитата: Сообщение от 97Power97 maxhp:=l[4]; hp:=l[3]; if hp<maxhp then gSys.SendS('S|ROB'+HStr('0A00')); hp и maxhp лежат в пакете 0|A|HPT|

Можно я твоего парсера использую в своем скрипте?

Цитата: Сообщение от вовила)) О спасибо, вот теперь понял) Ща буду вп драконить) Добавлено через 24 минуты Вставляю то что ты прислал в script tester и ничаво не получается( Добавлено через 29 минут var l:array [0..255] of char; var maxhp, hp: char; begin; maxhp:=l[4]; hp:=l[3]; if hp<maxhp then gSys.SendS('S|ROB'+HStr('0A00')); end. ВОт так надо? И скрипт работать будет?

Не будет работать, тут парсера нет, короче это часть скрипта тебе написали.

[вовила))]

Я тут пытаюсь сделать скрипт обогащения ресов вообще не получается, ресы например с моба возьму он их спресует и сразу флуд пакетов(((( Че такое не пойму valsoray если будет время добавься пожалуйста в скайп valimir231193 я смотрю ты разбираешься дак может сможешь мне помочь?

[valsoray]

Цитата: Сообщение от 97Power97 да. держи procedure Parse(src,del:string;dest:TStringlist); var tmp:string; begin tmp:=src; while pos(del,tmp)>0 do begin insert(#13#10,tmp,pos(del,tmp)+length(del)); delete(tmp,pos(del,tmp),length(del)); end; dest.text:=tmp; end; пример использования: var l:tstringlist; s:string; begin l:=TStringList.Create; s:='1234+++5678+++9012'; parse(s,'+++',l); writelogln(l.text); end.

Спасибо, но я уже видел парсер в скрипте для извлечения ников для брута.