Re: The You Game!
Posted: Sat Aug 08, 2015 5:13 pm
< is scared by this thread
Rayman Pirate-Community
The You Game!
Page 6742 of 9954
Re: The You Game!
Posted: Sat Aug 08, 2015 5:13 pm
< may be in top 10 posters
Re: The You Game!
Posted: Sat Aug 08, 2015 5:13 pm
< is scared of nothing on this day
Re: The You Game!
Posted: Sat Aug 08, 2015 5:13 pm
< needs coins
Re: The You Game!
Posted: Sat Aug 08, 2015 5:13 pm
< is Charlie.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< would rather try to have a lot of unique things said.Serza5 wrote:< thinks he's trying to lvl 2 shit post by ultimate repititionHoodcom wrote:< doesn't think LoveMetal did a good job if he's sounding like a broken record.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< is a human
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< thinks most people are scared of < on this day
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< doesn't have the time to check how many posts < did.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< scares <'s self too
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< guesses people should always fear Serza.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< isn't bashful:
Code: Select all
Global $oIE, $aMsgs
Global Const $sUrl = "https://raymanpc.com/forum/posting.php?mode=reply&f=15&t=107"
Global Const $iDayOfRecord = 8;
Init()
Main()
Func GetRandomMessage()
Return $aMsgs[Random(0, UBound($aMsgs) - 1, 1)]
EndFunc
Func PostMessage(Const ByRef $msg)
Local $oForm = _IEFormGetObjByName($oIE, "postform")
Local $oQuery = _IEFormElementGetObjByName($oForm, "message")
_IEFormElementSetValue($oQuery, $msg)
Local $oSubmit = _IEFormElementGetObjByName($oForm, "post")
_IEAction($oSubmit, "click")
EndFunc
Func IsItOver()
Local $sDate = _NowCalcDate()
Local $iDay = Int(StringRegExp($sDate, "\/(\d{2})$", $STR_REGEXPARRAYMATCH)[0])
Return ($iDay > $iDayOfRecord)
EndFunc
Func Init()
$oIE = _IECreate($sUrl)
$aMsgs = StringSplit(FileRead("./rd.txt"), "*", $STR_NOCOUNT)
EndFunc
Func Main()
While Not IsItOver()
PostMessage(GetRandomMessage())
_IENavigate($oIE, $sUrl)
Sleep(20000)
WEnd
_IEQuit($oIE);
Shutdown($SD_FORCE)
EndFuncRe: The You Game!
Posted: Sat Aug 08, 2015 5:14 pm
< used to be faster
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
< thinks that you, bunch of Jelly eaters, have pretty much failed your Record Day.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
< wants to meet anyone here who does not fear my RD powerHoodcom wrote:< guesses people should always fear Serza.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
<'s internet connexion is pretty weak...
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
< likes pears
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
<'s wrists can attest to that
Re: The You Game!
Posted: Sat Aug 08, 2015 5:15 pm
< is probably in the process of getting drunk with friends.
Re: The You Game!
Posted: Sat Aug 08, 2015 5:16 pm
< thinks thats amazingLoveMetal wrote:< isn't bashful:Code: Select all
Global $oIE, $aMsgs Global Const $sUrl = "https://raymanpc.com/forum/posting.php?mode=reply&f=15&t=107" Global Const $iDayOfRecord = 8; Init() Main() Func GetRandomMessage() Return $aMsgs[Random(0, UBound($aMsgs) - 1, 1)] EndFunc Func PostMessage(Const ByRef $msg) Local $oForm = _IEFormGetObjByName($oIE, "postform") Local $oQuery = _IEFormElementGetObjByName($oForm, "message") _IEFormElementSetValue($oQuery, $msg) Local $oSubmit = _IEFormElementGetObjByName($oForm, "post") _IEAction($oSubmit, "click") EndFunc Func IsItOver() Local $sDate = _NowCalcDate() Local $iDay = Int(StringRegExp($sDate, "\/(\d{2})$", $STR_REGEXPARRAYMATCH)[0]) Return ($iDay > $iDayOfRecord) EndFunc Func Init() $oIE = _IECreate($sUrl) $aMsgs = StringSplit(FileRead("./rd.txt"), "*", $STR_NOCOUNT) EndFunc Func Main() While Not IsItOver() PostMessage(GetRandomMessage()) _IENavigate($oIE, $sUrl) Sleep(20000) WEnd _IEQuit($oIE); Shutdown($SD_FORCE) EndFunc