ИНскрипт на ГАмпе

[skorp]

вот искал у вас скрипт для инскрипта для гамповой менюшки и не нашёл решил написать сам..... Просьба подсказать как можно опримизировать юзание кнопочек для написания скролов. Т.К. гамп переодически крашит клиент?????????

Code: Select all

######################################################
 ###### Инскирипт с гамповой менюшкой By SKORP ########
 ######################################################


 var Sunduk = '0x4001AADF' ;ID сундука
 var Scroll = '0x0E34' ; type scroll
 var Hiding = 1  ; прятаться 1 не прятаться 0
 var G_Serial = '0x000080EC' ; serial Gump

 ##############################
 # Bm =  0x0F7B
 # Bp =  0x0F7A
 # Ga =  0x0F84
 # Gi =  0x0F85
 # Mr =  0x0F86
 # Ns =  0x0F88
 # Sa =  0x0F8C
 # SS =  0x0F8D
 #
 # Функция вызова написани я скрола
 # sub inscr(mane,S_type,reg1,reg2,reg3,reg4,G_reply,G_type,circle)
 # Где
 # sub inscr(имя скрола,Тип_написаного_скрола,Реги_1,Реги_2,Реги_3,Реги_4,ONGump_reply,ONGump__type,Круг_магии)
 ##############################
sub SRecal()
  inscr('РЕКАЛЛ','0x1F4C','0x0F7B','0x0F7A','0x0F86','','0x00000040','0x0020',4)
end sub

sub Lightning()
  inscr('Молния','0x1F4A','0x0F7A','0x0F86','0x0F8C','','0x00000040','0x001E',4)
end sub
 ###############################

 sub inscr(mane,S_type,reg1,reg2,reg3,reg4,G_reply,G_type,circle)
  var time = 0
  while not uo.Dead()
  time = 0
   move(scroll)

   if reg1<>'' then
        cheklag()
        wait(100)
        Move(reg1)
   endif

   if reg2<>'' then
        cheklag()
        wait(100)
        Move(reg2)
   endif

   if reg3<>'' then
        cheklag()
        wait(100)
        Move(reg3)
   endif

   if reg4<>'' then
        cheklag()
        wait(100)
        Move(reg4)
   endif

   if Hiding == 1 then
       hide()
   endif

   uo.Print(mane)

   UO.OnGump(G_Serial,G_reply,G_type)
   cheklag()
   uo.UseType(Scroll)
   repeat
    wait(100)
   until not uo.lastgump( 'replyed' )
   cheklag()

   MClick (circle)

   UO.DeleteJournal()
    repeat
        wait(100)
        time = time + 1
    until UO.InJournal('You put the') OR UO.InJournal('You fail') OR time == 100

    medit()

    UO.FindType(S_type,'0x0000','backpack')
    if UO.Count('finditem')>=50 then
         cheklag()
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait(500)
         UO.Print( 'Scroll moved' )
    Endif

 wend
 end sub
################################
sub Move(item)
UO.FindType(item,'0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType(item,'0x0000',Sunduk)
wait(200)
cheklag()
UO.Grab('100','finditem')
wait(1000)
cheklag()
end if
end sub

sub hide()
 while not UO.Hidden()
     uo.WarMode("0")
   uo.UseSkill("Hiding")
     wait(1500)
 wend
 end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub medit() ;
    if uo.mana < 20 then
    while uo.mana<90
      uo.useskill('Meditation')
      wait (5000)
    wend
    end if
end sub

sub MClick (circle)

    if circle == 2  then
        cheklag()
        wait(100)
        uo.LClick (351, 226)
    endif

     if circle == 3  then
        cheklag()
        wait(100)
        uo.LClick (440, 228)
    endif

     if circle == 4  then
        cheklag()
        wait(100)
        uo.LClick (528, 228)
    endif

     if circle == 5  then
        cheklag()
        wait(100)
        uo.LClick (281, 208)
    endif

     if circle == 6  then
        cheklag()
        wait(100)
        uo.LClick (376, 210)
    endif

     if circle == 7  then
        cheklag()
        wait(100)
        uo.LClick (464, 212)
    endif

     if circle == 8  then
        cheklag()
        wait(100)
        uo.LClick (550, 209)
    endif


end sub

процедуру вызова менюшки

Code: Select all

UO.OnGump(G_Serial,G_reply,G_type)
cheklag()
uo.UseType(Scroll)
repeat
wait(100)
until not uo.lastgump( 'replyed' )
cheklag()

MClick (circle) 

где MClick (circle) просто координаты клика для перехода на нужный круг <<----- по возможности избавиться от этого

[skorp]

НЕ ужели не кто не чего не подскажет?

[kama26]

Code: Select all

sub inscriptlight()
var f
        DIM reg[4]
        reg[0]=0x0F8C    #SA
        reg[1]=0x0F7A    #bp
        reg[2]=0x0F86    # mr
        reg[3]=0x0E34    #бланки




   UO.Print("Pokaji sunduk s regami!")
   UO.AddObject('qwe')
   While UO.Targeting()
      wait(200)
   Wend
   UO.UseObject('qwe')
  
       While TRUE

     for f=0 to 3
      if uo.Count(reg[f]) < 1 then
        uo.FindType(reg[f],'-1','qwe')
          if UO.FindCount() > 0 then
            uo.moveitem('finditem','100')
            wait(1000)
          else
            UO.Print('There are no regs!!!')
            uo.exec("terminate all")
          end if
      end if
    next
      

    UO.DeleteJournal() 
     Checklag()
   TB2()
      Repeat
         wait(200)
         
      Until UO.InJournal("You put|fail")

   Wend 
   
end sub

sub TB1()
    sub TB1()
   
   VAR Kniga='0x0000003d'      ; Id knigi receptov
   VAR Button1='804'
   UO.Set('norbcalc',1)
   UO.Set('norbcheck',1)
   
   UO.recall(Kniga,Button1)
   
end sub


sub TB2()
   VAR SecondGump='0x00000040'   ; GUMP Id, otkrit` knigu vibrat` potion i ,infogump
   VAR Button2='30'      ; knopka na pervom GUMPe
   UO.UseType("0x0E34") 
   UO.OnGump('anyserial',SecondGump,Button2)
   
   TB1()
end sub 
Sub Checklag()

   deljournal('a backpack')
   uo.click('backpack')
   repeat
      wait(50)
   until uo.injournal('a backpack')
endsub
Sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,"")
   wend
endsub 

вот мой скрипт на фв у меня нуна ещё страницу перещёлкивать ((
впринципе работает но иногда тоже крашит примерно раз в 3 часа , но как голову не ломал так не чего и не получилось (((



p.s. : писал сам (ни где не учился ) так что может быть коряво но работаеть )))