Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Boksjorchik : (Today, 01:08) jesli ti online jesche
@  Boksjorchik : (Today, 01:08) davaj 11kk zaberu
@  Udachny : (Today, 00:17) Boksjorchik - глянь на вендоре Demping. Скину 25% с рук
@  Boksjorchik : (Today, 00:16) BUY GODS BOW!!!! BUY CHANGE NAME DEED!!!!!!!!
@  Leps : (Yesterday, 23:43) BUY CARGO KOZHU
@  kocinsh : (Yesterday, 22:12) 30kk
@  kocinsh : (Yesterday, 22:12) sell 10LVL cleric+email +40alchemy items
@  Egoons : (Yesterday, 19:50) buljba Skype Riepausis
@  Buljba : (Yesterday, 18:55) sell 50 rp -24kk
@  Ja-ljutijs : (Yesterday, 18:31) muzzy v pm kinj skype
@  Leps : (Yesterday, 17:27) BUY CARGO KOZHU !
@  regi : (Yesterday, 17:03) @opas, v skype 4irkan :)
@  muzzy : (Yesterday, 16:25) nuzen skripter zapomosh podgonu Rp
@  opas : (Yesterday, 16:06) @regi а что надо ?
@  Ferrari : (Yesterday, 14:07) Buy Glory Ingi !!!!
@  regi : (Yesterday, 13:57) Кто пользуется ss.lv? Есть ли тут ? :)
@  Kazantip : (Yesterday, 12:36) OTDAM GEROJA V HOROWIE RUKI (BORODA 12 LVL WAR) SKYPE:::: babkuy
@  Kazantip : (Yesterday, 12:36) OTDAM GEROJA V HOROWIE RUKI (BORODA 12 LVL WAR) SKYPE:::: babkuy
@  Leps : (Yesterday, 11:42) BUY CARGO KOZHU
@  Ferrari : (Yesterday, 01:16) lichno ja vsjo na pvp ne pojdu dazhe nax nada ))))

Photo

Куплю Скрипт Нуби Остров


  • Please log in to reply
5 replies to this topic

#1 Abyzov

Abyzov

    Newbie

  • Members
  • 5 posts

Posted 10 January 2017 - 07:03

Куплю за разумные деньги мининг на нуби остров)

 

Чтобы копал и в банк относил



#2 IvanHaritonov

IvanHaritonov

    Novice

  • Members
  • 49 posts

Posted 11 January 2017 - 00:49

в разделе скрпиты - search сделай. Найдеш бесплатный



#3 Abyzov

Abyzov

    Newbie

  • Members
  • 5 posts

Posted 11 January 2017 - 06:34

в разделе скрпиты - search сделай. Найдеш бесплатный

Да нашел но проблема)) Банк бокс прописал он не скидывает руду а крашит уо) 

потом с ходьбой беда...

 

Не поможешь с настройкой за оплату?)



#4 Abyzov

Abyzov

    Newbie

  • Members
  • 5 posts

Posted 11 January 2017 - 16:16

С банком я разобрался) И с ходилкой вроде как тоже.

 

Но он как выкапает указаное колво веса он не идет а копает дальше( 



#5 Basmiko

Basmiko

    Newbie

  • Members
  • 19 posts

Posted 11 January 2017 - 16:33

; Set Up The Following Variables:
set %maxWeight 470        ; ???????????? ???
set %box ZIMXJMD          ; ????? ? ????? ? ?????
set %xCoord 5904         ; ?????????? ????? ????? ?
set %yCoord 2850          ; Y ?????????? ????? ?????
set %dropmarganece #true ; #true - ????????? ????????
set %dropBronze #true ; #true - ????????? ????????
set %dropiron #true ; #true - ????????? ????????
set %dropcopper #true ; #true - ????????? ????????
set %dropcorrundum #true ; #true - ????????? ????????
set %droptourmaline #true ; #true - ????????? ????????
set %skillItemChange #False; #true - ??????????? ????? ??????, #false - ?? ???????????
set %recall #false         ; #true - ?????? ?? ???????, #false - ????? ??????
; ??? ?? ?????, ???? ?? ???????????? ????? ?????? %skillItemChange #false
set %skillRobe PXXBKMD    ; Skill Roba (ID)
set %skillCloak BFKNKMD  ; Skill Cloack (ID)
set %skillMask YZSQLMD    ; Skill Mask (ID)
set %simpleRobe VTIPKMD  ; Parasta Roba (ID)
set %simpleCloak XJWWKMD  ; Parastais cloack (ID)
set %simpleMask OSH   ; ring helm (ID)
; End Of Changable Clothes List
; ?? ????? ???? %recall #false
set %runebookID BSJJLMD  ; ?????? ID
set %runeNumberToHome 4  ; ????? ???? ? ???
set %runeNumberToCave 4  ; ????? ???? ? ??????
set %amountRecalls 10     ; ??????? ???????? ?????

set %repairwep #false       ; false = ?? ????? ????????????? ??????
set %weapon BGJIKMD       ; ?????? (ID)
set %ings RMK             ; ?????? (Type, ??????????? ?????? ???? ? ????? ? ?????, ?? ?????? ?? ???????? ??????!)
set %repairTool XXHTKMD   ; repair tool (ID)


; Do Not Set These Variables If %tracking #false
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL


if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}

start:

GOSUB LJING 5490 2925 1351 0
GOSUB LJING 5490 2924 1354 0
GOSUB LJING 5490 2923 1356 0
GOSUB LJING 5490 2922 1355 0
GOSUB LJING 5490 2921 1354 0
GOSUB LJING 5491 2926 1351 0
GOSUB LJING 5491 2925 1343 0
GOSUB LJING 5491 2924 1343 0
GOSUB LJING 5491 2923 1343 0
GOSUB LJING 5491 2921 1343 0
GOSUB LJING 5491 2920 1343 0
GOSUB LJING 5491 2919 1386 0
GOSUB LJING 5492 2918 1386 0
GOSUB LJING 5492 2919 1342 0
GOSUB LJING 5492 2920 1343 0
GOSUB LJING 5492 2921 1342 0
GOSUB LJING 5492 2922 1343 0
GOSUB LJING 5492 2923 1343 0
GOSUB LJING 5492 2924 1343 0
GOSUB LJING 5492 2925 1343 0
GOSUB LJING 5492 2926 1343 0
GOSUB LJING 5492 2927 1351 0
GOSUB LJING 5493 2928 1351 0
GOSUB LJING 5493 2927 1343 0
GOSUB LJING 5493 2926 1343 0
GOSUB LJING 5493 2925 1343 0
GOSUB LJING 5493 2924 1343 0
GOSUB LJING 5493 2923 1343 0
GOSUB LJING 5493 2922 1343 0
GOSUB LJING 5493 2921 1343 0
GOSUB LJING 5493 2920 1343 0
GOSUB LJING 5493 2919 1343 0
GOSUB LJING 5493 2918 1357 0
GOSUB LJING 5494 2918 1357 0
GOSUB LJING 5494 2919 1343 0
GOSUB LJING 5494 2920 1343 0
GOSUB LJING 5494 2921 1343 0
GOSUB LJING 5494 2922 1343 0
GOSUB LJING 5494 2923 1343 0
GOSUB LJING 5494 2924 1343 0
GOSUB LJING 5494 2925 1343 0
GOSUB LJING 5494 2926 1343 0
GOSUB LJING 5494 2927 1343 0
GOSUB LJING 5494 2928 1343 0
GOSUB LJING 5494 2929 1351 0
GOSUB LJING 5495 2930 1351 0
GOSUB LJING 5495 2928 1343 0
GOSUB LJING 5495 2927 1343 0
GOSUB LJING 5495 2926 1343 0
GOSUB LJING 5495 2924 1343 0
GOSUB LJING 5495 2923 1343 0
GOSUB LJING 5495 2922 1343 0
GOSUB LJING 5495 2921 1343 0
GOSUB LJING 5495 2920 1343 0
GOSUB LJING 5495 2919 1343 0
GOSUB LJING 5495 2918 1359 0
GOSUB LJING 5496 2918 1358 0
GOSUB LJING 5496 2919 1343 0
GOSUB LJING 5496 2920 1343 0
GOSUB LJING 5496 2921 1343 0
GOSUB LJING 5496 2922 1343 0
GOSUB LJING 5496 2923 1343 0
GOSUB LJING 5496 2924 1343 0
GOSUB LJING 5496 2925 1343 0
GOSUB LJING 5496 2926 1343 0
GOSUB LJING 5496 2927 1343 0
GOSUB LJING 5496 2928 1343 0
GOSUB LJING 5496 2929 1343 0
GOSUB LJING 5496 2930 1345 0
GOSUB LJING 5497 2930 1347 0
GOSUB LJING 5497 2929 1343 0
GOSUB LJING 5497 2928 1343 0
GOSUB LJING 5497 2927 1343 0
GOSUB LJING 5497 2926 1343 0
GOSUB LJING 5497 2925 1343 0
GOSUB LJING 5497 2924 1343 0
GOSUB LJING 5497 2923 1343 0
GOSUB LJING 5497 2922 1343 0
GOSUB LJING 5497 2921 1343 0
GOSUB LJING 5497 2920 1343 0
GOSUB LJING 5497 2919 1343 0
GOSUB LJING 5497 2918 1357 0
GOSUB LJING 5498 2918 1359 0
GOSUB LJING 5498 2919 1343 0
GOSUB LJING 5498 2920 1343 0
GOSUB LJING 5498 2921 1343 0
GOSUB LJING 5498 2922 1343 0
GOSUB LJING 5498 2923 1343 0
GOSUB LJING 5498 2924 1343 0
GOSUB LJING 5498 2925 1343 0
GOSUB LJING 5498 2926 1343 0
GOSUB LJING 5498 2927 1343 0
GOSUB LJING 5498 2928 1343 0
GOSUB LJING 5498 2929 1343 0
GOSUB LJING 5498 2930 1343 0
GOSUB LJING 5498 2931 1351 0
GOSUB LJING 5499 2931 1345 0
GOSUB LJING 5500 2931 1361 0
GOSUB LJING 5500 2930 1343 0
GOSUB LJING 5501 2929 1343 0
GOSUB LJING 5502 2929 1346 0
GOSUB LJING 5503 2929 1347 0
GOSUB LJING 5503 2928 1343 0
GOSUB LJING 5503 2927 1343 0
GOSUB LJING 5503 2926 1343 0
GOSUB LJING 5503 2925 1343 0
GOSUB LJING 5503 2924 1343 0
GOSUB LJING 5503 2923 1343 0
GOSUB LJING 5503 2922 1343 0
GOSUB LJING 5503 2921 1343 0
GOSUB LJING 5503 2920 1343 0
GOSUB LJING 5503 2919 1343 0
GOSUB LJING 5503 2918 1343 0
GOSUB LJING 5503 2917 1343 0
GOSUB LJING 5503 2916 1343 0
GOSUB LJING 5503 2915 1358 0
GOSUB LJING 5504 2915 1357 0
GOSUB LJING 5504 2916 1343 0
GOSUB LJING 5504 2917 1343 0
GOSUB LJING 5504 2918 1343 0
GOSUB LJING 5504 2919 1343 0
GOSUB LJING 5504 2920 1343 0
GOSUB LJING 5504 2921 1343 0
GOSUB LJING 5504 2922 1343 0
GOSUB LJING 5504 2923 1343 0
GOSUB LJING 5504 2924 1343 0
GOSUB LJING 5504 2925 1343 0
GOSUB LJING 5504 2927 1343 0
GOSUB LJING 5504 2928 1343 0
GOSUB LJING 5505 2928 1346 0
GOSUB LJING 5505 2927 1343 0
GOSUB LJING 5505 2926 1343 0
GOSUB LJING 5505 2925 1343 0
GOSUB LJING 5505 2924 1343 0
GOSUB LJING 5505 2923 1343 0
GOSUB LJING 5505 2922 1343 0
GOSUB LJING 5505 2921 1343 0
GOSUB LJING 5505 2920 1343 0
GOSUB LJING 5505 2919 1343 0
GOSUB LJING 5505 2918 1342 0
GOSUB LJING 5505 2917 1343 0
GOSUB LJING 5505 2916 1343 0
GOSUB LJING 5506 2916 1363 0
GOSUB LJING 5506 2917 1343 0
GOSUB LJING 5506 2918 1343 0
GOSUB LJING 5506 2919 1343 0
GOSUB LJING 5506 2920 1343 0
GOSUB LJING 5506 2921 1343 0
GOSUB LJING 5506 2922 1343 0
GOSUB LJING 5506 2923 1343 0
GOSUB LJING 5506 2924 1343 0
GOSUB LJING 5506 2925 1343 0
GOSUB LJING 5506 2926 1343 0
GOSUB LJING 5506 2927 1343 0
GOSUB LJING 5506 2928 1361 0
GOSUB LJING 5507 2927 1345 0
GOSUB LJING 5507 2925 1343 0
GOSUB LJING 5507 2924 1343 0
GOSUB LJING 5507 2923 1343 0
GOSUB LJING 5507 2922 1343 0
GOSUB LJING 5507 2921 1343 0
GOSUB LJING 5507 2920 1343 0
GOSUB LJING 5507 2919 1343 0
GOSUB LJING 5507 2918 1343 0
GOSUB LJING 5507 2917 1363 0
GOSUB LJING 5508 2917 1353 0
GOSUB LJING 5508 2918 1343 0
GOSUB LJING 5508 2919 1343 0
GOSUB LJING 5508 2920 1343 0
GOSUB LJING 5508 2921 1343 0
GOSUB LJING 5508 2922 1343 0
GOSUB LJING 5508 2923 1343 0
GOSUB LJING 5508 2924 1343 0
GOSUB LJING 5508 2925 1343 0
GOSUB LJING 5508 2926 1343 0
GOSUB LJING 5509 2925 1343 0
GOSUB LJING 5510 2924 1343 0
GOSUB LJING 5510 2922 1343 0
GOSUB LJING 5510 2921 1343 0
GOSUB LJING 5510 2920 1343 0
GOSUB LJING 5510 2919 1343 0
GOSUB LJING 5510 2918 1343 0
GOSUB LJING 5510 2917 1343 0
GOSUB LJING 5510 2916 1343 0
GOSUB LJING 5510 2915 1353 0
GOSUB LJING 5511 2915 1357 0
GOSUB LJING 5511 2916 1343 0
GOSUB LJING 5511 2917 1343 0
GOSUB LJING 5511 2918 1343 0
GOSUB LJING 5511 2919 1343 0
GOSUB LJING 5511 2920 1343 0
GOSUB LJING 5511 2921 1343 0
GOSUB LJING 5511 2922 1343 0
GOSUB LJING 5511 2923 1343 0
GOSUB LJING 5511 2924 1345 0
GOSUB LJING 5512 2924 1345 0
GOSUB LJING 5512 2923 1343 0
GOSUB LJING 5512 2922 1343 0
GOSUB LJING 5512 2921 1343 0
GOSUB LJING 5512 2920 1343 0
GOSUB LJING 5512 2919 1343 0
GOSUB LJING 5512 2918 1343 0
GOSUB LJING 5512 2917 1343 0
GOSUB LJING 5512 2916 1343 0
GOSUB LJING 5512 2915 1357 0
GOSUB LJING 5513 2915 1352 0
GOSUB LJING 5513 2916 1343 0
GOSUB LJING 5513 2917 1342 0
GOSUB LJING 5513 2918 1343 0
GOSUB LJING 5513 2919 1343 0
GOSUB LJING 5513 2920 1343 0
GOSUB LJING 5513 2921 1343 0
GOSUB LJING 5513 2922 1343 0
GOSUB LJING 5513 2923 1343 0
GOSUB LJING 5513 2924 1347 0
GOSUB LJING 5514 2924 1347 0
GOSUB LJING 5514 2923 1343 0
GOSUB LJING 5514 2922 1343 0
GOSUB LJING 5514 2921 1343 0
GOSUB LJING 5514 2920 1343 0
GOSUB LJING 5514 2919 1343 0
GOSUB LJING 5514 2918 1343 0
GOSUB LJING 5514 2917 1343 0
GOSUB LJING 5514 2916 1352 0
GOSUB LJING 5515 2916 1353 0
GOSUB LJING 5515 2917 1343 0
GOSUB LJING 5515 2918 1343 0
GOSUB LJING 5515 2919 1343 0
GOSUB LJING 5515 2920 1343 0
GOSUB LJING 5515 2921 1343 0
GOSUB LJING 5515 2922 1343 0
GOSUB LJING 5515 2923 1343 0
GOSUB LJING 5515 2924 1345 0
GOSUB LJING 5516 2924 1345 0
GOSUB LJING 5516 2923 1343 0
GOSUB LJING 5516 2922 1343 0
GOSUB LJING 5516 2921 1343 0
GOSUB LJING 5516 2920 1343 0
GOSUB LJING 5516 2919 1343 0
GOSUB LJING 5516 2918 1343 0
GOSUB LJING 5516 2917 1343 0
GOSUB LJING 5516 2916 1359 0
GOSUB LJING 5517 2915 1353 0
GOSUB LJING 5517 2916 1343 0
GOSUB LJING 5517 2917 1343 0
GOSUB LJING 5517 2918 1343 0
GOSUB LJING 5517 2919 1343 0
GOSUB LJING 5517 2920 1343 0
GOSUB LJING 5516 2923 1343 0




goto start

sub ljing
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1 40s
finditem NPF_QPF C
if #findcnt = 0
{
  display ok Pickaxe wasn't found!
  pause
}
set #lobjectid #findid
event macro 17 0
target 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 40
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
return

sub scan
scan:
gosub element
scanjournal
gosub checkHP
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
+ || ( You_can't_use_that in #journal ) || ( That_is_too_far in #journal )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 10
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
goto start
return

sub moveItems
ignoreitem reset 1
gosub runToBox
msg Bank $
wait 1s
msg BANK $
finditem %box ZTF
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 25
}
}
until #findcnt = 0
msg :) $
wait 35
if %repairwep
{
msg T $
gosub repairWeapon
}
if %recall
gosub recalls
move 5878 2885       ;?????????? ?? ?????? ?? ????? ? ?????, ?????? ????? ?? ???????
wait 1
move 5864 2891               ;?????????? ?? ?????? ?? ????? ? ?????, ?????? ????? ?? ???????
wait 1
move 5823 2891
wait 1
move 5752 2912
wait 1
move 5544 2812
wait 1
move 5536 2917
wait 1
move 5515 2917
wait 1
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215   ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
move 5526 2917           ;?????????? ?? ?????? ? ?????, ?????? ????? ?? ???????
wait 1
move 5549 2917           ;?????????? ?? ?????? ? ?????, ?????? ????? ?? ???????
wait 1
move 5727 2907      ;?????????? ?? ?????? ? ?????, ?????? ????? ?? ???????
wait 1
move 5821 2890
wait 1
move 5862 2890
wait 1
move 5885 2877
wait 1
move 5903 2852
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
if hungry in #sysmsg
{
gosub eat
return
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
  event sysmessage Runebook not found!
  halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub ghost
if #charghost = YES
{
terminate uo
halt
}
return

sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
wait 20
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
wait 20
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
wait 20
}
until #findcnt = 0
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 15s
return

sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return

sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
  wait 5s
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
}
if #findcol = 1325 || #findcol = 1218 || #findcol = 1160
+ || #findcol = 2125 || #findcol = 1548
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 50
}
ignoreitem #findid 1
goto dropLoop
return

sub loot
set %lootTime #scnt + 30
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 2s
wait 20
if #conttype = YFM
set %corpse #contid
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 35
}
until #false
}
return

sub element
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
msg Uh, kak ja ego! Ubit, padla! $
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
return

sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 20
}
return

sub repairWeapon
repeat {
put1:
repeat
{
  finditem %weapon C_ , #charid
  exevent drag #findid
  exevent dropc #backpackid
  wait 25
  finditem %weapon C_ , #charid
}
until #findcnt = 0
finditem %weapon C_ , #backpackid
if #findcnt = 0
goto put1
take1:
  set #lobjectid %box
  event macro 17 0
  wait 25
  finditem %ings C_, %box
  exevent drag #findid 5
  exevent dropc #backpackid
  wait 25
finditem %ings C_, #backpackid
if #findcnt = 0
goto take1

_repair:
  set #lobjectid %repairTool
  set #ltargetid %weapon
  set #ltargetkind 1
  set %lag #scnt + 10
  event macro 17 0
  wait 20
  target
  while #targcurs <> 1 && #scnt < %lag
  wait 1
  event macro 22 0
  wait 20
  finditem %ings C_, #backpackid

until You_fully_repaired || Your in #sysmsg
msg repaired sucessfully! $

take2:
  set #lobjectid %box
  event macro 17 0
  wait 10
  finditem %ings C_, #backpackid
  exevent drag #findid #findstack
  exevent dropc %box
  wait 25
finditem %ings C_, #backpackid
if #findcnt > 0
{ goto take2  }
msg resursi polozhil nazad, snova v put! $
return




поменяй ид сундука в банке и запускай в пещере
немного тупит когда идёт после банка назад в пещеру) но работает на ура)



#6 Abyzov

Abyzov

    Newbie

  • Members
  • 5 posts

Posted 11 January 2017 - 21:13


поменяй ид сундука в банке и запускай в пещере
немного тупит когда идёт после банка назад в пещеру) но работает на ура)

Спасибо. Черкани в ЛС скайп ) Чем смогу помогу. 






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users