Как узнать? Нужна помощь

Ask for help

Moderators: Murderator+, Murderator

GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Как узнать? Нужна помощь

Post by GimFlex »

допустим пришел я на место запустил скриптец и он выдал информацию(или записал в масив) информацию о окружающих меня тайлах, если вам несложно дайте хотябы функции которыми это можно реализовать
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

инфотайлом в цикле
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Edred wrote:инфотайлом в цикле


я понимаю но там нужен параметр

uo.infotile([lasttile])

я пытался но ничего не вышло толкового не мог бы ты помочь хот ьподкинуть идейку

или через uo.target() посылать прицел?
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

Question_GimFlex wrote:
Edred wrote:инфотайлом в цикле


я понимаю но там нужен параметр

uo.infotile([lasttile])

я пытался но ничего не вышло толкового не мог бы ты помочь хот ьподкинуть идейку

или через uo.target() посылать прицел?

там все довольно таки сложно ты уверен что это тебе надо?
если меня сейчас опять не обругает пол форума, то скажу что у меня сформировался примерно такой алгоритм
квадрат с какой стороной тебе нужно определить по тайлам? ну например со стороной 10 вокруг чара( я последний раз чтото вроде такого скрипта писал на паскале так что не уверен проканает ли это здесь )
забиваешь в переменных начальную координату поиска например самый верхний левый угол
var xbegin = uo.getx() - 5
var ybegin = uo.gety() - 5
var i
ну а потом начинаем , ну к примеру
i=1
for i=1 to 10
тут както через инфотайл+таргет нужно пробить тайл самого левого верхнего угла, таргетом никогда не пользовался, пример на форуме пока найти не могу.
затем записываем это значение в отдельный файл
допустим если идти по рядкам а потом опускаться на столбец, то потом пишем
xbegin = xbegin + 1
i = i + 1
next
тут понадобиться 10 циклов фор. в принципе можно сделать наверно и одним но будет труднее
теперь тебе осталось понять как пользоватсяя таргетом, котры опасен для сервера и как записывать в отдельный файл тайлы :D
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

как циклы писать я научился еще в 7 классе слава богу все что ты написал конечно спасибо но я знал :) вопрос в другом мне как раз нужно узнать как взять инфо с тайла а с остальным яразберусь
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

Question_GimFlex wrote:как циклы писать я научился еще в 7 классе слава богу все что ты написал конечно спасибо но я знал :) вопрос в другом мне как раз нужно узнать как взять инфо с тайла а с остальным яразберусь

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

Code: Select all

sub main()
fPoleSize = CreateMap(TileMap)
      SToFile(TileMap, fPoleSize, GlobalFileMap)
end sub

sub CreateMap(mapArray)
DIM tileArray[7]
  tileArray[0] = '0'
  tileArray[1] = '6039'
  tileArray[2] = '6040'
  tileArray[3] = '6041'
  tileArray[4] = '6042'
  tileArray[5] = '6043'
  tileArray[6] = '6044'
  var mX, mY, mZ, StopFuckingSearch, nTileNum, cDelta, dX, dY
  cDelta = 5
  mX = UO.GetX()
  mY = UO.GetY()
  mZ = '251'
  var mSize = 0
  nTileNum = 0
  for dX = -cDelta to cDelta
      for dY = -cDelta to cDelta
          StopFuckingSearch = 0
          nTileNum = 0
          repeat                   
                UO.Print('Zapis tailov @: '+tileArray[nTileNum]+' '+STR(mX+dX)+' '+STR(mY+dY)+' '+mZ)
                Findtile(tileArray[nTileNum]+' '+STR(mX+dX)+' '+STR(mY+dY)+' '+mZ)                         
                nTileNum = nTileNum + 1                 
                if (nTileNum == 7) then
                    StopFuckingSearch = 1
                endif
          until StopFuckingSearch
      next
  next
  Return mSize
end sub

sub SToFile(wtSave, wtsSize, fName)
  var wtsLNum
  var f=file(fName)
  f.Create()
  f.Open()
  f.WriteLn(STR(wtsSize))
  for wtsLNum = 0 to (wtsSize - 1)
      f.WriteLn(wtSave[wtsLNum])
  next
  f.Close()
end sub

sub Findtile(tPoint)
  UO.Exec('target lasttargetkey lasttile')
  UO.Exec('waittargettile '+tPoint)
end sub

я в скрипт сильно не вдумывался, возможно там еще не правильный алгоритм... но полюбому нужно еще както сделать так чтобы он пробивал любой тайл а не только воды :wink:
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Question_GimFlex wrote:вопрос в другом мне как раз нужно узнать как взять инфо с тайла а с остальным яразберусь


Поставь АСМ и не мучайся. Там есть прямая функция получить тип с тайла по координатам.
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

спасибо щас попробую но вряд ли поможет ладно ченить придумаю
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Edred wrote:
Question_GimFlex wrote:вопрос в другом мне как раз нужно узнать как взять инфо с тайла а с остальным яразберусь


Поставь АСМ и не мучайся. Там есть прямая функция получить тип с тайла по координатам.


эдред дай пожалуйста ссылку где можно скачать и еще как это функция называется основной синтаксис спасибо :)
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Смотри тему в разделе Модификаций. Последние пару страниц. Там все есть.
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

смотрел мануал нашел а вот откуда скачать нет подкинь ссылку пожалуста спасибо :)
точнее все ссылки битые
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Еще раз перечитай что я тебе написал. И сделай точно то, что я написал. Большинство вопросов на форумах - оттого что люди невнимательно читают и ленятся сделать точно то, что им говорят.

Хм, у Деста сайт лежит. Зайди позже.
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
slonopotam
Posts: 270
Joined: 2006-08-05 14:09:06
Contact:

Post by slonopotam »

Угу, приват версию плз :)
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

а откуда эту модификацию можно скачать? сссылка в топике которая в первом ссообщении не пашет
slonopotam
Posts: 270
Joined: 2006-08-05 14:09:06
Contact:

Post by slonopotam »

У меня есть ASM-3 SE by AGRS.
Вот еслиб достать не SE а PE.......
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

аха, все ясно, прочитал последние страницы. как любимчик Едреда я АСМ получу последний в этом форуме.
slonopotam
Posts: 270
Joined: 2006-08-05 14:09:06
Contact:

Post by slonopotam »

Вот asm_505_11_se
http://www.webfile.ru/1208593
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

GrandMaster Ranger wrote:аха, все ясно, прочитал последние страницы. как любимчик Едреда я АСМ получу последний в этом форуме.


Тебе вполне достаточно стандартной редакции. А фтп у Дестракшена пока лежит. Поднимут - все можно будет взять.

ЗЫ: У меня нет любимчиков или нелюбимчиков. Но люди, считающие себя в чем-то специалистами, но не понимающие этого чего-то, меня раздражают. Особенно, когда они и не хотят научиться это понимать.
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

Edred wrote:
GrandMaster Ranger wrote:аха, все ясно, прочитал последние страницы. как любимчик Едреда я АСМ получу последний в этом форуме.


Тебе вполне достаточно стандартной редакции. А фтп у Дестракшена пока лежит. Поднимут - все можно будет взять.

ЗЫ: У меня нет любимчиков или нелюбимчиков. Но люди, считающие себя в чем-то специалистами, но не понимающие этого чего-то, меня раздражают. Особенно, когда они и не хотят научиться это понимать.

Эдред ты меня видно не правильно понял. в топиках я просто пытаюсь помочь людям по мере своих возможностей, нокогда я знаю что я прав я всегда буду отстаивать свои точку зрения, даже если я на самом деле не прав :D
п.с. у меня очень старая версия инжи, она мне нужна ради гампирования через uo.recall, если я установлю новый скрипт длл у меня не будет конфликтов версии с этим файлом? хотя.. лучше сделаю дубликат
GrandMaster Ranger
Posts: 73
Joined: 2005-01-14 13:41:05
Location: Одесса - мама
Contact:

Post by GrandMaster Ranger »

установил новую версию инжы.
переименовал файл скрипт длл в скриптенджин длл
залил все файлы асм в папку инжекта
туда же запихнул новый либекспат, которого почему то вобще не было ( инжект попросил этот файл )
запускаю клиент
Uo Client performed an unrecoverable invalid operation. Terminate?
п.с. установил более старую версию 412.25 уже запустилась. только в старой версии пару файликов ини бло, а в новой - нет
п.с.с. всё :D расшарился. установил поверх старой версии все файлы из новой.
Post Reply