#include <Array.au3>
$text = StringSplit( "All of the failures help to fuel success in the bloody and visceral weather game of chess", "", 1 )
$line = StringSplit( FileRead( "links.txt"), @CRLF, 3 )
_ArrayShuffle( $line )
$out = ""
$c = 0
For $i=1 To $text[0]
    $inc = ""
    If ($text[$i]=" ") Then
        $inc = " "
    ElseIf ($c <= UBound($line)-1) Then
        $inc = "[url=" & $line[$c] & "]" & $text[$i] & "[/url]"
        $c = $c + 1
    Else
        $inc = $text[$i]
    EndIf
    $out = $out & $inc
Next
ClipPut($out)