Yoko

уважаемые читеры!

помогите ! мне нужен скрипт на обкладывание вокруг себя бумаги,
на дистанции в 4 клетки? у меня есть скрипт, но он медленный...можете подсказать или мож кто-то скинет его, очень надо ..плиз, а?

да..и после обкладывания чтоб эту бумагу собирал ...тож быстро??

-(
у меня типо такого......

а не знаете как потом собрать их все ???

По типу этого...

#   Potions Types & Color  -=#=-                     -=#=- 
Var ExplosionPotionType      =     "0x0F0E"            # Explosion Potion Type. 
Var ExplosionPotionColor     =     "0x0009"            # Explosion Potion Color. 

sub NoBomb() 
VAR Exit 
Exit=0 
UO.Set("finddistance","3") 
repeat 
UO.FindType(ExplosionPotionType,ExplosionPotionColor,'ground') 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(800) 
Else 
Exit=1 
endif 
until Exit==1 
end sub

_________________
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm

хмм не работает =((

ок уже..сам подправил -))


а
есть что-то на раскидку вокруг себя продвинутую версиюю .. или что-то подобное ?????

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

киньте читерские примочки плиз??

Самая читерская
Обкладывает место вокруг персонажа на 3 клетки
Помагает при таминге страшной живности в опасном регионе
Писалась очень давно, еще во времена первого знакомства с инжей и

For....
....
Next

sub BlockPlace()
Var o
Var BlockType   =   "0x1B9B"
Var WaitTime   =   50
Dim PlaceX[24]
   PlaceX[0]   =   3
   PlaceX[1]   =   2
   PlaceX[2]   =   1
   PlaceX[3]   =   0
   PlaceX[4]   =   -1
   PlaceX[5]   =   -2
   PlaceX[6]   =   -3
   PlaceX[7]   =   -3
   PlaceX[8]   =   -3
   PlaceX[9]   =   -3
   PlaceX[10]   =   -3
   PlaceX[11]   =   -3
   PlaceX[12]   =   -3
   PlaceX[13]   =   -2
   PlaceX[14]   =   -1
   PlaceX[15]   =   0
   PlaceX[16]   =   1
   PlaceX[17]   =   2
   PlaceX[18]   =   3
   PlaceX[19]   =   3
   PlaceX[20]   =   3
   PlaceX[21]   =   3
   PlaceX[22]   =   3
   PlaceX[23]   =   3
   
Dim PlaceY[24]   
   PlaceY[0]   =   3
   PlaceY[1]   =   3
   PlaceY[2]   =   3
   PlaceY[3]   =   3
   PlaceY[4]   =   3
   PlaceY[5]   =   3
   PlaceY[6]   =   3
   PlaceY[7]   =   2
   PlaceY[8]   =   1
   PlaceY[9]   =   0
   PlaceY[10]   =   -1
   PlaceY[11]   =   -2
   PlaceY[12]   =   -3
   PlaceY[13]   =   -3
   PlaceY[14]   =   -3
   PlaceY[15]   =   -3
   PlaceY[16]   =   -3
   PlaceY[17]   =   -3
   PlaceY[18]   =   -3
   PlaceY[19]   =   -2
   PlaceY[20]   =   -1
   PlaceY[21]   =   0
   PlaceY[22]   =   1
   PlaceY[23]   =   2

For o=0 to 23
   UO.FindType(BlockType,"-1")
   UO.Drop("1",PlaceX[o],PlaceY[o],"0","finditem")
   Wait(WaitTime)
   ; You can use checklag if you want.
Next
end sub

(==прикольный скрипт .....

а это зачем??=)))

For....
....
Next

все скрипты работают...уже хорошо.....НО появляется одна проблема....когда ставлю квадрат на себя....то из=за неровности поверхности....ветки пропадают......
...
.
.......можно сделать так, чтоб скрипт клал на землю ветки, а то по координатам X,Y,Z.....они пропадают(наверно проваливаются)
....мне надо не для боевых действий.

Попробуй удалить их из кода и узнаеш =)
Ух давно писал еще для тамки найта и уника на DrW

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

sub BlockPlace()
Var o
Var BlockType   =   "0x1B9B"
Var WaitTime   =   50
Dim PlaceX[24]
   PlaceX[0]   =   3
   PlaceX[1]   =   2
   PlaceX[2]   =   1
   PlaceX[3]   =   0
   PlaceX[4]   =   -1
   PlaceX[5]   =   -2
   PlaceX[6]   =   -3
   PlaceX[7]   =   -3
   PlaceX[8]   =   -3
   PlaceX[9]   =   -3
   PlaceX[10]   =   -3
   PlaceX[11]   =   -3
   PlaceX[12]   =   -3
   PlaceX[13]   =   -2
   PlaceX[14]   =   -1
   PlaceX[15]   =   0
   PlaceX[16]   =   1
   PlaceX[17]   =   2
   PlaceX[18]   =   3
   PlaceX[19]   =   3
   PlaceX[20]   =   3
   PlaceX[21]   =   3
   PlaceX[22]   =   3
   PlaceX[23]   =   3
   
Dim PlaceY[24]   
   PlaceY[0]   =   3
   PlaceY[1]   =   3
   PlaceY[2]   =   3
   PlaceY[3]   =   3
   PlaceY[4]   =   3
   PlaceY[5]   =   3
   PlaceY[6]   =   3
   PlaceY[7]   =   2
   PlaceY[8]   =   1
   PlaceY[9]   =   0
   PlaceY[10]   =   -1
   PlaceY[11]   =   -2
   PlaceY[12]   =   -3
   PlaceY[13]   =   -3
   PlaceY[14]   =   -3
   PlaceY[15]   =   -3
   PlaceY[16]   =   -3
   PlaceY[17]   =   -3
   PlaceY[18]   =   -3
   PlaceY[19]   =   -2
   PlaceY[20]   =   -1
   PlaceY[21]   =   0
   PlaceY[22]   =   1
   PlaceY[23]   =   2

For o=0 to 23
   UO.FindType(BlockType,"-1")
   UO.Drop("1",PlaceX[o],PlaceY[o],"0","finditem")
   Wait(WaitTime)
   ; You can use checklag if you want.
Next
end sub

прям не знаю что делать.......

STR(uo.GetZ("self")) или что то вроде этого.
поставь вместо 0

вот так :

UO.Drop('1',STR(UO.GetX('my')-2),STR(UO.GetY('my')),0,'finditem') 

все равно....закапывает ветки =))))

ну и где ты 0 убрал ?
вот как:

UO.Drop('1',STR(UO.GetX('my')-2),STR(UO.GetY('my')),STR(UO.GetZ('my')),'finditem')

все равно ...не на бугорок кладет,а в него.....

ну иии лан.....буду как в старые времена--- руками докладывать.. .
.
.
.....спасибо.

Попробуй преподнять вещь
Вместо 0 по Z поставь 3 или 5 типо этого чтонить