[CERCO] Script Bowcraft

[Baphometh]

che ve devo dire provate lo script:

;variabili
set %pipo 0
set %cestino 0
set %dardi LNK
set %sacca ZJF
set %talismani FWR_EWR_DWR_GWR
set %banca OOD
set %kit UFG

;set %valoreamuleto 0
;---------------------------------------
; inizio
;---------------------------------------

gosub trovali

Ricomincia:
gosub controlli

wait 10
gosub trova_quest
gosub targhetta_dardi
wait 15
gosub spostaitem

goto ricomincia

halt

;----------------------------------------
;iniziano le sub
;----------------------------------------

sub spostaitem
FINDITEM %sacca
set #ltargetid #findid
set %saccadabuttare #FINDID
wait 5
event macro 17 0
wait 15
finditem %talismani C_ , %saccadabuttare
if #findkind <> -1
{
    event property #findid
    if Blacksmiting in #property || Tailoring in #property || Thinkering in #property || Inscription in #property || Carpentery in #property || Cooking in #property
    {
       if 12 in #property || 23 in #property || 24 in #property || 25 in #property || 26 in #property || 28 in #property || 29 in #property || 30 in #property
       {
       wait 15
       exevent drag #FINDID 1
       wait 10
       exevent dropc #BACKPACKID
       wait 10
       }
    }

}
wait 10

finditem %kit C_ , %saccadabuttare
if #findkind <> -1
{
    wait 15
    exevent drag #FINDID 1
    wait 10
    exevent dropc #BACKPACKID
    wait 10
}
wait 10
exevent drag %saccadabuttare 1
wait 10
exevent dropc %cestino
wait 20

return

;-----------------------------------------

sub trovali
display ok Targhetta il pipo.
Set #targCurs 1
while #TARGCURS = 1
  wait 5
set %pipo #LTARGETID

display ok Targhetta un cestino(mettiti vicino al cestino).
Set #targCurs 1
while #TARGCURS = 1
  wait 5
set %cestino #LTARGETID
return

;----------------------------------------------------

sub controlli
finditem #backpackid
event Property #findID
if 122/125 in #property || 123/125 in #property || 124/125 in #property || 125/125 in #property ||
  halt
if #WEIGHT > 400
  HALT
;return
finditem %dardi c_ , #BACKPACKID
if #FINDSTACK < 20
{
;QUI C'E' IL REFILL DA METTERE CON LA BANCA
     wait 5
     finditem %banca C_ , #BACKPACKID
     if #findkind <> -1
     {
      set %trovato #findid
      set #LTARGETID %trovato
      wait 5
      event macro 17 0
      wait 5
      finditem %dardi C_ , %trovato
      if #findkind <> -1
         {
         if #findstack < 100
            {
            halt
            }
         wait 5
         exevent drag #FINDID 100
         wait 10
         exevent dropc #BACKPACKID
         wait 10
         }
      return
      }
      halt
}

return
;----------------------------------------------------

Sub trova_quest
trovaq:
set #LOBJECTID %pipo
event macro 17 0
wait 10
 contpos 0 0
  wait 8
  savepix 202 236 1
  if #pixcol = 8710077
  {
     click 130 400
     return
  }
  ;call kalocr.txt getMLQInfo QuestOffer 0 0
  ;if Darts in %1
  ;{
  ;   click 130 400
  ;   return
  ;}

  wait 8
  click 350 400
  wait 8
  click 350 400
  goto trovaq
return

;-------------------------------------------------------------------------
sub targhetta_dardi
wait 5
exevent popup #charid 6
wait 10
finditem %dardi c_ , #BACKPACKID
set #ltargetid #findid
set #ltargetkind 1
wait 10
event macro 22 0
wait 10
set #LOBJECTID %pipo
event macro 17 0
wait 10
contpos 0 0
wait 10
click 130 400
wait 8
contpos 0 0
wait 10
click 130 400
return

domani lo finisco , se volete provarlo , ma e' pieno di bug
se trovate ****** sostituitelo con pipo

Basta avere i dardi nel backpack e poi ti fa 2 domande la macro e parte se trova la banca portatile prova ad aprirla (non ce l'ho e ho fatto lo script un po a memoria) e cerca di trovare i dardi , vanno un po fixxate le pause , poi non so ci saranno tanti bug vedete se vi piace. domani se ho tempo la finisco. ciao

[thunderfire]

asd abbiamo fatto

edit: a inizio script mi dice 'targhetta il pipo' cosa sarebbe?

[Baphometh]

il pipo e' il quester , ora esco a domani

[thunderfire]

il pipo e' il quester , ora esco a domani

a domani

edit: prima andava ora ho cambiato pg riprovato targhetto pipo e cestino e lo script si ferma °_°

[Baphometh]

nella linea di codice

sub targhetta_dardi
wait 5
exevent popup #charid 6
wait 10
finditem %dardi c_ , #BACKPACKID
set #ltargetid #findid
set #ltargetkind 1
wait 10
event macro 22 0
wait 10
set #LOBJECTID %pipo
event macro 17 0

metti exevent popup #charid 7
ti ho detto ho ricominciato da capo , l'ultima versione che avevo fatto correggeva in automatico sto problema , il fatto che condizione era non me lo ricordo perche un pg (in pratica un pg ha 6 o 7 abilita diciamo se clicchi su di te vedi: open paperdoll ,open backpack... la settima/sesta e' "toggle item quest"). Te l'ho detto l'ho fatto al volo ieri , non ti aspettare l'accuratezza ^^
Altri errori ? funziona la banca?

[thunderfire]

Allora.. piu o meno funzionava come ci aspettavamo diciamo.. solo non ho capito come mai su un personaggio non andava, sull'altro si.. mah

la banca non ho avuto modo di provarla, ho notato però che lo script è lentino nel fare le quest (non che non vada bene ) se si potesse velocizzare sarebbe ancora meglio.. e altro 'problema' che ho riscontrato è che la tabella (se cosi possiamo chiamarla, insomma la cosa che esce prendendo la quest <.<) si muove continuamente a destra e a manca facendo laggare leggermente il gioco.. ^^

[Baphometh]

;variabili
set %quester 0
set %cestino 0
set %dardi LNK
set %sacca ZJF
set %talismani FWR_EWR_DWR_GWR
set %banca OOD
set %kit UFG

;---------------------------------------
; inizio
;---------------------------------------

gosub trovali
;gosub trova_quest
Ricomincia:

gosub controlli
wait 6
gosub trova_quest
gosub targhetta_dardi
wait 10
gosub spostaitem

goto ricomincia

halt

;----------------------------------------
;iniziano le sub
;----------------------------------------

sub spostaitem
FINDITEM %sacca C_ , #backpackid
if #findkind <> -1
{
   set #LOBJECTID #findid
   set %saccadabuttare #FINDID
   wait 5
   event macro 17 0
   wait 10
   finditem %talismani C_ , %saccadabuttare
   if #findkind <> -1
   {
     event property #findid
     wait 5
      if Blacksmiting in #property || Tailoring in #property || Thinkering in #property || Inscription in #property || Carpentry in #property || Cooking in #property
      {
        if 23 in #property || 24 in #property || 25 in #property || 26 in #property || 28 in #property || 29 in #property || 30 in #property
      {
        wait 15
        exevent drag #FINDID 1
        wait 10
        exevent dropc #BACKPACKID
        wait 10
       }
       }
   }
}
wait 5

finditem %kit C_ , %saccadabuttare
if #findkind <> -1
{
    wait 15
    exevent drag #FINDID 1
    wait 10
    exevent dropc #BACKPACKID
    wait 10
}

wait 5
finditem PIP C_ , %saccadabuttare
if #findkind <> -1
{
   wait 5
   event property #findid
   if Blight in #property || Faerie in #property || Mischief in #property || Reaper in #property || Feywood in #property
   {
    wait 15
    exevent drag #FINDID 1
    wait 10
    exevent dropc #BACKPACKID
    wait 10
   }
   
}
wait 10
exevent drag %saccadabuttare 1
wait 10
exevent dropc %cestino
wait 5

return

;-----------------------------------------

sub trovali
display ok Targhetta il Quester.
Set #targCurs 1
while #TARGCURS = 1
  wait 5
set %quester #LTARGETID

display ok Targhetta un cestino(mettiti vicino al cestino).
Set #targCurs 1
while #TARGCURS = 1
  wait 5
set %cestino #LTARGETID
return

;----------------------------------------------------

sub controlli
finditem #backpackid
event Property #findID
if 122/125 in #property || 123/125 in #property || 124/125 in #property || 125/125 in #property
{
  display ok Il backpack sta per scoppiare.
  halt
  }
if #WEIGHT > 400
{
   display ok Pesi troppo svuotati.
  HALT
  }
finditem %dardi C_ , #BACKPACKID

if #FINDSTACK < 20
{
     wait 5
     finditem %banca C_ , #BACKPACKID
     if #findkind <> -1
     {
      set %trovato #findid
      set #LTARGETID %trovato
      wait 5
      event macro 17 0
      wait 5
      finditem %dardi C_ , %trovato
      if #findkind <> -1
         {
         if #findstack < 200
            {
            display ok Troppi pochi dardi.
            halt
            }
         wait 5
         exevent drag #FINDID 200
         wait 10
         exevent dropc #BACKPACKID
         wait 10
         }
      return
      }
      display ok Troppi pochi dardi.
      halt
}

return
;----------------------------------------------------

Sub trova_quest
trovaq:
set #LOBJECTID %quester
event macro 17 0
wait 5
  set %ax 202 + #contposx
  set %ay 236 + #contposy
  savepix %ax %ay 1
  wait 5
  if #pixcol = 8710077
  {
     wait 2
     set %ax 130 + #contposx
     set %ay 400 + #contposy
     wait 5
     click %ax %ay
     wait 2
     return
  }
  set %ax 370 + #contposx
  set %ay 400 + #contposy
  wait 2
  click %ax %ay
  wait 2
  click %ax %ay
  wait 2
  goto trovaq
return

;-------------------------------------------------------------------------

sub targhetta_dardi
wait 5
exevent popup #charid 6
wait 5
finditem %dardi c_ , #BACKPACKID
set #ltargetid #findid
set #ltargetkind 1
wait 5
event macro 22 0
wait 5
set #LOBJECTID %quester
event macro 17 0
wait 8
;contpos 0 0
set %ax 130 + #contposx
set %ay 400 + #contposy
wait 8
click %ax %ay
wait 8
;contpos 0 0
click %ax %ay
return

direi che e' buona , dovete mettere nel pg i dardi o li mettete in banca e mettete una banca portatile nel backpack . Poi vi chiedera di targhettare 2 cose , e poi fa tutto da solo , testate e ditemi se c sono bug alla prossima

[thunderfire]

Mmm tiene tutti i talismani che abbiano una qualsiasi props a 23-30 non solo le skill lavorative.. la bank non ho avuto modo di provarla ancora.. spesso si impalla quando accetta la quest delle frecce una volta accettata inizia a fare cancel ma si ripresenta sempre la stessa schermata e fa cancel in loop.. alcune quest delle frecce le rifiuta tirando avanti.. poi se cambio schermata (internet altro client ecc) lo script non prosegue, prosegue solo se è in primo piano diciamo.. e ultima cosa sarebbe utile tenesse anche i talismani slayer..
Questi sono i miglioramenti che ho trovato
Di base funziona abbastanza bene, ho gia trovato un heartwood e due recipe rare