Toggle shoutbox Chat
|
Готовый скрипт на Fishing
#1
Posted 10 April 2009 - 16:54
Положение корабля и чара должна быть именно такой:
В сумке должно быть еда (когда char голоден, кушает 1 молоко и 2 бекона), инструменты для починки (Repair Tools, Repair Sewing Kit, для арчера ещё Repair Dagger), ткань (folded clothe), инги (+ логи, если их надо). Сколько ресурсов взять с собой, это вам решать, скрипт ничего сам не берёт (кроме стрел, для арчера).
Важный момент в скрипте, это поставить правильные цвета ингов, чтобы их при разгрузке не вкидали в банк. Там можно указать 3 цвета, если вы оделись только в glory + glory оружие, тогда поставьте все цифры одинаковые:
[codebox]set %bow TOH ; Luk
set %maxWeight 540 ; Max ves
set %armor CSH_BMH_YLH_IMH_WLH ; Armor (full ringmail)
set %skillRobe XVEWJMD ; Skill Roba
set %skillCloak BCEWJMD ; Skill Cloack
set %skillMask JOFRKMD ; Skill Mask
set %simpleRobe JDOUJMD ; Prostaja Roba
set %simpleCloak IPRNKMD ; Prostoj Cloack
set %simpleMask PPERKMD ; Prostoja Maska
set %container OQCEKMD ; ID konteinera srazu v banke
set %items OZF_RMK_EQD_LPF_CUD_POF_LPF ; kostji, pandorki itd
set %repairDagger MTCWJMD ; ID Repair dagger
set %repairTool SGCFLMD ; ID Repair tool's
set %repairSewingKit NGVDKMD ; ID Repair Sewing Kit
set %minArrowCount 50 ; Minimaljnie streli, kogda nado vzjat eshe
set %arrowsToTake 300 ; Skoka strel nado vzatj s banka
set %botsToKill 20 ; Posle skolko ubitix botov pochinitj veshi
set %dropGhostBone #false ; #true - sbrasivajet Ghost kostji , #false - net
set %Color1 2200 ; Cvet ingov dlja repair
set %Color2 2164 ; Cvet ingov dlja repair
set %Color3 2164 ; Cvet ingov dlja repair
; Nekotorie cveti:
; OLDP - 1097
; Glory - 1084
; Inferno - 2164
; Plazma - 2200
; Steel - 2421
set %totalBots 0
set %bot 0
set %poseidon #false
gosub checkForArrows
moving:
gosub check
msg back$
wait 18s
msg stop$
gosub fishing
gosub check
msg back$
wait 18s
msg stop$
gosub fishing
gosub check
msg right $
wait 18s
msg stop$
gosub fishing
gosub check
msg right $
wait 18s
msg stop$
gosub fishing
gosub check
msg forward$
wait 18s
msg stop$
gosub fishing
gosub check
msg forward$
wait 18s
msg stop$
gosub fishing
gosub check
msg left$
wait 18s
msg stop$
gosub fishing
gosub check
msg left$
wait 18s
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
{
if %dropGhostBone
{
gosub dropGhostBone
wait 20
}
if #weight > %maxWeight
{
gosub openBank
gosub razgruzka
}
}
finditem XHF_KDF
set #LOBJECTID #FINDID
event macro 17 0
target 7s
set #LTARGETX #CHARPOSX + %xx
set #LTARGETY #CHARPOSY + %yy
set #LTARGETKIND 3
event macro 22 0
gosub scan
return
sub scan
set %overtime #SCNT + 15
loop:
if #hits < #maxhits
gosub attack
scanjournal 1
gosub check
if hungry in #sysmsg
{
gosub eat
return
}
if #charname in #journal
event sysmessage Bots killed %bot , / , %botsToKill of total %totalBots , #dot
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
gosub check
if #scnt >= %overtime
return
goto loop
sub ghost
if #charghost = YES
terminate uo
return
sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set %pf #scnt + 10
repeat
{
event pathfind #findx #findy #findz 1 3s
wait 10
}
until #finddist < 2 || #scnt > %pf
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 40
}
until #false
}
return
sub razgruzka
ignoreitem reset 1
finditem %container C_ , %bank
if #findcnt = 0
{
event sysmessage Container not found!
pause
}
repeat
{
finditem %items c_ , #backpackid
if #findcnt = 0
return
if #findcol = %Color1 || #findcol = %Color2 || #findcol = %Color3
{
ignoreitem #findid 1
finditem #findid
}
exevent Drag #Findid #findstack
exevent Dropc %container
wait 40
}
until #false
return
sub openBank
repeat
{
finditem UVX G_3
set #lobjectid #findid
wait 10
event macro 17 0
wait 10
while #contname <> generic_gump && #contsize <> 330_270
wait 1
click 601 245
wait 40
click 601 245 r
wait 40
}
until #conttype = IKF
set %bank #contid
return
sub repairWeapon
_put:
repeat
{
finditem %bow C_ , #charid
exevent drag #findid
exevent dropc #backpackid
wait 30
finditem %bow C_ , #charid
}
until #findcnt = 0
finditem %bow C_ , #backpackid
if #findcnt = 0
goto _put
set #ltargetid #findid
set #ltargetkind 1
finditem %repairDagger C_ , #backpackid
if #findcnt = 0
{
event sysmessage Dagger not found!
pause
}
_repair:
set #lobjectid %repairDagger
set %lag #scnt + 10
event macro 17 0
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
if #scnt >= %lag
goto _repair
wait 30
gosub take&repair %armor %repairTool
_repaircloak:
set #lobjectid %repairSewingKit
set #ltargetid %simpleCloak
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 _repaircloak
wait 30
_repairrobe:
set #lobjectid %repairSewingKit
set #ltargetid %simpleRobe
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 _repairrobe
wait 20
gosub changeClothesTo %skillMask %skillRobe %skillCloak
return
sub checkForArrows
finditem RWF C_ , #backpackid
if #findstack <= %minArrowCount
{
event sysmessage Not enought arrows! Taking from bank...
gosub openBank
finditem RWF C_ , %bank
if #findcnt = 0 2
event sysmessage Arrows not found! (Script stoped.)
halt
if #findstack <= %arrowsToTake
set %amt #findstack
else
set %amt %arrowsToTake
repeat
{
exevent drag #findid %amt
exevent dropc #backpackid
finditem RWF C_ , #backpackid
wait 40
}
until #findstack > %minArrowCount
}
return
sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return
sub attack
sound
set %charX #charposx
set %charY #charposy
set %charZ #charposz
msg $.arm bow$
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
msg $.arm bow$
event macro 27 0
repeat
{
if %poseidon
finditem %pos
else
finditem #enemyid
wait 20
if #hits < 60
msg .usevolcano $
gosub ghost
}
until #findcnt = 0
set %poseidon #false
gosub loot
repeat
{
event pathfind %charX %charY %charZ 0
wait 20
}
until #charposx = %charX && #charposy = %charY
gosub changeClothesTo %skillMask %skillRobe %skillCloak
if %bot >= %botsToKill
{
gosub repairWeapon
set %bot 0
}
gosub checkForArrows
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 check
repeat
{
finditem IS G_8
if #findid = #charid
ignoreitem #findid 1
finditem IS G_8
if #findcnt <> 0
{
set %poseidon #true
set #ltargetid #findid
set %pos #findid
gosub attack
return
}
}
until #findcnt = 0
return
sub take&repair
repeat
{
finditem %1 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 35
finditem %1 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %1 C_ , #backpackid
_repairing:
set #lobjectid %2
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 15
set #lobjectid #findid
event macro 17 0
wait 30
finditem %1 C_ , #backpackid
}
until #findcnt = 0
return
sub dropGhostBone
repeat
{
finditem OZF C_ , #backpackid
if #findcol = 913
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 35
}
else
ignoreitem #findid
finditem OZF C_ , #backpackid
}
until #findcnt = 0
return
sub trashFish
repeat
{
finditem FQD_DQD_EQD_GQD C_ , #backpackid
if #findcol <> 0
ignoreitem #findid 1
if #findcol = 0
{
set #ltargetkind 1
set #ltargetid #findid
msg $.dropitem$
target 2s
event macro 22 0
wait 20
}
finditem FQD_DQD_EQD_GQD C_ , #backpackid
}
until #findcnt = 0
return
[/codebox]
Fishing Warrior/Cleric:
[codebox]set %maxWeight 710 ; Max ves
set %weapon JOH ; Psuhka
set %armor CIK_HSH_LSH_MSH_ISH_OSH_NSH_MSK_IMH ; Armor + shield
set %skillRobe XVEWJMD ; Skill Roba
set %skillCloak BCEWJMD ; Skill Cloack
set %skillMask JOFRKMD ; Skill Mask
set %simpleRobe JDOUJMD ; Prostaja Roba
set %simpleCloak IPRNKMD ; Prostoj Cloack
set %simpleMask PPERKMD ; Prostoja Maska
set %container OQCEKMD ; ID konteinera srazu v banke
set %items OZF_RMK_EQD_LPF_CUD_POF_LPF ; kostji, pandorki itd
set %repairTool SGCFLMD ; ID Repair tool's
set %repairSewingKit NGVDKMD ; ID Reair Sewing Kit
set %botsToKill 20 ; Posle skolko ubitix botov pochinitj veshi
set %dropGhostBone #false ; #true - sbrasivajet Ghost kostji , #false - net
set %Color1 2200 ; Cvet ingov dlja repair
set %Color2 2164 ; Cvet ingov dlja repair
set %Color3 2421 ; Cvet ingov dlja repair
; Nekotorie cveti:
; OLDP - 1097
; Glory - 1084
; Inferno - 2164
; Plazma - 2200
; Steel - 2421
set %totalBots 0
set %bot 0
moving:
gosub check
msg back$
wait 18s
msg stop$
gosub fishing
gosub check
msg back$
wait 18s
msg stop$
gosub fishing
gosub check
msg right $
wait 18s
msg stop$
gosub fishing
gosub check
msg right $
wait 18s
msg stop$
gosub fishing
gosub check
msg forward$
wait 18s
msg stop$
gosub fishing
gosub check
msg forward$
wait 18s
msg stop$
gosub fishing
gosub check
msg left$
wait 18s
msg stop$
gosub fishing
gosub check
msg left$
wait 18s
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
{
if %dropGhostBone
{
gosub dropGhostBone
wait 20
}
if #weight > %maxWeight
{
gosub openBank
gosub razgruzka
}
}
finditem XHF_KDF
set #LOBJECTID #FINDID
event macro 17 0
target 7s
set #LTARGETX #CHARPOSX + %xx
set #LTARGETY #CHARPOSY + %yy
set #LTARGETKIND 3
event macro 22 0
gosub scan
return
sub scan
set %overtime #SCNT + 15
loop:
if #hits < #maxhits
gosub attack
scanjournal 1
gosub check
if hungry in #sysmsg
{
gosub eat
return
}
if #charname in #journal
event sysmessage Bots killed %bot , / , %botsToKill of total %totalBots , #dot
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
gosub check
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 40
}
until #false
}
return
sub razgruzka
ignoreitem reset 1
finditem %container C_ , %bank
if #findcnt = 0
{
event sysmessage Container not found!
pause
}
repeat
{
finditem %items c_ , #backpackid
if #findcnt = 0
return
if #findcol = %Color1 || #findcol = %Color2 || #findcol = %Color3
{
ignoreitem #findid 1
finditem #findid
}
exevent Drag #Findid #findstack
exevent Dropc %container
wait 40
}
until #false
return
sub openBank
repeat
{
finditem UVX G_3
set #lobjectid #findid
wait 10
event macro 17 0
wait 10
while #contname <> generic_gump && #contsize <> 330_270
wait 1
click 601 245
wait 40
click 601 245 r
wait 40
}
until #conttype = IKF
set %bank #contid
return
sub kill
msg .arm$
repeat
{
if #hits < 60
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
wait 10
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 10
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return
sub ghost
if #charghost = YES
terminate uo
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 repairWeapon
put:
repeat
{
finditem %weapon C_ , #charid
exevent drag #findid
exevent dropc #backpackid
wait 30
finditem %weapon C_ , #charid
}
until #findcnt = 0
finditem %weapon C_ , #backpackid
if #findcnt = 0
goto put
_repair:
set #lobjectid %repairTool
finditem %weapon C_ , #backpackid
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 _repair
wait 20
gosub take&repair %armor %repairTool
_repaircloak:
set #lobjectid %repairSewingKit
set #ltargetid %simpleCloak
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 _repaircloak
wait 30
_repairrobe:
set #lobjectid %repairSewingKit
set #ltargetid %simpleRobe
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 _repairrobe
wait 20
gosub changeClothesTo %skillMask %skillRobe %skillCloak
return
sub take&repair
repeat
{
finditem %1 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 35
finditem %1 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %1 C_ , #backpackid
_repairing:
set #lobjectid %2
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 15
set #lobjectid #findid
event macro 17 0
wait 30
finditem %1 C_ , #backpackid
}
until #findcnt = 0
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 7
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
if %bot >= %botsToKill
{
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
{
set #ltargetkind 1
set #ltargetid #findid
msg $.dropitem$
target 2s
event macro 22 0
wait 20
}
finditem FQD_DQD_EQD_GQD C_ , #backpackid
}
until #findcnt = 0
return
sub check
repeat
{
finditem IS G_8
if #findid = #charid
ignoreitem #findid 1
finditem IS G_8
if #findcnt <> 0
{
set #ltargetid #findid
gosub attack
return
}
}
until #findcnt = 0
return
sub dropGhostBone
repeat
{
finditem OZF C_ , #backpackid
if #findcol = 913
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 35
}
else
ignoreitem #findid
finditem OZF C_ , #backpackid
}
until #findcnt = 0
return
[/codebox]
- voyage likes this
#2
Posted 10 April 2009 - 17:58
set %Color2 1084
set %Color3 1084
Naprimer jesli ja v steel plate + inferno dagger - to kak mne stavit color ingov - kakije cifri kakomu repairu soatvetstvujut (armor, puxa, ...) Ili ze scp sam opredelit kakije kuda i posledovatelnost nevazno!!! ???
#3
Posted 10 April 2009 - 18:09
set %Color1 1084
set %Color2 1084
set %Color3 1084
Naprimer jesli ja v steel plate + inferno dagger - to kak mne stavit color ingov - kakije cifri kakomu repairu soatvetstvujut (armor, puxa, ...) Ili ze scp sam opredelit kakije kuda i posledovatelnost nevazno!!! ???
set %Color1 2421 set %Color2 2164 set %Color3 2164
это не имеет значение, который для аромра или пушки
#6
Posted 11 April 2009 - 09:21
Пожалусто!
Игрок Oldparadise XL
#7
Posted 11 April 2009 - 09:29
А не мог бы ты сделать на Варриора скрипт, чтобы он брал ещё с банка траппеда кушать и инготы которыми чинится, Глори например...
Пожалусто!
Гы а зачем тебе это? ты что на неделю ставить собрался.. закинул сотню ингов взял покушать 20 бекона 10 молокоа, много веса не занимает и хватит на 2 дня макроса!
#8
Posted 11 April 2009 - 09:35
Ото бесит, щас лето ещё будет, и что мне приходить чтобы взять это? когда не очень вроде сложно сделать чтобы он сам брал.
Игрок Oldparadise XL
#9
Posted 11 April 2009 - 09:39
Вот именно, точто поставить на длогое время а не сидеть и брать.
Ото бесит, щас лето ещё будет, и что мне приходить чтобы взять это? когда не очень вроде сложно сделать чтобы он сам брал.
тебя дома небывает больше чем 2 дня ?!? возьми 200 ингов и по 30 хавчика ! для вишинга темболее для танка ещо гдето 400 веса свободных булет! писец! уж раз в неделю я думаю ты сможеш его проверить =)
#10
Posted 11 April 2009 - 09:52
тебя дома небывает больше чем 2 дня ?!? возьми 200 ингов и по 30 хавчика ! для вишинга темболее для танка ещо гдето 400 веса свободных булет! писец! уж раз в неделю я думаю ты сможеш его проверить =)
Razme4talsja raz v nedelju Kazduju 2 no4 budet CRASH poverj Na nedelju gubu nezakativaij!!! Kompu restart toze nuzen
- Graff TrAXuLA likes this
#12
Posted 11 April 2009 - 12:03
set %Color1 1084 set %Color2 1084 set %Color3 1084
как узнать цвет титана ? =)
стил уходин на другие макросы, такие как ламбер и майнинг, а вот титаниума дохрена, можно ли в нём поставить лукаря ?!
#13
Posted 11 April 2009 - 13:14
узнать можно с скриптом:set %Color1 1084 set %Color2 1084 set %Color3 1084
как узнать цвет титана ? =)
стил уходин на другие макросы, такие как ламбер и майнинг, а вот титаниума дохрена, можно ли в нём поставить лукаря ?!
display ok Target on item, to know it's color! set #targcurs 1 while #targcurs = 1 wait 1 finditem #ltargetid msg Color - #findcol halt
не буду вам так облегчить жизнь )Вот именно, точто поставить на длогое время а не сидеть и брать.
Ото бесит, щас лето ещё будет, и что мне приходить чтобы взять это? когда не очень вроде сложно сделать чтобы он сам брал.
#15
Posted 11 April 2009 - 14:24
изи уо версия старая, не?а де он колор пишет?!
Единственное что он пишет, это
Color -0
#17
Posted 11 April 2009 - 15:00
ну не знаю, скачай последнюю, а titanium color - 1107твоя 130
#19
Posted 11 April 2009 - 15:16
http://download.easy...ads/euox148.zipПасибо, а сылочку на даш на последнюю ? =)
только может надо зарегистрироваться где-то на easyuo.com
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users