;;;;;;;;;;;;;;;;
[@AddAnotherOne]
#IF
Random 5000
#ACT
LoadValue D1 [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [ArmourWinners]
#ELSEACT
Goto @Next1
Break

#IF
Small D1 1
#ACT
Give EasterArmourToken 1
Inc D1 1
Mov A7 %USERNAME
EventMsg [grobal] "<$OUTPUT(A7)> has Found an EasterArmourToken!\"
SaveValue [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [ArmourWinners] %D1
#SAY
Woooooo Hoooooooooo!!!\
Congratulations You Found the EasterArmourToken!!\
PM Sting NOW!!!!!!!!!!!!!!!!!\
#ELSEACT
Goto @Next1


[@Next1]
#IF                                  
Random 5000
#ACT
LoadValue D1 [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [NeckyWinners]
#ELSEACT
Goto @Next2
Break

#IF
Small D1 5
#ACT
Give EasterNecklaceToken 1
Inc D1 1
Mov D2 5
Dec D2 %D1
Mov A7 %USERNAME
EventMsg [grobal] "<$OUTPUT(A7)> has Found a EasterNecklaceToken!\ <$OUTPUT(D2)> Left to be Found!!!"
SaveValue [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [NeckyWinners] %D1
#SAY
Woooooo Hoooooooooo!!!\
Congratulations You Found EasterNecklaceToken!!\
PM Sting NOW!!!!\
#ELSEACT
Goto @Next2


[@Next2]
#IF                                  
Random 250
#ACT
LoadValue D1 [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [RingWinners]
#ELSEACT
Goto @Next3
Break

#IF
Small D1 10
#ACT
Give EasterRingToken 1
Inc D1 1
Mov D2 10
Dec D2 %D1
Mov A7 %USERNAME
EventMsg [grobal] "<$OUTPUT(A7)> has Found a EasterRingToken!\ <$OUTPUT(D2)> Left to be Found!!!"
SaveValue [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [RingWinners] %D1
#SAY
Woooooo Hoooooooooo!!!\
Congratulations You Found EasterRingToken!!\
PM Sting NOW!!!!\
#ELSEACT
Goto @Next3


[@Next3]
#IF                                  
Random 1000
#ACT
Goto @LevelUpSection
#ELSEACT
Goto @Next4

[@LevelUpSection]
#IF
!checklevel 100
#ACT
LoadValue D1 [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [LevelWinners]
HLSCRIPTCMD CHANGELEVEL + 1
HLSCRIPTCMD CLEAREXP
Inc D1 1
Mov A7 %USERNAME
EventMsg [grobal] "<$OUTPUT(A7)> has Levelled up with Easter!\"
SaveValue [QuestDiary/EventSystem/Easter2010/Winners.txt] [Convert] [LevelWinners] %D1
Mov     A7  ""
AddStr  A7 %USERNAME
AddStr  A7 ","
AddStr  A7 %USERLEVEL
Savelog "QuestDiary\EventSystem\Easter2010\Totals.txt" %A7
#SAY
Woooooo Hoooooooooo!!!\
You levelled up with Easter!!!\
#ELSEACT
Goto @Next4


[@Next4]
#IF
Random 100
#ACT
HLSCRIPTCMD SETVIPLEVEL 10
HLSCRIPTCMD SETVIPTIME 2
#SAY
Double EXP!!!!
#ELSEACT
Goto @Last1

[@Last1]
#IF
Random 10
#ACT
Give Integral(1)
#SAY
Free Integral!
#ELSEACT
Give Gold 10
;;;;;;;;;;;;;;;;;;;;;