Zolarus Chripora - Pseudocode like code

[Zefk]

Zolarus Chripora

About:
I will probably code it. No date decided. A small short game pack template with most needed scripts that I am "thinking" of making if I get time. Not really decided. The name is based on "Solarus Christopho." The name of the Engine and Creator. This project is suppose to be easy plug and go for those with little programming experience. Christopho has already made many of the needed scripts and the scripts can be found in the source code of his games.

Started some scripts:
8-25-16 (August 25, 2016)

Currently working on:

• Inventory system
• Storage bag

Scripts:
Scripts I am thinking of making for Zolarus Chripora: (I am posting this here to clean up the help guide project.)

• Easy custom rain system (use multiple png images like rain drops, leaves, particle images, spores, flower, etc. I will be making this with opensource images.)
• Easy custom crafting
• Inventory system
• Storage bag
• Map location and the ability to teleport by picking places on the map
• Deed karma system
• Marriage system
• Memory based Matching card Game
• Black jack
• Checkers
• Slot machine
• Monster card game
• Monster turnbased battle game
• Coordinate grab script

Completed scripts for Zolarus script pack:

New:
Advanced Number Input: Here
Advanced Digit Display: Here
Multiple Digit Display script: Here
New Bank Script: Here
Menu Dialog Display: Here
Character Input Script: Here
Pick Name Script: Here
Gallery Script: Here
Jam Station: Here (A Bug in the engine crashes the second page)
Time System Script: Here


Old:
-Volume Control script by Zefk: Here and the entire project: Here
-Input Number script by Zefk: Here
-Bank script: Here

[20degree]

Here is an example of code for the current time of the computer for the software futurepinball.

1st there is a timer component: 1 timer = 1000ms (micro seconds) = 1 second

Code Select Expand

' *****************************************************************
' ***** This display the current time and date in the HudDmd ******
' *****************************************************************

Sub DmdDate_Expired()
DmdDate.Enabled = False

Dim CurrentDateTime
Dim CurrentYear
Dim CurrentMonth
Dim CurrentDay
Dim CurrentHour
Dim CurrentMinute
Dim CurrentSecond

CurrentDateTime = Now()

CurrentYear = Year(CurrentDateTime)
CurrentMonth = Month(CurrentDateTime)
CurrentDay = Day(CurrentDateTime)
CurrentHour = Hour(CurrentDateTime)
CurrentMinute = Minute(CurrentDateTime)
CurrentSecond = Second(CurrentDateTime)

If (CurrentMonth = 1) Then
CurrentMonth = "JANUARY"
ElseIf (CurrentMonth = 2) Then
CurrentMonth = "FEBRUARY"
ElseIf (CurrentMonth = 3) Then
CurrentMonth = "MARCH"
ElseIf (CurrentMonth = 4) Then
CurrentMonth = "APRIL"
ElseIf (CurrentMonth = 5) Then
CurrentMonth = "MAY"
ElseIf (CurrentMonth = 6) Then
CurrentMonth = "JUNE"
ElseIf (CurrentMonth = 7) Then
CurrentMonth = "JULY"
ElseIf (CurrentMonth = 8) Then
CurrentMonth = "AUGUST"
ElseIf (CurrentMonth = 9) Then
CurrentMonth = "SEPTEMBER"
ElseIf (CurrentMonth = 10) Then
CurrentMonth = "OCTOBER"
ElseIf (CurrentMonth = 11) Then
CurrentMonth = "NOVEMBER"
ElseIf (CurrentMonth = 12) Then
CurrentMonth = "DECEMBER"
End If

If (CurrentHour = 0) Then
CurrentHour ="00"
ElseIf (CurrentHour = 1) Then
CurrentHour = "01"
ElseIf (CurrentHour = 2) Then
CurrentHour = "02"
ElseIf (CurrentHour = 3) Then
CurrentHour = "03"
ElseIf (CurrentHour = 4) Then
CurrentHour = "04"
ElseIf (CurrentHour = 5) Then
CurrentHour = "05"
ElseIf (CurrentHour = 6) Then
CurrentHour = "06"
ElseIf (CurrentHour = 7) Then
CurrentHour = "07"
ElseIf (CurrentHour = 8) Then
CurrentHour = "08"
ElseIf (CurrentHour = 9) Then
CurrentHour = "09"
Else
CurrentHour = CurrentHour
End If

If (CurrentMinute = 0) Then
CurrentMinute ="00"
ElseIf (CurrentMinute = 1) Then
CurrentMinute = "01"
ElseIf (CurrentMinute = 2) Then
CurrentMinute = "02"
ElseIf (CurrentMinute = 3) Then
CurrentMinute = "03"
ElseIf (CurrentMinute = 4) Then
CurrentMinute = "04"
ElseIf (CurrentMinute = 5) Then
CurrentMinute = "05"
ElseIf (CurrentMinute = 6) Then
CurrentMinute = "06"
ElseIf (CurrentMinute = 7) Then
CurrentMinute = "07"
ElseIf (CurrentMinute = 8) Then
CurrentMinute = "08"
ElseIf (CurrentMinute = 9) Then
CurrentMinute = "09"
Else
CurrentMinute = CurrentMinute
End If

If (CurrentSecond = 0) Then
CurrentSecond = "00"
ElseIf (CurrentSecond = 1) Then
CurrentSecond = "01"
ElseIf (CurrentSecond = 2) Then
CurrentSecond = "02"
ElseIf (CurrentSecond = 3) Then
CurrentSecond ="03"
ElseIf (CurrentSecond = 4) Then
CurrentSecond = "04"
ElseIf (CurrentSecond = 5) Then
CurrentSecond = "05"
ElseIf (CurrentSecond = 6) Then
CurrentSecond = "06"
ElseIf (CurrentSecond = 7) Then
CurrentSecond = "07"
ElseIf (CurrentSecond = 8) Then
CurrentSecond = "08"
ElseIf (CurrentSecond = 9) Then
CurrentSecond = "09"
ElseIf (CurrentSecond = 55) Then
DmdDate.Enabled = False
Else
CurrentSecond = CurrentSecond
End If

DmdShowDate.FlushQueue()
DmdShowDate.FlushAnimation()
DmdShowDate.QueueText "[y1][f3]" &CurrentHour& "H " &CurrentMinute& "M " &CurrentSecond& "[y11]" &CurrentMonth& " " &CurrentDay& "[y21]" &CurrentYear

DmdDate.Interval = 1000
DmdDate.Enabled = True
End Sub

The object named: DmdShowDate, is some dmd (dot matrix display) object. If you wonder what is: [y1][f3]? There are simply some coordinations and font type for the dmd.

I know it's not LUA, but there are month's that have 5 weeks if you want to show the current time of the computer.

A+

[Zefk]

None of the code posted here will work without quite a bit of tweaking, so I do not mind that it is not related to Lua.

[Zefk]

Input number script completed:

I made this input script because I need it for a bank script I am working on.
Download

I will probably update it later, but it is functional.

YouTube Video: (Sorry for the blur. This is YouTube's fault. My video is super clear.)
https://youtu.be/orWRphRfncw