Simba Code:
function InStringArrayEx(S : String; A : array of String; Var Position : integer) : Boolean;
Var
i : integer;
begin
for i := 0 to high(A) do
if(A[i] = S)then
begin
Result := True;
Position := i;
exit;
end;
end;
Var
Stats : array of integer;
StatIncrease : integer;
Procedure stats_IncTheVariable(V : String; Count : integer);
Var
Variables : array of String;
i : integer;
begin
Variables := ['Rune Essence (Mined)', 'Copper Ore (Mined)', 'Tin Ore (Mined)', 'Iron Ore (Mined)', 'Silver Ore (Mined)', 'Coal Ore (Mined)', 'Gold Ore (Mined)', 'Mithril Ore (Mined)', 'Adamant Ore (Mined)', 'Runite Ore (Mined)', 'Normal Logs Chopped', 'Oak Logs Chopped', 'Willow Logs Chopped', 'Maple Logs Chopped', 'Yew Logs Chopped', 'Magic Logs Chopped', 'Pure Essence (Mined)', 'Shrimp Caught', 'Shrimp Cooked', 'Shrimp Eaten', 'Anchovies Caught', 'Anchovies Cooked', 'Anchovies Eaten', 'Sardines Caught', 'Sardines Cooked', 'Sardines Eaten', 'Herring Caught', 'Herring Cooked', 'Herring Eaten', 'Tuna Caught', 'Tuna Cooked', 'Tuna Eaten', 'Swordfish Caught', 'Swordfish Cooked', 'Swordfish Eaten', 'Lobster Caught', 'Lobster Cooked', 'Lobster Eaten', 'Bronze Bars Melted', 'Iron Bars Melted', 'Steel Bars Melted', 'Mithril Bars Melted', 'Adamant Bars Melted', 'Runite Bars Melted', 'Silver Bars Melted', 'Gold Bars Melted', 'Bronze Bars Smithed', 'Iron Bars Smithed', 'Steel Bars Smithed', 'Mithril Bars Smithed', 'Adamant Bars Smithed', 'Runite Bars Smithed', 'Copper Ore (Melted)', 'Tin Ore (Melted)', 'Iron Ore (Melted)', 'Silver Ore (Melted)', 'Coal Ore (Melted)', 'Gold Ore (Melted)', 'Mithril Ore (Melted)', 'Adamant Ore (Melted)', 'Runite Ore (Melted)', 'Trout Caught', 'Trout Cooked', 'Salmon Caught', 'Salmon Cooked', 'Trout Eaten', 'Salmon Eaten', 'Monsters Killed', 'Caves Entered', 'Cannonballs (Shot)', 'Cannonballs (Made)', 'Guards Killed', 'Chickens Killed', 'Goblins Killed', 'Giant Rats Killed', 'Monks Killed', 'Druids Killed', 'Bones (Collected)', 'Bones (Burried)', 'Meat (Cooked)', 'Meat (Eaten)', 'Ape Atoll Course', 'Dorgesh-Kaan Course', 'Achey Logs Chopped', 'Teak Logs Chopped', 'Mahoganay Chopped', 'Eucalyptus Chopped', 'Normal Logs Fletched', 'Oak Logs Fletched', 'Willow Logs Fletched', 'Maple Logs Fletched', 'Yew Logs Fletched', 'Magic Logs Fletched', 'Achey Logs Burned', 'Teak Logs Burned', 'Mahoganay Burned', 'Eucalyptus Burned', 'Normal Logs Burned', 'Oak Logs Burned', 'Willow Logs Burned', 'Maple Logs Burned', 'Yew Logs Burned', 'Magic Logs Burned', 'Bird Nest', 'Total EXP Gained', 'Herbs Cleaned', 'Potions Made', 'Silver Bars Crafted', 'Gold Bars Crafted', 'Demons Attacked', 'High Level Alchs', 'Low Level Alchs', 'Times Banked', 'Loads Done', 'Total Levels Gained', 'Clay (Mined)', 'Crayfish Caught', 'Pike Caught', 'Times Walked', 'Unf. Potions Made', 'Leo (Unsolved)', 'Forester (Unsolved)', 'Maze (Unsolved)', 'P. Pete (Unsolved)', 'Evil Bob (Unsolved)', 'Demon (Unsolved)', 'Quiz (Unsolved)', 'Mordaut (Unsolved)', 'Molly (Unsolved)', 'Pinball (Unsolved)', 'Sandwich (Unsolved)', 'Beekeeper (Unsolved)', 'Pillory (Unsolved)', 'Arnav (Unsolved)', 'Abyss (Unsolved)', 'Certer (Unsolved)', 'Mime (Unsolved)', 'Lamp (Unsolved)', 'Leo (Solved)', 'Forester (Solved)', 'Maze (Solved)', 'P. Pete (Solved)', 'Evil Bob (Solved)', 'Demon (Solved)', 'Quiz (Solved)', 'Mordaut (Solved)', 'Molly (Solved)', 'Pinball (Solved)', 'Sandwich (Solved)', 'Beekeeper (Solved)', 'Pillory (Solved)', 'Arnav (Solved)', 'Abyss (Solved)', 'Certer (Solved)', 'Mime (Solved)', 'Frog (Unsolved)', 'Frog (Solved)', 'Lamp (Solved)', 'Total Logins', 'Rune Essence (Crafted)', 'Pure Essence (Crafted)', 'Air Runes (Crafted)', 'Mind Runes (Crafted)', 'Water Runes (Crafted)', 'Earth Runes (Crafted)', 'Fire Runes (Crafted)', 'Body Runes (Crafted)', 'Cosmic Runes (Crafted)', 'Chaos Runes (Crafted)', 'Nature Runes (Crafted)', 'Law Runes (Crafted)', 'Death Runes (Crafted)', 'Blood Runes (Crafted)', 'Soul Runes (Crafted)', 'Astral Runes (Crafted)', 'Essence Pouches Filled', 'Molten Glass Made', 'Superglass Casted', 'Monkfish Cooked', 'Shark Cooked', 'Rocktail Cooked', 'PC Points Earned', 'PC Times Exchanged', 'Mahogany Planks Made', 'Plank Makes Casted', 'Scorpions Killed', 'Wilderness Agility Course Laps', 'Sapphire Cut', 'Emerald Cut', 'Ruby Cut', 'Diamond Cut', 'Flax (Picked)', 'Flax (Spun)', 'Gold (Gained)', 'Normal Bows Strung', 'Oak Bows Strung', 'Willow Bows Strung', 'Maple Bows Strung', 'Yew Bows Strung', 'Magic Bows Strung', 'Headless Arrows Fletched', 'Bronze Arrows Fletched', 'Iron Arrows Fletched', 'Steel Arrows Fletched', 'Mithril Arrows Fletched', 'Adamant Arrows Fletched', 'Rune Arrows Fletched', 'Dragon Arrows Fletched', 'Broad Arrows Fletched', 'Normal Bones Buried', 'Big Bones Buried', 'BabyDragon Bones Buried', 'Dragon Bones Buried', 'Clay (Softened)', 'Pots (Crafted)', 'Bowls (Crafted)', 'Gold Bars (Smelted)', 'Silver Bars (Smelted)', 'Cows Killed', 'Vials (Filled)', 'Beer (Drunk)', 'Coins (Collected)', 'Water Runes (Collected)', 'Earth Runes (Collected)', 'Bronze Arrows (Collected)', 'Bronze Bolts (Collected)', 'Sapphires (Mined)', 'Emeralds (Mined)', 'Rubies (Mined)', 'Diamonds (Mined)', 'Gems (Mined)', 'Feathers (Collected)', 'White Berries (Collected)', 'Lines Sent (SMART)', 'Dragonstones (Cut)', 'Onyxes (Cut)', 'Opals (Cut)', 'Jades (Cut)', 'Topaz (Cut)', 'Bronze Bolts (Fletched)', 'Iron Bolts (Fletched)', 'Silver Bolts (Fletched)', 'Steel Bolts (Fletched)', 'Mithril Bolts (Fletched)', 'Adamant Bolts (Fletched)', 'Rune Bolts (Fletched)', 'Broad Bolts (Fletched)', 'Bronze Darts (Fletched)', 'Iron Darts (Fletched)', 'Steel Darts (Fletched)', 'Mithril Darts (Fletched)', 'Adamant Darts (Fletched)', 'Rune Darts (Fletched)', 'Dragon Darts (Fletched)', 'Opal Bolts (Fletched)', 'Pearl Bolts (Fletched)', 'Topaz Bolts (Fletched)', 'Sapphire Bolts (Fletched)', 'Emerald Bolts (Fletched)', 'Ruby Bolts (Fletched)', 'Diamond Bolts (Fletched)', 'Dragon Bolts (Fletched)', 'Onyx Bolts (Fletched)', 'Attack EXP (Gained)', 'Defence EXP (Gained)', 'Strength EXP (Gained)', 'Hitpoints EXP (Gained)', 'Mining EXP (Gained)', 'Smithing EXP (Gained)', 'Woodcutting EXP (Gained)', 'Firemaking EXP (Gained)', 'Magic EXP (Gained)', 'Fletching EXP (Gained)', 'Hunter EXP (Gained)', 'Summoning EXP (Gained)', 'Fishing EXP (Gained)', 'Construction EXP (Gained)', 'Herblore EXP (Gained)', 'Agility EXP (Gained)', 'Thieving EXP (Gained)', 'Crafting EXP (Gained)', 'Ranged EXP (Gained)', 'Slayer EXP (Gained)', 'Farming EXP (Gained)', 'Prayer EXP (Gained)', 'Runecrafting EXP (Gained)', 'Cooking EXP (Gained)', 'Dungeoneering EXP (Gained)', 'Ancient Effigys Found', 'ot Found!', 'Bolts Enchanted', 'Crayfish Cooked', 'Pike Cooked', 'Food Burned', 'Chicken Cooked', 'Vials Filled', 'Bowls Filled', 'Jugs Filled', 'Buckets Filled', 'Mining Urns (Crafted)', 'Cooking Urns (Crafted)', 'Woodcutting Urns (Crafted)', 'Fishing Urns (Crafted)', 'Smelting Urns (Crafted)', 'Shark Caught', 'Cod Caught', 'Bass Caught', 'Makerel Caught', 'Monkfish (Caught)', 'Makerel Cooked', 'Cod Cooked', 'Bass Cooked', 'Pie Dishes (Crafted)', 'Monkfish Caught', 'Asgarian Ale bought', 'Mind Bomb Bought', 'Dwarven Stout Bought', 'Coins Spent', 'Prayer Urns (Crafted)', 'Spirit wolf pouches (Made)', 'Spirit terrorbird pouches (Made)', 'Barker toad pouches (Made)', 'Macaw pouches (Made)', 'Ibis pouches (Made)', 'Bunyip pouches (Made)', 'Fruit bat pouches (Made)', 'Pyrelord pouches (Made)', 'Granite lobster pouches (Made)', 'Spirit Graahk pouches (Made)', 'Spirit Kyatt pouches (Made)', 'Lava titan pouches (Made)', 'Alchemy Points (Gained)', 'Enchantment Points (Gained)', 'Graveyard Points (Gained)', 'Telekinesis Points (Gained)', 'Food (Eaten)', 'Gold rings (Crafted)', 'Gold necklaces (Crafted)', 'Gold bracelets (Crafted)', 'Gold amulets (Crafted)', 'Sapphire rings (Crafted)', 'Sapphire necklaces (Crafted)', 'Sapphire bracelets (Crafted)', 'Sapphire amulets (Crafted)', 'Emerald rings (Crafted)', 'Emerald necklaces (Crafted)', 'Emerald bracelets (Crafted)', 'Emerald amulets (Crafted)', 'Ruby rings (Crafted)', 'Ruby necklaces (Crafted)', 'Ruby bracelets (Crafted)', 'Ruby amulets (Crafted)', 'Diamond rings (Crafted)', 'Diamond necklaces (Crafted)', 'Diamond bracelets (Crafted)', 'Diamond amulets (Crafted)', 'Dragonstone rings (Crafted)', 'Dragonstone necklaces (Crafted)', 'Dragonstone bracelets (Crafted)', 'Dragonstone amulets (Crafted)', 'Home Teleports (Casted)', 'Camelot Teleports (Casted)', 'Cockroaches (Killed)', 'Items Picked Up', 'Short Plank', 'Long Plank', 'Diagonal Plank', 'Tooth Plank', 'Groove Plank', 'Curved Plank', 'Oak Larders (Constructed)', 'Soft Leather Tanned', 'Hard Leather Tanned', 'Snake (Small) Tanned', 'Snake (Large) Tanned', 'Green Dragon Leather Tanned', 'Blue Dragon Leather Tanned', 'Red Dragon Leather Tanned', 'Black Dragon Leather Tanned', 'Profit Made', 'Items Merched', 'Orange Basket (Filled)', 'Sea Turtle Cooked', 'Cavefish Cooked', 'Manta Ray Cooked', 'Tiaras (Crafted)', 'Loads Done (G.E.)', 'Soft Leather (Crafted)', 'Hard Leather (Crafted)', 'Green Dragon Leather (Crafted)', 'Blue Dragon Leather (Crafted)', 'Red Dragon Leather (Crafted)', 'Black Dragon Leather (Crafted)', 'Curly roots (Burned)', 'Flour (Made)', 'Leaping Trout (Caught)', 'Leaping Salmon (Caught)', 'Leaping Sturgeon (Caught)', 'Varrock Teleports (Casted)', 'Lumbridge Teleports (Casted)', 'Falador Teleports (Casted)', 'House Teleports (Casted)', 'Archery Tickets (Earned)', 'Accounts Made', 'Create Gatestone (Casted)', 'Lesser Demons (Killed)', 'Spells (Casted)', 'Normal Planks Made', 'Oak Planks Made', 'Teak Planks Made', 'Papayas (Picked)', 'Fruit Fall Scrolls (Used)', 'Milk (Collected)', 'Bird'+#39+'s Nests (Picked)', 'Summoning Pouches (Made)', 'Pineapples (Collected)', 'Bananas (Collected)', 'Swamp Toads (Collected)', 'Curses (Casted)', 'Varrock Tablets (Made)', 'Soul Wars Zeal (Gained) ', 'Falador Tablets (Made)', 'House Tablets (Made)', 'Lumbridge Tablets (Made)', 'WatchTower Tablets (Made) ', 'Flips (Made) ', 'Barbarian Outpost Course (Completed)', 'Barbarian Advanced Course (Completed)', 'Gnome Stronghold Course (Completed)', 'Gnome Advanced Course (Completed)', 'Brimhaven Agility Pillars (Reached)', 'Agility Pyramid (Completed)', 'Penguin Course (Completed)', 'Ape Atoll Agility Course (Completed)', 'Wilderness Course (Completed)', 'Warewolf Course (Completed)', 'Bandos Course (Completed)', 'Dorgesh-Kaan Course (Completed)', 'Red Chinchompas (Caught)', 'Grey Chinchompas (Caught)', 'Monkfish (Eaten)', 'Granite (Mined)', 'Yaks (Killed)', 'Enchant Sapphire Jewellery Tablets (Made)', 'Enchant Emerald Jewellery Tablets (Made)', 'Enchant Ruby Jewellery Tablets (Made)', 'Enchant Diamond Jewellery Tablets (Made)', 'Camelot teleport Tablets (Made)', 'Enchant Dragonstone Jewellery Tablets (Made)', 'Ardougne teleport Tablets (Made)', 'Enchant Onyx Jewellery Tablets (Made)', 'Bones to Bananas Tablets (Made)', 'Bones to Peaches Tablets (Made)', 'Teleport to other POHs Tablets (Made)', 'Fish Cooked', 'Arrow shafts Fletched', 'Arrows Fletched', 'Snape grass (picked)', 'Snape grass (collected)', 'Chocolate Dust (Created)', 'Profit Gained', 'Attack Levels (Gained)', 'Defence Levels (Gained)', 'Strength Levels (Gained)', 'Hitpoints Levels (Gained)', 'Mining Levels (Gained)', 'Smithing Levels (Gained)', 'Woodcutting Levels (Gained)', 'Firemaking Levels (Gained)', 'Magic Levels (Gained)', 'Fletching Levels (Gained)', 'Hunter Levels (Gained)', 'Summoning Levels (Gained)', 'Fishing Levels (Gained)', 'Construction Levels (Gained)', 'Herblore Levels (Gained)', 'Agility Levels (Gained)', 'Thieving Levels (Gained)', 'Crafting Levels (Gained)', 'Ranged Levels (Gained)', 'Slayer Levels (Gained)', 'Farming Levels (Gained)', 'Prayer Levels (Gained)', 'Runecrafting Levels (Gained)', 'Cooking Levels (Gained)', 'Dungeoneering Levels (Gained)', 'Meat Pizza (Cooked)', 'Plain Pizza (Cooked)', 'Anchovy Pizza (Cooked)', 'Pineapple Pizza (Cooked)', 'Pineapple Pizza (Eaten)', 'Anchovy Pizza (Eaten)', 'Plain Pizza (Eaten)', 'Meat Pizza (Eaten)', 'Small Caskets (Opened)', 'Large Caskets (Opened)', 'Oak Doors (Constructed)', 'Asgarnian Ale (Bought)', 'Wizard'+#39+'s Mind Bomb (Bought)', 'Dwarven Stout (Bought)']
SetArrayLength(Stats, GetArrayLength(Variables));
if(not InStringArrayEx(V, Variables, i))then
begin
WriteLn('Error in "stats_IncTheVariable" "' + V + '" is not a valid variable')
exit;
end;
IncEx(Stats[i], Count);
if(TimeFromMark(StatIncrease) > 5 * 65 * 1000)then
begin
for i := 0 to high(Stats) do
if(Stats[i] <> 0)then
if(Stats[i] > 20000)then
begin
Stats_IncVariable(Variables[i], 20000);
DecEx(Stats[i], 20000);
end
else
begin
Stats_IncVariable(Variables[i], Stats[i]);
Stats[i] := 0;
end;
MarkTime(StatIncrease);
Stats_Commit;
end;
end;