[SCRIPT] ...utility per EasyUO

[Aido]

Originally posted by Kaiser Souze


Scusa non ho capito bene ma sei andato a Ilshenar a macrare animal taming? E perchè mai?!!! O_O

perchè tu i ridgeback dove li trovi in quantità? :\

[Aribeth]

purtroppo non ho tempo di modifica lo script, ma magery a 100 serve con anche le sword of prosperity ^_^

senza magery non saprei come killarli.... e se non li killi in 5 minuti ti trovi 2 paragon che gironzolano senza che spawnano altri ridge.

Dovrei modificarlo mettendo:
1) la necro skill per uccidere i pet
2) la skill taming per killare con un pet (per chi ha taming già a 85-90 può portare un night)

I consigli sono sempre accetti -.-

PS: ma che template è senza nessuna skill combattiva (magery è combattiva con le sword of prosperity ed è testato che un colpo di spada e mind blast uccide il ridge paragon)

[MiKeLezZ]

Grazie mille per gli script.. Ce ne fossero di ragazzi come voi..

[Davide.Mantovani]

Originally posted by MiKeLezZ
Grazie mille per gli script.. Ce ne fossero di ragazzi come voi..

Come non quotare!

[Puch]

Il CEO Medic funge alla perfezione thx

[Seraphscarpe]

Originally posted by MiKeLezZ
Grazie mille per gli script.. Ce ne fossero di ragazzi come voi..

siete grandi raga!
uppo per lo stiky

[inter92]

scusate oggi ho aggiornato il client alla versione 4.0.11c(patch14)ma se provo a scaricare le nuove versioni d easy dopo averle estratte spunta una strana finestra ke keide d rispodnere a delle domande e io rispondo ma nn c'è nessun'altro tasto ke t permetta d adnare avanti...
avete un link dove scaricare un versione d easy compatibile xon la 11c patch14?

[Kaisersouze]

Originally posted by -_S3ng4R_-
scusate oggi ho aggiornato il client alla versione 4.0.11c(patch14)ma se provo a scaricare le nuove versioni d easy dopo averle estratte spunta una strana finestra ke keide d rispodnere a delle domande e io rispondo ma nn c'è nessun'altro tasto ke t permetta d adnare avanti...
avete un link dove scaricare un versione d easy compatibile xon la 11c patch14?

Se non c'è nel sito ufficiale evidentemente ancora non esiste...

[inter92]

Originally posted by Kaiser Souze


Se non c'è nel sito ufficiale evidentemente ancora non esiste...

nel sito ufficiale c'è sono ke dopoa verla scaricata/estratta nn è come prima dove spunta il "client" x aprire gli script anke a voi succede? con la nuova versione?

[fireangel]

raga scusate ho problemi nello scaricare lo script x macrare taming... mi da il link ad altervista ma da la nn so cm andare avanti... ke devo fare???

[feboss]

Originally posted by FireAngel
raga scusate ho problemi nello scaricare lo script x macrare taming... mi da il link ad altervista ma da la nn so cm andare avanti... ke devo fare???

copia il link e lo incolli nel browser manualmente

[CristalBall]

script x tamer
una volta lanciato se il vostro pet viene colpito premete f10
se qualcosa nn va premete f9 per resettare
lo script cura il pet finche questo nn ritorna a full hp
insegue il pet ovunque vada aggirando gli ostacoli ecc
-----------------------------------------------------
;==================================
; Script Name: Pet Healer
; Author: Sorrow
; Version: 2.2
; Client Tested with: xxxxx
; EUO version tested with: 1.42 (0098)
; Shard OSI / FS: OSI
;==================================

; USER CONFIG SECTION 
set %warn 20    ; set this number to warn when your bandaids are running low 
set %keyStart F10
set %keyStop F9
set %BagPack #BACKPACKID
; -=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
; END USER CONFIG SECTION 
; -=-=-=-=-=-=-=-=-=-=-=-=-=-=- 


initevents
set %freeforwarn no

display ok Please target the pet you would like to heal.
set #lTargetID null
set #targCurs 1
targloop:
if #lTargetID = null
{
  goto targloop
}
set %pet #lTargetID
wait 1
set %aids ZLF
mainloop:
onHotKey %keyStart
  gosub heal
if %freeforwarn = yes
{
  finditem %aids C
  if #findStack < %warn
  {
  event Sysmessage You are running low on bandaids!
  }
}
goto mainloop

sub heal
  ;display ok
  heal:
    finditem %aids C
    if #findkind =  -1
    {
        event Sysmessage non hai bende
                                return
    }
    set %jIndex #jIndex
    SET #LOBJECTID #FINDID
    event Macro 17 0
    wait 3
    set #lTargetID %pet
    set #lTargetKind 1
    target
    event Macro 22 0

    waitforheal:
      onHotKey %keyStop
        return
      wait 3


      if %jIndex <> #jIndex
      {
        set %startIndex %jIndex + 1
        for %scanCounter %startIndex #jIndex
        {
          scanJournal %scanCounter



          if that_being_is_not_damaged in #journal
          {
            deleteJournal
            event Sysmessage Pet not Damaged, auto heal stopped!
            return
          }
          if that_is_too_far_away in #journal
          {
            deleteJournal
            finditem %pet
            if #findkind <> 1
            {
                event Sysmessage non trovo pet
                return
            }

            Set %petX #findx
            Set %petY #findy
            Set %petZ #findz
            gosub pathFind %petX %petY %petZ
            wait 1s
            goto heal
          }
          if you_did_not_stay_close_enough in #journal
          {
            deleteJournal
            finditem %pet G_10
            Set %petX #findx
            Set %petY #findy
            Set %petZ #charposz
            gosub pathFind %petX %petY %petZ
            wait 1s
            goto heal
          }
          if you_cannot_see_that in #journal
          {
            deleteJournal
            event Sysmessage Can't see your Pet! Retrying Auto Heal...
            wait 1s
            goto heal
          }
          if you_cannot_heal_that in #journal
          {
            deleteJournal
            event Sysmessage You pet has become or is not a vaild heal target, halting script...
            halt
          }
          if you_finish_applying_the_bandages in #journal
          {
            deleteJournal
            event Sysmessage Heal Successful. Reattempting...
            wait 1s
            goto heal
          }
          if you_have_cured_the_target_of_all_poisons in #journal
          {
            deleteJournal
            event Sysmessage Cure Successful, Healing Target...
            wait 1s
            goto heal
          }
          if you_heal_what_little_damage_your_patient_had in #journal
          {
            deleteJournal
            event Sysmessage Pet fully healed, auto heal stopped...
            return
          }
          if but_they_barely_help in #journal
          {
            deleteJournal
            event Sysmessage Healing potental not met, reattempting heal...
            wait 1s
            goto heal
          }
          if you_have_failed_to_cure_your_target in #journal
          {
            deleteJournal
            event Sysmessage Unsuccessful, reattempting heal...
            wait 1s
            goto heal
          }
        }
        set %jIndex #jIndex
      }
    goto waitforheal
return

sub pathFind
        set %DestCharPosX %1
        set %DestCharPosY %2
        set %DestCharPosZ %3

                    for %LOOP 1 10
        {

            if ( #charPosX <> %DestCharPosX || #charPosY <> %DestCharPosY )
            {
                event PathFind %DestCharPosX %DestCharPosY %DestCharPosZ
;               move %DestCharPosX %DestCharPosY 1
            }
            else
            {
                return
            }
            onHotKey %keyStop
              return
        }
return

[CristalBall]

script x autologin
in pratica se volete lasciare il vostro pg online ma il server resetta sempre o crasha o lo riavviano ecco il modo per restare sempre online
lo script e' assestante ma puo essere inserito in qualsiasi altro script vostro
x la configurazione
#PASSWORD# sostituire con la vostra password
set %char 1
qui scegliete il pg con cui entrare(1-5)
-------------------------------------------------

initevents

set %char 1
set %login KZTB
set %server QQL
set %chars MUJ
set %wrongLogin SFC
set %SceltaChars STFD
set %password #PASSWORD#

start:
	if ( #contkind = MAYC && #contsize = 203_121 )
	{
  		gosub 8
	}

	if ( #contkind = MAYC && #contsize = 408_288 )
	{
  		gosub 7
	}

	if ( #contkind = MAYC )
	{
 		 gosub 6
	}

	if ( #contkind = %login || #contname = MainMenu_gump )
	{
  		gosub 1
	}

	if #contkind = %server
	{
  		gosub 2
	}

	if ( #contkind = %chars || #contname = Login_gump )
	{
  		gosub 3
	}

	


	if #contkind = %wrongLogin
	{
  		gosub 4
	}
	if ( #contkind = %wrongLogin && #contsize = 203_121 )
	{
  		gosub 5
	}
goto start

sub 1
	click 333 403
  	wait 20
  	for %i 0 15
  	{
    		key delete
  	}
	str Lower %password
  	msg #strRes
  	wait 20
  	click 616 455
return

sub 2
	msg $
  	wait 20
return

sub 3
	if %char = 1
  	{
    		click 370 165 d
  	}
  	if %char = 2
  	{
    		click 370 205 d
  	}
  	if %char = 3
  	{
    		click 370 245 d
  	}
  	if %char = 4
  	{
    		click 370 285 d
  	}
  	if %char = 5
  	{
    		click 370 225 d
  	}
  	wait 20
return

sub 4
	click 316 317
  	wait 20
return

sub 5
  	click 401 328
  	wait 20
return

sub 6
	click 398 328
  	wait 20
return

sub 7
  	click 318 353
  	wait 20
return

sub 8
  	click 510 410
  	wait 20
return

[CristalBall]

vi e' mai capitato di aprire un contenitore e non capire neanche cosa ci sia dentro dalla roba?
ecco a voi uno script per elencarvi tutto senza problemi non e' ricorsivo
non vede dentro a una bag contenuta in un altra bag
modalita d'uso
basta aprire una bag e lanciare lo script
lui elenca le cose dell'ultimo contenitore aperto
--------------------------------------------------

gosub showResultsmenu
set %CONTAINERID #CONTID
finditem * C_ , %CONTAINERID
set %nCnt #findCnt
if %CONTAINERID <> N/A
{
	for %i %nCnt 1
		{
			findItem * %i C_ , %CONTAINERID
			set %sItemID #findID
			event property %sItemID
;			event ExMsg #CHARID 3 0 %CONTAINERID - %sItemID #PROPERTY
			set %PARAM %CONTAINERID , - , %sItemID , #spc , #PROPERTY
			menu List add text -------------------------------------------------------------------------
			set %write %PARAM

write:			
			if $ in %write
			{
				str Len %PARAM
				set %LenStringPARAM #strres
				str Len %write
				set %LenStringwrite #strres

				str pos %PARAM $
				set %posnow #strres

			   	str left %PARAM #strres
				str del #strres %posnow 1

				str lower #strres
				set %PARAM #strres
				if %posnow <> %LenStringPARAM || %LenStringPARAM <> %LenStringwrite
				{
					menu List add text %PARAM
					set %LenStringStart %posnow + 1
					str Mid %write %LenStringStart %LenStringwrite
					set %write #strres
					str pos %write $
					set %poswrite #strres
					
					str Mid %write 1 %poswrite
					set %poswrite #strres
					set %PARAM #strres
				}	
				else
				{
					menu List add text %PARAM
					set %write %PARAM
				}
				goto write
			}

;			menu List add text %PARAM
			wait 1s
		}
}
halt

sub showResultsmenu
menu Clear
menu Window Title Results
menu Window Color BtnFace
menu Window Size 600 270
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font BGColor Window
menu List Create text 10 10 580 250
menu Show 421 270
return

[massimozugno]

uppo per sticky!

non è che qualche volenteroso posta uno script decente per lootare....quelli di easyuo sono fatti a dovere ma sono lentissimi a doom looto solo schifo... ne ho uno fatto in casa ma non è tanto piu veloce e loota tutto nn le cose migliori....