bass

kr4 kads man var ielikt >>>> scp lai met zivis kaste nevis uz laivas

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

Varetu OLDP GM'i uztaisiit tieshi tadu server ka xl tikai ar lielaku exp drop , gold drop , un kad met vairka kastiites un artus ! ^_^

Pec manam domam butu loti populars serveris un OLDP GM'i vairak $$$

Kr4 man WIndows ir Vista tadel man nejiet assist bet kad es novliku no wosa un ieliku ###### versijas clienta man gaja kads nevar ielikt linku kur es varu dabuut kautkadu progrmu lai man iet assit...!


Jau iespirkes PALDIES! :roll:

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

Kr4 kads var pateikt kas par huinju , 1 reizi kad insteleeju ylaunch ar injection vis gaja bet tgd kad pc izledzu vairs neradas injection lodzinji kur var uzlikt scp vnk parasts client iesledzas...