Ganar oro siendo NW hasta dejar de serlo.

» 05 Jul 2009 09:39

Codigo hecho por mi solo, todavia no puedo creer que me halla salido este code (diran que es muy simple pero estoy empezando a programar)

Primero en el mod declaraciones ponen avajod de Option Explicit:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public ORONW As String             ' Oro para el NW :P

luego buscan:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Sub CheckUserLevel(ByVal UserIndex As Integer)

en ese sub buscan:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If UserList(UserIndex).Stats.ELV < 11 Then

arriva de eso ponen:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 If UserList(UserIndex).Stats.ELV < 13 Then
    UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + 15 * ORONW
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tienes" & UserList(UserIndex).Stats.GLD & " monedas de Oro!" & FONTTYPE_INFO)
    End If

avajod de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If frmMain.Visible Then frmMain.txStatus.Caption = "Cargando info de inicio del server."

ponen:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

ORONW = val(GetVar(DatPath & "Configuracion.ini", "INIT", "OroNw"))

bueno ese es el code ahora en la carpeta Dat del server crean Configuracion.ini y adentro ponen:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 
[INIT]
OroNw=x  

La "X" ponen el numero que quieran.

Les ago una explicacion sensilla este code sirve tanto para servers roleros como para de agites(mas para el Rolero)
veran en una parte dice + 15 seria el oro que se va a multiplicar por lo que pongan en el archivo configuracion.ini

les muestro un ejemplo para que se den cuenta:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

[INIT]
OroNw=2

y el +15 lo dejo como esta, quedaria así:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

se va multiplicando cada vez que pasas de nivel ¿ entienden ?

Estoy seguro que este code no esta así como lo hose yo

Testeado y funciona prefectamente

Por favor los programadores avanzados me dirian como esta el code si voy por buen camino o se puede simplficar mas (al code me refiero)

Saludos.

Atte.:Hardoz:.

» 05 Jul 2009 13:22

Exelente muy bueno!
muy buen aporte!
Va a los codes qe voy a agregar!
muchisimas grasias!

» 05 Jul 2009 13:52

Buenisimo, jaja es tu primero code y esta re piola

No te puedo decir si vas por buen camino pq yo no hago codes pero para mi opinion si

» 05 Jul 2009 16:10

Gracias a los dos

Denada.

Saludos.

Atte.:Hardoz:.

» 05 Jul 2009 16:15

Buenisimo genio!.

Si recien empezas, vas por muy buen camino, hace muchos codes asi faciles, pero que no sea siemrpe leyendo de un archivo y eso, y vas a ir tocando cosas mas grosas

No me considero programador avanzado, pero we, en fin, el programador es aquel que sabe usar lo poco que sabe, no?:P