Люди добрые поделитесь сцп на скупку регов а я банками поделюсь к зиме
Toggle shoutbox Chat
|
Люди Добрые Поделитесь Сцп На Скупку Регов А Я Банками Поделюсь К Зиме
Started by Koljaska, Oct 18 2016 20:39
4 replies to this topic
#1
Posted 18 October 2016 - 20:39
#2
Posted 18 October 2016 - 20:54
Что делает?
- Летает по "точкам"
- Скупает до фулл веса
- Летит к дому, кидает в сундук
- Берёт по 16 регов для рекалла
- Ждёт 5 минут
- Летит занаго
Фишки:
- На EasyUO
- Заточен под синюю фракцию (где-то 6 магазинов)
- Работает только в связке с Inject
Для запуска:
- Создай в Inject в buy/sell новую скупку и укажи какие типы нужны (я ставил гинсег, шайд, фертайл и что-то ещё)
- Открой EasyUO, загрузи скрипт (убедись, что в Status Bar -> Charname твой акк)
- Переделай "точки" (последовательность например)
- Смени координаты руны к дому
- Укажи айди сундука и координаты к нему
- Запускай скрипт
Будут вопросы, обращайся.
set %runebookID YUUNLMD ; 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 ROSLKMD ; 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 QIFVB Ciar PXXUB Uriana ; 1st recall rune [by reagents], vendor's ID, vendor's name gosub Recall 266 453 IRGVB Sevilin HEWUB Victoria ; 2nd recall rune [by reagents], vendor's ID, vendor's name gosub Recall 301 280 QKXUB Aracia FULUB Warner NGDFB Amadica ; 3rd recall rune [by reagents], vendor's ID, vendor's name gosub Recall 301 453 OFAVB Sakinah MEAVB Margarita HUSUB Vanda ; 4th --/--/-- gosub Recall 335 280 ADRZB WMCFB Perouze ; 5th --/--/-- gosub Recall 335 453 TBVZB RMLUB Yanice SIQUB Lily ; 6th --/--/-- gosub teleportHouse ; teleports to unload, take regs for recalling gosub Recall 260 349 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
- Buddah likes this
#3
Posted 19 October 2016 - 18:02
Спасибо
#4
Posted 03 January 2017 - 11:23
Вопрос по НПС , 1 и 5 круги НПС где они находятся их координаты?
#5
Posted 03 January 2017 - 12:22
Думаю тебе 6 магазов не хватит, желательно запиши нпц сам) ,инфо айди бота и никнэйм
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users