Code:
sub EVENT_SPAWN
{
quest::settimer("randomness",120);
}
sub EVENT_TIMER
{
if ($timer eq "randomness")
{
@randomnessarray = ("OP_SendBaseDataChecksum=0x040b","Trouble casting spells? Check OP_SendSpellChecksum=0x46d3","Corpse loot issue? just for grins try this opcode OP_LootComplete=0x528f see if that helps",
"Not getting your group leader AA's? Try OP_GroupLeadershipAAUpdate=0x0000","AA's not working? give OP_RespondAA=0x0142 a try",
"want a progression server? here is your new opcode Progression=0x2071","Even Caryatis knows 'Protip: opcodes solve everything.'",
"cant log in? OP_SessionReady=0x0001 and OP_Login=0x0002 give them a wirl","Note: I used PublicLogin.exe to get..... MOAR OpCodes!",
"want to change the MOTD? here use this OP_MOTD=0x319d","Want to bypass Akka's installer? Type this in DOS: OP_ApproveWorld=0x669b");
$npc->Shout ($randomnessarray[quest::ChooseRandom(0..(scalar @randomnessarray - 1))]);
}
}