Los trabajadores trabajan mas rrapido [0.11.5]

Tema: Los trabajadores trabajan mas rrapido [0.11.5] Dom Dic 07, 2008 7:08 am

Servidor

Para talar:

Nos dirigimos al Modulo Trabajo.Bas Y luego nos vamos a Sub DoTalar y luego buscamos:

Código:: If UserList(UserIndex).Clase = "Leñador" Then
MiObj.Amount = RandomNumber(1, 5)
Else
MiObj.Amount = 1
End If

Nos fijamos en RandomNumber (1 ' 5)--> con eso el leñador saca entre 1 y 5 leños.
Si por ejemplo queremos que saque entre 20 y 50 leños pues ponemos: RandomNumber ( 20 ' 50 ) cadauno que ponga lo que quiera.

Luego, el Else es cuantos leños sacan las demas clases, que no sean leñador, claro
MiObj.Amount = 1 ---> con eso, las demas clases sacaran 1 leño.
Por ejemplo queremos que saquen 10, pues ponemos: MiObj.Amount = 10

Para Minar:

Nos dirigimos al mismo modulo pero ahora a Sub DoMineria y encontraremos esto:

Código:: If UserList(UserIndex).Clase = "Minero" Then
MiObj.Amount = RandomNumber(1, 6)
Else
MiObj.Amount = 1
End If

Pues exactamente lo mismo:

RandomNumber ( 1 ' 6 ) ---> Esto es lo que saca el minero, entre 1 y 6 minerales, pues le cambiamos los valores a nuestro gusto.

El Else nos indica para las demas clases, cambiamos el valor 1 : MiObj.Amount = 1 ---> el valor 1 es lo que sacan en minerales, lo cambiamos por el valor que queremos que saquen las demas clases.