наверно читерство??

Gromiz · Post by **Gromiz** » 2005-03-26 18:23:45

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

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

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

666Man666 · Post by **666Man666** » 2005-03-26 18:35:17

http://yoko.netroof.net/forum/viewtopic ... light=drop

Gromiz · Post by **Gromiz** » 2005-03-26 18:43:38

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

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

SAMURAI · Post by **SAMURAI** » 2005-03-26 20:07:19

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

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

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

Code: Select all

#   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

Gromiz · Post by **Gromiz** » 2005-03-26 20:28:53

SAMURAI wrote: По типу этого...

Code: Select all

#   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

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

Gromiz · Post by **Gromiz** » 2005-03-26 20:55:28

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

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

Gromiz · Post by **Gromiz** » 2005-03-26 22:44:45

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

Gromiz · Post by **Gromiz** » 2005-03-27 02:45:44

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

I'm · Post by **I'm** » 2005-03-27 09:38:38

Самая читерская

Обкладывает место вокруг персонажа на 3 клетки

Помагает при таминге страшной живности в опасном регионе

Писалась очень давно, еще во времена первого знакомства с инжей и

Code: Select all

For....
....
Next

Code: Select all

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

Gromiz · Post by **Gromiz** » 2005-03-27 10:00:18

I'm wrote:Самая читерская
Обкладывает место вокруг персонажа на 3 клетки
Помагает при таминге страшной живности в опасном регионе

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

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

Code: Select all

For....
....
Next

Gromiz · Post by **Gromiz** » 2005-04-04 19:06:25

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

I'm · Post by **I'm** » 2005-04-04 21:59:24

Gromiz wrote:
I'm wrote:Самая читерская
Обкладывает место вокруг персонажа на 3 клетки
Помагает при таминге страшной живности в опасном регионе
(==прикольный скрипт .....

а это зачем??=)))
Code: Select all
For....
....
Next

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

Gromiz · Post by **Gromiz** » 2005-04-05 12:57:03

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

Code: Select all

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

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

Gromiz · Post by **Gromiz** » 2005-04-05 18:53:20

Gromiz · Post by **Gromiz** » 2005-04-07 08:37:48

=god= · Post by **=god=** » 2005-04-07 12:25:08

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

Gromiz · Post by **Gromiz** » 2005-04-07 16:00:27

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

вот так :

Code: Select all

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

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

=god= · Post by **=god=** » 2005-04-07 18:00:50

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

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

Gromiz · Post by **Gromiz** » 2005-04-07 18:29:50

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

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

.
.
.
.....спасибо.

I'm · Post by **I'm** » 2005-04-07 21:22:56

Попробуй преподнять вещь

Вместо 0 по Z поставь 3 или 5 типо этого чтонить