Помогите плз переделать скрипт.

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Jekaaa
Posts: 89
Joined: 2008-12-12 04:30:22

Помогите плз переделать скрипт.

Post by Jekaaa »

Есть вот такой скрипт:

[code]sub loot1()
var i,n
Dim A[38]
A[1] = 0x13B1 ;Heru
A[2] = 0x13BF ; Chainmail Tunic
A[3] = 0x13BE ; Chainmail Leggings
A[4] = 0x13BB ; Chainmail Coif
A[5] = 0x13EE ; Chainmail Sleeves
A[6] = 0x13EB ; Chainmail Gloves
A[7] = 0x0eed ;gold
A[8] = 0x1F1C ; Sid
A[9] = 0x13FA ; Topor
A[10] = 0x1406 ; Meisa
A[11] = 0x1415 ; Plate Chest
A[12] = 0x1411 ; Plate Leggings
A[13] = 0x1410 ; Plate Arms
A[14] = 0x1414 ; Plate Gauntlets
A[15] = 0x1412 ; Plate Helmet
A[16] = 0x1413 ; Plate Gorget
A[17] = 0x1B76 ; Plate Shield
A[18] = 0x0E76 ; Kruglaya Sumka
A[19] = 0x0E75 ; Vendorskaya Sumka
A[20] = 0x0F3F ; Strela
A[21] = 0x0F0C ; Alximiya
A[22] = 0x0F0E ; Alximiya
A[23] = 0x0F09 ; Alximiya
A[24] = 0x1515 ; Plash
A[25] = 0x1F03 ; Roba
A[26] = 0x0F88 ; NS
A[27] = 0x0F7B ; BM
A[28] = 0x0F7A ; BP
A[29] = 0x0F8C ; SA
A[30] = 0x0F8D ; SS
A[31] = 0x0F86 ; MR
A[32] = 0x0F84 ; GA
A[33] = 0x0F85 ; GS
A[34] = 0x0E21 ; Binti
A[35] = 0x1078
A[36] = 0x1BD1
A[37] = 0x1BFB
A[38] = 0x14EB
i = 500
FOR n=1 TO 38
uo.findtype(A[n],"-1","lastcontainer")
if UO.GetQuantity('finditem') then
UO.grab(0,"finditem")
; uo.print("Found "+str(uo.findcount()))
Wait(i)
end if
NEXT
end sub[/code]

Нужно что бы он лутал по три вещи моментально а через паузу в 500 лутал следующие три вещи моментально. Сам в скриптах не секу но думаю это не сложно =) кому не в лом помогите плиз =)
GRaysev
Posts: 2
Joined: 2010-01-10 09:58:02
Contact:

Post by GRaysev »

sub loot1()
var i,n
Dim A[38]
A[1] = 0x13B1 ;Heru
A[2] = 0x13BF ; Chainmail Tunic
A[3] = 0x13BE ; Chainmail Leggings
A[4] = 0x13BB ; Chainmail Coif
A[5] = 0x13EE ; Chainmail Sleeves
A[6] = 0x13EB ; Chainmail Gloves
A[7] = 0x0eed ;gold
A[8] = 0x1F1C ; Sid
A[9] = 0x13FA ; Topor
A[10] = 0x1406 ; Meisa
A[11] = 0x1415 ; Plate Chest
A[12] = 0x1411 ; Plate Leggings
A[13] = 0x1410 ; Plate Arms
A[14] = 0x1414 ; Plate Gauntlets
A[15] = 0x1412 ; Plate Helmet
A[16] = 0x1413 ; Plate Gorget
A[17] = 0x1B76 ; Plate Shield
A[18] = 0x0E76 ; Kruglaya Sumka
A[19] = 0x0E75 ; Vendorskaya Sumka
A[20] = 0x0F3F ; Strela
A[21] = 0x0F0C ; Alximiya
A[22] = 0x0F0E ; Alximiya
A[23] = 0x0F09 ; Alximiya
A[24] = 0x1515 ; Plash
A[25] = 0x1F03 ; Roba
A[26] = 0x0F88 ; NS
A[27] = 0x0F7B ; BM
A[28] = 0x0F7A ; BP
A[29] = 0x0F8C ; SA
A[30] = 0x0F8D ; SS
A[31] = 0x0F86 ; MR
A[32] = 0x0F84 ; GA
A[33] = 0x0F85 ; GS
A[34] = 0x0E21 ; Binti
A[35] = 0x1078
A[36] = 0x1BD1
A[37] = 0x1BFB
A[38] = 0x14EB
i = 500
FOR n=1 TO 38
uo.findtype(A[n],"-1","lastcontainer")
if UO.GetQuantity('finditem') then
UO.grab('3',"finditem")
; uo.print("Found "+str(uo.findcount()))
Wait(i)
end if
NEXT
end sub
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Не тестил

Code: Select all

sub loot1() 
var i=0,n 
Dim A[38] 
A[1] = 0x13B1 ;Heru 
A[2] = 0x13BF ; Chainmail Tunic 
A[3] = 0x13BE ; Chainmail Leggings 
A[4] = 0x13BB ; Chainmail Coif 
A[5] = 0x13EE ; Chainmail Sleeves 
A[6] = 0x13EB ; Chainmail Gloves 
A[7] = 0x0eed ;gold 
A[8] = 0x1F1C ; Sid 
A[9] = 0x13FA ; Topor 
A[10] = 0x1406 ; Meisa 
A[11] = 0x1415 ; Plate Chest 
A[12] = 0x1411 ; Plate Leggings 
A[13] = 0x1410 ; Plate Arms 
A[14] = 0x1414 ; Plate Gauntlets 
A[15] = 0x1412 ; Plate Helmet 
A[16] = 0x1413 ; Plate Gorget 
A[17] = 0x1B76 ; Plate Shield 
A[18] = 0x0E76 ; Kruglaya Sumka 
A[19] = 0x0E75 ; Vendorskaya Sumka 
A[20] = 0x0F3F ; Strela 
A[21] = 0x0F0C ; Alximiya 
A[22] = 0x0F0E ; Alximiya 
A[23] = 0x0F09 ; Alximiya 
A[24] = 0x1515 ; Plash 
A[25] = 0x1F03 ; Roba 
A[26] = 0x0F88 ; NS 
A[27] = 0x0F7B ; BM 
A[28] = 0x0F7A ; BP 
A[29] = 0x0F8C ; SA 
A[30] = 0x0F8D ; SS 
A[31] = 0x0F86 ; MR 
A[32] = 0x0F84 ; GA 
A[33] = 0x0F85 ; GS 
A[34] = 0x0E21 ; Binti 
A[35] = 0x1078 
A[36] = 0x1BD1 
A[37] = 0x1BFB 
A[38] = 0x14EB 
if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
	for n=1 to 38 
		while uo.getquantity('<'+A[n])
			uo.moveitem('<'+A[n])
			if i<4 then
				i=i+1
			else
				wait(500)
				i=0
			endif
		wend
	next 
endif
end sub 
Post Reply