API tools faq
paste
vanheartnet

GPoints Admin Panel 47

vanheartnet
Feb 29th, 2020 (edited)
406
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 80.68 KB | None | 0 0
raw download clone embed print report
  1. ;@Ahk2Exe-SetCompanyName VANHEARTNET LTD. INC.
  2. ;@Ahk2Exe-SetCopyright All rights reserved © VANHEARTNET
  3. ;@Ahk2Exe-Set FileDescription, GPoints Control Panel
  4. ;@Ahk2Exe-Set FileVersion, 3.2.1.0
  5. ;@Ahk2Exe-SetInternalName GPoints Control Panel
  6. ;@Ahk2Exe-SetName GPoints Admin Control Panel
  7. ;@Ahk2Exe-SetOrigFileName GPoints Admin Panel
  8. ;@Ahk2Exe-Set ProductName, GPoints Admin Panel
  9. ;@Ahk2Exe-Set ProductVersion, 3.2.1.0
  10. ;@Ahk2Exe-Set Description, GPoints Control Panel
  11. ;@Ahk2Exe-Set Comments, Software Created by : VANHEARTNET
  12. ;@Ahk2Exe-SetMainIcon icon.ico
  13. ;@Ahk2Exe-AddResource Icon.ico, 160 ; Replaces 'H on blue'
  14. ;@Ahk2Exe-AddResource Icon.ico, 206 ; Replaces 'S on green'
  15. ;@Ahk2Exe-AddResource Icon.ico, 207 ; Replaces 'H on red'
  16. ;@Ahk2Exe-AddResource Icon.ico, 208 ; Replaces 'S on red'
  17.  
  18. #SingleInstance, Force
  19. #NoEnv
  20. #Persistent
  21. SetBatchLines, -1
  22. SetWorkingDir, %A_ScriptDir%
  23. SetTitleMatchMode,1
  24. Menu,tray, NoStandard
  25. Menu,Tray,Add,Control Panel,Control_Panel
  26. Menu,tray,add,
  27. Menu,Tray,Add,Exit
  28. StringCaseSense, On
  29. ;~ -------------------------Performance----------------
  30. #MaxHotkeysPerInterval 99000000
  31. #HotkeyInterval 99000000
  32. #KeyHistory 0
  33. ListLines Off
  34. Process, Priority, , A
  35. SetKeyDelay, -1, -1
  36. SetMouseDelay, -1
  37. SetDefaultMouseSpeed, 0
  38. SetWinDelay, -1
  39. SetControlDelay, -1
  40. SendMode Input
  41. if not A_IsAdmin
  42. Run, *RunAs "%A_ScriptFullpath%"
  43. ;~ -----------------------------------GLOBAL VARIABLES--------------------------------
  44. global EVE
  45. Global GU
  46. Global LV_2
  47. Global Theme_Color
  48. Global PATH1
  49. global LOC
  50. Global LOC1
  51. Global Group_box2
  52. global Black1
  53. global YellowB
  54. global Black
  55. global Black2
  56. global YellowB3
  57. global Black4
  58. global Clear
  59. Global Expired_List
  60. Global Note
  61. Global LZV_2
  62. Global Edit_Backup
  63. Global Edit_Auto_Backup
  64.  
  65. ;~ ---------------------ADMIN PASS--------------
  66. /*
  67. [Admin]
  68. Pass=js
  69. [PASSWORD PROTECT]
  70. Mode=1
  71. */
  72. ;~ ------------------------------------------------------------------------------------------
  73. Note := "Pressing the clear Button will wipe-out or erase permanently the records listed above. Use Backup Settings to restore from Last Updated Settings or Records though will all revert including Accounts to previous state"
  74. Global Title := "Claimed Record List"
  75. Global Title1 := "Expired Record List"
  76. ;~ ----------------------------------VARIABLES-----------------------------
  77. YEDRWRD := 460
  78. YBTNS := 630
  79. YCHBX := 10
  80. YEDIT := 150
  81. LISTB := 0
  82. Num60 := 60
  83. Secs := 1000
  84. Mins := 60000
  85. Hrs := 3600000
  86. T1 := "Seconds"
  87. T2 := "Minutes"
  88. T3 := "Hours"
  89. XP := 20
  90. YP := 30
  91. WP := 178
  92. HP := 30
  93. EditHours := False
  94. EditAnnc := False
  95. Hided := False
  96.  
  97. IfNotExist,VANHEATNET\gpPath.dat:VAN:$DATA
  98. {
  99. Installation_Folder()
  100. }
  101. PASSWORDPROTECT()
  102.  
  103. FileRead,PATH1,VANHEARTNET\gpPath.dat:VAN:$DATA
  104. if (PATH1="ERROR" or PATH1="")
  105. {
  106. MsgBox,262164,WARNING, There is an ERROR need to Select Installation Path?`n`nDo you want to Setup Installation?
  107. IfMsgBox,Yes
  108. {
  109. IfExist,VANHEARTNET
  110. FileReMoveDir,VANHEARTNET
  111. IfExist, \\%A_ComputerName%\Users\%A_UserName%\GP
  112. FileRemoveDir,\\%A_ComputerName%\Users\%A_UserName%\GP
  113. Gosub, Button_Backup
  114. TrayTip,GPoints,Installing...,5,
  115. sleep, 5000
  116. TrayTip,GPoints,Done! Thank You...,5,
  117. Reload
  118. }
  119. else
  120. ExitApp
  121. }
  122. Gosub, Expired_AccountsMember
  123. Gosub,Read
  124.  
  125. ;~ --------------------------------GUI----------------------------------
  126.  
  127. Gui,1:Submit,Nohide
  128. Gui,1:+Alwaysontop -Caption
  129. Gui,1: Margin, 0,0
  130. Gui,1:color,% Theme_Color
  131. Gui,1:Font, Arial cWhite Bold s8
  132. Gui,1:Add,Groupbox, x+5 y+1 w590 h293 Section,
  133. Gui,1:Add,text, x%XP% y20 w%WP% h%HP% vText2 gTxt2,
  134. Gui,1:Add,Progress, x%XP% y20 w%WP% h20 BackgroundRed cWhite vPress,100
  135. Gui,1:Add,Checkbox, x30 y50 vCheck1 gChk1,Tournament
  136. Gui,1:Add,Checkbox, x30 y+%YCHBX% vCheck2 gChk2, Auto delete Inbox
  137. Gui,1:Add,Checkbox, x30 y+%YCHBX% vCheck3 gChk3, Event
  138. Gui,1:Font, Arial White Bold s8
  139. Gui,1:Add,Edit, x%YP% y+10 h100 w100 r1 limit3 Number +Border Disabled vEdit1 gEdt1,%Number_Edit1%
  140. Gui,1:Add,DropDownList, x30 y+10 r3 w100 AltSubmit Disabled vDList1, %TIME%
  141. Gui,1:Add,Text,x15 y198 vTxt4 w140 h20,Account Expiration Days
  142. Gui,1:Add,Checkbox,xs+10 ys+225 w120 h20 vCheckIDLE gCheck_IDLE,Log-out idle/mins
  143. Gui,1:Add,Edit, x165 y222 h100 w40 r1 limit3 +Center Number +Border Disabled vEditIDLE gEdit_IDLE,% EDIT_Idle_Time
  144. Gui,1:Add,Edit, x165 y195 h100 w40 r1 limit3 +Center Number +Border Disabled vEditexD gEdit_exD,% ExDays
  145. Gui,1:Font, Arial Black Bold s8
  146. Gui,1:add,Button, x140 y260 h30 w60 vButton1 gButt1, Save
  147. Gui,1:add,Button, x140 y120 h20 w40 vButtonEdit gButt_Edit, Edit
  148. Gui,1:Font, Arial Black s10
  149. Gui,1:Add,text, cRed x%XP% y22 w%WP% h%HP% BackgroundTrans +Center vText3, VANHEARTNET
  150. Gui,1:Add,Button, x15 y260 h30 w120 vButtonEditAnn gButt_EditAnnouncement,Settings
  151. Gui,1:Add,Groupbox,x210 y6 w380 h282 Section,
  152. Gui,1:Font, Times New Roman s8
  153. Gui,1:Add,Listview,xs+10 ys+10 Grid AltSubmit -Multi NoSortHdr +ReadOnly w360 h260 vLV_1 gList_View_1,Members|Points|Status
  154. Gui,1:Font, Bold
  155. Gui,1:Add,Edit,xs+10 ys+65 w280 r1 Hidden Disabled vEdit_Backup,% PATH2
  156. Gui,1:Add,Button, xs+305 ys+65 h22 w60 Hidden Center vButton_Backup gButton_Backup,Change
  157.  
  158. Gui,1:Add,Edit,xs+10 ys+130 w280 r1 Hidden Disabled vEdit_Auto_Backup,% PATH3
  159. Gui,1:Add,Button, xs+305 ys+130 h22 w60 Hidden Center vButton_Auto_Backup gButton_Auto_Backup,Change
  160. Gui,1:Add,Button, xs+305 ys+130 h22 w60 Hidden Center vButton_Auto_Backup2 gButton_Auto_Backup2,Apply
  161.  
  162. Gui,1:Font,
  163. Gui,1:Font,s10 cLime Bold underline, Comic Sans MS
  164. Gui,1:Add,Text,xs+10 ys+10 r1 Hidden vPath_Title,IMPORTANT !!!
  165. Gui,1:Font,
  166. Gui,1:Font,s10 cWhite, Times New Roman
  167. Gui,1:Add,Text,xs+10 ys+30 w350 h30 Hidden Center vPath_Note,- Default Path Should be on Server's Network "My Documents" followed by Folder Location and must be Existed.
  168. Gui,1:Add,Text,xs+10 ys+108 w350 Hidden vBackup_Path_Note,- Please Input Your Backup Location below :
  169.  
  170. ;~ ############################################ GUI 8 ############################################################
  171.  
  172. Gui,8:+AlwaysOntop -caption +owner1 +ToolWindow
  173. Gui,8:Color, % Theme_Color
  174. Gui,8:font, s8 Bold cWhite
  175. Gui,8:Add,Text,x0 y0 w20 h120 Center BackgroundTrans gShow_Redeem,
  176. Gui,8:Add,Progress,x1 y1 w20 h120 vGui8 Background%Theme_Color%
  177. Gui,8:Add,Text,x0 y2 w20 Center BackgroundTrans, R
  178. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, E
  179. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, D
  180. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, E
  181. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, E
  182. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, M
  183. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, E
  184. Gui,8:Add,Text,x0 y+2 w20 Center BackgroundTrans, D
  185. ;~ ############################################ GUI 10 ############################################################
  186. Gui,10:+AlwaysOntop -caption +owner1 +ToolWindow
  187. Gui,10:Color, % Theme_Color
  188. Gui,10:font, s8 Bold cWhite
  189. Gui,10:Add,Text,x0 y0 w20 h62 Center BackgroundTrans gExit,
  190. Gui,10:Add,Progress,x1 y1 w20 h62 vGui10 Background%Theme_Color%
  191. Gui,10:Add,Text,x0 y2 w20 Center BackgroundTrans, E
  192. Gui,10:Add,Text,x0 y+2 w20 Center BackgroundTrans, X
  193. Gui,10:Add,Text,x0 y+2 w20 Center BackgroundTrans, I
  194. Gui,10:Add,Text,x0 y+2 w20 Center BackgroundTrans, T
  195. ;~ ############################################ GUI 11 ############################################################
  196. Gui,11:+AlwaysOntop -caption +owner1 +ToolWindow
  197. Gui,11:Color, % Theme_Color
  198. Gui,11:font, s8 Bold cWhite
  199. Gui,11:Add,Text,x0 y0 w20 h100 Center BackgroundTrans gBackup,
  200. Gui,11:Add,Progress,x1 y1 w20 h101 vGui11 Background%Theme_Color%
  201. Gui,11:Add,Text,x0 y7 w20 Center BackgroundTrans, B
  202. Gui,11:Add,Text,x0 y+2 w20 Center BackgroundTrans, A
  203. Gui,11:Add,Text,x0 y+2 w20 Center BackgroundTrans, C
  204. Gui,11:Add,Text,x0 y+2 w20 Center BackgroundTrans, K
  205. Gui,11:Add,Text,x0 y+2 w20 Center BackgroundTrans, U
  206. Gui,11:Add,Text,x0 y+2 w20 Center BackgroundTrans, P
  207.  
  208. ;~ ############################################ GUI 2 ############################################################
  209. Gui,2:+Alwaysontop -Caption +OwnDialogs +ToolWindow
  210. Gui,2:Color, %Theme_Color%, White
  211. Gui,2:Margin, 10,10
  212. Gui,2:Add,text,cWhite BackgroundTrans vTextGroup, Launcher Announcement
  213. Gui,2:Add,Edit, h100 w350 cRed r1 Disabled +Border vEditAnnT ,% ANNTITLE
  214. Gui,2:Add,Edit, h100 w350 cBlack r4 Disabled +Border vEditAnn -VScroll,% ANNMain
  215. Gui,2:Add,Edit, x25 y+27 h100 w200 cRed r1 Disabled +Border vEditProcess1 gEdit_Process1 ,% Proc1
  216. Gui,2:Add,Edit, h100 w200 cRed r1 Disabled +Border vEditProcess2 gEdit_Process2,% Proc2
  217. Gui,2:Add,Edit, h100 w200 cRed r1 Disabled +Border vEditProcess3 gEdit_Process3,% Proc3
  218. Gui,2:Add,Edit, x230 y151 h100 w40 cRed r1 Number +Center Disabled +Border vEditBoost1 gEdtBoost1,% Boost1
  219. Gui,2:Add,Edit, h100 w40 cRed r1 Disabled Number +Center +Border vEditBoost2 gEdtBoost2,% Boost2
  220. Gui,2:Add,Edit, h100 w40 cRed r1 Disabled Number +Center +Border vEditBoost3 gEdtBoost3,% Boost3
  221. Gui,2:Font, Arial Black Bold s16
  222. Gui,2:Font,
  223. Gui, 2:Add, Groupbox, cWhite x15 y130 w340 h120 vGroup_box, Process Name and Boost Points
  224. Gui,2:Add,text, cWhite x280 y153 BackgroundTrans vTextProcess1, Prcocess 1
  225. Gui,2:Add,text, cWhite x280 y+19 BackgroundTrans vTextProcess2, Prcocess 2
  226. Gui,2:Add,text, cWhite x280 y+20 BackgroundTrans vTextProcess3, Prcocess 3
  227. Gui,2:Add,Edit, x20 y+35 h100 w50 cRed r1 Disabled Number +Center +Border vEditTourPoints gEdit_Tour_Points,% TourReqPoints
  228. Gui,2:Add,text, cLime x80 y270 BackgroundTrans vTxtTourPoints, Tournament Points
  229. Gui, 2:Add, Groupbox, cWhite x15 y+10 w340 h110 vGroup_box3 Section, Reward Points Requirements
  230. Gui,2:Add,Edit, xs40 ys25 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP1 gReward_Req_P1,% RewardRP1
  231. Gui,2:Add,Edit, x+30 ys25 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP2 gReward_Req_P2,% RewardRP2
  232. Gui,2:Add,Edit, x+30 ys25 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP3 gReward_Req_P3,% RewardRP3
  233. Gui,2:Add,Edit, xs40 ys50 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP4 gReward_Req_P4,% RewardRP4
  234. Gui,2:Add,Edit, x+30 ys50 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP5 gReward_Req_P5,% RewardRP5
  235. Gui,2:Add,Edit, x+30 ys50 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP6 gReward_Req_P6,% RewardRP6
  236. Gui,2:Add,Edit, xs40 ys75 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP7 gReward_Req_P7,% RewardRP7
  237. Gui,2:Add,Edit, x+30 ys75 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP8 gReward_Req_P8,% RewardRP8
  238. Gui,2:Add,Edit, x+30 ys75 h100 w60 cRed r1 Disabled Number +Center +Border vRewardReqP9 gReward_Req_P9,% RewardRP9
  239. Gui,2:Add,Button, x20 y%YBTNS% w50 h25 vButtonEditAnn gButt_EditAnnc +Border, Edit
  240. Gui,2:Add,Button, x+40 y%YBTNS% w120 h25 vButtonSettings gButt_Setting +Border, Advanced Settings
  241. Gui,2:Add,Button, x+20 y%YBTNS% w50 h25 vButtonSave gButt_Save +Border, Save
  242. Gui,2:Add,Button, x+3 y%YBTNS% w50 h25 vButtonCancel gButt_Cancel +Default +Border, Cancel
  243. Gui,2:Add,text, x200 cWhite BackgroundTrans , Powered by :
  244. Gui,2:Add,text,x270 y665 cff3333 BackgroundTrans vPowered,VANHEARTNET
  245. Gui,2:Add,tab2, cWhite x10 y410 w350 h200 Altsubmit +Center vTab1,Reward 1|Reward 2|Reward 3|Reward 4|Reward 5|Reward 6|Reward 7|Reward 8|Reward 9|
  246. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward1,
  247. Gui,2:Tab,2
  248. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward2,
  249. Gui,2:Tab,3
  250. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward3,
  251. Gui,2:Tab,4
  252. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward4,
  253. Gui,2:Tab,5
  254. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward5,
  255. Gui,2:Tab,6
  256. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward6,
  257. Gui,2:Tab,7
  258. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward7,
  259. Gui,2:Tab,8
  260. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward8,
  261. Gui,2:Tab,9
  262. Gui,2:Add,Edit,x20 y%YEDRWRD% w330 h180 r10 -VScroll Disabled vEditReward9,
  263. ;~ #####################################################################################################################################
  264. Gui,3:+AlwaysOnTop -Caption +ToolWindow
  265. Gui,3:Color,Red
  266. Gui,3:Font, s10 Bold
  267. Gui,3:Add, Groupbox, x5 y-5 h40 w170 vGroup_box2 Section,
  268. Gui,3:Add,Text,cWhite xs+45 ys+15 w73 h20 Center +Border gHiding,RELOAD
  269. ;~ #####################################################################################################################################
  270. ;~ ########################################################################## GUI 6 ########################################
  271. ;~ #####################################################################################################################################
  272.  
  273. Gui,6:+AlwaysOntop -Caption
  274. Gui,6:Font, c00ff00 Bold
  275. Gui,6:Color, Red
  276. Gui,6:Add, Groupbox,x5 y5 w200 h100 +Center Section, Change Admin Password
  277. Gui,6:Add,Button,xs+40 ys+90 Border Center w120 Default vBTNConfirm gBTN_Confirm, Confirm
  278. Gui,6:Font, s8 Arial Bold Italic c666699
  279. Gui,6:Add,Edit,xs+20 ys+30 r1 w160 h20 Center Border vEditAdmin1 gEdit_Admin1,Old Password
  280. Gui,6:Add,Edit,xs+20 ys+60 r1 w160 h20 Center Border vEditAdmin2 gEdit_Admin2,New Password
  281.  
  282.  
  283. OnMessage(0x232,"Move_Windows")
  284. OnMessage(0x201,"Mouse_Move")
  285. ONMessage(0x204,"Hide_Gui")
  286. ;~ #####################################################################################################################################
  287. ;~ -----------------------------------READ CONFIG------------------------------
  288.  
  289. Iniread,IDLETIME,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLE
  290. if (IDLETIME="ERROR" or IDLETIME="")
  291. {
  292. IniWrite,1800000,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLE
  293. IDLETIME := 1800000
  294. }
  295. EDIT_Idle_Time := (IDLETIME//60000)
  296. GuiControl,1:,EditIDLE,% EDIT_Idle_Time
  297.  
  298. ;~ -------------------------------------------------------------------------------------------------------------------------------
  299. Iniread,Rcheck1,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  300. if (Rcheck1==1)
  301. {
  302. GuiControl,,Check1,1
  303. CKB := 1
  304. }
  305. Else if (Rcheck1==0)
  306. {
  307. GuiControl,,Check1,0
  308. }
  309. Iniread,Rcheck2,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  310. if (Rcheck2==1)
  311. {
  312. GuiControl,,Check2,1
  313. CKB2 := 1
  314. }
  315. else if (Rcheck2==0)
  316. {
  317. GuiControl,,Check2,0
  318. CKB2 := 0
  319. }
  320. Iniread,TIMEs,%PATH1%\DATA\Config.ini:VAN:$DATA,ADMIN,STIME
  321. if (TIMEs="ERROR") or (TIMEs="")
  322. {
  323. IniWrite,10,%PATH1%\DATA\Config.ini:VAN:$DATA,ADMIN,STIME
  324. TIMEs := 10
  325. }
  326. Iniread,RCheck3,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,EVENT
  327. if (RCheck3==1)
  328. {
  329. GuiControl,,Check3,1
  330. CKB3 := 1
  331. }
  332. else
  333. {
  334. GuiControl,,Check3,0
  335. CKB3 := 0
  336. }
  337. Iniread,IDLEMODE,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLEMODE ;######################### CHEKING IF ERROR OR "" MAKES THE CHECKBOX BUG #############################
  338. if (IDLEMODE==1)
  339. {
  340. GuiControl,1:,CheckIDLE,1
  341. CKI := 1
  342. }
  343. Else
  344. {
  345. GuiControl,1:,CheckIDLE,0
  346. CKI := 0
  347. }
  348. ;~ #####################################################################################################################################
  349. ;~ ------------------------------------------LISTVIEW FUNCTIONS-------------------------------
  350. ;~ #####################################################################################################################################
  351. Loop,%PATH1%\GPoints\*.*,2
  352. {
  353. IniRead,PPO,%PATH1%\GPoints\%A_LoopFileName%\info.ini:VAN:$DATA,TOTAL,Points
  354. Iniread,PPO1,%PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA,Last Point,Count
  355. Iniread,LV_Ev,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,EVENT
  356. Index := A_Index
  357. if (PPO1<=1 or PPO1="ERROR" or PPO1="")
  358. PPOALL := PPO
  359. else if (PPO1>1)
  360. PPOALL := PPO+PPO1
  361. LV_Add("", A_LoopFileName, PPOALL)
  362. Account_Name := A_LoopFileName
  363. Loop,%PATH1%\Online\*.*,2
  364. {
  365. Status := A_LoopFileName
  366. if (Account_Name==A_LoopFileName)
  367. {
  368.  
  369. Loop % LV_GetCount()
  370. {
  371. LV_GetText(RetrievedText, A_Index)
  372. if InStr(RetrievedText, status)
  373. {
  374. Num := A_Index
  375. LV_Modify(Num,"col3","ONLINE")
  376.  
  377. }
  378.  
  379.  
  380. }
  381.  
  382. }
  383. }
  384.  
  385. }
  386. gosub, LV_Event
  387. Iniread,TourNa,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  388. if (TourNa==1)
  389. {
  390. LV_InsertCol("4", Partici,"Participants")
  391. Loop,read,%PATH1%\Rewards\Participants.txt:VAN:$DATA
  392. {
  393. Loop,Parse,A_LoopReadLine,`n,|
  394. {
  395. A++
  396. LV_Modify(A,"col4",A_LoopField)
  397. }
  398. }
  399. }
  400.  
  401. Gui,1:Show,w600 h300 ,GPoints Control Panel
  402. GetGui1Pos()
  403.  
  404. Gosub, Expired_AccountsMember
  405. return
  406. ;~ #####################################################################################################################################
  407. ;~ -------------------------------------------LABELS-----------------------------------------
  408. ;~ #####################################################################################################################################
  409. Button_Auto_Backup2:
  410. BTN_Auto_Backup2()
  411. return
  412. BTN_Auto_Backup2()
  413. {
  414. Gui,1:Submit,Nohide
  415. Gui,1:+OwnDialogs
  416. IfExist,%Edit_Auto_Backup%
  417. {
  418. Loop,%PATH1%\*.*,1
  419. {
  420. DATAFolders:=A_LoopFileName
  421. FileCopyDir,%PATH1%\%DATAFolders%,%Edit_Auto_Backup%\GamePoints\%DATAFolders%,1
  422. }
  423. MsgBox, %Edit_Auto_Backup%
  424. IniWrite,% Edit_Auto_Backup,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Backup PATH
  425. GuiControl,1:Disable,Edit_Auto_Backup
  426. GuiControl,1:Show,Button_Auto_Backup2
  427. return
  428. }
  429. else
  430. {
  431. MsgBox,,ERROR, Cannot find `" %Edit_Auto_Backup% `"
  432. return
  433. }
  434. }
  435.  
  436. Button_Auto_Backup:
  437. BTN_Auto_Backup()
  438. return
  439. BTN_Auto_Backup()
  440. {
  441. AutoBackup:=!AutoBackup
  442. if AutoBackup
  443. {
  444. Gui,1:+OwnDialogs
  445. FileSelectFolder,PATHBackup,,3,Please select a folder to store a backup
  446. if Errorlevel=0
  447. {
  448. GuiControl,1:,Edit_Auto_Backup,% PATHBackup
  449. IniWrite,% PATHBackup,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,PATH
  450. FileCreateDir,%PATHBackup%\GamePoints
  451. Loop,%PATH1%\*.*,1
  452. {
  453. DATAFolders:=A_LoopFileName
  454. FileCopyDir,%PATH1%\%DATAFolders%,%PATHBackup%\GamePoints\%DATAFolders%,1
  455. GuiControl,1:Enable,Edit_Auto_Backup
  456. }
  457. }
  458. else
  459. {
  460. GuiControl,1:Enable,Edit_Auto_Backup
  461. GuiControl,1:Hide,Button_Auto_Backup
  462. GuiControl,1:Show,Button_Auto_Backup2
  463. }
  464. }
  465. else
  466. {
  467. Gui,1:+OwnDialogs
  468. if (PATH3="NONE" or PATH3="ERROR" or PATH3=""){
  469. MsgBox, 262160, Warning, No target Backup Location.
  470. return
  471. }
  472. else
  473. {
  474. IfNotExist, %Edit_Auto_Backup%
  475. {
  476. MsgBox, 262160, Warning, Backup Location doesn't Exist !!!
  477. return
  478. }
  479. else
  480. {
  481. IniWrite, %Edit_Auto_Backup%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Backup PATH
  482. FileCopyDir,%PATH1%,%Edit_Auto_Backup%,1
  483. sleep, 2000
  484. TrayTip,GPoints,Backup Complete,
  485. MsgBox, Exist
  486. }
  487. }
  488. GuiControl,1:Disable,Edit_Auto_Backup
  489. }
  490.  
  491. }
  492.  
  493.  
  494. Button_Backup:
  495. Gui,1:Submit,Nohide
  496. Gui,1:Hide
  497. Gui,8:Hide
  498. Gui,10:Hide
  499. Gui,11:Hide
  500. EditBackup:=!EditBackup
  501. if EditBackup
  502. {
  503. GuiControl,1:Enable,Edit_Backup
  504. GuiControl,1:,Button_Backup, Apply
  505. }
  506. else
  507. {
  508. GuiControl,1:Disable,Edit_Backup
  509. FileDelete,VANHEARTNET\gpPath.dat:VAN:$DATA
  510. FileAppend,%Edit_Backup%\GP\GamePoints,VANHEARTNET\gpPath.dat:VAN:$DATA
  511. IniWrite,%Edit_Backup%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,PATH
  512. Move_Path()
  513. Reload
  514. }
  515. Gui,1:Show
  516. Gui,8:Show
  517. Gui,10:Show
  518. Gui,11:Show
  519.  
  520. return
  521.  
  522. Backup:
  523. Backup:=!Backup
  524. if (Backup){
  525. GuiControl,1:Hide,LV_1
  526. GuiControl,1:Show,Edit_Backup
  527. GuiControl,1:Show,Button_Backup
  528. Guicontrol,1:Show,Path_Title
  529. Guicontrol,1:Show,Path_Note
  530. GuiControl,1:Show,Edit_Auto_Backup
  531. GuiControl,1:Show,Button_Auto_Backup
  532. GuiControl,1:Show,Backup_Path_Note
  533.  
  534. }
  535. else
  536. {
  537. GuiControl,1:Show,LV_1
  538. GuiControl,1:Hide,Edit_Backup
  539. GuiControl,1:Hide,Button_Backup
  540. Guicontrol,1:Hide,Path_Title
  541. Guicontrol,1:Hide,Path_Note
  542. GuiControl,1:Hide,Edit_Auto_Backup
  543. GuiControl,1:Hide,Button_Auto_Backup
  544. GuiControl,1:Hide,Backup_Path_Note
  545. GuiControl,1:Hide,Button_Auto_Backup2
  546. GuiControl,1:DIsable,Edit_Backup
  547. GuiControl,1:Disable,Edit_Auto_Backup
  548. }
  549. return
  550.  
  551. Show_Redeem:
  552. RedeemFunc()
  553. return
  554.  
  555. RedeemFunc()
  556. {
  557. Gui,1:Hide
  558. Gui,10:Hide
  559. Gui,8:Hide
  560. Gui,11:Hide
  561. Gui,7:Hide
  562. Gui,9:Destroy
  563. Gui,9:Default
  564. Gui,9:+AlwaysOntop -Caption +ToolWindow
  565. Gui,9:Color,% Theme_Color
  566. Gui,9:Font, Times New Roman s8
  567. Gui,9:Add, Groupbox, x5 y2 h590 w890 vGroup_box2 Section,
  568. Gui,9:Add,text,x758 y63 w118 h25 gClear,
  569. Gui,9:Add,Text,x758 y100 w118 h25 gExpired_List,
  570. Gui,9:Add,Progress,x750 y50 w135 h500 BackgroundYellow c%Theme_Color%,100
  571. Gui,9:Add,Text, x853 y14 w40 h20 BackgroundTrans gExitB,
  572. Gui,9:Add,Progress,x850 y10 w40 h20 BackgroundWhite c%Theme_Color%,100
  573. Gui,9:Font, s8 Arial Black Bold cWhite
  574. Gui,9:Add,Text, x855 y14,EXIT
  575. Gui,9:Add,Progress, x756 y58 w119 h27 vBlack1 BackgroundBlack,
  576. Gui,9:Add,Progress, x756 y58 w118 h26 vYellowB BackgroundYellow,
  577. Gui,9:Add,Progress, x757 y59 w118 h26 vBlack Background333333,
  578.  
  579. Gui,9:Add,Progress, x756 y95 w119 h27 vBlack2 BackgroundBlack,
  580. Gui,9:Add,Progress, x756 y95 w118 h26 vYellowB3 BackgroundYellow,
  581. Gui,9:Add,Progress, x757 y96 w118 h26 vBlack4 Background333333,
  582. Gui,9:Font, s10 Arial Black Bold cWhite
  583. Gui,9:Add,text,x758 y63 w118 h25 BackgroundTrans Center vClear, Clear
  584. Gui,9:Font, s9 Arial Black Bold cWhite
  585. Gui,9:Add,text,x758 y103 w118 h25 BackgroundTrans Center vExpired_List, Expired Accounts
  586. Gui,9:Add,text,x20 y554 h25 BackgroundTrans cRed Center vNote, Note :
  587. Gui,9:Font,
  588. Gui,9:Font,cWhite s9
  589. Gui,9:Add,text,x78 y555 h50 w780 BackgroundTrans Center cWhite, % Note
  590. Gui,9:Font,
  591. Gui,9:Font,cWhite s18 Bold underline
  592. Gui,9:Add,text,x20 y18 h50 w820 BackgroundTrans cWhite, % Title
  593.  
  594. Gui,9:Font,
  595. Gui,9:Add,ListView,x20 y50 Grid AltSubmit -Multi NoSortHdr +ReadOnly +Border w720 h500 vLV_2,No.|USERNAME|REF/CODE|DATE|TIME|REWARD #
  596.  
  597. IfExist,%A_Temp%\GP\Rdata\Temp
  598. {
  599. FileRemoveDir,%A_Temp%\GP\Rdata\Temp,1
  600. FileCreateDir,%A_Temp%\GP\Rdata\Temp
  601.  
  602. }
  603. Else
  604. FileCreateDir,%A_Temp%\GP\Rdata\Temp
  605. IfExist,%A_Temp%\GP\Rdata\Temp2
  606. {
  607. FileRemoveDir,%A_Temp%\GP\Rdata\Temp2,1
  608. FileCreateDir,%A_Temp%\GP\Rdata\Temp2
  609. }
  610. else
  611. FileCreateDir,%A_Temp%\GP\Rdata\Temp2
  612. sleep,20
  613. Loop,read,%PATH1%\Rewards\Rdata\Redeemed.file:VAN:$DATA
  614. {
  615. C1 := "Col"
  616. C2 := A_index
  617.  
  618. LV_Add()
  619. LV_Modify(A_index,"COl1",A_Index)
  620. Loop,parse,A_LoopReadLine,`n
  621. {
  622. Loop,parse,A_LoopField,|
  623. {
  624. FileAppend,%A_LoopField%`n,%A_Temp%\GP\Rdata\Temp\Rc%C2%.file:VAN:$DATA
  625. }
  626.  
  627. }
  628. }
  629. Loop,%A_Temp%\GP\Rdata\Temp\*.*,
  630. {
  631. FileName := A_LoopFileName
  632. Loop,read,%A_Temp%\GP\Rdata\Temp\%A_LoopFileName%:VAN:$DATA
  633. {
  634. Loop,parse,A_LoopReadline,|
  635. {
  636. WWW := A_LoopField
  637. c++
  638. if (c=6)
  639. c:=1
  640. FileAppend,%WWW%`n,%A_Temp%\GP\Rdata\Temp2\RD%C%.file:VAN:$DATA
  641. }
  642. }
  643. }
  644.  
  645. ;~ ------------------------------------------------------------------------------------
  646. Loop,%A_Temp%\GP\Rdata\Temp2\*.*,
  647. {
  648. USER := A_LoopFileName
  649. if (A_LoopFileName="RD1.file")
  650. {
  651. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  652. {
  653. Loop,parse,A_LoopReadLine,`n
  654. {
  655. U++
  656. LV_Modify(U,"col2",A_LoopField)
  657. }
  658. }
  659. }
  660. Else if (A_LoopFileName="RD2.file")
  661. {
  662. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  663. {
  664. Loop,parse,A_LoopReadLine,`n
  665. {
  666. CODE++
  667. LV_Modify(CODE,"col3",A_LoopField)
  668. }
  669. }
  670. }
  671. else if (A_LoopFileName="RD3.file")
  672. {
  673. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  674. {
  675. Loop,parse,A_LoopReadLine,`n
  676. {
  677. DATE++
  678. LV_Modify(DATE,"col4",A_LoopField)
  679. }
  680. }
  681. }
  682. else if (A_LoopFileName="RD4.file")
  683. {
  684. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  685. {
  686. Loop,parse,A_LoopReadLine,`n
  687. {
  688. TIME++
  689. LV_Modify(TIME,"col5",A_LoopField)
  690. }
  691. }
  692. }
  693. else if (A_LoopFileName="RD5.file")
  694. {
  695. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  696. {
  697. Loop,parse,A_LoopReadLine,`n
  698. {
  699. REWARD++
  700. LV_Modify(REWARD,"col6",A_LoopField)
  701. }
  702. }
  703. }
  704. }
  705. ;~ ------------------------------------------------------------------------------------
  706.  
  707.  
  708.  
  709. LV_ModifyCol(1,50)
  710. LV_ModifyCol(2,180)
  711. LV_ModifyCol(3,180)
  712. LV_ModifyCol(4,100)
  713. LV_ModifyCol(5,100)
  714. LV_ModifyCol(6,100)
  715.  
  716. LV_ModifyCol(1,"Integer")
  717. LV_ModifyCol(2,"Center")
  718. LV_ModifyCol(3,"Center")
  719. LV_ModifyCol(4,"Center")
  720. LV_ModifyCol(5,"Center")
  721. LV_ModifyCol(6,"Center")
  722. LV_ModifyCol(1,"Center")
  723. ;~ LV_ModifyCol(2,"nosort")
  724. ;~ LV_ModifyCol(5,"sort")
  725.  
  726.  
  727.  
  728. Gui,9:Show, w900 h600,Gui 9
  729. }
  730.  
  731. Expired_List:
  732. ExpiredFunc()
  733. return
  734. ExpiredFunc()
  735. {
  736. Gui,9:Destroy
  737. Gui,9:Default
  738. Gui,9:+AlwaysOntop -Caption +ToolWindow
  739. Gui,9:Color,% Theme_Color
  740. Gui,9:Font, Times New Roman s8
  741. Gui,9:Add, Groupbox, x5 y2 h590 w890 vGroup_box2 Section,
  742. Gui,9:Add,text,x758 y63 w118 h25 gClear_Expired,
  743. Gui,9:Add,Text,x758 y100 w118 h25 gShow_Redeem,
  744. Gui,9:Add,Progress,x750 y50 w135 h500 BackgroundYellow c%Theme_Color%,100
  745. Gui,9:Add,Text, x853 y14 w40 h20 BackgroundTrans gExitB,
  746. Gui,9:Add,Progress,x850 y10 w40 h20 BackgroundWhite c%Theme_Color%,100
  747. Gui,9:Font, s8 Arial Black Bold cWhite
  748. Gui,9:Add,Text, x855 y14,EXIT
  749. Gui,9:Add,Progress, x756 y58 w119 h27 vBlack1 BackgroundBlack,
  750. Gui,9:Add,Progress, x756 y58 w118 h26 vYellowB BackgroundYellow,
  751. Gui,9:Add,Progress, x757 y59 w118 h26 vBlack Background333333,
  752.  
  753. Gui,9:Add,Progress, x756 y95 w119 h27 vBlack2 BackgroundBlack,
  754. Gui,9:Add,Progress, x756 y95 w118 h26 vYellowB3 BackgroundYellow,
  755. Gui,9:Add,Progress, x757 y96 w118 h26 vBlack4 Background333333,
  756. Gui,9:Font, s10 Arial Black Bold cWhite
  757. Gui,9:Add,text,x758 y63 w118 h25 BackgroundTrans Center vClear, Clear
  758. Gui,9:Font, s9 Arial Black Bold cWhite
  759. Gui,9:Add,text,x758 y103 w118 h25 BackgroundTrans Center vExpired_List, Redeemed List
  760. Gui,9:Add,text,x20 y554 h25 BackgroundTrans cRed Center vNote, Note :
  761. Gui,9:Font,
  762. Gui,9:Font,cWhite s9
  763. Gui,9:Add,text,x78 y555 h50 w780 BackgroundTrans Center cWhite, % Note
  764. Gui,9:Font,
  765. Gui,9:Font,cWhite s18 Bold underline
  766. Gui,9:Add,text,x20 y18 h50 w820 BackgroundTrans cWhite, % Title1
  767. Gui,9:Font,
  768. Gui,9:Add,ListView,x20 y50 Grid AltSubmit -Multi NoSortHdr +ReadOnly +Border w720 h500 vLV_1,No.|USERNAME|REGISTERED|LAST LOGIN|POINTS|NO.DAYS|DATE EXPIRED
  769. IfExist,%A_Temp%\GP\Rdata\Temp
  770. {
  771. FileRemoveDir,%A_Temp%\GP\Rdata\Temp,1
  772. FileCreateDir,%A_Temp%\GP\Rdata\Temp
  773.  
  774. }
  775. Else
  776. FileCreateDir,%A_Temp%\GP\Rdata\Temp
  777. IfExist,%A_Temp%\GP\Rdata\Temp2
  778. {
  779. FileRemoveDir,%A_Temp%\GP\Rdata\Temp2,1
  780. FileCreateDir,%A_Temp%\GP\Rdata\Temp2
  781. }
  782. else
  783. FileCreateDir,%A_Temp%\GP\Rdata\Temp2
  784. sleep,20
  785. Loop,read,data\expacct.file:VAN:$DATA
  786. {
  787. C1 := "Col"
  788. C2 := A_index
  789.  
  790. LV_Add()
  791. LV_Modify(A_index,"COl1",A_Index)
  792. Loop,parse,A_LoopReadLine,`n
  793. {
  794. Loop,parse,A_LoopField,|
  795. {
  796. FileAppend,%A_LoopField%`n,%A_Temp%\GP\Rdata\Temp\Rc%C2%.file:VAN:$DATA
  797. }
  798.  
  799. }
  800. }
  801. Loop,%A_Temp%\GP\Rdata\Temp\*.*,
  802. {
  803. FileName := A_LoopFileName
  804. Loop,read,%A_Temp%\GP\Rdata\Temp\%A_LoopFileName%:VAN:$DATA
  805. {
  806. Loop,parse,A_LoopReadline,|
  807. {
  808. WWW := A_LoopField
  809. c++
  810. if (c=7)
  811. c:=1
  812. FileAppend,%WWW%`n,%A_Temp%\GP\Rdata\Temp2\RD%C%.file:VAN:$DATA
  813. }
  814. }
  815. }
  816.  
  817. ;~ ------------------------------------------------------------------------------------
  818. Loop,%A_Temp%\GP\Rdata\Temp2\*.*,
  819. {
  820. USER := A_LoopFileName
  821. if (A_LoopFileName="RD1.file")
  822. {
  823. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  824. {
  825. Loop,parse,A_LoopReadLine,`n
  826. {
  827. U++
  828. LV_Modify(U,"col2",A_LoopField)
  829. }
  830. }
  831. }
  832. Else if (A_LoopFileName="RD2.file")
  833. {
  834. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  835. {
  836. Loop,parse,A_LoopReadLine,`n
  837. {
  838. CODE++
  839. LV_Modify(CODE,"col3",A_LoopField)
  840. }
  841. }
  842. }
  843. else if (A_LoopFileName="RD3.file")
  844. {
  845. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  846. {
  847. Loop,parse,A_LoopReadLine,`n
  848. {
  849. DATE++
  850. LV_Modify(DATE,"col4",A_LoopField)
  851. }
  852. }
  853. }
  854. else if (A_LoopFileName="RD4.file")
  855. {
  856. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  857. {
  858. Loop,parse,A_LoopReadLine,`n
  859. {
  860. TIME++
  861. LV_Modify(TIME,"col5",A_LoopField)
  862. }
  863. }
  864. }
  865. else if (A_LoopFileName="RD5.file")
  866. {
  867. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  868. {
  869. Loop,parse,A_LoopReadLine,`n
  870. {
  871. REWARD++
  872. LV_Modify(REWARD,"col6",A_LoopField)
  873. }
  874. }
  875. }
  876. else if (A_LoopFileName="RD6.file")
  877. {
  878. Loop,read,%A_Temp%\GP\Rdata\Temp2\%A_LoopFileName%:VAN:$DATA
  879. {
  880. Loop,parse,A_LoopReadLine,`n
  881. {
  882. EXPIREDATE++
  883. LV_Modify(EXPIREDATE,"col7",A_LoopField)
  884. }
  885. }
  886. }
  887. }
  888. ;~ ------------------------------------------------------------------------------------
  889.  
  890.  
  891.  
  892. LV_ModifyCol(1,50)
  893. LV_ModifyCol(2,180)
  894. LV_ModifyCol(3,100)
  895. LV_ModifyCol(4,100)
  896. LV_ModifyCol(5,100)
  897. LV_ModifyCol(6,80)
  898. LV_ModifyCol(7,100)
  899.  
  900. LV_ModifyCol(1,"Integer")
  901. LV_ModifyCol(2,"Center")
  902. LV_ModifyCol(3,"Center")
  903. LV_ModifyCol(4,"Center")
  904. LV_ModifyCol(5,"Center")
  905. LV_ModifyCol(6,"Center")
  906. LV_ModifyCol(7,"Center")
  907. LV_ModifyCol(1,"Center")
  908.  
  909.  
  910.  
  911.  
  912. Gui,9:Show, w900 h600,Gui 9
  913. }
  914.  
  915.  
  916. Clear_Expired:
  917. Clear_Expired_Account()
  918. return
  919. Clear_Expired_Account()
  920. {
  921. While GetKeystate("LButton")
  922. {
  923. sleep,2000
  924. return
  925. }
  926. GuiControl,9:Hide,YellowB
  927. GuiCOntrol,9:+cBlack,Clear
  928. sleep, 100
  929. GuiCOntrol,9:+cWhite,Clear
  930. GuiControl,9:SHow,YellowB
  931. GuiControl,9:+redraw,Black1
  932. FileRemoveDir,%A_Temp%\GP\Rdata\Temp
  933. FileRemoveDir,%A_Temp%\GP\Rdata\Temp2
  934.  
  935. IfExist,data\expacct.file:VAN:$DATA
  936. FileDelete,data\expacct.file:VAN:$DATA
  937. gosub, Expired_List
  938. }
  939.  
  940.  
  941. Clear:
  942. Clear_Redeem()
  943. return
  944.  
  945. Clear_Redeem()
  946. {
  947. While GetKeystate("LButton")
  948. {
  949. sleep,2000
  950. return
  951. }
  952. GuiControl,9:Hide,YellowB
  953. GuiCOntrol,9:+cBlack,Clear
  954. sleep, 100
  955. GuiCOntrol,9:+cWhite,Clear
  956. GuiControl,9:SHow,YellowB
  957. GuiControl,9:+redraw,Black1
  958. FileRemoveDir,%A_Temp%\GP\Rdata\Temp
  959. FileRemoveDir,%A_Temp%\GP\Rdata\Temp2
  960. IfExist,%PATH1%\Rewards\Rdata\Redeemed.file:VAN:$DATA
  961. FileDelete,%PATH1%\Rewards\Rdata\Redeemed.file:VAN:$DATA
  962. GuiControl,9:-Redraw,LV_2
  963. GuiControl,9:+Redraw,LV_2
  964. gosub,Show_Redeem
  965. }
  966.  
  967.  
  968. LV_Event:
  969. if (LV_Ev==1)
  970. {
  971. LV_InsertCol("4", Account_Name,"Event")
  972. LV_ModifyCol(3,80)
  973. Loop,%PATH1%\GPoints\*.*,2
  974. {
  975. GG := A_Index
  976. Iniread,EVP,%PATH1%\GPoints\%A_LoopFileName%\info.ini:VAN:$DATA,Accumulated Points,Total
  977. Iniread,PPO2,%PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA,Last Point,Count
  978. if (EVP="ERROR" or EVP="")
  979. EVP:=0
  980. else if (EVP Not ="ERROR" or EVP Not ="")
  981. {
  982. if (PPO2="ERROR" or PPO2="")
  983. EVP := EVP
  984. else if (PPO2>1)
  985. EVP:=EVP+PPO2
  986. else if (PPO2<=1)
  987. EVP := EVP
  988. }
  989.  
  990. LV_Modify(GG,"col4",EVP)
  991. LV_ModifyCol(3,80)
  992. LV_ModifyCol(3,"Center")
  993. LV_ModifyCol(4,50)
  994. LV_ModifyCol(4,"Center")
  995.  
  996.  
  997.  
  998. }
  999. }
  1000. else
  1001. {
  1002. TR := 4
  1003. }
  1004. LV_ModifyCol(1,120)
  1005. LV_ModifyCol(2,60)
  1006. LV_ModifyCol(2,"Integer")
  1007. LV_ModifyCol(2,"SortDesc")
  1008. LV_ModifyCol(2,"Center")
  1009. LV_ModifyCol(3,80)
  1010. LV_ModifyCol(3,"Center")
  1011.  
  1012. return
  1013.  
  1014. Check_IDLE:
  1015. Gui,1:submit,Nohide
  1016. if (CheckIDLE=True)
  1017. {
  1018. CKI := 1
  1019. }
  1020. Else if (CheckIDLE=False)
  1021. {
  1022. CKI := 0
  1023. }
  1024. return
  1025.  
  1026. Edit_IDLE:
  1027. Gui,1:submit,Nohide
  1028. if (EditIDLE="")
  1029. {
  1030. GuiControl,1:,EditIDLE,30
  1031. EditIDLE := 30
  1032. EditIDLE1 := (EditIDLE * Mins)
  1033. }
  1034. else
  1035. {
  1036. EditIDLE1 := (EditIDLE * Mins)
  1037. }
  1038. return
  1039.  
  1040.  
  1041. Chk1:
  1042. Gui,1:submit,Nohide
  1043. if (Check1==1)
  1044. {
  1045. CKB := 1
  1046. GuiControl,,Check1,1
  1047. }
  1048. Else if (Check1==0)
  1049. {
  1050. CKB := 0
  1051. GuiControl,,Check1,0
  1052. Gui,+OwnDialogs
  1053. MsgBox, 262180, Message, Do you want to reset Participant's List?
  1054. IfMsgBox, Yes
  1055. {
  1056. IfExist,%PATH1%\Rewards\Participants.txt:VAN:$DATA
  1057. {
  1058. FileDelete,%PATH1%\Rewards\Participants.txt:VAN:$DATA
  1059. }
  1060. }
  1061.  
  1062. }
  1063. return
  1064.  
  1065. Chk2:
  1066. Gui,1:submit,Nohide
  1067. if (Check2==1)
  1068. {
  1069.  
  1070. GuiControl,,Check2,1
  1071. CKB2 := 1
  1072. }
  1073. Else if (Check2==0)
  1074. {
  1075.  
  1076. GuiControl,,Check2,0
  1077. CKB2 := 0
  1078. }
  1079. return
  1080.  
  1081. Chk3:
  1082. Gui,1:Submit,Nohide
  1083. if (Check3==1)
  1084. {
  1085. GuiControl,,Check3,1
  1086. CKB3 := 1
  1087. }
  1088. else if (Check3==0)
  1089. {
  1090. GuiControl,,Check3,0
  1091. CKB3 := 0
  1092. Gui,1:+OwnDialogs
  1093. MsgBox, 262180, Warning, Do you want to reset all event points?
  1094. IfMsgBox, Yes
  1095. {
  1096. Loop,%PATH1%\GPoints\*.*,2
  1097. {
  1098. IniDelete,%PATH1%\GPoints\%A_LoopFileName%\Info.ini:VAN:$DATA,Accumulated Points,Total
  1099. }
  1100. }
  1101. }
  1102. return
  1103.  
  1104. BTN_Confirm:
  1105. Gui,6:Submit,Nohide
  1106. if (EditAdmin1="ERROR" or EditAdmin1=""){
  1107. ToolTip,Please Enter Your Old Password,160,40,1
  1108. sleep, 2000
  1109. Tooltip,
  1110. }
  1111. else if (EditAdmin2=""){
  1112. ToolTip,Please Enter Your New Password,160,70,1
  1113. sleep, 2000
  1114. Tooltip,
  1115. }
  1116. Else if (EditAdmin1 Not==ADMPass){
  1117. ToolTip,Wrong Password!,160,40,1
  1118. sleep, 2000
  1119. Tooltip,
  1120. }
  1121. Else if(EditAdmin1==EditAdmin2){
  1122. ToolTip,Please choose different Password!,160,70,1
  1123. sleep, 2000
  1124. Tooltip,
  1125. }
  1126. Else
  1127. {
  1128. MsgBox, 262208, Success, Password successfully changed.`n`n-Thank You!
  1129. IniWrite,%EditAdmin2%,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  1130. Gui,6:Hide
  1131. Gui,1:show
  1132. Gui,8:show
  1133. Gui,10:show
  1134. Gui,11:show
  1135. }
  1136. return
  1137.  
  1138. List_View_1:
  1139. Double := A_GuiEvent
  1140. if (Double="DoubleClick")
  1141. {
  1142. GET := LV_GetText(EVE,A_EventInfo)
  1143. GU := A_EventInfo
  1144. Loop,%PATH1%\GPoints\*.*,2
  1145. {
  1146. if (EVE==A_LoopFileName)
  1147. {
  1148. AccName := A_LoopFileName
  1149. gosub,Account_Info
  1150. IniRead,MFPoints,%PATH1%\GPoints\%A_LoopFileName%\info.ini:VAN:$DATA,TOTAL,Points
  1151. IniRead,MFLastPoints,%PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA,Last Point,Count
  1152. if (MFLastPoints="ERROR")
  1153. MFLastPoints := 0
  1154. Gui,7:Destroy
  1155. Gui,7:+AlwaysontOp -Caption +ToolWindow
  1156. Gui,7:Color, c6699ff
  1157. IfExist,%PATH1%\DATA\PNG\MFWallpaper.png
  1158. Gui,7:Add,Picture,x0 y0 w600 h200 BackgroundTrans vWallpaper2, %PATH1%\DATA\PNG\MFWallpaper.png
  1159. Else IfExist,%A_Temp%\GPP\MFWallpaper.png
  1160. Gui,7:Add,Picture,x0 y0 w600 h200 vWallpaper2, %A_Temp%\GPP\MFWallpaper.png
  1161. Gui,7:Font, cRed Aial Black Bold
  1162. Gui,7:Add,Groupbox, x10 y10 w210 h50,Account Name `
  1163. Gui,7:Add,Progress, x380 y40 w200 h110 BackgroundWhite c000033 vProgressB1, 100
  1164. Gui,7:Add,Progress, x380 y18 w80 h20 Background001f4d cc6699ff, 100
  1165. Gui,7:Font,
  1166. Gui,7:Font, cRed Aial Black Bold
  1167. Gui,7:Add,text, x381 y20 +BackgroundTrans cBlack vTextPCName,%A_Space%Information :
  1168. Gui,7:Font
  1169. Gui,7:Add,text, x390 y50 +BackgroundTrans cWhite,Registered : %DateReg%
  1170. Gui,7:Add,text, x390 y+10 +BackgroundTrans cWhite,Computer : %LastPC%
  1171. Gui,7:Add,text, x390 y+10 +BackgroundTrans cWhite,Last Login : %LastLogDate% - %LastLogTime%
  1172. Gui,7:Add,text, x390 y+10 +BackgroundTrans cWhite,Status :
  1173. Gui,7:Font,
  1174. Gui,7:Font, cRed Aial Black Bold
  1175. LV_GetText(MM,A_EventInfo,3)
  1176. if InStr(MM,"ONLINE")
  1177. ST := "ONLINE"
  1178. else
  1179. ST := "OFFLINE"
  1180. if (ST="ONLINE")
  1181. Gui,7:Add,text, x449 y120 +BackgroundTrans cLime,%ST%
  1182. else
  1183. Gui,7:Add,text, x449 y120 +BackgroundTrans cff3333,%ST%
  1184. Gui,7:Font, s16 Bold
  1185. Gui,7:Add,text, xs+15 ys+24 +Center -Background cBlack +Border w200 h30 vTextname ,%A_LoopFileName%
  1186. Gui,7:Font, s12
  1187. Gui,7:Add,text, cRed x578 y1 w25 h20 vTextX1 gText_X,
  1188. Gui,7:Add,Progress,% "x578 y1 w20 h20 Background" Colors.1,100
  1189. Gui,7:Add,Progress,% "x578 y1 w21 h20 Background" Colors.2,100
  1190. Gui,7:Add,text, cRed x577 y1 +Center +BackgroundTrans w25 h50 vTextX,X
  1191. Gui,7:Font,s10
  1192. Gui,7:Add,Edit, x20 y70 +Border +center r1 Limit10 Disabled Number w50 h50 vEditPoints,% MFPoints
  1193. Gui,7:Add,Edit, x20 y100 +Border +Center r1 Limit10 Disabled Number w50 h20 vEditLastPoints,% MFLastPoints
  1194. Gui,7:Add,Edit, x220 y160 +Border r1 w300 h20 vSendMessage,
  1195. Gui,7:Font
  1196. Gui,7:Add,Button, x80 y70 gEdit_Points w100 h25,Edit Points
  1197. Gui,7:Add,Button, x80 y100 gEdit_Last_Points w100 h25,Edit Last Points
  1198. Gui,7:Add,Button, x20 y160 gDelete_Account,Delete Account
  1199. Gui,7:Add,Button, x+10 y160 gSave_MF,Save
  1200. Gui,7:Add,Button, x+380 y160 w50 gSend,Send
  1201. Gui,7:Font,Calibri Bold Italic cLime
  1202. Gui,7:Add,text,x220 y140 +BackgroundTrans ,Message :
  1203. WinGetPos,XG1,YG1,,,GPoints Control Panel
  1204. Rank := A_EventInfo
  1205. YG1 := YG1 - 210
  1206. Gui,7:Show,x%XG1% y%YG1% w600 h200,Gui7
  1207.  
  1208. }
  1209. }
  1210. }
  1211. return
  1212.  
  1213. Send:
  1214. Gui,7:Submit,Nohide
  1215. FileAppend,%SendMessage%`n, %PATH1%\GPoints\%AccName%\MyRewards.file:VAN:$DATA
  1216. GuiControl,7:,SendMessage,
  1217. return
  1218.  
  1219. Save_MF:
  1220. Gui,7:Submit,Nohide
  1221. GuiControl,7:Disable,EditPoints
  1222. GuiControl,7:Disable,EditLastPoints
  1223. IniWrite,%EditPoints%,%PATH1%\GPoints\%AccName%\info.ini:VAN:$DATA,TOTAL,Points
  1224. IniWrite,%EditLastPoints%,%PATH1%\GPoints\%AccName%\logs.ini:VAN:$DATA,Last Point,Count
  1225. return
  1226.  
  1227. Edit_Points:
  1228. GuiControl,7:Enable,EditPoints
  1229. return
  1230.  
  1231. Edit_Last_Points:
  1232. GuiControl,7:Enable,EditLastPoints
  1233. return
  1234.  
  1235. Delete_Account:
  1236. Gui,+Owndialogs
  1237. MsgBox, 262180, Message, Do you want to delete Member %EVE%?
  1238. IfMsgBox, Yes
  1239. {
  1240. FileRemoveDir,%PATH1%\GPoints\%AccName%,1
  1241. Gui,1:Default
  1242. LV_Rdraw()
  1243. }
  1244. return
  1245.  
  1246. Text_X:
  1247. Gui,7:Destroy
  1248. return
  1249.  
  1250. DLst1:
  1251. Gui,1:Submit,Nohide
  1252. if (Edit1="ERROR" or Edit1="")
  1253. {
  1254. MsgBox, Please Input a Number
  1255. }
  1256. else
  1257. {
  1258. Loop,parse,TIME,|
  1259. {
  1260. if (DList1==A_Index)
  1261. {
  1262. if (A_Index==1)
  1263. {
  1264. TIMESPENT := (Edit1*Secs)
  1265. TTT := Secs
  1266. TTTT := "Seconds"
  1267. }
  1268. Else if (A_Index==2)
  1269. {
  1270. TIMESPENT := (Edit1 * Mins)
  1271. TTT := Mins
  1272. TTTT := "Minutes"
  1273. }
  1274. Else if (A_Index==3)
  1275. {
  1276. TIMESPENT := (Edit1 * Hrs)
  1277. TTT := Hrs
  1278. TTTT := "Hours"
  1279. }
  1280. }
  1281. }
  1282. }
  1283.  
  1284. return
  1285.  
  1286. Edt1:
  1287. gui,1:Submit,Nohide
  1288. if (Edit1="ERROR" or Edit1="")
  1289. {
  1290. ControlSetText,Edit1,15
  1291.  
  1292. }
  1293. return
  1294.  
  1295. Butt1:
  1296. gosub,DLst1
  1297. Iniwrite,%CKB%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  1298. Iniwrite,%CKB2%,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  1299. Iniwrite,%CKB3%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,EVENT
  1300. IniWrite,%TIMESPENT%,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  1301. IniWrite,%TTTT%,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SMH
  1302. Iniwrite,%EditexD%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  1303. IniWrite,%EditIDLE1%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLE
  1304. Iniwrite,%CKI%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLEMODE
  1305. if (EditHours=True)
  1306. {
  1307. EditHours := False
  1308. GuiControl,1:Disable,Edit1
  1309. GuiControl,1:Disable,DList1
  1310. GuiControl,1:Disable,EditexD
  1311. GuiControl,1:Disable,EditIDLE
  1312.  
  1313. }
  1314. return
  1315. ;~ #####################################################################################################################################
  1316. ;~ ############################################# GUI 4 #################################################################
  1317. ;~ #####################################################################################################################################
  1318. Butt_Setting:
  1319. Gui,4:Destroy
  1320. WinGetPos,X1, Y1,,,A
  1321. Gui,4:-Caption +ToolWindow
  1322. Gui,4:Color,%Theme_Color%
  1323. Gui,4:Font, cWhite Bold
  1324. Gui,4:add,Groupbox, x5 y0 w300 h395 +Center Section, Rewards Title
  1325. Gui,4:Add,Button,xs+230 ys+360 w60 h25 +Border Center vBTNRTextSave gBTN_RText_Save, Save
  1326. Gui,4:Add,Button,xs+165 ys+360 w60 h25 +Border Center vBTNRTextCancel gBTN_RText_Cancel, Cancel
  1327. Gui,4:Add,Button,xs+10 ys+360 w60 h25 +Border Center vBTNRTextEdit gBTN_RText_Edit, Edit
  1328.  
  1329. Gui,4:Font, cBlue
  1330. Gui,4:Add,Edit,xs+10 ys+20 w260 Center Border Disabled vEditRText1 gEdit_R_Text1,% RText1
  1331. Gui,4:Add,Edit,xs+10 ys+50 w260 Center Border Disabled vEditRText2 gEdit_R_Text2,% RText2
  1332. Gui,4:Add,Edit,xs+10 ys+80 w260 Center Border Disabled vEditRText3 gEdit_R_Text3,% RText3
  1333. Gui,4:Add,Edit,xs+10 ys+110 w260 Center Border Disabled vEditRText4 gEdit_R_Text4,% RText4
  1334. Gui,4:Add,Edit,xs+10 ys+140 w260 Center Border Disabled vEditRText5 gEdit_R_Text5,% RText5
  1335. Gui,4:Add,Edit,xs+10 ys+170 w260 Center Border Disabled vEditRText6 gEdit_R_Text6,% RText6
  1336. Gui,4:Add,Edit,xs+10 ys+200 w260 Center Border Disabled vEditRText7 gEdit_R_Text7,% RText7
  1337. Gui,4:Add,Edit,xs+10 ys+230 w260 Center Border Disabled vEditRText8 gEdit_R_Text8,% RText8
  1338. Gui,4:Add,Edit,xs+10 ys+260 w260 Center Border Disabled vEditRText9 gEdit_R_Text9,% RText9
  1339. Gui,4:Font,
  1340. Gui,4:Font, underline Bold
  1341. Gui,4:Add,Text,c99ffcc xs+275 ys+25 BackgroundTrans +Center,R1
  1342. Gui,4:Add,Text,c99ffcc xs+275 ys+55 BackgroundTrans +Center,R2
  1343. Gui,4:Add,Text,c99ffcc xs+275 ys+85 BackgroundTrans +Center,R3
  1344. Gui,4:Add,Text,c99ffcc xs+275 ys+115 BackgroundTrans +Center,R4
  1345. Gui,4:Add,Text,c99ffcc xs+275 ys+145 BackgroundTrans +Center,R5
  1346. Gui,4:Add,Text,c99ffcc xs+275 ys+175 BackgroundTrans +Center,R6
  1347. Gui,4:Add,Text,c99ffcc xs+275 ys+205 BackgroundTrans +Center,R7
  1348. Gui,4:Add,Text,c99ffcc xs+275 ys+235 BackgroundTrans +Center,R8
  1349. Gui,4:Add,Text,c99ffcc xs+275 ys+265 BackgroundTrans +Center,R9
  1350.  
  1351.  
  1352.  
  1353. XT := (X1+380)
  1354. Loop
  1355. {
  1356. X1++
  1357. Gui,4:Show,% "x" X1 "y" Y1 + 25 "w" 310 "h" 400 , Gui 4
  1358. if (X1==XT)
  1359. break
  1360. }
  1361. Gosub, Read_Reward_Text
  1362. Gui,4:+AlwaysOntop
  1363.  
  1364. ;~ #####################################################################################################################################
  1365. ;~ ############################################# GUI 5 #################################################################
  1366. ;~ #####################################################################################################################################
  1367. FileRead,BannerText,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1368. WinGetPos,X1, Y1,,,Gui 2
  1369. Gui,5:Destroy
  1370. Gui,5:-Caption +ToolWindow
  1371. Gui,5:Color,%Theme_Color%
  1372. Gui,5:Font, cWhite Bold
  1373. Gui,5:Add,Groupbox, x5 y0 w190 h395 +Center Section, Admin
  1374. Gui,5:Add,Button,xs+10 ys+100 w50 h25 +Border +Center gBTN_CH_1, R1
  1375. Gui,5:Add,Button,xs+70 ys+100 w50 h25 +Border +Center gBTN_CH_2, R2
  1376. Gui,5:Add,Button,xs+130 ys+100 w50 h25 +Border +Center gBTN_CH_3, R3
  1377. Gui,5:Add,Button,xs+10 ys+125 w50 h25 +Border +Center gBTN_CH_4, R4
  1378. Gui,5:Add,Button,xs+70 ys+125 w50 h25 +Border +Center gBTN_CH_5, R5
  1379. Gui,5:Add,Button,xs+130 ys+125 w50 h25 +Border +Center gBTN_CH_6, R6
  1380. Gui,5:Add,Button,xs+10 ys+150 w50 h25 +Border +Center gBTN_CH_7, R7
  1381. Gui,5:Add,Button,xs+70 ys+150 w50 h25 +Border +Center gBTN_CH_8, R8
  1382. Gui,5:Add,Button,xs+130 ys+150 w50 h25 +Border +Center gBTN_CH_9, R9
  1383. Gui,5:Add,Button,xs+200 ys+365 w170 h25 +Border, Cancel
  1384. Gui,5:Add,Slider,xs+10 ys+205 w170 Range1-60 Disabled vSlider1 gSlider1,Up Time
  1385. Gui,5:Font, +UnderLine
  1386. Gui,5:Add,Text,cYellow xs+5 ys+80 w170 h20 BackgroundTrans +Center,REWARD IMAGES
  1387. GUi,5:Add,Checkbox,xs+10 ys+370 vCBAdminPass gCB_Admin_Pass,Enable Admin Password
  1388. Gui,5:Font
  1389. Gui,5:Font, Courier New s10
  1390. Iniread,SliderText,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  1391. Gui,5:Add,Text,xs+25 ys+185 cAqua w140 +Center vSliderText,%SliderText% Minutes/s
  1392. GuiControl,5:,Slider1,% SliderText
  1393. Gui,5:Font, s8 Bold
  1394. Gui,5:Add,Button,xs+10 ys+340 w170 Border +Center cRed vBTNChangePass gBTN_Cahnge_Pass, Change Admin Password
  1395. Gui,5:Add,Button,xs+10 ys+20 w170 +Border +Center gChange_Background, Change Background
  1396. Gui,5:Add,Picture,xs+12 ys+243 w165 h30,VANHEARTNET\Text.png
  1397. Gui,5:Add,Text,xs+18 ys+250 w170 h30 cRed +BackgroundTrans gEditSlider, Click Here to Edit Up Time
  1398. Gui,5:Add, Button, xs+10 ys+45 w170 +Center +Border vBTNBanner gBTN_Banner, Change Banner
  1399. Gui,5:Add,Edit, xs+10 ys+280 r1 w170 +Border vEditBanner gEdit_Banner,% BannerText
  1400. Gui,5:Add,Button,xs+10 ys+310 w170 gBTN_Change_MFWallpaper, Profile Wallpaper
  1401.  
  1402.  
  1403. Read_CBAdmin()
  1404.  
  1405. XTT := (X1-210)
  1406. Loop
  1407. {
  1408. X1--
  1409. Gui,5:Show,% "x" X1 "y" Y1 + 25 "w" 200 "h" 400 , Gui 5
  1410. if (X1==XTT)
  1411. break
  1412.  
  1413. }
  1414. Gui,5:+AlwaysOntop
  1415. return
  1416.  
  1417. Edit_Banner:
  1418. Gui,5:Submit,Nohide
  1419. if (EditBanner="")
  1420. FileDelete,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1421. else
  1422. {
  1423. IfExist,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1424. {
  1425. FileDelete,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1426. FileAppend,%EditBanner%,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1427. }
  1428. else
  1429. {
  1430. FileAppend,V A N H E A R T N E T,%PATH1%\DATA\Ban.dat:VAN:$DATA
  1431. }
  1432. }
  1433. return
  1434.  
  1435. BTN_Banner:
  1436. Gui,2:Hide
  1437. Gui,4:Hide
  1438. Gui,5:hide
  1439.  
  1440. FileSelectFile,BannerPic,8,,,PNG Files 400 x 40 (*.png)
  1441. if Errorlevel=0
  1442. {
  1443. FileCopy,%BannerPic%,%PATH1%\DATA\PNG\BANNER.png,1
  1444. }
  1445. Gui,2:Show
  1446. Gui,4:Show
  1447. Gui,5:Show
  1448. return
  1449.  
  1450. BTN_Change_MFWallpaper:
  1451. Gui,2:Hide
  1452. Gui,4:Hide
  1453. Gui,5:hide
  1454.  
  1455. FileSelectFile,MFWallpaper,8,,,PNG Files 600 x 200 (*.png)
  1456. if Errorlevel=0
  1457. {
  1458. FileCopy,%MFWallpaper%,%PATH1%\DATA\PNG\MFWallpaper.png,1
  1459. }
  1460. Gui,2:Show
  1461. Gui,4:Show
  1462. Gui,5:Show
  1463. return
  1464.  
  1465. EditSlider:
  1466. OnSlider:=!OnSlider
  1467.  
  1468. if OnSlider
  1469. GuiControl,5:Enable,Slider1
  1470. else
  1471. GuiControl,5:Disable,Slider1
  1472. return
  1473. Slider1:
  1474. ToolTip, Indicates the required Up time for points before added
  1475. IniWrite,%Slider1%,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  1476. GuiControl,5:,SliderText,%Slider1% Minutes
  1477. sleep,500
  1478. ToolTip,
  1479. return
  1480.  
  1481. Read_Reward_Text:
  1482. {
  1483. Loop 9
  1484. {
  1485. Iniread,RTextA_Index,%PATH1%\DATA\Config.ini:VAN:$DATA,Reward text,R%A_Index%
  1486. GuiControl,4:,EditRText%A_Index%,%RTextA_Index%
  1487. }
  1488. }
  1489. return
  1490.  
  1491. BTN_RText_Save:
  1492. Gui,4:Submit,Nohide
  1493. Loop 9
  1494. {
  1495. TextRewardTitle := EditRText%A_Index%
  1496. IniWrite,%TextRewardTitle%,%PATH1%\DATA\Config.ini:VAN:$DATA,Reward text,R%A_Index%
  1497. GuiControl,4:Disable,EditRText%A_Index%
  1498. }
  1499. return
  1500. BTN_RText_Cancel:
  1501. SCRW := (A_ScreenWidth-100)
  1502. Loop 9
  1503. {
  1504. GuiControl,4:Disable,EditRText%A_Index%
  1505. }
  1506. WinGetPos,XG4,YG4,,,Gui 4
  1507. Loop
  1508. {
  1509. XG4++
  1510. Gui,4:Show,% "x" XG4 "y" YG4 "w" 310 "h" 410 , Gui 4
  1511. If (XG4==SCRW)
  1512. Break
  1513. }
  1514.  
  1515. Gui,4:Hide
  1516.  
  1517. return
  1518. BTN_RText_Edit:
  1519. Loop 9
  1520. {
  1521. GuiControl,4:Enable,EditRText%A_Index%
  1522. }
  1523. return
  1524.  
  1525. BTN_Cahnge_Pass:
  1526. IniRead,ADMPass,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  1527. Gui,2:Hide
  1528. Gui,4:Hide
  1529. Gui,5:hide
  1530. Gui,6:Show, w213 h130
  1531. return
  1532. CB_Admin_Pass:
  1533. Gui,5:Submit,Nohide
  1534. if (CBAdminPass=1)
  1535. {
  1536. Iniwrite,1,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECT,Mode
  1537. CBA := 1
  1538. }
  1539. Else if (CBAdminPass=0)
  1540. {
  1541. Iniwrite,0,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECT,Mode
  1542. CBA := 0
  1543. }
  1544. return
  1545.  
  1546. Change_Background:
  1547. Gui,2:Hide
  1548. Gui,4:Hide
  1549. Gui,5:hide
  1550.  
  1551. FileSelectFile,Background,8,,,PNG Files 800 x 300 (*.png)
  1552. if Errorlevel=0
  1553. {
  1554. IfExist,%PATH1%\DATA\PNG\GPBackground.png
  1555. {
  1556. FileSetAttrib,-H,%PATH1%\DATA\PNG\GPBackground.png
  1557. FileCopy,%Background%,%PATH1%\DATA\PNG\GPBackground.png,1
  1558. FileSetAttrib,+H,%PATH1%\DATA\PNG\GPBackground.png
  1559. }
  1560. else
  1561. {
  1562. FileCopy,%Background%,%PATH1%\DATA\PNG\GPBackground.png,1
  1563. FileSetAttrib,+H,%PATH1%\DATA\PNG\GPBackground.png
  1564. }
  1565.  
  1566. }
  1567. Gui,2:Show
  1568. return
  1569.  
  1570. BTN_CH_1:
  1571. Gui,2:Hide
  1572. Gui,4:Hide
  1573. Gui,5:hide
  1574. RewardPNG := "Reward1.png"
  1575. gosub, BTN_CH_Index
  1576. return
  1577. BTN_CH_2:
  1578. Gui,2:Hide
  1579. Gui,4:Hide
  1580. Gui,5:hide
  1581. RewardPNG := "Reward2.png"
  1582. gosub, BTN_CH_Index
  1583. return
  1584. BTN_CH_3:
  1585. Gui,2:Hide
  1586. Gui,4:Hide
  1587. Gui,5:hide
  1588. RewardPNG := "Reward3.png"
  1589. gosub, BTN_CH_Index
  1590. return
  1591. BTN_CH_4:
  1592. Gui,2:Hide
  1593. Gui,4:Hide
  1594. Gui,5:hide
  1595. RewardPNG := "Reward4.png"
  1596. gosub, BTN_CH_Index
  1597. return
  1598. BTN_CH_5:
  1599. Gui,2:Hide
  1600. Gui,4:Hide
  1601. Gui,5:hide
  1602. RewardPNG := "Reward5.png"
  1603. gosub, BTN_CH_Index
  1604. return
  1605. BTN_CH_6:
  1606. Gui,2:Hide
  1607. Gui,4:Hide
  1608. Gui,5:hide
  1609. RewardPNG := "Reward6.png"
  1610. gosub, BTN_CH_Index
  1611. return
  1612. BTN_CH_7:
  1613. Gui,2:Hide
  1614. Gui,4:Hide
  1615. Gui,5:hide
  1616. RewardPNG := "Reward7.png"
  1617. gosub, BTN_CH_Index
  1618. return
  1619. BTN_CH_8:
  1620. Gui,2:Hide
  1621. Gui,4:Hide
  1622. Gui,5:hide
  1623. RewardPNG := "Reward8.png"
  1624. gosub, BTN_CH_Index
  1625. return
  1626. BTN_CH_9:
  1627. Gui,2:Hide
  1628. Gui,4:Hide
  1629. Gui,5:hide
  1630. RewardPNG := "Reward9.png"
  1631. gosub, BTN_CH_Index
  1632. return
  1633.  
  1634. Edit_R_Text1:
  1635. EditRTexts := "EditRText1"
  1636. return
  1637. Edit_R_Text2:
  1638. EditRTexts := "EditRText2"
  1639. return
  1640. Edit_R_Text3:
  1641. EditRTexts := "EditRText3"
  1642. return
  1643. Edit_R_Text4:
  1644. EditRTexts := "EditRText4"
  1645. return
  1646. Edit_R_Text5:
  1647. EditRTexts := "EditRText5"
  1648. return
  1649. Edit_R_Text6:
  1650. EditRTexts := "EditRText6"
  1651. return
  1652. Edit_R_Text7:
  1653. EditRTexts := "EditRText7"
  1654. return
  1655. Edit_R_Text8:
  1656. EditRTexts := "EditRText8"
  1657. return
  1658. Edit_R_Text9:
  1659. EditRTexts := "EditRText9"
  1660. return
  1661.  
  1662. BTN_CH_Index:
  1663.  
  1664. FileSelectFile,RewardPic,8,,,PNG Files 200 x 100 (*.png)
  1665. if Errorlevel=0
  1666. {
  1667. IfExist,%PATH1%\DATA\PNG\%RewardPNG%
  1668. {
  1669. FileSetAttrib,-H,%PATH1%\DATA\PNG\%RewardPNG%
  1670. FileCopy,%RewardPic%,%PATH1%\DATA\PNG\%RewardPNG%,1
  1671. FileSetAttrib,+H,%PATH1%\DATA\PNG\%RewardPNG%
  1672. }
  1673. else
  1674. {
  1675. FileCopy,%RewardPic%,%PATH1%\DATA\PNG\%RewardPNG%,1
  1676. FileSetAttrib,+H,%PATH1%\DATA\PNG\%RewardPNG%
  1677. }
  1678. }
  1679. Gui,2:Show
  1680. Gui,4:Show
  1681. Gui,5:Show
  1682. return
  1683.  
  1684. Read:
  1685. IniRead,PATH3,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Backup PATH
  1686. IniRead,PATH2,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,PATH
  1687. Iniread,TEdit1,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  1688. Iniread,ExDays,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  1689. Iniread,Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  1690. if (PATH3= "ERROR" or PATH3="")
  1691. PATH3:="NONE"
  1692. if (Theme_Color="ERROR" or Theme_Color="")
  1693. {
  1694. Iniwrite,222222,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  1695. Theme_Color:=222222
  1696. }
  1697. if (TEdit1="ERROR" or TEdit1="")
  1698. {
  1699. IniWrite,900000,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  1700. Number_Edit1 := 15
  1701. Number_Mode := Secs
  1702. ControlSetText,,Edit1,15
  1703. }
  1704. Else
  1705. {
  1706.  
  1707. Iniread,SMHR,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SMH
  1708. if (SMHR="ERROR" or SMHR="")
  1709. {
  1710. IniWrite,Seconds,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SMH
  1711. TIME :="Seconds||Minutes|Hours|"
  1712. Number_Mode := Secs
  1713.  
  1714. }
  1715. Else if (SMHR=="Seconds")
  1716. {
  1717. if (TEdit1==1000)
  1718. {
  1719. TIME :="Second||Minute|Hour|"
  1720. Number_Mode := Secs
  1721. }
  1722. else
  1723. {
  1724.  
  1725. TIME :="Seconds||Minutes|Hours|"
  1726. Number_Mode := Secs
  1727. }
  1728. }
  1729. Else if (SMHR=="Minutes")
  1730. {
  1731.  
  1732. if (TEdit1==60000)
  1733. {
  1734. TIME :="Second|Minute||Hour|"
  1735. Number_Mode := Mins
  1736. }
  1737. else
  1738. {
  1739. TIME :="Seconds|Minutes||Hours|"
  1740. Number_Mode := Mins
  1741. }
  1742. }
  1743. Else if (SMHR=="Hours")
  1744. {
  1745. if (TEdit1==3600000)
  1746. {
  1747. TIME :="Second|Minute|Hour||"
  1748. Number_Mode := Hrs
  1749. }
  1750. else
  1751. {
  1752. TIME :="Seconds|Minutes|Hours||"
  1753. Number_Mode := Hrs
  1754. }
  1755. }
  1756. Number_Edit1 := (TEdit1//Number_Mode)
  1757.  
  1758. }
  1759. return
  1760.  
  1761. Txt2:
  1762. Color_theme()
  1763. return
  1764.  
  1765. Butt_Edit:
  1766. Gui,1:Submit,Nohide
  1767. GuiControl,1:+cRed,Edit1
  1768. GuiControl,1:+cRed,DList1
  1769. GuiControl,1:+cRed,EditexD
  1770. GuiControl,1:+cRed,EditIDLE
  1771. if (EditHours=False)
  1772. {
  1773. GuiControl,1:Enable,Edit1
  1774. GuiControl,1:Enable,DList1
  1775. GuiControl,1:Enable,EditexD
  1776. GuiControl,1:Enable,EditIDLE
  1777. EditHours := true
  1778. }
  1779. return
  1780.  
  1781. EdtBoost1:
  1782. Gui,2:Submit,Nohide
  1783. if (EditBoost1="")
  1784. {
  1785. GuiControl,2:,EditBoost1,1
  1786. }
  1787. return
  1788. EdtBoost2:
  1789. Gui,2:Submit,Nohide
  1790. if (EditBoost2="")
  1791. {
  1792. GuiControl,2:,EditBoost2,1
  1793. }
  1794. return
  1795. EdtBoost3:
  1796. Gui,2:Submit,Nohide
  1797. if (EditBoost3="")
  1798. {
  1799. GuiControl,2:,EditBoost3,1
  1800. }
  1801. return
  1802.  
  1803. Edit_Process1:
  1804. if (EditProcess1="")
  1805. GuiControl,2:,EditProcess1,Example1.exe
  1806. return
  1807. Edit_Process2:
  1808. if (EditProcess2="")
  1809. GuiControl,2:,EditProcess2,Example2.exe
  1810. return
  1811. Edit_Process3:
  1812. if (EditProcess3="")
  1813. GuiControl,2:,EditProcess3,Example3.exe
  1814. return
  1815.  
  1816. Edit_exD:
  1817. Gui,1:Submit,Nohide
  1818. if (EditexD="")
  1819. GuiControl,1:,EditexD,30
  1820. return
  1821.  
  1822. Butt_EditAnnouncement:
  1823. FileRead,ANNTITLE,%PATH1%\DATA\Announcement_Title.dat:VAN:$DATA
  1824. FileRead,ANNMain,%PATH1%\DATA\Announcement.dat:VAN:$DATA
  1825. IniRead,TourReqPoints,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament Points
  1826. Iniread,Proc1,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P1
  1827. Iniread,Proc2,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P2
  1828. Iniread,Proc3,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P3
  1829. Iniread,Boost1,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime1
  1830. Iniread,Boost2,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime2
  1831. Iniread,Boost3,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime3
  1832. Loop 9
  1833. {
  1834. IniRead,RewardRP%A_Index%,%PATH1%\DATA\Config.ini:VAN:$DATA,REWARDS,REQ%A_Index%
  1835. Rew := RewardRP%A_Index%
  1836. if (Rew="ERROR" or Rew="")
  1837. {
  1838. IniWrite,100,%PATH1%\DATA\Config.ini:VAN:$DATA,REWARDS,REQ%A_Index%
  1839. }
  1840. else
  1841. {
  1842. GuiControl,2:,RewardReqP%A_Index%,% Rew
  1843. }
  1844. }
  1845. Guicontrol,2:,EditAnnT,% ANNTITLE
  1846. Guicontrol,2:,EditAnn,% ANNMain
  1847. Guicontrol,2:,EditTourPoints,% TourReqPoints
  1848. Guicontrol,2:,EditProcess1,% Proc1
  1849. Guicontrol,2:,EditProcess2,% Proc2
  1850. Guicontrol,2:,EditProcess3,% Proc3
  1851. Guicontrol,2:,EditBoost1,% Boost1
  1852. Guicontrol,2:,EditBoost2,% Boost2
  1853. Guicontrol,2:,EditBoost3,% Boost3
  1854. Loop,%PATH1%\\Rewards\*.dat
  1855. {
  1856. FileRead,RRWRD%A_Index%,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1857. RRR := RRWRD%A_Index%
  1858. if (RRR="")
  1859. {
  1860. Loop 10
  1861. {
  1862. FileAppend,EMPTY`n,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1863. }
  1864. }
  1865.  
  1866. FileReadLine,AA%A_Index%,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA,1
  1867. 1stLine := AA%A_Index%
  1868. if (1stLine="")
  1869. {
  1870. Gui,2:+OwnDialogs
  1871. Loop,Read,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1872. {
  1873. Loop,parse,A_LoopReadLine,`n
  1874. {
  1875. if (A_LoopField!="")
  1876. {
  1877. FileAppend,%A_LoopField%`n,%PATH1%\\Rewards\Rdata\%A_LoopFileName%:VAN:$DATA
  1878. }
  1879. }
  1880.  
  1881. }
  1882. }
  1883. FileMove,%PATH1%\\Rewards\Rdata\%A_LoopFileName%,%PATH1%\\Rewards,1
  1884. FileRead,RRR,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1885. FileDelete,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1886. StringReplace, RRR1,RRR, %A_Space%, , All
  1887. FileAppend,%RRR1%,%PATH1%\\Rewards\%A_LoopFileName%:VAN:$DATA
  1888. GuiControl,2:,EditReward%A_Index%,% RRR1
  1889. }
  1890. Gui,7:Destroy
  1891. Gui,1:Hide
  1892. Gui,9:Hide
  1893. Gui,8:Hide
  1894. Gui,10:hide
  1895. Gui,11:Hide
  1896. Gui,2:Show,,Gui 2
  1897. return
  1898.  
  1899. Butt_Save:
  1900. Gui,2:Submit,Nohide
  1901. FileDelete,%PATH1%\DATA\Announcement_Title.dat:VAN:$DATA
  1902. FileDelete,%PATH1%\DATA\Announcement.dat:VAN:$DATA
  1903. FileAppend,%EditAnnT%,%PATH1%\DATA\Announcement_Title.dat:VAN:$DATA
  1904. FileAppend,%EditAnn%,%PATH1%\DATA\Announcement.dat:VAN:$DATA
  1905.  
  1906. IniWrite,%EditProcess1%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P1
  1907. IniWrite,%EditProcess2%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P2
  1908. IniWrite,%EditProcess3%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,P3
  1909. IniWrite,%EditBoost1%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime1
  1910. IniWrite,%EditBoost2%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime2
  1911. IniWrite,%EditBoost3%,%PATH1%\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime3
  1912. IniWrite,%EditTourPoints%,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament Points
  1913.  
  1914. Guicontrol,2:Disable,EditAnnT
  1915. Guicontrol,2:Disable,EditAnn
  1916. Guicontrol,2:Disable,EditProcess1
  1917. Guicontrol,2:Disable,EditProcess2
  1918. Guicontrol,2:Disable,EditProcess3
  1919. Guicontrol,2:Disable,EditBoost1
  1920. Guicontrol,2:Disable,EditBoost2
  1921. Guicontrol,2:Disable,EditBoost3
  1922. Guicontrol,2:Disable,EditTourPoints
  1923. Loop 9
  1924. {
  1925. Rew := RewardReqP%A_Index%
  1926. IniWrite,%Rew%,%PATH1%\DATA\Config.ini:VAN:$DATA,REWARDS,REQ%A_Index%
  1927. GuiControl,2:Disable,RewardReqP%A_Index%
  1928. }
  1929.  
  1930. Loop,%PATH1%\\Rewards\*.dat
  1931. {
  1932. EditNum := EditReward%A_Index%
  1933. Loop 9
  1934. {
  1935. IfExist,%PATH1%\Rewards\%A_LoopFileName%:VAN:$DATA
  1936. FileDelete,%PATH1%\Rewards\%A_LoopFileName%:VAN:$DATA
  1937. FileAppend,%EditNum%,%PATH1%\Rewards\%A_LoopFileName%:VAN:$DATA
  1938. GuiControl,2:Disable,EditReward%A_Index%
  1939. }
  1940. }
  1941. Gui,2:Hide
  1942. Gui,4:Hide
  1943. Gui,5:Hide
  1944. Gui,1:show
  1945. Gui,8:Show
  1946. Gui,10:Show
  1947. Gui,11:Show
  1948. return
  1949.  
  1950. Butt_Cancel:
  1951. Gui,2:Submit,Nohide
  1952. Gui,2:Hide
  1953. Gui,4:Hide
  1954. Gui,5:Hide
  1955. Guicontrol,2:Disable,EditAnnT
  1956. Guicontrol,2:Disable,EditAnn
  1957. Guicontrol,2:Disable,EditProcess1
  1958. Guicontrol,2:Disable,EditProcess2
  1959. Guicontrol,2:Disable,EditProcess3
  1960. Guicontrol,2:Disable,EditBoost1
  1961. Guicontrol,2:Disable,EditBoost2
  1962. Guicontrol,2:Disable,EditBoost3
  1963. Guicontrol,2:Disable,EditTourPoints
  1964. Loop 9
  1965. {
  1966. GuiControl,2:Disable,RewardReqP%A_Index%
  1967. }
  1968. Loop 9
  1969. {
  1970. GuiControl,2:Disable,EditReward%A_Index%
  1971. }
  1972. Gui,8:Show
  1973. Gui,10:show
  1974. Gui,11:Show
  1975. Gui,1:Show
  1976. return
  1977.  
  1978. Edit_Admin1:
  1979. GuiControl,6:+Password,EditAdmin1
  1980. return
  1981. Edit_Admin2:
  1982. GuiControl,6:+Password,EditAdmin2
  1983. return
  1984.  
  1985. Butt_EditAnnc:
  1986. Gui,2:Submit,Nohide
  1987. Guicontrol,2:Enable,EditAnnT
  1988. Guicontrol,2:Enable,EditAnn
  1989. Guicontrol,2:Enable,EditProcess1
  1990. Guicontrol,2:Enable,EditProcess2
  1991. Guicontrol,2:Enable,EditProcess3
  1992. Guicontrol,2:Enable,EditBoost1
  1993. Guicontrol,2:Enable,EditBoost2
  1994. Guicontrol,2:Enable,EditBoost3
  1995. Guicontrol,2:Enable,EditTourPoints
  1996. Loop 9
  1997. {
  1998. GuiControl,2:Enable,RewardReqP%A_Index%
  1999. }
  2000.  
  2001. if (TourReqPoints="ERROR" or TourReqPoints="")
  2002. {
  2003. IniWrite,100,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament Points
  2004. TourReqPoints :=100
  2005. ControlSetText,2:,EditTourPoints,100
  2006. }
  2007. Loop 9
  2008. {
  2009. GuiControl,2:Enable,EditReward%A_Index%
  2010. }
  2011. return
  2012.  
  2013. Hiding:
  2014. RELOAD
  2015. return
  2016.  
  2017. Edit_Tour_Points:
  2018. Gui,2:Submit,Nohide
  2019. if (EditTourPoints="ERROR" or EditTourPoints="")
  2020. {
  2021. GuiControl,,EditTourPoints,100
  2022. }
  2023. return
  2024.  
  2025. Reward_Req_P1:
  2026. Gui,2:Submit,Nohide
  2027. if (RewardReqP1="ERROR" or RewardReqP1="")
  2028. GuiControl,2:,RewardReqP1,100
  2029. return
  2030.  
  2031. Reward_Req_P2:
  2032. Gui,2:Submit,Nohide
  2033. if (RewardReqP2="ERROR" or RewardReqP2="")
  2034. GuiControl,2:,RewardReqP2,100
  2035. return
  2036.  
  2037. Reward_Req_P3:
  2038. Gui,2:Submit,Nohide
  2039. if (RewardReqP3="ERROR" or RewardReqP3="")
  2040. GuiControl,2:,RewardReqP3,100
  2041. return
  2042.  
  2043. Reward_Req_P4:
  2044. Gui,2:Submit,Nohide
  2045. if (RewardReqP4="ERROR" or RewardReqP4="")
  2046. GuiControl,2:,RewardReqP4,100
  2047. return
  2048.  
  2049. Reward_Req_P5:
  2050. Gui,2:Submit,Nohide
  2051. if (RewardReqP5="ERROR" or RewardReqP5="")
  2052. GuiControl,2:,RewardReqP5,100
  2053. return
  2054.  
  2055. Reward_Req_P6:
  2056. Gui,2:Submit,Nohide
  2057. if (RewardReqP6="ERROR" or RewardReqP6="")
  2058. GuiControl,2:,RewardReqP6,100
  2059. return
  2060.  
  2061. Reward_Req_P7:
  2062. Gui,2:Submit,Nohide
  2063. if (RewardReqP7="ERROR" or RewardReqP7="")
  2064. GuiControl,2:,RewardReqP7,100
  2065. return
  2066.  
  2067. Reward_Req_P8:
  2068. Gui,2:Submit,Nohide
  2069. if (RewardReqP8="ERROR" or RewardReqP8="")
  2070. GuiControl,2:,RewardReqP8,100
  2071. return
  2072.  
  2073. Reward_Req_P9:
  2074. Gui,2:Submit,Nohide
  2075. if (RewardReqP9="ERROR" or RewardReqP9="")
  2076. GuiControl,2:,RewardReqP9,100
  2077. return
  2078.  
  2079. <!<^i::
  2080. IfWinActive,Gui7
  2081. {
  2082. FileRead,ACINFO,%PATH1%\GPoints\%AccName%\info.ini:VAN:$DATA
  2083. MsgBox, 262180, Account Information:, UserName : %AccName% `n%ACINFO% `n`nDo You Want to Copy Information in your clipboard?
  2084. IfMsgBox,Yes
  2085. {
  2086. Clipboard=UserName : %AccName% `n%ACINFO%
  2087. }
  2088.  
  2089. }
  2090. return
  2091. Account_Info:
  2092. IniRead,DateReg,%PATH1%\GPoints\%AccName%\info.ini:VAN:$DATA,Registered,Date
  2093. IniRead,LastLogDate,%PATH1%\GPoints\%AccName%\logs.ini:VAN:$DATA,LOG-IN,Date
  2094. IniRead,LastLogTime,%PATH1%\GPoints\%AccName%\logs.ini:VAN:$DATA,LOG-IN,Time
  2095. IniRead,LastPC,%PATH1%\GPoints\%AccName%\logs.ini:VAN:$DATA,COMPUTER,PC
  2096. Iniread,ACPASS,%PATH1%\GPoints\%AccName%\info.ini:VAN:$DATA,
  2097. if (LastLogDate="ERROR")
  2098. LastLogDate := "None"
  2099. if (LastPC="ERROR")
  2100. LastPC := "None"
  2101. if (LastLogTime="ERROR")
  2102. LastLogTime := "None"
  2103. return
  2104. ;~ #####################################################################################################################################
  2105. ;~ --------------------------------------------------FUNCTIONS AND HOTKEY---------------------------------------------
  2106. ;~ #####################################################################################################################################
  2107. GetGui1Pos()
  2108. {
  2109. WinGetPos,X1,Y1,W1,H1,GPoints Control Panel
  2110. X10 := X1+W1+2
  2111. Y10 := Y1+238
  2112. Y11 := Y1+130
  2113. X1 := X1+W1+2
  2114.  
  2115.  
  2116. Gui,8:Show,x%X1% y%Y1% w20 h122, Gui8
  2117. Gui,10:Show,x%X10% y%Y10% w20 h62,Gui10
  2118. Gui,11:Show,x%X1% y%Y11% w20 h100,Gui11
  2119.  
  2120. }
  2121.  
  2122. LV_Rdraw()
  2123. {
  2124. LV_Delete(GU)
  2125. Gui,7:Destroy
  2126. }
  2127.  
  2128. Mouse_Move()
  2129. {
  2130. PostMessage, 0xA1,2
  2131. }
  2132. Hide_Gui()
  2133. {
  2134. IfWinNotExist, Gui 9
  2135. {
  2136. Gui,1:Hide
  2137. Gui,2:Hide
  2138. Gui,4:Hide
  2139. Gui,5:Hide
  2140. Gui,6:Hide
  2141. Gui,7:Hide
  2142. Gui,8:Hide
  2143. Gui,10:Hide
  2144. Gui,11:Hide
  2145. Gui,3:Show, h40 w180
  2146. }
  2147. }
  2148. Move_Windows()
  2149. {
  2150. IfWinExist, Gui 4
  2151. {
  2152. WinGetpos,X1,Y1,,,Gui 2
  2153. X2 := X1 + 380
  2154. Y2 := Y1 + 25
  2155. Gui,4:+Owner2
  2156. Gui,4:Show, x%X2% y%Y2%
  2157. }
  2158. IfWinExist, Gui 5
  2159. {
  2160. WinGetpos,X1,Y1,,,Gui 2
  2161. X3 := X1 - 210
  2162. Y3 := Y1 + 25
  2163. Gui,5:+Owner2
  2164. Gui,5:Show, x%X3% y%Y3%
  2165. }
  2166. IfWinExist, Gui7
  2167. {
  2168. Wingetpos, XG1,YG1,,,GPoints Control Panel
  2169. X4 := XG1
  2170. Y4 := YG1 - 210
  2171. Gui,7:+Owner1
  2172. Gui,7:Show, x%X4% y%Y4%
  2173.  
  2174. }
  2175. IfWinExist,GPoints Control Panel
  2176. {
  2177. WinGetPos,X1,Y1,W1,H1,GPoints Control Panel
  2178. X1 := X1+W1+2
  2179. Gui,8:Show,x%X1% y%Y1% w20 h122, Gui8
  2180. }
  2181. IfWinExist,GPoints Control Panel
  2182. {
  2183. WinGetPos,X1,Y1,W1,H1,GPoints Control Panel
  2184. X10 := X1+W1+2
  2185. Y10 := Y1+238
  2186. Gui,10:Show,x%X10% y%Y10% w20 h62, Gui10
  2187. }
  2188. IfWinExist,GPoints Control Panel
  2189. {
  2190. WinGetPos,X1,Y1,W1,H1,GPoints Control Panel
  2191. X1 := X1+W1+2
  2192. Y11 := Y1+130
  2193. Gui,11:Show,x%X1% y%Y11% w20 h100, Gui11
  2194. }
  2195.  
  2196. }
  2197. Read_CBAdmin()
  2198. {
  2199. Iniread,CBADmn,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECT,Mode
  2200. if (CBADmn==1)
  2201. {
  2202. Guicontrol,5:,CBAdminPass,1
  2203. CBA := 1
  2204. }
  2205. else
  2206. {
  2207. Guicontrol,5:,CBAdminPass,0
  2208. CBA := 0
  2209. }
  2210. }
  2211.  
  2212.  
  2213. Color_Theme()
  2214. {
  2215. if (Theme_Color="222222"){ ;008000
  2216. Theme_Color:="008000"
  2217. Gui,1:color,% Theme_Color
  2218. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color ;4d004d
  2219. }
  2220. else if (Theme_Color="008000"){
  2221. Theme_Color:="003333"
  2222. Gui,1:color,% Theme_Color
  2223. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2224. }
  2225. else if (Theme_Color="003333"){
  2226. Theme_Color:="4d004d"
  2227. Gui,1:color,% Theme_Color
  2228. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2229. }
  2230. Else if (Theme_Color="4d004d")
  2231. {
  2232. Gui,1:color,333300
  2233. Iniwrite,333300,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2234. Theme_Color:="333300"
  2235. }
  2236. else if (Theme_Color="333300"){
  2237. Gui,1:color,003300
  2238. Iniwrite,003300,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2239. Theme_Color:="003300"
  2240. }
  2241. Else if(Theme_Color="003300"){ ;660000
  2242. Theme_Color:="660000"
  2243. Gui,1:color,% Theme_Color
  2244. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color ;000066
  2245. }
  2246. else if(Theme_Color="660000"){ ;000066
  2247. Theme_Color:="000066"
  2248. Gui,1:color,% Theme_Color
  2249. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2250. }
  2251. Else if(Theme_Color="000066"){ ;808000
  2252. Theme_Color:="b300b3"
  2253. Gui,1:color,% Theme_Color
  2254. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2255. }
  2256. Else if (Theme_Color="b300b3"){
  2257. Theme_Color:="663300"
  2258. Gui,1:color,% Theme_Color
  2259. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2260. }
  2261. Else if (Theme_Color="663300"){
  2262. Theme_Color:="ff8000"
  2263. Gui,1:color,% Theme_Color
  2264. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2265. }
  2266. Else if (Theme_Color="ff8000"){
  2267. Theme_Color:="222222"
  2268. Gui,1:color,% Theme_Color
  2269. Iniwrite,% Theme_Color,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2270. }
  2271. Gui,2:Color, % Theme_Color
  2272. Gui,4:Color, % Theme_Color
  2273. Gui,5:Color, % Theme_Color
  2274. Gui,8:Color, %Theme_Color%
  2275. Gui,9:Color, %Theme_Color%
  2276. Gui,10:Color, %Theme_Color%
  2277. Gui,11:Color, %Theme_Color%
  2278. GuiControl,8:+Background%Theme_Color%,Gui8
  2279. GuiControl,10:+Background%Theme_Color%,Gui10
  2280. GuiControl,11:+Background%Theme_Color%,Gui11
  2281. }
  2282.  
  2283.  
  2284. Move_Path()
  2285. {
  2286. IfNotExist,%Edit_Backup%
  2287. {
  2288. Gui,1:+Owndialogs
  2289. MsgBox, 262160, ERROR, Cannot find Folder path Location !
  2290. return
  2291. }
  2292. IfNotExist,VANHEARTNET
  2293. {
  2294. FileCreateDir,VANHEARTNET
  2295. Iniwrite,1,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECTED,Mode
  2296. FileSetAttrib,+H,VANHEARTNET
  2297. }
  2298. FileCreateDir,%Edit_Backup%\GP
  2299. FileCreateDir,%Edit_Backup%\GP\GamePoints
  2300. FileCreateDir,%Edit_Backup%\GP\GamePoints\GPoints
  2301. FileCreateDir,%Edit_Backup%\GP\GamePoints\Online
  2302. FileCreateDir,%Edit_Backup%\GP\GamePoints\Rewards
  2303. FileCreateDir,%Edit_Backup%\GP\GamePoints\DATA
  2304. IniWrite,admin,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  2305. FileAppend,CODE#001,%Edit_Backup%\GP\GamePoints\Rewards\R1.dat:VAN:$DATA
  2306. FileAppend,CODE#002,%Edit_Backup%\GP\GamePoints\Rewards\R2.dat:VAN:$DATA
  2307. FileAppend,CODE#003,%Edit_Backup%\GP\GamePoints\Rewards\R3.dat:VAN:$DATA
  2308. FileAppend,CODE#004,%Edit_Backup%\GP\GamePoints\Rewards\R4.dat:VAN:$DATA
  2309. FileAppend,CODE#005,%Edit_Backup%\GP\GamePoints\Rewards\R5.dat:VAN:$DATA
  2310. FileAppend,CODE#006,%Edit_Backup%\GP\GamePoints\Rewards\R6.dat:VAN:$DATA
  2311. FileAppend,CODE#007,%Edit_Backup%\GP\GamePoints\Rewards\R7.dat:VAN:$DATA
  2312. FileAppend,CODE#008,%Edit_Backup%\GP\GamePoints\Rewards\R8.dat:VAN:$DATA
  2313. FileAppend,CODE#009,%Edit_Backup%\GP\GamePoints\Rewards\R9.dat:VAN:$DATA
  2314. FileCreateDir,%Edit_Backup%\GP\GamePoints\Rewards\Rdata
  2315. FileCreateDir,%Edit_Backup%\GP\GamePoints\Rewards\Temp
  2316.  
  2317. ;~ ########################## CREATE CONFIG.INI #########################################
  2318.  
  2319. Iniwrite,NONE,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Backup PATH
  2320. Iniwrite,%Edit_Backup%,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,PATH
  2321. Iniwrite,30,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  2322. Iniwrite,0,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  2323. IniWrite,100,%Edit_Backup%\DATA\Config.ini:VAN:$DATA,Settings,Tournament Points
  2324. Iniwrite,0,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,EVENT
  2325. Iniwrite,1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime1
  2326. Iniwrite,1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime2
  2327. Iniwrite,1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime3
  2328. Iniwrite,Example.exe,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P1
  2329. Iniwrite,Example.exe,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P2
  2330. Iniwrite,Example.exe,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P3
  2331. Iniwrite,1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  2332. IniWrite,20,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2333. IniWrite,900000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  2334. Iniwrite,2,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  2335. IniWrite,Minutes,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SMH
  2336. Iniwrite,1,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLEMODE
  2337. Iniwrite,222222,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2338. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ1
  2339. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ2
  2340. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ3
  2341. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ4
  2342. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ5
  2343. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ6
  2344. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ7
  2345. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ8
  2346. IniWrite,1000,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ9
  2347.  
  2348. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R1
  2349. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R2
  2350. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R3
  2351. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R4
  2352. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R5
  2353. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R6
  2354. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R7
  2355. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R8
  2356. IniWrite,Reward #1,%Edit_Backup%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R9
  2357. FileSetAttrib,+H,%Edit_Backup%\GP
  2358. FileSetAttrib,+H,%Edit_Backup%\GP\GamePoints\Rewards
  2359. FileSetAttrib,+H,%Edit_Backup%\GP\GamePoints\DATA
  2360. FileSetAttrib,+H,%Edit_Backup%\GP\GamePoints\GPoints
  2361. FileSetAttrib,-R,%Edit_Backup%
  2362.  
  2363. FileInstall,VANHEARTNET\RewardSample.png,%Edit_Backup%\GP\DATA\PNG\RewardSample.png
  2364. FileInstall,VANHEARTNET\Text.png,%A_Temp%\GP\Text.png,1
  2365. FileInstall,MFWallpaper.png,%A_Temp%\GPP\MFWallpaper.png
  2366. MsgBox, 262208, Message, Success !!!`n-Chaged Path Location. Thank You!
  2367. Reload
  2368. }
  2369.  
  2370.  
  2371.  
  2372. ;~ #####################################################################################################
  2373.  
  2374. Exit:
  2375. Esc::
  2376. ExitApp
  2377.  
  2378. Control_Panel:
  2379. Gui,1:Show
  2380. return
  2381.  
  2382. ExitB:
  2383. Gui,9:Destroy
  2384. Gui,1:Show
  2385. Gui,8:Show
  2386. Gui,10:Show
  2387. Gui,11:Show
  2388. return
  2389.  
  2390.  
  2391.  
  2392.  
  2393.  
  2394.  
  2395.  
  2396.  
  2397.  
  2398.  
  2399.  
  2400.  
  2401.  
  2402. ;~ ######################### CREATE INSTALLATION FOLDER / DATA FILES / DATA FOLDERS ################################
  2403. Installation_Folder()
  2404. {
  2405. IfNotExist,\\%A_ComputerName%\Users\%A_UserName%\GP
  2406. {
  2407. IfNotExist,VANHEARTNET
  2408. {
  2409. FileCreateDir,VANHEARTNET
  2410. Iniwrite,1,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECTED,Mode
  2411. FileAppend,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints,VANHEARTNET\gpPath.dat:VAN:$DATA
  2412.  
  2413. }
  2414.  
  2415. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP
  2416. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints
  2417. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\GPoints
  2418. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Online
  2419. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards
  2420. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA
  2421. IniWrite,admin,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  2422.  
  2423. FileAppend,CODE#001,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R1.dat:VAN:$DATA
  2424. FileAppend,CODE#002,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R2.dat:VAN:$DATA
  2425. FileAppend,CODE#003,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R3.dat:VAN:$DATA
  2426. FileAppend,CODE#004,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R4.dat:VAN:$DATA
  2427. FileAppend,CODE#005,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R5.dat:VAN:$DATA
  2428. FileAppend,CODE#006,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R6.dat:VAN:$DATA
  2429. FileAppend,CODE#007,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R7.dat:VAN:$DATA
  2430. FileAppend,CODE#008,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R8.dat:VAN:$DATA
  2431. FileAppend,CODE#009,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\R9.dat:VAN:$DATA
  2432.  
  2433. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\Rdata
  2434. FileCreateDir,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards\Temp
  2435.  
  2436.  
  2437. ;~ ########################## CREATE CONFIG.INI #########################################
  2438.  
  2439. Iniwrite,NONE,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Backup PATH
  2440. Iniwrite,\\%A_ComputerName%\Users\%A_UserName%,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,PATH
  2441. Iniwrite,30,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  2442. Iniwrite,0,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  2443. IniWrite,100,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,Tournament Points
  2444. Iniwrite,0,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Settings,EVENT
  2445. Iniwrite,1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime1
  2446. Iniwrite,1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime2
  2447. Iniwrite,1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,BoostTime3
  2448. Iniwrite,Example.exe,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P1
  2449. Iniwrite,Example.exe,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P2
  2450. Iniwrite,Example.exe,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,PROCESS,P3
  2451. Iniwrite,1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  2452. IniWrite,20,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2453. IniWrite,900000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  2454. Iniwrite,2,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  2455. IniWrite,Minutes,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SMH
  2456. Iniwrite,1,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,IDLEMODE
  2457. Iniwrite,222222,%PATH1%\DATA\Config.ini:VAN:$DATA,Theme,Color
  2458. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ1
  2459. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ2
  2460. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ3
  2461. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ4
  2462. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ5
  2463. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ6
  2464. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ7
  2465. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ8
  2466. IniWrite,1000,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,REWARDS,REQ9
  2467.  
  2468. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R1
  2469. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R2
  2470. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R3
  2471. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R4
  2472. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R5
  2473. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R6
  2474. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R7
  2475. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R8
  2476. IniWrite,Reward #1,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA\Config.ini:VAN:$DATA,Reward text,R9
  2477. FileSetAttrib,+H,\\%A_ComputerName%\Users\%A_UserName%\GP
  2478. FileSetAttrib,+H,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\Rewards
  2479. FileSetAttrib,+H,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\DATA
  2480. FileSetAttrib,+H,\\%A_ComputerName%\Users\%A_UserName%\GP\GamePoints\GPoints
  2481. FileSetAttrib,-R,\\%A_ComputerName%\Users\%A_UserName%\GP
  2482. FileSetAttrib,+H,VANHEARTNET
  2483. }
  2484. FileInstall,VANHEARTNET\RewardSample.png,VANHEARTNET\RewardSample.png
  2485. FileInstall,VANHEARTNET\Text.png,VANHEARTNET\Text.png,1
  2486. FileInstall,MFWallpaper.png,%A_Temp%\GPP\MFWallpaper.png
  2487.  
  2488. }
  2489.  
  2490.  
  2491.  
  2492.  
  2493.  
  2494.  
  2495.  
  2496. ;~ ############################################# EXPIRED ACCOUNTS ###############################################
  2497.  
  2498. Expired_AccountsMember:
  2499. ;~ ------------------------------------Read Config----------------------------------------------
  2500.  
  2501. ;~ -------------------------------------INIREAD EXPIRY DAYS-------------------------------------
  2502. Iniread, ExpiryNumber,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  2503. if (ExpiryNumber="ERROR") or (ExpiryNumber="")
  2504. {
  2505. Iniwrite,30,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Expire days
  2506. ExpiryNumber := 30
  2507. }
  2508. ;~ --------------------------------------------INIREAD TOURNAMENT---------------------------------
  2509. Iniread,Tournament,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  2510. if (Tournament="ERROR") or (Tournament="")
  2511. {
  2512. Iniwrite,0,%PATH1%\DATA\Config.ini:VAN:$DATA,Settings,Tournament
  2513. }
  2514. ;~ -----------------------------------------INIREAD TIMER COUNT---------------------------------
  2515. IniRead,TimeLess,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  2516. if (TimeLess="ERROR") or (TimeLess="")
  2517. {
  2518. Iniwrite,2,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,TimeRequiredCount
  2519. TimeLess := 2
  2520. }
  2521. Iniread,TimerCheck,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  2522. if (TimerCheck="ERROR") or (TimerCheck="")
  2523. {
  2524. IniWrite,900000,%PATH1%\DATA\Config.ini:VAN:$DATA,TIMERCOUNTDOWN,SECONDS
  2525. TimerCheck := 900000
  2526. }
  2527. ;~ ---------------------------------------------INIREAD INBOX delete MyRewards.txt----------------------------------------
  2528. IniRead,DelInbox,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  2529. If (DelInbox="ERROR") or (DelInbox="")
  2530. {
  2531. IniWrite,0,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Delete Inbox
  2532. IniWrite,20,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2533. }
  2534. else if (DelInbox==1)
  2535. {
  2536. IniRead,DDelInbox,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2537. if (DDelInbox="ERROR") or (DDelInbox="")
  2538. {
  2539. IniWrite,20,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2540. DDelInbox := 20
  2541. }
  2542. Else if (DDelInbox<=1)
  2543. {
  2544. IniWrite,20,%PATH1%\DATA\Config.ini:VAN:$DATA,INBOX,Days
  2545. DDelInbox := 20
  2546. }
  2547. else
  2548. {
  2549. Loop,%PATH1%\GPoints\*.*,2
  2550. {
  2551. TimeDToday = %A_YYYY%%A_MM%%A_DD%%A_Hour%%A_Min%%A_Sec% ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>NOTE: ALWAYS COMPLETE FROM YEAR-SECS
  2552. AccountN = %A_LoopFileName%
  2553. FileGetTime,InboxTime,%PATH1%\GPoints\%AccountN%\MyRewards.file
  2554. if (InboxTime="ERROR") or (InboxTime="")
  2555. {
  2556. FileAppend,*,%PATH1%\GPoints\%AccountN%\MyRewards.file:VAN:$DATA
  2557. }
  2558. ;~ ---------------------------------EXPIRED INBOX REWARDS.FILE--------------------------------------
  2559. EnvSub, LastChangeInbox, LCInbox
  2560. LastChangeInbox -= LCInbox
  2561. LCI1 = %TimeDToday%
  2562. LCI2 = %InboxTime%
  2563. EnvSub, LCI1, %LCI2%, Days
  2564. if (LCI1 >= DDelInbox)
  2565. {
  2566. FileDelete,%PATH1%\GPoints\%AccountN%\MyRewards.file
  2567. }
  2568. }
  2569. }
  2570. }
  2571. ;~ -----------------------------------------------------------------------------------------------
  2572. IfExist,data\Exx.file:VAN:$DATA
  2573. {
  2574. FileDelete,data\Exx.file:VAN:$DATA
  2575. }
  2576. Loop,%PATH1%\GPoints\*.*,2
  2577. {
  2578. Accounts = %A_LoopFileName%
  2579. DateToday = %A_YYYY%%A_MM%%A_DD%
  2580. Iniread, Days, %PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA, Last Time,Count
  2581. Iniread, Reg, %PATH1%\GPoints\%A_LoopFileName%\info.ini:VAN:$DATA,Registered,Date
  2582. Iniread,LDReg,%PATH1%\GPoints\%A_LoopFileName%\info.ini:VAN:$DATA,Last Date Registered,Count
  2583. Iniread,LLogin,%PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA, LOG-IN,Date
  2584. Iniread, LogD, %PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA, LOG-OUT,Date
  2585. Iniread, TotalPoints,%PATH1%\\GPoints\%A_LoopFileName%\Info.ini:VAN:$DATA,TOTAL,Points
  2586. ;~ ---------------------------EXPIRED DAYS WIHTOUT LOGS.INI-----------------------
  2587. IfNotExist,%PATH1%\GPoints\%A_LoopFileName%\logs.ini:VAN:$DATA
  2588. {
  2589. EnvSub, Lastday1, Dday1
  2590. Lastday1 -= Dday1
  2591. var11 = %DateToday%
  2592. var21 = %LDReg%
  2593. EnvSub, var11, %var21%, days
  2594. If (var11 >= ExpiryNumber)
  2595. {
  2596. FileAppend,%A_LoopFileName% | %Reg% | NEVER | NONE | %var11% | %A_MM%-%A_DD%-%A_YYYY%`n,data\expacct.file:VAN:$DATA
  2597. FileRemoveDir,%PATH1%\GPoints\%A_LoopFileName%,1
  2598. }
  2599. ;~ ---------------------------EXPIRED DAYS IN LAST LOGIN -----------------------
  2600. }
  2601. EnvSub, Lastday, Dday
  2602. Lastday -= Dday
  2603. var1 = %DateToday%
  2604. var2 = %Days%
  2605. EnvSub, var1, %var2%, days
  2606. ;~ --------------------------------------------------
  2607. If (var1 >= ExpiryNumber)
  2608. {
  2609. FileAppend,%A_LoopFileName% | %Reg% | %LLogin% |%TotalPoints% | %var1% | %A_MM%-%A_DD%-%A_YYYY%`n, data\expacct.file:VAN:$DATA
  2610. FileRemoveDir,%PATH1%\GPoints\%A_LoopFileName%,1
  2611. }
  2612.  
  2613.  
  2614. }
  2615. return
  2616.  
  2617.  
  2618. PASSWORDPROTECT()
  2619. {
  2620. IfNotExist,%A_Temp%\GP
  2621. {
  2622. FileCreateDir,%A_Temp%\GP
  2623. FileSetAttrib,+RH,%A_Temp%\GP
  2624. }
  2625. else {
  2626. FileRemoveDir,%A_Temp%\GP,1
  2627. FileCreateDir,%A_Temp%\GP
  2628. FileSetAttrib,+RH,%A_Temp%\GP
  2629. }
  2630. IniRead,PASSMODE,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECT,Mode
  2631. if (PASSMODE="ERROR" or PASSMODE="")
  2632. {
  2633. IniWrite,0,VANHEARTNET\settings.ini:VAN:$DATA,PASSWORD PROTECT,Mode
  2634. }
  2635. Else if (PASSMODE=1)
  2636. {
  2637. IniRead,ADPass,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  2638. {
  2639. if (ADPass="ERROR" or ADPass="")
  2640. {
  2641. MsgBox,262208,Admin,Default Password : admin
  2642. IniWrite,admin,VANHEARTNET\settings.ini:VAN:$DATA,Admin,Pass
  2643. ExitApp
  2644. }
  2645. }
  2646. InputBox,Password,Admin,Enter Admin Password,Hide,150,120,,,
  2647. If !Errorlevel
  2648. {
  2649. if (Password==ADPass)
  2650. {
  2651. TrayTip, Admin, Log-in successfull.`nThank You!
  2652. }
  2653. else
  2654. {
  2655. MsgBox, 262160, Error, Wrong Password!
  2656. ExitApp
  2657. }
  2658. }
  2659. else
  2660. ExitApp
  2661. }
  2662. Else if (PASSMODE==0)
  2663. {
  2664. Traytip,GPoints,Starting...`t,,
  2665. }
  2666. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!