API tools faq
paste
Guest User

Untitled

a guest
Oct 13th, 2018
264
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 172.24 KB | None | 0 0
raw download clone embed print report
  1. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn ; Enable warnings to assist with detecting common errors.
  3. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir, %A_ScriptDir% ; Ensures a consistent starting directory.
  5. savename := A_workingdir . "\backgroundpowersave.ini"
  6. DetectHiddenWindows, on
  7. #singleinstance force
  8. #MaxHotkeysPerInterval 500
  9. OnExit("savegame_onclick")
  10. ;Version. I change this value with new versions. Some features on savefiles of older versions may not be compatible so I try to make something that fixes that
  11. Currentversion := 130
  12. if(!FileExist(savename)){
  13. ;if there is no savefile. One will be made and filled with some values as to not freak out the check below that checks if values got corrupted (just in case)
  14. FileAppend,[values]`n[treasures]`n[garden]`n[options], %savename%
  15. iniwrite, 0, %savename%, values, power
  16. iniwrite, 0, %savename%, values, treasurekeys
  17. iniwrite, 0, %savename%, values, treasurechests
  18. iniwrite, 0, %savename%, values, treasureradarbought
  19. iniwrite, 0, %savename%, values, gardentiles
  20. iniwrite, 0, %savename%, values, freezertiles
  21. iniwrite, 0, %savename%, garden, almanacunlocked
  22. iniwrite, currentversion, %savename%, values, version
  23. }
  24. ;read all the values from the savefile
  25. IniRead, Power, %savename%, Values, Power
  26. IniRead, upgrades, %savename%, Upgrades, upgrades
  27. IniRead, gardentiles, %savename%, Values, gardentiles
  28. IniRead, freezertiles, %savename%, Values, freezertiles
  29. iniread, stats, %savename%, values, stats
  30. IniRead, treasurekeys, %savename%, Values, treasurekeys
  31. IniRead, treasurechests, %savename%, Values, treasurechests
  32. iniread, version, %savename%, Values, version
  33. IniRead, treasures, %savename%, Treasures, treasures
  34. IniRead, treasureradarbought, %savename%, Values, treasureradarbought
  35. IniRead, plantknowledge, %savename%, garden, plantknowledge
  36. IniRead, almanacunlocked, %savename%, garden, almanacunlocked
  37. iniread, optionchecks, %savename%, options, optionchecks
  38. if(VersionCompare("1.1.30.00", A_ahkversion) == 1 && currentversion <> version){
  39. msgbox % "your autohotkey version may be outdated. This may end up causing an error Consider updating it."
  40. }
  41. ;just to be sure I added a couple failsaves in case something goes wrong with the values
  42. checkvalues := ["power", "treasurekeys", "treasurechests", "treasureradarbought", "gardentiles", "freezertiles"]
  43. loop, % checkvalues.MaxIndex(){
  44. somevalue := checkvalues[A_index]
  45. if %somevalue% is not number
  46. {
  47. msgbox % "something went wrong. " . checkvalues[A_index] . " is not a number. The value contained the following: " . arraytostring(%somevalue%) . "`nif there's nothing here that means the values are empty. Sadly this means " . checkvalues[A_index] . " has been reset to 0. Please report this problem to the game maker. found on reddit by the name /u/pimhazeveld"
  48. %somevalue% := 0
  49. }
  50. }
  51. ;these V are all the upgrades available in the shop. They have an abillity, description, cost, and increase in price.
  52. ;clickpower, movepower and treasurepower should sound obvious. Ones with 'percent' after them boost the power gain by a procentual amount instead.
  53. ;price is the base price of the upgrade, priceincrease increases the price by a set amount after every purchase and priceincreasepercent increases the price by a set % after every upgrade, formula should be price := price + (priceincrease * purchased) * ((priceincreasepercent / 100)^purchased) + 1
  54. ;repeated means the amount of times the upgrade can be purchased
  55. clickingpower := {clickpower: 1, descr: "You can only gain power by clicking once every 2 seconds", name: "Clicking power", price: 5, priceincrease: 4, priceincreasepercent: 10, repeated: 100}
  56. clickingpower2 := {clickpower: 2, clickpowerpercent: 1, descr: "A more powerful way to click. Also gives a procentual buff", name: "Clicking power 2", price: 250, priceincrease: 30, priceincreasepercent: 15, repeated: 100, unlockcondition:[{name:"clickingpower", array:"purchased", amount:15, requirement:">="}]}
  57. mouseengine := {movepower: 4, movespeed: 1, descr: "Every 10 seconds you gain power based on how much the mouse was moved.", name: "Mouse engine", price: 20, priceincrease: 20, priceincreasepercent: 8, repeated: 100, unlockcondition:[{name:"clickingpower", array:"purchased", amount:3, requirement:">="}]}
  58. keyboardmotor := {keyboardkeypower:1, descr:"Every second, gain power when pressing a letter on the keyboard", name:"Keyboard motor", price:50, priceincrease:25, priceincreasepercent:10, repeated: 100, unlockcondition:[{name:"mouseengine", array:"purchased", amount:5, requirement:">="}, {name:"clickingpower", array:"purchased", amount:5, requirement:">="}]}
  59. keyboardmotor2 := {keyboardkeypower:3, keyboardkeypowerpercent:1, descr:"Everything needs a second level nowadays.", name:"Keyboard motor 2", price:500, priceincrease:100, priceincreasepercent:12, repeated: 100, unlockcondition:[{name:"keyboardmotor", array:"purchased", amount:15, requirement:">="}]}
  60. gamersfuel := {descr:"Doubles keyboard power gain when pressing one of the WASD keys", name:"Gamers fuel", repeated:1, price:7500, unlockcondition:[{name:"keyboardmotor", array:"purchased", amount:10, requirement:">="}]}
  61. mouseengine2 := {movepower: 8, movespeed: 1, movepowerpercent: 1, descr: "A more powerful mouse engine. Also gives a procentual buff.", name: "Mouse engine 2", price: 600, priceincrease: 200, priceincreasepercent: 15, repeated: 100, unlockcondition:[{name:"mouseengine", array:"purchased", amount:15, requirement:">="}]}
  62. mousemastery := {descr:"Moving the mouse now also grants power for clicking", name:"Mouse mastery", price:35000, repeated:1, unlockcondition:[{name:"clickingpower2", array:"purchased", amount:5, requirement:">="}, {name:"mouseengine2", array:"purchased", amount:5, requirement:">="}]}
  63. mouseengine3 := {descr: "Grants a lot of extra power for mouse movements based on how much the mouse was moved", name: "Mouse engine 3", price: 1000000000, unlockcondition:[{name:"mouseengine2", array:"purchased", amount:50, requirement:">="}]}
  64. ;this one ^ is neat but slightly too powerful so it isn't included in all upgrades right now. However if you want to add it to the game. All you have to do is add its name (mouseengine3) to the allupgrades array below
  65. knowledgepower := {movepowerpercent: 5, clickpowerpercent: 5, keyboardkeypowerpercent: 5, harvestpowerpercent:5, descr: "This knowledge is getting to your head. Great!", name: "Knowledge is power", price: 500000, repeated:10, priceincreasepercent:95, unlockcondition:[{name:"plantknowledge", array:"knowledge", amount:100, requirement:">="}]}
  66. knowledgepower2 := {descr:"Making power with your mind", name:"Knowledge is power too", knowledgepower:0.02, price:1234567, repeated:1, unlockcondition:[{name:"plantknowledge", array:"knowledge", amount:500, requirement:">="}, {name:"knowledgepower", array:"purchased", amount:1}]}
  67. garden := {plantchance: 1, descr: "The first level of this upgrade also unlocks the garden in the options menu.`n", name: "Garden", price: 1000, repeated: 100, priceincreasepercent: 10, unlockcondition:[{name:"clickingpower", array:"purchased", amount:12, requirement:">="}]}
  68. garden2 := {harvestpowerpercent:1, descr: "Spices up your garden by increasing power gained", name: "Garden 2", price:3000, repeated: 100, priceincrease:100, priceincreasepercent:12, unlockcondition:[{name:"power", amount:10000, requirement:">="}, {name:"garden", array:"purchased", requirement:">=", amount:15}]}
  69. hiddentreasure := {descr: "Occasionally assigns a random point on the screen as a treasure point.`n Mouse over them to gain 25 times the power of a normal mouse movement and sometimes a chest", name: "Hidden treasures", repeated: 1, price: 6250, unlockcondition:[{name:"mouseengine", array:"purchased", amount:15, requirement:">="}, {name:"keyboardmotor", array:"purchased", amount:10, requirement:">="}]}
  70. goldenkeys := {descr: "Occasionally turns a random keyboard letter key into an golden key.`nPressing it gives 25 times the power of a normal keyboard key and sometimes a treasure key.", name: "Golden keys", repeated:1, price: 6250, unlockcondition:[{name:"keyboardmotor", array:"purchased", amount:15, requirement:">="}, {name:"mouseengine", array:"purchased", amount:10, requirement:">="}]}
  71.  
  72. allupgrades := ["clickingpower", "mouseengine", "keyboardmotor", "garden", "clickingpower2", "mouseengine2", "keyboardmotor2", "garden2", "mousemastery", "gamersfuel", "hiddentreasure", "goldenkeys", "knowledgepower", "knowledgepower2"]
  73.  
  74. ;all plants available in the game are listed here except one which is created by "evolution"
  75. dusttree := {rarity: 100, knowledge: 4, descr: "Contains power. Mostly dust but some power", name:"dust tree", symbol:"Dt", background:"#888888", textcolor:"#000000", harvest:{harvestpower:90}, global:{clickpower:2}}
  76. barkwood := {rarity: 100, knowledge: 15, descr: "A small but dense tree. Its bark makes for a great power source but sadly this plant has barely any of it", name:"barkwood", symbol:"Bw", background:"#55AA88", textcolor:"#000000", harvest:{harvestpower:200}, passive:{harvestpowerpercent:400}, global:{harvestpowerpercent:1}}
  77. titantree := {rarity: 100, knowledge: 30, descr:"A tall tree with tons of bark. Its almost impossible to harvest most of the possible power from it but its influence stands tall", name:"titantree", symbol:"TT", background:"#55AA88", textcolor:"#555555", harvest:{harvestpower:1900}, global:{harvestpowerpercent:10}}
  78. tickflower := {rarity: 100, knowledge: 5, descr: "A relatively normal flower. It smells like progress", name:"tick flower", symbol:"Tf", background:"#AADD88", textcolor:"#DD4444", global:{clickpowerpercent:2}}
  79. pumpkin := {rarity:100, knowledge: 50, descr:"Spooky", name:"pumpkin", symbol:"P", background:"#FF7700", textcolor:"#00AA00", harvest:{harvestpower:5000, chest:1}}
  80. goldleaf := {rarity:100, knowledge: 50, descr:"A plant known for its great wealth and secrets.", name:"gold leaf", symbol:"Gl", background:"#55AA88", textcolor:"#FFCC55", harvest:{harvestpower:7777, goldenkey:1, knowledge:1}}
  81. lockbloom := {rarity:100, knowledge:50, descr:"A neat plant that occasionally takes on the shape of the current golden key", name:"lockbloom", symbol:"Lb", background:"#DDDD00", harvest:{harvestpower:3000}}
  82. yellowberry := {rarity: 100, knowledge: 7, descr: "Yellow berries don't do anything special but are great at creating new and exciting plants",name: "yellowberry", symbol:"Yb", background:"#55AA88", textcolor:"#FFFF00"}
  83. bluestalk := {rarity: 100, knowledge: 15, descr: "An uncommon plant containing a high density of power", name:"blue stalk", symbol:"Bs", background:"#AA9900", textcolor:"#3333FF", harvest:{harvestpower:1200}, global:{clickpower:6}}
  84. fruittree := {rarity: 100, knowledge: 8, descr: "Useful for when you're hungry. Or just want to fruit up your clicks.", name:"fruit tree", symbol:"Ft", background:"#55AA88", textcolor:"#FF4422", harvest:{harvestpower:270}, passive:{clickpower:2}, global:{clickpowerpercent:4}}
  85. yellowbulb := {rarity: 100, knowledge: 8, descr: "A rather large bulb shrowded in green leaves, ready to explode with power.", name: "yellow bulb", symbol:"YB", background:"#55AA55", textcolor:"#FFFF00", harvest:{harvestpower:350}}
  86. bluebulb := {rarity: 100, knowledge:24, descr: "This plant contains a dense pocket of power. Useful for sure", name: "blue bulb", symbol:"Bb", background:"#9999FF", textcolor:"#3333FF", harvest:{harvestpower:5000}}
  87. crystalbulb := {rarity: 100, knowledge:24, descr: "A giant berry made of pure crystallized power.", name: "crystal bulb", symbol:"Cb", background:"#225522", textcolor:"#9999FF", harvest:{harvestpower:25000}}
  88. partythyme :={rarity: 100, knowledge: 28, descr: "Happy birthda.... Wait what do you mean its not your birthday? Or is it?", name:"party thyme", symbol:"Pt", background:"#55AA88", textcolor:"#FF8888", harvest:{harvestpower:8000}, global:{clickpower:10, movepower:25, keyboardkeypower:15}}
  89. yellowstalk := {rarity: 100, knowledge: 12, descr: "Does a bit of everything", name: "yellow stalk", symbol:"Ys", textcolor:"#FFFF00", background:"#55AA88", harvest:{harvestpower:800}, global:{clickpower:2, movepower:6, movespeed:1, movepowerpercent:1, clickpowerpercent:1}}
  90. dimbloom := {rarity: 100, knowledge: 20, descr: "The mist seems to have disappeared leaving behind a purely black flower. Eldritch powers lie within. What happens if you continue breeding?", name:"dimbloom", symbol:"D", background:"#555555", textcolor:"#000000", harvest:{harvestpower:900}, global:{clickpowerpercent:7}}
  91. greenstalk := fusearrays([{descr: "This outcome should not be a surprise", name:"green stalk", symbol:"Gs", background:"#55AA88", textcolor:"#00FF00"}, yellowstalk, bluestalk])
  92. greenstalk["rarity"] := 100
  93. weaversivy := {rarity:100, knowledge:35, descr:"A moderately toxic plant affecting the life around it.", name:"Weavers Ivy", symbol:"Wi", background:"#22AAAA", auras:{passive:{toxic:1}}}
  94. ;popoppy := {rarity:100, knowledge:17, descr:"Pop!", name:"Popoppy", symbol:"Pp", background:"#55AA88", textcolor:"#FF6666", harvest:{harvestseeds:1}}
  95. ;agrose := {rarity: 100, knowledge:40, descr: "Violent red flower that blasts rather harmless seeds that are mostly helpful.", name:"agrose", symbol:"Ar", background:"#FF6666", harvest:{harvestseeds:6}}
  96. ;these two are currently unused due to them possibly causing bugs because they delay the harvest animation meaning you could move or inspect them during the harvest which screws stuff up.
  97. sapleaf := {rarity: 100, knowledge:35, descr: "A rich energetic sap oozes from this plant to the neighboring tiles", name:"sapleaf", symbol:"Sl", background:"#DD8844", textcolor:"#111111", auras:{global:{clickpower:1}, passive:{harvestpower:3, harvestpowerpercent:5, movepowerpercent:1}}, tileauras:{passive:{harvestpowerpercent:5}}}
  98. shockweaver := {rarity: 100, knowledge:35, descr: "An plant with electric current running through it. It ""helps"" perform better mouse movement", name:"shockweaver", symbol:"Sw", background:"#DD9900", textcolor:"#7766FF", global:{movespeed:2, movepower:5}, auras:{passive:{movepowerpercent:5}}, tileauras:{global:{movepower:3}, passive:{movepowerpercent:5}}}
  99. rootwraith := {rarity: 100, knowledge:40, descr: "This tree looks rather hollow and cursed. But a good kind of cursed", name:"rootwraith", symbol:"Rw", background:"#997700", textcolor:"#880088", harvest:{harvestpower:1900}, passive:{harvestpowerpercent:50}, auras:{passive:{harvestpower:15, harvestpowerpercent:7}}, tileauras:{passive:{harvestpower:10}, global:{harvestpowerpercent:1}}}
  100. knowleaf := {rarity: 100, knowledge:6, descr: "A plant that knows a lot about plants", name:"knowleaf", symbol:"kl", background:"#55AA88", textcolor:"#FFAAFF", harvest:{harvestpower:2, knowledge:2}}
  101. knowleafier := {rarity:100, knowledge:16, descr:"Now we're talking knowledge", name:"knowleafier", symbol:"Kl", background:"#55AA88", textcolor:"#FF55AA", harvest:{harvestpower:5, knowledge:5}}
  102. knowleafiest := {rarity:100, knowledge:36, descr:"Its bursting with knowledge. You're probably not gonna fit anything else in it", name:"knowleafiest", symbol:"KL", background:"#55AA88", textcolor:"#FF0000", harvest:{harvestpower:10, knowledge:10}}
  103. smartstalk := {rarity:100, knowledge:66, descr:"Luckily knowleaf plants arent the only ones capable of storing knowledge", name:"smartstalk", symbol:"Ss", background:"#55AA88", textcolor:"#5555FF", harvest:{knowledge:25}}
  104. brainmoss := {rarity:100, knowledge:166, descr:"The ultimate solution to your lack of knowledge (not a personal insult). You should probably stop here before your plants gain sentience", name:"brainmoss", symbol:"Bm", background:"#FFAAFF", textcolor:"#AA00AA", harvest:{knowledge:40}, auras:{passive:{knowledgepercent:100}}, tileauras:{global:{knowledgepercent:4}}}
  105. grimpetal := {rarity: 100, knowledge:16, descr: "A dark mist shrouds this flower making it kinda hard to see", name:"grimpetal", symbol:"Gp", background:"#000000", textcolor:"#FFFFFF", global:{clickpower:10}, auras:{passive:{clickpowerpercent:10}}}
  106. gripvine := {rarity: 100, knowledge:24, descr: "A vine that gets a good grip on things", name: "gripvine", symbol:"Gv", background:"#665500", textcolor:"#22FF44", global:{movepower:25, movespeed:1}}
  107. clickvine := {rarity: 100, knowledge:40, descr: "A very potent vine infused with clicking power", name:"clickvine", symbol:"Cv", background:"#665500", textcolor:"#22FF44", harvest:{harvestpower:800}, auras:{passive:{clickpowerpercent:5}}, tileauras:{passive:{clickpowerpercent:5}}}
  108. evolution := {rarity: 100, knowledge:100, descr: "A weird plant composed of a combination of darkness, potency and combination.", name: "evolution", symbol:"Ev", background:"#000000", textcolor:"#AA00AA", harvest:{harvestpower:6666}, fusion:{strength:1, amount:2, name:"amalgam plant", background:"#666666", symbol:"X", descr:"Turns out fusing plants doesn't combine the appeal of them."}}
  109. ;The plants value contains an array of all plants that can appear naturally in the garden
  110.  
  111. plants := [dusttree, tickflower]
  112.  
  113. allplants := {dusttree:dusttree, barkwood:barkwood, titantree:titantree, tickflower:tickflower, pumpkin:pumpkin, goldleaf:goldleaf, lockbloom:lockbloom, yellowberry:yellowberry, bluestalk:bluestalk, bluebulb:bluebulb, crystalbulb:crystalbulb, fruittree:fruittree, yellowbulb:yellowbulb, partythyme:partythyme, yellowstalk:yellowstalk, dimbloom:dimbloom, greenstalk:greenstalk
  114. , weaversivy:weaversivy, sapleaf:sapleaf, shockweaver:shockweaver, rootwraith:rootwraith, knowleaf:knowleaf, knowleafier:knowleafier, knowleafiest:knowleafiest, smartstalk:smartstalk, brainmoss:brainmoss, grimpetal:grimpetal, gripvine:gripvine, clickvine:clickvine, evolution:evolution}
  115.  
  116. plantcombos := [{pardners:["dusttree", "tickflower"], result:"fruittree", rarity:25}, {pardners:["tickflower"], result:"yellowberry", rarity:80}, {pardners:["yellowbulb", "grimpetal"], result:"yellowstalk", rarity:25}
  117. , {pardners:["dusttree", "yellowberry"], result:"yellowbulb", rarity:45}, {pardners:["yellowstalk", "bluestalk"], result:"greenstalk", rarity:35}, {pardners:["greenstalk", "dimbloom"], result:"gripvine", rarity:40}
  118. , {pardners:["fruittree", "gripvine", "grimpetal"], result:"clickvine", rarity:35}, {pardners:["tickflower", "tickflower", "yellowberry"], result:"grimpetal", rarity:50}, {pardners:["grimpetal", "tickflower", "tickflower"], result:"dimbloom", rarity:35}
  119. , {pardners:["yellowbulb", "dimbloom"], result:"bluestalk", rarity:50}, {pardners:["greenstalk", "dimbloom", "clickvine"], result:"evolution", rarity:15}, {pardners:["dusttree", "yellowberry"], result:"knowleaf", rarity:100}
  120. , {pardners:["dusttree", "fruittree"], result:"barkwood", rarity:40}, {pardners:["dusttree", "dusttree", "dusttree", "dusttree", "dusttree", "dusttree", "dusttree"], result:"titantree", rarity:4}, {pardners:["barkwood", "barkwood", "dusttree"], result:"titantree", rarity:30}
  121. , {pardners:["tickflower", "yellowbulb", "dimbloom", "fruittree"], result:"sapleaf", rarity:45}, {pardners:["knowleaf", "dimbloom", "yellowbulb", "bluestalk"], result:"shockweaver", rarity:35}
  122. , {pardners:["dusttree", "dusttree", "barkwood", "fruittree", "titantree", "titantree"], result:"rootwraith", rarity:75}, {pardners:["fruittree", "fruittree", "yellowbulb", "rootwraith", "evolution"], result:"pumpkin", rarity:25}
  123. , {pardners:["knowleaf", "dimbloom", "rootwraith", "sapleaf", "evolution"], result:"goldleaf", rarity:25}, {pardners:["knowleaf", "evolution", "fruittree", "yellowbulb"], result:"partythyme", rarity:75}
  124. , {pardners:["knowleaf", "knowleaf", "knowleaf"], result:"knowleafier", rarity:25}, {pardners:["knowleaf", "yellowbulb", "tickflower"], result:"knowleafier", rarity:50}, {pardners:["knowleafier"], result:"knowleaf", rarity:25}]
  125. ;here are all the combos in the game. When the listed plants are next to an empty tile. The plant in the result object can appear there.
  126. ;The statement ended up being too long so I had to end it and step over to pushing additional entries individually
  127. plantcombos.push({pardners:["titantree", "yellowbulb", "bluestalk"], result:"bluebulb", rarity:30})
  128. plantcombos.push({pardners:["bluebulb", "shockweaver", "evolution"], result:"crystalbulb", rarity:10})
  129. plantcombos.push({pardners:["yellowberry", "flower"], result:"knowleaf", rarity:100})
  130. plantcombos.push({pardners:["knowleafier", "knowleafier", "knowleafier"], result:"knowleafiest", rarity:25})
  131. plantcombos.push({pardners:["knowleafier", "dimbloom", "grimpetal", "flower"], result:"knowleafiest", rarity:100})
  132. plantcombos.push({pardners:["knowleafiest"], result:"knowleafier", rarity:25})
  133. plantcombos.push({pardners:["knowleaf", "knowleafier", "knowleafiest", "evolution"], result:"smartstalk", rarity:100})
  134. plantcombos.push({pardners:["evolution", "knowleafiest", "smartstalk", "shockweaver"], result:"brainmoss", rarity:16})
  135. plantcombos.push({pardners:["shockweaver", "yellowberry", "flower"], result:"weaversivy", rarity:50})
  136. plantcombos.push({pardners:["goldleaf", "dimbloom"], result:"lockbloom", rarity:100})
  137.  
  138. ;garden height and size are listed here (different sizes could occur in the future)
  139. gardenmaxX := 10
  140. gardenmaxY := 10
  141.  
  142. upgrades := stringtoarray(upgrades)
  143. if (!IsObject(upgrades) || upgrades.Count() == 0 ||upgrades.Count() == ""){
  144. upgrades := {}
  145. }
  146. for a, b in allupgrades
  147. {
  148. if(!isnum(upgrades[b]["purchased"])){
  149. upgrades[b] := {purchased:0, unlocked:"locked"}
  150. if(b == "clickingpower"){
  151. upgrades[b]["purchased"] := 1
  152. }
  153. fusearrays([%b%, upgrades[b]])
  154. }
  155. for c, d in upgrades[b]{
  156. %b%[c] := d
  157. }
  158. }
  159.  
  160. plantknowledge := stringtoarray(plantknowledge)
  161. if (!IsObject(plantknowledge) || plantknowledge.Count() == 0 ||plantknowledge.Count() == ""){
  162. plantknowledge := {}
  163. }
  164. if(!plantknowledge["knowledge"]){
  165. plantknowledge["knowledge"] := 0
  166. }
  167. for a, b in allplants{
  168. if(!plantknowledge[a]){
  169. plantknowledge[a] := {}
  170. }
  171. if(!plantknowledge[a]["current"]){
  172. plantknowledge[a]["current"] := 0
  173. }
  174. if(!plantknowledge[a]["cap"]){
  175. plantknowledge[a]["cap"] := b["Knowledge"]
  176. }
  177. if(!plantknowledge[a]["seen"]){
  178. plantknowledge[a]["seen"] := 0
  179. }
  180. }
  181. ;here are all the treasures in the game. Their rarity and their name.
  182. treasurestats := {amulets:{rarity:100, name:"amulet"}, rings:{rarity:100, name:"ring"}, grails:{rarity:100, name:"grail"}, goldbars:{rarity:100, name:"gold bar"}, goldcoins:{rarity:100, name: "gold coin"}, pearls:{rarity:100, name:"pearl"}, emeralds:{rarity:100, name:"emerald"}}
  183. treasures := stringtoarray(treasures)
  184. if (!IsObject(treasures) || treasures.Count() == 0 ||treasures.Count() == ""){
  185. treasures := {}
  186. }
  187. for a, b in treasurestats
  188. {
  189. if(!treasures[a]){
  190. treasures[a] := 0
  191. }
  192. }
  193.  
  194. stats := stringtoarray(stats)
  195. if (!IsObject(stats) || stats.Count() == 0 ||stats.Count() == ""){
  196. stats := {}
  197. }
  198. ;these are all the buttons in the options menu. Optionchecks stores whether they are selected or not.
  199. alloptions := {showmaxedshopupgrades:"Show maxed shop upgrades"
  200. , disablemenusnapping:"Disable putting the main menu to another location when it is moved off screen. (does not work on the top of the screen)"
  201. , autoclickprevention:"Prevent clicking rewards gained when clicking really fast (in case autoclickers are used and you dont want them to affect the game)"}
  202. optionchecks := stringtoarray(optionchecks)
  203. if (!IsObject(optionchecks) || optionchecks.Count() == 0 ||optionchecks.Count() == ""){
  204. optionchecks := {}
  205. }
  206. optioncheckvalue := {}
  207. for a, b in alloptions
  208. {
  209. if(optionchecks[a] == 1){
  210. optioncheckvalue[a] := 1
  211. }
  212. else{
  213. optioncheckvalue[a] := 0
  214. }
  215. }
  216. optionchecks := optioncheckvalue
  217.  
  218. ;assign all garden tiles with their values
  219. loop, % gardenMaxX * gardenMaxY{
  220. CX := mod(A_index, gardenMaxX)
  221. CY := ceil(A_index / gardenMaxY)
  222. if(CX == 0){
  223. CX := gardenMaxX
  224. }
  225. ;check if the buttons contain plants and if you have enough garden tiles to make them visible. Tiles you dont have are invisible. Tiles you dont have but with a plant are disabled.
  226. nextto := [ CX - 1 . "A" . CY - 1, CX . "A" . CY - 1, CX + 1 . "A" . CY - 1, CX - 1 . "A" . CY, CX + 1 . "A" . CY, CX - 1 . "A" . CY + 1, CX . "A" . CY + 1, CX + 1 . "A" . CY + 1]
  227. ;this part reads the savedata for the garden and imports and plants in their correct locations.
  228. freezertile%CX%A%CY% := {nextto:nextto, temp:{}, permanent:{}, location:[CX, CY, "freezer", A_index]}
  229. iniread, savedtile, %savename%, garden, freezertile%CX%A%CY%
  230. if(savedtile <> "ERROR"){
  231. gardenvalue := objfullyclone(stringtoarray(savedtile))
  232. freezertile%CX%A%CY%["plant"] := gardenvalue["plant"]
  233. }
  234. tile%CX%A%CY% := {nextto:nextto, temp:{}, permanent:{}, location:[CX, CY, "garden", A_index]}
  235. iniread, savedtile, %savename%, garden, tile%CX%A%CY%
  236. if(savedtile <> "ERROR"){
  237. gardenvalue := objfullyclone(stringtoarray(savedtile))
  238. tile%CX%A%CY%["permanent"] := gardenvalue["permanent"]
  239. tile%CX%A%CY%["plant"] := gardenvalue["plant"]
  240. }
  241. ;this is an average tile string looks like remove the ; symbol from all text below this to see what happens and get some info out of it. (I hope)
  242. ;tile4A5 := {plant: ;if there's a plant here V. This object contains its stats
  243. ;{rarity: 100, descr: "An ordinary tree", name: "tree", harvest:{harvestpower:25}, global:{clickpower:1}}
  244. ;, nextto: ;here V are all the tiles that the current tile is next to. Does not go below 1 but can go above the current amount of tiles in case new ones get added
  245. ;[3A4, 4A4, 5A4, 3A5, 5A5, 3A6, 4A6, 5A6]
  246. ;, location: ; This contains the location of the tile itself
  247. ;[4, 5, garden, 54]
  248. ;, temp: ;here V come temporary effects from plants that buff nearby tiles
  249. ;{passive:{clickpowerpercent: 10}}
  250. ;, permanent: ;here V come the permanent buffs to a tile which are slowly affected by certain other plants
  251. ;{passive:{movepowerpercent: 20, clickpowerpercent: 10}}}
  252. ;msgbox % arraytostring(tile4A5["nextto"]) ;returns the tiles the current tile is next to
  253. ;msgbox % tile4A5["nextto"][1] ;returns the first tile that the current tile is next to. Tiles that do not exist like tiles below 0 should be ignored.
  254. ;msgbox % arraytostring(tile4A5) returns everything from garden tile 3-2
  255. }
  256.  
  257. clickwaitvalue := 2000
  258. autoclickwaitvalue := 125
  259. movewaitvalue := 10000
  260. timercheckvalue := 100
  261. treasurewaitvalue := 60000
  262. keyboardkeywaitvalue := 1000
  263. goldenkeywaitvalue := 60000
  264. autosavewaitvalue := 300000
  265. clickwait := A_tickcount + clickwaitvalue
  266. autoclickwait := A_tickcount + autoclickwaitvalue
  267. movewait := A_tickcount + movewaitvalue
  268. timercheck := A_tickcount + timercheckvalue
  269. treasurewait := A_tickcount + treasurewaitvalue
  270. keyboardkeywait := A_tickcount + keyboardkeywaitvalue
  271. goldenkeywait := A_tickcount + goldenkeywaitvalue
  272. autosavewait := A_tickcount + autosavewaitvalue
  273. logs := {}
  274. tooltips := []
  275.  
  276. starttime := A_tickcount
  277. coordmode, mouse, screen
  278. coordmode, tooltip, screen
  279.  
  280. ;dev functions
  281. instantmouseclicks := "false" ;disables the waiting time before claiming power by clicking
  282. instantmousemovement := "false" ;disables the waiting time before claiming power by moving the mouse. Even when not moving at all
  283. silentmovementlogs := "100" ;removes the "moving the mouse gave (AMOUNT) power" logs. Set this to a number to reduce the amount of logs put in (250 sets it to 1/4th of the original rate)
  284. maxgardenplantchance := "false" ;grants a 100% chance of a plant appearing on a tile when moving the mouse
  285. maxgardenpermbuffs := "false" ;Makes garden plants with permanent effects apply their max possible effect immediately
  286. silentplants := "false" ;same deal as silent movement logs but for when a garden plant appears in the garden instead. Some special plants still bypass this
  287. ignoreplantrarity := "false" ;plant rarity no longer makes it appear less
  288. noplants := "false" ;moving the mouse doesn't cause plants to appear anymore
  289. limitlessfusions := "false" ;causes plants with the fusion abillity to ignore plant weakness allowing them to fuse as many already fused plants together as you want.
  290. devbuttonenabled := "false" ;enables the dev button which has varying effects based on what I want to test right now
  291. F11reset := "false" ;reloads the game when pressing F11
  292.  
  293. loop, 26{
  294. ;binds all letter keys to a hotkey
  295. Hotkey, % "~" . Chr(A_index+96) . " up", keyboardletters
  296. }
  297.  
  298. guiwidth := A_screenwidth / 1.5
  299. guiheight := A_screenheight / 1.5
  300. gui Backgroundpower:default
  301. gui, add, edit, h0 w0
  302. gui, font, s10
  303. gui +Border -Caption +lastfound
  304. gui, color, EBAE02
  305. WinSet, TransColor, EBAE02
  306. winsettitle, Background Power
  307. selectedfeature := "nothing"
  308. updatemain()
  309. updategardeneffects()
  310. if(version <> "ERROR" && 130 > version){
  311. ;in v 1.30, hidden keys have been renamed to golden keys so this part turns all the hidden keys levels into golden key levels. Furthermore the power gained from hidden treasures has been changed to 25x the power of moving the mouse with 1 max level
  312. almanacunlocked := 0
  313. if(upgrades["hiddenkeys"]["purchased"] >= 1){
  314. if(!upgrades["goldenkeys"]){
  315. upgrades["goldenkeys"] := {}
  316. }
  317. upgrades["goldenkeys"]["purchased"] := 1
  318. upgrades.delete("hiddenkeys")
  319. }
  320. if(hiddentreasure["purchased"] > 1){
  321. hiddentreasure["purchased"] := 1
  322. }
  323. IniRead, plantcomboknowledge, %savename%, garden, plantcomboknowledge
  324. ;the plant combo part system has been overhauled and turned into the almanac rendering the old system useless. Anyone gets 2 free knowledge points per unlocked recipe. They still need to unlock the almanac though
  325. plantcomboknowledge := stringtoarray(plantcomboknowledge)
  326. loop, % plantcomboknowledge.maxIndex(){
  327. if(plantcomboknowledge[A_index] == 1){
  328. plantknowledge["knowledge"] += 2
  329. }
  330. }
  331. IniDelete, %savename%, garden, plantcomboknowledge
  332. }
  333. ;not sure what this V part does but it makes moving the gui with the mouse possible so it stays
  334. OnMessage(0x0201, "WM_LBUTTONDOWN")
  335. WM_LBUTTONDOWN()
  336. {
  337. If (A_Gui){
  338. PostMessage, 0xA1, 2
  339. }
  340. }
  341. timervalue := 25
  342. SetTimer, globaltimer, %timervalue%
  343. gui, show, autosize
  344. return
  345.  
  346. ~LButton::
  347. ;this triggers whenever the left mouse button is clicked.
  348. removetooltip("shopdescription")
  349. removetooltip("gardendescription")
  350. if(A_tickcount > clickwait && !(autoclickwait > A_tickcount && optionchecks["autoclickprevention"] == 1) || instantmouseclicks == "true"){
  351. ;autoclickprevention is an option that you can turn on (default off) which prevents power gain from clicking too fast
  352. ;in case people really want to play my game but also really feel like autoclickers are cheating
  353. clickwait := A_tickcount + clickwaitvalue
  354. somemousevalue := calculateclickvalue()
  355. changepower(somemousevalue)
  356. if(!stats["clicks"]){
  357. stats["clicks"] := 0
  358. }
  359. stats["clicks"] += 1
  360. }
  361. autoclickwait := A_tickcount + autoclickwaitvalue
  362. return
  363.  
  364. keyboardletters:
  365. ;when a keyboard key is released. This part triggers.
  366. ;I made it trigger on release instead of pressing because you could trigger this multiple times by holding.
  367. if(A_tickcount > keyboardkeywait && keyboardmotor["purchased"] >= 1){
  368. somekeyboardvalue := calculatekeyboardkeyvalue(A_thishotkey)
  369. keyboardkeywait := A_tickcount + keyboardkeywaitvalue
  370. changepower(somekeyboardvalue)
  371. if(!stats["keyboardletterspressed"]){
  372. stats["keyboardletterspressed"] := 0
  373. }
  374. stats["keyboardletterspressed"] += 1
  375. ;pressing keys can sometimes create hidden treasures and rarely spawns a golden key
  376. random, keyboardrngesus, 1, 100
  377. if(keyboardrngesus > 95 && hiddentreasure["purchased"] >= 1){
  378. treasureavailable := randompointonscreen()
  379. }
  380. random, keyboardrngesus, 1, 100
  381. if(keyboardrngesus > 98 && goldenkeys["purchased"] >= 1){
  382. keyavailable := randomletter()
  383. }
  384. }
  385. if(A_thishotkey == "~" . keyavailable . " up"){
  386. ;if the hidden key is pressed. Do this
  387. somekeyboardvalue := calculatekeyboardkeyvalue(A_thishotkey) * 25
  388. goldenkeywait := A_tickcount + goldenkeywaitvalue
  389. addlog("collecting the golden key (" . keyavailable . ") gave " . somekeyboardvalue . " power", "power")
  390. addlog("collecting the golden key (" . keyavailable . ") gave " . somekeyboardvalue . " power", "treasure")
  391. keyavailable := ""
  392. changepower(somekeyboardvalue)
  393. somekeyboardvalue := getkeys()
  394. if(!stats["goldenkeyspressed"]){
  395. stats["goldenkeyspressed"] := 0
  396. }
  397. stats["goldenkeyspressed"] += 1
  398. if(somekeyboardvalue >= 1){
  399. ;when a treasure key is obtained. Do this
  400. treasurekeys += somekeyboardvalue
  401. chesttext := "collecting a golden key gave " . somekeyboardvalue . " treasure Key"
  402. if(somekeyboardvalue >= 2){
  403. chesttext .= "s"
  404. }
  405. addlog(chesttext, "treasure")
  406. if(!stats["goldenkeysfound"]){
  407. stats["goldenkeysfound"] := 0
  408. }
  409. stats["goldenkeysfound"] += somekeyboardvalue
  410. }
  411. updatemain()
  412. }
  413. return
  414.  
  415. globaltimer:
  416. if(A_tickcount > timercheck){
  417. ;update the power on the menu
  418. timercheck := A_tickcount + timercheckvalue
  419. power := round(power)
  420. shownpower := % toscientific(power, 3)
  421. mainshowpower.InnerHtml := "Power: " . shownpower
  422. ;fixwindowpos moves the window if its offscreen
  423. if(optionchecks["disablemenusnapping"] == 0){
  424. fixwindowpos("Background Power")
  425. }
  426. }
  427. if(A_tickcount > autosavewait){
  428. ;save the game
  429. savegame_onclick()
  430. }
  431. ;get where the mouse is currently at on screen
  432. Coordmode, Mouse, Screen
  433. MouseGetPos, MouseX, MouseY
  434.  
  435. ;this part handles moving the mouse dot in the radar on the hidden treasure gui
  436. if(selectedfeature == "treasure" && treasureradarbought == 1){
  437. treasureradardot.style.left := (MouseX / (A_screenwidth / 100)) . "%"
  438. treasureradardot.style.top := (MouseY / (A_screenheight / 100)) . "%"
  439. if(treasureavailable && 100 >= abs(treasureavailable[1] - MouseX) && 100 >= abs(treasureavailable[2] - MouseY)){
  440. treasureradardot.innerhtml := "O"
  441. }
  442. else if(treasureavailable && 200 >= abs(treasureavailable[1] - MouseX) && 200 >= abs(treasureavailable[2] - MouseY)){
  443. treasureradardot.innerhtml := "0"
  444. }
  445. else if(treasureavailable && 400 >= abs(treasureavailable[1] - MouseX) && 400 >= abs(treasureavailable[2] - MouseY)){
  446. treasureradardot.innerhtml := "o"
  447. }
  448. else{
  449. treasureradardot.innerhtml := "."
  450. }
  451. }
  452. if(treasureavailable && 30 >= abs(treasureavailable[1] - MouseX) && 30 >= abs(treasureavailable[2] - MouseY)){
  453. ;check if the mouse is near a hidden treasure and if so. Collect it
  454. treasurewait := A_tickcount + treasurewaitvalue
  455. somevalue := calculatemovevalue() * 25
  456. changepower(somevalue)
  457. addlog("collecting a hidden treasure gave " . somevalue . " power", "power")
  458. addlog("collecting a hidden treasure gave " . somevalue . " power", "treasure")
  459. if(!stats["hiddentreasuresfound"]){
  460. stats["hiddentreasuresfound"] := 0
  461. }
  462. somevalue := getchests()
  463. treasurechests += somevalue
  464. stats["hiddentreasuresfound"] += 1
  465. if(somevalue >= 1){
  466. ;check if a treasure chest has been obtained
  467. if(!stats["treasurechestsfound"]){
  468. stats["treasurechestsfound"] := 0
  469. }
  470. stats["treasurechestsfound"] += somevalue
  471. chesttext := "collecting a hidden treasure gave " . somevalue . " chest"
  472. if(somevalue >= 2){
  473. chesttext .= "s"
  474. }
  475. addlog(chesttext, "treasure")
  476. }
  477. treasureavailable := ""
  478. updatemain()
  479. }
  480. moveX := (MouseX - MouseStartX)
  481. moveY := (MouseY - MouseStartY)
  482. ;subract the place where the mouse was last with where the mouse is now.
  483. MouseStartX := MouseX
  484. MouseStartY := MouseY
  485. ;the current place is stored for the next time.
  486. ;moving the mouse increases this V value. When it reaches a certain treshhold and after enough time passes. Power is gained for moving the mouse.
  487. movetrack += round((abs(moveX) + abs(moveY)) * calculatemovespeed())
  488. if((movetrack >= 15000 && A_tickcount >= movewait) || instantmousemovement == "true"){
  489. ;movement is more effective the more the mouse was moved
  490. moveeffectiveness := min(1 + (movetrack / 300000), 2)
  491. somevalue := floor(calculatemovevalue() * moveeffectiveness)
  492. if(mouseengine3["purchased"] >= 1){
  493. somevalue += movetrack
  494. }
  495. movetrack = 0
  496. changepower(somevalue)
  497. random, globalrngesus, 1, 1000
  498. if(silentmovementlogs == "false" || silentmovementlogs >= globalrngesus){
  499. addlog("moving the mouse gave " . somevalue . " power", "power")
  500. }
  501. if(globalrngesus > 900){
  502. keyavailable := randomletter()
  503. }
  504. random, globalrngesus, 1, 1000
  505. if(globalrngesus > 975 && hiddentreasure["purchased"] >= 1){
  506. treasureavailable := randompointonscreen()
  507. }
  508. if(!stats["mousemoves"]){
  509. stats["mousemoves"] := 0
  510. }
  511. stats["mousemoves"] += 1
  512. movewait := A_tickcount + movewaitvalue
  513. ;calculate the chance of garden plants appearing. Its 3% by default + up to 3 from upgrades + up to 3 if the mouse was moved a lot.
  514. plantchance := 3
  515. gardenplantchance := 0
  516. for globalentry, globalcontent in upgrades{
  517. if(%globalentry%["plantchance"]){
  518. gardenplantchance += %globalentry%["plantchance"] * globalcontent["purchased"]
  519. }
  520. }
  521. plantchance += (gardenplantchance * plantchance / 100) + ((moveeffectiveness - 1) * plantchance)
  522. if(noplants == "false"){
  523. creategardenplant(plantchance)
  524. }
  525. ;gardentick handles permanent effects for now. I plan on eventually adding a plant growth feature that uses this
  526. gardentick()
  527. }
  528. ;this part here handles the tooltips added by addtooltip() and puts them below eachother and next to your mouse on every call.
  529. totaltooltips := ""
  530. loop, % tooltips.MaxIndex(){
  531. if(0 >= tooltips[A_index]["timer"]){
  532. tooltips.remove(A_index)
  533. }
  534. totaltooltips .= tooltips[A_index]["content"] . "`n"
  535. tooltips[A_index]["timer"] -= timervalue / 100
  536. }
  537. ;This function makes tooltips smoother and prevents flickering
  538. ToolTipFM(totaltooltips, 5)
  539. return
  540.  
  541. updatemain(){
  542. global
  543. critical, on
  544. gui, backgroundpower:default
  545. guicontrolget, mainguiexist, hwnd, maindoc
  546. if(!mainguiexist){
  547. ;create the main menu used for displaying all features
  548. mainmenuhighW := guiwidth * 0.1
  549. mainmenuhighH := guiheight
  550. Gui, Add, ActiveX, x0 y0 w%mainmenuhighW% h%mainmenuhighH% vmaindoc, HtmlFile
  551. guicontrolget, maindoc, pos
  552. mainmenuhighX := maindocW
  553. Gui, Add, ActiveX, x%mainmenuhighX% y0 w%mainmenuhighW% h%mainmenuhighH% vmaindoc2, HtmlFile
  554. mainhtmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; width:100%; height: 100%; font-family: 'Verdana'; font-size:12px;} body {background:#666666; width:100%; height: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  555. mainhtmlpart1 .= ".power{width:100%; height: 30px; color: #000000;}"
  556. mainhtmlpart1 .= ".shop{width:100%; height: 30px; background: #AAAAAA; color: #000000;}"
  557. mainhtmlpart1 .= ".garden{width:100%; height: 30px; background: #AAAAAA; color: #000000;}"
  558. mainhtmlpart1 .= ".hiddentreasure{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  559. mainhtmlpart1 .= ".logs{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  560. mainhtmlpart1 .= ".stats{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  561. mainhtmlpart1 .= ".options{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  562. mainhtmlpart1 .= ".help{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  563. mainhtmlpart1 .= ".devbutton{width:100%; height: 30px; left:0px; background: #000000; color: #DDDDDD;}"
  564. mainhtmlpart1 .= ".save{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  565. mainhtmlpart1 .= ".exit{width:100%; height: 30px; left:0px; background: #222222; color: #FFFFFF;}"
  566. mainhtmlpart2 := "</style></head><body><table id='mainmenutable'>"
  567. mainhtmlpart2 .= "<tr><td><p class='power' id='showpower'>Power: " . power . "</button></td></tr>"
  568. mainhtmlpart2 .= "<tr><td><button class='shop' id='shop' mode='shop'>Shop</button></td></tr>"
  569. mainhtmlpart2 .= "<tr id='gardentable' style=""display:none;""><td><button class='garden' id='garden' mode='garden' style=""display:none;"">Garden</button></td></tr>"
  570. mainhtmlpart2 .= "<tr id='treasuretable' style=""display:none;""><td><button class='hiddentreasure' id='treasure' mode='treasure' style=""display:none;"">Hidden treasures</button></td></tr>"
  571. mainhtmlpart2 .= "<tr><td><button class='logs' id='logs' mode='logs'>Logs</button></td></tr>"
  572. mainhtmlpart2 .= "<tr><td><button class='stats' id='stats' mode='stats'>Stats</button></td></tr>"
  573. mainhtmlpart2 .= "<tr><td><button class='options' id='options' mode='options'>Options</button></td></tr>"
  574. mainhtmlpart2 .= "<tr><td><button class='help' id='help' mode='help'>Help</button></td></tr>"
  575. mainhtmlpart2 .= "<tr><td><button class='save' id='save'>Save</button></td></tr>"
  576. mainhtmlpart2 .= "<tr id='devtable' style=""display:none;""><td><button class='devbutton' id='devbutton' style=""display:none;"">Devbutton</button></td></tr>"
  577. mainhtmlpart2 .= "<tr><td><button class='exit' id='exit'>Exit</button></td></tr>"
  578. mainhtmlpart2 .= "</table></body></html>"
  579. mainhtml := mainhtmlpart1 . mainhtmlpart2
  580. maindoc.open()
  581. maindoc.write(mainhtml)
  582. maindoc.close()
  583.  
  584. mainshowpower := maindoc.getElementById("showpower")
  585. mainshopbutton := maindoc.getElementById("shop")
  586. maingardenbutton := maindoc.getElementById("garden")
  587. maingardentable := maindoc.getElementById("gardentable")
  588. maintreasurebutton := maindoc.getElementById("treasure")
  589. maintreasuretable := maindoc.getElementById("treasuretable")
  590. mainlogsbutton := maindoc.getElementById("logs")
  591. mainstatsbutton := maindoc.getElementById("stats")
  592. mainoptionsbutton := maindoc.getElementById("options")
  593. mainhelpbutton := maindoc.getElementById("help")
  594. mainsavebutton := maindoc.getElementById("save")
  595. maindevbutton := maindoc.getElementById("devbutton")
  596. maindevtable := maindoc.getElementById("devtable")
  597. mainexitbutton := maindoc.getElementById("exit")
  598. ComObjConnect(mainshopbutton, "selectfeature_")
  599. ComObjConnect(maingardenbutton, "selectfeature_")
  600. ComObjConnect(maintreasurebutton, "selectfeature_")
  601. ComObjConnect(mainlogsbutton, "selectfeature_")
  602. ComObjConnect(mainstatsbutton, "selectfeature_")
  603. ComObjConnect(mainoptionsbutton, "selectfeature_")
  604. ComObjConnect(mainhelpbutton, "selectfeature_")
  605. ComObjConnect(mainsavebutton, "savegame_")
  606. ComObjConnect(maindevbutton, "devbutton_")
  607. ComObjConnect(mainexitbutton, "exit_")
  608. }
  609. if(devbuttonenabled == "true"){
  610. maindevbutton.style.display := "block"
  611. maindevtable.style.display := "block"
  612. }
  613. if(maintreasurebutton.style.display == "none" && hiddentreasure["purchased"] >= 1){
  614. maintreasurebutton.style.display := "block"
  615. maintreasuretable.style.display := "block"
  616. }
  617. else if(0 >= hiddentreasure["purchased"]){
  618. maintreasurebutton.style.display := "none"
  619. maintreasuretable.style.display := "none"
  620. }
  621. if(maingardenbutton.style.display == "none" && garden["purchased"] >= 1){
  622. maingardenbutton.style.display := "block"
  623. maingardentable.style.display := "block"
  624. }
  625. else if(0 >= garden["purchased"]){
  626. maingardenbutton.style.display := "none"
  627. maingardentable.style.display := "none"
  628. }
  629. if(selectedfeature){
  630. mainbuttoncheck := maindoc.getElementById(selectedfeature)
  631. mainbuttoncheck.disable := "disabled"
  632. mainbuttoncheck.value := mainbuttoncheck.value
  633. }
  634. guicontrolget, mainguiexist, hwnd, featuredoc
  635. if(!mainguiexist){
  636. guicontrolget, maindoc, pos
  637. guicontrolget, maindoc2, pos
  638. mainmenuhighW := guiwidth - maindocW - maindoc2W
  639. mainmenuhighH := guiheight
  640. mainmenuhighX := maindocW + maindoc2W
  641. Gui, Add, ActiveX, w%mainmenuhighW% h%mainmenuhighH% x%mainmenuhighX% y0 vfeaturedoc, HTMLFile
  642. }
  643. ;pressing a button on the sidebar changes the selectedfeature value. The displayed info changes depending on the currently pressed button
  644. if(selectedfeature == "nothing"){
  645. if(!storedselectedfeature <> selectedfeature){
  646. storedselectedfeature := selectedfeature
  647. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; border-style: none; height: 100%;} body {background:#888888; height: 100%;}"
  648. htmlpart2 := "</style></head><body><table>"
  649. htmlpart2 .= "</table></body></html>"
  650. html := htmlpart1 . htmlpart2
  651.  
  652. html2 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; width:100%; height: 100%;} body {background:#777777; width:100%; height: 100%;}</style></head></html>"
  653. }
  654. featuredoc.open()
  655. featuredoc.write(html)
  656. featuredoc.close()
  657. maindoc2.open()
  658. maindoc2.write(html2)
  659. maindoc2.close()
  660. }
  661. if(selectedfeature == "shop"){
  662. if(storedselectedfeature <> selectedfeature){
  663. storedselectedfeature := selectedfeature
  664. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:auto; height: 100%;} body {background:#888888; height: 100%; font-family:verdana; font-size:12px;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  665. htmlpart1 .= ".scrollable {overflow-y: auto;}"
  666. htmlpart2 := "</style></head><body><table class='scrollable'>"
  667. loop, % allupgrades.MaxIndex(){
  668. shopentry := allupgrades[A_index]
  669. htmlpart1 .= "." . shopentry . "{width: 100%; height: 30px; background: #AAAAAA; color: #000000;}"
  670. htmlpart2 .= "<tr id='" . shopentry . "table'><td style=""width:10%;""><button class='" . shopentry . "' id='" . shopentry . "' disable=''> " . %shopentry%["name"] . "</button></td><td><p id='" . shopentry . "price'>Price: " . round(calculateshopprice(%shopentry%)) . "</p></td></tr>"
  671. }
  672. htmlpart2 .= "</table></div></body></html>"
  673. html := htmlpart1 . htmlpart2
  674.  
  675. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; height: 100%;} body {background:#777777; height: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  676. html2part1 .= ".inspect{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  677. html2part1 .= ".purchase{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  678. html2part2 := "</style></head><body><table style='float:left;'>"
  679. html2part2 .= "<tr><td><button class='inspect' id='inspect' mode='inspect'>Inspect mode</button></td></tr>"
  680. html2part2 .= "<tr><td><button class='purchase' id='purchase' mode='purchase'>Purchase Mode</button></td></tr>"
  681. html2part2 .= "</table></div></body></html>"
  682. html2 := html2part1 . html2part2
  683. featuredoc.open()
  684. featuredoc.write(html)
  685. featuredoc.close()
  686.  
  687. maindoc2.open()
  688. maindoc2.write(html2)
  689. maindoc2.close()
  690. shoppurchasebutton := maindoc2.getElementById("purchase")
  691. shopinspectbutton := maindoc2.getElementById("inspect")
  692. ComObjConnect(shoppurchasebutton, "shopmode_")
  693. ComObjConnect(shopinspectbutton, "shopmode_")
  694. for, mainentry, maincontent in allupgrades{
  695. if(%maincontent%){
  696. shopupgrade%maincontent%button := featuredoc.getElementById(maincontent)
  697. ComObjConnect(shopupgrade%maincontent%button, "shoppurchase_")
  698. }
  699. }
  700. }
  701. for shopentry, shopcontent in allupgrades{
  702. ;example of an upgrade with an unlock requirement: clickingpower2 := {unlockcondition:[{name:"clickingpower", array:"purchased", amount:10, requirement:">="}, {name:"power", amount:5000, requirement:">="}]}
  703. ;this part hides any upgrade that does not have their unlock requirement met and permanently shows them if they are met.
  704. unlockcheck := "unlocked"
  705. if(%shopcontent%["unlocked"] <> "unlocked"){
  706. ;this part checks for buttons with an unlock requirement and checks if that requirement has been met.
  707. loop % %shopcontent%["unlockcondition"].Count(){
  708. unlockcondition := %shopcontent%["unlockcondition"]
  709. shopvalue := unlockcondition[A_index]["name"]
  710. if(unlockcondition[A_index]["array"]){
  711. shopvalue := %shopvalue%[unlockcondition[A_index]["array"]]
  712. }
  713. else{
  714. shopvalue := %shopvalue%
  715. }
  716. if(unlockcondition[A_index]["requirement"] == "<"){
  717. if(shopvalue >= unlockcondition[A_index]["amount"]){
  718. unlockcheck := "locked"
  719. }
  720. }
  721. if(unlockcondition[A_index]["requirement"] == "<="){
  722. if(shopvalue > unlockcondition[A_index]["amount"]){
  723. unlockcheck := "locked"
  724. }
  725. }
  726. if(unlockcondition[A_index]["requirement"] == "=="){
  727. if(shopvalue <> unlockcondition[A_index]["amount"]){
  728. unlockcheck := "locked"
  729. }
  730. }
  731. if(unlockcondition[A_index]["requirement"] == ">="){
  732. if(unlockcondition[A_index]["amount"] > shopvalue){
  733. unlockcheck := "locked"
  734. }
  735. }
  736. if(unlockcondition[A_index]["requirement"] == ">"){
  737. if(unlockcondition[A_index]["amount"] >= shopvalue){
  738. unlockcheck := "locked"
  739. }
  740. }
  741. }
  742. if(unlockcheck == "unlocked"){
  743. %shopcontent%["unlocked"] := "unlocked"
  744. }
  745. }
  746. shopupgradetable := featuredoc.getElementById(shopcontent . "table")
  747. shopupgradebutton := featuredoc.getElementById(shopcontent)
  748. shopupgradeprice := featuredoc.getElementById(shopcontent . "price")
  749. ;disable does not mean the button is disabled. disabled with an d at the end means that its disabled. Disable is something I added myself which only changes the button color.
  750. if(shopupgradebutton.disable <> "disabled" && (%shopcontent%["repeated"] && %shopcontent%["purchased"] >= %shopcontent%["repeated"]) || !%shopcontent%["repeated"] && %shopcontent%["purchased"] > 0){
  751. shopupgradebutton.disable := "disabled"
  752. }
  753. else if(shopupgradebutton.disable == "disabled" && %shopcontent%["repeated"] > %shopcontent%["purchased"]){
  754. shopupgradebutton.disable := ""
  755. }
  756. if(%shopcontent%["unlocked"] <> "unlocked"){
  757. shopupgradetable.style.display := "none"
  758. }
  759. else{
  760. shopupgradetable.style.display := "block"
  761. }
  762. ;change the button value to itself to update the visibillity/color etc
  763. shopupgradebutton.value := %shopcontent%["name"]
  764. if(shopupgradebutton.disable <> "disabled"){
  765. shopupgradeprice.innerhtml := "Price: " . round(calculateshopprice(%shopcontent%))
  766. }
  767. else{
  768. shopupgradeprice.innerhtml := "Max level"
  769. }
  770. }
  771. if(shopmode){
  772. mainbuttoncheck := maindoc2.getElementById(shopmode)
  773. mainbuttoncheck.disable := "disabled"
  774. mainbuttoncheck.value := mainbuttoncheck.value
  775. }
  776. }
  777. if(selectedfeature == "garden" || selectedfeature == "freezer"){
  778. if(storedselectedfeature <> selectedfeature || storedgardentiles <> gardentiles || storedfreezertiles <> freezertiles){
  779. storedselectedfeature := selectedfeature
  780. storedgardentiles := gardentiles
  781. storedfreezertiles := freezertiles
  782. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow: hidden; height:100%; width:100%;} body {background:#888888; height:100%; width:100%;} [disable=disabled]{background: #666666 !important;}"
  783. htmlpart1 .= ".gardentable {width:100%; height:100%; left:0px; top:0px; border-style:none; position:absolute;}"
  784. htmlpart2 := "</style></head><body><table class='gardentable'>"
  785. guicontrolget, featuredoc, pos
  786. loop, % gardenmaxX * gardenmaxY{
  787. ;this loop creates the buttons for every garden and freezer tile
  788. CX := mod(A_index, gardenmaxX)
  789. CY := ceil(A_index / gardenmaxY)
  790. if(CX == 1){
  791. htmlpart2 .= "<tr>"
  792. }
  793. if(CX == 0){
  794. CX := gardenmaxX
  795. }
  796. ;IMPORTANT buttons here are set at a specific pixel length instead of % length. For some reason pressing any button with % width shrinks it before it turns normal again (only the first one is unaffected)
  797. ;to see this for yourself. Replace the following
  798. ;width: " . round(featuredocW / 100 * 9, 1) . "px; >>>> width: " . round((100 / gardenmaxX) * 0.9) . "px;
  799. ;height: " . round(featuredocH / 100 * 9, 1) . "px; >>>> height: " . round((100 / gardenmaxY) * 0.9) . "px;
  800. if(selectedfeature == "garden"){
  801. htmlpart1 .= ".Tile" . CX . "A" . CY . " {left:" . round((CX - 0.95) * (100 / gardenmaxX), 1) . "%; width: " . round(featuredocW / 100 * 9, 1) . "px; top:" . round((CY - 0.95) * (100 / gardenmaxY), 1) . "%; height: " . round(featuredocH / 100 * 9, 1) . "px; font-size:25px; background: #55DD88; color: #000000; position: absolute;}"
  802. htmlpart2 .= "<td><button class='Tile" . CX . "A" . CY . "' id='tile" . CX . "A" . CY . "'></button></td>"
  803. }
  804. else if(selectedfeature == "freezer"){
  805. htmlpart1 .= ".Freezertile" . CX . "A" . CY . " {left:" . round((CX - 0.95) * (100 / gardenmaxX), 1) . "%; width: " . round(featuredocW / 100 * 9, 1) . "px; top:" . round((CY - 0.95) * (100 / gardenmaxY), 1) . "%; height: " . round(featuredocH / 100 * 9, 1) . "px; font-size:25px; background: #AADDDD; color: #000000; position: absolute;}"
  806. htmlpart2 .= "<td><button class='Freezertile" . CX . "A" . CY . "' id='freezertile" . CX . "A" . CY . "' style=''></button></td>"
  807. }
  808. if(CX == gardenmaxX){
  809. htmlpart2 .= "</tr>"
  810. }
  811. }
  812. htmlpart2 .= "</table>"
  813. html := htmlpart1 . htmlpart2
  814.  
  815. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; border-style:none; border-color:#FFFFFF; height: 100%; width: 100%;} body {background:#777777; height: 100%; width: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  816. html2part1 .= ".button{word-break: break-word;}"
  817. html2part1 .= ".inspect{width:100%; left:0px; height: 30px; background: #AAAAAA; color: #000000;}"
  818. html2part1 .= ".harvest{width:100%; left:0px; height: 30px; background: #AAAAAA; color: #000000;}"
  819. html2part1 .= ".protect{width:100%; left:0px; height: 30px; background: #AAAAAA; color: #000000;}"
  820. html2part1 .= ".swap{width:100%; left:0px; height: 30px; background: #AAAAAA; color: #000000;}"
  821. html2part1 .= ".swapgarden{width:100%; left:0px; height: 30px; color: #000000;}"
  822. html2part1 .= ".almanac{width:100%; left:0px; height: 30px;, background: #55DD88; color: #000000;}"
  823. html2part1 .= ".purchasetile{width:100%; left:0px; height: 64px; background: #AAAAAA; color: #000000;}"
  824. html2part2 := "</style></head><body><table style='float:left;'>"
  825. html2part2 .= "<tr><td><button class='inspect' id='inspect' mode='inspect'>Inspect mode</button></td></tr>"
  826. html2part2 .= "<tr><td><button class='harvest' id='harvest' mode='harvest'>Harvest mode</button></td></tr>"
  827. html2part2 .= "<tr><td><button class='swap' id='swap' mode='swap'>Swap mode</button></td></tr>"
  828. html2part2 .= "<tr><td><button class='protect' id='protect' mode='protect'>Protect mode</button></td></tr>"
  829. if(selectedfeature == "garden"){
  830. html2part2 .= "<tr><td><button class='swapgarden' id='swapgarden' mode='freezer' style=""background: #AADDDD;"">Freezer</button></td></tr>"
  831. html2part2 .= "<tr id='almanactable' style=""display:none;""><td><button class='almanac' id='almanac' mode='almanac'>Almanac</button></td></tr>"
  832. html2part2 .= "<tr><td><button class='purchasetile' id='purchasetile' topurchase='gardentile'>Purchase garden tile</br>costs " . tileprice("garden") . "</button></td></tr>"
  833. }
  834. if(selectedfeature == "freezer"){
  835. html2part2 .= "<tr><td><button class='swapgarden' id='swapgarden' mode='garden' style=""background: #55DD88;"">Garden</button></td></tr>"
  836. html2part2 .= "<tr id='almanactable' style=""display:none;""><td><button class='almanac' id='almanac' mode='almanac'>Almanac</button></td></tr>"
  837. html2part2 .= "<tr><td><button class='purchasetile' id='purchasetile' topurchase='freezertile'>Purchase freezer tile</br>costs " . tileprice("freezer") . "</button></td></tr>"
  838. }
  839. html2part2 .= "</table></body></html>"
  840. html2 := html2part1 . html2part2
  841. featuredoc.open()
  842. featuredoc.write(html)
  843. featuredoc.close()
  844.  
  845. maindoc2.open()
  846. maindoc2.write(html2)
  847. maindoc2.close()
  848. if(gardenmode){
  849. mainbuttoncheck := maindoc2.getElementById(gardenmode)
  850. mainbuttoncheck.disable := "disabled"
  851. mainbuttoncheck.value := mainbuttoncheck.value
  852. }
  853. gardeninspectbutton := maindoc2.getElementById("inspect")
  854. gardenharvestbutton := maindoc2.getElementById("harvest")
  855. gardenprotectbutton := maindoc2.getElementById("protect")
  856. gardenswapbutton := maindoc2.getElementById("swap")
  857. gardenswapgardenbutton := maindoc2.getElementById("swapgarden")
  858. gardenalmanacbutton := maindoc2.getElementById("almanac")
  859. gardenalmanactable := maindoc2.getElementById("almanactable")
  860. gardenpurchasetilebutton := maindoc2.getElementById("purchasetile")
  861. ComObjConnect(gardeninspectbutton, "gardenmode_")
  862. ComObjConnect(gardenharvestbutton, "gardenmode_")
  863. ComObjConnect(gardenswapbutton, "gardenmode_")
  864. ComObjConnect(gardenprotectbutton, "gardenmode_")
  865. ComObjConnect(gardenswapgardenbutton, "selectfeature_")
  866. ComObjConnect(gardenpurchasetilebutton, "purchasetile_")
  867. ComObjConnect(gardenalmanacbutton, "selectfeature_")
  868. ComObjConnect(gardenswapgardenbutton, "selectfeature_")
  869.  
  870. loop, % gardenmaxX * gardenmaxY{
  871. CX := mod(A_index, gardenMaxX)
  872. CY := ceil(A_index / gardenMaxY)
  873. if(CX == 0){
  874. CX := gardenMaxX
  875. }
  876. if(selectedfeature == "garden"){
  877. gardentile%CX%A%CY%button := featuredoc.getElementById("tile" . CX . "A" . CY)
  878. ComObjConnect(gardentile%CX%A%CY%button, "garden_")
  879. }
  880. else if(selectedfeature == "freezer"){
  881. freezertile%CX%A%CY%button := featuredoc.getElementById("freezertile" . CX . "A" . CY)
  882. ComObjConnect(freezertile%CX%A%CY%button, "garden_")
  883. }
  884. }
  885. if(selectedfeature == "garden" && gardentiles >= GardenmaxX * GardenmaxY){
  886. gardenpurchasetilebutton.disable := "disabled"
  887. gardenpurchasetilebutton.value := gardentiles . " Tiles!"
  888. }
  889. else if(selectedfeature == "garden"){
  890. gardenpurchasetilebutton.disable := ""
  891. gardenpurchasetilebutton.value := "Purchase garden tile</br>costs " . tileprice("garden")
  892. }
  893. else if(selectedfeature == "freezer" && freezertiles >= GardenmaxX * GardenmaxY){
  894. gardenpurchasetilebutton.disable := "disabled"
  895. gardenpurchasetilebutton.value := freezertiles . " Tiles!"
  896. }
  897. else if(selectedfeature == "garden"){
  898. gardenpurchasetilebutton.disable := ""
  899. gardenpurchasetilebutton.value := "Purchase freezer tile</br>costs " . tileprice("freezer")
  900. }
  901. loop, % gardenMaxX * gardenMaxY{
  902. CX := mod(A_index, gardenMaxX)
  903. CY := ceil(A_index / gardenMaxY)
  904. if(CX == 0){
  905. CX := gardenMaxX
  906. }
  907. if(selectedfeature == "garden"){
  908. gardenbuttoncheck := featuredoc.getElementById("tile" . CX . "A" . CY)
  909. ;this part hides garden tiles that you havent unlocked yet or if there's somehow a plant on it. It disables them instead
  910. if(tile%CX%A%CY%["plant"]["name"] && A_index > gardentiles){
  911. gardenbuttoncheck.disable := "disabled"
  912. }
  913. else if(A_index > gardentiles){
  914. gardenbuttoncheck.style.display := "none"
  915. }
  916. else{
  917. gardenbuttoncheck.style.display := "block"
  918. gardenbuttoncheck.disable := ""
  919. }
  920. }
  921. if(selectedfeature == "freezer"){
  922. gardenbuttoncheck := featuredoc.getElementById("freezertile" . CX . "A" . CY)
  923. if(freezertile%CX%A%CY%["plant"]["name"] && A_index > freezertiles){
  924. gardenbuttoncheck.disable := "disabled"
  925. gardenbuttoncheck.style.display := "block"
  926. }
  927. else if(A_index > freezertiles){
  928. gardenbuttoncheck.style.display := "none"
  929. }
  930. else{
  931. gardenbuttoncheck.style.display := "block"
  932. gardenbuttoncheck.disable := ""
  933. }
  934. }
  935. }
  936. }
  937. if(gardenalmanactable.style.display == "none" && almanacunlocked){
  938. gardenalmanactable.style.display := "block"
  939. }
  940. loop, % gardenmaxX * GardenmaxY{
  941. CX := mod(A_index, 10)
  942. CY := ceil(A_index / 10)
  943. if(CX == 0){
  944. CX = 10
  945. }
  946. ;update any garden tiles that don't have their current name as the same one displayed on the button
  947. if(selectedfeature == "garden"){
  948. storedplantname := tile%CX%A%CY%["plant"]["name"]
  949. if(storedplantname == "lockbloom" && !keyavailable){
  950. tile%CX%A%CY%["plant"]["symbol"] := "Lb"
  951. }
  952. storedplantsymbol := tile%CX%A%CY%["plant"]["symbol"]
  953. storedplantbackgroundcolor := tile%CX%A%CY%["plant"]["background"]
  954. storedplanttextcolor := tile%CX%A%CY%["plant"]["textcolor"]
  955. gardendocedit := featuredoc.getelementbyid("tile" . CX . "A" . CY)
  956. if(CX == plantselect["location"][1] && CY == plantselect["location"][2] && plantselect["location"][3] == "garden"){
  957. gardendocedit.style.background := "#FF6666"
  958. }
  959. else if(tile%CX%A%CY%["plant"]["protected"] == 1){
  960. gardendocedit.style.background := "#557744"
  961. }
  962. else{
  963. gardendocedit.style.background := "#55DD88"
  964. }
  965. }
  966. if(selectedfeature == "freezer"){
  967. storedplantname := freezertile%CX%A%CY%["plant"]["name"]
  968. storedplantsymbol := freezertile%CX%A%CY%["plant"]["symbol"]
  969. storedplantbackgroundcolor := freezertile%CX%A%CY%["plant"]["background"]
  970. storedplanttextcolor := freezertile%CX%A%CY%["plant"]["textcolor"]
  971. gardendocedit := featuredoc.getelementbyid("freezertile" . CX . "A" . CY)
  972. if(CX == plantselect["location"][1] && CY == plantselect["location"][2] && plantselect["location"][3] == "freezer"){
  973. gardendocedit.style.background := "#FF6666"
  974. }
  975. else if(freezertile%CX%A%CY%["plant"]["protected"] == 1){
  976. gardendocedit.style.background := "#AAAADD"
  977. }
  978. else{
  979. gardendocedit.style.background := "#AADDDD"
  980. }
  981. }
  982. ;update garden tile names if they have been changed.
  983. if((storedplantname <> gardendocedit.value && storedplantsymbol <> gardendocedit.value)){
  984. if(storedplantbackgroundcolor){
  985. if(storedplantsymbol){
  986. gardendocedit.value := "<table style=""background:" . storedplantbackgroundcolor . "; width:60%; height:60%;""><td>" . storedplantsymbol . "</td></table>"
  987. }
  988. else{
  989. gardendocedit.value := "<table style=""background:" . storedplantbackgroundcolor . "; width:60%; height:60%;""><td>" . storedplantname . "</td></table>"
  990. }
  991. }
  992. else{
  993. if(storedplantsymbol){
  994. gardendocedit.value := storedplantsymbol
  995. }
  996. else{
  997. gardendocedit.value := storedplantname
  998. }
  999. }
  1000. if(storedplanttextcolor){
  1001. gardendocedit.style.color := storedplanttextcolor
  1002. }
  1003. else{
  1004. gardendocedit.style.color := "#000000"
  1005. }
  1006. }
  1007. }
  1008. if(gardenmode){
  1009. mainbuttoncheck := maindoc2.getElementById(gardenmode)
  1010. mainbuttoncheck.disable := "disabled"
  1011. mainbuttoncheck.value := mainbuttoncheck.value
  1012. }
  1013. }
  1014. if(selectedfeature == "almanac"){
  1015. if(storedselectedfeature <> selectedfeature || storedalmanacplant <> selectedalmanacplant || plantknowledge["knowledge"] <> storedknowledge){
  1016. storedselectedfeature := selectedfeature
  1017. storedalmanacplant := selectedalmanacplant
  1018. storedknowledge := plantknowledge["knowledge"]
  1019. ;the almanac is rather complex. Most of the code is either displaying the html or comparing knowledge points invested in the selected plant to see which recipes to display.
  1020. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow: hidden; height:100%; width:100%; font-family: 'Verdana'; font-size:16px;} body {background:#888888; height:100%; width:100%;} table {top:0px; border-style: none;} [disable=disabled]{background: #666666 !important;}"
  1021. htmlpart1 .= ".know{background: #55DD88; color: #000000; width:100%;}"
  1022. htmlpart1 .= ".maindiv{position:absolute; left:0px; top:0px; width:100%;}"
  1023. htmlpart2 := "</style></head><body>"
  1024. if(selectedalmanacplant){
  1025. mainvalue := %selectedalmanacplant%
  1026. htmlpart2 .= "<div class='maindiv' style=""overflow-y:scroll; overflow-X:hidden; height:66%;""><table>"
  1027. htmlpart2 .= "<tr><td><button style=""width: " . round(featuredocW / 100 * 9, 1) . "px; height: " . round(featuredocH / 100 * 9, 1) . "px; font-size:25px; background: #55DD88; "
  1028. if(mainvalue["textcolor"]){
  1029. htmlpart2 .= "color: " . mainvalue["textcolor"] . "; "
  1030. }
  1031. else{
  1032. htmlpart2 .= "color: #000000; "
  1033. }
  1034. htmlpart2 .= """>"
  1035. if(mainvalue["background"]){
  1036. if(mainvalue["symbol"]){
  1037. htmlpart2 .= "<table style=""background:" . mainvalue["background"] . "; width:60%; height:60%;""><td>" . mainvalue["symbol"] . "</td></table>"
  1038. }
  1039. else{
  1040. htmlpart2 .= "<table style=""background:" . mainvalue["background"] . "; width:60%; height:60%;""><td>" . mainvalue["name"] . "</td></table>"
  1041. }
  1042. }
  1043. else if(mainvalue["symbol"]){
  1044. htmlpart2 .= mainvalue["symbol"]
  1045. }
  1046. else{
  1047. htmlpart2 .= mainvalue["name"]
  1048. }
  1049. htmlpart2 .= "</button></td></tr></table><table>"
  1050. htmlpart2 .= "<tr><td colspan='2'><p>" . getplantdescription(mainvalue, "</br>") . "</p></td></tr></table><table>"
  1051. mainvalue := plantknowledge[selectedalmanacplant]
  1052. if(mainvalue["current"] > 0){
  1053. createdby := 0
  1054. cancreate := 0
  1055. loop, % plantcombos.maxIndex(){
  1056. mainindex := A_index
  1057. for mainentry, maincontent in plantcombos[mainindex]{
  1058. if(mainentry == "result" && maincontent == selectedalmanacplant){
  1059. createdby += 1
  1060. }
  1061. }
  1062. for mainentry, maincontent in plantcombos[mainindex]["pardners"]{
  1063. if(maincontent == selectedalmanacplant){
  1064. cancreate += 1
  1065. break
  1066. }
  1067. }
  1068. }
  1069. writtendescriptions := 0
  1070. loop, % plants.MaxIndex(){
  1071. if(plants[A_index]["name"] == selectedalmanacplant){
  1072. createdby += 1
  1073. }
  1074. }
  1075. if((mainvalue["current"] / mainvalue["cap"] * 100) >= ((100 / createdby) - (50 / createdby)) / 2 && createdby > 0){
  1076. htmlpart2 .= "<tr><td><p></br>This plant can be created the following way"
  1077. if((mainvalue["current"] / mainvalue["cap"] * 100) >= (((100 / createdby) * 2) - (50 / createdby)) / 2 && createdby > 1){
  1078. htmlpart2 .= "s"
  1079. }
  1080. htmlpart2 .= ":</p></td></tr>"
  1081. }
  1082. loop, % plants.MaxIndex(){
  1083. if(plants[A_index]["name"] == selectedalmanacplant){
  1084. if((mainvalue["current"] / mainvalue["cap"] * 100) >= (100 / createdby) / 2){
  1085. htmlpart2 .= "<tr><td><p>By randomly appearing in the garden</p></td></tr>"
  1086. writtendescriptions += 1
  1087. }
  1088. else if((mainvalue["current"] / mainvalue["cap"] * 100) >= ((100 / createdby) - (50 / createdby)) / 2){
  1089. htmlpart2 .= "<tr><td><p>????????????????????</p></td></tr>"
  1090. writtendescriptions += 1
  1091. }
  1092. }
  1093. }
  1094. loop, % plantcombos.maxIndex(){
  1095. mainindex := A_index
  1096. for mainentry, maincontent in plantcombos[mainindex]{
  1097. if(mainentry == "result" && maincontent == selectedalmanacplant){
  1098. writtendescriptions += 1
  1099. if((mainvalue["current"] / mainvalue["cap"] * 100) >= (100 / createdby) * writtendescriptions / 2){
  1100. htmlpart2 .= "<tr><td><p>breeding using a "
  1101. for mainentry2, maincontent2 in plantcombos[mainindex]["pardners"]{
  1102. plantname := %maincontent2%["name"]
  1103. if(plantknowledge[maincontent2]["current"] / plantknowledge[maincontent2]["cap"] >= 0.25){
  1104. htmlpart2 .= plantname . " and a "
  1105. }
  1106. else{
  1107. htmlpart2 .= "????? and a "
  1108. }
  1109. }
  1110. stringtrimright, htmlpart2, htmlpart2, 7
  1111. htmlpart2 .= "</p></td></tr>"
  1112. }
  1113. else if((mainvalue["current"] / mainvalue["cap"] * 100) >= (((100 / createdby) * writtendescriptions) - (50 / createdby)) / 2){
  1114. htmlpart2 .= "<tr><td><p>????????????????????</p></td></tr>"
  1115. }
  1116. }
  1117. }
  1118. }
  1119. writtendescriptions := 0
  1120. if((mainvalue["current"] / mainvalue["cap"] * 100) >= 50 + (((100 / cancreate) - (50 / cancreate)) / 2) && cancreate > 0){
  1121. htmlpart2 .= "<tr><td><p></br>This plant can be used in creating the following plant"
  1122. if((mainvalue["current"] / mainvalue["cap"] * 100) >= 50 + ((((100 / cancreate) * 2) - (50 / cancreate)) / 2) && cancreate > 1){
  1123. htmlpart2 .= "s"
  1124. }
  1125. htmlpart2 .= ":</p></td></tr>"
  1126. }
  1127. loop, % plantcombos.maxIndex(){
  1128. mainindex := A_index
  1129. for mainentry, maincontent in plantcombos[mainindex]["pardners"]{
  1130. if(maincontent == selectedalmanacplant){
  1131. writtendescriptions += 1
  1132. if((mainvalue["current"] / mainvalue["cap"] * 100) >= 50 + ((100 / cancreate) * writtendescriptions / 2)){
  1133. htmlpart2 .= "<tr><td><p>breeding using a "
  1134. for mainentry2, maincontent2 in plantcombos[mainindex]["pardners"]{
  1135. plantname := %maincontent2%["name"]
  1136. if(plantknowledge[maincontent2]["current"] / plantknowledge[maincontent2]["cap"] >= 0.5 || maincontent2 == selectedalmanacplant){
  1137. htmlpart2 .= plantname . " and a "
  1138. }
  1139. else{
  1140. htmlpart2 .= "????? and a "
  1141. }
  1142. }
  1143. stringtrimright, htmlpart2, htmlpart2, 7
  1144. htmlpart2 .= " may result in a "
  1145. plantname := plantcombos[mainindex]["result"]
  1146. plantname := %plantname%["name"]
  1147. if(plantknowledge[plantcombos[mainindex]["result"]]["current"] / plantknowledge[plantcombos[mainindex]["result"]]["cap"] >= 0.1){
  1148. htmlpart2 .= plantname
  1149. }
  1150. else{
  1151. htmlpart2 .= "?????"
  1152. }
  1153. mhtlpart2 .= "</p></td></tr>"
  1154. }
  1155. else if((mainvalue["current"] / mainvalue["cap"] * 100) >= 50 + (((100 / cancreate * writtendescriptions) - (50 / cancreate)) / 2)){
  1156. htmlpart2 .= "<tr><td><p>????????????????????</p></td></tr>"
  1157. }
  1158. break
  1159. }
  1160. }
  1161. }
  1162. }
  1163. htmlpart2 .= "</table></div><div style=""bottom:0px; position:absolute;""><table><tr><td></br></br><p>knowledge: " . plantknowledge["knowledge"] . "</p></td></tr>"
  1164. htmlpart2 .= "<tr><td><button class='know' id='addknowledge1' mode='1' percent='false'>add 1 knowledge</button></td>"
  1165. htmlpart2 .= "<td><button class='know' id='addknowledge2' mode='10' percent='true'>add 10% of your knowledge</button></td></tr>"
  1166. htmlpart2 .= "<tr><td><button class='know' id='addknowledge3' mode='10' percent='false'>add 10 knowledge</button></td>"
  1167. htmlpart2 .= "<td><button class='know' id='addknowledge4' mode='25' percent='true'>add 25% of your knowledge</button></td></tr>"
  1168. htmlpart2 .= "<tr><td><button class='know' id='addknowledge5' mode='100' percent='false'>add 100 knowledge</button></td>"
  1169. htmlpart2 .= "<td><button class='know' id='addknowledge6' mode='50' percent='true'>add 50% of your knowledge</button></td></tr>"
  1170. htmlpart2 .= "<tr><td><button class='know' id='addknowledge7' mode='1000' percent='false'>add 1000 knowledge</button></td>"
  1171. htmlpart2 .= "<td><button class='know' id='addknowledge8' mode='100' percent='true'>add 100% of your knowledge</button></td></tr>"
  1172. htmlpart2 .= "<tr><td><p>knowledge: " . mainvalue["current"] . "/" . mainvalue["cap"] . "</p></td></tr></table></div>"
  1173. }
  1174. htmlpart2 .= "</body></html>"
  1175. html := htmlpart1 . htmlpart2
  1176.  
  1177. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow-x:hidden; height:100%; width:100%; font-family: 'Verdana'; font-size:12px;} body {background:#777777; height:100%; width:100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1178. html2part1 .= "button{width:100%; left:0px; height: 30px; background: #AAAAAA; color: #000000;}"
  1179. html2part2 := "</style></head><body><table>"
  1180. html2part2 .= "<tr><td><p>seen plants</p></td></tr>"
  1181.  
  1182. for mainentry, maincontent in plantknowledge{
  1183. if(maincontent["seen"] > 0){
  1184. html2part2 .= "<tr><td><button id='" . mainentry . "' mode='" . mainentry . "'>" . %mainentry%["name"] . "</td></tr>"
  1185. }
  1186. }
  1187. html2part2 .= "</table></body></html>"
  1188. html2 := html2part1 . html2part2
  1189.  
  1190. featuredoc.open()
  1191. featuredoc.write(html)
  1192. featuredoc.close()
  1193.  
  1194. maindoc2.open()
  1195. maindoc2.write(html2)
  1196. maindoc2.close()
  1197. if(selectedalmanacplant){
  1198. addknowledgebutton1 := featuredoc.getElementById("addknowledge1")
  1199. addknowledgebutton2 := featuredoc.getElementById("addknowledge2")
  1200. addknowledgebutton3 := featuredoc.getElementById("addknowledge3")
  1201. addknowledgebutton4 := featuredoc.getElementById("addknowledge4")
  1202. addknowledgebutton5 := featuredoc.getElementById("addknowledge5")
  1203. addknowledgebutton6 := featuredoc.getElementById("addknowledge6")
  1204. addknowledgebutton7 := featuredoc.getElementById("addknowledge7")
  1205. addknowledgebutton8 := featuredoc.getElementById("addknowledge8")
  1206. comObjConnect(addknowledgebutton1, "addknowledge_")
  1207. comObjConnect(addknowledgebutton2, "addknowledge_")
  1208. comObjConnect(addknowledgebutton3, "addknowledge_")
  1209. comObjConnect(addknowledgebutton4, "addknowledge_")
  1210. comObjConnect(addknowledgebutton5, "addknowledge_")
  1211. comObjConnect(addknowledgebutton6, "addknowledge_")
  1212. comObjConnect(addknowledgebutton7, "addknowledge_")
  1213. comObjConnect(addknowledgebutton8, "addknowledge_")
  1214. }
  1215. for mainentry, maincontent in plantknowledge{
  1216. if(maincontent["seen"] > 0){
  1217. almanac%mainentry%button := maindoc2.getElementById(mainentry)
  1218. comObjConnect(almanac%mainentry%button, "almanacmode_")
  1219. }
  1220. }
  1221. }
  1222. if(selectedalmanacplant){
  1223. mainbuttoncheck := maindoc2.getElementById(selectedalmanacplant)
  1224. mainbuttoncheck.disable := "disabled"
  1225. mainbuttoncheck.value := mainbuttoncheck.value
  1226. }
  1227. }
  1228. if(selectedfeature == "treasure"){
  1229. if(storedselectedfeature <> selectedfeature){
  1230. storedselectedfeature := selectedfeature
  1231. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow: hidden; height:100%; width:100%;} body {background:#888888; height:100%; width:100%;} table {left:0px; top:0px; width:20%; border-style: none; position:absolute;} [disable=disabled]{background: #888888 !important;}"
  1232. htmlpart1 .= ".radarbutton{width: 100%; height: 64px; left:0px; background: #AAAAAA; color: #000000;}"
  1233. htmlpart1 .= ".radardot{position:absolute; color: #000000; font-size:20px;}"
  1234. htmlpart2 := "</style></head><body><table align='left'>"
  1235. htmlpart2 .= "<tr><td><button class='radarbutton' id='radarbutton'>Purchase radar</br>costs 50000 power</button></td></tr>"
  1236. htmlpart2 .= "</table><p class='radardot' id='radardot'></p>"
  1237. htmlpart2 .= "</body></html>"
  1238. html := htmlpart1 . htmlpart2
  1239.  
  1240. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; height: 100%; width: 100%; font-family: 'Verdana'; font-size:12px;} body {background:#777777; height: 100%; width: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1241. html2part1 .= "p{height:0%;}"
  1242. html2part1 .= ".openchest{width:100%; height: 64px; left:0px; background: #AAAAAA; color: #000000;}"
  1243. html2part1 .= ".openallchests{width: 100%; height: 96px; left:0px; background: #AAAAAA; color: #000000;}"
  1244. html2part1 .= ".treasureinfo{word-wrap:break-word;}"
  1245. html2part2 := "</style></head><body><table>"
  1246. html2part2 .= "<tr><td><button class='openchest' id='openchest' mode='1' style=""font-size:10px;"">Open A treasure chest</br>using 1 key</button></td></tr>"
  1247. html2part2 .= "<tr><td><button class='openallchests' id='openallchests' mode='all' style=""font-size:10px;""></button></td></tr>"
  1248. html2part2 .= "<tr><td><p id='chests'><p></td></tr>"
  1249. html2part2 .= "<tr><td><p id='keys'><p></td></tr>"
  1250. for mainentry, maincontent in treasures{
  1251. html2part2 .= "<tr><td><p id='" . mainentry . "'><p></td></tr>"
  1252. }
  1253. html2part2 .= "<tr><td><p id='treasureinfo' style='height:100%;'><p></td></tr>"
  1254. html2part2 .= "</table></body></html>"
  1255. html2 := html2part1 . html2part2
  1256. featuredoc.open()
  1257. featuredoc.write(html)
  1258. featuredoc.close()
  1259.  
  1260. maindoc2.open()
  1261. maindoc2.write(html2)
  1262. maindoc2.close()
  1263. treasureopenchestbutton := maindoc2.getElementById("openchest")
  1264. treasureopenallchestsbutton := maindoc2.getElementById("openallchests")
  1265. treasureradarbutton := featuredoc.getElementById("radarbutton")
  1266. treasureradardot := featuredoc.getElementById("radardot")
  1267. treasureinfotable := maindoc2.getElementById("treasureinfotable")
  1268. treasureinfo := maindoc2.getElementById("treasureinfo")
  1269. treasurecheststext := maindoc2.getElementById("chests")
  1270. treasurekeystext := maindoc2.getElementById("keys")
  1271. for mainentry, maincontent in treasures{
  1272. treasure%mainentry%text := maindoc2.getElementById(mainentry)
  1273. }
  1274. ComObjConnect(treasureopenchestbutton, "treasureopen_")
  1275. ComObjConnect(treasureopenallchestsbutton, "treasureopen_")
  1276. ComObjConnect(treasureradarbutton, "purchaseradar_")
  1277. }
  1278. if(treasureradarbought <> 1){
  1279. treasureradardot.style.display := "none"
  1280. treasureradarbutton.style.display := "block"
  1281. }
  1282. else{
  1283. treasureradardot.style.display := "block"
  1284. treasureradarbutton.style.display := "none"
  1285. }
  1286. treasurecheststext.Innerhtml := "chests: " . treasurechests
  1287. treasurekeystext.Innerhtml := "golden keys: " . treasurekeys
  1288. mainvalue := Min(treasurechests, treasurekeys)
  1289. if(mainvalue == 1){
  1290. treasureopenallchestsbutton.Innerhtml := "Open 1 chest</br>usng 1 Key"
  1291. }
  1292. else{
  1293. treasureopenallchestsbutton.Innerhtml := "Open " . mainvalue . " chests</br>using " . mainvalue . " Keys"
  1294. }
  1295. for mainentry, maincontent in treasures{
  1296. treasure%mainentry%text.InnerHtml := mainentry . ": " . maincontent
  1297. }
  1298. treasureinfo.InnerHtml := treasureinfotext
  1299. }
  1300. if(selectedfeature == "logs"){
  1301. if(storedselectedfeature <> selectedfeature){
  1302. storedselectedfeature := selectedfeature
  1303. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:shown; border-style:none; height: 100%; font-family: 'Verdana'; font-size:12px;} body {background:#888888; height: 100%;}"
  1304. htmlpart1 .= ".logstext{width:100%; height:30px; left:0px; color: #000000;}"
  1305. htmlpart2 := "</style></head><body><table width='100%'>"
  1306. htmlpart2 .= "<tr><td><p class='logstext' id='logstext' style='height:100%; width:100%;'></p></td></tr>"
  1307. htmlpart2 .= "</table></body></html>"
  1308. html := htmlpart1 . htmlpart2
  1309.  
  1310. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; border-style:none; height: 100%;} body {background:#777777; height: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1311. html2part1 .= ".general{width:100%; height:30px; left:0px; background: #AAAAAA; color: #000000;}"
  1312. html2part1 .= ".power{width:100%; height:30px; left:0px; background: #AAAAAA; color: #000000;}"
  1313. html2part1 .= ".garden{width:100%; height:30px; left:0px; background: #AAAAAA; color: #000000;}"
  1314. html2part1 .= ".treasure{width:100%; height:30px; left:0px; background: #AAAAAA; color: #000000;}"
  1315. html2part1 .= ".shop{width:100%; height:30px; left:0px; background: #AAAAAA; color: #000000;}"
  1316. html2part2 := "</style></head><body><table width='100%' id='logstable'>"
  1317. html2part2 .= "<tr><td><button class='general' id='general' mode='general'>General logs</button></td></tr>"
  1318. html2part2 .= "<tr><td><button class='shop' id='shop' mode='shop'>Shop logs</button></td></tr>"
  1319. html2part2 .= "<tr><td><button class='power' id='power' mode='power'>Power logs</button></td></tr>"
  1320. html2part2 .= "<tr><td id='gardentable'><button class='garden' id='garden' mode='garden'>Garden Logs</button></td></tr>"
  1321. html2part2 .= "<tr><td id='treasuretable'><button class='treasure' id='treasure' mode='treasure'>Treasure Logs</button></td></tr>"
  1322. html2part2 .= "</table></body></html>"
  1323. html2 := html2part1 . html2part2
  1324.  
  1325. featuredoc.open()
  1326. featuredoc.write(html)
  1327. featuredoc.close()
  1328.  
  1329. maindoc2.open()
  1330. maindoc2.write(html2)
  1331. maindoc2.close()
  1332.  
  1333. logstext := featuredoc.getElementById("logstext")
  1334. logsgeneralbutton := maindoc2.getElementById("general")
  1335. logsshopbutton := maindoc2.getElementById("shop")
  1336. logspowerbutton := maindoc2.getElementById("power")
  1337. logsgardenbutton := maindoc2.getElementById("garden")
  1338. logsgardentable := maindoc2.getElementById("gardentable")
  1339. logstreasurebutton := maindoc2.getElementById("treasure")
  1340. logstreasuretable := maindoc2.getElementById("treasuretable")
  1341. ComObjConnect(logsgeneralbutton, "logsmode_")
  1342. ComObjConnect(logsshopbutton, "logsmode_")
  1343. ComObjConnect(logspowerbutton, "logsmode_")
  1344. ComObjConnect(logsgardenbutton, "logsmode_")
  1345. ComObjConnect(logstreasurebutton, "logsmode_")
  1346. }
  1347. if(logsmode){
  1348. mainbuttoncheck := maindoc2.getElementById(logsmode)
  1349. mainbuttoncheck.disable := "disabled"
  1350. mainbuttoncheck.value := mainbuttoncheck.value
  1351. }
  1352. totallogs := ""
  1353. for logsentry, logscontent in logs{
  1354. while(logscontent.MaxIndex() > 50){
  1355. logs[logsentry].remove(1) ;logscontent
  1356. }
  1357. loop, % logs[logsentry].MaxIndex(){
  1358. if(logsentry == logsmode || logsmode == "all"){
  1359. totallogs .= logs[logsentry][A_index] . "</br>"
  1360. }
  1361. if(totallogs.MaxIndex() > 50){
  1362. totallogs.Remove(1)
  1363. }
  1364. }
  1365. }
  1366. logstext.innerhtml := totallogs
  1367. }
  1368. if(selectedfeature == "stats"){
  1369. storedselectedfeature := selectedfeature
  1370. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow: hidden; height:100%; width:100%; font-family: 'Verdana'; font-size:12px;} body {background:#888888; height:100%; width:100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1371. htmlpart2 := "</style></head><body><table>"
  1372. if(stats["clicks"] >= 0){
  1373. htmlpart2 .= "<tr><td>times power gained by clicking: " . stats["clicks"] . "</td></tr>"
  1374. }
  1375. if(stats["powergained"] >= 0){
  1376. htmlpart2 .= "<tr><td>total power gained: " . stats["powergained"] . "</td></tr>"
  1377. }
  1378. if(stats["powerspent"] >= 0){
  1379. htmlpart2 .= "<tr><td>total power spent: " . stats["powerspent"] . "</td></tr>"
  1380. }
  1381. if(stats["upgradespurchased"] >= 0){
  1382. htmlpart2 .= "<tr><td>Upgrades purchased: " . stats["upgradespurchased"] . "</td></tr>"
  1383. }
  1384. if(stats["mousemoves"] >= 0){
  1385. htmlpart2 .= "<tr><td>times power gained by moving the mouse: " . stats["mousemoves"] . "</td></tr>"
  1386. }
  1387. if(stats["keyboardletterspressed"] >= 0){
  1388. htmlpart2 .= "<tr><td>times power gained by using the keyboard: " . stats["keyboardletterspressed"] . "</td></tr>"
  1389. }
  1390. if(stats["hiddentreasuresfound"] >= 0){
  1391. htmlpart2 .= "<tr><td>hidden treasures found: " . stats["hiddentreasuresfound"] . "</td></tr>"
  1392. }
  1393. if(stats["goldenkeyspressed"] >= 0){
  1394. htmlpart2 .= "<tr><td>golden keyboard keys pressed: " . stats["goldenkeyspressed"] . "</td></tr>"
  1395. }
  1396. if(stats["treasurechestsfound"] >= 0){
  1397. htmlpart2 .= "<tr><td>treasure chests found: " . stats["treasurechestsfound"] . "</td></tr>"
  1398. }
  1399. if(stats["goldenkeysfound"] >= 0){
  1400. htmlpart2 .= "<tr><td>golden keys found: " . stats["goldenkeysfound"] . "</td></tr>"
  1401. }
  1402. if(stats["chestsopened"] >= 0){
  1403. htmlpart2 .= "<tr><td>Chests opened: " . stats["chestsopened"] . "</td></tr>"
  1404. }
  1405. if(stats["gardenplantscreated"] >= 0){
  1406. htmlpart2 .= "<tr><td>garden plants created: " . stats["gardenplantscreated"] . "</td></tr>"
  1407. }
  1408. if(stats["powerharvested"] >= 0){
  1409. htmlpart2 .= "<tr><td>Total power harvested from plants: " . stats["powerharvested"] . "</td></tr>"
  1410. }
  1411. if(stats["plantsharvested"] >= 0){
  1412. htmlpart2 .= "<tr><td>Total plants harvested: " . stats["plantsharvested"] . "</td></tr>"
  1413. }
  1414. htmlpart2 .= "</table></body></html>"
  1415. html := htmlpart1 . htmlpart2
  1416.  
  1417. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; height:100%; width:100%; font-family: 'Verdana'; font-size:12px;} body {background:#777777; height:100%; width:100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1418. html2part2 := "</style></head><body><table>"
  1419. html2part2 := "<tr><td></td></tr>"
  1420. html2part2 .= "</table></body></html>"
  1421. html2 := html2part1 . html2part2
  1422. featuredoc.open()
  1423. featuredoc.write(html)
  1424. featuredoc.close()
  1425. maindoc2.open()
  1426. maindoc2.write(html2)
  1427. maindoc2.close()
  1428. }
  1429. if(selectedfeature == "options"){
  1430. if(storedselectedfeature <> selectedfeature){
  1431. storedselectedfeature := selectedfeature
  1432. ;these handle the option checkboxes. I'm not entirely sure what other options should be added though there should probably eventually be one to set autosave timer or notation.
  1433. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {border-style:none; overflow:shown; width:100%; height: 100%; font-family:verdana; font-size:12px;} body {background:#888888; width:100%; height: 100%;} table {left:0px; top:0px; border-style: none; position:absolute;} input[type='checkbox'] {width:20px; height:15px;}"
  1434. htmlpart2 := "</style></head><body><table width='100%'>"
  1435. for mainentry, maincontent in alloptions{
  1436. htmlpart1 .= "." . mainentry . "{height: 30px; left:0px; color: #000000;}"
  1437. htmlpart2 .= "<tr><td><input type='checkbox' class='" . mainentry . "' id='" . mainentry . "'>" . maincontent . "</td></tr>"
  1438. }
  1439. htmlpart2 .= "</table></body></html>"
  1440. html := htmlpart1 . htmlpart2
  1441.  
  1442. html2 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; width:100%; height: 100%;} body {background:#777777; width:100%; height: 100%;}</style></head></html>"
  1443. featuredoc.open()
  1444. featuredoc.write(html)
  1445. featuredoc.close()
  1446.  
  1447. maindoc2.open()
  1448. maindoc2.write(html2)
  1449. maindoc2.close()
  1450. for mainentry, maincontent in alloptions{
  1451. options%mainentry%checkbox := featuredoc.getElementById(mainentry)
  1452. if(optionchecks[mainentry] == 1){
  1453. options%mainentry%checkbox.checked := "true"
  1454. optionchecks[mainentry] := 1
  1455. }
  1456. ComObjConnect(options%mainentry%checkbox, "optionscheckbox_")
  1457. }
  1458. }
  1459. }
  1460. if(selectedfeature == "help"){
  1461. if(storedselectedfeature <> selectedfeature){
  1462. storedselectedfeature := selectedfeature
  1463. htmlpart1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:shown; border-style: none; height: 100%; font-family: 'Verdana'; font-size:16px;} body {background:#888888; height: 100%;}"
  1464. htmlpart1 .= ".helpinfo{width:100%; left:0px; color: #000000; word-wrap: break-word;}"
  1465. htmlpart2 := "</style></head><body><table id='helpbuttonstable'>"
  1466. htmlpart2 .= "<tr><td><p class='helpinfo 'id='helpinfo'></p></td></tr>"
  1467. htmlpart2 .= "<table></body></html>"
  1468. html := htmlpart1 . htmlpart2
  1469.  
  1470. html2part1 := "<!DOCTYPE html><html><head><style type=text/css> html {overflow:hidden; border-style: none; height: 100%;} body {background:#777777; height: 100%;} table {left:0px; top:0px; width:100%; border-style: none; position:absolute;} [disable=disabled]{background: #666666 !important;}"
  1471. html2part1 .= ".basics{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1472. html2part1 .= ".powergeneration{width:100%; height: 60px; left:0px; background: #AAAAAA; color: #000000;}"
  1473. html2part1 .= ".saving{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1474. html2part1 .= ".shop{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1475. html2part1 .= ".logs{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1476. html2part1 .= ".treasure{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1477. html2part1 .= ".garden{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1478. html2part1 .= ".almanac{width:100%; height: 30px; left:0px; background: #AAAAAA; color: #000000;}"
  1479. html2part2 := "</style></head><body><table id='helpbuttonstable'>"
  1480. html2part2 .= "<tr><td><button class='basics' id='basics' mode='basics'>The Basics</button></td></tr>"
  1481. html2part2 .= "<tr><td><button class='powergeneration' id='powergeneration' mode='powergeneration'>Methods of</br>power generation</button></td></tr>"
  1482. html2part2 .= "<tr><td><button class='saving' id='saving' mode='saving'>Saving the game</button></td></tr>"
  1483. html2part2 .= "<tr><td><button class='shop' id='shop' mode='shop'>Shop</button></td></tr>"
  1484. html2part2 .= "<tr><td><button class='logs' id='logs' mode='logs'>Logs</button></td></tr>"
  1485. html2part2 .= "<tr id='treasuretable'><td><button class='treasure' id='treasure' mode='treasure'>Treasures</button></td></tr>"
  1486. html2part2 .= "<tr id='gardentable'><td><button class='garden' id='garden' mode='garden'>Garden</button></td></tr>"
  1487. html2part2 .= "<tr id='almanactable'><td><button class='almanac' id='almanac' mode='almanac'>Almanac</button></td></tr>"
  1488. html2part2 .= "</table></body></html>"
  1489. html2 := html2part1 . html2part2
  1490.  
  1491. featuredoc.open()
  1492. featuredoc.write(html)
  1493. featuredoc.close()
  1494. maindoc2.open()
  1495. maindoc2.write(html2)
  1496. maindoc2.close()
  1497.  
  1498. helpbasicsbutton := maindoc2.getElementById("basics")
  1499. helpsavingbutton := maindoc2.getElementById("saving")
  1500. helplogsbutton := maindoc2.getElementById("logs")
  1501. helpshopbutton := maindoc2.getElementById("shop")
  1502. helpmousepowerbutton := maindoc2.getElementById("powergeneration")
  1503. helpgardenbutton := maindoc2.getElementById("garden")
  1504. helpgardentable := maindoc2.getElementById("gardentable")
  1505. helpalmanacbutton := maindoc2.getElementById("almanac")
  1506. helpalmanactable := maindoc2.getElementById("almanactable")
  1507. helptreasurebutton := maindoc2.getElementById("treasure")
  1508. helptreasuretable := maindoc2.getElementById("treasuretable")
  1509. helpkeytable := maindoc2.getElementById("helpkeytable")
  1510.  
  1511. if(0 >= garden["purchased"]){
  1512. ;hide these buttons if you haven't unlocked them yet.
  1513. helpgardentable.style.display := "none"
  1514. }
  1515. else{
  1516. helpgardentable.style.display := "block"
  1517. }
  1518. if(0 >= hiddentreasure["purchased"] && 0 >= goldenkeys["purchased"]){
  1519. helptreasuretable.style.display := "none"
  1520. }
  1521. else{
  1522. helptreasuretable.style.display := "block"
  1523. }
  1524. if(!plantknowledge["knowledge"]){
  1525. helpalmanactable.style.display := "none"
  1526. }
  1527. else{
  1528. helpalmanactable.style.display := "block"
  1529. }
  1530. ComObjConnect(helpbasicsbutton, "helpmode_")
  1531. ComObjConnect(helpsavingbutton, "helpmode_")
  1532. ComObjConnect(helpshopbutton, "helpmode_")
  1533. ComObjConnect(helplogsbutton, "helpmode_")
  1534. ComObjConnect(helpmousepowerbutton, "helpmode_")
  1535. ComObjConnect(helpgardenbutton, "helpmode_")
  1536. ComObjConnect(helpalmanacbutton, "helpmode_")
  1537. ComObjConnect(helptreasurebutton, "helpmode_")
  1538. helpinfotext := featuredoc.getElementById("helpinfo")
  1539. }
  1540. if(helpmode){
  1541. mainbuttoncheck := maindoc2.getElementById(helpmode)
  1542. mainbuttoncheck.disable := "disabled"
  1543. mainbuttoncheck.value := mainbuttoncheck.value
  1544. }
  1545. helpvalue := ""
  1546. if(helpmode == "basics"){
  1547. helpvalue :=
  1548. (
  1549. "Welcome to Background power. Made by mipha (also known as /u/pimhazeveld) In this game you can earn power which is the game's main resource by clicking. Click anywhere you want, while having anything selected.
  1550. It could be this screen, some page on the internet or even another game. This game will register the clicks and earn you power.</br>Clicking power gain is affected by various sources and new ways of earning power will quickly become available."
  1551. )
  1552. }
  1553. if(helpmode == "saving"){
  1554. helpvalue :=
  1555. (
  1556. "The game autosaves every 5 minutes and can be saved by manually pressing the save button. It saves by making a file near where the game is located and reads the savedata there.
  1557. Saves can be backed up by copying them somewhere else and can be imported by replacing the current one. Make sure to quit the game before doing this, otherwise the game will overwrite parts of the save and possibly do some weird stuff.
  1558. Futhermore the save should always be called 'backgroundpowersave.ini' otherwise it doesn't work."
  1559. )
  1560. }
  1561. if(helpmode == "powergeneration"){
  1562. if(calculateclickvalue() >= 1){
  1563. helpvalue := calculateclickvalue() . " power is currently obtained every click.</br>"
  1564. helpvalue .= clickpowerbonus . " from upgrades</br>"
  1565. ;check if some upgrades have been bought at least once
  1566. if(garden["purchased"] >= 1){
  1567. helpvalue .= "+" . round(farmclickpower) . " from garden plants</br>"
  1568. helpvalue .= "*" . round((farmclickpowerpercent / 100) + 1, 3) . " from garden plants</br>"
  1569. }
  1570. helpvalue .= "*" . round(clickpowermult, 3) . " from upgrades</br>"
  1571. if(hiddentreasure["purchased"] >= 1){
  1572. helpvalue .= "*" . round(treasureclickmult, 3) . " from amulets</br>"
  1573. }
  1574. if(knowledgepower2["purchased"] >= 1){
  1575. helpvalue .= "*" . round(knowledgeclickpowermult, 3) . " from knowledge points</br>"
  1576. }
  1577. }
  1578. if(calculatemovevalue() >= 1){
  1579. helpvalue .= "</br>" . calculatemovevalue() * 2 . " power is currently obtained at most when moving the mouse</br>"
  1580. helpvalue .= movepowerbonus . " from upgrades</br>"
  1581. if(garden["purchased"] >= 1){
  1582. helpvalue .= "+" . round(farmmovepower) . " from garden plants</br>"
  1583. helpvalue .= "*" . round((farmmovepowerpercent / 100) + 1, 3) . " from garden plants</br>"
  1584. }
  1585. if(hiddentreasure["purchased"] >= 1){
  1586. helpvalue .= "*" . round(treasuremovepowermult, 3) . " from rings</br>"
  1587. }
  1588. helpvalue .= "*" . round(movepowermult, 3) . " from upgrades</br>"
  1589. helpvalue .= "* up to 2 depending on how much the mouse was moved</br>"
  1590. if(knowledgepower2["purchased"] >= 1){
  1591. helpvalue .= "*" . round(knowledgemovepowermult, 3) . " from knowledge points</br>"
  1592. }
  1593. if(mousemastery["purchased"] >= 1){
  1594. helpvalue .= "+" . calculateclickvalue() . " from clicking power added by mouse mastery</br>"
  1595. }
  1596. }
  1597. if(calculatemovespeed() >= 1){
  1598. helpvalue .= "</br>Mouse movement efficiency is " . calculatemovespeed() . "</br>"
  1599. helpvalue .= movespeedbonus . " from upgrades</br>"
  1600. if(garden["purchased"] >= 1){
  1601. helpvalue .= "+" . round(farmmovespeed) . " from garden plants</br>"
  1602. helpvalue .= "*" . round((farmmovespeedpercent / 100) + 1, 3) . " from garden plants</br>"
  1603. }
  1604. helpvalue .= "*" . round(movespeedmult, 3) . " from upgrades</br>"
  1605. if(hiddentreasure["purchased"] >= 1){
  1606. helpvalue .= "*" . round(treasuremovespeedmult, 3) . " from pearls</br>"
  1607. }
  1608. helpvalue .= "Mouse movement affects how quick power is built up when moving the mouse</br>"
  1609. }
  1610. if(calculatekeyboardkeyvalue() >= 1){
  1611. helpvalue .= "</br>power gained from keyboard keys is " . calculatekeyboardkeyvalue() . "</br>"
  1612. helpvalue .= keyboardkeypowerbonus . " from upgrades</br>"
  1613. if(garden["purchased"] >= 1){
  1614. helpvalue .= "+" . round(farmkeyboardkeypower) . " from garden plants</br>"
  1615. helpvalue .= "*" . round((farmkeyboardkeypowerpercent / 100) + 1, 3) . " from garden plants</br>"
  1616. }
  1617. helpvalue .= "*" . round(keyboardkeypowermult, 3) . " from upgrades</br>"
  1618. if(gamerfuel["purchased"] >= 1){
  1619. helpvalue .= "*2 when pressing a WASD key</br>"
  1620. }
  1621. if(hiddentreasure["purchased"] >= 1){
  1622. helpvalue .= "*" . round(treasurekeyboardkeymult, 3) . " from gold bars</br>"
  1623. }
  1624. if(knowledgepower2["purchased"] >= 1){
  1625. helpvalue .= "*" . round(knowledgekeyboardkeymult, 3) . " from knowledge points</br>"
  1626. }
  1627. }
  1628. }
  1629. if(helpmode == "shop"){
  1630. helpvalue :=
  1631. (
  1632. "In the shop you can spend power to gain upgrades. The shop has 2 modes, purchase and inspect. Inspect provides information about what the upgrade does and purchase mode does the same but will also attempt to buy the upgrades using power.
  1633. Most upgrades in the shop are hidden until you meet the right requirement."
  1634. )
  1635. }
  1636. if(helpmode == "logs"){
  1637. helpvalue := "The logs show general info of what recently happened. Things like purchases, power gain from mouse moving"
  1638. if(garden["purchased"] >= 1){
  1639. helpvalue .= ", garden plants appearing"
  1640. }
  1641. if(hiddentreasure["purchased"] >= 1){
  1642. helpvalue .= ", hidden treasures being found"
  1643. }
  1644. helpvalue .= ", the game being saved and many other things are all displayed there."
  1645. }
  1646. if(helpmode == "garden"){
  1647. helpvalue :=
  1648. (
  1649. "In the garden. Plants appear over time when moving the mouse. Plants provide various buffs when left alone or harvested. Plants can occasionally create new plants next to them so keep your eyes open.</br>The garden has 4 modes to manage plants
  1650. </br>Inspect mode, which displays information about the tile</br>Harvest mode which removes a plant and gives rewards based on the plant</br> Swap mode which swaps the contents of 2 tiles</br> and protect mode which prevents plants from
  1651. accidentally being harvested.</br> Furthermore there's also a freezer which is an entirely different garden but plants wont grow there. Plants can be moved from the garden to the freezer"
  1652. )
  1653. calculateharvestvalue()
  1654. helpvalue .= "</br></br>Power gained from harvesting a plant varies per plant. Here is an example when harvesting a plant that yields 50 power.</br>"
  1655. helpvalue .= "It would yield 50 from the plant itself</br>"
  1656. helpvalue .= "+" . harvestpowerbonus . " from upgrades</br>"
  1657. helpvalue .= "+" . round(farmharvestpower) . " from garden plants</br>"
  1658. helpvalue .= "*" . round((farmharvestpowerpercent / 100) + 1, 3) . " from garden plants</br>"
  1659. helpvalue .= "*" . round(harvestpowermult, 3) . " from upgrades</br>"
  1660. if(hiddentreasure["purchased"] >= 1){
  1661. helpvalue .= "*" . round(treasureharvestmult, 3) . " from emeralds</br>"
  1662. }
  1663. if(knowledgepower2["purchased"] >= 1){
  1664. helpvalue .= "*" . round(knowledgeharvestpowermult, 3) . " from knowledge points</br>"
  1665. }
  1666. helpvalue .= "For a total of " . calculateharvestvalue(50) . " power"
  1667. plantchance := 3
  1668. gardenplantchance := 0
  1669. for globalentry, globalcontent in upgrades{
  1670. if(%globalentry%["plantchance"]){
  1671. gardenplantchance += %globalentry%["plantchance"] * globalcontent["purchased"]
  1672. }
  1673. }
  1674. plantchance += (((gardenplantchance * plantchance / 100)))
  1675. helpvalue .= "</br></br>Empty tiles have a " . round(plantchance, 3) . " - " . round(plantchance * 2, 3) . "% chance of spawning a plant when the mouse is moved depending on how much the mouse was moved."
  1676.  
  1677. }
  1678. if(helpmode == "almanac"){
  1679. helpvalue :=
  1680. (
  1681. "The almanac is an extension to the garden. Here you can learn more about plants without many other plants affecting their stats so you can take a good look at them. Note however that rewards gained by harvesting are still affected by things
  1682. like upgrades or global buffs.</br>Furthermore, here you can dump knowledge points
  1683. in your discovered plants which are obtained by harvesting knowleaf plants. As more knowledge is dumped into plants, you'll discover how to create the plant and eventually start discovering how you can create other plants with it
  1684. as well. Note that recipes often show question marks (?????). That means that either the plant does not have enough knowledge yet, or that it is trying to show a different plant that you do not have enough knowledge for yet.
  1685. So dumping knowledge in every plant should be a priority if you want to know every plant there is to create.</br></br>"
  1686. )
  1687. if(10 <> calculateknowledge(10)){
  1688. helpvalue .= "knowledge gained from a plant varies per plant. Here is an example when harvesting a plant that yields 10 knowledge.</br>"
  1689. helpvalue .= "It would yield 10 from the plant itself</br>"
  1690. helpvalue .= "+" . knowledgebonus . " from upgrades</br>"
  1691. helpvalue .= "+" . round(farmknowledge) . " from garden plants</br>"
  1692. helpvalue .= "*" . round((farmknowledgepercent / 100) + 1, 3) . " from garden plants</br>"
  1693. helpvalue .= "*" . round(knowledgemult, 3) . " from upgrades</br>"
  1694. helpvalue .= "For a total of " . calculateknowledge(10) . " knowledge"
  1695. }
  1696. }
  1697. if(helpmode == "treasure"){
  1698. if(hiddentreasure["purchased"] >= 1){
  1699. helpvalue :=
  1700. (
  1701. "</br></br>Points on the screen can occasionally be assigned as hidden treasures when pressing keyboard keys. Mousing close to them digs them up and grants rewards. The process is entirely silent.
  1702. You wont know whenever a treasure appears or when one is collected as to not bug the player with information while doing something else.</br></br>Furthermore treasure chests can occasionally be found and opened with a key to gain additional power and treasures."
  1703. )
  1704. if(0 >= hiddenkeys["purchased"]){
  1705. helpvalue .= " How do you get a key you ask? Well you'll have to wait a little longer to find out.</br>"
  1706. }
  1707. helpvalue .= "power gained from hidden treasures is currently " . calculateclickvalue() * 25 . "</br>"
  1708. helpvalue .=
  1709. (
  1710. "</br>Each treasure obtained from chests provides a 1% boost to a feature.</br>Amulets boost power gain from clicking.</br>Emeralds boost power gain from harvesting garden plants.</br>
  1711. Gold bars boost power gain from opening treasure chests.</br>Grails boost power gain from finding keys.</br>Pearls boost mouse movement effeciency</br>Rings boost power gain from moving the mouse"
  1712. )
  1713. if(treasureradarbought == 1){
  1714. helpvalue .=
  1715. (
  1716. "</br></br>The treasure radar is an useful feature that shows where treasures are currently located on the screen. Your mouse is displayed as a dot most of the time. When you are near a treasure.
  1717. The mouse becomes an o, getting even closer makes it a 0 and finally an O until you move away or collect it."
  1718. )
  1719. }
  1720. }
  1721. if(goldenkeys["purchased"] >= 1){
  1722. helpvalue .=
  1723. (
  1724. "</br></br>Golden keys are a slightly different type of key where occasionally a random letter key on the keyboard becomes a secret golden key when the mouse has been moved.
  1725. Pressing that letter gives way more power than a normal keyboard key and occasionally an usable key</br>"
  1726. )
  1727. if(0 >= hiddentreasure["purchased"]){
  1728. helpvalue .= " Where do you use these keys? Well you'll have to wait a little longer to find out.</br>"
  1729. }
  1730. helpvalue .= "power gained from golden keys currently is " . calculatekeyboardkeyvalue() * 25 . "</br>"
  1731. }
  1732. if(hiddentreasure["purchased"] >= 1 && goldenkeys["purchased"] >= 1){
  1733. helpvalue .= "</br>Hidden treasures and golden keys can appear when both moving the mouse or pressing keyboard keys but pressing keys is more effective for treasures to appear and moving the mouse is more effective for golden keys"
  1734. }
  1735. }
  1736. helpinfotext.innerHTML := helpvalue
  1737. }
  1738. critical, off
  1739. }
  1740.  
  1741. selectfeature_onclick(selectfeaturedoc){
  1742. global
  1743. ;change the selected feature and disable the pressed button
  1744. if(selectedfeature){
  1745. buttoncheck := maindoc.getElementById(selectedfeature)
  1746. buttoncheck.disable := ""
  1747. buttoncheck.value := buttoncheck.value
  1748. }
  1749. selectedfeature := selectfeaturedoc.mode
  1750. if(selectedfeature == "freezer" && gardenmode == "harvest"){
  1751. gardenmode := "inspect"
  1752. }
  1753. updatemain()
  1754. }
  1755.  
  1756. shopmode_onclick(shopmodedoc){
  1757. global
  1758. if(shopmode){
  1759. buttoncheck := maindoc2.getElementById(shopmode)
  1760. buttoncheck.disable := ""
  1761. buttoncheck.value := buttoncheck.value
  1762. }
  1763. shopmode := shopmodedoc.mode
  1764. updatemain()
  1765. }
  1766.  
  1767. gardenmode_onclick(gardenmodedoc){
  1768. global
  1769. gardenmodedoc := gardenmodedoc.mode
  1770. if(gardenmode){
  1771. gardenbuttoncheck := maindoc2.getElementById(gardenmode)
  1772. gardenbuttoncheck.disable := ""
  1773. gardenbuttoncheck.value := gardenbuttoncheck.value
  1774. }
  1775. ;changes garden mode. Also handles changing from garden to freezer and vice versa.
  1776. if(gardenmodedoc == "harvest" && selectedfeature == "freezer"){
  1777. addtooltip("Harvest mode doesnt work in the freezer")
  1778. }
  1779. else{
  1780. gardenmode := gardenmodedoc
  1781. plantselect := ""
  1782. }
  1783. updatemain()
  1784. }
  1785.  
  1786. almanacmode_onclick(almanacdoc){
  1787. global
  1788. if(selectedalmanacplant){
  1789. buttoncheck := maindoc2.getElementById(selectedalmanacplant)
  1790. buttoncheck.disable := ""
  1791. buttoncheck.value := buttoncheck.value
  1792. }
  1793. selectedalmanacplant := almanacdoc.mode
  1794. updatemain()
  1795. }
  1796.  
  1797. addknowledge_onclick(addknowledgedoc){
  1798. global
  1799. ;add knowledge points to a plant based on which button is pressed and the amount of knowledge you and the plant already have.
  1800. almanacvalue := min(plantknowledge[selectedalmanacplant]["cap"] - plantknowledge[selectedalmanacplant]["current"])
  1801. if(addknowledgedoc.percent == "true"){
  1802. addknowledgevalue := round(min(almanacvalue, plantknowledge["knowledge"] / 100 * addknowledgedoc.mode))
  1803. plantknowledge[selectedalmanacplant]["current"] := round(plantknowledge[selectedalmanacplant]["current"] + addknowledgevalue)
  1804. }
  1805. else{
  1806. addknowledgevalue := round(min(almanacvalue, plantknowledge["knowledge"], addknowledgedoc.mode))
  1807. plantknowledge[selectedalmanacplant]["current"] := round(plantknowledge[selectedalmanacplant]["current"] + addknowledgevalue)
  1808. }
  1809. plantknowledge["knowledge"] := round(plantknowledge["knowledge"] - addknowledgevalue)
  1810. updatemain()
  1811. }
  1812.  
  1813. logsmode_onclick(logsmodedoc){
  1814. global
  1815. if(logsmode){
  1816. buttoncheck := maindoc2.getElementById(logsmode)
  1817. buttoncheck.disable := ""
  1818. buttoncheck.value := buttoncheck.value
  1819. }
  1820. logsmode := logsmodedoc.mode
  1821. updatemain()
  1822. }
  1823.  
  1824. helpmode_onclick(helpmodedoc){
  1825. global
  1826. if(helpmode){
  1827. buttoncheck := maindoc2.getElementById(helpmode)
  1828. buttoncheck.disable := ""
  1829. buttoncheck.value := buttoncheck.value
  1830. }
  1831. helpmode := helpmodedoc.mode
  1832. updatemain()
  1833. }
  1834.  
  1835. optionscheckbox_onclick(optionscheckboxdoc){
  1836. global
  1837. ;for the checkboxes in the options
  1838. gui, Options:default
  1839. optionscheckboxvalue := optionscheckboxdoc.id
  1840. if(optionscheckboxdoc.checked){
  1841. optionchecks[optionscheckboxvalue] := 1
  1842. }
  1843. else{
  1844. optionchecks[optionscheckboxvalue] := 0
  1845. }
  1846. updatemain()
  1847. }
  1848.  
  1849. purchaseradar_onclick(){
  1850. global
  1851. if(power > 50000 && treasureradarbought <> 1){
  1852. changepower(50000, "subtract")
  1853. treasureradarbought := 1
  1854. addtooltip("radar bought. Look in the help tab about treasure power generation to learn more about it", 50)
  1855. addlog("radar bought. Look in the help tab about treasure power generation to learn more about it", "treasure")
  1856. updatemain()
  1857. }
  1858. }
  1859.  
  1860. shoppurchase_onclick(shoppurchasedoc){
  1861. global
  1862. shoppurchasedoc := shoppurchasedoc.id
  1863. shoppurchasedoc := % %shoppurchasedoc%
  1864. ;this gets the id of the button pressed which contains the name of an upgrad. The name of the upgrade then gets turned into its value because every upgrade contains an array of its stats and cost and such.
  1865. ;shopmode is set in shopmode_onclick()
  1866. upgradeprice := calculateshopprice(shoppurchasedoc)
  1867. upgradeprice := round(upgradeprice)
  1868. totaldescription := ""
  1869. if(shopmode == "purchase"){
  1870. ;if you can afford the upgrade and you haven't bought equal or more upgrades than the repeated tag or you haven't bought this and there is no repeated tag. Buy the upgrade
  1871. if(power >= upgradeprice && ((shoppurchasedoc["repeated"] > shoppurchasedoc["purchased"]) || (shoppurchasedoc["purchased"] == 0 && !shoppurchasedoc["repeated"]))){
  1872. addlog("bought " . shoppurchasedoc["name"] . " " . shoppurchasedoc["purchased"] . " > " . shoppurchasedoc["purchased"] + 1 . ". Power -" . upgradeprice, "shop")
  1873. changepower(upgradeprice, "subtract")
  1874. shoppurchasedoc["purchased"] += 1
  1875. if(!stats["upgradespurchased"]){
  1876. stats["upgradespurchased"] := 0
  1877. }
  1878. stats["upgradespurchased"] += 1
  1879. }
  1880. else if(shoppurchasedoc["purchased"] >= shoppurchasedoc["repeated"] || !shoppurchasedoc["repeated"]){
  1881. totaldescription .= "No more levels of that upgrade available`n"
  1882. }
  1883. else if(upgradeprice > power){
  1884. totaldescription .= "Not enough power (need " . round(upgradeprice - power) . " more)`n"
  1885. }
  1886. }
  1887. ;this creates the description of the upgrade based on what they boost and their associated description. Use tostring(name of upgrade) to see how the array and its description look.
  1888. totaldescription .= shoppurchasedoc["name"] . "`n"
  1889. if(shoppurchasedoc["repeated"] > hoppurchasedoc["purchased"]){
  1890. totaldescription .= "Cost: " . upgradeprice . "`n"
  1891. }
  1892. if(shoppurchasedoc["repeated"]){
  1893. totaldescription .= "Level: " . shoppurchasedoc["purchased"] . "/" . shoppurchasedoc["repeated"] . "`n"
  1894. }
  1895. else{
  1896. totaldescription .= "Level: " . shoppurchasedoc["purchased"] . "`n"
  1897. }
  1898. for UpgradeDescrA, UpgradeDescrB in shoppurchasedoc{
  1899. if(UpgradeDescrA == "clickpower"){
  1900. totaldescription .= "+" . UpgradeDescrB . " power gained for every click. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1901. }
  1902. if(UpgradeDescrA == "clickpowerpercent"){
  1903. totaldescription .= "+" . UpgradeDescrB . "% power gained for every click (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1904. }
  1905. if(UpgradeDescrA == "movepower"){
  1906. totaldescription .= "+" . UpgradeDescrB . " power gained for moving the mouse. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1907. }
  1908. if(UpgradeDescrA == "movepowerpercent"){
  1909. totaldescription .= "+" . UpgradeDescrB . "% power gained for moving the mouse. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1910. }
  1911. if(UpgradeDescrA == "movespeedtopower"){
  1912. totaldescription .= "+" . UpgradeDescrB . " power gained every time the mouse moves. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1913. }
  1914. if(UpgradeDescrA == "movespeed"){
  1915. totaldescription .= "+" . UpgradeDescrB . " to mouse movement efficiency. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1916. }
  1917. if(UpgradeDescrA == "harvestpower"){
  1918. totaldescription .= "+" . UpgradeDescrB . " power gained from harvested plants. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1919. }
  1920. if(UpgradeDescrA == "harvestpowerpercent"){
  1921. totaldescription .= "+" . UpgradeDescrB . "% power gained from harvested plants. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1922. }
  1923. if(UpgradeDescrA == "plantchance"){
  1924. totaldescription .= "+" . UpgradeDescrB . "% plant appearance rate. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1925. }
  1926. if(UpgradeDescrA == "treasurepower"){
  1927. totaldescription .= "+" . UpgradeDescrB . " power gained from hidden treasures. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1928. }
  1929. if(UpgradeDescrA == "keyboardkeypower"){
  1930. totaldescription .= "+" . UpgradeDescrB . " power gained from keyboard keys. (" . UpgradeDescrB * shoppurchasedoc["purchased"] . ") total`n"
  1931. }
  1932. if(UpgradeDescrA == "knowledgepower"){
  1933. totaldescription .= "each point of knowledge grants + " . UpgradeDescrB . "% power generation from all sources`n"
  1934. }
  1935. }
  1936. totaldescription .= shoppurchasedoc["descr"]
  1937. addtooltip(totaldescription, 150, "shopdescription")
  1938. updatemain()
  1939. }
  1940.  
  1941. updategardeneffects(){
  1942. global
  1943.  
  1944. farmclickpower := 0
  1945. farmclickpowerpercent := 0
  1946. farmmovepower := 0
  1947. farmmovepowerpercent := 0
  1948. farmharvestpower := 0
  1949. farmharvestpowerpercent := 0
  1950. farmmovespeed := 0
  1951. farmmovespeedpercent := 0
  1952. farmmovespeedtopower := 0
  1953. farmmovespeedtopowerpercent := 0
  1954. farmtreasurepower := 0
  1955. farmtreasurepowerpercent := 0
  1956. farmkeyboardkeypower := 0
  1957. farmkeyboardkeypowerpercent := 0
  1958. farmknowledge := 0
  1959. farmknowledgepercent := 0
  1960. ;all plant effects are here. They need to be set to 0 here otherwise things that use them return empty string instead of an actual number.
  1961.  
  1962. loop, % gardentiles{
  1963. GX := mod(A_index, 10)
  1964. GY := ceil(A_index / 10)
  1965. if(GX == 0){
  1966. GX = 10
  1967. }
  1968. ;remove the temporary effects on tiles. FIRST. Otherwise effects from plants to the top or left get wiped.
  1969. tile%GX%A%GY%["temp"] := {}
  1970. }
  1971. loop, % gardentiles{
  1972. GX := mod(A_index, 10)
  1973. GY := ceil(A_index / 10)
  1974. if(GX == 0){
  1975. GX = 10
  1976. }
  1977. if(tile%GX%A%GY%["plant"]["auras"]){
  1978. loop, % tile%GX%A%GY%["nextto"].MaxIndex(){
  1979. nexttoentry := tile%GX%A%GY%["nextto"][A_index]
  1980. tile%nexttoentry%["temp"] := fusearrays([tile%nexttoentry%["temp"], tile%GX%A%GY%["plant"]["auras"]])
  1981. ;the temp stat of a plant gets combined with the auras of all nearby plants
  1982. }
  1983. }
  1984. }
  1985. ;This part was rather complicated so I put all plant effects here so I can easily take a look at them
  1986. ;tree := {harvest:{harvestpower:25}, global:{clickpower:1}}
  1987. ;barkwood := {harvest:{harvestpower:50}, passive:{harvestpowerpercent:400}}
  1988. ;titantree := {harvest:{harvestpower:300}, global:{harvestpowerpercent:10}}
  1989. ;flower := {global:{clickpowerpercent:1}}
  1990. ;yellowberry := {name: "Y berry"}
  1991. ;bluestalk := {harvest:{harvestpower:350}, global:{clickpower:3}}
  1992. ;appletree := {harvest:{harvestpower:170}, global:{clickpowerpercent:4}}
  1993. ;yellowbulb := {name: "Y bulb", harvest:{tpower:250}}
  1994. ;yellowstalk := {harvest:{harvestpower:100}, global:{clickpower:2, movepower: 1, clickpowerpercent:1}}
  1995. ;dimbloom := {harvest:{harvestpower:200}, global:{clickpowerpercent:9}}
  1996. ;greenstalk := {harvest:{harvestpower:450}, global:{clickpower:5, movepower:1, clickpowerpercent:1}}
  1997. ;sapleaf := {auras:{global:{clickpower:1}, harvest:{harvestpower:1, harvestpowerpercent:5}}, tileauras:{harvest:{harvestpowerpercent:5}}}
  1998. ;grimpetal := {global:{clickpower:1}, auras:{passive:{clickpowerpercent:5}}}
  1999. ;gripvine := {global:{movepower:5, movespeed:1}}
  2000. ;GX := 2
  2001. ;GY := 2
  2002. ;farmvalue := fusearrays([tile%GX%A%GY%["plant"], tile%GX%A%GY%["temp"]])
  2003. ;msgbox % arraytostring(farmvalue)
  2004. loop, % gardentiles{
  2005. GX := mod(A_index, 10)
  2006. GY := ceil(A_index / 10)
  2007. if(GX == 0){
  2008. GX = 10
  2009. }
  2010. if(tile%GX%A%GY%["plant"]["name"]){
  2011. ;this part gathers all the stats of all plants and puts them into one appropriate value for each different stat for other features to use.
  2012. farmvalue := fusearrays([tile%GX%A%GY%["plant"], tile%GX%A%GY%["permanent"], tile%GX%A%GY%["temp"]])
  2013. ;msgbox % arraytostring(farmvalue) ;shows the entire array of what the tile with its plant, temp and permanent effects look like
  2014. for gardeneffectentry, gardeneffectcontent in farmvalue["global"]{
  2015. ;gardenglobalbonus contains the global bonus
  2016. gardenglobalbonus := gardeneffectcontent
  2017. Stringright, farmvalue3, gardeneffectentry, 7
  2018. if(farmvalue3 <> "percent"){
  2019. gardenpassivebonus := farmvalue["passive"][gardeneffectentry]
  2020. ;gardenpassive bonus contains an added passive bonus for the global bonus
  2021. }
  2022. gardenpassivepercentbonus := farmvalue["passive"][gardeneffectentry . "percent"]
  2023. ;gardenpassivepercent bonus contains an added passive % bonus for the global bonus
  2024. if gardenpassivebonus is not number
  2025. {
  2026. gardenpassivebonus := 0
  2027. }
  2028. if gardenpassivepercentbonus is not number
  2029. {
  2030. gardenpassivepercentbonus := 0
  2031. }
  2032. if(!farmvalue[gardeneffectentry]){
  2033. farmvalue[gardeneffectentry] := 0
  2034. }
  2035. farm%gardeneffectentry% += (gardenglobalbonus + gardenpassivebonus) * ((gardenpassivepercentbonus / 100) + 1)
  2036. }
  2037. }
  2038. }
  2039. }
  2040.  
  2041. purchasetile_onclick(purchasedoc){
  2042. global
  2043. ;handles purchasing garden/freezer tiles. Its very similar to buying upgrades. The price is 300 power for every garden tile + 8% for every garden tile. The price for freezer tiles is 400 per freezer tile + 8% per freezer tile
  2044. purchasedoc := purchasedoc.topurchase
  2045. if(purchasedoc == "gardentile"){
  2046. if(power >= tileprice("garden") && 100 > gardentiles){
  2047. changepower(tileprice("garden"), "subtract")
  2048. addlog("bought garden tile " . gardentiles . ". Power -" . tileprice("garden"), "garden")
  2049. gardentiles += 1
  2050. updatemain()
  2051. }
  2052. }
  2053. else if(purchasedoc == "freezertile"){
  2054. if(power >= tileprice("freezer") && 100 > freezertiles){
  2055. changepower(tileprice("freezer"), "subtract")
  2056. addlog("bought freezer tile " . freezertiles . ". Power -" . tileprice("freezer"), "garden")
  2057. freezertiles += 1
  2058. updatemain()
  2059. }
  2060. }
  2061. }
  2062.  
  2063. garden_onclick(gardendoc){
  2064. global
  2065. updategardeneffects()
  2066. contents := gardendoc.id
  2067. contents := % %contents%
  2068. loginfo := ""
  2069. ;when any tile on the garden/freezer is clicked. This activates. The biggest part here is assembling the description for the tiles based on what's on there at the moment
  2070. farmvalue := fusearrays([contents["plant"], contents["permanent"], contents["temp"]])
  2071. ;when trying to harvest a plant. This part activates
  2072. if (gardenmode == "harvest" && featuredoc.getElementById(gardendoc.id).getAttribute("disable") <> "disabled" && !contents["plant"]["protected"]){
  2073. if(farmvalue["name"] == ""){
  2074. ;addtooltip("there is no plant here to harvest")
  2075. }
  2076. else{
  2077. contents["plant"] := ""
  2078. addlog("Harvested a " . farmvalue["name"], "garden")
  2079. descr := "harvested " . farmvalue["name"]
  2080. loginfo .= "harvested " . farmvalue["name"]
  2081. gardentreasurelog := ""
  2082. for farmentry, farmcontent in allplants{
  2083. if(farmcontent["name"] == farmvalue["name"]){
  2084. ;show new harvested plants in the almanac
  2085. plantknowledge[farmentry]["seen"] := 1
  2086. }
  2087. }
  2088. farmvalue2 := {}
  2089. farmvalue2["harvest"] := fusearrays([farmvalue["harvest"], farmvalue["passive"], farmvalue["global"]])
  2090. for gardenentry, gardencontent in farmvalue2["harvest"]{
  2091. if(gardenentry == "harvestpower"){
  2092. gardenvalue := calculateharvestvalue(farmvalue2)
  2093. ;plant example
  2094. ;barkwood := {rarity: 25, descr: "A small but dense tree. Its bark makes for a great power source but sadly this plant has barely any of it", name:"barkwood", harvest:{power:5}, passive:{harvestpowerpercent:400}}
  2095. descr .= "`ngained " . gardenvalue . " power"
  2096. addlog("Harvested a " . farmvalue["name"] . ". Gained " . gardenvalue . " Power.", "power")
  2097. changepower(gardenvalue)
  2098. if(!stats["powerharvested"]){
  2099. stats["powerharvested"] := 0
  2100. }
  2101. stats["powerharvested"] += gardenvalue
  2102. }
  2103. if(gardenentry == "chest"){
  2104. gardentreasurelog .= "Harvested a " . farmvalue["name"] . ". Gained " . gardencontent . " chest"
  2105. descr .= "`ngained " . gardencontent . " chest"
  2106. if(gardenvalue <> 1){
  2107. gardentreasurelog .= "s"
  2108. descr .= "s"
  2109. }
  2110. gardentreasurelog .= "`n"
  2111. treasurechests += gardencontent
  2112. if(!stats["treasurechestsfound"]){
  2113. stats["treasurechestsfound"] := 0
  2114. }
  2115. stats["treasurechestsfound"] += gardencontent
  2116. }
  2117. if(gardenentry == "key"){
  2118. gardentreasurelog .= "Harvested a " . farmvalue["name"] . ". Gained " . gardencontent . " key"
  2119. descr .= "`ngained " . gardencontent . " key"
  2120. if(gardenvalue <> 1){
  2121. gardentreasurelog .= "s"
  2122. descr .= "s"
  2123. }
  2124. gardentreasurelog .= "`n"
  2125. goldenkeys += gardencontent
  2126. if(!stats["goldenkeysfound"]){
  2127. stats["goldenkeysfound"] := 0
  2128. }
  2129. stats["goldenkeysfound"] += gardencontent
  2130. }
  2131. if(gardenentry == "knowledge"){
  2132. gardenvalue := calculateknowledge(farmvalue2)
  2133. if(!almanacunlocked){
  2134. almanacunlocked := 1
  2135. addtooltip("You could harness this knowledge into something useful. You unlocked the almanac", 100)
  2136. }
  2137. plantknowledge["knowledge"] += gardenvalue
  2138. descr .= "`ngained " . gardenvalue . " knowledge"
  2139. }
  2140. }
  2141. if(farmvalue["fusion"]){
  2142. ;this entire part handles plant fusion. Its rather complex
  2143. fusiontargets := []
  2144. loop, % contents["nextto"].Maxindex(){
  2145. farmvalue2 := contents["nextto"][A_index]
  2146. if (tile%farmvalue2%["plant"] && (!tile%farmvalue2%["plant"]["weakness"] || farmvalue["fusion"]["strength"] > tile%farmvalue2%["plant"]["weakness"] || limitlessfusions == "true")){
  2147. fusiontargets.push(tile%farmvalue2%["plant"])
  2148. ;gather all plants around the harvested tile that have less weakness than the harvested plant has strength
  2149. }
  2150. }
  2151. while(fusiontargets.MaxIndex() > farmvalue["fusion"]["amount"]){
  2152. random, farmrngesus, 1, fusiontargets.MaxIndex()
  2153. fusiontargets.remove(farmrngesus)
  2154. }
  2155. ;then it removes random ones until it has equal or less than the max amount of plants it can fuse. The rest is handled in the createamalgamplant() function which combines the stats of the selected plants
  2156. amalgamplant := createamalgamplant(fusiontargets, farmvalue["fusion"])
  2157. if(amalgamplant){
  2158. loginfo := "Harvesting the " . farmvalue["name"] . " made it target " . fusiontargets.Maxindex() . " plant"
  2159. descr .= "`n fused " . fusiontargets.Maxindex() . " plant"
  2160. if(fusiontargets.MaxIndex() <> 1){
  2161. loginfo .= "s"
  2162. descr .= "s"
  2163. }
  2164. descr .= " together into one plant"
  2165. loginfo .= " and added their stats together forming an " . amalgamplant["name"] . " on tile " . contents["location"][1] . " - " . contents["location"][2]
  2166. addlog(loginfo, "garden")
  2167. }
  2168. }
  2169. if(amalgamplant){
  2170. contents["plant"] := amalgamplant
  2171. amalgamplant := ""
  2172. if(!stats["gardenplantscreated"]){
  2173. stats["gardenplantscreated"] := 0
  2174. }
  2175. stats["gardenplantscreated"] += 1
  2176. }
  2177. if(gardentreasurelog){
  2178. addlog(gardentreasurelog)
  2179. }
  2180. if(!stats["plantsharvested"]){
  2181. stats["plantsharvested"] := 0
  2182. }
  2183. stats["plantsharvested"] += 1
  2184. addtooltip(descr, 100, "gardendescription")
  2185. }
  2186. }
  2187. if(gardenmode == "swap"){
  2188. if(!plantselect){
  2189. plantselect := objfullyclone(contents)
  2190. ;I don't really understand how these clones work but it prevents changing arrays in weird ways. The normal clone() function is imperfect so objfullyclone() handles that
  2191. }
  2192. else if(plantselect == contents){
  2193. plantselect := ""
  2194. }
  2195. else{
  2196. ;change the location of both selected plants.
  2197. swapprepvalue2 := plantselect["location"][1]
  2198. swapprepvalue3 := plantselect["location"][2]
  2199. swapprepvalue4 := contents["location"][1]
  2200. swapprepvalue5 := contents["location"][2]
  2201. ;plantselect == first clicked tile. contents == second clicked tile
  2202. if(plantselect["location"][3] == "freezer"){
  2203. freezertile%swapprepvalue2%A%swapprepvalue3%["plant"] := contents["plant"]
  2204. }
  2205. else{
  2206. tile%swapprepvalue2%A%swapprepvalue3%["plant"] := contents["plant"]
  2207. }
  2208. if(contents["location"][3] == "freezer"){
  2209. freezertile%swapprepvalue4%A%swapprepvalue5%["plant"] := plantselect["plant"]
  2210. }
  2211. else{
  2212. tile%swapprepvalue4%A%swapprepvalue5%["plant"] := plantselect["plant"]
  2213. }
  2214. plantselect := ""
  2215. }
  2216. if(plantselect){
  2217. addtooltip("selected " . plantselect["plant"]["name"] . " in the " . selectedfeature . " on tile " . plantselect["location"][1] . "-" . plantselect["location"][2], 150, "gardendescription")
  2218. }
  2219. updatemain()
  2220. }
  2221. if(gardenmode == "protect"){
  2222. ;protect is really simple. It just switches a value on the plant.
  2223. if(!contents["plant"]["protected"]){
  2224. contents["plant"]["protected"] := 1
  2225. }
  2226. else{
  2227. contents["plant"]["protected"] := 0
  2228. }
  2229. }
  2230. if(gardenmode == "inspect"){
  2231. ;re-assign farmvalue because the clicked plant may have been swapped or harvested
  2232. farmvalue := fusearrays([contents["plant"], contents["permanent"], contents["temp"]])
  2233. addtooltip(getplantdescription(farmvalue, "`n", contents, gardendoc), 150, "gardendescription")
  2234. }
  2235. updatemain()
  2236. }
  2237.  
  2238. getplantdescription(plant, break, tile:="", doc:=""){
  2239. global
  2240. ;ahk tooltip's use `n to create a new line why html uses </br>
  2241. descr := ""
  2242. if(tile){
  2243. descr .= tile["location"][3] . " tile " . tile["location"][1] . "-" . tile["location"][2]
  2244. }
  2245. if(plant["name"]){
  2246. descr .= " (" . plant["name"] . ")"
  2247. if(featuredoc.getElementById(doc.id).getAttribute("disable") && doc.disable == "disabled"){
  2248. descr .= break . "The plant here is currently inactive because its garden tile disappeared." . break . "It can't be moved or harvested and has no effects."
  2249. }
  2250. }
  2251. descr .= break
  2252. farmvalue := fusearrays([tile["temp"], tile["permanent"]])
  2253. for farmentry, farmcontent in farmvalue{
  2254. if(farmentry == "global" && farmcontent["clickpower"]){
  2255. descr .= "plants here gain +" . round(farmcontent["clickpower"]) . " power per click" . break
  2256. }
  2257. if(farmentry == "passive" && farmcontent["clickpowerpercent"]){
  2258. descr .= "increases the click power by " . round(farmcontent["clickpowerpercent"], 3) . "% on plants here" . break
  2259. }
  2260. if(farmentry == "global" && farmcontent["movepower"]){
  2261. descr .= "plants here gain +" . round(farmcontent["movepower"]) . " move power" . break
  2262. }
  2263. if(farmentry == "passive" && farmcontent["movepowerpercent"]){
  2264. descr .= "increases the move power by " . round(farmcontent["movepowerpercent"], 3) . "% to plants here" . break
  2265. }
  2266. if(farmentry == "passive" && farmcontent["harvestpower"]){
  2267. descr .= "plants here gain +" . round(farmcontent["harvestpower"]) . " power when harvested" . break
  2268. }
  2269. if(farmentry == "passive" && farmcontent["harvestpowerpercent"]){
  2270. descr .= "increases resources harvested by " . round(farmcontent["harvestpowerpercent"], 3) . "% to plants here" . break
  2271. }
  2272. if(farmentry == "global" && farmcontent["harvestpowerpercent"]){
  2273. descr .= "plants here grant +" . round(farmcontent["harvestpowerpercent"], 3) . "% resources harvested from all plants" . break
  2274. }
  2275. if(farmentry == "global" && farmcontent["treasurepower"]){
  2276. descr .= "plants here gain +" . round(farmcontent["treasurepower"], 3) . " power when finding treasures" . break
  2277. }
  2278. if(farmentry == "passive" && farmcontent["treasurepowerpercent"]){
  2279. descr .= "Increases the treasure power gained by " . round(farmcontent["treasurepowerpercent"], 3) . "% to plants here" . break
  2280. }
  2281. if(farmentry == "global" && farmcontent["keyboardkeypower"]){
  2282. descr .= "plants here gain +" . round(farmcontent["keyboardkeypower"], 3) . " power when pressing keyboard keys" . break
  2283. }
  2284. if(farmentry == "passive" && farmcontent["keyboardkeypowerpercent"]){
  2285. descr .= "Increases the keyboard key power gained by " . round(farmcontent["keyboardkeypowerpercent"], 3) . "% to plants here" . break
  2286. }
  2287. if(farmentry == "passive" && farmcontent["knowledge"]){
  2288. descr .= "plants here grant +" . farmcontent["knowledge"] . " knowledge points when harvested" . break
  2289. }
  2290. if(farmentry == "passive" && farmcontent["knowledgepercent"]){
  2291. descr .= "Increases knowledge points gained by " . round(farmcontent["knowledgepercent"], 3) . "% to plants here" . break
  2292. }
  2293. if(farmentry == "global" && farmcontent["knowledgepercent"]){
  2294. descr .= "plants here grant +" . round(farmcontent["knowledgepercent"], 3) . "% knowledge points harvested to all plants" . break
  2295. }
  2296. if(farmentry == "passive" && farmcontent["toxic"]){
  2297. descr .= "Something is preventing basic plants from spawning here" . break
  2298. }
  2299. }
  2300. if(plant["rarity"]){
  2301. descr .= break . "Plant rarity: " . plant["rarity"] . " (lower numbers mean a rarer plant)" . break
  2302. }
  2303. if((plant["global"] || plant["auras"] || plant["tileauras"]) && plant["name"]){
  2304. descr .= break . "Passive bonusses:" . break
  2305. if(gardenselection == "freezer"){
  2306. descr .= "These do currently not apply because the plant is frozen" . break
  2307. }
  2308. ;msgbox % arraytostring(farmvalue["global"])
  2309. for farmentry, farmcontent in plant["global"]{
  2310. farmglobalbonus := farmcontent
  2311. Stringright, farmvalue, farmentry, 7
  2312. if(farmvalue <> "percent"){
  2313. farmpassivebonus := plant["passive"][farmentry]
  2314. ;gardenpassive bonus contains an added passive bonus for the global bonus
  2315. }
  2316. farmpassivepercentbonus := plant["passive"][farmentry . "percent"]
  2317. if farmpassivebonus is not number
  2318. {
  2319. farmpassivebonus := 0
  2320. }
  2321. if farmpassivepercentbonus is not number
  2322. {
  2323. farmpassivepercentbonus := 0
  2324. }
  2325. ;msgbox % farmpassivepercentbonus . ", " . farmpassivebonus . ", " farmglobalbonus . ", " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1))
  2326. if(farmentry == "clickpower"){
  2327. descr .= "Increases power gain from clicking by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) break
  2328. }
  2329. if(farmentry == "clickpowerpercent"){
  2330. descr .= "Increases power gain from clicking by " . round(farmcontent, 3) . "%" . break
  2331. }
  2332. if(farmentry == "movepower"){
  2333. descr .= "Increases power gain from moving the mouse by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) break
  2334. }
  2335. if(farmentry == "movepowerpercent"){
  2336. descr .= "Increases power gain from moving the mouse by " . round(farmcontent, 3) . "%" . break
  2337. }
  2338. if(farmentry == "movespeed"){
  2339. descr .= "Increases mouse movement efficiency by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) break
  2340. }
  2341. if(farmentry == "harvestpower"){
  2342. descr .= "Increases power gain from all harvested plants by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) break
  2343. }
  2344. if(farmentry == "harvestpowerpercent"){
  2345. descr .= "Increases power gain from all harvested plants by " . round(farmcontent, 3) . "%" . break
  2346. }
  2347. if(farmentry == "treasurepower"){
  2348. descr .= "Increases power gain from treasures by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) break
  2349. }
  2350. if(farmentry == "treasurepowerpercent"){
  2351. descr .= "Increases power gain from treasures by " . round(farmcontent, 3) . "%" . break
  2352. }
  2353. if(farmentry == "keyboardkeypower"){
  2354. descr .= "Increases power gain from keyboard keys by " . round((farmglobalbonus + farmpassivebonus) * ((farmpassivepercentbonus / 100) + 1)) . "%" . break
  2355. }
  2356. if(farmentry == "keyboardkeypowerpercent"){
  2357. descr .= "Increases power gain from keyboard keys by " . round(farmcontent, 3) . "%" . break
  2358. }
  2359. }
  2360. ;msgbox % arraytostring(farmvalue["auras"])
  2361. for farmentry, farmcontent in plant["auras"]{
  2362. if(farmentry == "global" && farmcontent["clickpower"]){
  2363. descr .= "boosts the power per click of plants around this by " . farmcontent["clickpower"] break
  2364. }
  2365. if(farmentry == "passive" && farmcontent["clickpowerpercent"]){
  2366. descr .= "boosts the power per click % bonus of plants around this by " . farmcontent["clickpowerpercent"] . "%" . break
  2367. }
  2368. if(farmentry == "global" && farmcontent["movepower"]){
  2369. descr .= "boosts the power gained from moving the mouse of plants around this by " . farmcontent["movepower"] break
  2370. }
  2371. if(farmentry == "passive" && farmcontent["movepowerpercent"]){
  2372. descr .= "boosts the power % gained from moving the mouse of plants around this by " . farmcontent["movepowerpercent"] . "%" . break
  2373. }
  2374. if(farmentry == "passive" && farmcontent["harvestpower"]){
  2375. descr .= "boosts the power gained from harvesting plants around this by " . farmcontent["harvestpower"] break
  2376. }
  2377. if(farmentry == "passive" && farmcontent["harvestpowerpercent"]){
  2378. descr .= "boosts the power gained from harvesting plants around this by " . farmcontent["harvestpowerpercent"] . "%" . break
  2379. }
  2380. if(farmentry == "global" && farmcontent["treasurepower"]){
  2381. descr .= "boosts the power gained from hidden treasures of plants around this by " . farmcontent["treasurepower"] break
  2382. }
  2383. if(farmentry == "passive" && farmcontent["treasurepowerpercent"]){
  2384. descr .= "boosts the power gained from hidden treasures of plants around this by " . farmcontent["treasurepowerpercent"] . "%" . break
  2385. }
  2386. if(farmentry == "global" && farmcontent["keyboardkeypower"]){
  2387. descr .= "boosts the power gained from keyboard keys of plants around this by " . farmcontent["keyboardkeypower"] . "%" . break
  2388. }
  2389. if(farmentry == "passive" && farmcontent["keyboardkeypowerpercent"]){
  2390. descr .= "boosts the power gained from keyboard keys of plants around this by " . farmcontent["keyboardkeypowerpercent"] . "%" . break
  2391. }
  2392. if(farmentry == "passive" && farmcontent["knowledge"]){
  2393. descr .= "boosts the knowledge gained from plants around this by " . farmcontent["knowledge"] break
  2394. }
  2395. if(farmentry == "passive" && farmcontent["knowledgepercent"]){
  2396. descr .= "boosts the knowledge gained from plants around this by " . farmcontent["knowledgepercent"] . "%" . break
  2397. }
  2398. }
  2399. ;msgbox % arraytostring(farmvalue["tileauras"])
  2400. for farmentry, farmcontent in plant["tileauras"]{
  2401. ;rootwraith := {auras:{passive:{harvestpower:15, harvestpowerpercent:7}}, tileauras:{passive:{harvestpower:10}, global:{harvestpowerpercent:1}}}
  2402. if(farmentry == "global" && farmcontent["clickpower"]){
  2403. descr .= "slowly affects nearby tiles with a permanent bonus to click power. up to a max of " . farmcontent["clickpower"] break
  2404. }
  2405. if(farmentry == "passive" && farmcontent["clickpowerpercent"]){
  2406. descr .= "slowly affects nearby tiles with a permanent bonus to click power. up to a max of " . farmcontent["clickpowerpercent"] . "%" . break
  2407. }
  2408. if(farmentry == "global" && farmcontent["movepower"]){
  2409. descr .= "slowly affects nearby tiles with a permanent bonus to move power. up to a max of " . farmcontent["movepower"] break
  2410. }
  2411. if(farmentry == "passive" && farmcontent["movepowerpercent"]){
  2412. descr .= "slowly affects nearby tiles with a permanent bonus to move power. up to a max of " . farmcontent["movepowerpercent"] . "%" . break
  2413. }
  2414. if(farmentry == "passive" && farmcontent["harvestpower"]){
  2415. descr .= "slowly affects nearby tiles with a permanent bonus to harvest power. up to a max of " . farmcontent["harvestpower"] break
  2416. }
  2417. if(farmentry == "passive" && farmcontent["harvestpowerpercent"]){
  2418. descr .= "slowly affects nearby tiles with a permanent bonus to harvest power. up to a max of " . farmcontent["harvestpowerpercent"] . "%" . break
  2419. }
  2420. if(farmentry == "global" && farmcontent["harvestpowerpercent"]){
  2421. descr .= "slowly affects nearby tiles with a permanent bonus to harvest power to all plants. up to a max of " . farmcontent["harvestpowerpercent"] . "%" . break
  2422. }
  2423. if(farmentry == "global" && farmcontent["treasurepower"]){
  2424. descr .= "slowly affects nearby tiles with a permanent bonus to treasure power. up to a max of " . farmcontent["treasurepower"] break
  2425. }
  2426. if(farmentry == "passive" && farmcontent["treasurepowerpercent"]){
  2427. descr .= "slowly affects nearby tiles with a permanent bonus to treasure power. up to a max of " . farmcontent["treasurepowerpercent"] . "%" . break
  2428. }
  2429. if(farmentry == "global" && farmcontent["keyboardkeypower"]){
  2430. descr .= "slowly affects nearby tiles with a permanent bonus to keyboard key power. up to a max of " . farmcontent["keyboardkeypower"] break
  2431. }
  2432. if(farmentry == "passive" && farmcontent["keyboardkeypowerpercent"]){
  2433. descr .= "slowly affects nearby tiles with a permanent bonus to keyboard key power. up to a max of " . farmcontent["keyboardkeypowerpercent"] break
  2434. }
  2435. if(farmentry == "global" && farmcontent["knowledgepercent"]){
  2436. descr .= "slowly affects nearby tiles with a permanent bonus to knowledge points gained from all plants up to a max of " . farmcontent["knowledgepercent"] . "%" . break
  2437. }
  2438. }
  2439. if(plant["weakness"]){
  2440. descr .= break . "Fusion weakness: " . plant["weakness"] . " (weakened plants can only be fused using plants with more strength than this has weakness)" . break
  2441. }
  2442. }
  2443. plant2 := {}
  2444. plant2["harvest"] := fusearrays([plant["harvest"], plant["passive"], plant["global"]])
  2445. for farmentry, farmcontent in plant2["harvest"]{
  2446. stringleft, farmvalue, farmentry, 7
  2447. if(farmvalue == "harvest"){
  2448. descr .= break . "Harvest rewards:" . break
  2449. if(gardenselection == "freezer"){
  2450. descr .= "move this plant to the garden to be able to harvest it" . break
  2451. }
  2452. break
  2453. }
  2454. }
  2455. for farmentry, farmcontent in plant2["harvest"]{
  2456. farmglobalbonus := farmcontent
  2457. farmpassivepercentbonus := plant[farmentry . "percent"]
  2458. if farmpassivepercentbonus is not number
  2459. {
  2460. farmpassivepercentbonus := 0
  2461. }
  2462. if(farmentry == "harvestpower"){
  2463. descr .= "Power: " . calculateharvestvalue(plant2) break
  2464. }
  2465. if(farmentry == "harvestseeds"){
  2466. descr .= "plants up" . floor(farmglobalbonus) . " plants around this."
  2467. }
  2468. if(farmentry == "chest"){
  2469. descr .= farmglobalbonus . " chest"
  2470. if(farmglobalbonus <> 1){
  2471. descr .= "s"
  2472. }
  2473. descr .= break
  2474. }
  2475. if(farmentry == "key"){
  2476. descr .= farmglobalbonus . " key"
  2477. if(farmglobalbonus <> 1){
  2478. descr .= "s"
  2479. }
  2480. descr .= break
  2481. }
  2482. if(farmentry == "knowledge"){
  2483. descr .= "plant knowledge: " . calculateknowledge(plant2) break
  2484. }
  2485. }
  2486. if(plant["fusion"]){
  2487. descr .= break . "Fusion strength: " . plant["fusion"]["strength"] . " (Higher strength levels are required to fuse already fused plants together)" . break
  2488. descr .= "This plant copies the stats of up to " . plant["fusion"]["amount"] . " nearby plants when harvested and forms it together." . break . "Creating a single plant with the stats of all selected plants combined." . break
  2489. }
  2490. if(plant["descr"]){
  2491. descr .= break "Description: " . plant["descr"]
  2492. }
  2493. return descr
  2494. }
  2495.  
  2496. creategardenplant(fixedchance:=5, fixedposX:="", fixedposY:="", fixedplant:="", aggressive:=""){
  2497. global
  2498. ;fixedchance. If this value is given, the chance of a plant appearing for tiles checked will be a percentage equal to the given value. Say putting it on 50 gives a 50% for putting a plant on every tile
  2499. ;fixedposX, if this value is given, plants can only appear on the X location of the given value
  2500. ;fixedposY is pretty self explanatory now
  2501. ;aggressive, if this value is given. Plants will override other plants.
  2502. ;fixedplant should be filled with the array of a plant, examples are shown here below. This changes all plants changed to be this specific plant instead.
  2503. if(s0 >= garden["purchased"]){
  2504. ;no plants when there is no garden
  2505. return
  2506. }
  2507. loop, %gardentiles%{
  2508. SX := mod(A_index, gardenmaxX)
  2509. SY := ceil(A_index / gardenmaxY)
  2510. if(SX == 0){
  2511. SX = 10
  2512. }
  2513. if(fixedposX && SX <> fixedposX){
  2514. continue
  2515. ;continue just ends the current loop and starts a new one
  2516. }
  2517. if(fixedposY && SY <> fixedposY){
  2518. continue
  2519. }
  2520. if(tile%SX%A%SY%["plant"]["name"] == "" || aggressive){
  2521. random, rngesus, 1, 100
  2522. if(fixedchance >= rngesus || maxgardenplantchance == "true"){
  2523. ;plant combo example
  2524. ;plantcombos := [{pardners:["tree", "flower"], result:"appletree", rarity:100}]
  2525. random, trycombo, 1, 2
  2526. ;if trycombo is 2 it tries to create a combo plant which checks nearby tiles to see if it can create something
  2527. loop{
  2528. result := ""
  2529. if(trycombo == 2){
  2530. plantcombototal := {}
  2531. ;first it loops through every available combo
  2532. loop, % plantcombos.MaxIndex(){
  2533. plantloop := A_index
  2534. plantsneeded := {}
  2535. ;an array is created containing a number according to the plant needed.
  2536. loop, % plantcombos[plantloop]["Pardners"].MaxIndex(){
  2537. whatneeded := plantcombos[plantloop]["Pardners"][A_index]
  2538. whatneeded := %whatneeded%["name"]
  2539. if(!plantsneeded[whatneeded]){
  2540. plantsneeded[whatneeded] := 0
  2541. }
  2542. plantsneeded[whatneeded] += 1
  2543. }
  2544. ;it checks all the tiles next to the selected tile and if it finds a plant that the combo needs. It subtracts 1 from the array.
  2545. for, creategardenplantentry, creategardenplantcontent in tile%SX%A%SY%["nextto"]{
  2546. if(plantsneeded[tile%creategardenplantcontent%["plant"]["name"]] > 0){
  2547. plantsneeded[tile%creategardenplantcontent%["plant"]["name"]] -= 1
  2548. }
  2549. }
  2550. ;so simple! it checks the entire array and gets the largest number. If its 0 then the combo is successful. Else it removes the combo from the current list and tries again.
  2551. if(0 >= objectminmax(plantsneeded, "max")){
  2552. random, rngesus3, 1, 1000
  2553. if(plantcombos[plantloop]["rarity"] * 10 >= rngesus3 || ignoreplantrarity == "true"){
  2554. plantcombototal.push(plantcombos[plantloop]["result"])
  2555. }
  2556. }
  2557. }
  2558. loop{
  2559. ;loop through all successful combos and choose one.
  2560. if(plantcombototal.MaxIndex() > 0){
  2561. random, rngesus3, 1, 1000
  2562. random, whichcombo, 1, plantcombototal.MaxIndex()
  2563. creategardenplantvalue := plantcombototal[whichcombo]
  2564. ;check the rarity. If the check fails. Remove this combo too and try the next one.
  2565. if(%creategardenplantvalue%["rarity"] * 10 >= rngesus3 || ignoreplantrarity == "true"){
  2566. ;if it succeeds. Put the plant in result which will be added to the garden
  2567. result := %creategardenplantvalue%
  2568. break
  2569. }
  2570. else{
  2571. plantcombototal.remove(whichcombo)
  2572. }
  2573. }
  2574. else{
  2575. break
  2576. }
  2577. }
  2578. if(plantcombototal.MaxIndex() >= 1){
  2579. break
  2580. }
  2581. else{
  2582. ;no combinations are possible. Create a normal non-combo plant instead
  2583. trycombo = 1
  2584. }
  2585. }
  2586. else{
  2587. random, rngesus2, 1, plants.MaxIndex()
  2588. random, rngesus3, 1, 1000
  2589. selectedplant := plants[rngesus2]
  2590. ;take a random plant from the list, check its rarity and if the check succeeds.
  2591. if((selectedplant["rarity"] * 10) >= rngesus3 || ignoreplantrarity == "true"){
  2592. ;if it succeeds. Put the plant in result which will be added to the garden
  2593. if(!tile%SX%A%SY%["temp"]["passive"]["toxic"]){
  2594. ;non-combo plants can not be created next to a toxic plant. No more useless clearing of dust trees and tick flowers while searching for those rare plants
  2595. result := selectedplant
  2596. }
  2597. break
  2598. }
  2599. }
  2600. }
  2601. random, gardentimerrngesus, 1, 1000
  2602. if(fixedplant){
  2603. result := fixedplant
  2604. }
  2605. if(result){
  2606. if(result["name"] == "lockbloom" && keyavailable){
  2607. result["symbol"] := keyavailable
  2608. }
  2609. tile%SX%A%SY%["plant"] := ObjFullyClone(result)
  2610. if(silentplants == "false" || silentplants >= gardentimerrngesus){
  2611. ;silentplants is a dev function which causes plants to not fill the logs as much as they normally do.
  2612. addlog(result["name"] . " appeared on tile " . SX . " - " . SY, "garden")
  2613. }
  2614. ;I had a lot of trouble with this until I figured out objfullyclone(). If I remove this function. Every plant will think its next to the same spaces
  2615. gardendocedit := gardendoc.getelementbyid("tile" . SX . "A" . SY)
  2616. storedplantname := tile%SX%A%SY%["plant"]["name"]
  2617. if(!stats["gardenplantscreated"]){
  2618. stats["gardenplantscreated"] := 0
  2619. }
  2620. stats["gardenplantscreated"] += 1
  2621. updategardeneffects()
  2622. }
  2623. updatemain()
  2624. }
  2625. }
  2626. }
  2627. }
  2628.  
  2629. gardentick(){
  2630. global
  2631. ;plant example
  2632. ;clickvine := {tileauras:{passive:{percent:{clickpower:5}, direct:{clickpower:5}}}}
  2633. ;this function activates whenever mouse movement tries to spawn garden plants.
  2634. ;this part handles garden ticks which happen after moving the mouse. The activate effects like permanent tile buffing.
  2635. loop, % gardentiles{
  2636. GTX := mod(A_index, 10)
  2637. GTY := ceil(A_index / 10)
  2638. if(GTX == 0){
  2639. GTX = 10
  2640. }
  2641. ;rootwraith := {tileauras:{global:{harvestpower:10, harvestpowerpercent:1}}}
  2642. gardentickvalue := fusearrays([tile%GTX%A%GTY%["plant"], tile%GTX%A%GTY%["passive"], tile%GTX%A%GTY%["permanent"]])
  2643. for gardentickentry, gardentickcontent in gardentickvalue["tileauras"]{
  2644. for gardentickentry2, gardentickcontent2 in gardentickvalue["tileauras"][gardentickentry]{
  2645. for, gardentickentry3, gardentickcontent3 in tile%GTX%A%GTY%["nextto"]{
  2646. ;this part is painfully complex but kinda required to handle this correctly.
  2647. if(!tile%gardentickcontent3%["permanent"]){
  2648. tile%gardentickcontent3%["permanent"] := {}
  2649. }
  2650. if(!tile%gardentickcontent3%["permanent"][gardentickentry]){
  2651. tile%gardentickcontent3%["permanent"][gardentickentry] := {}
  2652. }
  2653. if(!tile%gardentickcontent3%["permanent"][gardentickentry][gardentickentry2]){
  2654. tile%gardentickcontent3%["permanent"][gardentickentry][gardentickentry2] := 0
  2655. }
  2656. tile%gardentickcontent3%["permanent"][gardentickentry][gardentickentry2] += calculateauraincrease(gardentickcontent2, tile%gardentickcontent3%["permanent"][gardentickentry][gardentickentry2])
  2657. }
  2658. }
  2659. }
  2660. if(gardentickvalue["name"] == "lockbloom" && keyavailable){
  2661. ;lockbloom's symbol can randomly change to that of the current hidden key
  2662. random, gardentickrngesus, 1, 100
  2663. if(gardentickrngesus >= 98){
  2664. tile%GTX%A%GTY%["plant"]["symbol"] := keyavailable
  2665. }
  2666. }
  2667. }
  2668. updategardeneffects()
  2669. }
  2670.  
  2671. calculateauraincrease(plantmax, tilecurrent){
  2672. global maxgardenpermbuffs
  2673. ;the rate at which permanent buffs grow is higher based on the value on the plant and slows down after the value on the tile is higher.
  2674. ;there is a mimimum growth so the value doesn't stay right under the maximum all the time but it stops increasing at all once it reaches the max.
  2675. if tilecurrent is not number
  2676. {
  2677. tilecurrent := 0
  2678. }
  2679. a := (plantmax / 500) * (1 - min((tilecurrent + 1) / plantmax, 1)) + (plantmax / 1000)
  2680. if(tilecurrent + a >= plantmax || maxgardenpermbuffs == "true"){
  2681. a := max(plantmax - tilecurrent, 0)
  2682. }
  2683. return a
  2684. }
  2685.  
  2686. tileprice(value:=""){
  2687. global gardentiles, freezertiles
  2688. if(value == "garden"){
  2689. return round((200 * gardentiles) * (1.08 ** gardentiles))
  2690. }
  2691. else if(value == "freezer"){
  2692. return round((225 * freezertiles) * (1.08 ** freezertiles))
  2693. }
  2694. }
  2695.  
  2696. treasureopen_onclick(treasureopendoc){
  2697. global
  2698. ;activates when the open treasure button is clicked.
  2699. treasureopendoc := treasureopendoc.Mode
  2700. treasuretoopen := treasureopendoc
  2701. if (treasureopendoc == "all"){
  2702. treasuretoopen := Min(treasurekeys, treasurechests)
  2703. }
  2704. treasuresopened := "false"
  2705. ;loop once for every treasure chest to open
  2706. loop, % treasuretoopen{
  2707. if(treasurekeys >= 1 && treasurechests >= 1){
  2708. if(treasuresopened == "false"){
  2709. treasuresinfo := []
  2710. ;true when at least one chest has been opened. It resets the description of what happened
  2711. treasuresopened := "true"
  2712. }
  2713. treasurekeys -= 1
  2714. treasurechests -= 1
  2715. random, powergained, 5000, 10000
  2716. random, treasureartifacts, 0, 4
  2717. treasureresult := []
  2718. loop{
  2719. random, whichtreasure, 1, treasurestats.Count()
  2720. for, treasureentry, treasurecontent in treasures{
  2721. random, whichtreasurechance, 1, 100
  2722. if(A_index == whichtreasure){
  2723. if(treasurestats[treasureentry]["rarity"] >= whichtreasurechance){
  2724. treasureresult.Push(treasureentry)
  2725. treasureartifacts -= 1
  2726. }
  2727. if(0 >= treasureartifacts){
  2728. break
  2729. }
  2730. }
  2731. }
  2732. if(0 >= treasureartifacts){
  2733. break
  2734. }
  2735.  
  2736. }
  2737. if(!treasuresinfo["power"]){
  2738. treasuresinfo["power"] := [0, "power"]
  2739. }
  2740. treasuresinfo["power"][1] += powergained
  2741. changepower(powergained)
  2742. for each, treasureopencontent in treasureresult{
  2743. treasures[treasureopencontent] += 1
  2744. if(!treasuresinfo[treasureopencontent]){
  2745. treasuresinfo[treasureopencontent] := [0, treasurestats[treasureopencontent]["name"]]
  2746. }
  2747. treasuresinfo[treasureopencontent][1] += 1
  2748. }
  2749. }
  2750. }
  2751. if(treasuresopened == "true"){
  2752. ;turns the treasuresinfo string into an actual readable description and changes the description to that text.
  2753. if(!stats["chestsopened"]){
  2754. stats["chestsopened"] := 0
  2755. }
  2756. stats["chestsopened"] += treasuretoopen
  2757. treasureinfotext := "Last "
  2758. if(treasuretoopen > 1){
  2759. treasureinfotext .= treasuretoopen . " chests gave"
  2760. }
  2761. else{
  2762. treasureinfotext .= "chest gave"
  2763. }
  2764. for treasureopenentry, treasureopencontent in treasuresinfo{
  2765. treasureinfotext .= "</br>" . treasureopencontent[1] . " " . treasureopencontent[2]
  2766. if(treasureopencontent[1] <> 1 && treasureopenentry <> "power"){
  2767. treasureinfotext .= "s"
  2768. }
  2769. }
  2770. }
  2771. updatemain()
  2772. }
  2773.  
  2774. ObjFullyClone(obj){
  2775. ;no idea how this works but it solves my problems so.. Yay
  2776. nobj := obj.Clone()
  2777. for k,v in nobj
  2778. if IsObject(v)
  2779. nobj[k] := A_ThisFunc.(v)
  2780. return nobj
  2781. }
  2782.  
  2783. addlog(log, ID:="Default"){
  2784. global logs
  2785. ;this function adds an extra log to the pile...... Anyways. This stuff is handled in the updatelogs() function
  2786. if(!logs[ID]){
  2787. logs[ID] := []
  2788. }
  2789. logs[ID].push(log)
  2790. }
  2791.  
  2792. addtooltip(content:="nothingness", timer:=15, identifier:=""){
  2793. global tooltips
  2794. ;timer goes down by 1 around 5 times every second
  2795. loop{
  2796. if(!tooltips[A_index]){
  2797. tooltips[A_index] := {content:content, timer:timer, identifier:identifier}
  2798. break
  2799. }
  2800. }
  2801. }
  2802.  
  2803. ;I found this V function on the internet. Its a better way to put the tooltip next to the mouse which doesnt flicker.
  2804. ToolTipFM(Text="", WhichToolTip=16, xOffset=16, yOffset=16) { ; ToolTip which Follows the Mouse
  2805. static LastText, hwnd, VirtualScreenWidth, VirtualScreenHeight ; http://www.autohotkey.com/forum/post-430240.html#430240
  2806.  
  2807. if (VirtualScreenWidth = "" or VirtualScreenHeight = "")
  2808. {
  2809. SysGet, VirtualScreenWidth, 78
  2810. SysGet, VirtualScreenHeight, 79
  2811. }
  2812.  
  2813. if (Text = "") ; destroy tooltip
  2814. {
  2815. ToolTip,,,, % WhichToolTip
  2816. LastText := "", hwnd := ""
  2817. return
  2818. }
  2819. else ; move or recreate tooltip
  2820. {
  2821. CoordMode, Mouse, Screen
  2822. MouseGetPos, x,y
  2823. x += xOffset, y += yOffset
  2824. WinGetPos,,,w,h, ahk_id %hwnd%
  2825.  
  2826. ; if necessary, adjust Tooltip position
  2827. if ((x+w) > VirtualScreenWidth)
  2828. AdjustX := 1
  2829. if ((y+h) > VirtualScreenHeight)
  2830. AdjustY := 1
  2831.  
  2832. if (AdjustX and AdjustY)
  2833. x := x - xOffset*2 - w, y := y - yOffset*2 - h
  2834. else if AdjustX
  2835. x := VirtualScreenWidth - w
  2836. else if AdjustY
  2837. y := VirtualScreenHeight - h
  2838.  
  2839. if (Text = LastText) ; move tooltip
  2840. DllCall("MoveWindow", A_PtrSize ? "UPTR" : "UInt",hwnd,"Int",x,"Int",y,"Int",w,"Int",h,"Int",0)
  2841. else ; recreate tooltip
  2842. {
  2843. ; Perfect solution would be to update tooltip text (TTM_UPDATETIPTEXT), but must be compatible with all versions of AHK_L and AHK Basic.
  2844. ; My Ask For Help link: http://www.autohotkey.com/forum/post-421841.html#421841
  2845. CoordMode, ToolTip, Screen
  2846. ToolTip,,,, % WhichToolTip ; destroy old
  2847. ToolTip, % Text, x, y, % WhichToolTip ; show new
  2848. hwnd := WinExist("ahk_class tooltips_class32 ahk_pid " DllCall("GetCurrentProcessId")), LastText := Text
  2849. %A_ThisFunc%(Text, WhichToolTip, xOffset, yOffset) ; move new
  2850. }
  2851. Winset, AlwaysOnTop, on, ahk_id %hwnd%
  2852. }
  2853. }
  2854.  
  2855. removetooltip(identifier:="", all:="false"){
  2856. ;remove tooltips based on their identifier. Very versatile
  2857. global tooltips
  2858. loop{
  2859. if(!tooltips[A_index]){
  2860. break
  2861. }
  2862. else if(tooltips[A_index]["identifier"] == identifier || all <> "false"){
  2863. tooltips[A_index] := ""
  2864. }
  2865. }
  2866. }
  2867.  
  2868. isnum(number){
  2869. ;if (thing) is number is stupid and works really bad with and/or statements so dumped into a function it is.
  2870. if number is number
  2871. {
  2872. return 1
  2873. }
  2874. return 0
  2875. }
  2876.  
  2877. randompointonscreen(){
  2878. ;simple
  2879. random, X, 0, A_screenwidth
  2880. random, Y, 0, A_screenheight
  2881. return, [X, Y]
  2882. }
  2883.  
  2884. randomletter(){
  2885. ;gets a random letter from the alphabet. Used for golden keys
  2886. random, rngesus, 1, 26
  2887. return % Chr(rngesus+96)
  2888. }
  2889.  
  2890. arraytostring(object){
  2891. ;turns arrays and objects into strings.
  2892. ;very rough example. I haven't tested many things on it like inputting incorrect arrays.
  2893. firstrun := 1
  2894. firstrun2 := 1
  2895. result := object
  2896. for entry, content in object{
  2897. if(firstrun == 1){
  2898. result := "{"
  2899. firstrun == 0
  2900. }
  2901. result .= entry . ":" . arraytostring(content) . ", "
  2902. }
  2903. for entry, content in object{
  2904. if(firstrun2 == 1){
  2905. StringTrimright, result, result, 2
  2906. result .= "}"
  2907. firstrun2 := 0
  2908. }
  2909. }
  2910. if result is not number
  2911. if(firstrun2 == 1)
  2912. {
  2913. result := """" . result . """"
  2914. }
  2915. return result
  2916. }
  2917.  
  2918. stringToArray(String){
  2919. ;my experiment of turning strings into objects. Also very rough and will also break on array strings being sent instead of objects.
  2920. stringleft, a, string, 1
  2921. stringright, b, string, 1
  2922. if(a == "{"){
  2923. stringtrimleft, string, string, 1
  2924. }
  2925. if(b == "}"){
  2926. stringtrimright, string, string, 1
  2927. string .= ","
  2928. }
  2929. if(a <> "{" && b <> "}"){
  2930. return string
  2931. }
  2932. result := []
  2933. storedvalue := ""
  2934. bracketcount := 0
  2935. plaintext := "false"
  2936. part := 1
  2937. loop, parse, string
  2938. {
  2939. if(A_loopfield == """"){
  2940. if(plaintext == "false"){
  2941. plaintext := "true"
  2942. }
  2943. else{
  2944. plaintext := "false"
  2945. }
  2946. }
  2947. if(plaintext == "false" && bracketcount == 0){
  2948. if(A_loopfield == " "){
  2949. continue
  2950. }
  2951. if(A_loopfield == ":" && part == 1){
  2952. part := 2
  2953. storedpart := storedvalue
  2954. storedvalue := ""
  2955. continue
  2956. }
  2957. if(A_loopfield == "," && part == 2){
  2958. part := 1
  2959. result[storedpart] := stringtoarray(storedvalue)
  2960. storedvalue := ""
  2961. continue
  2962. }
  2963. if(A_loopfield == "{"){
  2964. bracketcount += 1
  2965. storedvalue := ""
  2966. }
  2967. }
  2968. else if(plaintext == "false" && bracketcount > 0){
  2969. if(A_loopfield == "{"){
  2970. bracketcount += 1
  2971. }
  2972. if(A_loopfield == "}"){
  2973. bracketcount -= 1
  2974. }
  2975. }
  2976. if(A_loopfield <> """" || bracketcount > 0){
  2977. dontstore := ""
  2978. storedvalue .= A_loopfield
  2979. if(A_loopfield == "e"){
  2980. }
  2981. }
  2982. }
  2983. if(!IsObject(result) || result.Count() == 0 || result.Count() == ""){
  2984. return, storedvalue
  2985. }
  2986. return, result
  2987. }
  2988.  
  2989. fusearrays(object){
  2990. result2 := {}
  2991. ;another very rought example similar to the arraytostring() and stringtoarray() but this one should work with any kind of array, object or string with no problems.
  2992. ;if one object has another object in place another one has an string or number. The object gets priority. Same with numbers over strings. If there's just strings. Only the one of the first plant gets used.
  2993. for entry, content in object{
  2994. if (IsObject(object[A_index]) || object[A_index].Count() > 0 || selected == "object"){
  2995. selected := "object"
  2996. }
  2997. else if (isnum(object[A_index]) || selected == "number"){
  2998. selected := "number"
  2999. }
  3000. else{
  3001. selected := "text"
  3002. }
  3003. }
  3004. for entry, content in object{
  3005. storedvalue := A_index
  3006. if (selected == "text"){
  3007. if(!result){
  3008. result := object[storedvalue]
  3009. }
  3010. }
  3011. else if(selected == "number"){
  3012. if result is not number
  3013. {
  3014. result := 0
  3015. }
  3016. result += object[storedvalue]
  3017. }
  3018. else if(selected == "object"){
  3019. for entry2, content2 in object[storedvalue]{
  3020. if(!result){
  3021. result := {}
  3022. }
  3023. if(!result[entry2]){
  3024. for entry3, content3 in object{
  3025. result2.Push(object[entry3][entry2])
  3026. }
  3027. result[entry2] := fusearrays(result2)
  3028. result2 := {}
  3029. }
  3030. }
  3031. }
  3032. }
  3033. return result
  3034. }
  3035.  
  3036. createamalgamplant(object, fusionstats){
  3037. ;the continuation of an already tricky piece of code. The purpose of this function is to fuse multiple plants objects together which thankfully is way easier with the combine arrays function
  3038. result := []
  3039. result := fusearrays(object)
  3040. resultdescription := fusionstats["descr"] . " The combined power of a "
  3041. for entry, content in object{
  3042. storedrarity := min(storedrarity, content["rarity"])
  3043. ;the rarity of the resulting plant is the lowest of all combined plants
  3044. morethanzeroplants := "true"
  3045. resultdescription .= content["name"] . " and a "
  3046. for, entry2, content2 in object[A_index]["harvest"]["direct"]["fusion"]{
  3047. ;overwrite any fusion stats this plant has with the highest of a single plant. This is to prevent 2 fusion strength 1 plants to combine into one that has 2 strength which would result in potential infinite fusions
  3048. if content2 is number
  3049. {
  3050. if(!result["harvest"]["direct"]["fusion"][entry2]){
  3051. result["harvest"]["direct"]["fusion"][entry2] := 0
  3052. }
  3053. result["harvest"]["direct"]["fusion"][entry2] := Max(result["harvest"]["direct"]["fusion"][entry2], content2)
  3054. }
  3055. else if(!result["harvest"]["direct"]["fusion"][entry2]){
  3056. result["harvest"]["direct"]["fusion"][entry2] := content2
  3057. }
  3058. }
  3059. }
  3060. ;some extra values to add to the plant. Name, descr and weakness don't depend on the fused plants but on the plant used to fuse instead.
  3061. ;V create the plant and further build the description if the plant used to fuse targetted anything.
  3062. stringtrimright, resultdescription, resultdescription, 7
  3063. result["name"] := fusionstats["name"]
  3064. result["descr"] := resultdescription
  3065. result["weakness"] := fusionstats["strength"]
  3066. result["rarity"] := storedrarity
  3067. if(fusionstats["background"]){
  3068. result["background"] := fusionstats["background"]
  3069. }
  3070. else{
  3071. result.delete("background")
  3072. }
  3073. if(fusionstats["textcolor"]){
  3074. result["textcolor"] := fusionstats["textcolor"]
  3075. }
  3076. else{
  3077. result.delete("textcolor")
  3078. }
  3079. if(fusionstats["symbol"]){
  3080. result["symbol"] := fusionstats["symbol"]
  3081. }
  3082. else{
  3083. result.delete("symbol")
  3084. }
  3085. stringtrimright, resultdescription, resultdescription, 6
  3086. if(!morethanzeroplants){
  3087. ;if no plant was used to fuse. Just return nothing.
  3088. return
  3089. }
  3090. return result
  3091. }
  3092.  
  3093. HasVal(haystack, needle){
  3094. ;check if an array contains a specific word
  3095. if !(IsObject(haystack)) || (haystack.Length() == 0){
  3096. return 0
  3097. }
  3098. for index, value in haystack{
  3099. if (value = needle){
  3100. return index
  3101. }
  3102. }
  3103. return 0
  3104. }
  3105.  
  3106. objectminmax(object, minmax){
  3107. ;get the highest or lowest number in an entire object (doesnt work on objects inside objects)
  3108. switch := 1
  3109. if (!IsObject(object) || object.Count() == 0 ||object.Count() == ""){
  3110. return object
  3111. }
  3112. for, a, b in object{
  3113. if(isnum(b)){
  3114. if(switch){
  3115. switch := ""
  3116. result := b
  3117. }
  3118. if(minmax == "min"){
  3119. result := min(result, b)
  3120. }
  3121. else if(minmax == "max"){
  3122. result := max(result, b)
  3123. }
  3124. }
  3125. }
  3126. return result
  3127. }
  3128.  
  3129. VersionCompare(version1, version2){
  3130. ;I found and copy/pasted this from somewhere. Checks if your ahk version is higher or lower depending on the one that I made this game in.
  3131. ;I have had a couple people telling me that they got errors with lower versions meaning they likely didn't see the message I put up. So any help with that is appreciated
  3132. StringSplit, verA, version1, .
  3133. StringSplit, verB, version2, .
  3134. Loop, % (verA0> verB0 ? verA0 : verB0)
  3135. {
  3136. if (verA0 < A_Index)
  3137. verA%A_Index% := "0"
  3138. if (verB0 < A_Index)
  3139. verB%A_Index% := "0"
  3140. if (verA%A_Index% > verB%A_Index%)
  3141. return 1
  3142. if (verB%A_Index% > verA%A_Index%)
  3143. return 2
  3144. }
  3145. return 0
  3146. }
  3147.  
  3148. fixwindowpos(name){
  3149. ;name is case sensitive. Moves windows that are slightly or entirely offscreen. Can be disabled with an checkbox option
  3150. GetKeyState, LButtonState, LButton, P
  3151. if(LButtonState == "U"){
  3152. wingetpos, X, Y, W, H, %name%
  3153. if(X + W > A_screenwidth){
  3154. WinMove,%name%,, A_screenwidth - W, Y
  3155. }
  3156. wingetpos, X, Y, W, H, %name%
  3157. if(Y + H >= A_screenheight){
  3158. WinMove,%name%,, X, A_screenheight - H
  3159. }
  3160. wingetpos, X, Y, W, H, %name%
  3161. if(0 > X){
  3162. WinMove,%name%,, 0, Y
  3163. }
  3164. wingetpos, X, Y, W, H, %name%
  3165. if(0 > Y){
  3166. WinMove,%name%,, X, 0
  3167. }
  3168. }
  3169. }
  3170.  
  3171. toscientific(input:=0, rounding:=1, donttouchnumberlength:=6){
  3172. ;rounding means the amount of numbers the result should have. For example an input of 1000000 and a rounding of 4 should result in 1.000E+6, a rounding of 5 becomes 1.0000E+6
  3173. ;I might add different roundings eventually if the demand is high.
  3174. numbers := strlen(input)
  3175. if(donttouchnumberlength >= numbers){
  3176. return input
  3177. }
  3178. StringLeft, result, input, 1
  3179. StringTrimLeft, result2, input, 1
  3180. Stringleft, result2, result2, rounding - 1
  3181. result .= "." . result2 . "E+" . numbers - 1
  3182. return result
  3183. }
  3184.  
  3185. devbutton_onclick(){
  3186. ;this button does whatever I want it to do.
  3187. global
  3188. ;addtooltip(plantchance)
  3189. ;addtooltip(seeddrops)
  3190. ;addtooltip(keyavailable)
  3191. ;treasurekeys += 1
  3192. ;treasurechests += 1
  3193. ;plantknowledge["knowledge"] += 10
  3194. ;addtooltip(plantknowledge["knowledge"])
  3195. ;power *= 1.5
  3196. ;tile2A2["plant"] := {rarity: 100, knowledge:6, descr: "This is a plant that knows a lot about plants. Who knows what info you can extract when you harvest this", name:"knowleaf", symbol:"kl", background:"#55AA88", textcolor:"#FFAAFF", harvest:{harvestpower:100, knowledge:100}}
  3197. creategardenplant(100, 2, 2, lockbloom, "aggressive")
  3198. if(!keyavailable){
  3199. keyavailable := randomletter()
  3200. }
  3201. updatemain()
  3202. }
  3203.  
  3204. changepower(change:=0, subtract:="", changepercent:=100){
  3205. global
  3206. ;the main reason this function exists is to track the stats when power is increased or decreased
  3207. if(!stats["powergained"]){
  3208. stats["powergained"] := 0
  3209. }
  3210. if(!stats["powerspent"]){
  3211. stats["powerspent"] := 0
  3212. }
  3213. if(!subtract){
  3214. stats["powergained"] += change
  3215. }
  3216. else{
  3217. stats["powerspent"] += change
  3218. }
  3219. if(power * (changepercent / 100) > power){
  3220. stats["powergained"] += ((power * (changepercent / 100)) - power)
  3221. }
  3222. if(power > power * (changepercent / 100)){
  3223. stats["powerspent"] += ((power * (changepercent / 100)) + power)
  3224. }
  3225. if(!subtract){
  3226. power += change
  3227. }
  3228. else{
  3229. power -= change
  3230. }
  3231. power *= (changepercent / 100)
  3232. }
  3233.  
  3234. ;These are all the functions that calculate power gain. Most are the same but some got tiny differences.
  3235. calculateclickvalue(){
  3236. global
  3237. ;base
  3238. clickpower := 0
  3239. ;from upgrades
  3240. clickpowerbonus := 0
  3241. ;% increase from upgrades
  3242. clickpowermult := 1
  3243. ;% increase from treasures
  3244. treasureclickpowermult := 1 + (treasures["amulets"] / 100)
  3245. ;from knowledge points
  3246. knowledgeclickpowermult := 1
  3247.  
  3248. for a, b in upgrades{
  3249. ;loop through all upgrades
  3250. clickpowerbonus += %a%["clickpower"] * %a%["purchased"]
  3251. if(%a%["clickpowerpercent"] && %a%["purchased"]){
  3252. clickpowermult *= (%a%["clickpowerpercent"] * %a%["purchased"] / 100) + 1
  3253. }
  3254. if(%a%["knowledgepower"] && %a%["purchased"]){
  3255. knowledgeclickpowermult *= (%a%["knowledgepower"] * plantknowledge["knowledge"] * %a%["purchased"] / 100) + 1
  3256. }
  3257. }
  3258. clickpower += clickpowerbonus
  3259. clickpower += farmclickpower
  3260. clickpower *= (farmclickpowerpercent / 100) + 1
  3261. clickpower *= clickpowermult
  3262. clickpower *= treasureclickpowermult
  3263. clickpower *= knowledgeclickpowermult
  3264. return round(clickpower)
  3265. }
  3266.  
  3267. calculateharvestvalue(plantharvest:=""){
  3268. global
  3269. ;a plant array or number can be used here to affect power gain. Note that when a plant is input here. It should be combined with the temp and permanent stats to apply those in the harvest
  3270. harvestpower := 0
  3271. plantharvestpowermult := 0
  3272. if plantharvest is number
  3273. {
  3274. harvestpower := plantharvest
  3275. }
  3276. for, a, b in plantharvest["harvest"]{
  3277. if(a == "harvestpower"){
  3278. harvestpower += b
  3279. }
  3280. if(a == "harvestpowerpercent"){
  3281. plantharvestpowermult += b
  3282. }
  3283. }
  3284. harvestpowerbonus := 0
  3285. harvestpowermult := 1
  3286. treasureharvestmult := 1 + (treasures["emeralds"] / 100)
  3287. knowledgeharvestpowermult := 1
  3288. for a, b in upgrades{
  3289. harvestpowerbonus += %a%["harvestpower"] * %a%["purchased"]
  3290. if(%a%["harvestpowerpercent"] && %a%["purchased"]){
  3291. harvestpowermult *= (%a%["harvestpowerpercent"] * %a%["purchased"] / 100) + 1
  3292. }
  3293. if(%a%["knowledgepower"] && %a%["purchased"]){
  3294. knowledgeharvestpowermult *= (%a%["knowledgepower"] * plantknowledge["knowledge"] * %a%["purchased"] / 100) + 1
  3295. }
  3296. }
  3297. harvestpower += harvestpowerbonus
  3298. harvestpower += farmharvestpower
  3299. harvestpower *= (farmharvestpowerpercent / 100) + 1
  3300. harvestpower *= (plantharvestpowermult / 100) + 1
  3301. harvestpower *= harvestpowermult
  3302. harvestpower *= treasureharvestmult
  3303. harvestpower *= knowledgeharvestpowermult
  3304. return round(harvestpower)
  3305. }
  3306.  
  3307. calculateknowledge(plantharvest:=""){
  3308. global
  3309. knowledge := 0
  3310. plantharvestknowledgemult := 0
  3311. if plantharvest is number
  3312. {
  3313. knowledge := plantharvest
  3314. }
  3315. for, a, b in plantharvest["harvest"]{
  3316. if(a == "knowledge"){
  3317. knowledge += b
  3318. }
  3319. if(a == "knowledgepercent"){
  3320. plantharvestknowledgemult += b
  3321. }
  3322. }
  3323. knowledgebonus := 0
  3324. knowledgemult := 1
  3325. treasureknowledgemult := 1
  3326. for a, b in upgrades{
  3327. knowledgebonus += %a%["knowledge"] * %a%["purchased"]
  3328. if(%a%["knowledgepercent"] && %a%["purchased"]){
  3329. knowledgemult *= (%a%["knowledgepercent"] * %a%["purchased"] / 100) + 1
  3330. }
  3331. }
  3332. knowledge += knowledgebonus
  3333. knowledge += farmknowledge
  3334. knowledge *= (farmknowledgepercent / 100) + 1
  3335. knowledge *= (plantharvestknowledgemult / 100) + 1
  3336. knowledge *= knowledgemult
  3337. knowledge *= treasureknowledgemult
  3338. return round(knowledge)
  3339. }
  3340.  
  3341. calculatemovevalue(){
  3342. global
  3343. movepower := 0
  3344. movepowerbonus := 0
  3345. movepowermult := 1
  3346. treasuremovepowermult := 1 + (treasures["rings"] / 100)
  3347. knowledgemovepowermult := 1
  3348. for a, b in upgrades{
  3349. movepowerbonus += %a%["movepower"] * %a%["purchased"]
  3350. if(%a%["movepowerpercent"] && %a%["purchased"]){
  3351. movepowermult *= (%a%["movepowerpercent"] * %a%["purchased"] / 100) + 1
  3352. }
  3353. if(%a%["knowledgepower"] && %a%["purchased"]){
  3354. knowledgemovepowermult *= (%a%["knowledgepower"] * plantknowledge["knowledge"] * %a%["purchased"] / 100) + 1
  3355. }
  3356. }
  3357. movepower += movepowerbonus
  3358. movepower += farmmovepower
  3359. movepower *= (farmmovepowerpercent / 100) + 1
  3360. movepower *= treasuremovepowermult
  3361. movepower *= movepowermult
  3362. movepower *= knowledgemovepowermult
  3363. if(mousemastery["purchased"] >= 1){
  3364. movepower += calculateclickvalue()
  3365. }
  3366. return round(movepower)
  3367. }
  3368.  
  3369. calculatemovespeed(){
  3370. global
  3371. movespeed := 0
  3372. movespeedbonus := 0
  3373. movespeedmult := 1
  3374. treasuremovespeedmult := 1 + (treasures["pearls"] / 100)
  3375. for a, b in upgrades{
  3376. movespeedbonus += %a%["movespeed"] * %a%["purchased"]
  3377. if(%a%["movespeedpercent"] && %a%["purchased"]){
  3378. movespeedmult *= (%a%["movespeedpercent"] * %a%["purchased"] / 100) + 1
  3379. }
  3380. }
  3381. movespeed += movespeedbonus
  3382. movespeed += farmmovespeed
  3383. movespeed *= (farmmovespeedpercent / 100) + 1
  3384. movespeed *= treasuremovespeedmult
  3385. movespeed *= movespeedmult
  3386. return round(movespeed)
  3387. }
  3388.  
  3389. calculatemovespeedtopowervalue(movespeedtopower:=0){
  3390. global
  3391. ;super OP and rightfully unused right now
  3392. movespeedtopowerbonus := 0
  3393. movespeedtopowermult := 1
  3394. treasuremovespeedtopowermult := 1
  3395. knowledgemovespeedtopowermult := 1
  3396. for a, b in upgrades{
  3397. movespeedtopowerbonus += %a%["movespeedtopower"] * %a%["purchased"]
  3398. if(%a%["movespeedtopowerpercent"] && %a%["purchased"]){
  3399. movespeedtopowermult *= (%a%["movespeedtopowerpercent"] * %a%["purchased"] / 100) + 1
  3400. }
  3401. if(%a%["knowledgepower"] && %a%["purchased"]){
  3402. knowledgemovespeedtopowermult *= (%a%["knowledgepower"] * plantknowledge["knowledge"] * %a%["purchased"] / 100) + 1
  3403. }
  3404. }
  3405. movespeedtopower += movespeedtopowerbonus
  3406. movespeedtopower += farmmovespeedtopower
  3407. movespeedtopower *= (farmmovespeedtopowerpercent / 100) + 1
  3408. movespeedtopower *= treasuremovespeedtopowermult
  3409. movespeedtopower *= movespeedtopowermult
  3410. movespeedtopower *= knowledgemovespeedtopowermult
  3411. return round(movespeedtopower)
  3412. }
  3413.  
  3414. calculatekeyboardkeyvalue(key:=""){
  3415. global
  3416. keyboardkeypower := 0
  3417. keyboardkeypowerbonus := 0
  3418. keyboardkeypowermult := 1
  3419. treasurekeyboardkeymult := 1 + (treasures["grails"] / 100)
  3420. knowledgekeyboardkeymult := 1
  3421. for a, b in upgrades{
  3422. keyboardkeypowerbonus += %a%["keyboardkeypower"] * %a%["purchased"]
  3423. if(%a%["keyboardkeypowerpercent"] && %a%["purchased"]){
  3424. keyboardkeypowermult *= (%a%["keyboardkeypowerpercent"] * %a%["purchased"] / 100) + 1
  3425. }
  3426. if(%a%["knowledgepower"] && %a%["purchased"]){
  3427. knowledgekeyboardkeymult *= (%a%["knowledgepower"] * plantknowledge["knowledge"] * %a%["purchased"] / 100) + 1
  3428. }
  3429. }
  3430. keyboardkeypower += keyboardkeypowerbonus
  3431. keyboardkeypower += farmkeyboardkeypower
  3432. if(gamersfuel["purchased"] >= 1){
  3433. if(key = "~W up" || key = "~A up" || key = "~S up" || key = "~D up" ||){
  3434. ;turns out gaming is a good way to earn money (power) afterall
  3435. keyboardkeypower *= 2
  3436. }
  3437. }
  3438. keyboardkeypower *= (farmkeyboardkeypowerpercent / 100) + 1
  3439. keyboardkeypower *= treasurekeyboardkeymult
  3440. keyboardkeypower *= keyboardkeypowermult
  3441. keyboardkeypower *= knowledgekeyboardkeymult
  3442. return round(keyboardkeypower)
  3443. }
  3444.  
  3445. calculateshopprice(object){
  3446. price := object["price"]
  3447. if(object["priceincrease"]){
  3448. price += (object["priceincrease"] * object["purchased"])
  3449. }
  3450. if(object["priceincreasepercent"]){
  3451. price *= ((1 + (object["priceincreasepercent"] / 100)) ** object["purchased"])
  3452. }
  3453. return price
  3454. }
  3455.  
  3456. getchests(){
  3457. chestchance := 30
  3458. random, chestodds, 1, 100
  3459. if(chestchance >= chestodds){
  3460. return 1
  3461. }
  3462. else{
  3463. return 0
  3464. }
  3465. }
  3466.  
  3467. getkeys(){
  3468. keychance := 30
  3469. random, keyodds, 1, 100
  3470. if(keychance >= keyodds){
  3471. return 1
  3472. }
  3473. else{
  3474. return 0
  3475. }
  3476. }
  3477.  
  3478. savegame_onclick(){
  3479. global
  3480. critical, on
  3481. if(lastsave){
  3482. gui, backgroundpower:default
  3483. gui, hide
  3484. }
  3485. autosavewait := A_tickcount + autosavewaitvalue
  3486. iniwrite, % power, %savename%, values, power
  3487. iniwrite, % gardentiles, %savename%, values, gardentiles
  3488. iniwrite, % freezertiles, %savename%, values, freezertiles
  3489. iniwrite, % treasurekeys, %savename%, values, treasurekeys
  3490. iniwrite, % treasurechests, %savename%, values, treasurechests
  3491. iniwrite, % treasureradarbought, %savename%, values, treasureradarbought
  3492. iniwrite, % currentversion, %savename%, values, version
  3493. iniwrite, % almanacunlocked, %savename%, garden, almanacunlocked
  3494. iniwrite, % arraytostring(treasures), %savename%, treasures, treasures
  3495. for savegameindex, savegamecontent in upgrades{
  3496. for savegameindex2, savegamecontent2 in upgrades[savegameindex]{
  3497. upgrades[savegameindex][savegameindex2] := %savegameindex%[savegameindex2]
  3498. }
  3499. }
  3500. iniwrite, % arraytostring(upgrades), %savename%, upgrades, upgrades
  3501. iniwrite, % arraytostring(plantknowledge), %savename%, garden, plantknowledge
  3502. iniwrite, % arraytostring(optionchecks), %savename%, options, optionchecks
  3503. iniwrite, % arraytostring(stats), %savename%, values, stats
  3504. ;saving garden tiles can get pretty long at times if there's many unlocked tiles
  3505. loop, % gardentiles{
  3506. SaveX := mod(A_index, 10)
  3507. SaveY := ceil(A_index / 10)
  3508. if(SaveX == 0){
  3509. SaveX = 10
  3510. }
  3511. savevalue := {plant:tile%SaveX%A%SaveY%["plant"], permanent:tile%SaveX%A%SaveY%["permanent"]}
  3512. savevalue := arraytostring(savevalue)
  3513. IniWrite, % savevalue, %savename%, garden, tile%SaveX%A%SaveY%
  3514. }
  3515. loop, % freezertiles{
  3516. SaveX := mod(A_index, 10)
  3517. SaveY := ceil(A_index / 10)
  3518. if(SaveX == 0){
  3519. SaveX = 10
  3520. }
  3521. savevalue := {plant:freezertile%SaveX%A%SaveY%["plant"]}
  3522. savevalue := arraytostring(savevalue)
  3523. IniWrite, % savevalue, %savename%, garden, freezertile%SaveX%A%SaveY%
  3524. }
  3525. addlog("saved the game", "general")
  3526. critical, off
  3527. }
  3528.  
  3529. exit_onclick(){
  3530. global
  3531. lastsave := 1
  3532. exitapp
  3533. }
  3534.  
  3535. BackgroundpowerGuiClose:
  3536. lastsave := 1
  3537. exitapp
  3538. return
  3539.  
  3540. ~F11::
  3541. if(F11reset == "true"){
  3542. savegame_onclick()
  3543. Reload
  3544. }
  3545. return
  3546.  
  3547. ;changelog: v1.30
  3548. ;Changed the layout of the entire game. All menus are now combined. Also changed the visuals of everything. I hope it looks good
  3549. ;added autoclick prevention.... Don't worry however because its an option you can turn on to disable power gain from clicking when clicking really fast.
  3550. ;The garden and the shop now show their info in a tooltip instead of in the menu itself
  3551. ;Garden plant spawn rate reduced
  3552. ;Garden plants now spawn with their own background and text color.
  3553. ;added protect feature to the garden to prevent accidentally harvesting plants
  3554. ;Added a new feature. Keyboard keys. Its the simpler version of hidden keys that works on any keyboard key and once every second
  3555. ;Talking about hidden keys. The feature has been renamed to golden keys
  3556. ;Added a new feature. Almanac. This replaces the old garden knowledge system and gives more info about plants.
  3557. ;due to the old knowledge system being removed, everyone gains 2 knowledge points for every revealed recipe they had
  3558. ;added 4 new plants to help knowledge harvesting including a rather powerful one.
  3559. ;added a couple other plants as well and changed many plant names, descriptions, stats etc. Early obtainable plants are also a bit more powerful and every plant is harvested for more power
  3560. ;Reworked the radar. Instead of 2 dots it now shows 1 dot which changes shapes when you get near a hidden treasure
  3561. ;saying the word garden one more time (I will start working on other features soon.)
  3562. ;Added some new upgrades
  3563.  
  3564.  
  3565. ;here are all future ideas listed for the game that I hope to implement some day.
  3566.  
  3567. ;Ascension system with a new resource: Mana. Mana is gained from varying sources like upgrades or garden plants. (garden plants need to be alive and not harvest to get their mana)
  3568. ;Ascension destroys most things and ascends your character into a deity. Allowing you to spend your mana on a skill tree to buff further progression.
  3569. ;Future playthrough players would be able to build a statue to your previous character as a deity for example which would yield various buffs
  3570.  
  3571. ;Bloobs, Floobs are pets that you can breed and train (sorta). Bloobs have various benefits that can be utilized when they are equipped. 1 can be equipped by default but some ways unlock more slots.
  3572. ;Bloobs can breed when put in a queen and king slot (they dont buff your stats in there). Over time they create new bloops with stats based on the current bloob with around an equal chance of increasing or decreasing the stats
  3573. ;Bloobs have a stat cap which they will quickly reach. Once all stats are maxed, a bloob can be ascended and be reset back but their max stat caps will be increased
  3574.  
  3575. ;I have started working on this feature V
  3576. ;A dungeon crawler feature controlled by the arrow/wasd keys. A character moves through a dungeon based on your input and encounters treasures, blockades and enemies.
  3577. ;The player enters stairs automatically upon entering and the stairs are always near a wall. Enemies trap you when walking on them and pressing a arroy/wasd key starts attacking it.
  3578. ;I'm not sure if I want to introduce a health system or just want the character to be invurnerable with progress limited by time.
  3579. ;Deeper floors give better rewards of course
  3580. ;The character gets various buffs from other features, like bloobs or plants.
  3581. ;The theme of the dungeon is reptiles. Almost every enemy is some sort of lizard or snake. This doesn't mean there wont be a wide variety of enemies.
  3582. ;Locked doors which are enemies that have large amounts of health but are insta-killed when a golden key is collected during combat.
  3583. ;hidden doors which are the same thing but finding a hidden treasure kills them instead
  3584.  
  3585. ;Maybe a safe cracking minigame played with the number keys. Eventually pressing enough buttons will open the safe and grant rewards.
  3586.  
  3587. ;Garden rework (again). I'm not entirely sure what I want the garden to be. But right now my mind goes something like this.
  3588. ;Fully remove random plant spawns. Seeds for plants can be bought and mystery seeds can be planted to attempt breeding pairs.
  3589. ;Special enchants on tile allow random plant spawns
  3590. ;Plant managing. Plants that move other plants around or auto-harvest them (this does not break the no-idle rule as plants only appear/grow/move/harvest when the mouse moves)
  3591. ;A growth system. Plants are less efficient when they are not fully grown and many powerful effects only work when the plant is grown 100% (note: making an amalgam plant combines the growth times for both plants so it may take long to grow at times)
  3592. ;extra reasons to use the knowledge system. More knowledge can be invested in completed plants for increased 'mana' gain
  3593. ;Rework the breeding system. Instead of requiring plants nearby. Plants require certain stats to be met. For example one plant could need the 8 plants around it to have a combined total of 10 clickpower before it grows there.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!