Скрипты UOscript

Данный топик создан для обмена скриптами для программы UOscript.
Здесь Вы можете выкладывать свои собственные скрипты, а также просить других пользователей поделиться с Вами их творениями.
Требования по оформлению выкладываемых скриптов:
в сообщении, содержащем скрипт должны быть указаны:
1. скилл, на который направлен скрипт*;
2. вещь, производство которой заложено в скрипт (только для крафтовых скиллов);
3. подробное описание клавиш, используемых в скрипте.
4. Иные особенности необходимые для корректной работы скрипта

Любые сообщения, не связанные с тематикой топика будут приравнены к флуду и оффтопику. Их автор понесет наказание, в соответствие с правилами форума.

*в случае, если скрипт ориентирован на какое-либо действие, не направленное ни на развитие скилла, ни на производство какой-либо вещи необходимо дать полное описание этого действия.
__________________________________________________ __
Запрещено выкладывать любые полностью автоматические скрипты. В случае нарушения - сообщение, содержащее подобный скрипт будет удалено, а автору будет вынесено "устное предупреждение", в случае повтора - будет вынесено предупреждение, в дальнейших случаях - плюс.

Официальный сайт программы UOscript:
http://uoscript.nm.ru/

Последнюю версию UOscript, в том числе Oskom Edition можно скачать:
http://uoscript.nm.ru/files.html

Некоторые готовые скрипты
http://uoscript.nm.ru/scripts.html

FAQ по ПвП настройке UOscript + основные ПвП скрипты:
http://uoo.ru/phpBB/viewtopic.php?t=182014&022647

Program DrinkHeal;
{$include sysutils.uops}
const
HealType = 3852;
HealColor = 00;
var
HealId : LongInt;
begin
if _FindObjectByColor(HealType,HealColor,HealID) then begin
SetLastObject(HealType,HealID);
SendKey(kLo);
end else
WriteLn('Out of Heal');
end.


на F1 у мя пробинден ласт обжект,
вроде все,

У кого есть скрипт на мининг , выложите плз :)


и вообще, у кого есть какие КРАФТ скрипты- ВЫКЛАДЫВАЕМ!!!

Никаких скриптов на мининг и лумбер шоп здесь не было =)

Цитата:

---

Сообщение от Athrax

Никаких скриптов на мининг и лумбер шоп здесь не было =)

---

Я предупредил уже товарища. :)

Цитата:

---

Сообщение от R a m

Program DrinkHeal;
{$include sysutils.uops}
const
HealType = 3852;
HealColor = 00;
var
HealId : LongInt;
begin
if _FindObjectByColor(HealType,HealColor,HealID) then begin
SetLastObject(HealType,HealID);
SendKey(kLo);
end else
WriteLn('Out of Heal');
end.


на F1 у мя пробинден ласт обжект,
вроде все,

---

Крутой папь, а вот ты не в курсе что если ты свой модуль не подключешь, твой скрипт пахать не будет? потому что функции *_FindObjectByColor* не существует :D скрипт на ламбер простой:Repeat Sendkey(k_F1);Delay(10000); Until False; =)))

Snake!
я конечно в скриптах не оч разбираюсь, но у мя все работает:)

Для крафта чего угодно:
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('заголовок','что выбираем');

---

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

Идея такая: Когда банки намешались, сложить их друг на друга чтоб удобно было пить например...

Я понимаю, что в принципе полноценный FAQ по языку скриптов написать для UOscriptа сложно, но все-таки, хотелось бы увидеть конкретные примеры по некоторым циклам действиям, которые будут приведены ниже.
Часто находишь нужные скрипты на какое-либо действие, но все же есть нюансы, которые бы хотелось прописывать.
Для наглядности буду писать циклы и действия как для пилота.

1) Цикл делать до тех пор пока не будет: проверка по нескольким ластмесагам и показателям чара, таймеру (не знаю есть ли он в UOscriptе):

set timer
while_not (lastmsg 1) or (lastmsg 2) or (hits < str) or (timer > 5000)
wait 100 // или какое-то действие
end_while
Надесюь для while, if, If_not все идэинтично.

2)Перенос итемов c одной точки в другую.
2.1) Проcто перетягиваем если известно где находитмя итем:

drag 111,111 222,222 all

2.2) Найти итем по типу и перенести в заданную точку
в Пилоте это нереализовано.

3) Метки для переходов в самом скрипте или в какой-либо процедуре скрипта.
:start
goto start
gosub start

Интересует именно метка, а не процедура.
Относительно процедур, почему, если я делаю метку для отправки на процедуру до прописания самой процедуры, выдается ошибка. Это что так реально задумано, что отсылку на процедуру можно делать после написания самой процедуры? Очень не удобно. Это как-то обходится или исправляется.

Циклы с проверкой сообщений.
Как показала практика, реакцию на сообщения лучше реализовавать не по LastMsg, а путем просмотра всех сообщений, поступивших с момента последнего действия.
Для этого делаем пару конструкций.

Код:

---

//Константы событий (количество и значения по вкусу)
const CYouLoosen = 1;
      CYouPut = 2;
      CNone = 0;
      CDisconnect = 100;

---

Реализуем функцию, которая будет просматривать журнал.

Код:

---

function ProcessMessages: LongInt;
var i, k: LongInt;
    st: String;
begin
  Result:=CNone;
  GetJournalNew;
  GetJournalCount(k);
  If k<>0 Then
    begin
      For i:=1 to k do
        begin
          GetJournalString(0, j_LowerCase, st);
          DeleteJournalString(0);
          If Pos('you fail', st)<>0 Then Result:=CYouLoosen;
          If Pos('you toss', st)<>0 Then Result:=CYouLoosen;
          If Pos('you put', st)<>0 Then Result:=CYouPut;
          If Pos('your skill', st)<>0 Then Result:=CYouPut;
          If Pos('disconnect', st)<>0 Then Result:=CDisconnect;
          If Pos('what do you want', st)<>0 Then Result:=CNone;
          // и т.д.
        end;
    end;
end;

---

Далее сам цикл.

Код:

---

const
  CDelay = 10000;
var
  Res, k: LongInt;
 
...

Repeat // Делаем пока не произойдет дисконнект

  {Тут производим какое-либо действие}
   
    k:=0;
    Repeat //Ждем пока действие не завершится или будет превышено время ожидания
      k:=k+200;
      Delay(200);
      Res:=ProcessMessages;
    Until (Res<>CNone) or (k>CDelay);
   
  {тут делаем обработку значения Res, если надо}

Until (Res=CDisconnect)

---

Можно написать функцию ProcessMessages на все случаи жизни и далее просто использовать в различных скриптах через Include. Данная система позволяет исключить сбои скриптов из-за пропуска нужного LastMsg.

Спасибо...
Раз уж заглянул :) Уоскрипт распознает сообщения на русском от сервака или тоже замарочки как и с пилотом?

Срочно хелп, короче вот такой скрипт на обкладку
left_down 961, 568
end_script
возможно зделать так чтобы когда подвинул пек, серавно таргет оставался ? ну просто очень тупо каждый рас после того как подвинул пек выставлять кординаты... плиз хелп

Тут идёт обсуждение УОСкрипта, а не пилота =) А вообще, на пилоте это невозможно сделать =)

Подскажите скрипт на реколл по руне

Подскажите пожалуйста как в уоскрипте заполнять архив данными, я имею ввиду как в паскале -
arr:array[0..n] of integer = (1,2,3,4......);
метод arr[0]=1,arr[2]=2....не подойдет
И еще, как задать двумерный массив?

у меня немного попроще вопрос =)) как написать в уопилоте , что бы он одевал новый кортик после того как старый разломалься? скажите пожалуйста... я знаю 1 : нфдо набирать [msg] и что то ещё... а что я ненаю =(

Цитата:

---

Сообщение от BaZz

Подскажите пожалуйста как в уоскрипте заполнять архив данными, я имею ввиду как в паскале -
arr:array[0..n] of integer = (1,2,3,4......);
метод arr[0]=1,arr[2]=2....не подойдет
И еще, как задать двумерный массив?

---

Код:

---

type
 TPoint  = record
            X : longint;
            Y : longint;
          end;

 TTile    = record
            TerrType : LongInt;
            Status  : LongInt;
            value    : Extended;
            gval    : Extended;
            hval    : Extended;
            fval    : Extended;
            PrevX    : LongInt;
            PrevY    : LongInt;
            end;
const
 CMaxBoundSize = 500;
 CMaxMapSize = 122;

type
 TMapString  = array of TTile;
 TMap  = array of TMapString;
 TBound  = array of TPoint;
 TPath = array of TPoint;

var
  Map: TMap;
  Bound: TBound;
  Courses: TBound;
  Path: TPath;
  kk : Array of Extended;
  Start,Finis, ctmp: TPoint;
  Found: Boolean;

procedure InitArrays(aMaxSize, aMaxBound: LongInt);
var i, j: LongInt;
begin
  SetArrayLength(Map, aMaxSize);
  For i:=0 to aMaxSize-1 do SetArrayLength(Map[i], aMaxSize);
  for i:=1 to aMaxSize-1 do
    for j:=1 to aMaxSize-1 do
      begin
        Map[i][j].TerrType:=ttClear;
        Map[i][j].Value:=1;
        Map[i][j].Status:=tsUnvisited;
      end;
  for i:=0 to aMaxSize-1 do
    begin
      Map[i][0].TerrType:=ttWall;
      Map[0][i].TerrType:=ttWall;
      Map[i][aMaxSize-1].TerrType:=ttWall;
      Map[aMaxSize-1][i].TerrType:=ttWall;
    end;
  SetArrayLength(Bound, aMaxBound);
  SetArrayLength(kk, 2);
  kk[0]:=1.42;
  kk[1]:=1.0;
  SetArrayLength(Courses, 4);
  Courses[0].X:=0; Courses[0].Y:=-1;
  Courses[1].X:=1; Courses[1].Y:=0;
  Courses[2].X:=0; Courses[2].Y:=1;
  Courses[3].X:=-1; Courses[3].Y:=0;
end;

---

Скрипти харашо ну лучше руками играть :)

Код:

---

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;

---

xотел изменить етот скрипт на изготовление роби но нечего не получилос ..

такс, дайте скрипт на Таилор-Роби

//***********************************Crafted by Hatter******************************************** **\\
//---------------------------------------15.12.2005-------------------------------------------------\\
//-------------------------------Скрипт на прокачку тэйлора-----------------------------------------\\
//-----------Убедительная просьба, без разрешения автора данный скрипт не распространять-----------\\
//--------------------------------Для связи ICQ: 227865426------------------------------------------\\
Program Tailoring;
const
ItemType = 7939;
ResType1 = 4000;
ResType2 = 5981;
ItemMax = 30;
ResNum1 = 55;
ResNum2 = 800;
MB_OK = 0;
MB_OKCANCEL = 1;
MB_STOPRETRYIGNORE = 2;
MB_YESNOCANCEL = 3;
MB_YESNO = 4;
MB_RETRYCANCEL = 5;

IDOK = 1;
IDCANCEL = 2;
IDSTOP = 3;
IDRETRY = 4;
IDIGNORE = 5;
IDYES = 6;
IDNO = 7;

MB_ICONERROR = 16;
MB_ICONQUESTION = 32;
MB_ICONWARNING = 48;
MB_ICONINFORMATION = 64;

function MessageBox(HWND: LongInt; aText: PChar; Caption: PChar; uType: Word): Longint; external 'MessageBoxA@user32.dll stdcall';

//Функция перетаскивания ресурсов в рюкзак----------------------------------------------------------

function GetRes(bHandle, cHandle, x, y, dx, dy, number, nDelay: LongInt; rType :Word) :LongInt;
var
aItemList, count, x0, y0, aList, aItem, i, aID :LongInt;
open: Boolean;
sX, sY, sZ, aType, aAmount :Word;
aName :String;
begin
Result := 0;
If not GetObjectsList(bHandle, aList) Then
begin
FreeObjectsList(aList);
WriteLn('No resourse in your bag');
end;
GetListCount(aList, Count);
If Count=0 Then
begin
FreeObjectsList(aList);
WriteLn('No resourse in your bag');
end;
For i:=0 to Count-1 do
begin
GetListItem(aList, i, aItem, aName);
GetObjectInfo(aItem, aType, aID);
If aType=rType Then
begin
GetObjectAmount(aItem, aAmount);
Break;
end;
end;
FreeObjectsList(aList);
number := number - aAmount;
GetGumpInfo(cHandle, open, x0, y0);
If not GetObjectsList(cHandle, aItemList) Then
begin
FreeObjectsList(aItemList);
WriteLn('No resourse in safe');
end;
GetListCount(aItemList, Count);
If Count=0 Then
begin
FreeObjectsList(aItemList);
WriteLn('No resourse in safe');
end;
For i:=0 to Count-1 do
begin
GetListItem(aItemList, i, aItem, aName);
GetObjectInfo(aItem, aType, aID);
If aType=rType Then
begin
WriteLn('[Состояние]: Список ресурсов получен. Кол-во перекладываемых ресурсов: '+IntToStr(number));
GetObjectPos(aItem, sX, sY, sZ);
Result := aID;
sX:=x0+sX+dx;
sY:=y0+sY+dy;

LeftDown(sX, sY);
Delay(nDelay);

Say(IntToStr(number));
Delay(nDelay);

LeftClick(x, y);
WriteLn('[Состояние]: Перекладываем ресурсы.');
end;
end;
FreeObjectsList(aItemList);
end;

//Функция создания итемов---------------------------------------------------------------------------

function Craft(bHandle, aIDRes, aIDIns, nDelay1, nDelay2: LongInt; iType, rType1, rType2 :Word) :Boolean;
var h, aItem, aList1, aList2, i, aID, Count, n, l :LongInt;
b, d :Boolean;
aAmount1, aAmount2, aType :Word;
st, aName1, aName2 :String;
begin
SetLastObject(iType, aIDIns);
SetLastTarget(aIDRes);
Delay(nDelay1);
n := 0;
Repeat
SendKey(k_F1); // F1 - Last Object ,Wait for Target, Last Target;
Delay(nDelay1);
b:=false;
l:=0;
Repeat
l:=l+1;
Delay(nDelay1);
d:=FindCraftMenu('Cloth', h);
If (d=true) Then begin
LeftDoubleClick(68, 61);
b:=true;
end;
If (d=true)or(l=25) Then begin
b:=true;
end;
Until b;
b:=false;
l:=0;
Repeat
l:=l+1;
Delay(nDelay1);
d := FindCraftMenu('Shirts', h);
If (d=true) Then begin
LeftClick(269, 66);
Delay(nDelay1+500);
LeftDoubleClick(229, 72);
Delay(nDelay1);
b:=true;
end;
If (d=true)or(l=25) Then begin
b:=true;
end;
Until b;
b := false;
l := 0;
Repeat //Проверка на создание.
st:=_lastmsg;
Delay(nDelay1);
If (st='you put the plain robe by hoha in your pack.')or
(st='you put the robe in your pack.')
Then begin
n := n + 1;
b := true;
end;
If (st='tailoring failed. some of the cloth is ruined.')
Then begin
b := true;
Delay(nDelay2);
end;
l:=l+1;
If(l=50)Then begin
b:=true;
end;
Until b;
Until n = ItemMax;
Result := true;
end;

//Функция перетаскивания готовых итемов-------------------------------------------------------------

function PutItem(bHandle, x, y, nDelay: LongInt; iType :Word) :Boolean;
var
aItemList, item, count, x0, y0 :LongInt;
open, b :Boolean;
sX, sY, sZ :Word;
Name :String;
begin
Result := false;
b := false;
Repeat
GetGumpInfo(bHandle, open, x0, y0);
GetObjectsListByType(bHandle, iType, aItemList);
GetListCount(aItemList, count);
If count<>0 Then
begin
WriteLn('[Состояние]: Список итемов получен. Кол-во: '+IntToStr(count));
GetListItem(aItemList, 0, item, Name);
GetObjectPos(item, sX, sY, sZ);
sX:=x0+sX + 50;
sY:=y0+sY + 10;
LeftDown(sX, sY);
Delay(nDelay);
Say(' ');
Delay(nDelay);
LeftClick(x, y);
Delay(nDelay);
WriteLn('[Состояние]: Перекладвыем item.');
end;
If count=0 Then
begin
b:=true;
end;
Result := true;
Until b;
FreeObjectsList(aItemList);
end;

//Главная программа---------------------------------------------------------------------------------

var ResSun, ResX1, ResY1, ResX2, ResY2, BagX, BagY, BagX1, BagY1, z, k :LongInt;
cashType, FoodType :Word;
Pack, aIDRes1, aIDRes2, aIDIns, aIDFood :LongInt;
StartResult :LongInt;
begin
StartResult:=MessageBox(0, PChar('Укажите точку, где лежит ткань(та, что в контейнере, а не в рюкзаке)'), PChar(_name), MB_ICONQUESTION + MB_OKCANCEL);
If StartResult=IDCANCEL Then Exit;
ClrScr;
GetCursorGumpHandle(ResSun);
GetCursorObject(cashType, aIDRes2);

StartResult:=MessageBox(0, PChar('Укажите точку, где лежит еда'), PChar(_name), MB_ICONQUESTION + MB_OKCANCEL);
If StartResult=IDCANCEL Then Exit;
ClrScr;
GetCursorObject(FoodType, aIDFood);

StartResult:=MessageBox(0, PChar('Укажите точку, где лежит инструмент'), PChar(_name), MB_ICONQUESTION + MB_OKCANCEL);
If StartResult=IDCANCEL Then Exit;
ClrScr;
GetCursorGumpHandle(Pack);
GetCursorObject(cashType, aIDIns);

StartResult:=MessageBox(0, PChar('Укажите точку, куда складывать робы(где лежат пустые сумки)'), PChar(_name), MB_ICONQUESTION + MB_OKCANCEL);
If StartResult=IDCANCEL Then Exit;
ClrScr;
GetMouseCoords(BagX, BagY);

StartResult:=MessageBox(0, PChar('Укажите точку, куда перетаскивать наполненую сумку'), PChar(_name), MB_ICONQUESTION + MB_OKCANCEL);
If StartResult=IDCANCEL Then Exit;
ClrScr;
GetMouseCoords(BagX1, BagY1);

z:=0;
k:=0;
Repeat
SetLastObject(FoodType, aIDFood);
SendKey(k_F9);
WriteLn('Get Spool');
aIDRes1 := GetRes(Pack, ResSun, 398, 267, 24, 4, ResNum1, 300, ResType1);
Delay(500);
WriteLn('Get Cloth');
aIDRes2 := GetRes(Pack, ResSun, 398, 267, 15, 15, ResNum2, 300, ResType2);
Delay(2000);
WriteLn('Craft robe');
Craft(Pack, aIDRes2, aIDIns, 300, 3000, ItemType, ResType1, ResType2);
Delay(500);
WriteLn('Put robe');
PutItem(Pack, BagX, BagY, 300, ItemType);
Delay(500);
WriteLn('Put bag');
k:=k+1;
If(k=2)
Then begin
LeftDown(BagX, BagY);
Delay(500);
LeftClick(BagX1, BagY1);
Delay(500);
k:=0;
end;
ClrScr;
Until z=1;
end.
//На клавишу "F1" забиндить "Last Object ,Wait for Target, Last Target"
//На клавишу "F9" забиндить "Last Object"
//При запуске скрипта убрать всё из рюкзака кроме 10 ткани, 10 ниток, еды и инструмента.
//Инструмент положить в верхний правый угол, остальное в нижний левый.
//Пустые сумки и остальные ресурсы сложить в отдельном контейнере, сумки сложить в стопку в одном месте.
//При указании точки, куда перетаскивать наполненые сумки, указывайте её так, чтобы программа не пыталась вложить одну сумку в другую.

//***********************************Crafted by Hatter******************************************** **\\
//---------------------------------------21.03.2007-------------------------------------------------\\
//----------------------------------------Скрипт на ламбер-----------------------------------------\\
//-----------Убедительная просьба, без разрешения автора данный скрипт не распространять-----------\\
//--------------------------------Для связи ICQ: 227865426------------------------------------------\\
Program Lumber;
const CharName = 'Hatter';
RunType = 7956;
MinType = 3913;
BoxT = 806848736;

//Функция вырубки логов в одной точке.-------------------------------------------------------

function Lumber(X, Y, RunType1: Word; MinID :LongInt) :Boolean;
var
st :String;
b :Boolean;
begin
b := true;
SetLastObject(MinType, MinID);
if SetLastStaticTarget(RunType1, X, Y, 0)
then begin
b := false;
end;
SendKey(k_F9);//LO WfT LT
Delay(1000);
Repeat
st:=_lastmsg;
Delay(100);
If (st='you put the logs in your pack.')or
(st='you hack at the tree for a while, but fail to produce any useable wood.')
Then begin
SendKey(k_F9);
Delay(1000);
end;
If (st='there are no logs here to chop.')
Then begin
b := true;
Result := false;
break;
end;
Until b;
end;

//Функция рекола------------------------------------------------------------------------------------

function Recal(RunID :LongInt) :Boolean;
var cID, i, CharList, Count, CharHandle, x :LongInt;
cType, cX, cY, cZ :Word;
ItemName :String;
begin
Result := false;
SetLastSpell(31);
Delay(500);
SetLastTarget(RunID);
x := _posx;
Repeat
SendKey(k_F8);//LS WfT LT
Delay(4000);
Until x <> _posx;
Result := true;
end;

//Основная программа--------------------------------------------------------------------------------

var i, count, AxeID, aItemList, item, RunID :LongInt;
Name :String;
aType :Word;
Begin
AxeID := 1085397441;
GetObjectsListByType(BoxT, RunType, aItemList);
GetListCount(aItemList, count);
for i := 0 to count-1
do begin
Say('Number '+IntToStr(i));
GetListItem(aItemList, i, item, Name);
GetObjectInfo(item, aType, RunID);
Recal(RunID);
Lumber(_posx + 2, _posy - 1, 4795, AxeID);
Lumber(_posx + 1, _posy, 4794, AxeID);
Lumber(_posx, _posy + 1, 4793, AxeID);
Lumber(_posx - 1, _posy + 2, 4792, AxeID);
end;
FreeObjectsList(aItemList);
End.

не подскажете, есть ли функция - аналог пилотовской drag в uoscript ? Если нет, то как её можно заменить ?

Пытаюсь написать скрипт на БС.
Есть вопрос. Как определить ИД шмотки?

На вопросы о настройке моих скриптов не отвечаю - мануфактур у нас итак хватает. Разбирайтесь сами, учите паскаль, читайте хэлп.
П.С. Халявы не будет

Цитата:

---

Сообщение от TyKu

Пытаюсь написать скрипт на БС.
Есть вопрос. Как определить ИД шмотки?

---

В версии 1.64 на закладках, находящихся справа от окна редактирования, показывается ИД последнего использовавшегося объекта. Так же можно написать простенький скриптик так, чтобы чар в игре говорил ИД последнего использовавшегося объекта. Так что варианты есть - экспериментируйте.

помогите пожалуйста со скриптом на мининг - обкапывать вокруг себя.

подскажите, пожалуйста, где можно найти гайд для писания скриптов на UOPilotе.

Подскажите плз... начал тестить энту прогу и пока никак не могу понять. Написано как на паскале делать... дык половина не пащет вообще...

пара вопросов:
type MasProba=Array of Byte;

VAR
Mas:MasProba

1) SetLength(Mas,Length(Mas)+1); - нефига не проходит

не знает команды Length или она тут что то другое делает (похоже) что за хрень не подскажете? как тут с динамическими массивами работать?

2)
VAR
Proba:Array [0..1] of Integer; - нефига не проходит

как задать массив с предопределенным рзмером?

Как получить размер динамического массива?

Как узнать данные о статическом предмете по определнным координамам, что бы не считывать все имеющиеся статические предметы на экране и не перебирать их пока не совпадут координаты?

растолкуйте плиз про перетаскивание бутылочек в пак
а то я чё т не понял ничё :(