The You Game!

[Master]

< wonders if Humch'll remain as Skeletor.

[TFDS]

< isn't hungry now

[LoveMetal]

< is a magician.

[TFDS]

< is a littel thirsyt

[Serza5]

< wonders if dinner is being made

[LoveMetal]

< hates people that simply post: '< is posting.'

[TFDS]

< didn't grammar

[Master]

< hasn't drank much water today, < doesn't feel dehydrated though.

[Imco]

< just heard his father return from the store

[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

[Serza5]

< hasn't drunk that much either

[TFDS]

< isn't a magician

[LoveMetal]

< hopes < will rank up before the end of the RD.

[TFDS]

< used to be an electoon

[Serza5]

< will never rank up ever

[LoveMetal]

< hopes < will rank up before the end of the RD.

[Imco]

< will open his bag of peanuts soon

[TFDS]

< thinks the Master Kaag ranks suckass

[LoveMetal]

< thinks that <'s counter grows too slowly!

[Serza5]

< thinks < needs to revise French