AutoSell

[avismd]

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


program UseSkillDemo;
Begin
while true do
begin
uosay('Tak Sell');
wait(3000);
SetSilentMode(False) ;
procedure AutoSell(ItemType : $0F0E; ItemColor : $0964; Quantity : 100);
Wait(4000);
end;

[nah nah]

Code: Select all

program UseSkillDemo;
Begin
while count($0F0E) do
    begin 
    uosay('Tak Sell'); 
    wait(300);
    SetSilentMode(False) ;
    AutoSell($0F0E, $0964, 100);
    Wait(4000);
end;
end.

[avismd]

спасибо за скрипт работает только если вместо

while count($0F0E) do
поставить
while true do

спс огромное давно мечтал о таком скрипте

[nah nah]

наверное правилнее будет вместо while count($0F0E) do вставить while count($0F0E) > 0 do

спс огромное давно мечтал о таком скрипте

[avismd]

а как поставить такую строку в скрипте

if (Life < MaxHP) then
begin
Disconnect;
end;

и самое интересное чтоб это работало

[Vizit0r]

так и поставить. визуально ошибок нет.