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

VIenki

Member Since 20 Sep 2010
Offline Last Active Jul 16 2017 09:52
-----

Posts I've Made

In Topic: Реклама

03 September 2016 - 22:56

если бы были толковые обновы ....


In Topic: [10.12.2016] - Начало нового игрового сезона 2016

03 September 2016 - 22:52

по дефу забуть.


In Topic: Newbie Island 2

20 August 2016 - 00:16

87149d74ef122692fdad67b0f72d64f6.jpg


In Topic: Newbie Island

17 August 2016 - 15: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

In Topic: Sell Script's

05 August 2016 - 18:15

http://forum.oldp.ne...939#entry814110

а теперь он продаёт окей ;D