Code:
var
//######------------------Declaring Vars--------------------######
//############Menu Bar Vars############
menuExplore_X, menuExplore_Y : Integer;
menuGames_X, menuGames_Y : Integer;
menuShops_X, menuShops_Y : Integer;
menuLogin_X, MenuLogin_Y : Integer;
MenuLogout_X, MenuLogout_Y : Integer;
//###########World Locations############
FaerieLand_X, FaerieLand_Y : Integer;
LostDesert_X, LostDesert_Y : Integer;
HauntedWoods_X, HauntedWoods_Y : Integer;
NeopiaCentral_X, NeopiaCentral_Y : Integer;
Meridell_X, Meridell_Y : Integer;
Tyrannia_X, Tyrannia_Y : Integer;
Maraqua_X, Maraqua_Y : Integer;
MysteryIsland_X, MysteryIsland_Y : Integer;
KrawkIsland_X, KrawkIsland_Y : Integer;
VirtupetsStation_X, VirtupetsStation_Y : Integer;
TerrorMountain_X, TerrorMountain_Y : Integer;
Kreludor_X, Kreludor_Y : Integer;
//############Login Pages Vars############
UserNameBox_X, userNameBox_Y : Integer;
loginButton_X, loginButton_Y : Integer;
passwordBox_X, passwordBox_Y : Integer;
passwordButton_X, passwordButton_Y : Integer;
//############Stock Markey Page###########
goBuyStocks_X, goBuyStocks_Y : Integer;
goPortfolio_X, goPortfolio_Y : Integer;
goListStocks_X, goListStocks_Y : Integer;
//###########Bitmap Vars##################
//Stock Market Image Bitmap
Stock_Market : Integer;
//Scroll button Bitmaps
Scroll_Down_Button, Scroll_Up_Button : Integer;
//#########Company Stock Variables(Collection Of All Stocks)########
Type Stock = record
Name: String;
Abbrev: String;
Open: Integer;
Cur: Integer;
Change: Extended;
end;
var Company: array [0..42] of Stock; //List Of All Stocks
var CheapStocks: array [0..9] of Stock; //CheapStocks (price = 15NP)
//Current Company
var i: Integer;
//############Misc Vars###################
rightDiaDelete_X, rightDiaDelete_Y :Integer;
refreshWait: Integer;
//Something Has Happened Message
RandomOffset : Integer;
//######--------------------Functions----------------------######
//Log In User When At Login Screen
Procedure loginUser(username,password: String);
Begin
//Delete Text From Last Login
ClickMouse(UserNameBox_X,userNameBox_Y,false);
wait(500);
ClickMouse(UserNameBox_X+rightDiaDelete_X,userNameBox_Y+rightDiaDelete_Y,true);
wait(500);
//Enter UserName
SendKeys(username);
wait(500);
//Click Login button
ClickMouse(loginButton_X,loginButton_Y,true);
wait(refreshWait);
//Enter Password
ClickMouse(passwordBox_X,passwordBox_Y,true);
wait(500);
SendKeys(password);
wait(1000);
ClickMouse(passwordButton_X,passwordButton_Y, true);
wait(refreshWait);
end;
//---------------Menu Bar Functions--------------------
//Clicks Explore On Menu Bar
procedure menuExplore();
Begin
ClickMouse(menuExplore_X,menuExplore_Y,true);
wait(refreshWait);
end;
//Clicks Games On Menu Bar
procedure menuGames();
Begin
ClickMouse(menuGames_X,menuGames_Y,true);
wait(refreshWait);
end;
//Clicks Shops On Menu Bar
procedure menuShops();
Begin
ClickMouse(menuShops_X,menuShops_Y,true);
wait(refreshWait);
end;
//Clicks Login On Menu Bar
procedure menuLogin();
Begin
ClickMouse(menuLogin_X,menuLogin_Y,true);
wait(refreshWait);
end;
//Clicks Logout On Menu Bar
procedure menuLogout();
Begin
ClickMouse(menuLogout_X,menuLogout_Y,true);
wait(RefreshWait);
end;
//-----------Explore Functions---------
//Clicks Faerie Land
procedure GoFaerieLand();
Begin
ClickMouse(FaerieLand_X,FaerieLand_Y,True);
wait(RefreshWait);
end;
//Clicks Lost Desert
procedure GoLostDesert();
Begin
ClickMouse(LostDesert_X,LostDesert_Y,True);
wait(RefreshWait);
end;
//Clicks Haunted Woods
procedure GoHauntedWoods();
Begin
ClickMouse(HauntedWoods_X,HauntedWoods_Y,True);
wait(RefreshWait);
end;
//Clicks Neopia Central
procedure GoNeopiaCentral();
Begin
ClickMouse(NeopiaCentral_X,NeopiaCentral_Y,True);
wait(RefreshWait);
end;
//Clicks Meridell
procedure GoMeridell();
Begin
ClickMouse(Meridell_X,Meridell_Y,True);
wait(RefreshWait);
end;
//Clicks Tyrannia
procedure GoTyrannia();
Begin
ClickMouse(Tyrannia_X,Tyrannia_Y,True);
wait(RefreshWait);
end;
//Clicks Maraqua
procedure GoMaraqua();
Begin
ClickMouse(Maraqua_X,Maraqua_Y,True);
wait(RefreshWait);
end;
//Clicks Mystery Island
procedure GoMysteryIsland();
Begin
ClickMouse(MysteryIsland_X,MysteryIsland_Y,True);
wait(RefreshWait);
end;
//Clicks Krawk Island
procedure GoKrawkIsland();
Begin
ClickMouse(KrawkIsland_X,KrawkIsland_Y,True);
wait(RefreshWait);
end;
//Clicks Virtupets Station
procedure GoVirtupetsStation();
Begin
ClickMouse(VirtupetsStation_X,VirtupetsStation_Y,True);
wait(RefreshWait);
end;
//Clicks Terror Mountain
procedure GoTerrorMountain();
Begin
ClickMouse(TerrorMountain_X,TerrorMountain_Y,True);
wait(RefreshWait);
end;
//Clicks Kreludor
procedure GoKreludor();
Begin
ClickMouse(Kreludor_X,Kreludor_Y,True);
wait(RefreshWait);
end;
//--------------Daily Events Functions-----------
//Visits Healing Fairy
procedure visitHealingFairy();
Begin
//Click Explore
menuExplore();
//Go To Faerie Land
GoFaerieLand();
//Click Healing Springs
ClickMouse(330,850,true);
wait(RefreshWait);
//Click BUTTON using find text
ClickMouse(435,670,true);
wait(RefreshWait);
end;
//Grabs Omelette
procedure GetOmelette();
Begin
//Click Explore
menuExplore();
//Go To Tyrannia
GoTyrannia();
//Click Tyrannian Plateau
ClickMouse(630,430,true);
wait(RefreshWait);
//Click Giant Omelette
ClickMouse(230,720,true);
wait(RefreshWait);
//Click BUTTON using find text
ClickMouse(435,770,true);
wait(RefreshWait);
end;
//Visits Coltazan's Shrine
procedure visitColtazan();
Begin
//Click Explore
menuExplore();
//Go To Lost Desert
GoLostDesert();
//Click Coltazan's Shrine
ClickMouse(375,560,true);
wait(RefreshWait);
//Click BUTTON using find text
ClickMouse(440,960,true);
wait(RefreshWait);
end;
//Visits Tombola
procedure visitTombola();
Begin
//Click Explore
menuExplore();
//Go To Mystery Island
GoMysteryIsland();
//Click Tombola
ClickMouse(350,850,True);
wait(RefreshWait);
//Click BUTTON using find text
end;
//---------------Stock Page Functions------------
//Clicks buy stocks link
procedure goBuyStocks();
Begin
ClickMouse(goBuyStocks_X,goBuyStocks_Y,true);
wait(refreshWait);
end;
//Clicks my portfolio link
procedure goPortfolio();
Begin
ClickMouse(goPortfolio_X,goPortfolio_Y,true);
wait(refreshWait);
end;
//Clicks the list stocks link
procedure goListStocks();
Begin
ClickMouse(goListStocks_X ,goListStocks_Y,true);
wait(refreshWait);
end;
//---------Set Company Names And Abbreviations-------------
Procedure setCompanyNames();
Begin
//-----Set Names-----\\
Company[0].Name := 'Alien Aisha Vending Ltd.';
Company[1].Name := 'Achyfi Enterprises';
Company[2].Name := 'Brea';
Company[3].Name := 'Balthazars Faerie Bottling Inc.';
Company[4].Name := 'Buzz-A-Way Insect Removal';
Company[5].Name := 'Chia Steel Holdings';
Company[6].Name := 'Chiatech Password Security';
Company[7].Name := 'Confederation of Fish Lovers';
Company[8].Name := 'Cybun Electromatics';
Company[9].Name := 'Dice-A-Roo Industries PLC.';
Company[10].Name := 'EEEEEURGH!!! Ltd.';
Company[11].Name := 'Faerie Clothing Ltd.';
Company[12].Name := 'Fish Pops!';
Company[13].Name := 'Health Frog Groceries';
Company[14].Name := 'Hot';
Company[15].Name := 'Kau-Kau Farm';
Company[16].Name := 'Kor-Bat Cricket Supplies';
Company[17].Name := 'Kacheek and Sons Landscaping';
Company[18].Name := 'Lost Desert Scratchcards';
Company[19].Name := 'Lupe Consolidated';
Company[20].Name := 'Meridell Potato Company';
Company[21].Name := 'Mynci Banana Imports';
Company[22].Name := 'Nakron';
Company[23].Name := 'The National Neopian Bank';
Company[24].Name := 'PD Secure Storage';
Company[25].Name := 'Peophin Water Parks!';
Company[26].Name := 'Power-X Corp.';
Company[27].Name := 'Shoyrux Enterprises';
Company[28].Name := 'Skeith Bodyguards Inc.';
Company[29].Name := 'Skeith Feeding Ltd.';
Company[30].Name := 'The Smugglers Cove';
Company[31].Name := 'Super Splime Shakes';
Company[32].Name := 'Stuff';
Company[33].Name := 'Shop Wizard';
Company[34].Name := 'The Auction Genie';
Company[35].Name := 'The Neopian Auction House';
Company[36].Name := 'The Neopian Times';
Company[37].Name := 'Theme Park Entertainers Guild';
Company[38].Name := 'The Presidential Palace';
Company[39].Name := 'The Shoyru Company';
Company[40].Name := 'Unis Beauty Salon';
Company[41].Name := 'Virtupets';
Company[42].Name := 'Yippee!';
//----Set Abbreviations----\\
Company[0].Abbrev := 'AAVL ';
Company[1].Abbrev := 'ACFI ';
Company[2].Abbrev := 'BB ';
Company[3].Abbrev := 'BOTT ';
Company[4].Abbrev := 'BUZZ ';
Company[5].Abbrev := 'CHIA ';
Company[6].Abbrev := 'CHPS ';
Company[7].Abbrev := 'COFL ';
Company[8].Abbrev := 'CYBU ';
Company[9].Abbrev := 'DROO ';
Company[10].Abbrev := 'EEEEE';
Company[11].Abbrev := 'FAER ';
Company[12].Abbrev := 'FISH ';
Company[13].Abbrev := 'HELT ';
Company[14].Abbrev := 'HUW ';
Company[15].Abbrev := 'KAUF ';
Company[16].Abbrev := 'KBAT ';
Company[17].Abbrev := 'KSON ';
Company[18].Abbrev := 'LDSC ';
Company[19].Abbrev := 'LUPE ';
Company[20].Abbrev := 'MPC ';
Company[21].Abbrev := 'MYNC ';
Company[22].Abbrev := 'NAKR ';
Company[23].Abbrev := 'NATN ';
Company[24].Abbrev := 'PDSS ';
Company[25].Abbrev := 'PEOP ';
Company[26].Abbrev := 'POWR ';
Company[27].Abbrev := 'SHRX ';
Company[28].Abbrev := 'SKBD ';
Company[29].Abbrev := 'SKEI ';
Company[30].Abbrev := 'SMUG ';
Company[31].Abbrev := 'SSS ';
Company[32].Abbrev := 'STFP ';
Company[33].Abbrev := 'SWNC ';
Company[34].Abbrev := 'TAG ';
Company[35].Abbrev := 'TNAH ';
Company[36].Abbrev := 'TNPT ';
Company[37].Abbrev := 'TPEG ';
Company[38].Abbrev := 'TPP ';
Company[39].Abbrev := 'TSRC ';
Company[40].Abbrev := 'UNIB ';
Company[41].Abbrev := 'VTPS ';
Company[42].Abbrev := 'YIPP ';
end;
//-----------Calculate Change in % For Day---------------
procedure CalculateChange();
var i: Integer;
Begin
Company[14].Open := 1;
for i:= 0 to 42 do
Begin
Company[i].Change := ((Company[i].cur/Company[i].Open)*100)-100;
end
end;
//--------------Stock Calculations(returns array of 'stock')---------
procedure findCheapStocks();
var j : Integer; //Number of stocks added to new list
Begin
for i:=0 to 42 do
Begin
if (Company[i].Cur=15)then
Begin
CheapStocks[j].Name := Company[i].name;
CheapStocks[j].Abbrev := Company[i].Abbrev;
CheapStocks[j].Cur := Company[i].Cur;
CheapStocks[j].Change := Company[i].Change;
CheapStocks[j].Open := Company[i].Open;
j := j + 1;
end
end
end;
Procedure InitialiseInclude();
begin
//#############Menu Vars###############
//Explore Button
menuExplore_X := 75;
menuExplore_Y := 365;
//Games Button
menuGames_X := 75;
menuGames_Y := 400;
//Shops Button
menuShops_X := 75;
menuShops_Y := 465;
//Login Button
menuLogin_X := 75;
MenuLogin_Y := 630;
//Logout Button
MenuLogout_X := 75;
MenuLogout_Y := 660;
//#########World Vars#############
FaerieLand_X := 460;
FaerieLand_Y := 675;
LostDesert_X := 315;
LostDesert_Y := 740;
HauntedWoods_X := 320;
HauntedWoods_Y := 655;
NeopiaCentral_X := 355;
NeopiaCentral_Y := 570;
Meridell_X := 450;
Meridell_Y := 575;
Tyrannia_X := 515;
Tyrannia_Y := 515;
Maraqua_X := 555;
Maraqua_Y := 615;
MysteryIsland_X := 575;
MysteryIsland_Y := 685;
KrawkIsland_X := 520;
KrawkIsland_Y := 720;
VirtupetsStation_X := 630;
VirtupetsStation_Y := 535;
TerrorMountain_X := 435;
TerrorMountain_Y := 500;
Kreludor_X := 230;
Kreludor_Y := 515;
//##########Login Page Vars#########
//Username Text Box
UserNameBox_X := 450;
userNameBox_Y := 560;
//Login Button
loginButton_X := 445;
loginButton_Y := 595;
//Password Text Box
passwordBox_X := 445;
passwordBox_Y := 655;
//Enter Password Button
passwordButton_X := 445;
passwordButton_Y := 715;
//######Stock Market Pages Vars#####
//By Stocks Link
goBuyStocks_X := 470;
goBuyStocks_Y := 400;
//My Portfolio Link
goPortfolio_X := 400;
goPortfolio_Y := 400;
//List Stocks Link
goListStocks_X := 365;
goListStocks_Y := 505;
//########Initialise Company Names#######
setCompanyNames();
//######Setting Bitmap Strings#########
//Stock Market Bitmap String
Stock_Market := BitmapFromString(17, 9, 'z78DA9D926B8EC320' +
'0C84AF04D8C6F8272FDFFF48EB64D2C7AAD5AA5D461AA1287C836' +
'DDCC7A0E297CF44E3EEC2C717E3163E782C1B4D6A3A1769B154C9' +
'C9F2B4AA56F6D8BD09C1AD37222B39C73F32A551067FBAF5B2449' +
'9332FED4C724F093E4EA59566B2F4C1021989EE9E9BA8CBCC8AAC' +
'51DAA28C3BA42F174E9959E200EFA9337CB78414DC10553FF70AD' +
'DF89CBF7D71AD416EAAAF29628790855A90A2456621F55AD5978F' +
'B21CCCE65ADAB5D7591711E6154CD1FC3BE5E0874B1B751EE27D0' +
'859980BAA6366E2E8ED8C33171FB59F930A5AAAE31DFF51C59592' +
'1FA275081D0854BF4DFCAAE5DCE3FEEE6B55F95F0A546A483097E' +
'B259C7CBCC0B7FC3F7A05C75C5E05F2F31BB8F5FFBB2AC2BB951F' +
'B4FBCEB4');
//Scroll Down Bitmap String
Scroll_Down_Button := BitmapFromString(9, 6, 'z78DA7590510E80200C4' +
'3CF0408E2A76BDDFD8F64758992A03F2F0B79A5CB40EE8E852DF5' +
'8A8DDD1134C3E1B40D740B8633CE239158DC82D694FD723ADB7F7' +
'67E8F7F5059B5D5CDD999FD27D5EED4C30F3FC3E50F44D6264011' +
'A9F9EACD6FAFED5C7499F572AC3039743A759D5A814C6B');
//Scroll Up Bitmap String
Scroll_Up_Button := BitmapFromString(9, 6, 'z78DA6D904B0EC4200C43C' +
'FD40F0C2C89DDDCFF48F534744A356C9E2CF44C023848271AAB58' +
'98DD823BF35292190EA735D06155B4C8209B58596E863FB2FB9FA' +
'7AB29E59A25FEFBAF6ED6DCDE1DF7198985DBEC3CBA133F31E9B6' +
'F54BE3BC2B27DF6F898C4D3E7BAB711757F8EF7FAE7C027F6E4CF' +
'5');
//############Misc Vars################
//RightClick Dialog Box Delete Text
rightDiaDelete_X := 10;
rightDiaDelete_Y := 100;
//Time To Wait After Page Change
refreshWait := 4000;
//Page Offset When Random Event Ocurs
RandomOffset :=120;
end;