Post: #1

I put the script already made ​​the bet more did the draw yet.

What is the time to draw the script to find help


[ITEMDEF i_loteria]
NAME=Loteria
ID=i_globe
TYPE=t_normal

ON=@Create
LOCAL.1=<R1,16>
LOCAL.2=<R1,16>
LOCAL.3=<R1,16>
TAG.TODOSDIGITOS=<EVAL <LOCAL.1>>,<EVAL <LOCAL.2>>,<EVAL <LOCAL.3>>
MORE1=<LOCAL.1><LOCAL.2><LOCAL.3>
COLOR=0ad
ATTR=attr_static

ON=@Dclick
SDIALOG d_loteria
RETURN 1

ON=@Timer
IF (<RTIME.MONTH>==<MOREY>)
IF !(<MOREX>)
SERV.B @55,3 Loteria: Nao houveram vencedores.
MORE2 /= 2
ELSE
SERV.B @55,3 Loteria: Os vencedores foram...
FOR <MOREX>
OBJ=<TAG0.VENCEDOR<EVAL <MOREX>>>
SERV.B @36,3 Loteria: <OBJ.NAME>
SERV.NEWITEM i_bag
NEW.NAME=Bolsa da loteria
NEW.COLOR=048d
NEW.CONT=<OBJ.FINDLAYER.29>
OBJ.ADDGOLD <EVAL <MORE2>/<MOREX>> <NEW>
TRY TAG.VENCEDOR<EVAL <LOCAL._FOR>>
ENDFOR
SERV.B @55,3 Loteria: Parabens!
MORE2=5000
ENDIF
MOREX=0
TAG.ULTIMOSSORTEADOS=<TAG0.TODOSDIGITOS>
LOCAL.1=<R1,16>
LOCAL.2=<R1,16>
LOCAL.3=<R1,16>
TAG.TODOSDIGITOS=<EVAL <LOCAL.1>>,<EVAL <LOCAL.2>>,<EVAL <LOCAL.3>>
MORE1=<LOCAL.1><LOCAL.2><LOCAL.3>
IF (<RTIME.MONTH>==12)
MOREY=1
ELSE
MOREY += 1
ENDIF
LOCAL.P=<P>
P=1,1
SERV.ALLCLIENTS FINDID.i_loteria_mem.REMOVE
REGION.ALLCHARSIDLE FINDID.i_loteria_mem.REMOVE
P=<LOCAL.P>
ENDIF
TIMER=300
RETURN 1

[DIALOG d_loteria]
200,200
PAGE 0
resizepic 0 0 3500 400 230
checkertrans 10 10 380 210
FOR 3
dtext <EVAL <LOCAL._FOR>*100> 40 1152 <EVAL <QVAL 0<SRC.CTAG.DIGITO<EVAL <LOCAL._FOR>>> ? <SRC.CTAG.DIGITO<EVAL <LOCAL._FOR>>>:1>>
button <EVAL <LOCAL._FOR>*100> 70 093A 0939 1 0 <eval <local._for>+3>
button <EVAL <LOCAL._FOR>*100> 20 093A 0939 1 0 <local._for>
ENDFOR
dtext 30 100 55 Premio acumulado: <EVAL <MORE2>>
dtext 30 130 55 Ultimos numeros sorteados: <TAG0.ULTIMOSSORTEADOS>
button 30 185 093A 0939 1 0 7
dtext 50 180 0ad Apostar (5k)

[DIALOG d_loteria BUTTON]
ON=0
SRC.CTAG.DIGITO1
SRC.CTAG.DIGITO2
SRC.CTAG.DIGITO3
SRC.CTAG.DIGITO4

ON=1 3
IF !(0<SRC.CTAG.DIGITO<ARGN1>>)
TRY SRC.CTAG.DIGITO<ARGN1>=1
ENDIF
IF !(<EVAL <SRC.CTAG.DIGITO<ARGN1>>+1> > 15)
TRY SRC.CTAG.DIGITO<ARGN1>=<EVAL 0<SRC.CTAG.DIGITO<ARGN1>>+1>
ELSE
TRY SRC.CTAG.DIGITO<ARGN1>=1
ENDIF
SDIALOG d_loteria

ON=4 6
LOCAL.DIGITO=<EVAL <ARGN1>-3>
IF !(0<SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>>)
TRY SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>=1
ENDIF
IF !(<EVAL <SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>>-1> < 1)
TRY SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>=<EVAL 0<SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>>-1>
ELSE
TRY SRC.CTAG.DIGITO<EVAL <LOCAL.DIGITO>>=15
ENDIF
SDIALOG d_loteria

ON=7
FOR 3
IF !(0<SRC.CTAG.DIGITO<EVAL <LOCAL._FOR>>>)
TRY SRC.CTAG.DIGITO<EVAL <LOCAL._FOR>>=1
ENDIF
ENDFOR
LOCAL.APOSTA=<SRC.CTAG.DIGITO1><SRC.CTAG.DIGITO2><SRC.CTAG.DIGITO3>
FOR 0 <EVAL <SRC.ACCOUNT.CHARS>-1>
IF (<SERV.ACCOUNT.<SRC.ACCOUNT.NAME>.CHAR.<LOCAL._FOR>>!=<SRC>)
IF (<SERV.ACCOUNT.<SRC.ACCOUNT.NAME>.CHAR.<LOCAL._FOR>.FINDID.i_loteria_mem>)
SRC.SYSMESSAGE @55 Voce ja votou com o outro char da account.
SRC.CTAG.DIGITO1
SRC.CTAG.DIGITO2
SRC.CTAG.DIGITO3
RETURN 1
ENDIF
ENDIF
ENDFOR
OBJ=<SRC.FINDID.i_loteria_mem>
IF (<OBJ.MORE1> >= 5)
SRC.SYSMESSAGE @55 Voce ja apostou 5 vezes.
LOCAL.JAAPOSTOU=1
ELIF (<OBJ.JAAPOSTOU <LOCAL.APOSTA>>)
SRC.SYSMESSAGE @55 Voce ja apostou nestes numeros.
LOCAL.JAAPOSTOU=1
ELIF (<SRC.TOTALGOLD> < 5000)
SRC.SYSMESSAGE @55 Voce nao tem dinheiro suficiente.
ELIF (<LOCAL.APOSTA>==<MORE1>)
MOREX += 1
TRY TAG.VENCEDOR<EVAL <MOREX>>=<SRC>
ENDIF
SRC.CTAG.DIGITO1
SRC.CTAG.DIGITO2
SRC.CTAG.DIGITO3
IF (<SRC.TOTALGOLD> >= 5000) && !(<LOCAL.JAAPOSTOU>)
SRC.CONSUMEGOLD 5000
MORE2 += 5000
IF !(<OBJ>)
SERV.NEWITEM i_loteria_mem
SRC.EQUIP <NEW>
NEW.MORE1=1
NEW.TAG.APOSTADO1=<LOCAL.APOSTA>
ELSE
OBJ.MORE1 +=1
TRY OBJ.TAG.APOSTADO<EVAL <OBJ.MORE1>>=<LOCAL.APOSTA>
ENDIF
ENDIF

[ITEMDEF i_loteria_mem]
ID=i_memory
NAME=Loteria mem
TYPE=t_eq_script

[FUNCTION JAAPOSTOU]
FOR <MORE1>
IF (<TAG0.APOSTADO<EVAL <LOCAL._FOR>>>==<ARGN1>)
RETURN 1
ENDIF
ENDFOR
RETURN 0

Post: #2

Cara, para de pedir pros caras fazerem as coisas ou tentar te explicar o que tá escrito no script.
Se você não entende, o que eles falarem você não vai entender.
Os caras não sabem ler português, então não adianta colocar nome do tópico em português.
Acho que você deveria procurar onde você copiou o script e perguntar o que quer saber.