kake26/kratom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

save point

Browse source
This commit is contained in:
kake26 2024-09-18 13:30:31 -05:00
parent 5bf1b9529e
commit e92df4bf46
Signed by: kake26
GPG key ID: E8AFC43591876B4D
6 changed files with 19 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
kratom Executable file
View file

Binary file not shown.

BIN
kratom.db
View file

Binary file not shown.

16
kratom.pb
View file

@ -54,9 +54,14 @@ Procedure dellist(EventType)
EndProcedure EndProcedure
Procedure burn() Procedure burn(EventType)
If DatabaseQuery(0, "SELECT * FROM kratom ORDER BY RANDOM() LIMIT 1")
While NextDatabaseRow(0) ; Loop for each records
;AddGadgetItem (ListView_0, -1, "Name " + GetDatabaseString(0,1) + " Type " + GetDatabaseString(0,2))
MessageRequester("Burn you should","Today you get to burn "+GetDatabaseString(0,1))
Wend
EndIf
EndProcedure EndProcedure
@ -84,9 +89,10 @@ Repeat
EndSelect EndSelect
Until Event = #PB_Event_CloseWindow ; Quit on any window close Until Event = #PB_Event_CloseWindow ; Quit on any window close
; IDE Options = PureBasic 6.12 LTS (Linux - x64) ; IDE Options = PureBasic 6.12 LTS (Windows - x64)
; CursorPosition = 31 ; CursorPosition = 61
; FirstLine = 20 ; FirstLine = 36
; Folding = - ; Folding = -
; EnableXP ; EnableXP
; DPIAware ; DPIAware
; Executable = win32kratom.exe

3
kratomfrm1.pbf
View file

@ -11,6 +11,7 @@ Global krt1
Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Button_2, String_1, Text_2 Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Button_2, String_1, Text_2
Declare burn(EventType)
Declare dellist(EventType) Declare dellist(EventType)
Declare btn0click(EventType) Declare btn0click(EventType)
@ -43,6 +44,8 @@ Procedure krt1_Events(event)
Select EventGadget() Select EventGadget()
Case Button_0 Case Button_0
btn0click(EventType()) btn0click(EventType())
Case Button_1
burn(EventType())
Case Button_2 Case Button_2
dellist(EventType()) dellist(EventType())
EndSelect EndSelect

7
kratomprj.pbp
View file

@ -7,22 +7,23 @@
<section name="data"> <section name="data">
<explorer view="/opt/purebasic/examples/" pattern="0"/> <explorer view="/opt/purebasic/examples/" pattern="0"/>
<log show="1"/> <log show="1"/>
<lastopen date="2024-09-18 00:19" user="kake26" host="kake26-20l6s42e00"/> <lastopen date="2024-09-18 12:49" user="kake26" host="kake26-20l6s42e00"/>
</section> </section>
<section name="files"> <section name="files">
<file name="kratom.pb"> <file name="kratom.pb">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
<fingerprint md5="c44a94d156eacc238e59494b51caf74f"/> <fingerprint md5="9f5e99e1ff488b0b29b5605576464d24"/>
</file> </file>
<file name="kratomfrm1.pbf"> <file name="kratomfrm1.pbf">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
<fingerprint md5="fa99faf895ea57cf32aabcb624a1769e"/> <fingerprint md5="950999f7a68dfc50b2dffbd1dc130788"/>
</file> </file>
</section> </section>
<section name="targets"> <section name="targets">
<target name="Default Target" enabled="1" default="1"> <target name="Default Target" enabled="1" default="1">
<inputfile value="kratom.pb"/> <inputfile value="kratom.pb"/>
<outputfile value=""/> <outputfile value=""/>
<executable value="kratom"/>
<options xpskin="1" dpiaware="1" debug="1" optimizer="1"/> <options xpskin="1" dpiaware="1" debug="1" optimizer="1"/>
</target> </target>
</section> </section>

BIN
win32kratom.exe Executable file
View file

Binary file not shown.