[EASYUO HELP] help sub rilogin

[Marino]

ITALIANO
ho un problema su questa sub probabilmente un pò vecchiotta, praticamente una volta cliccato su connectin lost mi ritorna a schermata iniziale senza rillogare, sapete darmi un consiglio su cosa non và seconda voi?

ENGLISH
probably have a problem on this sub a more old, practically once click on connectin lost returns to me to shielded initial without rilog, we given to me to a council on what not second gear you?

If #ContSize = 203_121
{
Set *RazielStopScriptGumpStop pause
Set %ClickX #ContPosX + 100
Set %ClickY #contPosY + 89
Click %ClickX %ClickY
WaitForGump:
If #ContName <> MainMenu_Gump
{
Wait 1s
GoTo WaitForGump
}
Wait 30s ;<-- tanto per essere sicuri aspetta 900 secondi (15 minuti)
GoSub account . !account
WaitForGump1:
If #ContName = waiting_gump
{
Wait 1s
Goto WaitForGump1
}
ClickShard1:
Click 262 115 d
If #ContName = normal_gump
{
Wait 10
Goto ClickShard
}
WaitForGump2:
If #ContName = waiting_gump
{
Wait 1s
GoTo WaitForGump2
}
If #ContName = Login_gump
{
GoSub ClickChar
}
GoTo WaitForGump2
Wait 10s
Set *RazielStopScriptGumpStop play
}
GoTo Inizio
sub account1
;msg  ;<-- NickName dell'account
;wait 10
click 530 400
call C:\password.txt ;<-- Password dell'account
msg %password
;wait 20
msg $
return
{
sub ClickChar
ClickCharCL:
Set %char !char
Set %ClickXChar 365
Set %YM 40 * !char
Set %ClickYChar 125 + %YM
If #ContName = Login_gump
{
Wait 10
GoTo ClickCharCL
}
Return

[Marino]

up

[Rash]

Ciau, giusto oggi stavo modificando uno script e per l'autologin ho copiato una parte dello script di Kal (FullAutoLogin).
Guarda se ti può interessare!
Non ho ancora avuto tempo di provarla ma dovrebbe andare!

Se vuoi una mano per le modifiche chiedi pure..
Non ti assicuro di aver tempo subito perchè son via per lavoro all'estero..
Se devi contattarmi usa PM perchè msn e icq non li uso da qui!

CIAU

sub login
_mmloop:
if #contname = MainMenu_gump ; main login gump
	{
		if %myaccount <> default
			{
				set %x #contposx + 521
				set %y #contposy + 356
				click %x %y
				gosub sendstring %myaccount
			}
		set %x #contposx + 521
		set %y #contposy + 396
		click %x %y
		gosub sendstring %mypass
		gosub clickgreen
		gosub waitgump notfor MainMenu_gump 640_480 10
		gosub waitgump notfor waiting_gump 408_288 60 ; verifying can take a while
		set %logincount %logincount + 1
		menu set txtlogin %logincount
		goto _mmloop
	}
if #contname = normal_gump ; shard selection gump
	{
		if %shardid = #result
			{
				set %x #contposx + 260
				set %y #contposy + 115
				click %x %y g ; click topmost shard not sure why need g
				gosub waitgump notfor normal_gump 640_480 10
				goto _mmloop
			}
	}
if #contname = Login_gump ; char login gump
	{
		;if * . %global_2 <> 0 ; override charnum with global setting
		;	set %mycharnum * . %global_2
		set %x #contposx + 360
		set %y #contposy + 164 + ( %mycharnum - 1 ) * 40
		click %x %y d ; click char name (changed from d as sometimes seemed to fail)
		wait 5s
		if #contname = Login_gump; no char?
		  gosub clickgreen
    gosub clickgreen ; click here as well cos sometimes the gump is misnamed (existing char)
    gosub waitgump notfor Login_gump 640_480 10
    goto _mmloop
	}
if #contname = waiting_gump
	{
		if #contsize = 203_121 ; disconnection
			{
				set %x #contposx + 100
				set %y #contposy + 90
				click %x %y
			}
		if #contsize = 408_288 ; no connection avail, or timeout
			{
				set %x #contposx + 206
				set %y #contposy + 256
				click %x %y ; try again
			}
		goto _mmloop
	}
return
sub clickgreen
set %x #contposx + 618
set %y #contposy + 444
click %x %y ; the green arrow
wait 5
return
;-------------------------------------------
sub clickred
set %x1 #contposx + 595
set %y1 #contposy + 444
click %x1 %y1 ; the red arrow
wait 5
return
;-------------------------------------------
sub sendstring
str Len %1
set %len #strRes
for %i 1 16
	{
		key back ; delete current if any
		wait 1
	}
for %i 1 %len
	{
		str Mid %1 %i 1
		key #strRes
		wait 1
	}
return
;-------------------------------------------------
sub waitgump
;%1 = for or notfor %2 = kind of gump %3 = size %4= timeout
set %timout #scnt + %4
_wfgloop:
if #scnt > %timout
	return
wait 10
if %1 = for && ( #contname <> %2 || #contsize <> %3 )
	goto _wfgloop
if %1 = notfor && #contname = %2 && #contsize = %3
	goto _wfgloop
return

[bubbaverde]

;==================================
; Script Name:   FullAutoLogin
; Author: Kal  (Revisionato by BuBBa)
; Version: 1.50
; Client Tested with: 5.0.2g
; EUO version tested with: 1.42.009C
; Shard OSI / FS: OSI
; Revision Date: 23/03/2010
; Public Release: 2/12/04
; Global Variables Used:
; Purpose: Auto Login with shard selection
;==================================
;
;-----------------------To Check your shard id----------------------------------------------------------
;gosub checkshard
;uncomment the above line to check your shard id, but first
;go to shard selection screen and put your shard at the top
;i.e. go to shard screen and use right hand scrollbar to push the shards up until yours is at the top
;see end of file for OSI values that I have checked (NB may vary for your display)
;
;-----------------------User Vars---------------------------------------------
set %shardid 767594502   ; Non cambiare
set %myaccount xxxxxxxxx   ; Cambia mettendo tuo nome account
set %mypass xxxxxxxxxx   ; Cambia mettendo tua pass
set %mycharnum x ; Cambia mettendo il in munero del pg da loggare, esempio  (1 e il primo in alto)
set %num_shards2scan  1  ; Non cambiare
set %menux 0             ; Non cambiare
set %menuy 805           ; Non cambiare
set %global 124          ; Non cambiare
;
;----------------------Non devi settare nulla al di sotto di questa riga ------------------------
initevents
set %wait 20
set %logincount 0 ; count of how many logins attempted
set %disscount 0 ; count of disconnections
set  * . %global 0 ; init global var
gosub MenuInit ; initialize menu
gosub login ; log in first (in case you are too lazy to do it manually, hey what are computers for anyway!)
_mainloop:
gosub CheckConnection ; monitor disconnection gumps
wait 1s
gosub MenuShow %logincount , #spc , Logins   %disscount , #spc , Disconnections ; update menu
goto _mainloop
halt
;===========================================
sub CheckConnection
_ccloop:
if #contname = MainMenu_gump ; main login gump
       gosub login
if  #contname = waiting_gump
       {
       if #contsize = 203_121 ; disconnection
               {
               set %disscount %disscount + 1
               set %x #contposx + 100
               set %y #contposy + 90
               click %x %y
               }
       if   #contsize = 408_288 ; no connection avail, or timeout
               {
               set %x #contposx + 206
               set %y #contposy + 256
               click %x %y  ; try again
               }
       gosub login
       goto _ccloop
       }
return
;===========================================
sub login
_mmloop:
gosub MenuShow Attempting , #spc , Login  #contname
wait 20
if #contname = MainMenu_gump ; main login gump
       {
       if %myaccount <> default
               {
               set %x #contposx + 521
               set %y #contposy + 356
               click %x %y
               gosub sendstring %myaccount
               }
       set %x #contposx + 521
       set %y #contposy + 396
       click %x %y
       gosub sendstring %mypass
       gosub clickgreen
       gosub waitgump notfor MainMenu_gump 640_480 10
       gosub waitgump notfor waiting_gump 408_288 60 ; verifying can take a while
       set %logincount %logincount + 1
       goto _mmloop
       }
}
if #contname = normal_gump ; shard selection gump
       {
ChooseShard:
Click 190 430
Set %TimeOut #scnt + 12
Goto WaitCharScreen
               {
 ChooseShard:
Click 190 430
Set %TimeOut #scnt + 12
Goto WaitCharScreen

   gosub waitgump notfor normal_gump 640_480 10
               goto _mmloop
               }
       else
               {
               if ( %lastshard = #result ) || ( %scanned >= %num_shards2scan ) ; we've looked at all shards so get out of this screen
                       {
                       gosub clickred
                       gosub waitgump notfor normal_gump 640_480 10
                       goto _mmloop
                       }
               set %x #contposx + 536
               set %y #contposy + 346
               click %x %y  ; next shard
               set %lastshard #result
               goto _scan
               }
       }

if #contname = Login_gump ; char login gump
               {
               if * . %global <> 0  ; override charnum with global setting
                       set %mycharnum * . %global
               set %x #contposx + 359
               set %y #contposy + 165 + ( %mycharnum  - 2 )  * 40
               click %x %y x 3 ;  click char name (changed from d as sometimes seemed to fail)
               wait 5s
               if #contname = Login_gump ; no char?
                       gosub clickred
               gosub clickgreen ; click here as well cos sometimes the gump is misnamed (existing char)
               gosub waitgump notfor Login_gump 640_480 10
               goto _mmloop
               }
if  #contname = waiting_gump
       {
       if #contsize = 203_121 ; disconnection
               {
               set %x #contposx + 100
               set %y #contposy + 90
               click %x %y
               }
       if   #contsize = 408_288 ; no connection avail, or timeout
               {
               set %x #contposx + 206
               set %y #contposy + 256
               click %x %y  ; try again
               }
       goto _mmloop
       }
return
;-------------------------------------------
sub clickgreen
set %x #contposx + 617
set %y #contposy + 443
click %x %y ; the green arrow
wait 20
return
;-------------------------------------------
sub clickred
set %x1 #contposx + 598
set %y1 #contposy + 445
click %x1 %y1 ; the red arrow
wait 5
return
;-------------------------------------------
sub sendstring
str Len %1
set %len #strRes
for %i 1 16
       {
       key back ; delete current if any
       wait 1
       }
for %i 1 %len
       {
       str Mid %1 %i 1
       key #strRes
       wait 1
       }
return
;-------------------------------------------------
sub waitgump
;%1 = for or notfor %2 = kind of gump %*3 = size %*4= timeout
set %timout #scnt + %4
_wfgloop:
if #scnt > %timout
       return
wait 10
if %1 = for && ( #contname <> %2 || #contsize <> %3 )
       goto _wfgloop
if %1 = notfor && #contname = %2 && #contsize = %3
       goto _wfgloop
return
;-------------------------------------------------
sub MenuInit
menu Clear
menu Window title  AutoLogin
menu Window Color BtnFace
menu Window Size 150 70
menu font size 8
menu Button Quit 40 46 45 16 Quit
menu hideeuo
menu Show %menux %menuy
menu Show %menux %menuy
set %start  #scnt
gosub MenuShow %logincount , #spc , Attempts ; update menu
return
;-------------------------------------------------
sub MenuShow
set %hrs ( #scnt - %start ) / 3600
set %mins ( #scnt - %start ) / 60 - %hrs * 60
menu delete Active1
menu delete Active2
menu delete Count
menu text  Active1 10 6 %1
menu text Active2 10 18 %2
menu text Count 10 30 Time ,  #spc , %hrs , : , %mins
if #menubutton = Quit
       {
       menu show
       menu hide
       halt
       }

return
;----------------------------------------------------
sub scan ; scan a line to get a shard id
click 0 0 mc ; move cursor out the way
set %x1 #contposx + 217
set %x2 #contposx + 320
set %y #contposy + 113
set %val 0
for %i %x1 %x2
       {
       SavePix %i %y 1
       set %val %val + #pixcol
       }
wait 10
return %val
;----------------------------------------------------
sub checkshard
menu hideeuo
wait 1s
gosub scan
display ok shardid= , #spc , #result ; this is the value of the shardid
menu show
menu hide
halt