MadaFaka

Karo4 nopirku Playpoints vis ok bet sajaucu niku ierakstiju nepareizu shan tu vari izpalidzēt un kautkā uzlikt uz mana Nika? kautkā privāti sarunāt?

set %weapon GFF ; wepon type KTF=sword; TSF=dagger
set %armor MSH_LSH_ISH_OSH_HSH_NSH_MSK_IMH ; all armor on charcter
set %repairTools BBQPKMD ; ID Repair Tools
set %repairWeap 999; after how many killed bots repair weapon
set %repairArmor 999; after how many killed bots repair all armor
set %minimalHP 60 ; when to drink greater heal
set %criticalHP 40 ; when to drink invis, make campfire
set %loot DCI_UJG_IJG_POF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ
set %protection #true
set %minimalTerathansHits 172; [exemple: 200 = 100% of hp; 100 = 50% of hp ]


; ****************************************************************


set %bW 0
set %bA 0
set %killed 0
set %looted 0
set %st 0
set %h 0
set %lo 0
set %ignore #false
set #sysmsgcol 64
namespace global looting
set !lootProcess #false
msg $
move 5331 1377 0
gosub hp
move 5331 1364 0


moving:
set %q 1
move 5346 1364 0
gosub scan

set %q 2
move 5348 1348 0
gosub hp
move 5363 1348 0
gosub scan

set %q 3
move 5363 1348 0
gosub hp
move 5348 1348 0
gosub scan

set %q 4
move 5348 1333 0
gosub hp
move 5361 1333 0 ; !
gosub scan ; !

set %q 5
move 5348 1333 0
gosub hp
move 5333 1343 0
gosub scan

set %q 6
move 5333 1331 0
gosub hp
move 5316 1331 0
gosub scan

set %q 1
move 5307 1341 0
move 5297 1352 0
move 5315 1356 0
move 5331 1367 0
gosub hp
gosub scan
goto moving

sub scan
ignoreitem reset 1
set %d 0
event exmsg #charid 3 64 scanning sector %q
gosub find
return

sub find
repeat
{
set %d %d + 2
finditem XC_UD_WD_UC_QD_GD_BF G_10
if #findcnt >= 1
gosub checking
}
until %d > 14
return

sub checking
set %x #charposx
set %y #charposy
set %bot #findid
gosub moveToMob
gosub kill
repeat
{
event pathfind %x %y #charposz 3s
wait 3s
move %x %y 0 1s
gosub hp
}
until #charposx = %x && #charposy = %y
set %d 0
return

sub moveToMob
event exmsg %bot 3 64 moving to..
repeat
{
finditem %bot G
event pathfind #findx #findy #findz
wait 20
gosub hp
}
until #finddist < 2 || #findcnt = 0
set #ltargetid %bot
event macro 27 0
return

sub kill
set #ltargetid %bot
set #lobjectid %bot
event macro 27 0
nextcpos 0 0
repeat
{
finditem %bot G
event pathfind #findx #findy #findz
gosub hp
wait 10
if %lo < #scnt
{
event macro 17 0
set %lo #scnt + 4
}
}
until #findcnt = 0
gosub loot
return

sub hp
if #hits =< %minimalHP && %h < #scnt
{
msg $.drink heal$
msg $.userestoration$
set %h #scnt + 3
}
if #hits =< %criticalHP
{
event macro 6 0
event macro 6 0
msg $.drink invis$
event macro 6 0
event macro 6 0
wait 10
msg $.camp$
while #hits < #maxhits && H in #charstatus
wait 1
set #ltargetid #findid
event macro 27 0
}
if #stamina < 5 && %st < #scnt
{
msg .drink refresh$
set %st #scnt + 5
}
return

sub loot
event macro 6 0
event macro 6 0
event macro 13 21
wait 1s
set %lootOverTime #scnt + 15
finditem YFM G_3
if #findcnt >= 1
{
set %body #findid
set #lobjectid %body
event macro 17 0
if for_looting in #sysmsg
{
set %killed %killed + 1
event sysmessage %killed terathans killed, %looted terathans looted.
return
}
while #contkind <> ASEB && #contsize <> 144_212 && %lootOverTime > #scnt
wait 1
wait 20
if %lootOverTime <= #scnt
{
set %killed %killed + 1
event sysmessage %killed terathans killed, %looted terathans looted.
return
}
repeat
{
finditem %loot C_ , %body
if #findcnt >= 1 && ! !lootProcess
{
set !lootProcess #true
exevent drag #findid #findstack
exevent dropc #backpackid
wait 25
set !lootProcess #false
}
}
until #findcnt = 0 || %lootOverTime < #scnt
set %looted %looted + 1
}
ignoreitem %body 2
set %killed %killed + 1
event sysmessage %killed terathans killed, %looted terathans looted.
set %bW %bW + 1
set %bA %bA + 1
if %bW = %repairWeap || %bA = %repairArmor
gosub repair
return

sub repair
event macro 6 0
msg .drink invis$
event macro 6 0
event exmsg #charid 3 64 repairing..
if %bW = %repairWeap
{
gosub take&repair %repairTools %weapon
set %bW 0
}
if %bA = %repairArmor
{
gosub take&repair %repairTools %armor
set %bA 0
}
return

sub take&repair
if %bW = %repairWeap
{
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
finditem %2 C
}
until #findbagid = #backpackid
}
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
finditem %2 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
_repairing:
set #lobjectid %1
set #ltargetid #findid
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
if #scnt >= %lag
goto _repairing
wait 10
if #findtype = CIK
ignoreitem #findid 1
finditem #findid
set #lobjectid #findid
event macro 17 0
wait 20
finditem %2 C_ , #backpackid
}
until #findcnt = 0
ignoreitem reset 1
msg .arm$
wait 10
msg .arm$
set %killed 0
return

sub ignore
set %ignore #true
ignoreitem #findid 1
return

Kaa es varu shim skriptam pielikt lai vinjs visu laiku healojaas kad sit monstrus un peec vinju nosishanas?

Piedodat kad nav krievu valodā jo nēēsmu super tur. Un Sorry ka nepareizi noformeets jo nevarēju atrast kā pareizi.

Limited