viewing paste Simple Event ? | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-       script  Sample  -1,{
OnMinute00:
set .Map,rand( getarraysize( .MapList$ ) );
set .Monster,rand( getarraysize( .MonsterList ) );
set .Reward,rand( getarraysize( .RewardList ) );
announce "A special "+getmonsterinfo( .MonsterList[.Monster],0 )+" has appeared in "+.MapList$[.Map],0;
monster .MapList$[.Map],0,0,"Special Name",.MonsterList[.Monster],1,strnpcinfo(0)+"::OnKilled";
 
OnKilled:
getitem .RewardList[.Reward],.RewardAmount[.Reward];
announce "End...",0;
 
 
OnInit:
setarray .MonsterList[0],1002,1005,1006,1007;
setarray .MapList$[0],"payon","prontera","izlude";
setarray .RewardList[0],607,608,609;
setarray .RewardAmount[0],1,2,3;
}
Viewed 503 times, submitted by Emistry.