Dragons And Tears - Remade!

Also, I did my own detailed changelog:
V1.1
--> Added Polish version [by Fan of Saints],
---> Added Spanish version [by Eye ZiS],
----> Fixed some mistakes in English version [by Fan of Saints],
-----> Did some esthetical changes [by Fan of Saints],
------> Added the new "YOU WIN" part (but only to English version) [by Eye ZiS].

V1.2
--> Removed Polish and Spanish OOPS menu because it's unnecessary [by Fan of Saints],
---> Now if you win/lose you can change language [by Fan of Saints],
----> When you win in Polish/Spanish version now terminal plays correct 'DNT_Winner.wav' sound (earier it played 'DNT_Die.wav' sound) [by Fan of Saints],
-----> Added the new 'YOU WIN' part also to Polish and Spanish versions [by Fan of Saints],
------> Fixed Spanish version (because earier it was mixed with English version) [by Fan of Saints].
-------> Did some esthetical changes [by Fan of Saints].

V1.2.1
--> Did another esthetical changes [by Fan of Saints],

V1.2.2
--> Fixed one more mistake in Spanish version [by Fan of Saints],
---> Added some REM lines to app code [by Eye ZiS],
----> Packed everything into 7-Zip archive [by Eye ZiS].

V1.2.3
--> Now when you don't extract archive, then after OOPS menu application doesn't start Spanish version [by Fan of Saints],
---> Now if you type wrong key at language menu, then application doesn't automaticaly start English version [by Fan of Saints].

V1.3
--> Now you can play again/exit/change language whenever you want [by Fan of Saints],
---> Fixed some punctuation mistakes in Spanish version [by Fan of Saints],
----> Changed some REM lines [by Fan of Saints].

V1.3.1
--> Added documentation [by Fan of Saints],
---> Packed everything into a 7-Zip (again) [by Eye ZiS].

V1.3.2
--> Fixed an mistake in Polish version [by Fan of Saints].

V2.0
--> Added launcher [by Eye ZiS].
---> Moved some files [by Eye ZiS].

V2.1 - Soon!
--> I will add following settings:
--> enable/disable sounds,​
---> set default language (actually included in Test Version),​
----> toggle between normal and special 'YOU WIN!' part,​
-----> enable/disable Deckers.die music.​
 
Don't worry about that, its updated now.I have enough free time to update the OP.

EDIT:
I see you took my -->Arrows<-- and put them to good use.
 
Here's some test feature: now you can set default language by 'lang.ini' file (regardless of the default language you still can change language in-game)! :D Actually you can do it only by manually editing ini file.
P.S. I didn't include documentation because it's test version.
EDIT: I'm working on settings menu! See my detailed changelog. ;)
 

Attachments

Here's a (test) version with a launcher
And the source code for it:
PHP: 
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
 
AutoIt Version: 3.3.8.1
Author:        Eye ZiS
 
Script Function:
    Language selection for DNT.
 
#ce ----------------------------------------------------------------------------
 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
Local $lang = "UNSPECIFIED"
Local $closeonlaunch = False
Local $showdaig = True
 
#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Forms\DNT launcher.kxf
$Form1 = GUICreate("DNT Launcher", 430, 168)
$Group1 = GUICtrlCreateGroup("Select Your Language", 24, 8, 217, 129)
$Radio1 = GUICtrlCreateRadio("English", 50, 32, 97, 25)
$Radio2 = GUICtrlCreateRadio("Polski", 50, 52, 97, 25)
$Radio3 = GUICtrlCreateRadio("Espanol", 50, 72, 97, 25)
$Radio4 = GUICtrlCreateRadio("Unspecified", 50, 92, 97, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$but_launch = GUICtrlCreateButton("Launch DNT", 280, 62, 97, 25)
$but_save = GUICtrlCreateButton("Save Settings", 280, 30, 97, 25)
$but_exit = GUICtrlCreateButton("Exit", 280, 94, 97, 25)
$checkbox1 = GUICtrlCreateCheckbox("Close On Launch", 280, 125)
GUICtrlSetTip ($checkbox1, "When checked the ""launcher"" will close when DNT is launched")
$Label1 = GUICtrlCreateLabel("If ""Unspecified"" is selected you will be promped to set the language in-game", 32, 150, 362, 17)
$Label2 = GUICtrlCreateLabel("©2013 Eye ZiS", 296, 8, 77, 17)
;~ GUICtrlSetState($radio4, $GUI_CHECKED)
GUICtrlSetState($checkbox1, $GUI_UNCHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
;~ set Defaults
Local $fileread = FileReadLine ("config.bin", 2)
IF $fileread = "ENG" Then GUICtrlSetState($radio1, $GUI_CHECKED)
IF $fileread = "POL" Then GUICtrlSetState($radio2, $GUI_CHECKED)
IF $fileread = "SPA" Then GUICtrlSetState($radio3, $GUI_CHECKED)
IF $fileread = "UNSPECIFIED" Then GUICtrlSetState($radio4, $GUI_CHECKED)
 
While 1
    $nMsg = GUIGetMsg()
    IF $nMsg = $GUI_EVENT_CLOSE Then exit
    IF $nMsg = $but_exit Then Exit
    IF $nMsg = $but_save Then savesett()
    IF $nMsg = $but_launch Then launchgame()
 
;~    Radio buttons
    IF $nMsg = $Radio1 Then set_eng()
    IF $nMsg = $Radio2 Then set_pol()
    IF $nMsg = $Radio3 Then set_spa()
    IF $nMsg = $Radio4 Then set_xxx()
 
;~ Check boxes
    IF $nMsg = $checkbox1 Then set_close()
WEnd
 
Func set_close()
If GUICtrlRead($checkbox1) = $GUI_CHECKED Then $closeonlaunch = True
If GUICtrlRead($checkbox1) = $GUI_UNCHECKED Then $closeonlaunch = False
EndFunc
 
Func set_eng()
    $lang = "ENG"
EndFunc
 
Func set_pol()
    $lang = "POL"
EndFunc
 
Func set_spa()
    $lang = "SPA"
EndFunc
 
Func set_xxx()
    $lang = "UNSPECIFIED"
EndFunc
 
Func launchgame()
    $showdaig = False
    savesett()
    $run1 = Run ("bin\Dragons And Tears - Part 1 of The Spiraling Darkness Trilogy.bat")
    If $run1 = 0 Then oops()
    WinWaitActive ("[CLASS:ConsoleWindowClass]")
    If $closeonlaunch = True Then terminate()
    If $closeonlaunch = False Then waitforclose()
EndFunc
 
Func savesett()
;~ check if the file exists
    $datfile = FileExists ( "config.bin" )
    If $datfile = 1 Then FileDelete("config.bin")
 
    Local $file2 = FileOpen("config.bin", 2)
 
;~ Check if file opened for writing OK
If $file2 = -1 Then
    MsgBox(16, "Error", "Unable to save settings. Check that you have proper permission to Read/Write to config.bin.")
    Exit
EndIf
 
FileWrite($file2, "--CURRENT DEFAULT LANGUAGE--" & @CRLF)
FileWrite($file2, $lang & @CRLF)
FileWrite($file2, "" & @CRLF)
FileWrite($file2, "--AVAILABLE LANGUAGES (IF YOU WANT CHANGE DEFAULT LANGUAGE, REPLACE CURRENT BY ONE OF LINES BELOW; 'UNSPECIFIED' VARIABLE LOADS LANGUAGE MENU AS DEFAULT)--" & @CRLF)
FileWrite($file2, "UNSPECIFIED" & @CRLF)
FileWrite($file2, "ENG" & @CRLF)
FileWrite($file2, "POL" & @CRLF)
FileWrite($file2, "SPA")
 
FileClose($file2)
 
If $showdaig = True Then MsgBox(64, "Info", "Settings saved succesfully to config.bin")
EndFunc
 
Func waitforclose()
    WinSetState("DNT Launcher", "", @SW_MINIMIZE )
    WinWaitClose("[CLASS:ConsoleWindowClass]")
    $showdaig = True
    WinSetState("DNT Launcher", "", @SW_RESTORE )
EndFunc
 
Func terminate()
    Exit
EndFunc
 
Func oops()
    MsgBox(16, "Error", "File not found:""bin\Dragons And Tears - Part 1 of The Spiraling Darkness Trilogy.bat"". The program wil now exit")
    Exit
EndFunc
Created with AutoIt3 which you can get here:
http://www.autoitscript.com/site/autoit/
(Thanks to Inori for telling me about AutoIt)
EDIT:
Version 2 uploaded which should provide better functionality.
 
You must log in or register to reply here.
Back
Top