[script] assassin's trasporting

[gordoso]

come dal nome che ho dato allo script si può facilmente dedurre che questo script l ha creato assasin.
come funziona?
Voi vi mettete davanti alla cassa dove ci sono i lingotti fate play e selezionate cassa e runebook.

Nel runebook come prima runa ci deve essere la runa per casa e successivamente quella per la banca.

all'inizio trovate questo codice :

; iron = 0
; dull copper = 2419
; shadow iron = 2406
; agapite = 2425
; copper = 2413
; bronzo = 2418
; gold = 2213
; verite = 2207
; valorite = 2219

set %iron_col 2425

cambiate il valore di %iron_col con il colore del metallo che volete trasportare segnato nelle lista sopra e lui portera' in banca tutto il metallo di quel tipo.

poco piu sopra trovate :

set %MaxIronSale 4000

cambiate con il numero di lingotti massimo che puo portare il vostro pg.

script:

  set %homeposx #charposx
  set %homeposy #charposy
  set %homeposz #charposz

  set %MaxIronSale 4000
  set %IronType ENK
  ; iron = 0
  ; dull copper = 2419
  ; shadow iron = 2406
  ; agapite = 2425
  ; copper = 2413
  ; bronzo = 2418
  ; gold = 2213
  ; verite = 2207
  ; valorite = 2219

  set %iron_col 0

  display ok seleziona la cassa dove prendere il metallo
  set #targcurs 1
  set %loop #true
  while %loop
  {
      if #targcurs = 1
            wait 5
      else
          set %loop #false
  }
  set %Cassa #ltargetid
  event macro 2 0 Cassa salvata

  display ok seleziona il runebook da utilizzare
  set #targcurs 1
  set %loop #true
  while %loop
  {
        if #targcurs = 1
           wait 5
        else
           set %loop #false
  }
  set %RuneBook #ltargetid
  event macro 2 0 runebook salvato

  set %continua #true

  while #true
  {
        gosub Rifornimento
        if #result
        {
           gosub s7UseRunebook %RuneBook 2 r
           set %loop #true
           while %loop
           {
            set #NEXTCPOSX 10
            set #NEXTCPOSY 30
            msg Bank $
            wait 10

            if #CONTTYPE = IKF
            {
               set %BancaID #CONTID
               set %loop #false

               findItem %IronType C_ , #backpackid
               if #findkind <> -1
               {
                  Exevent Drag #findid #findstack
                  wait 20
                  Exevent Dropc %BancaID
               }
            }
            else
            {
               event macro 2 0 Id banca non trovato, riprovo...
               wait 50
            }
          }
          gosub s7UseRunebook %RuneBook 1 r
          event PathFind %homeposx %homeposy %homeposz
          wait 3s
        }
        else
        {
            display ok Materiale spostato.
            halt
        }
  }


  sub Rifornimento
      set #lobjectid %Cassa
      event macro 17
      wait 15

  piloop:
        finditem %IronType c_ , %Cassa
        if #findkind = -1
        {
             ignoreitem reset
             return #false
        }
        if #findCol <> %iron_col
        {
             ignoreitem #findid
             goto piloop
         }
        ignoreitem reset
        wait 10
  piridrag:
      if #findstack < 4
      {
         return #false
      }
      set %fspi #findstack
      if %fspi > %MaxIronSale
      {
         set %fspi %MaxIronSale
      }
      Exevent Drag #findID %fspi
      gosub AntiBlock
      wait 10
      Exevent Dropc #BACKPACKID
      return #true
  return 

questo porta solo lingotti da casa alla banca ma se qualcuno ha tempo e voglia potrebbe ripostarlo con le seguenti modifiche:
porta legno( tutti i tipi)
lighi ( tutti i tipi)
pelli ( tutti i tipi)
sia da casa a bank che da bank a casa.

sarebbe bello creare anche una finestra in modo tale da impostare con più facilità ciò che si vuole portare.
(spero che questo che ho postato sia utile al popolo di sosaria e che i nostri bravi scripter si diano da fare a migliorare questo ottimo e utile script)

GORDOSO