The You Game!

[Imco]

< likes chocolate peanuts

[Serza5]

< thinks we're getting closer to the goal

[TFDS]

< needs a few more posts

[Imco]

< is so close to 2900!

[LoveMetal]

< doesn't remember <'s last year record.

[Imco]

< will definitely reach the 3K mark!

[TFDS]

< hopes < will remain in Top 10

[Imco]

< thinks Garnet is a strange name

[LoveMetal]

< 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

[Reese Riverson]

< wonders how well serza's holding up

[Imco]

<'s record was 1008 last year

[Serza5]

< thinks Garnet is a great name

[Imco]

<'s record is more this year

[LoveMetal]

< is scared by this thread

[TFDS]

< sometimes ships, sometimes not

[Imco]

<s peanuts are upsetting <s stomach

[LoveMetal]

< is not posting a lot on English boards.

[Serza5]

<'s record is more than anyone elses ever

[TFDS]

< wants some peanuts

[Imco]

< thinks hotels are overrated