bass

EnFlame Please!

EnFlame man nejiet es laikam nepareizajas vietas lieku tos scp vari man ludzu ielikt bushu loti pateiciigs

set %maxWeight 90; Max svars
set %skillRobe GMZJLMD; Skill Roba
set %skillCloak YTBKLMD; Skill Cloack
set %skillMask XEDAKMD; Skill Mask
set %simpleRobe FQCRKMD; Parasta Roba
set %simpleCloak YALZLMD; Parastais cloack
set %simpleMask OZRVKMD; Parasta maska

moving:
gosub check
msg back$
wait 10s
msg stop$
gosub fishing

gosub check
msg back$
wait 10s
msg stop$
gosub fishing

gosub check
msg right $
wait 10s
msg stop$
gosub fishing

gosub check
msg right $
wait 10s
msg stop$
gosub fishing

gosub check
msg forward$
wait 10s
msg stop$
gosub fishing

gosub check
msg forward$
wait 10s
msg stop$
gosub fishing

gosub check
msg left$
wait 10s
msg stop$
gosub fishing

gosub check
msg left$
wait 10s
msg stop$
gosub fishing
goto moving

sub fishing
for %xx -5 -3
{
for %yy -5 5
{
gosub throw
}
}
for %xx -2 2
{
for %yy -5 -2
{
gosub throw
}
}
for %xx 3 5
{
for %yy -5 5
{
gosub throw
}
}
return

sub throw
if #weight > %maxWeight
gosub trashFish
gosub ghost
gosub check
if #weight > %maxWeight
{
halt
}
finditem XHF
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 7s
set #LTARGETX #CHARPOSX + %xx
set #LTARGETY #CHARPOSY + %yy
set #LTARGETKIND 3
event macro 22 0
gosub proverka
return

sub proverka
set %overtime #SCNT + 15
loop:
if #hits < #maxhits
{
gosub attack
}
scanjournal 1
if hungry in #sysmsg
{
gosub eat
return
}
if There_are_no_ in #journal || Try_fishing_ in #journal ||
+ unexpected_target_info in #journal || That_is_too in #journal ||
+ You_fail_to_catch_ in #journal || Fishing_has in #journal ||
+ You_put in #journal || You_pull in #journal
return
if #scnt >= %overtime
return
goto loop

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 POF C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
set !bot !bot + 1
set !totalBots !totalBots + 1
event macro 21 0
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
}
until #false
}
return

sub kill
msg .arm$
repeat
{
if #hits < 50
msg .usevolcano$
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
gosub loot
repeat
{
event pathfind %charX %charY %charZ 0
wait 20
}
until #charposx = %charX && #charposy = %charY
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 ghost
if #charghost = YES
{
repeat
{
click 992 82
wait 10
click 547 388
wait 10
}
until #clilogged = 0
sound
wait 10
sound
wait 10
sound
halt
}
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 5s
return

sub attack
sound
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem %weapon c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 5
finditem %weapon c_ , #BackpackId
}
until #findcnt = 0
event macro 27 0
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
msg $.arm$
gosub kill
gosub changeClothesTo %skillMask %skillRobe %skillCloak
setuotitle Ultima Online - #charname ( , #shard , ) Bots killed !bot , / , !botsToKill of total !totalBots , #dot
if !botsToKill = !bot
{
gosub repairWeapon
set !bot 0
}
return

sub trashFish
repeat
{
finditem FQD_DQD_EQD_GQD C_ , #backpackid
if #findcol <> 0
ignoreitem #findid 1
if #findcol = 0
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 20
}
}
until #findcnt = 0
return

sub check
repeat
{
finditem IS G
if #findid = #charid
ignoreitem #findid 1
finditem IS G
if #findcnt <> 0
{
set #ltargetid #findid
gosub attack
return
}
}
until #findcnt = 0
return

EnFlame, on Aug 12 2009, 08:26, said:

nu labi.
sākumā jāpieliek:

set %taa_krutaa_kaste

set %izvejotaas_lietas

tad, kad viņš ierauga to ziņu, ka kaut ko izvelk, tad tur jāpieliek:

{

gosub ewyo

return

}

un apakšā jāpieleik sub's

sub ewyo

repeat

{

finditem %izvejotaas_lietas G_4

if #findcnt >= 1

 {

 exevent drag #findid #findstack

 exevent dropc %taa_krutaa_kaste

 wait 35

 }

finditem %izvejotaas_lietas G_4

}

until #findcnt = 0

return

Paldies EnFlame You are the best!

EnFlame, on Aug 12 2009, 08:08, said:

kādā tev vēl kastē un kādas tev vēl zivis? :/
http://forum.egames....showtopic=27753

ne nu kr4 es speleju velviena cita serveri bet tur ar kugiem ir ta kad makere uz kuga zivis pazud un visi parejie itemi , es gribu lai vinjs met kuga kaste vai trapeda kuru es varu lock down uz kuga
A tev nau Lat.val pamaciba?

Nop tikunta met uz kuga nevis kaste