Hey Peeps!
I good awesome, rockin’ friend of mine told me to post this on here so he can help me out
Help here the Script:
property mouseToolsPath : missing value
(The 4 lines below this can be replaced with the text on your clipboard when you set SetxCyC to true.)
set mouseToolsPath to “/Scripts/MouseTools”
set SetxCyC to false
if SetxCyC is true then
xCyC()
else
MSGMENU()
end if
on xCyC()
display dialog “This will clear your clipboard info.”
display dialog “You will have 5 seconds to place your mouse over the Webosaurs chat box. Hold it there till you hear 2 beeps. When you hear the beeps the coordinates have been set to your clipboard. Simply paste them over the current coordinades.”
delay 5
set location to paragraphs of mouseTools(“”, “”, “-location”)
set locX to item 1 of location
set locY to item 2 of location
set xCyClip to “-----
property xC : "” & locX & “"
property yC : "” & locY & “"
-----”
set the clipboard to (xCyClip as text)
beep
delay 0.25
beep
end xCyC
on MSGMENU()
set msg1 to {¬
“Welcome to Webosaurs!”, ¬
“I am a Protectosaur and I am here to help!”}
set msg2 to {¬
“Are you a dino in need of armor?”, ¬
“Check out Ole Smithys Armory”, ¬
“on Croc Peninsula!”, ¬
“Ole Smithy even gives a free set of”, ¬
“leather armor to new dinos!”}
set msg3 to {¬
“Protectosaurs are here to help”, ¬
“If ever there is an issue”, ¬
“please find a Modosaur or Protectosaur and let them know”, ¬
“what is going on!”}
set msg4 to {¬
“Is you cave looking a little dull?”, ¬
“Check out any of the Webosaur stores”, ¬
“to buy items to spruce up your cave!”}
set msg5 to {¬
“Unlock the fart badges with FARTS!!!”, ¬
“Twenty Five farts for the first badge”, ¬
“and Fifty farts for the second badge!”, ¬
“PHEW!!! WHO FARTED?”}
set msg6 to {¬
“Stuck using Easy Chat?”, ¬
“Be sure to have your parents activate your account”, ¬
“by cliking the link we emailed to them!”}
set msg7 to {¬
“Is you dino looking a little dull?”, ¬
“Check out Destructos Outfitters”, ¬
“in Dino Dunes! Sorry clothing is Member Only!”}
set msg7 to {¬
“Dino actions are SOOOO Cool!”, ¬
“Get some actions in Tao Temple”, ¬
“Located in Sub Alpine Forest!”}
set msg8 to {¬
“Did you know your dino can do magic?”, ¬
“Its true! Check out the Fossil Magic Store”, ¬
“Located in Sanoran Sands!”}
set msg9 to {¬
“Jungle Beach is hidden!”, ¬
“You have to unlock it by finding the anchor”, ¬
“and then find the boat to take you there!”, ¬
“You can find the anchor in Soggy Bottom Swamp”, ¬
“Look through the waterfall in Prairie Pool”, ¬
“to find the boat…”}
set msg10 to {¬
“Looking for the letters to unlock the Understory Layer?”, ¬
“Listen up because I am about to tell you everywhere”, ¬
“you need to look”, ¬
“In Croc Peninsula there is an E in a tree!”, ¬
“In Bucklands Peak you can find a P in a shadow!”, ¬
“Find the R in Ultrasaurus Tiki Lounge!”, ¬
“Secret Temple hides the letter T!”, ¬
“Find an O in the Rolling Hills Chamber!”, ¬
“There is a T in Jurassic Fort!”, ¬
“And the final letter E can be found in Camposaurus Canvas Tent!”}
set MsgLib to {msg1, msg2, msg3, msg4, msg5, msg6, msg7, msg8, msg9, msg10}
repeat 20 times
delay 60
repeat 3 times
repeat 5 times
beep
delay 0.25
end repeat
delay 10
end repeat
repeat 3 times
beep
delay 0.25
end repeat
set location to paragraphs of mouseTools("", "", "-location")
set locX to item 1 of location
set locY to item 2 of location
set MsgSend to some item of MsgLib
tell application "Firefox"
activate
delay 0.25
tell application "System Events"
my mouseTools(xC, yC, "-leftClick")
delay 0.25
repeat with t in MsgSend
set theText to t as text
keystroke theText
delay 0.25
keystroke return
delay 2
end repeat
end tell
end tell
my mouseTools(locX, locY, "")
end repeat
end MSGMENU
on mouseTools(x, y, switch)
if {x, y} is {“”, “”} then
return do shell script (quoted form of (mouseToolsPath) & " " & switch)
else
do shell script (quoted form of (mouseToolsPath) & " -x " & x & " -y " & y & " " & switch)
end if
end mouseTools -----
property xC : “624”
property yC : “744”
And when i tried to run it, it said Variable xC is not Defined
Thanks,
Doggy