AHK CabTimer 3.1

Menu, Tray, Add
Menu, Tray, Add, Settings, Settings
Menu, Tray, Add, Info, Info
Menu, Tray, Add, Create Recipt, CabRecipt
TrayTip, Cab Timer, Cab Timer Script running`, click the 'Info' button in the tray menu for more information.
IfNotExist, CabTimer.ini
{
Goto, Settings
}
Return

Settings:
IniRead, BasePrice, CabTimer.ini, General, BasePrice, 0
IniRead, PricePerSecond, CabTimer.ini, General, PricePerSecond, 0
IniRead, Saying, CabTimer.ini, General, Saying, Thank you for using our cab company, your price comes to $%TotalCash%.
IniRead, F1N, CabTimer.ini, Fines, F1N, Vomiting
IniRead, F1A, CabTimer.ini, Fines, F1A, 0
IniRead, F2N, CabTimer.ini, Fines, F2N, Bad Language
IniRead, F2A, CabTimer.ini, Fines, F2A, 0
IniRead, F3N, CabTimer.ini, Fines, F3N, Rudeness
IniRead, F3A, CabTimer.ini, Fines, F3A, 0
IniRead, F4N, CabTimer.ini, Fines, F4N, Being drunk
IniRead, F4A, CabTimer.ini, Fines, F4A, 0
IniRead, F5N, CabTimer.ini, Fines, F5N, Urinating in the car
IniRead, F5A, CabTimer.ini, Fines, F5A, 0
IniRead, D1N, CabTimer.ini, Discounts, D1N, VIP
IniRead, D1A, CabTimer.ini, Discounts, D1A, 0
IniRead, D2N, CabTimer.ini, Discounts, D2N, Second time using the service
IniRead, D2A, CabTimer.ini, Discounts, D2A, 0
IniRead, D3N, CabTimer.ini, Discounts, D3N, First customer of the day
IniRead, D3A, CabTimer.ini, Discounts, D3A, 0
IniRead, D4N, CabTimer.ini, Discounts, D4N, Special Price of the Day
IniRead, D4A, CabTimer.ini, Discounts, D4A, 0
IniRead, D5N, CabTimer.ini, Discounts, D5N, Family & Friends discount
IniRead, D5A, CabTimer.ini, Discounts, D5A, 0

Gui, Destroy
Gui, Font, s10, Verdana
Gui, Add, Text, w250, Welcome to the Cab Timer! Please insert your settings below!
Gui, Add, Button, w250 gSubmitSettings, Submit
Gui, Add, Tab2, w250 h600, General|Fines|Discounts
Gui, Tab, General
Gui, Add, Text, w200, Base Price:
Gui, Add, Edit, w200 vBasePrice, %BasePrice%
Gui, Add, Text, w200, Price Per Second:
Gui, Add, Edit, w200 vPricePerSecond, %PricePerSecond%
Gui, Add, Text, w200,
Gui, Add, Text, w200, What to say when you tell the customer the price:
Gui, Add, Edit, w200 vSaying, %Saying%
Gui, Tab, Fines
Gui, Add, Text, w200, Fine 1 Name:
Gui, Add, Edit, w200 vF1N, %F1N%
Gui, Add, Text, w200, Fine 1 Amount:
Gui, Add, Edit, w200 vF1A, %F1A%
Gui, Add, Text, w200, Fine 2 Name:
Gui, Add, Edit, w200 vF2N, %F2N%
Gui, Add, Text, w200, Fine 2 Amount:
Gui, Add, Edit, w200 vF2A, %F2A%
Gui, Add, Text, w200, Fine 3 Name:
Gui, Add, Edit, w200 vF3N, %F3N%
Gui, Add, Text, w200, Fine 3 Amount:
Gui, Add, Edit, w200 vF3A, %F3A%
Gui, Add, Text, w200, Fine 4 Name
Gui, Add, Edit, w200 vF4N, %F4N%
Gui, Add, Text, w200, Fine 4 Amount:
Gui, Add, Edit, w200 vF4a, %F4A%
Gui, Add, Text, w200, Fine 5 Name:
Gui, Add, Edit, w200 vF5N, %F5N%
Gui, Add, Text, w200, Fine 5 Amount:
Gui, Add, Edit, w200 vF5A, %F5A%
Gui, Tab, Discounts
Gui, Add, Text, w200, Discount 1 Name:
Gui, Add, Edit, w200 vD1N, %D1N%
Gui, Add, Text, w200, Discount 1 Amount:
Gui, Add, Edit, w200 vD1A, %D1A%
Gui, Add, Text, w200, Discount 2 Name:
Gui, Add, Edit, w200 vD2N, %D2N%
Gui, Add, Text, w200, Discount 2 Amount:
Gui, Add, Edit, w200 vD2A, %D2A%
Gui, Add, Text, w200, Discount 3 Name:
Gui, Add, Edit, w200 vD3N, %D3N%
Gui, Add, Text, w200, Discount 3 Amount:
Gui, Add, Edit, w200 vD3A, %D3A%
Gui, Add, Text, w200, Discount 4 Name:
Gui, Add, Edit, w200 vD4N, %D4N%
Gui, Add, Text, w200, Discount 4 Amount:
Gui, Add, Edit, w200 vD4a, %D4A%
Gui, Add, Text, w200, Discount 5 Name:
Gui, Add, Edit, w200 vD5N, %D5N%
Gui, Add, Text, w200, Discount 5 Amount:
Gui, Add, Edit, w200 vD5A, %D5A%
Gui, Show
Return

Info:
Gui, Destroy
Gui, Font, s10, Verdana
Gui, Add, Text, w600,
(
Welcome to CabTimer 3!

Here, you can find some info regarding the program. If I've missed anything, please feel free to email me at doug4347@gmail.com or PM me on the MTG forums (New Era)
)
Gui, Add, Tab2, w620 h500, General|Fines & Discounts|Hotkeys
Gui, Tab, General
Gui, Add, Text, w600,
(
When entering something into the 'What to say when you tell the customer the price' box, you can use any text you want. BUT, remember this:
Any special characters such as !,@,#,$,`%,^,&,*, must be written as {!}, {@}, etc. or you can add '`' just before it. this doesn't apply for punctuation marks, just items such as !, ^, #, +, etc. This is to prevent the script from pressing {ALT} instead of {!}, etc.

You can also add any of the following (replace '#' with 1-5):
Prices for Discounts: `%D#A`%
Names of Discounts: `%D#N`%
Prices of Fines: `%F#A`%
Names of Fines: `%F#N`%
Base Price: `%BasePrice`%
Price Per Second: `%PricePerSecond`%
)

Gui, Tab, Fines & Discounts
Gui, Add, Text, w600,
(
When using the discounts, please remember that you are REMOVING the amount stated from the full price. i.e. If you have a $100 discount and the total should be $300, then the total price will be $200.
When using the fines, please remember that you are ADDING the amount stated from the full price. i.e. If you have a $100 fine and the total should be $300, then the total price will be $400.

Use discounts for removing amounts from the total price and use fines to add amounts to the total price.

)

Gui, Tab, Fines & Discounts
Gui, Add, Text, w600,
(
Hotkey list:
[ALT] + ...
[1] = Timer on
[2] = Timer off
[3] = Pause Script
[4] = Type out your saying.
[9] = Create a new AHK script with the latest fare's info in it. Can be found in the same folder as the script.

[ALT] + [NUMPAD...]
[0] = Add Fine 1
[1] = Add Fine 2
[2] = Add Fine 3
[3] = Add Fine 4
[4] = Add Fine 5
[5] = Add Discount 1
[6] = Add Discount 2
[7] = Add Discount 3
[8] = Add Discount 4
[9] = Add Discount 5

[CTRL] + [NUMPAD...]
[0] = Remove Fine 1
[1] = Remove Fine 2
[2] = Remove Fine 3
[3] = Remove Fine 4
[4] = Remove Fine 5
[5] = Remove Discount 1
[6] = Remove Discount 2
[7] = Remove Discount 3
[8] = Remove Discount 4
[9] = Remove Discount 5

Remember that a single beep means 'On' and a double beep means 'Off'.
The Pause hotkey and the hotkey to type out your saying do not have any beeps.
)



Gui, Show
Return

SubmitSettings:
Gui, Submit, NoHide
IniWrite, %BasePrice%, CabTimer.ini, General, BasePrice
IniWrite, %PricePerSecond%, CabTimer.ini, General, PricePerSecond
IniWrite, %Saying%, CabTimer.ini, General, Saying
IniWrite, %F1N%, CabTimer.ini, Fines, F1N
IniWrite, %F1A%, CabTimer.ini, Fines, F1A
IniWrite, %F2N%, CabTimer.ini, Fines, F2N
IniWrite, %F2A%, CabTimer.ini, Fines, F2A
IniWrite, %F3N%, CabTimer.ini, Fines, F3N
IniWrite, %F3A%, CabTimer.ini, Fines, F3A
IniWrite, %F4N%, CabTimer.ini, Fines, F4N
IniWrite, %F4A%, CabTimer.ini, Fines, F4A
IniWrite, %F5N%, CabTimer.ini, Fines, F5N
IniWrite, %F5A%, CabTimer.ini, Fines, F5A
IniWrite, %D1N%, CabTimer.ini, Discounts, D1N
IniWrite, %D1A%, CabTimer.ini, Discounts, D1A
IniWrite, %D2N%, CabTimer.ini, Discounts, D2N
IniWrite, %D2A%, CabTimer.ini, Discounts, D2A
IniWrite, %D3N%, CabTimer.ini, Discounts, D3N
IniWrite, %D3A%, CabTimer.ini, Discounts, D3A
IniWrite, %D4N%, CabTimer.ini, Discounts, D4N
IniWrite, %D4A%, CabTimer.ini, Discounts, D4A
IniWrite, %D5N%, CabTimer.ini, Discounts, D5N
IniWrite, %D5A%, CabTimer.ini, Discounts, D5A
MsgBox, 64, Cab Timer, Your settings have been saved!
Return

GuiClose:
Gui, Destroy
Return
!9:: Goto, CabRecipt
!1::
SoundBeep
Seconds:=0
F1Active:=0
F2Active:=0
F3Active:=0
F4Active:=0
F5Active:=0
D1Active:=0
D2Active:=0
D3Active:=0
D4Active:=0
D5Active:=0
SetTimer, CabTime, 0
SetTimer, CabTime, On
Return
!2::
SetTimer, CabTime, Off
SoundBeep
Sleep, 100
SoundBeep
Return
!3:: Pause
!4::
IniRead, Saying, CabTimer.ini, General, Saying, Thank you for using our cab company, your price comes to $%TotalCash%.
SendInput, t%Saying%
Return

!Numpad0::
F1Active:=1
SoundBeep
Return
!Numpad1::
F2Active:=1
SoundBeep
Return
!Numpad2::
F3Active:=1
SoundBeep
Return
!Numpad3::
F4Active:=1
SoundBeep
Return
!Numpad4::
F5Active:=1
SoundBeep
Return
!Numpad5::
D1Active:=1
SoundBeep
Return
!Numpad6::
D2Active:=1
SoundBeep
Return
!Numpad7::
D3Active:=1
SoundBeep
Return
!Numpad8::
D4Active:=1
SoundBeep
Return
!Numpad9::
D5Active:=1
SoundBeep
Return

^Numpad0::
F1Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad1::
F2Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad2::
F3Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad3::
F4Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad4::
F5Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad5::
D1Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad6::
D2Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad7::
D3Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad8::
D4Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return
^Numpad9::
D5Active:=0
SoundBeep
Sleep, 100
SoundBeep
Return

CabTime:
IniRead, BasePrice, CabTimer.ini, General, BasePrice, 0
IniRead, PricePerSecond, CabTimer.ini, General, PricePerSecond, 0
IniRead, F1N, CabTimer.ini, Fines, F1N, Vomiting
IniRead, F1A, CabTimer.ini, Fines, F1A, 0
IniRead, F2N, CabTimer.ini, Fines, F2N, Bad Language
IniRead, F2A, CabTimer.ini, Fines, F2A, 0
IniRead, F3N, CabTimer.ini, Fines, F3N, Rudeness
IniRead, F3A, CabTimer.ini, Fines, F3A, 0
IniRead, F4N, CabTimer.ini, Fines, F4N, Being drunk
IniRead, F4A, CabTimer.ini, Fines, F4A, 0
IniRead, F5N, CabTimer.ini, Fines, F5N, Urinating in the car
IniRead, F5A, CabTimer.ini, Fines, F5A, 0
IniRead, D1N, CabTimer.ini, Discounts, D1N, VIP
IniRead, D1A, CabTimer.ini, Discounts, D1A, 0
IniRead, D2N, CabTimer.ini, Discounts, D2N, Second time using the service
IniRead, D2A, CabTimer.ini, Discounts, D2A, 0
IniRead, D3N, CabTimer.ini, Discounts, D3N, First customer of the day
IniRead, D3A, CabTimer.ini, Discounts, D3A, 0
IniRead, D4N, CabTimer.ini, Discounts, D4N, Special Price of the Day
IniRead, D4A, CabTimer.ini, Discounts, D4A, 0
IniRead, D5N, CabTimer.ini, Discounts, D5N, Family & Friends discount
IniRead, D5A, CabTimer.ini, Discounts, D5A, 0
Seconds+=1
TotalCash:=(Seconds * PricePerSecond) + BasePrice
If F1Active = 1
{
TotalCash+=F1A
}
If F2Active = 1
{
TotalCash+=F2A
}
If F3Active = 1
{
TotalCash+=F3A
}
If F4Active = 1
{
TotalCash+=F4A
}
If F5Active = 1
{
TotalCash+=F5A
}

If D1Active = 1
{
TotalCash-=D1A
}
If D2Active = 1
{
TotalCash-=D2A
}
If D3Active = 1
{
TotalCash-=D3A
}
If D4Active = 1
{
TotalCash-=D4A
}
If D5Active = 1
{
TotalCash-=D5A
}
SplashImage,,,
(
Time: %Seconds% Seconds
Price: $%TotalCash%
Fines:
%F1N%: %F1Active%
%F2N%: %F2Active%
%F3N%: %F3Active%
%F4N%: %F4Active%
%F5N%: %F5Active%
Discounts:
%D1N%: %D1Active%
%D2N%: %D2Active%
%D3N%: %D3Active%
%D4N%: %D4Active%
%D5N%: %D5Active%
)
Sleep, 1000
Return

CabRecipt:
If D1Active = 1
{
D1Act = %D1A%
}
If D2Active = 1
{
D2Act = %D2A%
}
If D3Active = 1
{
D3Act = %D3A%
}
If D4Active = 1
{
D4Act = %D4A%
}
If D5Active = 1
{
D5Act = %D5A%
}
If F1Active = 1
{
F1Act = %F1A%
}
If F2Active = 1
{
F2Act = %F2A%
}
If F3Active = 1
{
F3Act = %F3A%
}
If F4Active = 1
{
F4Act = %F4A%
}
If F5Active = 1
{
F5Act = %F5A%
}
If D1Active = 0
{
D1Act = 0
}
If D2Active = 0
{
D2Act = 0
}
If D3Active = 0
{
D3Act = 0
}
If D4Active = 0
{
D4Act = 0
}
If D5Active = 0
{
D5Act = 0
}
If F1Active = 0
{
F1Act = 0
}
If F2Active = 0
{
F2Act = 0
}
If F3Active = 0
{
F3Act = 0
}
If F4Active = 0
{
F4Act = 0
}
If F5Active = 0
{
F5Act = 0
}

FileAppend, Gui`, Add`, Text`,`, This is the pricing for the latest fare:`nGui`, Add`, Tab2`, w500 h500`, Price|Fines|Discounts`nGui`, Tab`, Price`nGui`, Add`, Text`,`,`n(`nTime: %Seconds% Seconds`nPrice: $%TotalCash%`n)`nGui`, Tab`, Fines`nGui`, Add`, Text`,`,`n(`n%D1N%: $%D1Act%`n%D2N%: $%D2Act%`n%D3N%: $%D3Act%`n%D4N%: $%D4Act%`n%D5N%: $%D5Act%`n)`nGui`, Tab`, Discounts`nGui`, Add`, Text`,`,`n(`n%F1N%: $%F1Act%`n%F2N%: $%F2Act%`n%F3N%: $%F3Act%`n%F4N%: $%F4Act%`n%F5N%: $%F5Act%`n)`nGui`, Show`nReturn`n`nGuiClose:`nExitApp`n, Fare - %A_YYYY%-%A_MM%-%A_DD% on %A_Hour%-%A_Min%-%A_Sec%.ahk
Return