ZDoom X-Launcher Final

Iniciado por _666DeMoN_, Julio 02, 2008, 05:19:07 PM

Tema anterior - Siguiente tema
Imprimir
Ir Abajo Páginas 1 2
Acciones del Usuario

Phobos Anomaly

#15
Julio 03, 2008, 04:51:51 PM
Que bueno, lastima que digas que es la ultima versión, yo te iba a decir que le pongas algo tipo "examinar" para buscar el pwad que quieras y así se haga mas fácil en lugar de escribirlo, la igual que al elegir la resolución, y también hubiese estado bueno que hagas partes de la ventana del launcher expandidle, como las opciones de zdoom (donde esta para elegir la resolución y poner el nombre del jugador, etc.), así no aparece la semeja ventana de un golpe y queda mas bonito.


Ah, y si quieres un icono para tu launcher:




Saludos y trata de utilizar la opción "Edit"!!! :lol:

NIGHTMARE!

#16
Julio 03, 2008, 05:17:24 PM
Y el ZLD 3.0 ???


ZDL3 no es un port, es un launcher para Zdoom, que te permite cargar wads y pk3 desde cualquier ubicacion (eso si el Zdl3 debe estar en la carpeta zdoom), tambien te permite crear servidores de DM y COOP.  

yo  uso simpre este launcher  para no tener que arrastar las wad y las puedo guardar en donde yo quiera, (y asi no  tener que tirar todo al directorio de zdoom)

Otra cosa con ZDL3, tu puedes tener varios sourceport, como por zdoom, gzdoom o zdoomgl, en el casillero port tu los debes buscar y agregar, y bueno cuando quieres jugar eliges el que desees, y bueno si no quieres buscar con el zdl, te vas a las opciones de este y seleccionas en asociation wad y pk3, y hay solo vasta un click en el wad o pk3 para que esta se te ejecute directamente con Zdoom.

Y para las demos, solo escriben un comando en la linea de parametros.




si lo quieres bajar para inspirarte mas aun aqui esta el link de doompower (unica pagina en el que lo encontre)

http://biohazard.drdteam.org/download.php?id=zdl-30.zip

Saludos.

Ingresa a UNIVERSEDOOMFORO

_666DeMoN_

#17
Julio 03, 2008, 05:25:17 PM
Cita de: "Phobos Anomaly"Que bueno, lastima que digas que es la ultima versión, yo te iba a decir que le pongas algo tipo "examinar" para buscar el pwad que quieras y así se haga mas fácil en lugar de escribirlo, la igual que al elegir la resolución, y también hubiese estado bueno que hagas partes de la ventana del launcher expandidle, como las opciones de zdoom (donde esta para elegir la resolución y poner el nombre del jugador, etc.), así no aparece la semeja ventana de un golpe y queda mas bonito.


Ah, y si quieres un icono para tu launcher:




Saludos y trata de utilizar la opción "Edit"!!! :lol:

Bien! muchas gracias, (que ponga final, no quiere decir que no vaya a hacer mas versiones, es la primera final) lo tendré en cuenta!

Um... lo de examinar el PWAD no podre hacerlo :( y lo otro tampoco porque tendría que hacer el launcher de 0

El icono del launcher lo hiciste tu?

Gracias!
It's time to kick ass and chew bubblegum, and i'm all out of gum

Hell is going to the Earth...  | 32 | 100 % | 43 | :nomefio: | Bullets 400 / 400

Phobos Anomaly

#18
Julio 03, 2008, 06:06:43 PM
Cita de: "_666DeMoN_"
Cita de: "Phobos Anomaly"Que bueno, lastima que digas que es la ultima versión, yo te iba a decir que le pongas algo tipo "examinar" para buscar el pwad que quieras y así se haga mas fácil en lugar de escribirlo, la igual que al elegir la resolución, y también hubiese estado bueno que hagas partes de la ventana del launcher expandidle, como las opciones de zdoom (donde esta para elegir la resolución y poner el nombre del jugador, etc.), así no aparece la semeja ventana de un golpe y queda mas bonito.


Ah, y si quieres un icono para tu launcher:




Saludos y trata de utilizar la opción "Edit"!!! :lol:

Bien! muchas gracias, (que ponga final, no quiere decir que no vaya a hacer mas versiones, es la primera final) lo tendré en cuenta!

Um... lo de examinar el PWAD no podre hacerlo :( y lo otro tampoco porque tendría que hacer el launcher de 0



Es una lastima que no puedas hacer eso, pero yo si fuese tu me tomaría la molestia de hacerlo desde 0, después de todo el resultado es lo que importa, mayor actividad significa mayor uso, ya que hiciste todo esto hasta ahora, por que no expandirlo???



Cita de: "_666DeMoN_"El icono del launcher lo hiciste tu?

Gracias!


Si lo hice yo.

_666DeMoN_

#19
Julio 03, 2008, 06:14:14 PM
Cita de: "Phobos Anomaly"
Cita de: "_666DeMoN_"
Cita de: "Phobos Anomaly"Que bueno, lastima que digas que es la ultima versión, yo te iba a decir que le pongas algo tipo "examinar" para buscar el pwad que quieras y así se haga mas fácil en lugar de escribirlo, la igual que al elegir la resolución, y también hubiese estado bueno que hagas partes de la ventana del launcher expandidle, como las opciones de zdoom (donde esta para elegir la resolución y poner el nombre del jugador, etc.), así no aparece la semeja ventana de un golpe y queda mas bonito.


Ah, y si quieres un icono para tu launcher:




Saludos y trata de utilizar la opción "Edit"!!! :lol:

Bien! muchas gracias, (que ponga final, no quiere decir que no vaya a hacer mas versiones, es la primera final) lo tendré en cuenta!

Um... lo de examinar el PWAD no podre hacerlo :( y lo otro tampoco porque tendría que hacer el launcher de 0



Es una lastima que no puedas hacer eso, pero yo si fuese tu me tomaría la molestia de hacerlo desde 0, después de todo el resultado es lo que importa, mayor actividad significa mayor uso, ya que hiciste todo esto hasta ahora, por que no expandirlo???



Cita de: "_666DeMoN_"El icono del launcher lo hiciste tu?

Gracias!


Si lo hice yo.

Bueno, primero gracias por el icono :D.

Quizas, si encuentro algún tutorial pueda hacer lo que tu díces, porque soy nuevo en programación.

Saludos.

Aunque si puedes pasar el icono a .ico ...  :roll:
It's time to kick ass and chew bubblegum, and i'm all out of gum

Hell is going to the Earth...  | 32 | 100 % | 43 | :nomefio: | Bullets 400 / 400

doomero

#20
Julio 03, 2008, 10:12:36 PM
oye lo que dije del 3zdl y del doom arena , se me olvido que son launcher al igual que el tuyos y tambien sirven para skulltag, zdoom o gzdoom, tu launcher tiene influencias sobre todo del 3zdl aunque lo que mas me gusto fue que esta en español, asi que ya se me olvido el ingles XD.

Crazy Chicken

#21
Julio 03, 2008, 11:34:10 PM
Mmmm, interesante, lo probare y de ahi opino.
Recatate que vienen los Gremlins viteh!!!!
http://www.freewebs.com/crazychickenpalace/
Crazy Chicken Palace, entren o MORIRAN!!

Phobos Anomaly

#22
Julio 03, 2008, 11:47:14 PM
Lo siento, aquí esta el ico.


http://www.badongo.com/file/10202742

_666DeMoN_

#23
Julio 04, 2008, 08:58:49 AM
Cita de: "Phobos Anomaly"Lo siento, aquí esta el ico.


http://www.badongo.com/file/10202742

Gracias!
It's time to kick ass and chew bubblegum, and i'm all out of gum

Hell is going to the Earth...  | 32 | 100 % | 43 | :nomefio: | Bullets 400 / 400

Karnizero

#24
Julio 05, 2008, 04:12:13 PM
¿Podrías poner el código fuente del programa?

No es que quiera copiarlo ni nada parecido, simplemente por curiosidad...

_666DeMoN_

#25
Julio 05, 2008, 04:24:10 PM
Cita de: "Karnizero"¿Podrías poner el código fuente del programa?

No es que quiera copiarlo ni nada parecido, simplemente por curiosidad...

Es para Visual Basic 6.0 aqui va.

Si lo quieres en forma de proyecto para mejor comprensión, me avisas y te lo mando por menasje privado.

Spoiler
Código [Seleccionar]
VERSION 5.00
Begin VB.Form Form1
  Caption         =   "ZDoom X-Launcher v 0.3 FINAL - Por: _666DeMoN_"
  ClientHeight    =   5265
  ClientLeft      =   60
  ClientTop       =   450
  ClientWidth     =   13965
  Icon            =   "zxlauncher.frx":0000
  LinkTopic       =   "Form1"
  ScaleHeight     =   5265
  ScaleWidth      =   13965
  StartUpPosition =   3  'Windows Default
  Begin VB.TextBox Extra
     Height          =   285
     Left            =   10440
     TabIndex        =   100
     Top             =   5040
     Width           =   3495
  End
  Begin VB.TextBox PTFT
     Height          =   285
     Left            =   8520
     TabIndex        =   99
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   255
  End
  Begin VB.TextBox Snd3d
     Height          =   285
     Left            =   8040
     TabIndex        =   98
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   255
  End
  Begin VB.TextBox Sound
     Height          =   285
     Left            =   3600
     TabIndex        =   89
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   615
  End
  Begin VB.TextBox Musica
     Height          =   285
     Left            =   2640
     TabIndex        =   88
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   495
  End
  Begin VB.TextBox Particles
     Height          =   285
     Left            =   1920
     TabIndex        =   87
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   375
  End
  Begin VB.TextBox MEnable
     Height          =   285
     Left            =   4800
     TabIndex        =   81
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   615
  End
  Begin VB.TextBox AltHud
     Height          =   285
     Left            =   7200
     TabIndex        =   80
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   495
  End
  Begin VB.TextBox MsgS
     Height          =   285
     Left            =   6360
     TabIndex        =   79
     Text            =   "Text1"
     Top             =   5280
     Visible         =   0   'False
     Width           =   495
  End
  Begin VB.TextBox Save
     Height          =   285
     Left            =   14040
     TabIndex        =   78
     Top             =   240
     Visible         =   0   'False
     Width           =   150
  End
  Begin VB.TextBox Marcas
     Height          =   375
     Left            =   14040
     TabIndex        =   77
     Top             =   5160
     Visible         =   0   'False
     Width           =   150
  End
  Begin VB.TextBox Completa
     Height          =   285
     Left            =   14040
     TabIndex        =   76
     Top             =   0
     Visible         =   0   'False
     Width           =   150
  End
  Begin VB.Frame Frame4
     Caption         =   "ZDooM"
     Height          =   4215
     Left            =   8520
     TabIndex        =   55
     Top             =   720
     Width           =   5415
     Begin VB.CheckBox TFT
        Caption         =   "Check1"
        Height          =   255
        Left            =   2400
        TabIndex        =   96
        Top             =   1560
        Width           =   255
     End
     Begin VB.TextBox Colores
        Height          =   285
        Left            =   4200
        TabIndex        =   95
        Text            =   "00 00 00"
        Top             =   2640
        Width           =   1095
     End
     Begin VB.TextBox Nombre
        Height          =   285
        Left            =   3120
        TabIndex        =   94
        Text            =   "Player"
        Top             =   2040
        Width           =   1095
     End
     Begin VB.CheckBox Sound3d
        Caption         =   "Check1"
        Height          =   255
        Left            =   2400
        TabIndex        =   90
        Top             =   1200
        Width           =   255
     End
     Begin VB.CheckBox Sfx
        Caption         =   "Check3"
        Height          =   195
        Left            =   2400
        TabIndex        =   85
        Top             =   840
        Width           =   255
     End
     Begin VB.CheckBox Music
        Caption         =   "Check2"
        Height          =   195
        Left            =   2400
        TabIndex        =   83
        Top             =   480
        Width           =   255
     End
     Begin VB.CommandButton Aplicar
        Caption         =   "Aplicar Configuración"
        Height          =   375
        Left            =   120
        TabIndex        =   75
        Top             =   3000
        Width           =   2055
     End
     Begin VB.TextBox Alto
        Height          =   285
        Left            =   1680
        TabIndex        =   72
        Text            =   "786"
        Top             =   480
        Width           =   495
     End
     Begin VB.CheckBox Decals
        Caption         =   "Check6"
        Height          =   255
        Left            =   120
        TabIndex        =   69
        Top             =   2640
        Width           =   255
     End
     Begin VB.CheckBox Msg
        Caption         =   "Check5"
        Height          =   255
        Left            =   120
        TabIndex        =   67
        Top             =   2280
        Width           =   255
     End
     Begin VB.CheckBox Hud
        Caption         =   "Check4"
        Height          =   255
        Left            =   120
        TabIndex        =   65
        Top             =   1920
        Width           =   255
     End
     Begin VB.CheckBox Auto
        Caption         =   "Check3"
        Height          =   255
        Left            =   120
        TabIndex        =   63
        Top             =   1560
        Width           =   255
     End
     Begin VB.CheckBox Mouse
        Caption         =   "Check2"
        Height          =   255
        Left            =   120
        TabIndex        =   61
        Top             =   1200
        Width           =   255
     End
     Begin VB.CheckBox Full
        Caption         =   "Check1"
        Height          =   255
        Left            =   120
        TabIndex        =   60
        Top             =   840
        Width           =   255
     End
     Begin VB.TextBox Ancho
        Height          =   285
        Left            =   1080
        TabIndex        =   58
        Text            =   "1024"
        Top             =   480
        Width           =   495
     End
     Begin VB.Label Label40
        Caption         =   "Pantalla TFT"
        Height          =   255
        Left            =   2760
        TabIndex        =   97
        Top             =   1560
        Width           =   1215
     End
     Begin VB.Label Label39
        Caption         =   "Color (en hexadecimal):"
        Height          =   255
        Left            =   2400
        TabIndex        =   93
        Top             =   2640
        Width           =   1695
     End
     Begin VB.Label Label38
        Caption         =   "Nombre:"
        Height          =   255
        Left            =   2400
        TabIndex        =   92
        Top             =   2040
        Width           =   735
     End
     Begin VB.Label Label35
        Caption         =   "Sonido 3D"
        Height          =   255
        Left            =   2760
        TabIndex        =   91
        Top             =   1200
        Width           =   1215
     End
     Begin VB.Label l98
        Caption         =   "Act/Des Sonido"
        Height          =   255
        Left            =   2760
        TabIndex        =   86
        Top             =   840
        Width           =   1215
     End
     Begin VB.Label Label36
        Caption         =   "Act/Des Musica"
        Height          =   255
        Left            =   2760
        TabIndex        =   84
        Top             =   480
        Width           =   1335
     End
     Begin VB.Label Label29
        Caption         =   $"zxlauncher.frx":08CA
        Height          =   615
        Left            =   120
        TabIndex        =   82
        Top             =   3480
        Width           =   5175
     End
     Begin VB.Label Label34
        Caption         =   "Alto"
        Height          =   255
        Left            =   1680
        TabIndex        =   74
        Top             =   240
        Width           =   495
     End
     Begin VB.Label Label33
        Caption         =   "Ancho"
        Height          =   255
        Left            =   1080
        TabIndex        =   73
        Top             =   240
        Width           =   495
     End
     Begin VB.Label Label31
        Caption         =   "Marcas de disparo"
        Height          =   255
        Left            =   480
        TabIndex        =   70
        Top             =   2640
        Width           =   1575
     End
     Begin VB.Label Label30
        Caption         =   "Act/Des Mensajes"
        Height          =   255
        Left            =   480
        TabIndex        =   68
        Top             =   2280
        Width           =   1695
     End
     Begin VB.Label Label28
        Caption         =   "Hud Alternativo"
        Height          =   255
        Left            =   480
        TabIndex        =   66
        Top             =   1920
        Width           =   1455
     End
     Begin VB.Label Label27
        Caption         =   "Autoguardado"
        Height          =   255
        Left            =   480
        TabIndex        =   64
        Top             =   1560
        Width           =   1455
     End
     Begin VB.Label Label26
        Caption         =   "Usar el ratón"
        Height          =   255
        Left            =   480
        TabIndex        =   62
        Top             =   1200
        Width           =   1335
     End
     Begin VB.Label Label25
        Caption         =   "Pantalla Completa"
        Height          =   255
        Left            =   480
        TabIndex        =   59
        Top             =   840
        Width           =   1335
     End
     Begin VB.Label Label24
        Caption         =   "Resolución"
        Height          =   255
        Left            =   120
        TabIndex        =   57
        Top             =   480
        Width           =   855
     End
  End
  Begin VB.TextBox Grabar
     Height          =   285
     Left            =   3960
     TabIndex        =   53
     Text            =   "demo.lmp"
     Top             =   4920
     Width           =   1455
  End
  Begin VB.CommandButton G
     Caption         =   "Grabar demo"
     Height          =   315
     Left            =   120
     TabIndex        =   51
     Top             =   4920
     Width           =   1215
  End
  Begin VB.TextBox Ver
     Height          =   285
     Left            =   3960
     TabIndex        =   49
     Text            =   "demo.lmp"
     Top             =   4560
     Width           =   1455
  End
  Begin VB.CommandButton V
     Caption         =   "Ver Demo"
     Height          =   255
     Left            =   120
     TabIndex        =   47
     Top             =   4560
     Width           =   1215
  End
  Begin VB.CommandButton Unirse
     Caption         =   "Unirse Multijugador"
     Height          =   375
     Left            =   3120
     TabIndex        =   44
     Top             =   1920
     Width           =   1815
  End
  Begin VB.CommandButton ZD
     Caption         =   "Lanzar ZDoom Normalmente"
     Height          =   375
     Left            =   120
     TabIndex        =   43
     Top             =   240
     Width           =   2175
  End
  Begin VB.CommandButton CMult
     Caption         =   "Crear Multijugador"
     Height          =   375
     Left            =   3120
     TabIndex        =   40
     Top             =   1440
     Width           =   1815
  End
  Begin VB.Frame Frame3
     Caption         =   "Opciones del juego 2"
     Height          =   2055
     Left            =   6000
     TabIndex        =   28
     Top             =   720
     Width           =   2175
     Begin VB.TextBox MAPA
        Height          =   285
        Left            =   720
        TabIndex        =   33
        Text            =   "01"
        Top             =   1080
        Width           =   1215
     End
     Begin VB.TextBox PWAD
        Height          =   285
        Left            =   720
        TabIndex        =   30
        Text            =   ".wad"
        Top             =   240
        Width           =   1215
     End
     Begin VB.Label Label4
        Caption         =   "E.J: 1 1 = E1M1"
        Height          =   255
        Left            =   120
        TabIndex        =   39
        Top             =   1680
        Width           =   1935
     End
     Begin VB.Label Label18
        Caption         =   "E.J: 01 = MAP01"
        Height          =   255
        Left            =   120
        TabIndex        =   34
        Top             =   1440
        Width           =   1935
     End
     Begin VB.Label Label17
        Caption         =   "WARP:"
        Height          =   255
        Left            =   120
        TabIndex        =   32
        Top             =   1080
        Width           =   615
     End
     Begin VB.Label Label16
        Caption         =   "El PWAD debe estar en el directorio de zdoom"
        Height          =   615
        Left            =   120
        TabIndex        =   31
        Top             =   600
        Width           =   1935
     End
     Begin VB.Label Label15
        Caption         =   "PWAD:"
        Height          =   255
        Left            =   120
        TabIndex        =   29
        Top             =   240
        Width           =   615
     End
  End
  Begin VB.CommandButton Deshacer
     Caption         =   "Deshacer cambios"
     Height          =   375
     Left            =   6240
     TabIndex        =   27
     Top             =   240
     Width           =   1815
  End
  Begin VB.CommandButton Salir
     Caption         =   "Salir"
     Height          =   375
     Left            =   3120
     TabIndex        =   26
     Top             =   2400
     Width           =   1815
  End
  Begin VB.CommandButton Comenzar
     Caption         =   "Comenzar Partida"
     Height          =   375
     Left            =   3120
     TabIndex        =   25
     Top             =   960
     Width           =   1815
  End
  Begin VB.Frame Frame2
     Caption         =   "Opciones de multijugador"
     Height          =   1095
     Left            =   120
     TabIndex        =   15
     Top             =   2880
     Width           =   8175
     Begin VB.TextBox IPPORT
        Height          =   315
        Left            =   6360
        TabIndex        =   38
        Text            =   "0.0.0.0"
        Top             =   720
        Width           =   1695
     End
     Begin VB.TextBox Nodes
        Height          =   285
        Left            =   7200
        TabIndex        =   36
        Text            =   "2"
        Top             =   240
        Width           =   855
     End
     Begin VB.TextBox TimeLimit
        Height          =   285
        Left            =   3360
        TabIndex        =   24
        Text            =   "0"
        Top             =   720
        Width           =   1095
     End
     Begin VB.TextBox FragLimit
        Height          =   285
        Left            =   3360
        TabIndex        =   22
        Text            =   "0"
        Top             =   240
        Width           =   1095
     End
     Begin VB.CheckBox DM
        Caption         =   "Check8"
        Height          =   195
        Left            =   120
        TabIndex        =   17
        Top             =   720
        Width           =   255
     End
     Begin VB.CheckBox Coop
        Caption         =   "Check7"
        Height          =   195
        Left            =   120
        TabIndex        =   16
        Top             =   240
        Width           =   255
     End
     Begin VB.Label Label20
        Caption         =   "Escriba IP para Unirse"
        Height          =   255
        Left            =   4680
        TabIndex        =   37
        Top             =   720
        Width           =   2535
     End
     Begin VB.Label Label19
        Caption         =   "Maximos jugadores para comenzar:"
        Height          =   255
        Left            =   4680
        TabIndex        =   35
        Top             =   240
        Width           =   2535
     End
     Begin VB.Label Label14
        Caption         =   "Limite de tiempo (en mins):"
        Height          =   255
        Left            =   1440
        TabIndex        =   23
        Top             =   720
        Width           =   1935
     End
     Begin VB.Label Label13
        Caption         =   "Limite de frags:"
        Height          =   255
        Left            =   2160
        TabIndex        =   21
        Top             =   240
        Width           =   1455
     End
     Begin VB.Label l6
        Caption         =   "Deathmatch"
        Height          =   255
        Left            =   360
        TabIndex        =   20
        Top             =   720
        Width           =   1695
     End
     Begin VB.Label Label10
        Caption         =   "Cooperativo"
        Height          =   255
        Left            =   360
        TabIndex        =   19
        Top             =   240
        Width           =   1815
     End
  End
  Begin VB.CheckBox Mult
     Caption         =   "Check6"
     Height          =   255
     Left            =   120
     TabIndex        =   13
     Top             =   4200
     Width           =   255
  End
  Begin VB.Frame Frame1
     Caption         =   "Opciones del juego"
     Height          =   1935
     Left            =   120
     TabIndex        =   2
     Top             =   720
     Width           =   2295
     Begin VB.TextBox skill
        Height          =   285
        Left            =   960
        TabIndex        =   46
        Text            =   "1"
        Top             =   1560
        Width           =   1215
     End
     Begin VB.CheckBox Plutonia
        Caption         =   "Check5"
        Height          =   195
        Left            =   120
        TabIndex        =   7
        Top             =   1200
        Width           =   255
     End
     Begin VB.CheckBox TNT
        Caption         =   "Check4"
        Height          =   255
        Left            =   120
        TabIndex        =   6
        Top             =   960
        Width           =   255
     End
     Begin VB.CheckBox Ult
        Caption         =   "Check3"
        Height          =   255
        Left            =   120
        TabIndex        =   5
        Top             =   720
        Width           =   255
     End
     Begin VB.CheckBox Doom1
        Caption         =   "Check2"
        Height          =   255
        Left            =   120
        TabIndex        =   4
        Top             =   480
        Width           =   255
     End
     Begin VB.CheckBox Doom2
        Caption         =   "Check1"
        Height          =   255
        Left            =   120
        TabIndex        =   3
        Top             =   240
        Width           =   255
     End
     Begin VB.Label Label7
        Caption         =   "Dificultad:"
        Height          =   255
        Left            =   120
        TabIndex        =   45
        Top             =   1560
        Width           =   735
     End
     Begin VB.Label l2
        Caption         =   "Jugar Doom Ultimate"
        Height          =   255
        Left            =   480
        TabIndex        =   12
        Top             =   720
        Width           =   1575
     End
     Begin VB.Label l4
        Caption         =   "Jugar Doom Plutonia"
        Height          =   255
        Left            =   480
        TabIndex        =   11
        Top             =   1200
        Width           =   1575
     End
     Begin VB.Label l3
        Caption         =   "Jugar Doom TNT"
        Height          =   255
        Left            =   480
        TabIndex        =   10
        Top             =   960
        Width           =   1335
     End
     Begin VB.Label l
        Caption         =   "Jugar Doom I"
        Height          =   255
        Left            =   480
        TabIndex        =   9
        Top             =   480
        Width           =   1215
     End
     Begin VB.Label Label3
        Caption         =   "Jugar Doom II"
        Height          =   255
        Left            =   480
        TabIndex        =   8
        Top             =   240
        Width           =   1215
     End
  End
  Begin VB.Line Line2
     X1              =   2400
     X2              =   5880
     Y1              =   360
     Y2              =   360
  End
  Begin VB.Line Line1
     X1              =   10440
     X2              =   12000
     Y1              =   480
     Y2              =   480
  End
  Begin VB.Label Label32
     Caption         =   "Comandos de linea extra:"
     Height          =   855
     Left            =   8520
     TabIndex        =   71
     Top             =   5040
     Width           =   2295
  End
  Begin VB.Label Label23
     Caption         =   "Opciones de Z-Doom"
     Height          =   375
     Left            =   10440
     TabIndex        =   56
     Top             =   240
     Width           =   1935
  End
  Begin VB.Label Label22
     Caption         =   "Recuerde configurar las opciones.."
     Height          =   255
     Left            =   5640
     TabIndex        =   54
     Top             =   4920
     Width           =   2655
  End
  Begin VB.Label Label21
     Caption         =   "Escriba el nombre de la demo:"
     Height          =   255
     Left            =   1560
     TabIndex        =   52
     Top             =   4920
     Width           =   2175
  End
  Begin VB.Label Label12
     Caption         =   "Debe estar en la carpeta de ZDoom"
     Height          =   255
     Left            =   5640
     TabIndex        =   50
     Top             =   4560
     Width           =   2655
  End
  Begin VB.Label Label11
     Caption         =   "Escriba el nombre de la demo: "
     Height          =   255
     Left            =   1560
     TabIndex        =   48
     Top             =   4560
     Width           =   2175
  End
  Begin VB.Label Label6
     Caption         =   "ste: Crear partida multijugador"
     Height          =   855
     Left            =   5040
     TabIndex        =   42
     Top             =   1800
     Width           =   855
  End
  Begin VB.Label Label5
     Caption         =   "- Solo si selecciona-"
     Height          =   495
     Left            =   5040
     TabIndex        =   41
     Top             =   1440
     Width           =   855
  End
  Begin VB.Label Label9
     Caption         =   "Según la configuración elejido en multijugador, se ajustaran los dmflags"
     Height          =   255
     Left            =   2520
     TabIndex        =   18
     Top             =   4200
     Width           =   5775
  End
  Begin VB.Label Label8
     Caption         =   "Crear partida multijugador"
     Height          =   255
     Left            =   480
     TabIndex        =   14
     Top             =   4200
     Width           =   1935
  End
  Begin VB.Label Label2
     Caption         =   "POR: _ 666DeMoN_"
     Height          =   255
     Left            =   3240
     TabIndex        =   1
     Top             =   480
     Width           =   1695
  End
  Begin VB.Label Label1
     Caption         =   "          Z D O O M     L A U N C H E R   V 0 . 3 - FINAL"
     Height          =   255
     Left            =   2040
     TabIndex        =   0
     Top             =   120
     Width           =   3975
  End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Aplicar_Click()
    If Full.Value = 1 Then
    Completa.Text = " +set fullscreen 1 "
    Else
    Completa.Text = " +set fullscreen 0 "
    End If
    If Decals.Value = 1 Then
    Marcas.Text = " +set cl_maxdecals 1024 "
    Else
    Marcas.Text = " +set cl_maxdecals 0 "
    End If
    If Auto.Value = 1 Then
    Save.Text = " +set disableautosave 0 "
    Else
    Save.Text = " +set disableautosave 1 "
    End If
    If Msg.Value = 1 Then
    MsgS.Text = " +set show_messages 1 "
    Else
    MsgS.Text = " +set show_messgaes 0 "
    End If
    If Mouse.Value = 1 Then
    MEnable.Text = " +set use_mouse 1 "
    Else
    MEnable.Text = " +set use_mouse 0 "
    End If
    If Hud.Value = 1 Then
    AltHud.Text = " +set hud_althud 1 "
    Else
    AltHud.Text = " +set hud_althud 0 "
    End If
    If Music.Value = 1 Then
    Musica.Text = " +set snd_musicvolume 100 +set snd_movievolume 100 +set snd_midivolume 100 "
    Else
    Musica.Text = " +set snd_musicvolume 0 +set snd_movievolume 0 +set snd_midivolume 0 "
    End If
    If Sfx.Value = 1 Then
    Sound.Text = " +set snd_sfxvolume 100 "
    Else
    Sound.Text = " +set snd_sfxvolume 0 "
    End If
    If Sound3d.Value = 1 Then
    Snd3d.Text = " +set snd_3d 1 "
    Else
    Snd3d.Text = " +set snd_3d 0 "
    End If
    If TFT.Value = 1 Then
    PTFT.Text = " +set vid_tft 1 "
    Else
    PTFT.Text = " +set vid_tft 0 "
    End If
   
End Sub

Private Sub CMult_Click()
    If Doom2.Value = 1 And Coop.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 ", vbMaximizedFocus
    ElseIf Doom2.Value = 1 And DM.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -deathmatch -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set fraglimit " + FragLimit.Text + " +set sv_nomonsters 1 +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 " + " +set sv_noexit 1 ", vbMaximizedFocus
    ElseIf Doom1.Value = 1 And Coop.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 ", vbMaximizedFocus
    ElseIf Doom1.Value = 1 And DM.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -deathmatch -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set fraglimit " + FragLimit.Text + " +set sv_nomonsters 1 +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 " + " +set sv_noexit 1 ", vbMaximizedFocus
    ElseIf TNT.Value = 1 And Coop.Value = 1 Then
    Shell "zdoom.exe -iwad TNT.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 ", vbMaximizedFocus
    ElseIf TNT.Value = 1 And DM.Value = 1 Then
    Shell "zdoom.exe -iwad TNT.wad -deathmatch -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set fraglimit " + FragLimit.Text + " +set sv_nomonsters 1 +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 " + " +set sv_noexit 1 ", vbMaximizedFocus
    ElseIf Plutonia.Value = 1 And Coop.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 ", vbMaximizedFocus
    ElseIf Plutonia.Value = 1 And DM.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -deathmatch -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set fraglimit " + FragLimit.Text + " +set sv_nomonsters 1 +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 " + " +set sv_noexit 1 ", vbMaximizedFocus
    ElseIf Ult.Value = 1 And Coop.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 ", vbMaximizedFocus
    ElseIf Ult.Value = 1 And DM.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -deathmatch -warp " + MAPA.Text + " -file " + PWAD.Text + " -host " + Nodes.Text + " +set timelimit " + TimeLimit + " +set fraglimit " + FragLimit.Text + " +set sv_nomonsters 1 +set sv_weaponsstay 1 +set sv_itemrespawn 1 -skill " + skill.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text + " +set sv_cheats 0 " + " +set sv_noexit 1 ", vbMaximizedFocus
    End If
End Sub

Private Sub Comenzar_Click()
    If Doom2.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Doom1.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Ult.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf TNT.Value = 1 Then
    Shell "zdoom.exe -iwad tnt.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Plutonia.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    End If
End Sub

Private Sub Deshacer_Click()
    Doom2.Value = 0
    Doom1.Value = 0
    TNT.Value = 0
    Ult.Value = 0
    Plutonia.Value = 0
    Mult.Value = 0
    Coop.Value = 0
    DM.Value = 0
    FragLimit.Text = "0"
    TimeLimit.Text = "0"
    IPPORT.Text = "0.0.0.0"
    PWAD.Text = ".wad"
    MAPA.Text = "01"
    Nodes.Text = "2"
    Ancho.Text = "1024"
    Alto.Text = "786"
    Full.Value = 0
    Mouse.Value = 0
    Auto.Value = 0
    Hud.Value = 0
    Msg.Value = 0
    Decals.Value = 0
    Music.Value = 0
    Sfx.Value = 0
    Sound3d.Value = 0
    TFT.Value = 0
    Nombre.Text = "Player"
    Colores.Text = "00 00 00"
    skill.Text = "1"
    Ver.Text = "demo.lmp"
    Grabar.Text = "demo.lmp"
    Extra.Text = ""
   
End Sub

Private Sub G_Click()
    If Doom2.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -record " + Grabar.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Doom1.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -record " + Grabar.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Ult.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -record " + Grabar.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf TNT.Value = 1 Then
    Shell "zdoom.exe -iwad tnt.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -record " + Grabar.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Plutonia.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -record " + Grabar.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    End If
End Sub

Private Sub Salir_Click()
    Dim Respuesta As Integer
    Respuesta = MsgBox("¿Desea salir de la aplicación?", vbInformation + vbYesNo, "Salir")
    If Respuesta = vbYes Then
    Unload Me
    End If
End Sub

Private Sub Unirse_Click()
    If Doom2.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -file " + PWAD.Text + " -join " + IPPORT.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Doom1.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -file " + PWAD.Text + " -join " + IPPORT.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Ult.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -file " + PWAD.Text + " -join " + IPPORT.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf TNT.Value = 1 Then
    Shell "zdoom.exe -iwad tnt.wad -file " + PWAD.Text + " -join " + IPPORT.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Plutonia.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -file " + PWAD.Text + " -join " + IPPORT.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    End If
End Sub

Private Sub V_Click()
    If Doom2.Value = 1 Then
    Shell "zdoom.exe -iwad doom2.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -playdemo " + Ver.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Doom1.Value = 1 Then
    Shell "zdoom.exe -iwad doom1.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -playdemo " + Ver.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Ult.Value = 1 Then
    Shell "zdoom.exe -iwad doom.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -playdemo " + Ver.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf TNT.Value = 1 Then
    Shell "zdoom.exe -iwad tnt.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -playdemo " + Ver.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    ElseIf Plutonia.Value = 1 Then
    Shell "zdoom.exe -iwad plutonia.wad -warp " + MAPA.Text + " -file " + PWAD.Text + " -skill " + skill.Text + " -playdemo " + Ver.Text + Completa.Text + Save.Text + Marcas.Text + AltHud.Text + MsgS.Text + MEnable.Text + " +set vid_defwidth " + Ancho.Text + " +set vid_defheight " + Alto.Text + Musica.Text + Sound.Text + Snd3d.Text + PTFT.Text + " +set name " + Nombre.Text + " +set color " + Colores.Text + " " + Extra.Text, vbMaximizedFocus
    End If
End Sub

Private Sub ZD_Click()
    Shell "zdoom.exe"
End Sub
[close]
It's time to kick ass and chew bubblegum, and i'm all out of gum

Hell is going to the Earth...  | 32 | 100 % | 43 | :nomefio: | Bullets 400 / 400
Imprimir
Ir Arriba Páginas 1 2
Acciones del Usuario