Yoko
http://forum.yoko.com.ua/

mining script with antimacro system
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12724		 Page 1 of 1
Author:  Soldyer [ 2007-11-05 18:46:02 ]
Post subject:  mining script with antimacro system
i would need a mining script with antimacro system for the shard imagine nation:xtreme, pls . if some1 can help me it would nice. thank you
Author:  Destruction [ 2007-11-06 01:58:14 ]
Post subject: 
You can use any mining script..

For antimacro script, please give screenshots and ,infogump info for antimacro.

Sorry for my clumsy English :)
Author:  Soldyer [ 2007-11-06 08:06:59 ]
Post subject: 
ok but im starting with injection so, how could i get the infogump? :)
thanks
Author:  Destruction [ 2007-11-06 14:23:46 ]
Post subject: 
By using the command ,infogump
Author:  Soldyer [ 2007-11-06 15:42:17 ]
Post subject: 
Image

_____infogump_______
serial 0x00064493
gumpid 0x0dc11c73
X 176
Y 53
1925 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 0] image=0x086A at 55:20
2 [ 1] image=0x086A at 56:60
3 [ 2] image=0x086A at 22:100
4 [ 3] image=0x086A at 29:140
5 [ 4] image=0x086A at 55:180
6 [ 5] image=0x086A at 47:220
Checks&Radios: __
Entryes: ________
All commands: ____
1] nomove
2] noclose
3] noresize
4] gumppictiled 0 0 300 260 5223
5] text 100 0 33 0
6] button 55 20 2151 2154 1 0 0
7] text 102 25 1452 1
8] text 113 23 10 2
9] text 121 23 70 3
10] text 134 24 1952 4
11] text 145 23 60 5
12] text 157 28 1452 6
13] text 168 24 60 7
14] text 175 29 20 8
15] text 190 26 100 9
16] text 199 22 1452 9
17] text 209 25 70 3
18] text 222 24 10 4
19] button 56 60 2151 2154 1 0 1
20] text 96 64 60 1
21] text 109 68 10 2
22] text 119 66 100 3
23] text 131 62 100 4
24] text 141 66 1452 5
25] text 152 69 1452 6
26] text 163 68 1452 7
27] text 175 65 1452 8
28] text 183 66 60 9
29] text 198 64 10 9
30] text 209 64 1452 3
31] text 219 66 70 4
32] button 22 100 2151 2154 1 0 2
33] text 73 109 100 2
34] text 85 109 1952 10
35] text 96 106 20 5
36] text 108 105 10 11
37] text 120 104 70 9
38] text 128 103 70 6
39] text 143 105 100 7
40] text 151 106 100 8
41] text 162 106 1952 9
42] text 175 106 1452 9
43] text 183 104 60 3
44] text 195 108 100 4
45] button 29 140 2151 2154 1 0 3
46] text 83 146 100 1
47] text 93 144 1952 2
48] text 104 143 60 3
49] text 115 149 1952 4
50] text 125 141 100 5
51] text 137 141 1452 6
52] text 147 149 1452 7
53] text 158 141 70 8
54] text 172 143 70 9
55] text 179 146 60 9
56] text 192 148 1952 3
57] text 204 148 20 4
58] button 55 180 2151 2154 1 0 4
59] text 92 188 20 1
60] text 103 182 20 2
61] text 114 188 100 3
62] text 125 187 1952 4
63] text 132 189 70 5
64] text 144 187 70 6
65] text 157 181 100 7
66] text 165 183 60 8
67] text 179 181 10 9
68] text 187 181 100 9
69] text 199 185 1952 3
70] text 209 181 60 4
71] button 47 220 2151 2154 1 0 5
72] text 104 227 100 1
73] text 115 226 100 2
74] text 128 228 20 3
75] text 139 224 70 4
76] text 152 224 100 5
77] text 162 224 1952 6
78] text 172 229 60 7
79] text 181 223 1952 8
80] text 195 229 1952 9
81] text 204 221 10 9
82] text 218 221 100 3
83] text 229 223 1452 4
Text: ____________
0] Anti Macro Gump
1] W
2] R
3] O
4] N
5] G
6]
7] B
8] U
9] T
10] I
11] H


Image

_____infogump_______
serial 0x00064e9e
gumpid 0x0dc11c73
X 122
Y 36
1329 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 0] image=0x086A at 41:20
2 [ 1] image=0x086A at 43:60
3 [ 2] image=0x086A at 47:100
4 [ 3] image=0x086A at 54:140
Checks&Radios: __
Entryes: ________
All commands: ____
1] nomove
2] noclose
3] noresize
4] gumppictiled 0 0 300 180 5222
5] text 100 0 33 0
6] button 41 20 2151 2154 1 0 0
7] text 75 27 20 1
8] text 87 22 100 2
9] text 100 26 1452 3
10] text 110 25 70 4
11] text 121 24 70 5
12] text 129 28 20 6
13] text 142 24 10 7
14] text 153 28 1952 8
15] text 164 27 20 9
16] text 176 27 1452 9
17] text 187 27 1452 3
18] text 196 26 1952 4
19] button 43 60 2151 2154 1 0 1
20] text 82 63 100 1
21] text 89 63 1452 2
22] text 100 64 60 3
23] text 113 69 1452 4
24] text 123 65 20 5
25] text 133 69 1952 6
26] text 148 64 1452 7
27] text 157 64 20 8
28] text 170 61 10 9
29] text 181 65 70 9
30] text 192 66 100 3
31] text 202 64 60 4
32] button 47 100 2151 2154 1 0 2
33] text 83 108 100 2
34] text 93 104 100 10
35] text 108 107 100 5
36] text 115 104 1952 11
37] text 127 108 1452 9
38] text 137 102 70 6
39] text 152 105 10 7
40] text 160 109 60 8
41] text 174 108 1952 9
42] text 182 103 60 9
43] text 192 109 70 3
44] text 207 105 10 4
45] button 54 140 2151 2154 1 0 3
46] text 106 148 60 1
47] text 117 144 1452 2
48] text 129 148 20 3
49] text 143 147 70 4
50] text 152 149 70 5
51] text 161 149 10 6
52] text 176 142 60 7
53] text 185 148 100 8
54] text 196 143 10 9
55] text 207 143 70 9
56] text 217 149 60 3
57] text 229 144 1452 4
Text: ____________
0] Anti Macro Gump
1] W
2] R
3] O
4] N
5] G
6]
7] B
8] U
9] T
10] I
11] H


----------------------------------------------------------------

here are 2 screenshots ans the gumps for them. hope it will be useful :)
Author:  Grin [ 2007-11-06 19:07:05 ]
Post subject: 
Code:
sub xtreme()

   var button = 0
   var i = 0
   var line = ""
   
   repeat
      button = 7 + 13*i
      if Right(uo.LastGump('command', 2+button), 2) == "10" then
         line = uo.LastGump('command', button)
         uo.LClick(Val(Mid(line, 11, 2))+uo.LastGump('x'), Val(Mid(line, 14, 3))+uo.LastGump('y'))
         repeat 
          wait(100)
         until uo.LastGump('replyed')
         return
      end if
      i = i+1
   until uo.LastGump('command', button) == "N/A"
   
end sub


Just single click on opened antimacro.
Author:  Soldyer [ 2007-11-06 19:29:53 ]
Post subject: 
ok thanks but how to implement that antimacro with this mining script

Code:
sub Mining()
VAR a = 0 # 0 <=> ???????????? ??????? ??????? # 1 <=> ???????????? ??????? ?? ??????? #
uo.setglobal('recal', '1') #???????? ?? ???????????? ?? ??????#
uo.setglobal('place', '1') #???????? ?? ??????????? ???? ?? ?????#
uo.setglobal('circle', '1') #???????? ?? ???????????? ? ????????? ????? ??? ?????? ??????? ?????#
uo.setglobal('back', '0') #???????? ?? ????????????? ??????????? ?? ????? ????? ????? ???????#
if a == 1 then
  uo.print('??????? ???? ? ????')
  uo.exec('addobject Home')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 1')
  uo.exec('addobject mine1')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 2')
  uo.exec('addobject mine2')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 3')
  uo.exec('addobject mine3')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 4')
  uo.exec('addobject mine4')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 5')
  uo.exec('addobject mine5')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 6')
  uo.exec('addobject mine6')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 7')
  uo.exec('addobject mine7')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 8')
  uo.exec('addobject mine8')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 9')
  uo.exec('addobject mine9')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 10')
  uo.exec('addobject mine10')
  while uo.targeting()
    wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 11')
  uo.exec('addobject mine11')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 12')
  uo.exec('addobject mine12')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 13')
  uo.exec('addobject mine13')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 14')
  uo.exec('addobject mine14')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
  uo.print('??????? ???? ? ????? 15')
  uo.exec('addobject mine15')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 16')
  uo.exec('addobject mine16')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 17')
  uo.exec('addobject mine17')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 18')
  uo.exec('addobject mine18')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 19')
  uo.exec('addobject mine19')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 20')
  uo.exec('addobject mine20')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 21')
  uo.exec('addobject mine21')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 22')
  uo.exec('addobject mine22')
  while uo.targeting()
      wait(100)
  wend
  wait(1000)
    uo.print('??????? ???? ? ????? 23')
  uo.exec('addobject mine23')
  while uo.targeting()
      wait(100)
  wend
  return
endif
uo.exec('exec CheckingItems')
end sub

sub CheckingItems()
VAR b
uo.findtype('0x0F0E') #??? ?????? ???????#
if uo.findcount() > 0 then
  uo.moveitem('finditem', '-1', 'Sunduk1')
  wait(1000)
  checklag()
endif
DIM Ore[4]
Ore[0] = '0x19B9' #??? 4?? ? ????? ????#
Ore[1] = '0x19B8' #??? 3?? ????#
Ore[2] = '0x19BA' #??? 2?? ????#
Ore[3] = '0x19B7' #??? 1?? ???#
for var a = 0 to 3
  uo.findtype(Ore[a])
  while uo.findcount() > 0
    uo.moveitem('finditem', '-1', 'Sunduk2')
    wait(1000)
    checklag()
    uo.findtype(Ore[a])
  wend
next
uo.useobject('Sunduk1')
wait(1000)
checklag()
DIM Reg[3]
Reg[0] = '0x0F7A' #Black Pearl# 
Reg[1] = '0x0F7B' #Bood Moss#   
Reg[2] = '0x0F86' #Mandrake Root#         
for b = 0 to 2
  if uo.count(Reg[b]) < 50 then
    uo.findtype(Reg[b], '-1', 'Sunduk1')
    if uo.findcount() > 0 then
      uo.moveitem('finditem', '50')
      wait(1000)
      checklag()
    else
      uo.print('??? ???????????? ?????????? ????? ? ???????')
      return
    endif
  endif
next
if uo.count('0x0F08') < 5 then #??? ???????#
  uo.findtype('0x0F08', '-1', 'Sunduk1')
  if uo.findcount() > 0 then
    uo.moveitem('finditem', '5')
    wait(1000)
    checklag()
  else
    uo.print('??? ???????????? ?????????? ??????? ? ???????')     
    ;return
  endif
endif
uo.findtype('0x0E85') #??? ?????#
while uo.findcount() < 7
  uo.findtype('0x0E85', '-1', 'Sunduk1')
  if uo.findcount() > 0 then
    uo.moveitem('finditem', '1')
  else
    uo.print('??? ???????????? ?????????? ????? ? ???????')
    return
  endif
  wait(1000)
  checklag()
  uo.findtype('0x0E85')
wend
if val(uo.getglobal('back')) == 1 then
  wait(50)
else
  uo.exec('exec Teleportation')
endif
end sub

sub Teleportation()
VAR a, b, c
VAR d = uo.getx('self')
repeat
  while uo.mana < 11
    uo.warmode('0')
    uo.useskill('Meditation')
    wait(1000)
  wend
  a = 0
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
    uo.usetype('0x0F08')
    uo.closeuo()
  else
    wait(50)
  endif
  uo.deletejournal()
  if val(uo.getglobal('recal')) == 1 then
    uo.waittargetobject('mine1')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 2 then
    uo.waittargetobject('mine2')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 3 then
    uo.waittargetobject('mine3')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 4 then
    uo.waittargetobject('mine4')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 5 then
    uo.waittargetobject('mine5')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 6 then
    uo.waittargetobject('mine6')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 7 then
    uo.waittargetobject('mine7')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 8 then
    uo.waittargetobject('mine8')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 9 then
    uo.waittargetobject('mine9')
    uo.cast('Recall')
  else
    wait(50)
  endif
  if val(uo.getglobal('recal')) == 10 then
    uo.waittargetobject('mine10')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 10 then
    uo.waittargetobject('mine10')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 11 then
    uo.waittargetobject('mine11')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 12 then
    uo.waittargetobject('mine12')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 13 then
    uo.waittargetobject('mine13')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 14 then
    uo.waittargetobject('mine14')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 15 then
    uo.waittargetobject('mine15')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 16 then
    uo.waittargetobject('mine16')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 17 then
    uo.waittargetobject('mine7')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 18 then
    uo.waittargetobject('mine18')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 20 then
    uo.waittargetobject('mine20')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 21 then
    uo.waittargetobject('mine21')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 22 then
    uo.waittargetobject('mine22')
    uo.cast('Recall')
  else
    wait(50)
  endif
    if val(uo.getglobal('recal')) == 23 then
    uo.waittargetobject('mine123')
    uo.cast('Recall')
  else
    wait(50)
  endif
  repeat
    wait(100)
    a = a + 1
  until a > 35 or d <> uo.getx('self') or uo.injournal('The spell fizzles.')
  wait(500)
until not uo.injournal('The spell fizzles.')
b = val(uo.getglobal('recal')) + 1
uo.setglobal('recal', str(b))
if val(uo.getglobal('recal')) > 23 then
  uo.setglobal('recal', '1')
endif
uo.set('finddistance', '7')
uo.findtype('0x000E', '-1', '1') #??? ??????????#
if uo.findcount() > 0 then
  uo.usetype('0x0F08')
  uo.exec('exec Teleportation')
  return
endif
if val(uo.getglobal('back')) == 0 then
  uo.exec('exec CheckingPlayers')
  uo.setglobal('place', '1')
  uo.setglobal('circle', '1')
  uo.exec('exec Obkopka') 
else
  uo.setglobal('back', '0')
endif
end sub


sub CheckingPlayers()
VAR a, b
uo.ignore('self', 'on')
DIM Chars[2]
Chars[0] = '0x1190' #??? ?????? ???????? ????#
Chars[1] = '0x1191' #??? ?????? ???????? ????#
while not uo.dead()
  for a = 0 to 1
    if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
      uo.usetype('0x0F08')
      uo.closeuo()
    else
      wait(50)
    endif     
    while val(uo.getglobal('find')) == 1
      wait(50)
    wend
    uo.set('finddistance', '15')
    uo.findtype(Chars[a], '-1', '1') 
    if uo.findcount() > 0 then
      uo.usetype('0x0F08')
      uo.exec('terminate Teleportation')
      uo.exec('terminate Obkopka')
      uo.exec('terminate ChengePlace')
      uo.exec('exec Teleportation')
      return
    else
      wait(500)
    endif
  next
wend
end sub

sub Obkopka()
VAR mx, my, mz, a, b, c, d, e, f
while not uo.dead()
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
    uo.usetype('0x0F08')
    uo.closeuo()
  else
    wait(50)
  endif     
  uo.deletejournal()
  mx = uo.getx('self')
  my = uo.gety('self')
  mz = uo.getz('self')
  for a = mx-2 to mx+2
    for b = my-2 to my+2
      while not uo.Hidden()
        c = 0
        uo.warmode('0')
        uo.useskill('Stealth')
        repeat
          wait(100)
          c = c + 1
        until uo.Hidden() or c > 40
      wend
      uo.print('!!!?????? ???!!!>>> : '+str(mx-a)+' '+str(my-b))
      d = val(uo.getglobal('place')) + 1
      uo.setglobal('place', str(d))
      while not uo.injournal('no ore here') and not uo.injournal('location') and not uo.injournal('far away') and not uo.injournal('in rock') and not uo.injournal('You broke')
        if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
          uo.usetype('0x0F08')
          uo.closeuo()
        else
          wait(50)
        endif     
        uo.deletejournal()
        if uo.waiting() then
          uo.canceltarget()
        else
          wait(50)
        endif
        uo.waittargettile('1341', str(a), str(b), str(mz))
        uo.usetype('0x0E85') #??? ?????#
        while not uo.injournal('You put') and not uo.injournal('location') and not uo.injournal('no ore') and not uo.injournal('but fail') and not uo.injournal('far away') and not uo.injournal('in rock') and not uo.injournal('You broke')
          wait(500)
        wend
        uo.setglobal('find', '1')
        wait(200)
        uo.set('finddistance', '7')
        uo.findtype('0x000E', '-1', '1') #??? ??????????#
        if uo.findcount() > 0 then
          uo.setglobal('find', '0')
          uo.usetype('0x0F08')
          uo.exec('exec Teleportation')
          uo.exec('terminate CheckingPlayers')
          return
        else
          uo.setglobal('find', '0')
        endif     
        if val(uo.getglobal('place')) > 25 then
          uo.setglobal('place', '1')
          uo.exec('exec ChengePlace')         
          return
        else
          wait(50)
        endif
        if uo.weight > 600 then #???????????? ???#
          uo.setglobal('back', '1')
          uo.exec('terminate CheckingPlayers')
          GoHome()
          CheckingItems()
          Teleportation()
          Back()
          uo.exec('exec CheckingPlayers')
        else
          wait(50)
        endif
      wend
      if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
        uo.usetype('0x0F08')
        uo.closeuo()
      else
        wait(50)
      endif     
      uo.deletejournal()
    next
  next
wend
end sub

sub ChengePlace()
VAR a, b, c, d, e, f, g, h, i, j, k
if val(uo.getglobal('circle')) > 3 then
  uo.setglobal('circle', '1')
  uo.exec('terminate CheckingPlayers')
  uo.exec('exec Teleportation')
  return
endif
if val(uo.getglobal('circle')) == 1 then
  if uo.getdir('self') == 3 then
    a = 1
  else
    a = 2
  endif
  for b = 1 to a
    uo.press(40)
    wait(300)
  next
  for c = 1 to 3
    uo.press(34)
    wait(300)
  next
  for d = 1 to 2
    uo.press(39)
    wait(300)
  next
  endif
endif
if val(uo.getglobal('circle')) == 2 then
  if uo.getdir('self') == 1 then
    a = 1
  else
    a = 2
  endif
  for e = 1 to a
    uo.press(39)
    wait(300)
  next
  for f = 1 to 3
    uo.press(33)
    wait(300)
  next
  for g = 1 to 2
    uo.press(38)
    wait(300)
    next
  endif
if val(uo.getglobal('circle')) == 3 then
  if uo.getdir('self') == 7 then
    a = 1
  else
    a = 2
  endif
  for h = 1 to a
    uo.press(38)
    wait(300)
  next
  for i = 1 to 3
    uo.press(36)
    wait(300)
  next
  for j = 1 to 2
    uo.press(37)
    wait(300)
  next
endif
k = val(uo.getglobal('circle')) + 1
uo.setglobal('circle', str(k))
uo.exec('exec Obkopka')
end sub

sub checklag()
uo.click('backpack')
while not uo.injournal('backpack')
  wait(100)
wend
uo.deletejournal('backpack')
end sub

sub GoHome()
VAR a, b, c, d, e
uo.warmode('0')
a = uo.getx('self')
repeat
  while uo.mana < 11
    uo.warmode('0')
    uo.useskill('Meditation')
    wait(1000)
  wend
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then
    uo.usetype('0x0F08')
    uo.closeuo()
  else
    wait(50)
  endif 
  b = 0
  uo.deletejournal()
  uo.waittargetobject('Home')
  uo.cast('Recall')
  repeat
    wait(100)
    b = b + 1
  until b > 35 or a <> uo.getx('self') or uo.injournal('The spell fizzles.')
until not uo.injournal('The spell fizzles.')
for c = 1 to 6
  uo.press(33)
  wait(300)
next
uo.opendoor()
wait(500)
uo.press(33)
wait(300)
uo.opendoor()
for d = 1 to 6
  uo.press(33)
  wait(300)
next
e = val(uo.getglobal('recal')) - 1
uo.setglobal('recal', str(e))
end sub

sub Back()
VAR a, b, c, d, e, f, g, h, i, j
if val(uo.getglobal('circle')) > 1 then
  if uo.getdir('self') == 3 then
    f = 1
  else
    f = 2
  endif
  for a = 1 to f
    uo.press(40)
    wait(300)
  next
  for b = 1 to 3
    uo.press(34)
    wait(300)
  next
  for c = 1 to 2
    uo.press(39)
    wait(300)
  next
endif
endif
if val(uo.getglobal('circle')) > 2 then
  if uo.getdir('self') == 1 then
    f = 1
  else
    f = 2
  endif
  for d = 1 to f
    uo.press(39)
    wait(300)
  next
sub main()
   UO.Print("Hello from function MAIN")
end sub


PS: the antimacro shows up at random times

and what is the meaning of sunduk??? on the scripts
Author:  Soldyer [ 2007-11-08 18:07:20 ]
Post subject: 
Grin wrote:
Code:
sub xtreme()

   var button = 0
   var i = 0
   var line = ""
   
   repeat
      button = 7 + 13*i
      if Right(uo.LastGump('command', 2+button), 2) == "10" then
         line = uo.LastGump('command', button)
         uo.LClick(Val(Mid(line, 11, 2))+uo.LastGump('x'), Val(Mid(line, 14, 3))+uo.LastGump('y'))
         repeat 
          wait(100)
         until uo.LastGump('replyed')
         return
      end if
      i = i+1
   until uo.LastGump('command', button) == "N/A"
   
end sub


Just single click on opened antimacro.



I tried running this fuction with antimacro gump opened and npthing happened
Author:  ozcaN [ 2007-11-17 00:34:32 ]
Post subject: 
any word on if this works?
Author:  korupt [ 2007-11-20 16:56:19 ]
Post subject: 
Not to be a party pooper, but that script will doubtfully work. The gump is pretty much fully randomized in it's appearance, but sadly, I've been away from injection far to long. I don't know what all functions are in that script and since the documentation is in russian, I prolly wont.


I'll make a web based captcha system instead, where you have to go to the web page, get the image "code", and write it ingame. Just to be on the safe side:p


And aptar, a new forum name might be good:P I'd ban you if I suspected that you had something that broke the anti macro:(
Author:  Mazer [ 2007-11-20 21:32:10 ]
Post subject: 
i have idea update you injection to 505.18 FixGump and that anti macro system will work perfectly
Author:  korupt [ 2007-11-20 21:41:10 ]
Post subject: 
Mazer, can you explain in pseudo what the function does? How it works and how it determines the right "option"
Author:  ozcaN [ 2007-11-22 00:16:05 ]
Post subject: 
you always have to ruin my fun maka
Author:  Mazer [ 2007-11-22 08:14:52 ]
Post subject: 
Im not so inteligent :) to explain everything :) but i know anti macro system wont work without injection gumpfix :))
Author:  sandro84 [ 2007-11-26 01:30:23 ]
Post subject: 
А как запустить этот анти макрос что то ничего не получается ((( Подскажите плиз...
Author:  sandro84 [ 2007-12-10 00:41:23 ]
Post subject: 
up
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/