rabota s gumpami

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

rabota s gumpami

Post by Bangbuss »

kto tut umeet rabotat' s gumpami? mne nuzhna pomosh.

Image

no tam ochen hitra tam nado vesti kod bez tochek, kak ja vvel v kartinke. bivaet i bukvi.

Code: Select all

_____infogump_______
serial   0x000180a8
gumpid   0x000003fa
X   0
Y   0
446   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] esizepic 123 106 3600 245 28
    2] esizepic 136 120 9270 221 26
    3] ext 215 150 2594
    4] esizepic 165 243 3000 167 3
    5] ext 178 205 2607
    6] utton 212 296 12002 12002 1 0
    7] utton 169 346 2714 2714 1 0
    8] utton 76 284 82 82 1 0
    9] ext 193 345 2594
   10] ext 298 345 2594
   11] utton 275 346 2714 2714 1 0
   12] extentry 165 243 156 28 0 1
Text: ____________
    0] AFK Check
    1] { 0 , 2 , 0 , 1  }
    2] Help
    3] Info
    4] Info
Last edited by Bangbuss on 2009-02-28 11:49:08, edited 1 time in total.
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

ktota mozhet pomoch etot skript nastroit' pod menja? skript vzat' ot suda http://forum.yoko.com.ua/viewtopic.php?t=12991&highlight=anti, tam u cheloveka pohozhij antimakro. Ochen nado, pomagite.

Code: Select all

sub Solve()

   var code = ""
   var line = ""
   var i = 0
   button 3 359
   if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'AFK Check' then
         uo.LClick(3, val(Right(uo.LastGump('button', 0), 3)))
         repeat
            wait(1000)
         until uo.LastGump('replyed', 0)
         return 1
      else
         if uo.LastGump('text', 0) == 'AFK Check:' then
            line = uo.LastGump('text', 1)
            for i = 0 to int(len(line)/3)-1
               code = code+line[2+i*3]
            next
            uo.Say(code)
            wait(1000)
            line = Right(uo.LastGump('button', 0), 7)
            uo.LClick(val(Left(line, 3)), val(Right(line, 3)))
            repeat
               wait(1000)
            until uo.LastGump('replyed', 0)
            return 2
         end if
      end if
   endif
   
end sub
Last edited by Bangbuss on 2009-02-26 12:01:18, edited 2 times in total.
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

уважаемый мр. Grin, поможете?
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

up
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

viewtopic.php?t=14405

Только я не слишком уверен, что мое творение будет работать.. -)

Я скрипты уже год не писал, если не два -)

PS: У тебя скриншот отличается от infogump'а - кто тебе будет думаешь помогать, когда ты не можешь нормально информацию выложить ? ;-)
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Post Reply