API tools faq
paste
Advertisement
Guest User

LifeRPG Error

a guest
Nov 19th, 2012
107
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.51 KB | None | 0 0
raw download clone embed print report
  1. Script lines most recently executed (oldest first). Press [F5] to refresh. The seconds elapsed between a line and the one after it is in parentheses to the right (if not 0). The bottommost line's elapsed time is the number of seconds since it executed.
  2.  
  3. 1176: this.Columns := columns
  4. 1177: }
  5. 1499: DllCall("SQLite3\sqlite3_free_table", "Ptr", mytable, "Cdecl")
  6. 1500: if (ErrorLevel)
  7. 1504: Return,tbl
  8. 1357: }
  9. 1359: }
  10. 1366: Return,ret
  11. 3239: columnCount := table.Columns.Count()
  12. 089: Return,this.SetCapacity(0)
  13. 3240: For each,row in table.Rows
  14. 3242: Loop,columnCount
  15. 3243: LV_Modify(RowNum,"Col2", row[A_Index])
  16. 1094: if (IsObject(param))
  17. 1097: if (!IsObjectMember(this, param))
  18. 035: if (IsObject(obj))
  19. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  20. 041: if str in %metaProps%
  21. 044: Return,false
  22. 1098: if param is Integer
  23. 1100: if (this.ContainsIndex(param))
  24. 1118: Return,((index > 0) && (index <= this._fields.Count()))
  25. 089: Return,this.SetCapacity(0)
  26. 1101: Return,this._fields[param]
  27. 2450: Critical
  28. 2451: if !( psz )
  29. 2465: ct_hwnd := NumGet( lparam + 0, 0, pty )
  30. 2466: if ( ( ct_hwnd = Colored_LV_1 && which_lv := "1" ) || ( ct_hwnd = Colored_LV_2 && which_lv := "2" ) || ( ct_hwnd = Colored_LV_3 && which_lv := "3" ) || ( ct_hwnd = Colored_LV_4 && which_lv :=
  31. 2490: Code := -(~NumGet(lParam+0, 8))-1
  32. 2491: Return,Code = HDN_BEGINTRACKA || Code = HDN_BEGINTRACKW ? True : ""
  33. 3244: }
  34. 3245: SkillsList.MoveNext()
  35. 1855: this.ErrorMsg := ""
  36. 1856: this.ErrorCode := 0
  37. 1857: this._currentRow := 0
  38. 1858: if (!this._query)
  39. 1863: rc := DllCall("SQlite3\sqlite3_step", "UInt", this._query, "Cdecl Int")
  40. 1864: if (rc != this._db.ReturnCode("SQLITE_ROW"))
  41. 1536: Return,RCODE.HasKey(RC) ? RCODE[RC] : ""
  42. 1876: rc := DllCall("SQlite3\sqlite3_data_count", "UInt", this._query, "Cdecl Int")
  43. 1877: if (rc < 1)
  44. 1883: fields := new Collection()
  45. 128: if (IsObject(enum))
  46. 131: }
  47. 1884: Loop,%rc%
  48. 1885: ctype := DllCall("SQlite3\sqlite3_column_type", "UInt", this._query, "Int", A_Index - 1, "Cdecl Int")
  49. 1886: if (ctype == SQLITE_NULL)
  50. 1889: strPtr := DllCall("SQlite3\sqlite3_column_text", "UInt", this._query, "Int", A_Index - 1, "Cdecl UInt")
  51. 1890: fields[A_Index] := StrGet(strPtr, "UTF-8")
  52. 1891: }
  53. 1892: }
  54. 1893: this._currentRow := new DBA.Row(this._colNames, fields)
  55. 1085: this._columns := 0
  56. 1086: this._fields := new Collection()
  57. 128: if (IsObject(enum))
  58. 131: }
  59. 000: }
  60. 1121: if (!is(columns, "Collection"))
  61. 009: if (IsObject(type))
  62. 011: While,(IsObject(obj))
  63. 012: if (obj.__Class == type)
  64. 013: Return,true
  65. 1124: if (!is(fields, "Collection"))
  66. 009: if (IsObject(type))
  67. 011: While,(IsObject(obj))
  68. 012: if (obj.__Class == type)
  69. 013: Return,true
  70. 1127: this._fields := fields
  71. 1128: this._columns := columns
  72. 1129: }
  73. 1894: this.CurrentRow++
  74. 1895: Return,true
  75. 3246: }
  76. 3233: While,(!SkillsList.EOF)
  77. 1284: if (IsObject(param))
  78. 1287: if (param = "EOF")
  79. 1288: Return,this.getEOF()
  80. 1850: Return,this._eof
  81. 3235: SkillListName := SkillsList["skill"]
  82. 1284: if (IsObject(param))
  83. 1287: if (param = "EOF")
  84. 1289: if (!IsObjectMember(this, param) && param != "_currentRow")
  85. 035: if (IsObject(obj))
  86. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  87. 041: if str in %metaProps%
  88. 044: Return,false
  89. 1290: if (!is(this._currentRow, DBA.Row))
  90. 009: if (IsObject(type))
  91. 010: type := typeof(type)
  92. 020: if (IsObject(obj))
  93. 021: cls := obj.__Class
  94. 022: if (cls != "")
  95. 023: Return,cls
  96. 011: While,(IsObject(obj))
  97. 012: if (obj.__Class == type)
  98. 1094: if (IsObject(param))
  99. 1097: if (!IsObjectMember(this, param))
  100. 035: if (IsObject(obj))
  101. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  102. 041: if str in %metaProps%
  103. 042: Return,true
  104. 1116: }
  105. 013: Return,true
  106. 1292: Return,this._currentRow[param]
  107. 1094: if (IsObject(param))
  108. 1097: if (!IsObjectMember(this, param))
  109. 035: if (IsObject(obj))
  110. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  111. 041: if str in %metaProps%
  112. 044: Return,false
  113. 1098: if param is Integer
  114. 1103: index := 0
  115. 1104: For i,col in this._columns
  116. 1106: if (col = param)
  117. 1107: index := i
  118. 1108: Break
  119. 1111: if (this.ContainsIndex(index))
  120. 1118: Return,((index > 0) && (index <= this._fields.Count()))
  121. 089: Return,this.SetCapacity(0)
  122. 1112: Return,this._fields[index]
  123. 3236: LV_Add("", SkillListName)
  124. 2450: Critical
  125. 2451: if !( psz )
  126. 2465: ct_hwnd := NumGet( lparam + 0, 0, pty )
  127. 2466: if ( ( ct_hwnd = Colored_LV_1 && which_lv := "1" ) || ( ct_hwnd = Colored_LV_2 && which_lv := "2" ) || ( ct_hwnd = Colored_LV_3 && which_lv := "3" ) || ( ct_hwnd = Colored_LV_4 && which_lv :=
  128. 2490: Code := -(~NumGet(lParam+0, 8))-1
  129. 2491: Return,Code = HDN_BEGINTRACKA || Code = HDN_BEGINTRACKW ? True : ""
  130. 3237: RowNum := A_Index
  131. 3238: table := db.Query("SELECT COUNT(skill) FROM projects WHERE skill = '" . SkillListName . "' AND difficulty = 'Done'")
  132. 1352: ret := null
  133. 1353: if (RegExMatch(sql, "i)^\s*SELECT\s"))
  134. 1354: Try
  135. 1356: ret := this._GetTableObj(sql)
  136. 1437: err := 0, rc := 0, GetRows := 0
  137. 1438: i := 0
  138. 1439: rows := cols := 0
  139. 1440: names := new Collection()
  140. 128: if (IsObject(enum))
  141. 131: }
  142. 1441: dbh := this._handleDB
  143. 1442: SQLite_LastError(" ")
  144. 687: if (Error != "")
  145. 688: LastError := Error
  146. 689: Return,LastError
  147. 1443: if (!_SQLite_CheckDB(dbh))
  148. 740: DB += 0
  149. 741: if DB is not Integer
  150. 743: if (DB = 0)
  151. 745: if (Action = "Store")
  152. 749: if (Action = "Free")
  153. 754: Return,ValidHandles.HasKey(DB)
  154. 1448: if maxResult is not Integer
  155. 1450: if (maxResult < -1)
  156. 1452: mytable := ""
  157. 1453: err := 0
  158. 1454: _SQLite_StrToUTF8(SQL, UTF8)
  159. 719: VarSetCapacity(UTF8, StrPut(Str, "UTF-8"), 0)
  160. 720: Return,StrPut(Str, &UTF8, "UTF-8")
  161. 1455: rc := DllCall("SQlite3\sqlite3_get_table", "Ptr", dbh, "Ptr", &UTF8, "Ptr*", mytable, "Ptr*", rows, "Ptr*", cols, "Ptr*", err, "Cdecl Int")
  162. 1457: if (ErrorLevel)
  163. 1461: if (rc)
  164. 1467: if (maxResult = 0)
  165. 1475: if (maxResult = 1)
  166. 1477: if (maxResult > 1) && (maxResult < rows)
  167. 1480: GetRows := rows
  168. 1481: Offset := 0
  169. 1482: Loop,cols
  170. 1484: names.Add(StrGet(NumGet(mytable+0, Offset), "UTF-8"))
  171. 071: this.Insert(obj)
  172. 072: }
  173. 1485: Offset += A_PtrSize
  174. 1486: }
  175. 1487: myRows := new Collection()
  176. 128: if (IsObject(enum))
  177. 131: }
  178. 1488: Loop,%GetRows%
  179. 1489: i := A_Index
  180. 1490: fields := new Collection()
  181. 128: if (IsObject(enum))
  182. 131: }
  183. 1491: Loop,Cols
  184. 1493: fields.Add(StrGet(NumGet(mytable+0, Offset), "UTF-8"))
  185. 071: this.Insert(obj)
  186. 072: }
  187. 1494: Offset += A_PtrSize
  188. 1495: }
  189. 1496: myRows.Add(new DBA.Row(Names, fields))
  190. 1085: this._columns := 0
  191. 1086: this._fields := new Collection()
  192. 128: if (IsObject(enum))
  193. 131: }
  194. 000: }
  195. 1121: if (!is(columns, "Collection"))
  196. 009: if (IsObject(type))
  197. 011: While,(IsObject(obj))
  198. 012: if (obj.__Class == type)
  199. 013: Return,true
  200. 1124: if (!is(fields, "Collection"))
  201. 009: if (IsObject(type))
  202. 011: While,(IsObject(obj))
  203. 012: if (obj.__Class == type)
  204. 013: Return,true
  205. 1127: this._fields := fields
  206. 1128: this._columns := columns
  207. 1129: }
  208. 071: this.Insert(obj)
  209. 072: }
  210. 1497: }
  211. 1498: tbl := new DBA.Table(myRows, Names)
  212. 1146: this.Rows := new Collection()
  213. 128: if (IsObject(enum))
  214. 131: }
  215. 1147: this.Columns := new Collection()
  216. 128: if (IsObject(enum))
  217. 131: }
  218. 000: }
  219. 1169: if (!is(rows, "Collection"))
  220. 009: if (IsObject(type))
  221. 011: While,(IsObject(obj))
  222. 012: if (obj.__Class == type)
  223. 013: Return,true
  224. 1172: if (!is(columns, "Collection"))
  225. 009: if (IsObject(type))
  226. 011: While,(IsObject(obj))
  227. 012: if (obj.__Class == type)
  228. 013: Return,true
  229. 1175: this.Rows := rows
  230. 1176: this.Columns := columns
  231. 1177: }
  232. 1499: DllCall("SQLite3\sqlite3_free_table", "Ptr", mytable, "Cdecl")
  233. 1500: if (ErrorLevel)
  234. 1504: Return,tbl
  235. 1357: }
  236. 1359: }
  237. 1366: Return,ret
  238. 3239: columnCount := table.Columns.Count()
  239. 089: Return,this.SetCapacity(0)
  240. 3240: For each,row in table.Rows
  241. 3242: Loop,columnCount
  242. 3243: LV_Modify(RowNum,"Col2", row[A_Index])
  243. 1094: if (IsObject(param))
  244. 1097: if (!IsObjectMember(this, param))
  245. 035: if (IsObject(obj))
  246. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  247. 041: if str in %metaProps%
  248. 044: Return,false
  249. 1098: if param is Integer
  250. 1100: if (this.ContainsIndex(param))
  251. 1118: Return,((index > 0) && (index <= this._fields.Count()))
  252. 089: Return,this.SetCapacity(0)
  253. 1101: Return,this._fields[param]
  254. 2450: Critical
  255. 2451: if !( psz )
  256. 2465: ct_hwnd := NumGet( lparam + 0, 0, pty )
  257. 2466: if ( ( ct_hwnd = Colored_LV_1 && which_lv := "1" ) || ( ct_hwnd = Colored_LV_2 && which_lv := "2" ) || ( ct_hwnd = Colored_LV_3 && which_lv := "3" ) || ( ct_hwnd = Colored_LV_4 && which_lv :=
  258. 2490: Code := -(~NumGet(lParam+0, 8))-1
  259. 2491: Return,Code = HDN_BEGINTRACKA || Code = HDN_BEGINTRACKW ? True : ""
  260. 3244: }
  261. 3245: SkillsList.MoveNext()
  262. 1855: this.ErrorMsg := ""
  263. 1856: this.ErrorCode := 0
  264. 1857: this._currentRow := 0
  265. 1858: if (!this._query)
  266. 1863: rc := DllCall("SQlite3\sqlite3_step", "UInt", this._query, "Cdecl Int")
  267. 1864: if (rc != this._db.ReturnCode("SQLITE_ROW"))
  268. 1536: Return,RCODE.HasKey(RC) ? RCODE[RC] : ""
  269. 1876: rc := DllCall("SQlite3\sqlite3_data_count", "UInt", this._query, "Cdecl Int")
  270. 1877: if (rc < 1)
  271. 1883: fields := new Collection()
  272. 128: if (IsObject(enum))
  273. 131: }
  274. 1884: Loop,%rc%
  275. 1885: ctype := DllCall("SQlite3\sqlite3_column_type", "UInt", this._query, "Int", A_Index - 1, "Cdecl Int")
  276. 1886: if (ctype == SQLITE_NULL)
  277. 1889: strPtr := DllCall("SQlite3\sqlite3_column_text", "UInt", this._query, "Int", A_Index - 1, "Cdecl UInt")
  278. 1890: fields[A_Index] := StrGet(strPtr, "UTF-8")
  279. 1891: }
  280. 1892: }
  281. 1893: this._currentRow := new DBA.Row(this._colNames, fields)
  282. 1085: this._columns := 0
  283. 1086: this._fields := new Collection()
  284. 128: if (IsObject(enum))
  285. 131: }
  286. 000: }
  287. 1121: if (!is(columns, "Collection"))
  288. 009: if (IsObject(type))
  289. 011: While,(IsObject(obj))
  290. 012: if (obj.__Class == type)
  291. 013: Return,true
  292. 1124: if (!is(fields, "Collection"))
  293. 009: if (IsObject(type))
  294. 011: While,(IsObject(obj))
  295. 012: if (obj.__Class == type)
  296. 013: Return,true
  297. 1127: this._fields := fields
  298. 1128: this._columns := columns
  299. 1129: }
  300. 1894: this.CurrentRow++
  301. 1895: Return,true
  302. 3246: }
  303. 3233: While,(!SkillsList.EOF)
  304. 1284: if (IsObject(param))
  305. 1287: if (param = "EOF")
  306. 1288: Return,this.getEOF()
  307. 1850: Return,this._eof
  308. 3235: SkillListName := SkillsList["skill"]
  309. 1284: if (IsObject(param))
  310. 1287: if (param = "EOF")
  311. 1289: if (!IsObjectMember(this, param) && param != "_currentRow")
  312. 035: if (IsObject(obj))
  313. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  314. 041: if str in %metaProps%
  315. 044: Return,false
  316. 1290: if (!is(this._currentRow, DBA.Row))
  317. 009: if (IsObject(type))
  318. 010: type := typeof(type)
  319. 020: if (IsObject(obj))
  320. 021: cls := obj.__Class
  321. 022: if (cls != "")
  322. 023: Return,cls
  323. 011: While,(IsObject(obj))
  324. 012: if (obj.__Class == type)
  325. 1094: if (IsObject(param))
  326. 1097: if (!IsObjectMember(this, param))
  327. 035: if (IsObject(obj))
  328. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  329. 041: if str in %metaProps%
  330. 042: Return,true
  331. 1116: }
  332. 013: Return,true
  333. 1292: Return,this._currentRow[param]
  334. 1094: if (IsObject(param))
  335. 1097: if (!IsObjectMember(this, param))
  336. 035: if (IsObject(obj))
  337. 036: Return,ObjHasKey(obj, memberStr) || IsMetaProperty(memberStr)
  338. 041: if str in %metaProps%
  339. 044: Return,false
  340. 1098: if param is Integer
  341. 1103: index := 0
  342. 1104: For i,col in this._columns
  343. 1106: if (col = param)
  344. 1107: index := i
  345. 1108: Break
  346. 1111: if (this.ContainsIndex(index))
  347. 1118: Return,((index > 0) && (index <= this._fields.Count()))
  348. 089: Return,this.SetCapacity(0)
  349. 1112: Return,this._fields[index]
  350. 3236: LV_Add("", SkillListName)
  351. 2450: Critical
  352. 2451: if !( psz )
  353. 2465: ct_hwnd := NumGet( lparam + 0, 0, pty )
  354. 2466: if ( ( ct_hwnd = Colored_LV_1 && which_lv := "1" ) || ( ct_hwnd = Colored_LV_2 && which_lv := "2" ) || ( ct_hwnd = Colored_LV_3 && which_lv := "3" ) || ( ct_hwnd = Colored_LV_4 && which_lv :=
  355. 2490: Code := -(~NumGet(lParam+0, 8))-1
  356. 2491: Return,Code = HDN_BEGINTRACKA || Code = HDN_BEGINTRACKW ? True : ""
  357. 3237: RowNum := A_Index
  358. 3238: table := db.Query("SELECT COUNT(skill) FROM projects WHERE skill = '" . SkillListName . "' AND difficulty = 'Done'")
  359. 1352: ret := null
  360. 1353: if (RegExMatch(sql, "i)^\s*SELECT\s"))
  361. 1354: Try
  362. 1356: ret := this._GetTableObj(sql)
  363. 1437: err := 0, rc := 0, GetRows := 0
  364. 1438: i := 0
  365. 1439: rows := cols := 0
  366. 1440: names := new Collection()
  367. 128: if (IsObject(enum))
  368. 131: }
  369. 1441: dbh := this._handleDB
  370. 1442: SQLite_LastError(" ")
  371. 687: if (Error != "")
  372. 688: LastError := Error
  373. 689: Return,LastError
  374. 1443: if (!_SQLite_CheckDB(dbh))
  375. 740: DB += 0
  376. 741: if DB is not Integer
  377. 743: if (DB = 0)
  378. 745: if (Action = "Store")
  379. 749: if (Action = "Free")
  380. 754: Return,ValidHandles.HasKey(DB)
  381. 1448: if maxResult is not Integer
  382. 1450: if (maxResult < -1)
  383. 1452: mytable := ""
  384. 1453: err := 0
  385. 1454: _SQLite_StrToUTF8(SQL, UTF8)
  386. 719: VarSetCapacity(UTF8, StrPut(Str, "UTF-8"), 0)
  387. 720: Return,StrPut(Str, &UTF8, "UTF-8")
  388. 1455: rc := DllCall("SQlite3\sqlite3_get_table", "Ptr", dbh, "Ptr", &UTF8, "Ptr*", mytable, "Ptr*", rows, "Ptr*", cols, "Ptr*", err, "Cdecl Int")
  389. 1457: if (ErrorLevel)
  390. 1461: if (rc)
  391. 1462: SQLite_LastError(StrGet(err, "UTF-8"))
  392. 687: if (Error != "")
  393. 688: LastError := Error
  394. 689: Return,LastError
  395. 1463: DllCall("SQLite3\sqlite3_free", "Ptr", err, "cdecl")
  396. 1464: ErrorLevel := rc
  397. 1465: Return,false
  398. 1357: }
  399. 1359: }
  400. 1366: Return,ret
  401. 3239: columnCount := table.Columns.Count()
  402. 064: ListLines
  403.  
  404. Press [F5] to refresh.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!