Check-in [fe5e42d573]
Overview
SHA1:fe5e42d573a954fcea606a01662c249b909c18d6
Date: 2015-07-08 20:28:06
User: spaskalev
Comment:somewhat improved taming script :) from 4/16/2012
Timelines: family | ancestors | trunk
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2015-07-08
20:28
[fe5e42d573] Leaf: somewhat improved taming script :) from 4/16/2012 (user: spaskalev, tags: trunk)
20:20
[f235f7790c] Added hub-01-loot, working since 2006 :) (user: spaskalev, tags: trunk)
Changes

Added tame-2.euo version [149564909d].





















































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
sub INIT
  initEvents
  ignoreItem reset
  set %__EMPTY__
return

sub WAIT_TARGET
  set #targcurs 1
  targetloop:
  If #targcurs = 1
  goto targetloop
return

sub CONFIGURE
  event SysMessage Please move your character to the desired home location and target an animal for taming.
  gosub WAIT_TARGET
  findItem #LTARGETID
  set %TAME_TYPE #FINDTYPE
  set %TAME_ID
  set %HOME_X #CHARPOSX
  set %HOME_Y #CHARPOSY
  set %DEFAULT_FOLLOWERS #FOLLOWERS
  set %LAST_ATTEMPT 0
return

sub MOVE_CHAR
  move %1 %2 0 2s
  if  #CHARPOSX <> %1 || #CHARPOSY <> %2
  {
    event PathFind %1 %2
    sleep 2s
  }
return

sub SEARCH_TAME
  findItem %TAME_TYPE
  if #FINDKIND = -1
  {
    set %TAME_ID
    return
  }
  event Property #FINDID
  if Paragon in #PROPERTY
  {
    ignoreItem #FINDID
    set %TAME_ID
    return
  }
  set %TAME_ID #FINDID
return

sub ATTEMPT_TAME
  if %LAST_ATTEMPT + 3500 < #SYSTIME
  {
    event Macro 13 35
    target 2s
    set #LTARGETID %TAME_ID
    event Macro 22 0
    set %LAST_ATTEMPT #SYSTIME
  }
return

sub AUTOMATE
  gosub SEARCH_TAME
  while %TAME_ID = %__EMPTY__
  {
    gosub MOVE_CHAR %HOME_X %HOME_Y
    gosub SEARCH_TAME
  }
  while #FINDKIND <> -1
  {
    gosub MOVE_CHAR #FINDX #FINDY
    gosub ATTEMPT_TAME
    if #FOLLOWERS > %DEFAULT_FOLLOWERS
    {
      ignoreItem %TAME_ID
      gosub SEARCH_TAME
    }
    findItem %TAME_ID
  }
return

gosub INIT
gosub CONFIGURE
while #true
{
  gosub AUTOMATE
}

halt