Forgotten World Ultima Online Forums > /Common forums >
Forgotten World. o , , . -

 
18.01.2010, 12:42   #1
Andrey
Mystical Hero
 
  Andrey
 
: 09.10.2009
: 1,103
: 25 [+/-]
( 16 25)
Andrey    ( 16  25)
: Sokol

. . . . . . . . . .
__________________
, , .
Andrey   
Re:
18.01.2010, 13:54   #2
AKA
The Hero
 
  AKA
 
: 17.10.2009
: [M5]
: 602
: 24 [+/-]
( 16 25)
AKA    ( 16  25)
: !!
: [M5]
 Re:

[PHP]
//----,,:----
//if hits < 150 //
//send f6 // ,
//wait 3000 //
//end_if

if mana < 100 //
send f7 //
wait 3000 //
else //
repeat 10 // 10
send f5 // Castspell>>Poison>>wait for target>>target self
wait 3000
end_repeat
end_if
[/PHP]
3
[PHP]
//---- 25 :----
//
//
//send F3 4000 //
for #y -2 2 1
for #x -2 2 1
:mining
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F2 1200 // --
set timer 0
while (lastmsg do you want) and (timer < 10000)
wait 100
end_while
if_not (lastmsg no ore) or (lastmsg mining in) or (lastmsg have no line)
wait 500
if (lastmsg you see) or (lastmsg targeting) or (lastmsg you have)//
alarm
flash
alarm
flash
alarm
flash
end_script
end_if
goto mining
end_if
end_for
end_for
alarm
flash
end_script
[/PHP]
20
[PHP]
//--------
//...
//... F11 - LastSkill
//... F9 - LastObject
//...
//... .
set #level 1 // -
//... 1 4
//... 1 - Detail Map
//... 2 - Regional Map
//... 3 - Sea Chart
//... 4 - Full World
set #havka lastobjectid
set lastskill 12
//...----------------
set #s 1
:map
send F11 2300
if #level = 1
double_left 63, 63 // -- Detail Map
end_if
if #level = 2
double_left 109, 64 // -- Regional Map
end_if
if #level = 3
double_left 152, 64 // -- Sea Chart
end_if
if #level = 4
double_left 194, 64 // -- Full World
end_if
//...----
// if #level = 4
// set #level 3
// else
// set #level #level + 1
// end_if
//...----
if #s = 10
set lastobjectid #havka
send F9 1000
set #s 1
end_if
wait 2000
set #s #s + 1
if lastmsg have no blank parchment
flash uo
end_script
end_if
gosub map
end_script
[/PHP]
24
[PHP]
//--------
// , Locked Chest'
send 5 // , Use Item Type
wait 3s
if lastmsg Container doesn't locked. //
send 4 //
wait 1s
end_if
[/PHP]
30
[PHP]
//--------
// , ( )
drag 429,319 677,617 1 // 1
wait 1s
drag 449,304 960,272 1 // 1
wait 1s
send 4 // , Use Item Type Target Item Type
wait 3s
repeat 2
move 675,585 //
drag 675,585 429,369 //
wait 1s
end_repeat
// move drag,
// move,
// (repeat 2) .
[/PHP]
33
[PHP]
//--------
// ,
drag 432,316 959,256 7 // 7
wait 1s
send 4 // , Target Item Type
wait 4s
if wght > 550 //
move 676,583
drag 676,583 428,368 all //
wait 1s
drag 456,343 663,617 2 // 2
end_if
// 550, ,
// move drag,
//2 , 550.

//
drag 433,319 958,258 5 // 5
wait 1s
drag 451,296 958,258 5 // 5
wait 1s
send 4 // , Use Item Type
wait 2s
if wght > 550 //
move 680,587
drag 680,587 429,368 all //
wait 1s
drag 453,343 666,615 2 // 2
end_if
// 550, ,
// move drag,
//2 , 550.
[/PHP]
AKA   
Re:
17.05.2017, 22:55   #3
The Egoist
Newbie
 
: 17.05.2017
: 1
: 1 [+/-]

The Egoist
: The Egoist
 Re:

:
AKA
[PHP]
//----,,:----
//if hits < 150 //
.................
[/PHP]
- . . , ?
The Egoist   
Re:
18.01.2010, 14:28   #4
AKA
The Hero
 
  AKA
 
: 17.10.2009
: [M5]
: 602
: 24 [+/-]
( 16 25)
AKA    ( 16  25)
: !!
: [M5]
 Re:

[PHP]
//--------
drag 466,283 424,329 1 //1
wait 500
for #i 0 5 1 //
double_left 424,329
wait 500
end_for
if wght < 400
drag 442,248 399,264 120 //120
wait 500
end_if
while_not (lastmsg must cook) or (lastmsg can cook)
double_left 95,113 //
wait 500
left 422, 327 //
wait 2000
double_left 39,115 //
end_while
[/PHP]
57
[PHP]
//--------
// ,
drag 382,318 837,484 2 // 2
wait 1s
drag 424,319 959,256 2700 // 2700
wait 1s
repeat 900 // , 1 = 3
send 4 // , Target Item Type
wait 6s
end_repeat
move 849,457
drag 849,457 432,368 all //
wait 1s
//2 ,
// move drag.
[/PHP]
3
[PHP]
//--------
// ,
drag 382, 318 837,484 2 // 2
wait 1s
drag 424,319 959,256 500 // 500
wait 1s
repeat 250 // , 1 = 2
send 4 // , Target Item Type
wait 4s //
end_repeat
move 849,457
drag 849,457 432,368 all //
wait 1s
//2 ,
// move drag,
// ,
// , ,
// , , .
[/PHP]
4
[PHP]
//--------
// ,
drag 691,91 956,264 790 // 790 '
wait 1s
repeat 790 // '
send 5 // , Use Item Type
wait 8s
end_repeat
send 4 // , Target Item Type
wait 1s
// ,
// ,
// .
[/PHP]
7
[PHP]
//--------
double_left 350, 220 - !
for #i 1 13 1
send F11 //target next
wait 500
send F12 //last object wait for target last target
wait 500
say
end_for
wait 10 min
[/PHP]
11
[PHP]
//---- ----
//////////////////////// by Crimson ///////////////////////////

//

// 1

if lastmsg You see:
stop_script 0 // ( )
start_script 2 // ( )
alarm
alarm
alarm
alarm
alarm
alarm
alarm
msg , !!!
stop_script
end_if

// 2

if charposx = 1236 //
msg !! )
stop_script
else
send f3 //
wait 3000
end_if

/////////////////////////////////////////////////////////////////////////////////////////////////
// ! =) =)
[/PHP]
AKA   
Re:
04.02.2012, 03:39   #5
Durchikk
Wizard of words
 
  Durchikk
 
: 31.10.2007
: [PK]
: 33
: 1,550
: 4 [+/-]

Durchikk
: Man
: [PK]
 Re:

//---- ----
//////////////////////// by Crimson ///////////////////////////

//

// 1

if lastmsg You see:
stop_script 0 // ( )
start_script 2 // ( )
alarm
alarm
alarm
alarm
alarm
alarm
alarm
msg , !!!
stop_script
end_if

// 2

if charposx = 1236 //
msg !! )
stop_script
else
send f3 //
wait 3000
end_if

/////////////////////////////////////////////////////////////////////////////////////////////////
// ! =) =)
[/PHP][/QUOTE]

( ) ?
__________________
! !
Durchikk   
Re:
18.01.2010, 14:43   #6
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

. .
[php]// Bowcraft by Sindo ( http://forum.fwuo.ru/design/new/editor/justifycenter.gif ***ssist)
:start
set #f 0
drag 299, 271 846, 529 1 // 1 1 ( )
wait 400
REPEAT 85 // 85 150
set #f #f + 1
drag 283, 232 810, 514 7 // 7
wait 400
set #a lastliftedID
set lasttargetID #a
set LastTargetKind 1
send F11 // LastObject/WFT/LastTarget ( )
wait 500 // /
double_left 62, 66 // 1-
wait 500 // /
double_left 63, 66 // 2-
wait 5000 //
say #f
end_repeat
drag 847, 528 296, 268 all // 2
goto start

// 1 .
// ( =( )
// 1 1 , 1(!) . 2 [/php]
,
:
send F11 // LastObject/WFT/LastTarget   (    )
wait 500 //   /  
double_left 62, 66   // 1-   
wait 500 //   /  
double_left 63, 66   // 2-  

:
 send F11 //      

[php]// , by Sindo
set $lackreg lack reagents //
set $war with thoughts //
set timer
:rep
//
send F9 // : CastSpell+Poison(Nightsight)/WFT/TargetSelf
if (lastmsg =$lackreg) //
Repeat 5
alarm
say
wait 2000
end_repeat
pause_script
end_if
wait 2600 //
gosub PreventDeath
//
if mana < 10 //
while mana < int
send 5 // : UseSkill+Meditaiton
if (lastmsg = $war)
send Tab //
end_if
gosub PreventDeath
wait 3000 //
end_while
end_if
//
if (timer > 600000) // 10
set lastobjecttype XXXXXXXXXXX //
send F2 // : lastobject
set timer
end_if
goto rep
//
:PreventDeath
if hits < 100 //
while hits < str
if hits = 0 //
Repeat 5
alarm
say
wait 2000
end_repeat
pause_script
end_if
set lastobjecttype NNNNNNNNNN //
send F1 // : lastObject/WFT/TargeSelf
say Guards
wait 4000 //
end_while
end_if
return

// : 1) ( 1 ,
// , NNNNNNN ( ()))
// 2)
// ( , )
// 3)
// : ,
// , . 100,
// = . 10,
// .
// ( = 0), 5 .
// .
// . [/php]
__________________
May the Force be with you..
Sindo   
Re:
18.01.2010, 14:43   #7
AKA
The Hero
 
  AKA
 
: 17.10.2009
: [M5]
: 602
: 24 [+/-]
( 16 25)
AKA    ( 16  25)
: !!
: [M5]
 Re:

[PHP]
//---- ----
// =)
set #rtimer 0
set #msg 99

while #msg <> 0
if #msg = 2
send F2 1000 //lastobject, waitfortarget, lasttarget
else
send F1 //lastobject
while target = 1
wait 1000
end_while
//waitfortarget 5000
end_if
gosub 1
end_while
end_script

:1

set #timer timer

while #rtimer < 30000 // 1

set #msg 99

if lastmsg you put the logs in
set #msg 2
break
end_if

if lastmsg your skill in lumberjacking
set #msg 2
break
end_if

if lastmsg you hack at the tree for a while
set #msg 2
break
end_if

if lastmsg there are no logs
break
end_if

if lastmsg you can't think of a way
break
end_if
[/PHP]
50
[PHP]
//---- ----
//
// , :

:repeat <>
Send F7
wait 200
Send F8
wait 100
double_left point1
wait < 1 >
end_repeat
repeat <>
Send F9
wait 200
Send F8
wait 100
double_left point1
wait < 1 >
end_repeat

<> -
point1 -
< 1 > - 1
F8 -
F7 & F9 -
[/PHP]
AKA   
Re:
01.07.2011, 19:22   #8
Banned
 
: 09.07.2010
: 33
: 182
: 1 [+/-]

:
 Re:

[QUOTE=AKA;277627][PHP]
//---- ----
// =)
set #rtimer 0
set #msg 99

while #msg <> 0
if #msg = 2
send F2 1000 //lastobject, waitfortarget, lasttarget
else
send F1 //lastobject
while target = 1
wait 1000
end_while
//waitfortarget 5000
end_if
gosub 1
end_while
end_script

:1

set #timer timer

while #rtimer < 30000 // 1

set #msg 99

if lastmsg you put the logs in
set #msg 2
break
end_if

if lastmsg your skill in lumberjacking
set #msg 2
break
end_if

if lastmsg you hack at the tree for a while
set #msg 2
break
end_if

if lastmsg there are no logs
break
end_if

if lastmsg you can't think of a way
break
end_if
[/PHP]
50

*, ! - ...
   
Re:
18.01.2010, 14:45   #9
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

1 ( )

send F1 //
wait 300 //

2 ( )
send F1 //
repeat 3
send Left 200
end_repeat
send F1
repeat 3
send Right 200
end_repeat


[php]// Poisoning by Sindo ( ***ssist) (beta)

set $fizl CCCCCCCCCC //
set $alrpois CCCCCCCC //
set #amount N // ( ), ( )
set $msf XXX, YYY // (1)
set $mp XXX, YYY //
set $pf XXX, YYY //
set $pp XXX, YYY //
set $mpc XXX, YYY //
set #wdr KKK // , .
set #wwp KKK //
set #pt BBB //
set $actbtn S // LastObject

set #amountm #amount // -
set #amountp #amount // -
set #ft 0 //
set #iii 0 //

:start

set #f 0 //
set #a 0 // /
set #fizl 0 //
set #ft #ft + 1

repeat #amountm
drag $msf $mp 1 // 1 1
wait #wdr
end_repeat
drag $pf $pp #amountp // N 2
wait #wdr
set #a LastLiftedID
set LastObjecttID #a
set LastObjectType #pt //
set #amountp #amount

REPEAT #amount // ,
set #f #f + 1
set #ii 0 //
:repoison
set #i 0 //
send $actbtn // LastObject
WaitForTarget
:retarget
left $mp //
wait #wwp //
if (target = 1) //
set #i #i + 1
if (#i > 3)
send Escape
set #ii #ii + 1
if (#ii > 2)
set #iii #iii + 1
if (#iii > 10)
gosub zopa
end_if
set #amountp #amount - #f
goto start
end_if
goto repoison
end_if
wait 500
goto retarget
end_if
if (lastmsg = $fizl)
set #fizl #fizl + 1
goto fizl
end_if
if (lastmsg = $alrpois)
drag $mp $mpc 1 //
goto repoison
end_if
drag $mp $mpc 1 //
wait #wdr
:fizl
say #f #amount ( #ft )
end_repeat

set #amountm #amount - #fizl

goto start

:zopa
say
repeat 5
flash
flash Sindo
alarm
wait 2s
end_repeat
pause_script
return

// 1 1 , 1(!) . ( , )
// [set $* XXX, YYY] XXX, YYY
// [set #w* KKK] KKK
// [set #pt BBB] BBB
// [set $actbtn S] S
// [set {$fizl/$alrpois} CCCCCCCCCC] zvb
// , / [say #f #amount ( #ft )]
// [set #amount N] N [/php]
__________________
May the Force be with you..
Sindo   
Re:
18.01.2010, 14:45   #10
AKA
The Hero
 
  AKA
 
: 17.10.2009
: [M5]
: 602
: 24 [+/-]
( 16 25)
AKA    ( 16  25)
: !!
: [M5]
 Re:

[PHP]

:main
//repeat 2 // 4 .
set #r 0
send F9 3500 // CastSpel >> waitfortarget >> target selfl
//End_repeat

:heal
if hits < str
send End // ,
set #r 0
wait 3600
goto heal
end_if

set #r #r + 1
wait 1000
if #r = 5 // 5
//,
//, ,
//
goto medit
else
goto heal
end_if

:medit
if hits < str //
// ,
goto heal
end_if
if mana < int
send Backspace //
wait 2500
goto medit
end_if

goto main
end_script
[/PHP]
AKA   
Re:
18.01.2010, 14:47   #11
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

[php] // Tailoring () Sindo ( ***ssist)

:start

set #f 0
set #a 0

drag 298, 266 298, 266 1 // 1 1 ( )
wait 400
drag 665, 604 834, 557 N // N ( )
wait 400

set #a lastliftedID
set lasttargetID #a

REPEAT N // ,
set #f #f + 1
send F11 // LastObject/WFT/LastTarget
wait 2000 //
double_left 242, 67 // ( )
wait 5000 //
say #f
end_repeat

drag 911, 560 680, 566 all // 2

goto start

// 1 .
// ( =( )
// 1 1 , 1(!) . 2 [/php] Beta , , .
[PHP]// Taming by Sindoatan. Based on Taming (c) by diss

set $btnRel F6 // say+all_release
set $btnUse F12 // Object/LastTarget UseItemType
set #k 10 // -
set #korm 0 // 1. 0.
set #kb 5 //
set #blEda 0 // , 1, 0
set $btnEat M // LastObject
set #eda 123456789 //
set #lag 2000000 //


set %arr[1] 1273244 // ID'
set %arr[2] 1325790
set %arr[3] 1237673
set %arr[4] 1138080
set %arr[5] 1226926
set %arr[6] 1278290
set %arr[7] 1267169
set %arr[8] 1311898
set %arr[9] 29713
set %arr[10] 1088780

//--------------------------------

set #zh #k +1
set $remember remembers
set $success accept
set $tamed already tame
set $failed fail
set $hungry hungry
set $far far away
set $skill changed
set $wait you must wait
set $cant see the target


:loop
set #a 1

while #a < #zh
if #blEda = 1
set lastobjectid #eda
send $btnEat
end_if
send $btnRel //say all release
set lasttargetid %arr[#a]
set #q 0
:repeat
set #q #q +1
if #q > 100 // ,
goto next
end_if
set #i 0
send $btnUse
wait 1000
if lastmsg already
goto next
end_if
say z #a, #q, timer
while_not lastmsg $success
if (lastmsg $failed) or (#i > 3)
goto repeat
end_if
repeat 10
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return)
send {Tab}
say
wait 25s
goto repeat
end_if
wait 200
end_repeat
if (lastmsg = $wait) or (lastmsg = $cant) or (lastmsg = $hungry) or (lastmsg = $skill) or (lastmsg = $remember) or (lastmsg = $tamed) or (lastmsg = $far)
goto next
end_if
set #i #i +1
end_while
:next
set #a #a +1
if #a = 2
set timer
end_if
end_while
while timer < #lag
wait 20s
set #k #lag - timer
say #k
end_while
if #korm = 1
start_script #kb
wait 10s
end_if
goto loop


// // .
//.
// TAB. , , ,
// ( ).

[/PHP]
__________________
May the Force be with you..

Sindo; 24.03.2011 06:10..
Sindo   
Re:
29.01.2011, 09:42   #12
p3ps1
Newbie
 
: 20.01.2011
: 35
: 1
: 1 [+/-]

p3ps1
: Candy Or DeaD
 Re:

[
[PHP]// Taming by Sindoatan. Based on Taming (c) by diss

set $btnRel F6 // say+all_release
set $btnUse F12 // Object/LastTarget UseItemType
set #k 10 // -
set #korm 0 // 1. 0.
set #kb 5 //
set #blEda 0 // , 1, 0
set $btnEat M // LastObject
set #eda 123456789 //
set #lag 2000000 //


set %arr[1] 1273244 // ID'
set %arr[2] 1325790
set %arr[3] 1237673
set %arr[4] 1138080
set %arr[5] 1226926
set %arr[6] 1278290
set %arr[7] 1267169
set %arr[8] 1311898
set %arr[9] 29713
set %arr[10] 1088780


set #zh #k +1
set $remember remembers
set $success accept
set $tamed already tame
set $failed fail
set $hungry hungry
set $far far away
set $skill changed
set $wait you must wait
set $cant see the target


:loop
set #a 1

while #a < #zh
if #blEda = 1
set lastobjectid #eda
send $btnEat
end_if
send $btnRel //say all release
set lasttargetid %arr[#a]
set #q 0
:repeat
set #q #q +1
if #q > 100 // ,
goto next
end_if
set #i 0
send $btnUse
wait 1000
if lastmsg already
goto next
end_if
say z #a, #q, timer
while_not lastmsg $success
if (lastmsg $failed) or (#i > 3)
goto repeat
end_if
repeat 10
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return)
send {Tab}
say
wait 25s
goto repeat
end_if
wait 200
end_repeat
if (lastmsg = $wait) or (lastmsg = $cant) or (lastmsg = $hungry) or (lastmsg = $skill) or (lastmsg = $remember) or (lastmsg = $tamed) or (lastmsg = $far)
goto next
end_if
set #i #i +1
end_while
:next
set #a #a +1
if #a = 2
set timer
end_if
end_while
while timer < #lag
wait 20s
set #k #lag - timer
say #k
end_while
if #korm = 1
start_script #kb
wait 10s
end_if
goto loop


// // .
//.
// TAB. , , ,
// ( ).

[/PHP][/QUOTE]
Id ... Id
p3ps1   
Re:
29.01.2011, 14:49   #13
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

:
Id ... Id
-> -> CharParametrs. LastTargetID. ( ) . . . PROFIT.
__________________
May the Force be with you..
Sindo   
Re:
18.03.2011, 01:28   #14
Evmixiy
Newbie
 
  Evmixiy
 
: 28.08.2010
: 38
: 15
: 1 [+/-]

Evmixiy
: Grok
 Re:

set $btnUse F12 // Object/LastTarget UseItemType

? =) 1 , ...
Evmixiy   
Re:
18.03.2011, 15:50   #15
Fluke01
Wizard of words
 
  Fluke01
 
: 29.11.2007
:
: 2,411
: 85 [+/-]
- ( 76 125)
Fluke01 -    ( 76  125)
: Fluke
:
 Re:

:
Evmixiy
set $btnUse F12 // Object/LastTarget UseItemType

? =) 1 , ...
2 , , Esc, -.
() ( ), .
__________________
˙ǝɯǝɐʚƍǝdǝu ıqʚ ɐɓɹʞ 'oıdʚɹ ʁ ɯҺ 'ǝɯʚε
Fluke01   
Re:
22.03.2011, 16:32   #16
Evmixiy
Newbie
 
  Evmixiy
 
: 28.08.2010
: 38
: 15
: 1 [+/-]

Evmixiy
: Grok
 Re:

:
Fluke01
2 , , Esc, -.
() ( ), .
Object/LastTarget UseItemType .
Evmixiy   
Re:
29.04.2013, 08:19   #17
itsmajik
Newbie
 
: 09.03.2013
: 14
: 1 [+/-]

itsmajik
: itsmajik
 Re:

[/PHP][/QUOTE]

[PHP]// Taming by Sindoatan. Based on Taming (c) by diss

set $btnRel F6 // say+all_release
set $btnUse F12 // Object/LastTarget UseItemType
set #k 10 // -
set #korm 0 // 1. 0.
set #kb 5 //
set #blEda 0 // , 1, 0
set $btnEat M // LastObject
set #eda 123456789 //
set #lag 2000000 //


set %arr[1] 1273244 // ID'
set %arr[2] 1325790
set %arr[3] 1237673
set %arr[4] 1138080
set %arr[5] 1226926
set %arr[6] 1278290
set %arr[7] 1267169
set %arr[8] 1311898
set %arr[9] 29713
set %arr[10] 1088780

//--------------------------------

set #zh #k +1
set $remember remembers
set $success accept
set $tamed already tame
set $failed fail
set $hungry hungry
set $far far away
set $skill changed
set $wait you must wait
set $cant see the target


:loop
set #a 1

while #a < #zh
if #blEda = 1
set lastobjectid #eda
send $btnEat
end_if
send $btnRel //say all release
set lasttargetid %arr[#a]
set #q 0
:repeat
set #q #q +1
if #q > 100 // ,
goto next
end_if
set #i 0
send $btnUse
wait 1000
if lastmsg already
goto next
end_if
say z #a, #q, timer
while_not lastmsg $success
if (lastmsg $failed) or (#i > 3)
goto repeat
end_if
repeat 10
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return)
send {Tab}
say
wait 25s
goto repeat
end_if
wait 200
end_repeat
if (lastmsg = $wait) or (lastmsg = $cant) or (lastmsg = $hungry) or (lastmsg = $skill) or (lastmsg = $remember) or (lastmsg = $tamed) or (lastmsg = $far)
goto next
end_if
set #i #i +1
end_while
:next
set #a #a +1
if #a = 2
set timer
end_if
end_while
while timer < #lag
wait 20s
set #k #lag - timer
say #k
end_while
if #korm = 1
start_script #kb
wait 10s
end_if
goto loop


// // .
//.
// TAB. , , ,
// ( ).

[/PHP][/QUOTE]

, , .
itsmajik   
Re:
20.05.2013, 18:01   #18
KDbled
Newbie
 
: 03.04.2012
: 39
: 25
: 1 [+/-]

KDbled
: KDbled
 Re:

, ,


5. . , .
KDbled   
Re:
20.05.2013, 18:36   #19
sskrd
The Hero
 
  sskrd
 
: 11.01.2011
: 23 RuS
: 38
: 827
: 145 [+/-]
( 126 175)
sskrd    ( 126  175)sskrd    ( 126  175)
: sskrd
: 23 RuS
 Re:

:
KDbled
, ,


5. . , .
drag
1 , .
, , .
__________________
. , .
sskrd   
Re:
19.01.2010, 12:52   #20
Andrey
Mystical Hero
 
  Andrey
 
: 09.10.2009
: 1,103
: 25 [+/-]
( 16 25)
Andrey    ( 16  25)
: Sokol
 Re:

. .
  1. . . . . .= . UO Pilot. ( ) 2.14.
  2. . . . . .
  3. ( ) (WORD ) 10 .
  4. () .
  5. ( ) . . 150 100 100. . .
  6. . () .
  7. ( ) . . . . .
  8. RECORD() () (). . (STATUS). . (STOP) . (KEYS) . PLAY MAKROS 1. . . 15 15 . . F6 . .
  9. . (HELP) . () ( ) ADD() F7 USE SKILL( ) . MEDITATION (). APLY() .
  10. F5 . CAST SPEL( ) (POISON) wait for target target self APLY.

- SOKOL.
__________________
, , .
Andrey   
Re:
24.02.2010, 15:23   #21
Jerom
Newbie
 
  Jerom
 
: 29.11.2009
: 35
: 38
: 1 [+/-]

Jerom
: Osvald
 Re:

:
Andrey
  1. . (HELP) . () ( ) ADD() F7 USE SKILL( ) . MEDITATION (). APLY() .
... Options Help. , . , , ,
Jerom   
Re:
24.02.2010, 15:29   #22
Andrey
Mystical Hero
 
  Andrey
 
: 09.10.2009
: 1,103
: 25 [+/-]
( 16 25)
Andrey    ( 16  25)
: Sokol
 Re:

))))
__________________
, , .
Andrey   
Re:
20.01.2010, 13:25   #23
Superman
Junior Player
 
  Superman
 
: 10.11.2008
: Vendetta
: 36
: 179
: 10 [+/-]
, ( 5 15)
Superman   ,   ( 5  15)
: maximus
: Vendetta
 Re:

!
[PHP]
//---- ----
repeat 40 // 40
goto 1
:1
send 7 //
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81 // ( ) 99
double_right 624, 81
end_repeat
double_right 624, 81
double_right 624, 81
send tab // ( )
send f1 //
pause_script all // , , , "play"
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81
double_right 624, 81
end_repeat
double_right 624, 81
double_right 624, 81
send tab
send f1
pause_script all
end_if

if lastmsg you fish a while
goto 1
end_if

say Come on, Fish =) // , f#
say right
wait 2000
say stop
end_repeat

say Come on, Fish =)
say back
wait 2500
say stop


repeat 40 // 40 ( , )
goto 2
:2
send 7
135, 128 ait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81
double_right 624, 81
end_repeat
double_right 624, 81
double_right 624, 81
send tab
send f1
pause_script all
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81
double_right 624, 81
end_repeat
double_right 624, 81
double_right 624, 81
send tab
send f1
pause_script all
end_if

if lastmsg you fish a while
goto 2
end_if

say Come on, Fish =)
say left
wait 2000
say stop
end_repeat

say Come on, Fish =)
say back
wait 2500
say stop
[/PHP]
31
[PHP]
//---- ----
repeat 900
drag 384, 317 703, 668 1
wait 1700
while_not lastmsg = $pois
send f12
wait 1700
drag 707, 658 421, 324 1
wait 500
end_repeat
end_while
alarm
alarm

//
//F12- use item type target item type
//drag1 -
//drag2-
// 1 .

// , .
[/PHP]
2
[PHP]
//---- ----
set $remember The Sheep remembers you
set $master It seems to accept you as master
set $player .
set $alredy This creature already tame
repeat 6
say all release
wait 600
end_repeat
:1
send 8 // F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember or $master or $player or $alredy
if lastmsg The Sheep remembers you
goto NeXT
end_if
if lastmsg It seems to accept you as master
goto NeXT
end_if
if lastmsg .
goto NeXT
end_if
if lastmsg This creature already tame
goto Neploxo
end_if
if lastmsg You fail to tame the creature.
goto 1
end_if
if lastmsg Animal Taming changed now
goto NeXT
end_if
if timer > 40000
gosub next
end_if

end_while
if timer > 5000
goto next
end_if
:NeXT
say all release
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release
wait 1s
end_repeat
goto 1
[/PHP]
__________________
, !
Superman   
Re:
06.05.2015, 08:58   #24
Akad3m1k
The Hero
 
  Akad3m1k
 
: 24.04.2008
: Coma Mierda, GoD's,
: 590
: 8 [+/-]
, ( 5 15)
Akad3m1k   ,   ( 5  15)
: Akad3m1k-
: Coma Mierda, GoD's,
 Re:

:
Superman
2
[PHP]
//---- ----
set $remember The Sheep remembers you
set $master It seems to accept you as master
set $player .
set $alredy This creature already tame
repeat 6
say all release
wait 600
end_repeat
:1
send 8 // F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember or $master or $player or $alredy
if lastmsg The Sheep remembers you
goto NeXT
end_if
if lastmsg It seems to accept you as master
goto NeXT
end_if
if lastmsg .
goto NeXT
end_if
if lastmsg This creature already tame
goto Neploxo
end_if
if lastmsg You fail to tame the creature.
goto 1
end_if
if lastmsg Animal Taming changed now
goto NeXT
end_if
if timer > 40000
gosub next
end_if

end_while
if timer > 5000
goto next
end_if
:NeXT
say all release
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release
wait 1s
end_repeat
goto 1
[/PHP]
? 8 ? 9 ? 8 ,. 9 . .
__________________
, , , , ,
skype : akademuk666, icq : 926883, discord : Akad3m1k#2971

rigami; 06.05.2015 09:54..
Akad3m1k   
Re:
20.01.2010, 17:38   #25
Fluke01
Wizard of words
 
  Fluke01
 
: 29.11.2007
:
: 2,411
: 85 [+/-]
- ( 76 125)
Fluke01 -    ( 76  125)
: Fluke
:
 Re:



[PHP]
//,
if hits < str
say guards //2 say
send f1 //
wait 1000
say guards
wait 1500
end_if[/PHP]
UOPilot
"", " "( ) " ".
" "( ).

""
+ -, + , W, , , .
, , .

"", " " 0
"Edit HotKeys"
,
, .
Fluke01   
Re:
27.01.2010, 00:40   #26
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

, . :
[PHP]
////////////////////////////////Resist by Sindo
// (1/3) (c )
/////////////////////////////////
set $westbtn j// walk+west
set $eastbtn l// walk+east
set $southbtn k // walk+south
set $ffcastbtn f9// CastSpell+FireField/WFT/TargetSelf
set $healbtn F11 //
set #healwait 2900//
set #ffcastwait 2000//
set #2scr 4//


set #worky charposy
set timer

:f

if hits < 150
send $healbtn
end_if

set #h 150 - hits
wait #healwait

if (hits = 150) and (#h = 0) or (timer >= 100000)
stop_script #2scr
repeat 10 // ( , )
send $westbtn
wait 200
end_repeat
repeat 4
send $eastbtn
wait 200
end_repeat //
:recast
if charposy = #worky
set timer
send $ffcastbtn
wait #ffcastwait
if (lastmsg fiz)
goto recast
end_if
start_script #2scr
else
repeat 3
send $southbtn
end_repeat
goto recast
end_if
end_if

goto f [/PHP][PHP]///////////////////////////////////Resist by Sindo
// (2/3)
///////////////////////////////////
// 100
set $westbtn j // walk+west
set $eastbtn l // walk+east


repeat 4
send $westbtn
wait 50
end_repeat

:rep

repeat 7
send $eastbtn
end_repeat

repeat 7
send $westbtn
end_repeat

goto rep [/PHP][PHP]//////////////////////////////////Resist by Sindo
// (3/3)
//////////////////////////////////
// 20
set #2scr 4 //
set $northbtn i // walk+north
set $southbtn k // walk+south


set #a 0

:start

if (hits < 60) and (hits >= 1)
pause_script #2scr
repeat 3
send $northbtn
wait 200
end_repeat
while hits < 120
wait 500
end_while
repeat 3
send $southbtn
wait 200
end_repeat
resume_script #2scr
end_if

if hits < 1
repeat 5
alarm
wait 2s
end_repeat
set #a #a + 1
if #a > 20
stop_script all
end_if
end_if

goto start [/PHP] :
1) 3
2)
3)
4) 4-
5) , 1 (. 4)
6) 1 3
7) , ( ( ))

:
1) 60 80 ,
2) , . (? )
3)
4)
5) 90 1 ~40 .

:
1)
2)
3)
4) 60 , 120
5) 150 1-
6) ( ), ( )
7) , .. .
__________________
May the Force be with you..
Sindo   
Re:
27.01.2010, 10:20   #27
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

[PHP]// Sindo Edition
//
// . :
set #kudax 1067 //
set #kuday 2670 //
gosub gogogo //
repeat 5 //
alarm
end_repeat
stop_script

:gogogo
set #try 0 //
set #flip 0 // /
set #ston 0 //
:nextstep
set #try #try + 1
:nextfixstep

if (charposx = #prevx ) and ( charposy = #prevy ) //
if (#flip >= 1) // ,
set #ston #ston + 1
wait 500
set #flip #flip + 1
if (#flip >= 5) //
set #flip 0
end_if
goto nextfixstep
end_if
set #flip #flip + 1
end_if

if (charposx <> #prevx ) and ( charposy <> #prevy ) //
set #ston 0
set #flip 0
end_if

if #ston > 10 // ( )
set #walk random 8
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if
set #ston 0
end_if

if #try > 50 // ,
repeat 5
flash
flash Sindo
wait 2s
end_repeat
set #try 0
end_if

if (charposx = #kudax ) and ( charposy = #kuday ) //
goto yes
end_if

// ,
if charposx = #kudax
if charposy > #kuday
gosub savepos
send pageup
goto nextstep
end_if
if charposy < #kuday
gosub savepos
send end
goto nextstep
end_if
end_if

// ,
if charposy = #kuday
if charposx > #kudax
gosub savepos
send home
goto nextstep
end_if
if charposx < #kudax
gosub savepos
send pagedown
goto nextstep
end_if
end_if

// ,
if charposy < #kuday
if charposx < #kudax
gosub savepos
send down
goto nextstep
else
gosub savepos
send left
goto nextstep
end_if
else
if charposx < #kudax
gosub savepos
send right
goto nextstep
else
gosub savepos
send up
goto nextstep
end_if
end_if

:yes
return

:savepos
set #prevx charposx
set #prevy charposy
return
// , , " ( )" end, home, pageup pagedown .
[/PHP] 12
[PHP]// AutoMeditation by Sindo
set #a 0 //
set #b 0 //
set $war with thoughts //
set $medbtn 6 // UseSkill+Meditation
:try
while mana < int
if #b = 0
say *Meditation Started*
set #b 1
end_if
send $medbtn
send Backspace // ( , )
if (lastmsg = $war)
if #a > 0 // -
say *Nakilon is under attack! No more time for meditation!*
stop_script
end_if
set #a #a + 1
send Tab //
goto try
end_if
wait 3s
end_while
say *Nakilon's magic energy succesfully refreshed*
alarm
// set #b 0
//
stop_script

[/PHP]
__________________
May the Force be with you..
Sindo   
Re:
27.01.2010, 10:41   #28
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

, , , 2
[PHP]// Mining near wall by Sindo
// 20
set #napravl 3 // (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // LastObject/WFT
set $miningbtn2 F11 // LastTarget
set #wstep 1500 //
set #wmine 4300 // $miningbtn2
set #pich 1 // (0=, 1= )
set %pickaxe[1] 0 // ID
set %pickaxe[2] 0 // ID
set %pickaxe[3] 0 // ID
set #pickaxetype 0 //

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke //
set $loose reach that // ( )
set #broke 0 //
set #a 0 //
set #ston 0 //
set #superston 0 //

if (#napravl = 0)
set $correctx + 0
set $correcty - 1
set $nexttilebtn Home
set $otskalibtn End
set $kskalebtn PageUp
end_if
if (#napravl = 1)
set $correctx + 1
set $correcty + 0
set $nexttilebtn PageUp
set $otskalibtn Home
set $kskalebtn PageDown
end_if
if (#napravl = 2)
set $correctx + 0
set $correcty + 1
set $nexttilebtn Home
set $otskalibtn PageUp
set $kskalebtn End
end_if
if (#napravl = 3)
set $correctx - 1
set $correcty + 0
set $nexttilebtn PageUp
set $otskalibtn PageDown
set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg = $broke) or (lastmsg = $loose)
if (#pich = 0)
set #broke #broke + 1
if (#broke <= 3)
set LastObjectID %pickaxe[#broke]
set LastObjectType #pickaxetype
goto start
else
msg !
end_if
else
msg !
end_if
end_if
send $miningbtn2 #wmine
if (lastmsg = $prevmsg)
alarm
say Ping troubles! , "#wmine", .
end_if
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s4) // or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 7000)
if (lastmsg = $s3) // , ( )
repeat 2
send $kskalebtn #wstep
end_repeat
goto start
end_if
set #a 1
end_while
goto start
end_while

:nextstep
set #prevx charposx
set #prevy charposy
if (#a >< 0)
send $nexttilebtn #wstep
set #a 0
end_if
send $nexttilebtn #wstep

if (charposx = #prevx) and (charposy = #prevy) // ( ( ))
set #ston #ston + 1
set #superston #superston + 1
if (#ston > 2)
repeat 2
send $otskalibtn #wstep
end_repeat
set #ston 0
set #superston 0
set #a 1
goto nextstep
else
goto nextstep
end_if
else
set #ston 0
set #superston 0
end_if

goto start



// :
//
// ~ ~, ( )
//
[/PHP]
__________________
May the Force be with you..
Sindo   
Re:
27.01.2010, 11:28   #29
Sindo
The Hero
 
: 02.02.2007
: KIDs
: 35
: 969
: 52 [+/-]
( 26 75)
Sindo    ( 26  75)
: Sindoatan
: KIDs
 Re:

[PHP]//
// GPRS 150
drag 848, 562 903, 559 1
wait 300
move 903, 559
double_left 898, 546
wait 200
[/PHP][PHP]// 1) ( 500 )
// 2) "" " (Ctrl+A)"
// 3) :
// //
// drag 848, 562 903, 559 1
// wait 300
// 4) 848, 562
// 5) Ctrl+A. 848, 562
// 6) 903, 559
// 7) Ctrl+A. 903, 559
// 8) 1
// 9) "" , 1 ( double_left 898, 546 )[/PHP]
[php]//Camping by Sindoatan
set #dl 40 // (40 640*480)
set #mbasex 319 //X
set #mbasey 245 //Y
//goto test
////////////////////////////////////////
set #basex #mbasex
set #basey #mbasey
for #x -#dl #dl #dl
for #y -#dl #dl #dl
set #Targx #basex +#x
set #Targy #basey +#y
set #a #basex -#dl
set #b #basey +#dl
set #c #basey -#dl
if ((#Targx = #a) and (#Targy = #b)) or ((#Targx = #mbasex) and (#Targy = #mbasey)) or ((#Targx = #mbasex) and (#Targy = #c))
goto next1
end_if
repeat 19
drag #mbasex, #mbasey #Targx, #Targy 1
wait 50
set #a LastLiftedID
set LastObjectID #a
repeat 4
send F11 // LastObject
end_repeat
end_repeat
:next1
end_for
end_for

//:test
set #a #dl / 2
set #b #dl / 2
set #basex #mbasex + #a
set #basey #mbasey - #b

for #x -#dl #dl #dl
for #y -#dl #dl #dl
set #Targx #basex +#x
set #Targy #basey +#y
set #a #basex +#dl
set #b #basey -#dl
if (#Targx = #a) and (#Targy = #b)
goto next2
end_if
repeat 19
drag #mbasex, #mbasey #Targx, #Targy 1
wait 50
set #a LastLiftedID
set LastObjectID #a
repeat 4
send F11 // LastObject
end_repeat
end_repeat
:next2
end_for
end_for

//repeat 5
alarm
// wait 2s
//end_repeat
//stop_script
// LastObject[/php]
__________________
May the Force be with you..

Sindo; 09.12.2012 22:51..
Sindo   
Re:
12.01.2012, 19:05   #30
sskrd
The Hero
 
  sskrd
 
: 11.01.2011
: 23 RuS
: 38
: 827
: 145 [+/-]
( 126 175)
sskrd    ( 126  175)sskrd    ( 126  175)
: sskrd
: 23 RuS
 Re:

:
Sindo
[PHP]//
// GPRS 150
drag 848, 562 903, 559 1
wait 300
move 903, 559
double_left 898, 546
wait 200
[/PHP][PHP]// 1) ( 500 )
// 2) "" " (Ctrl+A)"
// 3) :
// //
// drag 848, 562 903, 559 1
// wait 300
// 4) 848, 562
// 5) Ctrl+A. 848, 562
// 6) 903, 559
// 7) Ctrl+A. 903, 559
// 8) 1
// 9) "" , 1 ( double_left 898, 546 )[/PHP]
Ctrl+A ?
- ?
?
W ?
sskrd   
Re:
06.01.2017, 07:26   #31
Aleksei4ik
Newbie
 
: 04.03.2015
: 34
: 52
: 1 [+/-]

Aleksei4ik
: Aleksei
 Re:

:
Sindo
, , , 2
// Mining near wall by Sindo
// 20
- ... ( , ... , - up,down ..,-) , ...
Aleksei4ik   
Re:
08.01.2017, 13:55   #32
KudesNIK
Newbie
 
: 12.11.2016
: old Pycu4u
: 31
: 1 [+/-]

KudesNIK
: KudesNIK
: old Pycu4u
 Re:

:
Aleksei4ik
- ... ( , ... , - up,down ..,-) , ...
[ . !]
KudesNIK   
Re:
10.01.2017, 13:27   #33
Junior Player
 
: 05.12.2015
: 147
: 1 [+/-]

: dani california
 Re:

[QUOTE=Sindo;279380] , , , 2
[PHP]// Mining near wall by Sindo
// 20
set #napravl 3 // (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // LastObject/WFT
set $miningbtn2 F11 // LastTarget
set #wstep 1500 //
set #wmine 4300 // $miningbtn2
set #pich 1 // (0=, 1= )
set %pickaxe[1] 0 // ID
set %pickaxe[2] 0 // ID
set %pickaxe[3] 0 // ID
set #pickaxetype 0 //

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke //
set $loose reach that // ( )
set #broke 0 //
set #a 0 //
set #ston 0 //
set #superston 0 //

if (#napravl = 0)
set $correctx + 0
set $correcty - 1
set $nexttilebtn Home
set $otskalibtn End
set $kskalebtn PageUp
end_if
if (#napravl = 1)
set $correctx + 1
set $correcty + 0
set $nexttilebtn PageUp
set $otskalibtn Home
set $kskalebtn PageDown
end_if
if (#napravl = 2)
set $correctx + 0
set $correcty + 1
set $nexttilebtn Home
set $otskalibtn PageUp
set $kskalebtn End
end_if
if (#napravl = 3)
set $correctx - 1
set $correcty + 0
set $nexttilebtn PageUp
set $otskalibtn PageDown
set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg = $broke) or (lastmsg = $loose)
if (#pich = 0)
set #broke #broke + 1
if (#broke <= 3)
set LastObjectID %pickaxe[#broke]
set LastObjectType #pickaxetype
goto start
else
msg !
end_if
else
msg !
end_if
end_if
send $miningbtn2 #wmine
if (lastmsg = $prevmsg)
alarm
say Ping troubles! , "#wmine", .
end_if
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s4) // or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 7000)
if (lastmsg = $s3) // , ( )
repeat 2
send $kskalebtn #wstep
end_repeat
goto start
end_if
set #a 1
end_while
goto start
end_while

:nextstep
set #prevx charposx
set #prevy charposy
if (#a >< 0)
send $nexttilebtn #wstep
set #a 0
end_if
send $nexttilebtn #wstep

if (charposx = #prevx) and (charposy = #prevy) // ( ( ))
set #ston #ston + 1
set #superston #superston + 1
if (#ston > 2)
repeat 2
send $otskalibtn #wstep
end_repeat
set #ston 0
set #superston 0
set #a 1
goto nextstep
else
goto nextstep
end_if
else
set #ston 0
set #superston 0
end_if

goto start



// :
//
// ~ ~, ( )
//
[/PHP]


:
say Ping troubles! , "#wmine", .

33
?

; 10.01.2017 13:28.. :
    
Re:
29.01.2010, 00:13   #34
The Hero
 
 
: 28.02.2009
: :(
: 14
: 536
: 7 [+/-]
, ( 5 15)
   ,   ( 5  15)
: fd2.
: :(
 Re:

[php]//by #m#i#c#a#
//uopilot 2.14, client v. 1.26.4b, 0 ms
//f9 - LastObject
//f11 - LastObject+Waitfortarget+LastTarget
:start
send f11 500// f11 LastObject+Waitfortarget+TargetLast
:asd
set timer
while_not (lastmsg You can't) or (lastmsg There are no logs) or (lastmsg far away) or (lastmsg chopping)
if (lastmsg You put) or (timer > 5000)
goto start
end_if
if (lastmsg You hack)
wait 1500
end_if
end_while
send f9 250
while target = 1
end_while
goto asd[/php]
__________________
, .
   
06.02.2010, 13:43   #35
IYDA
Newbie
 
: 04.09.2009
: 52
: 1 [+/-]

IYDA
: IYDA

[PHP]
//-----------FISHING-------------
gosub fishingsub //
//13
repeat 13
send PageDown 200 // .
end_repeat
end_repeat
// 7 .
repeat 27 // .
send home 200
end_repeat
send PageDown 200 //.
// ( )
set #counter #counter +1
:fishingsub //fishing sub
// -, .
for #y -6 6 1 // !!! , , ,
for #x -6 6 1 // !!! X Y.
:fishing //
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F1 1000 // LastObject, WaitForTarget, LastTarget
set timer 0
while_not (lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer > 6000)
end_while
if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)
wait 1500 // .
end_if

if (lastmsg pull) and (wght < 620) //!!! , .
drag 406, 298 404, 254 all // .
drag 406, 298 404, 254 all // .
wait 500
end_if

if lastmsg destroer //
send f3 500 //!!! - target type
double_left 810, 68 //!!! . , .
wait 500
send f2 1000
end_if
if_not (lastmsg are no fish) or (lastmsg Try) or (lastmsg pull)
//!!! or - no fish
// , .
// 60, // or (lastmsg pull)
goto fishing // .
end_if
end_for
end_for
return //fishing


+
// -
if lastmsg world
pause_script 3 //!!! !
wait 10000
say Save the Power of Macros! // Lastmsg
resume_script 3 //!!! !
end_if
// - , ..
if (lastmsg hit) or (lastmsg attacking you) or (hits < str)
repeat 3
say guards
wait 1000
end_repeat
end_if
[/PHP]
IYDA   

« | »



.
HTML .



MDEA 35 08.07.2007 17:23
! Dvalin 3 21.02.2007 20:51





Powered by: vBulletin® Version 3.8.7
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
2004-2019 Forgotten World