GS-Zone
Facebook Twitter

Comenzar con objetos IAO Style Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

3

Nota » 26 Ago 2011 01:00

Buscan en el servidor:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. '???????????????? INVENTARIO ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿


Y de ahí hasta el end sub reemplazan por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. 'Comienzo inventario newbie por clase y raza. (Lanzers *GS-Zone.org*)
  3. .Invent.NroItems = 6
  4.  
  5. .Invent.Object(5).ObjIndex = 467
  6. .Invent.Object(5).amount = 100
  7. .Invent.Object(6).ObjIndex = 468
  8. .Invent.Object(6).amount = 100
  9.  
  10. Select Case UserClase
  11.     Case eClass.Assasin
  12.     .Invent.Object(1).ObjIndex = 461
  13.     .Invent.Object(1).amount = 1000
  14.     .Invent.Object(2).ObjIndex = 989
  15.     .Invent.Object(2).amount = 1000
  16.     .Invent.Object(4).ObjIndex = 990
  17.    
  18.     .Invent.ArmourEqpSlot = 3
  19.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  20.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  21.     .Invent.WeaponEqpSlot = 4
  22.    
  23.     Case eClass.Bandit
  24.     .Invent.Object(1).ObjIndex = 461
  25.     .Invent.Object(1).amount = 1000
  26.     .Invent.Object(4).ObjIndex = 990
  27.     .Invent.ArmourEqpSlot = 2
  28.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  29.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  30.     .Invent.WeaponEqpSlot = 3
  31.    
  32.     Case eClass.Bard
  33.     .Invent.Object(1).ObjIndex = 461
  34.     .Invent.Object(1).amount = 1000
  35.     .Invent.Object(2).ObjIndex = 989
  36.     .Invent.Object(2).amount = 100
  37.     .Invent.Object(4).ObjIndex = 990
  38.     .Invent.ArmourEqpSlot = 3
  39.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  40.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  41.     .Invent.WeaponEqpSlot = 4
  42.    
  43.     Case eClass.Blacksmith
  44.     .Invent.Object(1).ObjIndex = 461
  45.     .Invent.Object(1).amount = 1000
  46.     .Invent.Object(2).ObjIndex = 989
  47.     .Invent.Object(2).amount = 1000
  48.     .Invent.Object(4).ObjIndex = 990
  49.     .Invent.ArmourEqpSlot = 3
  50.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  51.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  52.     .Invent.WeaponEqpSlot = 4
  53.    
  54.     Case eClass.Carpenter
  55.     .Invent.Object(1).ObjIndex = 461
  56.     .Invent.Object(1).amount = 1000
  57.     .Invent.Object(4).ObjIndex = 990
  58.     .Invent.ArmourEqpSlot = 2
  59.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  60.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  61.     .Invent.WeaponEqpSlot = 3
  62.    
  63.     Case eClass.Cleric
  64.     .Invent.Object(1).ObjIndex = 461
  65.     .Invent.Object(1).amount = 1000
  66.     .Invent.Object(2).ObjIndex = 989
  67.     .Invent.Object(2).amount = 1000
  68.     .Invent.Object(4).ObjIndex = 990
  69.     .Invent.ArmourEqpSlot = 3
  70.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  71.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  72.     .Invent.WeaponEqpSlot = 4
  73.  
  74.     Case eClass.Druid
  75.     .Invent.Object(1).ObjIndex = 461
  76.     .Invent.Object(1).amount = 1000
  77.     .Invent.Object(2).ObjIndex = 989
  78.     .Invent.Object(2).amount = 1000
  79.     .Invent.Object(4).ObjIndex = 990
  80.     .Invent.ArmourEqpSlot = 3
  81.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  82.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  83.     .Invent.WeaponEqpSlot = 4
  84.    
  85.     Case eClass.Fisher
  86.     .Invent.Object(1).ObjIndex = 461
  87.     .Invent.Object(1).amount = 1000
  88.     .Invent.Object(4).ObjIndex = 990
  89.     .Invent.ArmourEqpSlot = 2
  90.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  91.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  92.     .Invent.WeaponEqpSlot = 3
  93.    
  94.     Case eClass.Hunter
  95.     .Invent.Object(1).ObjIndex = 461
  96.     .Invent.Object(1).amount = 1000
  97.     .Invent.Object(4).ObjIndex = 990
  98.     .Invent.ArmourEqpSlot = 2
  99.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  100.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  101.     .Invent.WeaponEqpSlot = 3
  102.    
  103.     Case eClass.Lumberjack
  104.     .Invent.Object(1).ObjIndex = 461
  105.     .Invent.Object(1).amount = 1000
  106.     .Invent.Object(2).ObjIndex = 989
  107.     .Invent.Object(2).amount = 1000
  108.     .Invent.Object(4).ObjIndex = 990
  109.     .Invent.ArmourEqpSlot = 3
  110.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  111.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  112.     .Invent.WeaponEqpSlot = 4
  113.    
  114.     Case eClass.Mage
  115.     .Invent.Object(1).ObjIndex = 461
  116.     .Invent.Object(1).amount = 1000
  117.     .Invent.Object(2).ObjIndex = 989
  118.     .Invent.Object(2).amount = 1000
  119.     .Invent.Object(4).ObjIndex = 991
  120.     .Invent.ArmourEqpSlot = 3
  121.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  122.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  123.     .Invent.WeaponEqpSlot = 4
  124.    
  125.     Case eClass.Miner
  126.     .Invent.Object(1).ObjIndex = 461
  127.     .Invent.Object(1).amount = 1000
  128.     .Invent.Object(4).ObjIndex = 990
  129.     .Invent.ArmourEqpSlot = 2
  130.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  131.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  132.     .Invent.WeaponEqpSlot = 3
  133.    
  134.     Case eClass.Paladin
  135.     .Invent.Object(1).ObjIndex = 461
  136.     .Invent.Object(1).amount = 1000
  137.     .Invent.Object(2).ObjIndex = 989
  138.     .Invent.Object(2).amount = 1000
  139.     .Invent.Object(4).ObjIndex = 990
  140.     .Invent.ArmourEqpSlot = 3
  141.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  142.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  143.     .Invent.WeaponEqpSlot = 4
  144.    
  145.     Case eClass.Pirat
  146.     .Invent.Object(1).ObjIndex = 461
  147.     .Invent.Object(1).amount = 1000
  148.     .Invent.Object(4).ObjIndex = 990
  149.     .Invent.ArmourEqpSlot = 2
  150.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  151.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  152.     .Invent.WeaponEqpSlot = 3
  153.    
  154.     Case eClass.Thief
  155.     .Invent.Object(1).ObjIndex = 461
  156.     .Invent.Object(1).amount = 1000
  157.     .Invent.Object(4).ObjIndex = 990
  158.     .Invent.ArmourEqpSlot = 2
  159.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  160.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  161.     .Invent.WeaponEqpSlot = 3
  162.    
  163.     Case eClass.Warrior
  164.     .Invent.Object(1).ObjIndex = 461
  165.     .Invent.Object(1).amount = 1000
  166.     .Invent.Object(4).ObjIndex = 990
  167.     .Invent.ArmourEqpSlot = 2
  168.     .Invent.ArmourEqpObjIndex = .Invent.Object(3).ObjIndex
  169.     .Invent.WeaponEqpObjIndex = .Invent.Object(4).ObjIndex
  170.     .Invent.WeaponEqpSlot = 3
  171. End Select
  172.    
  173. Select Case UserRaza
  174.     Case eRaza.Humano
  175.         .Invent.Object(3).ObjIndex = 463
  176.     Case eRaza.Elfo
  177.         .Invent.Object(3).ObjIndex = 464
  178.     Case eRaza.Drow
  179.         .Invent.Object(3).ObjIndex = 465
  180.     Case eRaza.Enano
  181.         .Invent.Object(3).ObjIndex = 466
  182.     Case eRaza.Gnomo
  183.         .Invent.Object(3).ObjIndex = 466
  184. End Select
  185.  
  186. .Invent.Object(4).amount = 1
  187. .Invent.Object(4).Equipped = 0
  188. .Invent.Object(3).amount = 1
  189. .Invent.Object(3).Equipped = 1
  190.  
  191. #If ConUpTime Then
  192.     .LogOnTime = Now
  193.     .UpTime = 0
  194. #End If
  195.  
  196. 'Valores Default de facciones al Activar nuevo usuario
  197. Call ResetFacciones(UserIndex)
  198.  
  199. Call WriteVar(CharPath & UCase$(name) & ".chr", "INIT", "Password", Password) 'grabamos el password aqui afuera, para no mantenerlo cargado en memoria
  200.  
  201. Call SaveUser(UserIndex, CharPath & UCase$(name) & ".chr")
  202.  
  203. 'Open User
  204. Call ConnectUser(UserIndex, name, Password)
  205.  End With
  206. End Sub


Abrel el obj.dat y al final agregan:

[OBJNúmero de objeto]
Name=Poción Azul (Newbie)
GrhIndex=541
ObjType=11
Agarrable=0
newbie=1
TipoPocion=4
MaxModificador=20
MinModificador=12
Crucial=0
NoSeCae=1

[OBJNúmero de objeto]
Name=Espada Larga (Newbie)
GrhIndex=504
ObjType=2
Agarrable=0
Anim=1
MinHit=1
MaxHit=8
Valor=210
Crucial=1
CP1=MAGO
Newbie=1
NoSeCae=1

[OBJNúmero de objeto]
Name=Bastón Nudoso (Newbie)
GrhIndex=959
ObjType=2
Agarrable=0
Anim=9
MinHit=1
MaxHit=1
StaffPower=2
StaffDamageBonus=30
Valor=2500
Crucial=1
CP1=PIRATA
CP2=CARPINTERO
CP3=CAZADOR
CP4=PALADIN
CP5=CLERIGO
CP6=ASESINO
CP7=PESCADOR
CP8=MINERO
CP9=LADRON
CP10=BANDIDO
CP11=HERRERO
CP12=GUERRERO
CP13=BARDO
CP14=DRUIDA
CP15=LEÑADOR
Newbie=1
NoSeCae=1


Acuerdensé de reemplazar el
NumOBJs=Número del último objeto creado


Con esto comienzan las clases mágicas con pociones de maná y vida (El mago con bastón) y las clases guerreras con pociones rojas y espada larga.

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
539
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2677
Aportes: 16
Arriba

Nota » 27 Ago 2011 22:49

Buen aporte, simple y útil.

Saludos ^^

Imagen
Imagen
Samke
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3414
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)
Arriba

Nota » 28 Ago 2011 20:15

Creo que lo hice y deja un slot vacío en las clases no mágicas.
Codié en la notbook y no tenía ni visual basic, que alguien lo testee y lo arreglo.

Imagen
201.212.4.161:27030


''Tagiamos G5, jugamos por GS-Zone''
<Acá hay mafia y me los cargo a todos en la espalda>
Lanzers
No acepto críticas ni comentario de ignorantes.
539
G5 TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa Regina - Rio Negro
Mensajes: 2677
Aportes: 16
Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados