|
|
|
Oskom Forums Добро пожаловать на Oskom Forums.
|
-
ПОМОГИТЕ ОТРЕДОКТИРОВАТЬ СКРИПТ
нашол етот скрипт! и немогу его запустить!
если не сложно обесните што нетак в нём!
(UOScript 1.6.4)
Для крафта чего угодно:
1) Создаем файл methods.uops в папке с uoscript.exe
2) Его содержимое:
Код:
Function FindType(aType:Word): LongInt;
var
* GL,H,C,aID,i: LongInt;
* S: String;
begin
* GetGumpsList(GL);
* GetListCount(GL,C);
* for i:=0 to C-1 do
* begin
* * GetListItem(GL,i,H,S);
* * if FindObject(H,aType,aID) then Break;
* end;
* Result:=aID;
end;
Procedure MenuChoice(S1, S2: String);
var
* i,H: LongInt;
* S: String;
begin
* i:=0;
* while (i<30) and not FindCraftMenu(S1,H) do
* begin
* * i:=i+1;
* * Delay(100);
* end;
* i:=0;
* GetMenuItemName(H,i,S);
* while (pos(S2,S)=0) and (i<20) do
* begin* *
* * i:=i+1;
* * GetMenuItemName(H,i,S);
* end;
* SetFirstItemIndex(H,i);
* LeftDoubleClick(57,73);
end;
3) Пример использования - делаем стилскины
Код:
Program Steelskin;
{$include methods.uops}
var
* id: LongInt;
const
* aType = $0F84; // материал - гарлик
begin
* id:=findtype(aType);
* while (id<>0) do
* begin
* * SetLastObject(aType,id);
* * SendKey(k_F1); // Last Object
* * MenuChoice('What sort of potion','Steelskin');//Выбор меню
* * Delay(15000);
* * id:=findtype(aType);
* end;
end.
4) Переделать этот скрипт для своих потребностей нетрудно. Меняем тип материала, заголовок меню и выбор.
Если надо несколько раз выбирать в меню - дописываем строки
Код:
MenuChoice('заголовок','что выбираем');
-
ну и ладно! сам какнит разберусь раз вы все такие! топ клоуз!
-
-
а в чем проблема то? какую ошибку выдает?
Ваши права
- Вы не можете создавать новые темы
- Вы не можете отвечать в темах
- Вы не можете прикреплять вложения
- Вы не можете редактировать свои сообщения
Правила форума
|