Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

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


  • Please log in to reply
6 replies to this topic

#1 Abyzov

Abyzov

    Newbie

  • Members
  • 5 posts

Posted 10 January 2017 - 07:03

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

 

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



#2 IvanHaritonov

IvanHaritonov

    Player

  • Members
  • 172 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

    Novice

  • Members
  • 29 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


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

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



#7 semechkaFlow

semechkaFlow
  • Members
  • 1 posts

Posted 04 April 2017 - 22:47

Taskenti fem souche de graines de chanvre Taskenti fem
Компания “Семечка Джа” занимается продажей качественных семян канабисанаилучших сортов и
уже много лет занимает одну из лидирующих позиций в этом сегменте рынка.

Посмотрите как в Европе реализован сбыт марихуаны. Например http://www.cannabiscollege.com/ или здесь
https://www.cancer.gov/about-cancer/treatment/cam/hp/cannabis-pdq.
Легализация происходит во всё большем количестве государств. Отрасль постоянно совершенствуется А что мы видим у в сране только один магазин хорошего качества !!! Единственный толковый магазин семян - seedjah.com и тот прикрыт роскомнадзором (((

Наша компания предлагаем нашим клиентам семена только превосходного качества, которые имеют фантастически высокий коэффициент всхожести. Кроме качества наших семян, Вас без сомнения порадуют
наши демократичные расценки. Это объясняется тем, что большая конкуренция среди
компаний, продающих похожуюпродукцию,
заставляетбороться за наивысшее качество
продукта и обслуживания и при этом поддерживать наиболее низкие стоимость.
Покупая семена канабиса в компании “Семечка Джа”, Вы можете быть точно уверены, что получите тот самый вид, что Вы заказали. Наша фирма совершаем доставку
семена конопли по территории Украины и
по всей России. Если по какой-либо причине покупатель не получаете свой
товар, наш интернет-магазин ручаемся вернуть сумму, которую Вы заплатили за товар, в полном объеме. ссылка http://семечка-джа.com/ua/%D1%80%D0%B5%D0%B3%D1%83%D0%BB%D1%8F%D1%8 0%D0%BD%D1%8B%D0%B5_%D0%B0%D0%B2%D1%82%D0%BE%D1%86%D0%B2%D0%B5%D1%82%D1%8B/dark_devil_auto.html придбати якісне насіння конопель Dark Devil auto недорого
И, напоследок, что касается конфиденциальности – мы ценит выбор своих клиентов, поэтому, работая с нами, Вы можете быть на
100% уверены, что абсолютно вся кннтактная информация о покупателе и месте доставки сохранится в тайне.
социалки
https://plus.google.com/+Seedjah

https://yandex.ua/maps/org/semechka_dzha_seedjsh/1642584941?lang=ru

https://twitter.com/seedjah

https://www.facebook.com/semechkajah/

https://ok.ru/profile/572871626215

https://www.instagram.com/semena_cannabisa/

т. +38(099)76-66-563




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users