Вопросы по EasyUO

set #lpc 50
set %jewel LWL_UJG_CWL_IJG
Set %LRC 0
Set %LMC 0
Set %SPELLDI 0
Set %DamageI 0
SET %intelligence 0
SET %strength 0
SET %dexterity0
SET %EnchantP 0
SET %Luck 0
SET %HIT_chance 0
SET %DEF_chance 0
SET %FastCast 0
SET %FCR 0
SET %allskilltotal 0
finditem:
finditem %jewel C_ , хххххх ; <------------------- ЗАМЕНИТЬ ХХХХ НА ИД КОНТЕЙНЕРА
event property #findid
;GOSUB jewelery
;display ok skills: %allskilltotal $FC: %FastCast FCR: %FCR $LRC: %LRC LMC: %LMC $SDI: %SPELLDI DI: %DamageI HCI: %HIT_chance DCI: %DEF_chance $INT: %intelligence STR: %strength DEX: %dexterity LUCK %Luck $EP: %EnchantP
;display ok #PROPERTY
;halt
if #findcnt = 0
   halt
GOSUB jewelery
GOSUB Grouping_jewelry
ignoreitem #findid
goto finditem
;display ok skills: %allskilltotal $FC: %FastCast FCR: %FCR $LRC: %LRC LMC: %LMC $SDI: %SPELLDI DI: %DamageI HCI: %HIT_chance DCI: %DEF_chance $INT: %intelligence STR: %strength DEX: %dexterity LUCK %Luck $EP: %EnchantP

sub Grouping_jewelry
gosub LRC
gosub skills
gosub Luck
gosub SpellDI
gosub HCI_DI
gosub FC_FCR
gosub LRC_ALLtotal
gosub HCI_LMC_DI_DCI
RETURN

sub SpellDI
    if %SPELLDI > 8 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub SpellDI
    else
        return
return

sub HCI_DI
    if %HIT_chance && %DamageI > 5
       gosub drag_drop
    else
        return
return

sub Luck
    if %Luck > 50 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub Luck
return

sub FC_FCR
    if %FastCast > 1 && %FCR > 2 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub FC_FCR
    else
        return
return

sub skills
if %allskilltotal > 16
gosub drag_drop
       display ok Looted$ #PROPERTY sub skills
    else
        return
return

sub LRC
    if %LRC > 17 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub LRC
    else
        return
return

sub LRC_ALLtotal
    if %LRC > 15 && %allskilltotal > 10 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub LRC_ALLtotal
    else
        return
return

sub HCI_LMC_DI_DCI
    if %HIT_chance && %LMC && %DamageI && %DEF_chance > 0 2
       gosub drag_drop
       display ok Looted$ #PROPERTY sub HCI_LMC_DI_DCI
    else
        return
return

sub drag_drop
    Exevent Drag #findid
    wait 10
    Exevent Dropc #backpackid
    wait 10
    ignoreitem #findid
return

SUB jewelery
;SET #LPC 800
	GOSUB skill
	GOSUB stats
	GOSUB chanceIncrease
	GOSUB damageIncrease
	GOSUB luck
 	GOSUB fastercast
	;GOSUB resist
	GOSUB lowercost
	GOSUB enhancepots
;SET #LPC 10
RETURN
;====================================================
SUB skill
  IF #SPC , + in #PROPERTY
	GOSUB Skills
RETURN

SUB fastercast
	IF $faster , #spc , casting in #property 2
     GOSUB Property faster , #SPC , casting
     SET %FastCast #RESULT
	IF $faster , #spc , cast , #spc , recovery 2
  	GOSUB Property faster , #spc , cast , #spc , recovery
    SET %FCR #RESULT
RETURN

SUB stats
 IF intelligence , #spc , bonus in #property 2
 GOSUB Property intelligence , #spc , bonus
 SET %intelligence #RESULT

 IF strength , #spc , bonus in #property 2
 GOSUB Property strength , #spc , bonus
 SET %strength #RESULT

 IF dexterity , #spc , bonus in #property 2
 GOSUB Property dexterity , #spc , bonus
 SET %dexterity #RESULT
RETURN

SUB lowercost
  IF $lower , #spc , reagent , #spc , cost in #property 2
	GOSUB Property lower , #spc , reagent , #spc , cost
  SET %LRC #RESULT
  IF $lower , #spc , mana , #spc , cost in #property 2
  GOSUB Property lower , #spc , mana , #spc , cost
  SET %LMC #RESULT
RETURN

SUB enhancepots
  IF $enhance , #spc , potions in #property 2
	GOSUB Property enhance , #spc , potions
	SET %EnchantP #RESULT
RETURN

SUB luck
  IF luck in #property 2
  GOSUB Property luck
  SET %Luck #RESULT
RETURN

SUB chanceIncrease
  IF hit , #spc , chance in #property 2
	GOSUB Property hit , #spc , chance
  SET %HIT_chance #RESULT
  IF defense , #spc , chance in #property 2
  GOSUB Property defense , #spc , chance
 	SET %DEF_chance #RESULT
RETURN

SUB damageIncrease
  IF $spell , #SPC , damage , #spc , increase in #property 2
	GOSUB Property spell , #SPC , damage , #spc , increase
 	SET %SPELLDI #STRRES
  IF $damage , #spc , increase in #property 2
  GOSUB Property $damage , #spc , increase
 	SET %DamageI #STRRES
RETURN

SUB Skills
	IF #SPC , + NOTIN #PROPERTY
		RETURN #FALSE
	SET %skillstring #PROPERTY
	SET %totalskills 0
	SET %allskilltotal 0
  WHILE #TRUE
	{
		STR POS %skillstring #SPC , +
		IF #STRRES > 0
		{
			SET #STRRES #STRRES + 1
			STR DEL %skillstring 1 #STRRES
			SET %skillstring #STRRES
			STR POS #STRRES $
			STR DEL %skillstring #STRRES 9999
			SET %allskilltotal %allskilltotal + #STRRES
			IF #STRRES >= 10
			  SET %totalskills %totalskills + #STRRES
		}
		ELSE
      BREAK
	}
  IF %totalskills >= 10
    SET %totalskills %allskilltotal
RETURN %totalskills

SUB Property
{
	IF &#40; %0 <> 1 &#41; || &#40; %1 NOTIN #PROPERTY &#41;
		RETURN #FALSE
	SET %_property %1
	STR POS #PROPERTY %_property
	STR DEL #PROPERTY 1 #STRRES
	SET %_string #STRRES
	STR POS #STRRES $
	STR DEL %_string #STRRES 9999
	SET %_string #STRRES
	STR LEN %_string
	IF skill IN %_string
		SET #STRRES #STRRES - 6
	IF % IN %_string
		SET #STRRES #STRRES - 1
	SET %num_len 0
	FOR %i #STRRES 1
	{
		SET %num_len %num_len + 1
		STR MID %_string %i 1
		IF #SPC IN #STRRES
		{
			STR MID %_string %i %num_len
			SET %i 1
		}
	}
RETURN #STRRES