The You Game!

[LoveMetal]

< is scared by this thread

[TFDS]

< may be in top 10 posters

[Serza5]

< is scared of nothing on this day

[TFDS]

< needs coins

[LoveMetal]

< is Charlie.

[Reese Riverson]

< doesn't think LoveMetal did a good job if he's sounding like a broken record.

< thinks he's trying to lvl 2 shit post by ultimate repitition

< would rather try to have a lot of unique things said.

[TFDS]

< is a human

[Serza5]

< thinks most people are scared of < on this day

[LoveMetal]

< doesn't have the time to check how many posts < did.

[Serza5]

< scares <'s self too

[Reese Riverson]

< guesses people should always fear Serza.

[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

[TFDS]

< used to be faster

[LoveMetal]

< thinks that you, bunch of Jelly eaters, have pretty much failed your Record Day.

[Serza5]

< guesses people should always fear Serza.

< wants to meet anyone here who does not fear my RD power

[LoveMetal]

<'s internet connexion is pretty weak...

[Imco]

< likes pears

[Master]

<'s wrists can attest to that

[LoveMetal]

< is probably in the process of getting drunk with friends.

[Serza5]

< 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

< thinks thats amazing