Jump to content

  2. → Viewing Profile: Topics: I_love_Tomsk

Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag
@  Costesti : (23 May 2025 - 22:37) Бешеные лаги
@  Costesti : (17 May 2025 - 22:54) Опять лаги на Сервере
@  fr33 : (12 May 2025 - 15:21) ble daite mne gm i zdelaju pvp vam
@  Mokasin : (12 May 2025 - 09:04) Puišiem nav garlaicīgi xDDD
@  Egoons : (10 May 2025 - 18:48) lanc 2025 gads jau, ara silts atkal. tas taa, infai
@  beatiful : (10 May 2025 - 10:14) griga pidar
@  fr33 : (08 May 2025 - 17:53) griga eta samij zoskj dalbaeb etam server

I_love_Tomsk

Member Since 30 Jan 2009
Offline Last Active Jan 12 2011 10:40
-----

Topics I've Started

Sell Logs

11 January 2011 - 20:27

ПРодам аспен логи в чеке 100к. кого заинтересует scype mashacrazy

Sell

20 December 2010 - 19:38

Sell 10k blank scrols, scype mashacrazy

АДминистрация

08 December 2010 - 21:38

Администрация вообще отвечает на имейлы?

Помогите пожалуйста

08 December 2010 - 10:00

Доброго времени суток :happy: Ни где не могу найти как это сделать, а сделать надо следующие, чтоб скрипт лут постоянно прокручивался а не приходилось каждый раз тыкать кнопк run...Спасибо :roll:

ПОмогите совместить

03 December 2010 - 22:39

Помогите пожалуйста, вставить скрипт ламбер, ходилку к банку из скрипта на мининг. Ну чтоб скидывал деревья. И чтоб не застревал по дороге. Спасибо большое
ЛАМБЕР

set %gameClass Cleric ; Cleric or Archer
set %maxWeight 250 ; Max ves
set %xCoord 5904 ; Координаты возле банка Х
set %yCoord 2850 ; Y координата возле банка
set %Weapon VOH
set %Shield ZHK ; shild dlja klera
set %ljtool FZPDMMD
set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToWood 2
}
if %dropAspen
set %aspenCol 973
if %dropWillow
set %willowCol 0
if %dropCedarMapleNoblefire 3
set %cedarCol 437
set %mapleCol 1233
set %noblefireCol 153
if %dropCherryEcalyptus 2
set %cherryCol 38
set %ecalyptusCol 81

start:

GOSUB LJING 5620 2956 3290 0
GOSUB LJING 5620 2960 3293 0
GOSUB LJING 5611 2957 3277 0
GOSUB LJING 5613 2950 3294 0
GOSUB LJING 5604 2961 3291 0
GOSUB LJING 5605 2966 3300 0
GOSUB LJING 5595 2967 3302 0
GOSUB LJING 5598 2960 3293 0
GOSUB LJING 5592 2959 3293 0
GOSUB LJING 5588 2958 3278 0
GOSUB LJING 5589 2964 3300 0
GOSUB LJING 5589 2973 3230 0
GOSUB LJING 5584 2976 3299 0
GOSUB LJING 5578 2983 3291 0
GOSUB LJING 5577 2991 3299 0
GOSUB LJING 5572 2985 3289 0
GOSUB LJING 5565 2989 3277 0
GOSUB LJING 5563 2999 3300 0
GOSUB LJING 5558 2998 3291 0
GOSUB LJING 5554 3005 3277 0
GOSUB LJING 5553 3011 3293 0
GOSUB LJING 5550 3011 3230 0
GOSUB LJING 5549 3017 3299 0
GOSUB LJING 5552 3018 3296 0
GOSUB LJING 5554 3018 3288 0
GOSUB LJING 5543 3023 3291 0
GOSUB LJING 5539 3018 3287 0
GOSUB LJING 5541 3012 3291 0
GOSUB LJING 5543 3007 3283 0
GOSUB LJING 5536 3009 3277 0
GOSUB LJING 5529 3012 3277 0
GOSUB LJING 5530 3020 3294 0
GOSUB LJING 5526 3026 3230 0
GOSUB LJING 5521 3027 3278 0
GOSUB LJING 5522 3018 3291 0
GOSUB LJING 5520 3013 3302 0
GOSUB LJING 5512 3020 3291 0
GOSUB LJING 5513 3024 3293 0



goto start

sub ljing
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
move %1 %2 1
finditem FZPDMMD C
set #lobjectid #findid
set #ltargetx %1
set #ltargety %2
set #ltargettile %3
set #ltargetz %4
set #ltargetkind 3
event macro 17 0
target 10s
event macro 22 0
wait 7
set %overtime #scnt + 20
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropAspen && ! %dropWillow && ! %dropCherryEcalyptus && ! %dropCedarMapleNoblefire
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherryEcalyptus
{
gosub dropTrashLogs
return
}
}
return

sub scan
scan:
scanjournal 1
gosub reaper
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( you_can't_reach_this in #sysmsg ) || ( THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg )
+ || ( use_that_in in #journal ) || ( It_appears_immune_to_your_blow in #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub arm
if %gameClass = Cleric
{
repeat
{
finditem %Weapon c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
finditem %Weapon c_ , #BackpackId
}
until #findcnt = 0
repeat
{
finditem %Shield c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
finditem %Shield c_ , #BackpackId
}
until #findcnt = 0
}
if %gameClass = CLeric
{
msg $.arm bow$
wait 5
}
return

sub port
gosub arm
gosub checkHP
gosub reaper
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
if %gameClass = Cleric
event macro 13 21
if %gameClass = Archer
event macro 13 47
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %skillMask , _ , %skillRobe , _ , %skillCloak 1
gosub runToBox
if %gameClass = Cleric
event macro 13 21
finditem %box G_3
if #findcnt = 0
{
event Sysmessage Box Not Found!
pause
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 20
}
}
until #findcnt = 0
ignoreitem reset 1
if %gameClass = Archer
gosub rescourses
if %recall
gosub recalls
return

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

sub runToBox
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub checkHP
if #hits < #maxhits
{
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub arm
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
pause
}
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
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return

sub follow&kill
set %charX #charposx
set %charY #charposy
set %charz #charposz
set %killTime #scnt + 60
if %gameClass = Cleric
{
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target
event macro 23 0
wait 20
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem #enemyid
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
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 heal
repeat
{
msg $.usebandage$
wait 10
target
event macro 23 0
wait 20
}
until #hits >= #maxhits
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 5s
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 loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 30
set %body #contid
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem #contID 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
}
until #false
}
return

sub dropTrashLogs
repeat
{
finditem ZLK C_ , #backpackid
if #findcnt = 0
{
wait 20
if #weight >= %maxweight
{
if %recall
gosub port
if ! %recall
gosub moveItems
return
}
if #weight < %maxweight
return
}
if #findcol = %willowCol || #findcol = %aspenCol
+ || #findcol = %cedarCol || #findcol = %mapleCol || #findcol = %noblefireCol
+ || #findcol = %cherryCol || #findcol = %ecalyptusCol
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 25
}
ignoreitem #findid 1
}
until #false
return

sub reaper
finditem JE G
if #findcnt <> 0
{
sound
gosub arm
set %charX #charposx
set %charY #charposy
set %charz #charposz
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
set %killTime #scnt + 60
finditem JE G
set %reaper #findid
set #ltargetid %reaper
event macro 27 0
if %gameClass = Cleric
{
repeat
{
finditem %reaper
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target
event macro 23 0
wait 20
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem %reaper
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
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 rescourses
finditem RWF C_ , #backpackid
if #findstack <= %minArrows
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem RWF C_ , %box
exevent drag #findid %amountArrows
exevent dropc #backpackid
wait 20
}
finditem PEF C_ , #backpackid
if #findstack <= %minKidlings
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem PEF C_ , %box
exevent drag #findid %amountKidlings
exevent dropc #backpackid
wait 20
}
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


Скрипт на мининг

; Set Up The Following Variables:
set %maxWeight 350 ; Максимальный вес
set %box OMOMLMD ; Сумка с рудой в банке
set %xCoord 5904 ; Координаты возле банка Х
set %yCoord 2850 ; Y координата возле банка
set %dropMarganece #false ; #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

msg a $
wait 30
msg b $
wait 30
msg c $

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


  1. Old Paradise Forums
  2. → Viewing Profile: Topics: I_love_Tomsk
  3. Privacy Policy