;;;;;;;;;;;;;;;;
[@AddAnotherOne]
;#IF
;ISADMIN
;#ACT
;Goto @CheckRandom
#ACT
LoadValue D1 [QuestDiary/EventSystem/Xmas/Winners.txt] [Convert] [TotalWinners]
Mov     A1  %USERMAP
Mov     A7  ""
AddStr  A7 %USERNAME
AddStr  A7 ","
Savelog "QuestDiary\EventSystem\Xmas\Totals.txt" %A7


#IF
Small D1 100
#ACT
Goto @CheckRandom

[@CheckRandom]
#IF                                  
Random 1000
!checklevel 100
#ACT
HLSCRIPTCMD CHANGELEVEL + 1
HLSCRIPTCMD CLEAREXP
Inc D1 1
Mov D2 5
Dec D2 %D1
Mov A7 %USERNAME
EventMsg [grobal] "<$OUTPUT(A7)> has Levelled up with Xmas Event!!\"

SaveValue [QuestDiary/EventSystem/Xmas/Winners.txt] [Convert] [TotalWinners] %D1
#SAY
Woooooo Hoooooooooo!!!\
Congratulations You Levelled Up!!\
;;;;;;;;;;;;;;;;;;;;;