save point

kratom.pb

@@ -54,9 +54,14 @@ Procedure dellist(EventType)
    
 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
 
@@ -84,9 +89,10 @@ Repeat
     EndSelect
     
   Until Event = #PB_Event_CloseWindow ; Quit on any window close
-; IDE Options = PureBasic 6.12 LTS (Linux - x64)
-; CursorPosition = 31
-; FirstLine = 20
+; IDE Options = PureBasic 6.12 LTS (Windows - x64)
+; CursorPosition = 61
+; FirstLine = 36
 ; Folding = -
 ; EnableXP
-; DPIAware
+; DPIAware
+; Executable = win32kratom.exe