Piedra Bajar Skills

Es una piedra para bajar skills a cambio de dinero, en la piedra figuran los skills que el player no tenga en 0.0. Puede especificar la cantidad exacta de cuanto quiere bajar. El costo es (cantidad de skill bajado)*3. Ej: Si bajo 0.5 --> 5*3, Si bajo 10.5 --> 105*3

Código:


//****************************************************************************
// Piedra de Skills
// Creado por Ludgan
//****************************************************************************
[ITEMDEF i_piedra_skills]
ID=i_grave_stone
TYPE=t_normal
NAME=Bajar Skills

ON=@DCLICK
IF (<SRC.DISTANCE> > 3)
SRC.SMSG Estas muy lejos
RETURN 1
ENDIF
SRC.SDIALOG d_skills
RETURN 1

[DIALOG d_skills]
0,0
page 0
resizepic 7 6 2600 598 530
dtextentrylimited 515 36 30 21 1935 2 1 0
dtextentrylimited 484 36 30 21 1935 1 3 000
dtext 510 36 1935 ..
FOR 0 51
IF (<SRC.<SERV.SKILL.<dlocal._for>.KEY>> > 30.0)
dtext <eval 70 + (150*<local.skills>)> <eval 114 + (20*<local.skill>)> 1152 <SERV.SKILL.<dlocal._for>.KEY>:<SRC.<SERV.SKILL.<dlocal._for>.KEY>>
button <eval 46 + (150*<local.skills>)> <eval 118 + (20*<local.skill>)> 1210 1209 1 0 <eval <dlocal._for> + 1>
LOCAL.SKILL +=1
IF (<LOCAL.SKILL>==19)
LOCAL.SKILLS +=1
LOCAL.SKILL=0
ENDIF
ENDIF
ENDFOR
dtext 291 63 1935 Escriba la cantidad de Skill que desea bajar,
dtext 291 80 1935 y presione el boton que se encuentra junto a el.

[DIALOG d_skills BUTTON]
ON=1,57
IF !(<ISNUM <ARGTXT[1]>>) || !(<ISNUM <ARGTXT[2]>>)
SMSG Solo numeros!
DIALOG d_skills
RETURN 1
ENDIF
IF (<ARGTXT[1]> < 0) || (<ARGTXT[2]> < 0)
SMSG Debe ser mayor o igual que 0!
DIALOG d_skills
RETURN 1
ENDIF
IF (<ARGTXT[1]>==0) && (<ARGTXT[2]>==0)
SMSG Escribe cuanto quieres bajar de skill!
DIALOG d_skills
RETURN 1
ENDIF
IF (<ARGTXT[1]> > 0)
IF (<STRSUB 0 1 <ARGTXT[1]>>==0)
IF (<STRSUB 1 1 <ARGTXT[1]>>==0)
LOCAL.SKILL=<EVAL (<STRSUB 2 1 <ARGTXT[1]>>*10) + <ARGTXT[2]>>
ELSE
LOCAL.SKILL=<EVAL (<STRSUB 1 2 <ARGTXT[1]>>*10) + <ARGTXT[2]>>
ENDIF
IF !(<RESTEST <eval (<LOCAL.SKILL>*3)> i_gold>)
SMSG Necesitas <eval (<LOCAL.SKILL>*3)> monedas de oro
RETURN 1
ENDIF
SRC.CONSUME <eval (<LOCAL.SKILL>*3)> i_gold
<SERV.SKILL.<EVAL  <ARGN> - 1>.NAME> = <EVAL <<SERV.SKILL.<EVAL  <ARGN> - 1>.NAME>> - <LOCAL.SKILL>>
DIALOG d_skills
RETURN 1
ENDIF
ENDIF
LOCAL.SKILL=<EVAL (<ARGTXT[1]>*10) + <ARGTXT[2]>>
IF !(<RESTEST <eval (<LOCAL.SKILL>*3)> i_gold>)
SMSG Necesitas <eval (<LOCAL.SKILL>*3)> monedas de oro
RETURN 1
ENDIF
SRC.CONSUME <eval (<LOCAL.SKILL>*3)> i_gold
<SERV.SKILL.<EVAL  <ARGN> - 1>.NAME> = <EVAL <<SERV.SKILL.<EVAL  <ARGN> - 1>.NAME>> - <LOCAL.SKILL>>
DIALOG d_skills
RETURN 1

Gracias por el aporte.

Nice Job !

Me da error este script, los botones de arriba de las skills no me aparecen y en la consola me sale esto:
23:29:ERROR:(ObjetosVarios.scp,118)Undefined symbol 'begin_of_the_skype_highlighting'
23:29:ERROR:(ObjetosVarios.scp,118)Undefined symbol 'begin_of_the_skype_highlighting'

y cual es la linea 118?

button <eval 46 + (150*<local.skills>)> <eval 118 + (20*<local.skill>)> 1210 1209 1 0 <eval <dlocal._for> + 1>

este mensaje "begin_of_the_skype_highlighting" no tiene sentido que aparezca en ninguna parte del script, ni siquiera parece algo del uo.
Lo puse en google y me salio este link http://forum.skype.com/index.php?showtopic=96959&st=40 donde gente que usa skype se queja de un bug que les inserta el mensaje "begin_of_the_skype_highlighting" en los mails que escriben, archivos de texto o cosas asi. Igual realmente ni idea si es eso, pero estoy casi seguro que no es por algo del script porque esta testeado y funcionando actualmente en mi server sin ninguna modificación

Efectivamente era lo que comentas en el post. Es el Explorer que las cadenas de numeros te las toma como si fueran un numero para llamar con skype.

jajaja, ese si es un error núnca visto.