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

Yoko http://forum.yoko.com.ua/

Помогите плз переделать скрипт. http://forum.yoko.com.ua/viewtopic.php?f=17&t=15423	Page 1 of 1

Author:	Jekaaa [ 2010-01-08 20:08:16 ]
Post subject:	Помогите плз переделать скрипт.
Есть вот такой скрипт: [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 лутал следующие три вещи моментально. Сам в скриптах не секу но думаю это не сложно =) кому не в лом помогите плиз =)

Author:	GRaysev [ 2010-01-10 10:02:50 ]
Post subject:
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

Author:

Nmy [ 2010-01-10 13:42:15 ]

Post subject:

Не тестил

Code:

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

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/