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

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