[EasyUO - REQ] Aggiunta di una funzionalità

[Vix987]

Scusate raga questo è il mio primo post e vorrei chiedervi se è possibile aggiungere a questo "CEOLeatherAndBones 1.3a" la funzionalità di spostare le pelli lotate nel backpack del beatle. (parlo da niubbo se esiste un'altro screept ke già lo fa plx linkatemelo qua sotto). Spero di non scatenare l'ira di qualcuno ^^

[Drael]

spero di avere moddato lo script giusto, dimmi se ti va o hai problemi:

;==================================
; Script Name: CEOLeatherandBones
; Author: CEO
; Version: 1.3a
; Client Tested with: 4.0.1b
; EUO version tested with: 1.4 (0067)
; Shard OSI / FS:
; Revision Date: 01-24-04
; Public Release: 01-24-04
; Purpose:  Leather and Bones, Leather and Bones, this script loots Leather and Bones (sung to the tune of Silver and Gold).
;=================================
initevents
set %version 1.3a
;=================================
; Not much to change
;
; For debuging
set %debug #false
; Add more types for your stuff if you want...
set %knifetypes CNF_BNF_TSF_WSF
; set #true for a slow connection
set %slowconnection #false
; set to #true if you want to hide corpses
set %hidecorpses #false
; Corpse Container Postion - set the x/y to where you want to open the corpse
set %corpseContainerX 0
set %corpseContainerY 0
;=================================
gosub CheckEUOVersion 1 41 102 euomajor euominor euobuild
if ! #result
{
  menu hideeuo
  str del %euobuild 1 1
  display ok Your Environment:$$EasyUO Version: %euomajor , #dot , %euominor , #spc , ( , build , #spc , #strres , )$
+Client: #CLIVER $$
+This script requires EasyUO version 1.41 (build 0066) or higher.$$
+Sorry you can not use it with this version. Halting.
  menu hide
  halt
}
set %scissortypes KAG_JAG
set %corspetype YFM
set %leathertypes EEG_GED_DEG
set %miscbonetypes OJK_XIK_SJK_IJK_TJK_BJK_UJK_DJK_MJK_
+AJK_LJK_FJK_RJK_EJK_ZIK_YIK_JJK_GJK_KJK_HJK
set %resourcetype EEG_GED_OJK_XIK_SJK_IJK_TJK_BJK_UJK_DJK_MJK_
+AJK_LJK_FJK_RJK_EJK_ZIK_YIK_JJK_GJK_KJK_HJK_DEG
set %cuttypes EEG_GED_OJK_XIK_SJK_IJK_TJK_BJK_UJK_DJK_MJK_
+AJK_LJK_FJK_RJK_EJK_ZIK_YIK_JJK_GJK_KJK_HJK_DEG
set %bonetype GUF
set %tcorpses 0
set %tleather 0
set %tbones 0
if %slowconnection
{
  set %wait1 20
}
else
{
  set %wait1 10
}
gosub GetKnife
if ! #result
{
  display ok You need a knife in your backpack for cutting$up corpses. Script Halted.
  halt
}
gosub GetScissors
if ! #result
{
  display ok You need scissors in your backpack for cutting$up hides and bones. Script Halted.
  halt
}
gosub GetPaperdollxy
gosub StatusBarUp
linespercycle 40
gosub initmenu
set #menubutton N/A
Set #lObjectID #CharID
Event Macro 17
Display Ok Seleziona il tuo pet!
Set #TArgCurs 1
While #TargCurs = 1
   Wait 10
Set %PetID #lTargetID
Event SysMessage Pet selezionato corretamente! Pet ID: %PetID
Wait 10
Set #lObjectID %PetID
Event Macro 17
MainLoop:
wait %wait1 %wait1
if #menubutton = closed
  gosub closed
menu delete status
menu text status 50 10 Waiting.
wait 5
if #weight >= #maxweight - 5
{
  Event SysMessage You are now overweight, the script will$not pick up anymore resources until you$empty your pack.
  set %waitcount 0
  menu delete status
  menu text status 50 10 Paused, overweight.
waitforweight:
  wait 20
  Set #lObjectID #CharID
  Event Macro 17
  Wait 10
  FindItem %resourcetypes , _ , JJG , _ , %cuttypes C_ . #BackPackID
  ExEvent Drag #FindID #FindStack
  Wait 10
  ExEvent DropC %PetID
  Wait 10
  Set #lObjectID %PetID
  Event MAcro 17
  wait 20
  if #weight >= #maxweight - 5
  {
    set %waitcount 0
    goto waitforweight
  }
}
set %temp1 ( %maxloaded - #weight ) / 5
finditem %corspetype G_1
if #findkind = 1
{
  menu delete status
  menu text status 50 10 Corpse found , #dot
  set %tcorpses %tcorpses + 1
  set %findid #findid
  wait %wait1 %wait1
  event property %findid
  wait %wait1
  if wisp in #property
  {
      set %collecttype 2
      goto skip1
  }
  set %corpse_property #property
  gosub Corspecutter %findid %knifeid
  if ! #result
    goto skip2
skip1:
  gosub OpenCorpse %findid
  if ! #result
    goto Skip2
lootagain:
  finditem %resourcetype C_ , %instance_id
  if #findkind <> -1
  {
    set %resourceid #findid
    gosub DropOnBackpack %resourceid
    if %resourcetype in %cuttypes
      gosub CutResource %resourceid
    goto lootagain
  }
skip2:
  ignoreitem %findid
  if %hidecorpses
    hideitem %findid
  click %corpseCloseX %corpseCloseY r
  gosub UpdateStats
}
goto MainLoop
halt

sub OpenCorpse
menu delete status
menu text status 50 10 Opening corpse.
set %retry 0
set %_corpse %1
OC1:
finditem %_corpse
if #findkind = -1
  return #false
set #lobjectid #findid
set #nextcposx %corpseContainerX
set #nextcposy %corpseContainerY
gosub resetjournal
event macro 17
wait %wait1
gosub FindJournalMessage DID_NOT_EARN A_CRIMINAL YOU_CAN_NOT_LOOT
if #result
  return #false
gosub GetInstanceID
if ! #result
{
  set %retry %retry + 1
  if %retry < 4
    goto OC1
  return #false
}
set %corpseCloseX #contposx + 75
set %corpseCloseY #contposy + 125
return #true

sub GetInstanceID
;pub 28 fix for instance corpses
set %ttw #scnt2 + 25
GIID1:
if #contname = container_gump && #contsize = 144_212
{
  set %instance_id #contid
  return #true
}
if #scnt2 < %ttw
  goto GIID1
return #false

sub CorspeCutter
menu delete status
menu text status 50 10 Cutting corpse.
; %1 = corspeid , %2 = knife
set #lobjectid %2
set #ltargetid %1
set #lTargetKind 1
gosub resetjournal
event macro 17 0
target 4s
event macro 22 0
wait %wait1 %wait1
gosub FindJournalMessage HIDES_ARE_NOW
if #result
  set %collecttype 1
return #result

Devi unire le due parti.

[Drael]

sub CutResource
menu delete status
menu text status 50 10 Cutting resource.
CR1:
finditem %cuttypes C_ , %backpackid
if #findkind <> -1
{
  set %_findid #findid
  if %collecttype = 2
  {
    gosub CountBones
    set %bonecount #result
  }
  set #ltargetid %_findid
  set #lTargetKind 1
  set #lobjectid %scissorid
  wait 5
  event macro 17 0
  target 5s
  event macro 22 0
  wait %wait1
  if %collecttype = 2
  {
    gosub CountBones
    set %tbones %tbones + ( #result - %bonecount )
  }
  goto CR1
}
return

sub CountBones
finditem %bonetype C_ , %backpackid
if #findkind <> -1
  return #findstack
return 0

sub GetKnife
finditem %knifetypes C
if #findkind <> -1
{
  set %knifeid #findid
  return #true
}
return #false

sub GetScissors
finditem %scissortypes C
if #findkind <> -1
{
  set %scissorid #findid
  set %backpackid #findbagid
  return #true
}
return #false

sub DropOnBackpack
menu delete status
menu text status 50 10 Getting resource.
%1 = id of item to get
set %_dropid %1
finditem %_dropid
if #findtype in %miscbonetypes
  set %collecttype 2
if #findtype in %leathertypes
  set %collecttype 1
set %findstack #findstack
set %max2get %findstack
set %maxhold ( #maxweight + 65  - #weight - 5 ) / 5
set %maxhold2 #maxweight - #weight
if %max2get > %maxhold
  set %max2get %maxhold
if %max2get > %maxhold2
  set %max2get %maxhold2
event drag %_dropid
wait %wait1
if %max2get = %findstack
  msg $
else
  msg %max2get $
wait %wait1
set %retry 0
DOB1:
click %backpackx %backpacky p
wait %wait1
if #lliftedkind = 1
{
  set %retry %retry + 1
  if %retry > 6
  {
    display ok Can't drop on backpack.$Giving up. Script HALTED.
    halt
  }
  if %retry > 4
  {
    display ok Problem dropping item on backpack.$Make sure the backpack on the Paperdoll$
+is not covered! You have seconds after hitting ok 2 fix.
    wait 2s
  }
  gosub GetPaperDollXY
  goto DOB1
}
if %collecttype = 1
  set %tleather %tleather  + %findstack
return

sub GetPaperDollXY
menu delete status
menu text status 50 10 Get Paperdoll Info
GPDXY1:
event macro 8 1
wait %wait1 %wait1
if #contname <> paperdoll_gump
  goto GPDXY1
set %paperdollx #contposx
set %paperdolly #contposy
set %backpackx #contposx + 140
set %backpacky #contposy + 220
wait 5
wait %wait1 %wait1
return

sub resetjournal
scanjournal 1
deletejournal
return

sub FindJournalMessage
set %jc 1
FJM1:
scanjournal %jc
if #journal = N/A
  return #false
for %_i 1 %0
{
 if % . %_i in #journal
  return #true
}
set %jc %jc + 1
goto FJM1


sub InitMenu
menu clear
menu window size 220 80
menu window title CEOLeatherAndBones %version
menu window color black
menu font bgcolor BLACK
menu font color red
menu show %menux %menuy
menu font size 9
menu text h1 5 10 Status:
menu text h1 5 25 Total Corpses
menu text h1 110 25 :
menu text h1 5 40 Leather Collected
menu text h1 110 40 :
menu text h1 5 55 Bones Collected
menu text h1 110 55 :
gosub UpdateStats
if ! %debug
  menu hideeuo
return

sub UpdateStats
menu font color lime
menu font align right
menu delete d1
menu text d1 150 25 %tcorpses
menu delete d2
menu text d2 150 40 %tleather
menu delete d3
menu text d3 150 55 %tbones
menu font align left
return

sub StatusBarUp
;purpose - make sure the status bar is up on the char
IF #charname = N/A
{
  Event Macro 8 2
  wait %wait1
}
if #charname = N/A
{
  display ok Status bar must be opened.
  halt
}
return

sub closed
if ! %debug
  terminate euo
return

sub CheckEUOVersion
; the.wza's version check from the boards. Modified a little....
   nameSpace push
   nameSpace Local CheckEUOVersion
   set !VerMajor %1
   set !VerMinor %2
   set !VerBuild %3
  set !params %0
   gosub _getStringBeforeUnderscore #euoVer
   set !euoMajor #result
   gosub _getStringBeforeUnderscore #strRes
   set !euoMinor #result
   set !euoBuild #strRes
  if !params = 6
  {
    set % . %4 !euoMajor
    set % . %5 !euoMinor
    gosub converthex !euobuild
    set % . %6 #result
  }
   set %0 !euoMajor > !VerMajor ||
      + ( !euoMajor = !VerMajor && !euoMinor > !VerMinor ) ||
      + ( !euoMajor = !VerMajor && !euoMinor = !VerMinor && !euoBuild >= !VerBuild )
   nameSpace clear
   nameSpace pop
return %0

; in : xxx_yyy
; out : #result = xxx
;       #strRes = yyy
sub _getStringBeforeUnderscore
   str Pos %1 _
   set !len #strRes - 1
   str Left %1 !len
   set %0 #strRes
   set !len !len + 1
   str Del %1 1 !len
return %0

sub converthex
; assumes the normal max of 4 hex digits in build format.
set %decimal %1
set %_h0 0
set %_h1 1
set %_h2 2
set %_h3 3
set %_h4 4
set %_h5 5
set %_h6 6
set %_h7 7
set %_h8 8
set %_h9 9
set %_h10 a
set %_h11 b
set %_h12 c
set %_h13 d
set %_h14 e
set %_h15 f
set %h1 %decimal / 4096
if %h1 <> 0
  set %decimal %decimal - ( %h1 * 4096 )
set %h2 %decimal / 256
if %h2 <> 0
  set %decimal %decimal - ( %h2 * 256 )
set %h3 %decimal / 16
if %h3 <> 0
  set %decimal %decimal - ( %h3 * 16 )
set %h4 %decimal % 16
set %hex x , %_h . %h1 , %_h . %h2 , %_h . %h3 , %_h . %h4
return %hex

[Vix987]

succede una cosa strana per trasferire 8 unità di pelli scende 2 volte è normale??
e poi si impalla quando ad esempio prendo le pelli dagli hiry si impalla fatto bene ^^

[Drael]

impalla, puoi spiegarti meglio?

[Vix987]

allora impallandosi voglio dire che skinna il corpo, ma poi quando si tratta di strasferirli dentro al backpack nn lo fa; ne prende (ad esempio) "2" (la quantità) e non le trasferrisce nella borsa entrando così in loop
(sembra ke entri in loop proprio quando il mio peso è uguale a quello massimo)
PS sta prendendo piende l'idea che se arriva al massimo entra in loop ad esempio posso portare 183 se arriva a 183/183 lo screep si impalla. Vorrei sapere se è possibile cambiare le quantità di pelli ke si possono prendere (ora sembra 8 in 8)

[Drael]

Quello script è anche molto vecchio e non utilizza i comandi che sono stati implementati con la versione 1.5 di easyuo. Ora mi sono messo li qualche minuto e ho fatto questo...dimmi come ti sembra.

;------------------------------
;--- Drael's Leather Cutter ---
;------------------------------
;-- Autore: Drael  ------------
;-- Versione: 1.0  ------------
;------------------------------
Set %Azione Preparazione
Set %DaggerType CNF_BNF_TSF_WSF
Set %ForbiciType KAG_JAG
GoSub Trova %DaggerType
If ! #result
{
   Display Ok Nessuna lama trovata!
   Halt
}
Set %Dagger %trovato
GoSub Trova %ForbiciType
If ! #result
{
   Display Ok Nessune forbici trovate!
   Halt
}
Set %Forbici %trovato
Set %CorpiTotali 0
Set %PelleTotale 0
Set %CorpiType YFM
Set %PelleType EEG_GED_DEG_JJG
GoSub CreaMenu
Set #lObjectID #CharID
Event Macro 17
Display Ok Seleziona il tuo pet!
Set #TArgCurs 1
While #TargCurs = 1
   Wait 10
Set %PetID #lTargetID
Event SysMessage Pet selezionato corretamente! Pet ID: %PetID
Wait 10
Set #lObjectID %PetID
Event Macro 17
Main:
If Ricerca notin %Azione
{
Set %Azione Ricerca , #spc , corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
}
FindItem YFM G_2
If #FindKind <> -1
{
  Set %Azione Tagliamento , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
   Set %PP #FindID
Taglia:
Set #lOBjecTID %Dagger
Set #lTargetID #FindID
Event MAcro 17
Wait 10
Event Macro 22
Apertura:
If You_did_not_earn_the_right_to_loot_this_creature! in #SysMsg
{
   Wait 3s
   GoTo Taglia
}
If You_see_nothing_useful_to_carve_from_the_corpse. in #SysMsg
{
   IgnoreItem #FindID
   GoTo Main
}
Set %Azione Apertura , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
Set #lObjectID #FindID
Set #nextCPosX 656
Set #nextCPosY 388
Event Macro 17
If YFM notin #ContType
   GoTo Apertura
Set %CONT #ContID
Loot:
Set %Azione Loot
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
If #Weight > #MaxWeight + 40
{
  Set %Azione Deposito , #spc , Beetle
  Menu Delete Azione
  menu Text Azione 128 20 %Azione
  wait 20
  Set #lObjectID #CharID
  Event Macro 17
  Wait 10
  FindItem %resourcetypes , _ , JJG , _ , %cuttypes C_ . #BackPackID
  ExEvent Drag #FindID #FindStack
  Wait 10
  ExEvent DropC %PetID
  Wait 10
  Set #lObjectID %PetID
  Event MAcro 17
  wait 10
}
FindItem EEG_GED_DEG_JJG C_ . %CONT
If #FindKind = -1
{
  IgnoreItem #ContID
  goto Main
}
exEvent Drag #FindID #FindStack
Wait 10
exEvent DropC #BackPackID
Wait 10
Set #lObjectID %Forbici
Set #lTargetID #FindID
Event Macro 17
Wait 10
Event Macro 22
GoSub AggiornaMenu
GoTo Loot
}
GoTo Main

Sub AggiornaMenu
FindItem JJG C_ . #BackPAckID
If #FindKind <> -1
{
   Set %PelleTotale #FindStack
}
Set %CorpiTotali %CorpiTotali + 1
menu Delete Pelle
menu Delete Corpi
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
Return

sub CreaMenu
	menu Clear
	menu Window Title Drael's Leather Gathering
	menu Window Color Black
	menu Window Size 130 80
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color Red
	menu Font Transparent #false
	menu Font Align Left
	menu Font BGColor Black
	menu Text EUOLabel1 4 4 Drael's Leather Gathering
	menu Text EUOLabel2 4 48 Pelle Totale:
	menu Text EUOLabel3 4 64 Corpi Totali:
	menu Font Color Lime
	menu Font Align Right
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
	menu Font Color Red
	menu Font Align Left
	menu Text EUOLabel4 4 20 Azione:
	menu Font Color Lime
	menu Font Align Right
	menu Text Azione 128 20 %Azione
	menu Shape EUOShape1 4 40 121 1 3 7 1 Red 7 White
	menu Show 821 620
return

Sub Trova
Set %trova %1
FindItem %trova C_ . #BackPackID
If #FindKind = -1
   Return #False
set %trovato #FindID
Return #True

[Vix987]

il tuo va da dio, solo una cosa il tuo ha un problema, quando mi avvicino a un corpo ke non ho ucciso io e quindi nn posso lotarlo entra in loop frenetico ^^ lo puoi sistemare?

[Drael]

lo ho fatto a posta, cioè quando ti avvicini ad uno che non è tuo e quindi non hai il diritto continua a cercare di aprirlo ogni 3 secondi, ma se vuoi posso cambiarlo e ignorare il corpo ^^

;------------------------------
;--- Drael's Leather Cutter ---
;------------------------------
;-- Autore: Drael ------------
;-- Versione: 1.0 ------------
;------------------------------
Set %Azione Preparazione
Set %DaggerType CNF_BNF_TSF_WSF
Set %ForbiciType KAG_JAG
GoSub Trova %DaggerType
If ! #result
{
Display Ok Nessuna lama trovata!
Halt
}
Set %Dagger %trovato
GoSub Trova %ForbiciType
If ! #result
{
Display Ok Nessune forbici trovate!
Halt
}
Set %Forbici %trovato
Set %CorpiTotali 0
Set %PelleTotale 0
Set %CorpiType YFM
Set %PelleType EEG_GED_DEG_JJG
GoSub CreaMenu
Set #lObjectID #CharID
Event Macro 17
Display Ok Seleziona il tuo pet!
Set #TArgCurs 1
While #TargCurs = 1
Wait 10
Set %PetID #lTargetID
Event SysMessage Pet selezionato corretamente! Pet ID: %PetID
Wait 10
Set #lObjectID %PetID
Event Macro 17
Main:
If Ricerca notin %Azione
{
Set %Azione Ricerca , #spc , corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
}
FindItem YFM G_2
If #FindKind <> -1
{
Set %Azione Tagliamento , #spc , Corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
Set %PP #FindID
Taglia:
Set #lOBjecTID %Dagger
Set #lTargetID #FindID
Event MAcro 17
Wait 10
Event Macro 22
Apertura:
If You_did_not_earn_the_right_to_loot_this_creature! in #SysMsg
{
IgnoreItem #FindID
GoTo Main
}
If You_see_nothing_useful_to_carve_from_the_corpse. in #SysMsg
{
IgnoreItem #FindID
GoTo Main
}
Set %Azione Apertura , #spc , Corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
Set #lObjectID #FindID
Set #nextCPosX 656
Set #nextCPosY 388
Event Macro 17
If YFM notin #ContType
GoTo Apertura
Set %CONT #ContID
Loot:
Set %Azione Loot
Menu Delete Azione
menu Text Azione 128 20 %Azione
If #Weight > #MaxWeight + 40
{
Set %Azione Deposito , #spc , Beetle
Menu Delete Azione
menu Text Azione 128 20 %Azione
wait 20
Set #lObjectID #CharID
Event Macro 17
Wait 10
FindItem %resourcetypes , _ , JJG , _ , %cuttypes C_ . #BackPackID
ExEvent Drag #FindID #FindStack
Wait 10
ExEvent DropC %PetID
Wait 10
Set #lObjectID %PetID
Event MAcro 17
wait 10
}
FindItem EEG_GED_DEG_JJG C_ . %CONT
If #FindKind = -1
{
IgnoreItem #ContID
goto Main
}
exEvent Drag #FindID #FindStack
Wait 10
exEvent DropC #BackPackID
Wait 10
Set #lObjectID %Forbici
Set #lTargetID #FindID
Event Macro 17
Wait 10
Event Macro 22
GoSub AggiornaMenu
GoTo Loot
}
GoTo Main

Sub AggiornaMenu
FindItem JJG C_ . #BackPAckID
If #FindKind <> -1
{
Set %PelleTotale #FindStack
}
Set %CorpiTotali %CorpiTotali + 1
menu Delete Pelle
menu Delete Corpi
menu Text Pelle 128 48 %PelleTotale
menu Text Corpi 128 64 %CorpiTotali
Return

sub CreaMenu
menu Clear
menu Window Title Drael's Leather Gathering
menu Window Color Black
menu Window Size 130 80
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Text EUOLabel1 4 4 Drael's Leather Gathering
menu Text EUOLabel2 4 48 Pelle Totale:
menu Text EUOLabel3 4 64 Corpi Totali:
menu Font Color Lime
menu Font Align Right
menu Text Pelle 128 48 %PelleTotale
menu Text Corpi 128 64 %CorpiTotali
menu Font Color Red
menu Font Align Left
menu Text EUOLabel4 4 20 Azione:
menu Font Color Lime
menu Font Align Right
menu Text Azione 128 20 %Azione
menu Shape EUOShape1 4 40 121 1 3 7 1 Red 7 White
menu Show 821 620
return

Sub Trova
Set %trova %1
FindItem %trova C_ . #BackPackID
If #FindKind = -1
Return #False
set %trovato #FindID
Return #True

Questo ignora i pet di cui non hai i diritti

se dovesse passare Noricum lo so nell'if potevo usare || in questo caso

[Vix987]

seeeeei un grandeeee questo me lo uso x i mob forti in modo da nn risckiare di prendere danni mentre cerco di lotare il corpo... ^^ GRAZZZZIEEEE
P.S. BuG una volta lotato e skinnato il corpo lo screept va in palla ^^ (ti sto dicendo tutti questi bug in modo tale ke crei uno screept favoloso)

[Drael]

come al solito, asd, spiega meglio il palla asdasd, cioè in pratica dopo averlo aperto e avere preso la pelle poi si blocca e non cambia target? (ricordo che lo ho fatto in 15 minuti alla veloce )

[Vix987]

c'è delle volte ke dopo aver skinnato, aperto il loot, tagliato le pelli e trasferite nel beatle lo script riinizia sullo stesso corpo entrando in loop frenetico(come si può ben capire perchè non trova le pelli da lotare, è come se nn si ricordasse che quel corpo già lo ha skinnato) SOTTOLINEO A VOLTE non è un problema così grave; ci sono delle volte poi in cui si scorda perfino di trasferirle nel beatle (questo è il meno)

[Drael]

ok, vedo cosa posso fare e lo sistemo . Quando ho finito al massimo edito questo post e ti invio un PM ^^ (vediamo di fare uno script rapido per il loot pelli )
Prova un po' , ho aggiunto qualche controllo ma non ho avuto il tempo di testare...in teoria dovrebbe andare.

;------------------------------
;--- Drael's Leather Cutter ---
;------------------------------
;-- Autore: Drael  ------------
;-- Versione: 1.0  ------------
;------------------------------
Set %Azione Preparazione
Set %DaggerType CNF_BNF_TSF_WSF
Set %ForbiciType KAG_JAG
GoSub Trova %DaggerType
If ! #result
{
   Display Ok Nessuna lama trovata!
   Halt
}
Set %Dagger %trovato
GoSub Trova %ForbiciType
If ! #result
{
   Display Ok Nessune forbici trovate!
   Halt
}
Set %Forbici %trovato
Set %CorpiTotali 0
Set %PelleTotale 0
Set %CorpiType YFM
Set %PelleType EEG_GED_DEG_JJG
GoSub CreaMenu
Set #lObjectID #CharID
Event Macro 17
Display Ok Seleziona il tuo pet!
Set #TArgCurs 1
While #TargCurs = 1
   Wait 10
Set %PetID #lTargetID
Event SysMessage Pet selezionato corretamente! Pet ID: %PetID
Wait 10
Set #lObjectID %PetID
Event Macro 17
Main:
If #Weight > #MaxWeight + 40
   GoSub DepositoBeetle
If Ricerca notin %Azione
{
Set %Azione Ricerca , #spc , corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
}
FindItem YFM G_2
If #FindKind <> -1
{
  Set %PP #FindID
  Set %Azione Tagliamento , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
   Set %PP #FindID
Taglia:
Set #lOBjecTID %Dagger
Set #lTargetID #FindID
Event MAcro 17
Wait 10
Event Macro 22
Apertura:
If You_did_not_earn_the_right_to_loot_this_creature! in #SysMsg
{
   IgnoreItem #FindID
   GoTo Main
}
If You_see_nothing_useful_to_carve_from_the_corpse. in #SysMsg
{
   IgnoreItem #FindID
   GoTo Main
}
Set %Azione Apertura , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
Set #lObjectID #FindID
Set #nextCPosX 656
Set #nextCPosY 388
Event Macro 17
If YFM notin #ContType
   GoTo Apertura
Set %CONT #ContID
Loot:
Set %Azione Loot
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
If #Weight > #MaxWeight + 40
{
  GoSub DepositoBeetle
  Set #lObjectID %PP
  Set #nextCPosX 656
  Set #nextCPosY 388
  Event Macro 17
}
FindItem EEG_GED_DEG_JJG C_ . %CONT
If #FindKind = -1
{
  IgnoreItem %PP
  goto Main
}
exEvent Drag #FindID #FindStack
Wait 10
exEvent DropC #BackPackID
Wait 10
Set #lObjectID %Forbici
Set #lTargetID #FindID
Event Macro 17
Wait 10
Event Macro 22
GoSub AggiornaMenu
GoTo Loot
}
GoTo Main

Sub AggiornaMenu
FindItem JJG C_ . #BackPAckID
If #FindKind <> -1
{
   Set %PelleTotale #FindStack
}
Set %CorpiTotali %CorpiTotali + 1
menu Delete Pelle
menu Delete Corpi
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
Return

sub CreaMenu
	menu Clear
	menu Window Title Drael's Leather Gathering
	menu Window Color Black
	menu Window Size 130 80
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color Red
	menu Font Transparent #false
	menu Font Align Left
	menu Font BGColor Black
	menu Text EUOLabel1 4 4 Drael's Leather Gathering
	menu Text EUOLabel2 4 48 Pelle Totale:
	menu Text EUOLabel3 4 64 Corpi Totali:
	menu Font Color Lime
	menu Font Align Right
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
	menu Font Color Red
	menu Font Align Left
	menu Text EUOLabel4 4 20 Azione:
	menu Font Color Lime
	menu Font Align Right
	menu Text Azione 128 20 %Azione
	menu Shape EUOShape1 4 40 121 1 3 7 1 Red 7 White
	menu Show 821 620
return

Sub Trova
Set %trova %1
FindItem %trova C_ . #BackPackID
If #FindKind = -1
   Return #False
set %trovato #FindID
Return #True

Sub DepositoBeetle
  Set %Azione Deposito , #spc , Beetle
  Menu Delete Azione
  menu Text Azione 128 20 %Azione
  wait 20
  Set #lObjectID #CharID
  Event Macro 17
  Wait 10
  FindItem %resourcetypes , _ , JJG , _ , %cuttypes C_ . #BackPackID
  ExEvent Drag #FindID #FindStack
  Wait 10
  ExEvent DropC %PetID
  Wait 10
  Set #lObjectID %PetID
  Event MAcro 17
  wait 10
Return

[DaRkReAlM]

Non potresti modificarlo in modo tale che se, ignoro un corpo che cerca di aprire, dopo tre secondi lo lascia perdere e ricomincia la ricerca?? thx

[Drael]

Con questo ti basta premere ESC e ignora il corpo....
[CODE]

;------------------------------
;--- Drael's Leather Cutter ---
;------------------------------
;-- Autore: Drael  ------------
;-- Versione: 1.0  ------------
;------------------------------
Set %KEY ESC  ;<-- Modifica qui se vuoi un altro tasto...
Set %Azione Preparazione
Set %DaggerType CNF_BNF_TSF_WSF
Set %ForbiciType KAG_JAG
GoSub Trova %DaggerType
If ! #result
{
   Display Ok Nessuna lama trovata!
   Halt
}
Set %Dagger %trovato
GoSub Trova %ForbiciType
If ! #result
{
   Display Ok Nessune forbici trovate!
   Halt
}
Set %Forbici %trovato
Set %CorpiTotali 0
Set %PelleTotale 0
Set %CorpiType YFM
Set %PelleType EEG_GED_DEG_JJG
GoSub CreaMenu
Set #lObjectID #CharID
Event Macro 17
Display Ok Seleziona il tuo pet!
Set #TArgCurs 1
While #TargCurs = 1
   Wait 10
Set %PetID #lTargetID
Event SysMessage Pet selezionato corretamente! Pet ID: %PetID
Wait 10
Set #lObjectID %PetID
Event Macro 17
Main:
If #Weight > #MaxWeight + 40
   GoSub DepositoBeetle
If Ricerca notin %Azione
{
Set %Azione Ricerca , #spc , corpo
Menu Delete Azione
menu Text Azione 128 20 %Azione
}
FindItem YFM G_2
If #FindKind <> -1
{
  Set %PP #FindID
  Set %Azione Tagliamento , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
   Set %PP #FindID
Taglia:
OnHotKey %KEY 
    GoSub Esc
Set #lOBjecTID %Dagger
Set #lTargetID #FindID
Event MAcro 17
Wait 10
Event Macro 22
Apertura:
OnHotKey %KEY 
    GoSub Esc
If You_did_not_earn_the_right_to_loot_this_creature! in #SysMsg
{
   IgnoreItem #FindID
   GoTo Main
}
If You_see_nothing_useful_to_carve_from_the_corpse. in #SysMsg
{
   IgnoreItem #FindID
   GoTo Main
}
Set %Azione Apertura , #spc , Corpo
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
Set #lObjectID #FindID
Set #nextCPosX 656
Set #nextCPosY 388
Event Macro 17
If YFM notin #ContType
   GoTo Apertura
Set %CONT #ContID
Loot:
OnHotKey %KEY 
    GoSub Esc
Set %Azione Loot
   Menu Delete Azione
   menu Text Azione 128 20 %Azione
If #Weight > #MaxWeight + 40
{
  GoSub DepositoBeetle
  Set #lObjectID %PP
  Set #nextCPosX 656
  Set #nextCPosY 388
  Event Macro 17
}
FindItem EEG_GED_DEG_JJG C_ . %CONT
If #FindKind = -1
{
  IgnoreItem %PP
  goto Main
}
exEvent Drag #FindID #FindStack
Wait 10
exEvent DropC #BackPackID
Wait 10
Set #lObjectID %Forbici
Set #lTargetID #FindID
Event Macro 17
Wait 10
Event Macro 22
GoSub AggiornaMenu
GoTo Loot
}
GoTo Main

Sub AggiornaMenu
FindItem JJG C_ . #BackPAckID
If #FindKind <> -1
{
   Set %PelleTotale #FindStack
}
Set %CorpiTotali %CorpiTotali + 1
menu Delete Pelle
menu Delete Corpi
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
Return

sub CreaMenu
	menu Clear
	menu Window Title Drael's Leather Gathering
	menu Window Color Black
	menu Window Size 130 80
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color Red
	menu Font Transparent #false
	menu Font Align Left
	menu Font BGColor Black
	menu Text EUOLabel1 4 4 Drael's Leather Gathering
	menu Text EUOLabel2 4 48 Pelle Totale:
	menu Text EUOLabel3 4 64 Corpi Totali:
	menu Font Color Lime
	menu Font Align Right
	menu Text Pelle 128 48 %PelleTotale
	menu Text Corpi 128 64 %CorpiTotali
	menu Font Color Red
	menu Font Align Left
	menu Text EUOLabel4 4 20 Azione:
	menu Font Color Lime
	menu Font Align Right
	menu Text Azione 128 20 %Azione
	menu Shape EUOShape1 4 40 121 1 3 7 1 Red 7 White
	menu Show 821 620
return

Sub Trova
Set %trova %1
FindItem %trova C_ . #BackPackID
If #FindKind = -1
   Return #False
set %trovato #FindID
Return #True

Sub DepositoBeetle
  Set %Azione Deposito , #spc , Beetle
  Menu Delete Azione
  menu Text Azione 128 20 %Azione
  wait 20
  Set #lObjectID #CharID
  Event Macro 17
  Wait 10
  FindItem %resourcetypes , _ , JJG , _ , %cuttypes C_ . #BackPackID
  ExEvent Drag #FindID #FindStack
  Wait 10
  ExEvent DropC %PetID
  Wait 10
  Set #lObjectID %PetID
  Event MAcro 17
  wait 10
Return

Sub Esc 
IgnoreItem %PP
GoTo Main