abHXZwpu

1on 1:start: {
2  echo -a Triggered on start
3  if ($exists($qt($mircdirData\rbr.db))) {
4    ; Load Settings | load.set
5  }
6  else {
7    ; Set Database
8    set %db $sqlite_open($qt($mircdirData\rbr.db))
9
10    ; Run SQL Execution
11    sqlite_exec %db CREATE TABLE IF NOT EXISTS Settings (SettingID INTEGER PRIMARY KEY, bNick TEXT, bChannel TEXT)
12
13    ; Set settings
14    var %b.nick = $?="What nick will this bot use?" , %b.chan = $?="Where will this bot run?"
15
16    ; Save settings into database
17    var %sql = INSERT INTO Settings (bNick, bChannel) VALUES (' $+ %b.nick $+ ' , ' $+ %b.chan $+ ')
18
19    if ($sqlite_exec(%db, %sql)) {
20      echo -a Database has been created and settings have been stored.
21    } 
22    else {
23      echo -a Error executing query: %sqlite_errstr
24    }
25  }
26} 
27
28alias load.set {
29  var %sql = SELECT bNick, bChannel FROM Settings
30  var %res = $sqlite_query(%db, %sql)
31
32  if (%res) {
33    while ($sqlite_fetch_row(%res, row, $SQLITE_ASSOC)) {
34      set %b.nick $hget(row, bNick) | set %b.chan $hget(row, bChan)
35    }
36    sqlite_free %res
37  }
38  else {
39    echo -a Error executing query: %sqlite_errstr
40  }
41}