The You Game!

[TFDS]

< likes fruit in general

[LoveMetal]

< says : This isn't a post.

[Master]

That pretty much summed up <'s thoughts on it.

[TFDS]

< is okay with Salad Fingers

[Serza5]

<'s next doors kid is screaming again

[LoveMetal]

<'s posts don't have any sens.

[Imco]

<s neck hurts

[Reese Riverson]

< 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

< agrees with Serza

[TFDS]

Nobody's screaming near<

[Imco]

< thinks that as well

[LoveMetal]

<'s got a headache.

[TFDS]

< checked LoveMetal's script

[Serza5]

< wonders what a Serza AI shit post code would look like

[LoveMetal]

<'s posts don't have any sens.

[TFDS]

< wants to see

[Imco]

<s posts are making less sense either

[Serza5]

< thinks loveys is almost spot on to that

[TFDS]

< can say the same

[Imco]

< is nearing a new rank!

[LoveMetal]

<'s posts don't have any sens.