3 replies to this topic

[Sergio_XL]

Mozhet komu to ne v padljanu budet skinutj scp na mining s trackingom?

[ExTjUtY]

; Set Up The Following Variables:

set %maxWeight 800		 ; Max svars

set %box RQAQKMD		   ; Kastes ID, kur likt ruudu u.c. itemus

set %xCoord 308		   ; X koordinaata tieshi pie kastes

set %yCoord 3308 26		   ; Y koordinaata tieshi pie kastes

set %dropMarganece #false   ; #true - nomet Marganece ruudu , #false - nenomet

set %dropTin #false	 ; #true - nomet tinu , #false - nenomet

set %dropBronze #true

set %dropLead #true

set %dropCorrundum #true

set %dropGold #false

set %dropTourmaline #true

set %dropSilver #false

set %dropMarble #false

set %dropZink #false

set %dropGypsum #false

set %dropSandstone #false

set %dropCopper #false

set %dropIron #false

set %dropTitan #false

set %dropStone #false

set %dropPlaster #false

set %skillItemChange #true ; #true - mainiis dreebes, #false - nemainiis

set %recall #true		  ; #true - lidos ar runebook, #false - skries taapat

; Do Not Set These Items If %skillItemChange #false

set %skillRobe QUQUKMD	 ; Skill Roba (ID)

set %skillCloak JUPKMMD	; Skill Cloack (ID)

set %skillMask QQVQKMD	 ; Skill Mask (ID)

set %simpleRobe EKMHKMD	; Parasta Roba (ID)

set %simpleCloak FOAWKMD   ; Parastais cloack (ID)

set %simpleMask OSH		; Platemail helms (TYPE/ID)

; End Of Changable Clothes List

; Do Not Set These Numbers If %recall #false

set %runebookID YAJZLMD	 ; Runebooka ID

set %runeNumberToHome 1	 ; Runas Nr uz maaju

set %runeNumberToCave 2	; Runas Nr uz alu

set %amountRecalls 2	   ; cik recall panjemt, kad vinji beigushies

; End Of Set Up Part



set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL



if %recall

{

gosub Instalyze runeNumberToHome 1

gosub Instalyze runeNumberToCave 2

}

if %dropMarganece

set %MarganeceCol 1750

if %dropTin

set %TinCol 1325

if %dropBronze

set %BronzeCol 1160

if %dropLead

set %LeadCol 2125

if %dropCorrundum

set %CorrundumCol 1548

if %dropGold

set %GoldCol 1093

if %dropTourmaline

set %TourmalineCol 1218

if %dropSilver

set %SilverCol 1153

if %dropMarble

set %MarbleCol 1950

if %dropZink

set %ZinkCol 38

if %dropGypsum

set %GypsumCol 995

if %dropSandstone

set %SandstoneCol 144

if %dropCopper

set %CopperCol 1537

if %dropIron

set %IronCol 0

if %dropTitan

set %TitanCol 1107

if %dropStone

set %StoneCol 2313

if %dropPlaster

set %PlasterCol 151

event sysmessage Setting Paperdoll in right position..

event macro 8 1

wait 30

event macro 8 1

wait 30

contpos 780 -26

finditem QRM_FJM_GKM C_ , #backpackid

if #findcnt <> 0

{

set #lobjectid #findid

event macro 17 0

wait 30

}

set %skill %skillRobe , _ , %skillCloak , _ , %skillMask

gosub gettingStarted

gosub initevents

set %k 0

set %lastK 0



start:   ; KOORDINAATES







 GOSUB LJING xxx xxx xxx





goto start



sub ljing

set %k %k + 1

gosub ghost

gosub checkHP

gosub element

gosub checkWeight

gosub track

move %1 %2 1

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 + 25

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

 }

}

return



sub track

event macro 13 38

click 173 64 d

click 58 66 d

scanjournal 1

if you_see_no_signs_of_players_to_track in #journal

return

wait 20

event macro 6 0

wait 25

scanjournal 1

if you_stop_tracking. in #journal

{ 

gosub teleporteg

}

deletejournal

if you_have_lost in #journal

{

gosub teleporteg

}

deletejournal

if you_have_lost in #sysmsg

{

gosub teleporteg

}

deletejournal

return



sub teleporteg

gosub openRunebook

click 260 260

event macro 13 21

wait 1100

gosub openRunebook

click 260 275

wait 200



sub scan

scan:

scanjournal

gosub checkHP

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

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 element

gosub checkHP

if #scnt >= %overtime

return

goto scan

return



sub port

msg .arm$

gosub checkHP

set %k %k + 1

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

return



sub moveItems

ignoreitem reset 1

ignoreitem %skill 1

gosub runToBox

event macro 13 21

finditem %box G_3

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

ignoreitem reset 1

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 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

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

}

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 || %0 = 1

{

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 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 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 2s

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 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 dropTrashLogs

dropLoop:

finditem ZLK_DWJ 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 = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol ||

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 20

}

ignoreitem #findid 1

wait 10

goto dropLoop

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 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 element

if %lastK >= %k

gosub ghost 1

set %lastK %k

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

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

wait 20

finditem WTL C_ , %box

exevent drag #findid %amountRecalls

exevent dropc #backpackid

wait 20

}

return

[Sergio_XL]

Spasibo boljwoe

[Fatalystt]

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