4 replies to this topic

[Inbicil]

Кто знает помогите не могу настроить не как...

 

1. у меня проблема с настройкой координат  до самой пещеры

строка что отвечает куда он идет в начале :

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
; Koordinati obratno do peshcheri
move %1 %2 1
finditem NPF_QPF 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

Сами координаты до пещеры

; Koordinati obratno do peshcheri
move 5912 5851
move 5899 2873
move 5884 2873
move 5875 2889
move 5823 2892
move 5527 2917

2.Когда накопает до веса 550 он идет обратно, работает нормально но когда дело доходит до банка и разгрузки он стоит и кричит до победной bank..

 

 

Spoiler

set %gameClass Archer ; Cleric or Archer
set %maxWeight 540 ; Max ves
set %box IBIEKMD ; ID korobki, gde sbrasivatj rudu
set %foodCont BFCUKMD ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 5905 ; X koordinata okolo boxa
set %yCoord 2850 ; Y koordinata okolo boxa
set %dropAspen #true ; #true - sbrasivajet Aspen logi , #false - net
set %dropWillow #true ; #true - sbrasivajet Willow logi , #false - net
set %dropCedarMapleNoblefire #true ; #true sbrasivajet etie logi, #false - net
set %dropCherryEcalyptus #false ; #true sbrasivajet etie logi, #false - net
set %skillItemChange #true ; #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 VOH ; 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 5490 2921 1354
GOSUB LJING 5493 2921 1343
GOSUB LJING 5493 2922 1343
GOSUB LJING 5493 2923 1343
GOSUB LJING 5493 2924 1343
GOSUB LJING 5493 2925 1343
GOSUB LJING 5493 2926 1343
GOSUB LJING 5493 2927 1343
GOSUB LJING 5493 2928 1351
GOSUB LJING 5494 2918 1357
GOSUB LJING 5494 2919 1343
GOSUB LJING 5494 2920 1343
GOSUB LJING 5494 2921 1343
GOSUB LJING 5494 2922 1343
GOSUB LJING 5494 2923 1343
GOSUB LJING 5494 2924 1343
GOSUB LJING 5494 2925 1343
GOSUB LJING 5494 2926 1343
GOSUB LJING 5494 2927 1343
GOSUB LJING 5494 2928 1343
GOSUB LJING 5494 2929 1351
GOSUB LJING 5495 2930 1351
GOSUB LJING 5495 2929 1343
GOSUB LJING 5495 2928 1343
GOSUB LJING 5495 2927 1343
GOSUB LJING 5495 2926 1343
GOSUB LJING 5495 2925 1343
GOSUB LJING 5495 2924 1343
GOSUB LJING 5495 2923 1343
GOSUB LJING 5495 2922 1343
GOSUB LJING 5495 2921 1343
GOSUB LJING 5495 2920 1343
GOSUB LJING 5495 2919 1343
GOSUB LJING 5495 2918 1359
GOSUB LJING 5496 2918 1358
GOSUB LJING 5496 2919 1343
GOSUB LJING 5496 2920 1343
GOSUB LJING 5496 2921 1343
GOSUB LJING 5496 2922 1343
GOSUB LJING 5496 2923 1343
GOSUB LJING 5496 2924 1343
GOSUB LJING 5496 2925 1343
GOSUB LJING 5496 2926 1343
GOSUB LJING 5496 2927 1343
GOSUB LJING 5496 2928 1343
GOSUB LJING 5496 2929 1343
GOSUB LJING 5496 2930 1345
GOSUB LJING 5497 2930 1347
GOSUB LJING 5497 2929 1343
GOSUB LJING 5497 2928 1343
GOSUB LJING 5497 2927 1343
GOSUB LJING 5497 2926 1343
GOSUB LJING 5497 2925 1343
GOSUB LJING 5497 2924 1343
GOSUB LJING 5497 2923 1343
GOSUB LJING 5497 2922 1343
GOSUB LJING 5497 2921 1343
GOSUB LJING 5497 2920 1343
GOSUB LJING 5497 2919 1343
GOSUB LJING 5497 2918 1357
GOSUB LJING 5498 2918 1359
GOSUB LJING 5498 2919 1343
GOSUB LJING 5498 2920 1343
GOSUB LJING 5498 2921 1343
GOSUB LJING 5498 2922 1343
GOSUB LJING 5498 2923 1343
GOSUB LJING 5498 2924 1343
GOSUB LJING 5498 2925 1343
GOSUB LJING 5498 2926 1343
GOSUB LJING 5498 2927 1343
GOSUB LJING 5498 2928 1343
GOSUB LJING 5498 2929 1343
GOSUB LJING 5498 2930 1343


goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
; Koordinati obratno do peshcheri
move %1 %2 1
finditem NPF_QPF 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 ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum
+ && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink
+ && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron
+ && ! %dropTitan && ! %dropStone && ! %dropPlaster
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum
+ || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink
+ || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster
{
gosub dropTrashLogs
return
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal 1
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
}
%get fixed
gosub reaper
if ( ( 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 ) )
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

; Koordinati do banka
move 5530 2917
move 5675 2917
move 5840 2892
move 5875 2892
move 5907 2850

repeat

{

msg bank$

wait 40

}

until #conttype = DWJ

finditem %box C

if #findcnt = 0

{

event Sysmessage Box Not Found!

halt

}

repeat

{

finditem %item C_ , #backpackid

if #findcnt >= 1

{

exevent Drag #Findid #findstack

exevent Dropc %box

wait 35

}

finditem %item C_ , #backpackid

}

until #findcnt = 0

; Koordinati obratno do peshcheri
move 5912 5851
move 5899 2873
move 5884 2873
move 5875 2889
move 5823 2892
move 5527 2917

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

[fantodroms]

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
move %1 %2 1
finditem NPF_QPF 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 moveItems
set %bankID XXXXXXXX
; Koordinati do banka
move 5530 2917
move 5675 2917
move 5840 2892
move 5875 2892
move 5907 2850
repeat
{
msg bank$
wait 40
}
until #conttype = %bankID
finditem %box C
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
repeat
{
finditem %item C_ , #backpackid
if #findcnt >= 1
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 35
}
finditem %item C_ , #backpackid
}
until #findcnt = 0
; Koordinati obratno do peshcheri
move 5912 5851
move 5899 2873
move 5884 2873
move 5875 2889
move 5823 2892
move 5527 2917
return

[fantodroms]

; Koordinati obratno do peshcheri
move 5912 5851
move 5899 2873

sljishkom boljshaja raznica y koordinatov. Tebe nado postavitj svoi koordinati.

uznai ih cherez .where

 

Nado tak skazatj putj samomu napisatj

[Inbicil]

; Koordinati obratno do peshcheri
move 5912 5851
move 5899 2873

sljishkom boljshaja raznica y koordinatov. Tebe nado postavitj svoi koordinati.

uznai ih cherez .where

 

Nado tak skazatj putj samomu napisatj

 

 

Это у меня исправлено было потом, но проблема что ты выложил на 2 вопрос вопрос не решило, стоит все равно и орет БАНК

 

[fantodroms]

set %bankID XXXXXXXX

set %contid #contid
while #contid = %contid
 {
  set %contid #contid
  msg Bank$
  wait 10
 }
display ok Your BankBox ID is: #contid
halt

Tebe nado postavitj %bankID . Uznaetsja on vtorim kodom (vishe). Stavj rjadom bankira i zapuskai. Konkretnee on estj tam gde sub moveitems