###############################################################################
# Display.pl                                                                  #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.3                                        #
# Released:       December 2001; Updated April 6, 2003                        #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
# Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com            #
###############################################################################

$displayplver = "1 Gold - SP 1.3";

sub Display {
        my $viewnum = $INFO{'num'};
        if( $viewnum =~ /\D/ ) { &fatal_error($txt{'337'}); }
        if( $currentboard eq '' ) { &fatal_error($txt{'1'}); }
        $maxmessagedisplay ||= 10;
        my($favor, $isfavor);
        my($buffer,$views,$lastposter,$moderators,$counter,$counterwords,$pageindex,$msubthread,$mnum,$mstate,$mdate,$msub,$mname,$memail,$mreplies,$musername,$micon,$noposting,$threadclass,$notify,$max,$start,$bgcolornum,$windowbg,$mattach,$mip,$mlm,$mlmb,$lastmodified,$postinfo,$star,$sendm,$topicdate);
        my(@userprofile,@messages,@bgcolors);

        # Determine what category we are in.
        fopen(FILE, "$boardsdir/$currentboard.ctb") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.ctb");
        $curcat = <FILE>;
        fclose(FILE);
        #$curcat = $cat;
        fopen(FILE, "$boardsdir/$curcat.cat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $cat.cat");
        $cat = <FILE>;
        fclose(FILE);

        # Load the membergroups list.
        fopen(FILE, "$vardir/membergroups.txt") || &fatal_error("100 $txt{'106'}: $txt{'23'} membergroups.txt");
        @membergroups = <FILE>;
        fclose(FILE);

        # Mark current thread as read.
        ($mnum,$tmpa,$tmpa,$tmpa,$mdate) = split(/\|/,$yyThreadLine);
        &dumplog($mnum,$date);

        # Add 1 to the number of views of this thread.
        if(fopen(FILE, "$datadir/$viewnum.data")) {
                $tmpa = <FILE>;
                @other_stuff = <FILE>;
                fclose(FILE);
                chomp $tmpa;
        }
        elsif( -e "$datadir/$viewnum.data" ) { &fatal_error("102 $txt{'106'}: $txt{'23'} $viewnum.data"); }
        else { $tmpa = '0'; }
        ($tmpa, $tmpb) = split( /\|/, $tmpa );
        $tmpa++;
        fopen(FILE, "+>$datadir/$viewnum.data") || &fatal_error("103 $txt{'106'}: $txt{'23'} $viewnum.data");
        print FILE qq~$tmpa|$tmpb~;
        print FILE qq~\n~;
        print FILE @other_stuff;
        fclose(FILE);
        $views = $tmpa - 1;

        # Check to make sure this thread isn't locked.
        ($mnum,$msubthread,$mname,$memail,$mdate,$mreplies,$musername,$micon,$mstate) = split( /\|/, $yyThreadLine );
        $noposting = $viewnum eq $mnum && $mstate == 1 ? 1 : 0;

        # Look for a poll file for this thread.
        if (-e "$datadir/$viewnum.poll") { $has_poll = 1; } else { $has_poll = 0; }

        # Get the class of this thread, based on lock status and number of replies.
        $replybutton = qq~<a href="$cgi;action=post;num=$viewnum;title=$txt{'116'}">$img{'reply'}</a>~;
        $pollbutton = qq~$menusep<a href="$cgi;action=post;num=$viewnum;title=$polltxt{'2a'}">$img{'addpoll'}</a>~;
        $threadclass = 'thread';
        if( $mstate == 1 ) {
                $threadclass = 'locked';
                $replybutton = "";
                $pollbutton = "";
        }
        if ($has_poll || $useraddpoll == 0) { $pollbutton = ""; }
        elsif( $mreplies > 24 ) { $threadclass = 'veryhotthread'; }
        elsif( $mreplies > 14 ) { $threadclass = 'hotthread'; }
        elsif( $mstate == 0 ) { $threadclass = 'thread'; }
        fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
        @stickys = <FILE>;
        fclose(FILE);
        foreach $curnum (@stickys) {
                if ($mnum == $curnum) {
                        if($threadclass eq 'locked') { $threadclass = 'stickylock'; }
                        else { $threadclass = 'sticky'; }
                }
        }

        &LoadCensorList;        # Load Censor List

        # Build a list of this board's moderators.
        if( scalar keys %moderators > 0 ) {
                if( scalar keys %moderators == 1 ) { $showmods = qq~($txt{'298'}: ~; }
                else { $showmods = qq~($txt{'299'}: ~; }
                while( $_ = each(%moderators) ) {
                        &FormatUserName($_);
                        $showmods .= qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$_}" class="nav">$moderators{$_}</a>, ~;
                }
                $showmods =~ s/, \Z/)/;
        }

        if($enable_notification) {
                my $startnum = $start || '0';
                $notify = qq~$menusep<a href="$cgi;action=notify;thread=$viewnum;start=$startnum">$img{'notify'}</a>~;
        }
        $isfavor = '';
        if($enable_favorites && $username ne 'Guest') {
                my $startnum = $start || '0';
                $favor = qq~$menusep<a href="$cgi;action=favor2;thread=$viewnum;start=$startnum" onclick="return confirm('$fav{'3'}')">$img{'favora'}</a>~;
                if(-e "$datadir/$viewnum.fav") {
                        fopen(FILE, "$datadir/$viewnum.fav");
                                @favnames = <FILE>;
                        fclose(FILE);
                        foreach $chfav (@favnames) {
                                chomp $chfav;
                                if($username eq $chfav) {
                                        $favor = qq~$menusep<a href="$cgi;action=favor3;thread=$viewnum;start=$startnum" onclick="return confirm('$fav{'2'}')">$img{'favorr'}</a>~;
                                        $isfavor = qq~<IMG SRC="$imagesdir/favorite2.gif" BORDER=0 alt="$fav{'8'}">&nbsp;~;
                                        last;
                                }
                        }
                }
                $notify = $favor .= $notify;
        }

        &jumpto;        # create the jumpto list

        # Build the page links list.
        $postdisplaynum = 3;        # max number of pages to display
        $max = $mreplies + 1;
        $start = $INFO{'start'} || 0;
        $start = $start > $mreplies ? $mreplies : $start;
        $start = ( int( $start / $maxmessagedisplay ) ) * $maxmessagedisplay;
        $tmpa = 1;
        $tmpx = int( $max / $maxmessagedisplay );
        if ($start >= (($postdisplaynum-1) * $maxmessagedisplay)) { $startpage = $start - (($postdisplaynum-1) * $maxmessagedisplay); $tmpa = int( $startpage / $maxmessagedisplay ) + 1; }
        if ($max >= $start + ($postdisplaynum * $maxmessagedisplay)) { $endpage = $start + ($postdisplaynum * $maxmessagedisplay); } else { $endpage = $max }
        if ($startpage > 0) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;...&nbsp;~; }
        if ($startpage == $maxmessagedisplay) { $pageindex = qq~<a href="$cgi;action=display;num=$viewnum;start=0">1</a>&nbsp;~;}
        for( $counter = $startpage; $counter < $endpage; $counter += $maxmessagedisplay ) {
                $pageindex .= $start == $counter ? qq~<b>$tmpa</b>&nbsp;~ : qq~<a href="$cgi;action=display;num=$viewnum;start=$counter">$tmpa</a>&nbsp;~;
                $tmpa++;
        }
        $tmpx = $max - $maxmessagedisplay;
        $outerpn = int($tmpx / $maxmessagedisplay) + 0;
        $lastpn = int($mreplies / $maxmessagedisplay) + 1;
        $lastptn = ($lastpn - 1) * $maxmessagedisplay;
        if ($endpage < $max - ($maxmessagedisplay) ) {$pageindexadd = qq~&nbsp;...&nbsp;~;}
        if ($endpage != $max) {$pageindexadd .= qq~&nbsp;<a href="$cgi;action=display;num=$viewnum;start=$lastptn">$lastpn</a>~;}
        $pageindex .= $pageindexadd;

        foreach (@censored) {
                ($tmpa,$tmpb) = @{$_};
                $msubthread =~ s~\Q$tmpa\E~$tmpb~gi;
        }
        if ($boardlinks == 1) {        $blink =~ s~\°~\@~ig; $yymain .= "$blink"; }
        $curthreadurl = $curposlinks ? qq~<a href="$cgi;action=display;num=$viewnum" class="nav">$msubthread</a>~ : $msubthread;
        # Begin addon for boardlinksSP1
        $blink = '';
        $i=0;
        $ii=0;
        while($LinkBoard[$i]) {
                if ($LinkBoard[$i] eq $currentboard){
                        if ($ii == 0){
                                if ( $LinkURL[$i] =~ m/\°/ ) {
                                        $blink .= qq~<a href="mailto:$LinkURL[$i]">$LinkName[$i]</a>~;
                                } else {
                                        $blink .= qq~<a href="$LinkURL[$i]" target=_blank>$LinkName[$i]</a>~;
                                }
                                $ii=1;
                        } else {
                                if ( $LinkURL[$i] =~ m/\°/ ) {
                                        $blink .= qq~$blinkstxt{'13'}<a href="mailto:$LinkURL[$i]">$LinkName[$i]</a>~;
                                } else {
                                        $blink .= qq~$blinkstxt{'13'}<a href="$LinkURL[$i]" target=_blank>$LinkName[$i]</a>~;
                                }
                        }
                }
                $i++;
        }
        if ($blink ne ''){
                $blink = qq~<table width="100%" cellpadding=3 cellspacing=0><TD align="center" class="catbg" bgcolor="$color{'titletext'}"><font size=2>$blinkstxt{'12'}$boardname</font><BR>$blink</TD></table><BR><BR>~;
        }
        if ($boardlinks != 1) {        $blink =~ s~\°~\@~ig; $yymain .= "$blink"; }
# End addon for boardlinksSP1
        # Create next/prev links
        fopen(LISTS, "$boardsdir/$INFO{'board'}.txt");
        @boardtopics = <LISTS>;
        seek LISTS, 0, 0;
        my $found;
        my $name = $INFO{'num'};
        my $bcount = 0;
        $CurrentPosition = -1;
        while($ThreadNum = <LISTS>) {
                ++$CurrentPosition;
                $boardtopics[$bcount] = $ThreadNum;
                $bcount++;
                if ($ThreadNum =~ m/\A$name/o) { $found = 1; last; }
        }
        fclose(LISTS);
        $previous = $boardtopics[$CurrentPosition-1];
        $next = $boardtopics[$CurrentPosition+1];
        @prevthread = split(/\|/, $previous);
        $goprevious = $prevthread[0];
        @nextthread = split(/\|/, $next);
        $gonext = $nextthread[0];
        @getlastthread = @boardtopics;
        $lastthread = pop(@getlastthread);
        @lasttopic = split(/\|/, $lastthread);
        $endthread2 = $lasttopic[0];
        if($found) {
                $prevtopic = "$cgi;action=display;num=$goprevious";
                $nexttopic = "$cgi;action=display;num=$gonext";
                $endthread = "$cgi;action=display;num=$endthread2";
        }
        if( $endthread eq $prevtopic && $gonext eq "") { $nav = qq~ $txt{'766'} | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  $txt{'766'} &#187;~; }
        if($endthread eq $prevtopic && $gonext ne "") { $nav = qq~ $txt{'766'} | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  <a href="$nexttopic">$txt{'767'}</a> &#187;~; }
        if ( $endthread ne $prevtopic && $gonext eq "") { $nav = qq~ <a href="$prevtopic">$txt{'768'}</a> | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> |  $txt{'766'} &#187;~; }
        if ($endthread ne $prevtopic && $gonext ne "") { $nav = qq~ <a href="$prevtopic">$txt{'768'}</a> | <a href="$cgi;action=post;title=$txt{'464'}">$txt{'767a'}</a> | <a href="$nexttopic">$txt{'767'}</a> &#187;~;         }
        if(!-e ("$vardir/$viewnum.rate") && $autoapplyrate{$currentboard} == 1) {
                if(!-e ("$vardir/rateslist.txt")) {
                        fopen(FILE, ">$vardir/rateslist.txt", 1);
                        print FILE "|1|1|1\n";
                        fclose(FILE);
                }

                fopen(FILE, "$vardir/rateslist.txt");
                @ratelist = <FILE>;
                $listnum = @ratelist;
                fclose(FILE);

                $namestart = "";
                $namestart .= qq($msubthread|$date);
                $ratelink = qq~$scripturl?board=$currentboard;action=display;num=$viewnum~;

                fopen( FILE, ">$vardir/$viewnum.rate", 1);
                print FILE "$boardname\n";
                print FILE "$namestart\n";
                print FILE "\n";
                print FILE "0.00|0\n";
                print FILE "$ratelink\n";
                fclose(FILE);

                fopen(FILE, ">$vardir/rateslist.txt", 1);
                foreach $currate (@ratelist) {
                        chomp $currate;
                        print FILE "$currate\n";
                }
                print FILE "$viewnum|$username\n";
                fclose(FILE);
        }
        if($autoapplyrate{$currentboard} != 1) {
                if(-e ("$vardir/$viewnum.rate")) {
                        $admin_rate = qq~<a href="$cgi;action=remrate;thread=$viewnum;yabbcat=$currentboard">$img{'rem_rating'}</a>~;
                }
                else {
                        $admin_rate = qq~<a href="$cgi;action=addrate;thread=$viewnum;yabbcat=$currentboard;ratecat=$boardname;ratename=$msubthread">$img{'add_rating'}</a>~;
                }
        }
        if($settings[7] eq 'Administrator') {
$sadminf = qq(<b>$img{'admin_func'}</b> &nbsp;<a href="$cgi;action=movethread;thread=$viewnum">$img{'admin_move'}</a><a href="$cgi;action=removethread;thread=$viewnum" onclick="return confirm('$txt{'162'}')">$img{'admin_rem'}</a>
<a href="$cgi;action=lock;thread=$viewnum">$img{'admin_lock'}</a><a href="$cgi;action=sticky;thread=$viewnum">$img{'admin_sticky'}</a>$menusep$admin_dice);
}
        if(exists $moderators{$username} && $settings[7] ne 'Administrator' || $settings[7] eq 'Global Moderator') {
$sadminf = qq(<b>$img{'moderator_func'}</b> &nbsp;<a href="$cgi;action=movethread;thread=$viewnum">$img{'admin_move'}</a><a href="$cgi;action=removethread;thread=$viewnum" onclick="return confirm('$txt{'162'}')">$img{'admin_rem'}</a>
<a href="$cgi;action=lock;thread=$viewnum">$img{'admin_lock'}</a><a href="$cgi;action=sticky;thread=$viewnum">$img{'admin_sticky'}</a>$menusep$admin_dice);
}
        if(-e ("$vardir/$viewnum.die")) {
                fopen(FILE, "$vardir/$viewnum.die");
                @dicesettings = <FILE>;
                fclose(FILE);
                chomp(@dicesettings);
                $admin_dice = qq~&nbsp;<a href="$cgi;action=dicerem;dsetup=$viewnum">$img{'rem_dice'}</a>~;
        }
        else {
                $admin_dice = qq~&nbsp;<a href="$cgi;action=dicesetup;dsetup=$viewnum;dback=dadd">$img{'add_dice'}</a>~;
        }
        $yymain .= qq~
<script language="JavaScript1.2" src="$ubbcjspath" type="text/javascript"></script>
<table width="100%" cellpadding="0" cellspacing="0">
~;
             if( $enable_favorites && $enable_favdrop && $username ne 'Guest' ) { require "$sourcedir/Favor.pl"; &favordrop;
        $yymain .= qq~
  <tr>
    <td align="right" valign="bottom" colspan=3>$favselect</td></form>
  </tr>~;
}
        $yymain .= qq~
  <tr>
    <td valign=bottom colspan="2"><a name="top"><font size="2" class="nav"><B>
    <img src="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl" class="nav">$mbname</a><br>
    <img src="$imagesdir/tline.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$scripturl#$curcat" class="nav">$cat</a><br>
    <img src="$imagesdir/tline2.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    <a href="$cgi" class="nav">$boardname</a> </b><font size="1">$showmods</font><b><br>
    <img SRC="$imagesdir/tline3.gif" border="0" alt=""><IMG SRC="$imagesdir/open.gif" border="0" alt="">&nbsp;&nbsp;
    $curthreadurl</b></font></td>
    <td valign="bottom" align="right"><font size="1">$nav</font></td>
  </tr>
</table>
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td><a name="top"></a><font size="2"><b>$txt{'139'}:</b> $pageindex</font></td>
            <td class="catbg" align=right><font size=2>
            ~;
        if(-e ("$vardir/$viewnum.die")) {
                if($dicesettings[7] eq "1" || $dicesettings[7] eq "2") {
                        $yymain .= qq~<a href="$cgi;action=dicestart;dsetup=$viewnum">$img{'dice'}</a>$menusep~;
                }
                if($dicesettings[7] eq "1" || $dicesettings[7] eq "3") {
                        $yymain .= qq~<a href="$cgi;action=diceroll;num=$viewnum">$img{'add_roll'}</a>$menusep~;
                }
        }
        $yymain .= qq~
        ~;
        if(-e ("$vardir/$viewnum.die")) {
                if($dicesettings[7] eq "1" || $dicesettings[7] eq "2") {
                        $yymain .= qq~<a href="$cgi;action=dicestart;dsetup=$viewnum">$img{'dice'}</a>$menusep~;
                }
                if($dicesettings[7] eq "1" || $dicesettings[7] eq "3") {
                        $yymain .= qq~<a href="$cgi;action=diceroll;num=$viewnum">$img{'add_roll'}</a>$menusep~;
                }
        }
        $yymain .= qq~
            ~;
if( $currentboard ne 'interactivestory' ) {
        $yymain .= qq~
            $replybutton$pollbutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
        ~;
        }
else {
        $yymain .= qq~
            $replybutton$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
        ~;
        }
$yymain .= qq~
            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
        if ($has_poll) { require "$sourcedir/Poll.pl"; &display_poll($viewnum); }
        $yymain .= qq~
~;
        if(-e ("$vardir/$viewnum.rate") && $start == 0) {
                 my ($rateicon);
                if($mstate == 0) { $rateicon = 'rate' }
                elsif($mstate == 1) { $rateicon = 'ratelock' }

                fopen(FILE, "$vardir/rateslist.txt");
                @ratelist = <FILE>;
                fclose(FILE);

                fopen(FILE, ">$vardir/rateslist.txt", 1);
                foreach $currate (@ratelist) {
                        chomp $currate;
                        ($thiscurrate, $thiscurusr, $thiscurstate) = split(/\|/, $currate);
                        if($thiscurrate ne $viewnum) { print FILE "$currate\n"; }
                        else {  print FILE "$thiscurrate|$thiscurusr|$mstate\n"; }
                }
                fclose(FILE);
                @rateinfo = ();
                fopen(RATEFILEREAD,"$vardir/$viewnum.rate");
                @rateinfo = <RATEFILEREAD>;
                $lines = @rateinfo;
                fclose(RATEFILEREAD);
                chomp @rateinfo;
                ($thisname, $dummy) = split(/\|/,$rateinfo[1]);
                $thisuser = $username;
                if($thisuser eq "Guest") { $thisuser = $user_ip }
                $totalrate = 0;
                $raters = $lines - 5;
                if($raters > 0) {
                        for($i=5; $i < $lines; $i++) {
                                ($thisrater, $thisrate) = split(/\|/,$rateinfo[$i]);
                                if($thisuser eq $thisrater) {
                                        $intrate = int($thisrate);
                                        $check[$intrate] = "selected";
                                }
                                $totalrate = $totalrate + $thisrate;
                        }
                        $therate = sprintf ("%.2f", ($totalrate/$raters));
                }
                else { $therate = "0.00" }

                ($rating, $clicks) = split(/\|/,$rateinfo[3]);
                $barrate = $rating * 10;
                $ratebar = "";
                $ratebar1 = "";
                $ratebar2 = "";
                $barchart = int($barrate);
                $barchart1 = 100 - $barchart;
                if ($barchart < 1) {$ratebar = "$ratebar";}
                else {
                        $ratebar = qq~<img src="$imagesdir/ratebar.gif" width="$barchart" height="10" alt="" border="0" align="absmiddle">~;
                }
                if ($barchart > 99) {$ratebar1 = "$ratebar1";}
                else {
                        $ratebar1 = qq~<img src="$imagesdir/ratebar1.gif" width="$barchart1" height="10" alt="" border="0" align="absmiddle">~;
                }
                $ratebar2 = qq~$ratebar$ratebar1~;

                @barhight = ();
                @itembar = ();
                $maxhight = 0;
                $y = 0;
                for($x=1;$x<11;$x++) {
                        $itembar[$y] = "";
                        $barhight[$y] = 0;
                        for($i=5;$i<$lines;$i++) {
                                ($dummy, $otherate, $dummy1, $dummy2, $dummy3) = split(/\|/,$rateinfo[$i]);
                                if($otherate == $x) { $barhight[$y]++ }
                        }
                        if($barhight[$y] > $maxhight) { $maxhight = $barhight[$y] }
                        if($barhight[$y] == 0) {
                                $barhightdig[$y] = "&nbsp;";
                        }
                        else {
                                $barhightdig[$y] = $barhight[$y];
                        }

                        $y++;
                }

                if($maxhight <= 5) {
                        $maxhight = 5;
                        $scaleincr = 1;
                        for($i=0;$i<10;$i++) {
                                $barhight[$i] = $barhight[$i] * 20;
                        }
                }
                else {
                        $tmpmaxhight = int($maxhight / 5);
                        $tmpmaxhight = $tmpmaxhight + 1;
                        $maxhight = $tmpmaxhight * 5;
                        $scaleincr = $maxhight / 5;
                        for($i=0;$i<10;$i++) {
                                if($barhight[$i] > 0) {
                                        $bartemp = ($barhight[$i] * 100);
                                        $barhight[$i] = int(($bartemp / $maxhight) + 0.5);
                                }
                        }
                }

                $scaledig = $maxhight;
                for($i=0;$i<5;$i++) {
                                $barscaledig[$i] = $scaledig;
                                $scaledig = $scaledig - $scaleincr;
                }

                for($y=0;$y<10;$y++) {
                        $itembar[$y] = "";
                        if($barhight[$y] == 0) {
                                $itembar[$y] = qq~<img src="$imagesdir/scalebarfill.gif" width="30" height="120" alt="" border="0"><br>~;
                        }
                        else {
                                $itembar[$y] = qq~<img src="$imagesdir/scalebarfill.gif" width="10" height="120" alt="" border="0"><img src="$imagesdir/itembar.gif" width="10" height="$barhight[$y]" alt="$barhightdig[$y]" border="0"><img src="$imagesdir/scalebarfill.gif" width="10" height="120" alt="" border="0"><br>~;
                        }
                }

                $yymain .= qq~
        <table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
          <tr>
            <td>
            <table cellpadding="3" cellspacing="1" border="0" width="100%">
              <tr>
                <td valign="middle" align="left" width="20%" bgcolor="$color{'titlebg'}" class="titlebg">
                <font size=2 class="text1" color="$color{'titletext'}">&nbsp;<img src="$imagesdir/$rateicon.gif" alt="" align="absmiddle">
                &nbsp;<b>$ratetxt{'02a'}</b></font></td>
                <td valign="middle" align="left" bgcolor="$color{'titlebg'}" class="titlebg" width="80%">
                <font size=2 class="text1" color="$color{'titletext'}"><b>&nbsp;$txt{'118'}: $msubthread</b></font></td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        <table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
          <tr>
            <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
            <table width="90%" class="windowbg" bgcolor="$color{'windowbg'}" cellpadding="2" cellspacing="0" border="0" align="center">
                ~;
                if($rateinfo[2] ne "") {
                        $descrip = $rateinfo[2];
                        $descrip =~ s~\&\&~<br>~g;
                        $message = $descrip;
                        &wrap;
                        if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
                        &wrap2;
                        $descrip = $message;
                        $yymain .= qq~
                          <tr>
                            <td colspan="2" class="windowbg" bgcolor="$color{'windowbg'}" align="left">
                                <table border="0" cellspacing="0" cellpadding="0" align="left">
                                        <tr>
                                        <td align="left" valign="middle">
                                                <font size="1">$descrip</font>
                                        </td>
                                        </tr>
                                </table>
                            </td>
                          </tr>
                        ~;
                }
                $yymain .= qq~
                <tr>
                  <td align="left" class="windowbg" bgcolor="$color{'windowbg'}">
                        <table border="0" cellspacing="0" cellpadding="4" align="left">
                                <tr>
                                <td align="left" valign="middle">
                                        <font size=2><b>$ratetxt{'03'}:</b></font>
                                </td>
                                        ~;
                                if($username ne "Guest" || $guest_rate) {
                                        if($mstate == 0) {
                                                $yymain .= qq~
                                                <form method="post" action="$cgi;action=selrate2" name="$viewnum">
                                                <input type="hidden" name="filename" value="$viewnum">
                                                <input type="hidden" name="username" value="$username">
                                                <input type="hidden" name="yabbcat" value="$currentboard">
                                                <input type="hidden" name="ratetype" value="ratetopic">
                                        <td align="left" valign="middle">
                                                <select name="rating" style="font-size: 9" onChange="submit(); return true">
                                                        <option value="0" $check[0]>---</option>
                                                        <option value="10" $check[10]>10 $ratetxt{'48'}</option>
                                                        <option value="9" $check[9]>9</option>
                                                        <option value="8" $check[8]>8</option>
                                                        <option value="7" $check[7]>7</option>
                                                        <option value="6" $check[6]>6</option>
                                                        <option value="5" $check[5]>5</option>
                                                        <option value="4" $check[4]>4</option>
                                                        <option value="3" $check[3]>3</option>
                                                        <option value="2" $check[2]>2</option>
                                                        <option value="1" $check[1]>1</option>
                                                </select>
                                        </td></tr>
                                                </form>
                                        ~;
                                        }
                                        else {
                                                $yymain .= qq~
                                                <td align="left" valign="middle">
                                                        <img src="$imagesdir/ratelock.gif" border="0" align="absmiddle" alt="$txt{'456'}">
                                                </td></tr>
                                                ~;
                                        }
                                }
                                else {
                                        $yymain .= qq~
                                        <td align="left" valign="middle">
                                                <img src="$imagesdir/ban.gif" border="0" align="absmiddle" alt="$ratetxt{'21'}">
                                        </td></tr>
                                        ~;
                                        }
                                $yymain .= qq~
                                <tr><td align="left" valign="middle">
                                        <font size="2"><b> $ratetxt{'02a'}:</b></font>
                                </td>
                                <td align="left" valign="middle">
                                         $ratebar2
                                </td></tr>
                                <tr><td align="left" valign="middle">
                                        <font size="2"><b> $ratetxt{'02a'}:</b></font>
                                </td>
                                <td align="left" valign="middle">
                                         <font size="2">$therate</font>
                                </td></tr>
                                <tr><td align="left" valign="middle">
                                        <font size="2"><b> $ratetxt{'05'}:</b></font>
                                <td align="left" valign="middle">
                                        <font size="2">$raters</font>
                                </td>
                        </tr>
                        </table>
                </td>
                <td align="left" class="windowbg" bgcolor="$color{'windowbg'}">
                <table width="360" border="0" cellspacing="0" cellpadding="0" align="center">

                <tr>
                <td class="windowbg" bgcolor="$color{'windowbg'}" align="right">
                        <table border="0" cellspacing="0" cellpadding="0" align="right">
                                <tr>
                                        <td align="center" valign="middle"><img src="$imagesdir/scalebott.gif" width="5" height="10" alt="" border="0" align="absmiddle"><br></td>
                                </tr>
                                ~;
                                for($i=0;$i<5;$i++) {
                                $yymain .= qq~
                                <tr>
                                        <td align="right" valign="middle"><font size="1">$barscaledig[$i]</font><img src="$imagesdir/scalefill.gif" width="5" height="20" alt="" border="0" align="absmiddle"><br></td>
                                </tr>
                                ~;
                                }
                                $yymain .= qq~
                                <tr>
                                        <td align="center" valign="middle"><img src="$imagesdir/scalebott.gif" width="5" height="10" alt="" border="0" align="absmiddle"><br></td>
                                </tr>
                        </table>
                </td>

                ~;
                for($i=0;$i<10;$i++) {
                $yymain .= qq~
                <td class="windowbg" bgcolor="$color{'windowbg'}" background="$imagesdir/scalebg.gif" align="center" valign="bottom">
                        $itembar[$i]
                </td>
                ~;
                }
                $yymain .= qq~
                <td class="windowbg" bgcolor="$color{'windowbg'}" align="left">
                        <table border="0" cellspacing="0" cellpadding="0" align="left">
                                <tr>
                                        <td align="center" valign="middle"><img src="$imagesdir/scalebott.gif" width="5" height="10" alt="" border="0" align="absmiddle"><br></td>
                                </tr>
                                ~;
                                for($i=0;$i<5;$i++) {
                                $yymain .= qq~
                                <tr>
                                        <td align="left" valign="middle"><img src="$imagesdir/scalefill1.gif" width="5" height="20" alt="" border="0" align="absmiddle"><font size="1">$barscaledig[$i]</font><br></td>
                                </tr>
                                ~;
                                }
                                $yymain .= qq~
                                <tr>
                                        <td align="center" valign="middle"><img src="$imagesdir/scalebott.gif" width="5" height="10" alt="" border="0" align="absmiddle"><br></td>
                                </tr>
                        </table>
                </td>

                </tr>
                <tr>
                <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
                        <img src="$imagesdir/scalecol.gif" width="30" height="4" alt="" border="0">
                </td>
                ~;
                for($i=0;$i<10;$i++) {
                $ratedig = $i + 1;
                $yymain .= qq~
                <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
                        <font size="2"><img src="$imagesdir/scalecol.gif" width="30" height="4" alt="" border="0"><br><b>$ratedig</b><br><img src="$imagesdir/scalecol.gif" width="30" height="4" alt="" border="0"><br></font>
                </td>
                ~;
                }
                $yymain .= qq~
                <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
                        <img src="$imagesdir/scalecol.gif" width="30" height="4" alt="" border="0">
                </td></tr>
                </table>
                </td>
                </tr>
                </table>
            </td>
          </tr>
        </table>

                ~;
        }
$yymain .= qq~
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td>
    <table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr>
        <td valign="middle" align="left" width="20%" bgcolor="$color{'titlebg'}" class="titlebg">
        <font size=2 class="text1" color="$color{'titletext'}">&nbsp;<img src="$imagesdir/$threadclass.gif" alt="">
        &nbsp;<b>$txt{'29'}</b></font></td>
        <td valign="middle" align="left" bgcolor="$color{'titlebg'}" class="titlebg" width="80%">
        <font size=2 class="text1" color="$color{'titletext'}"><b>&nbsp;$txt{'118'}: $isfavor$msubthread</b> &nbsp;($txt{'641'} $views $txt{'642'})</font></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
~;
        # Load background color list.
        @bgcolors = ( $color{windowbg}, $color{windowbg2} );
        $bgcolornum = scalar @bgcolors;
        @cssvalues = ( "windowbg","windowbg2" );
        $cssnum = scalar @bgcolors;

        if(!$MenuType) { $sm = 1; }
        $counter = 0;

        fopen(FILE,"$datadir/$viewnum.txt") || &fatal_error("104 $txt{'106'}: $txt{'23'} $viewnum.txt");

        # Skip past the posts in this thread until we reach $start.
        while($counter < $start && ($buffer = <FILE>)) { $counter++; }

        $#messages = $maxmessagedisplay - 1;
        for($counter = 0; $counter < $maxmessagedisplay && ($buffer = <FILE>); $counter++) {
                $messages[$counter] = $buffer;
        }
        fclose(FILE);
        $#messages = $counter - 1;
        $counter = $start;
$yymain .= qq~
~;
       $yymain .= qq~
<form name="multidel" action="$scripturl?board=$currentboard;thread=$viewnum;action=multidel;s tart=$start" method="POST" style="display: inline">
<input type="hidden" name="maxmessage" value="$maxmessagedisplay">
~;
        # For each post in this thread:
        foreach (@messages) {
                $windowbg = $bgcolors[($counter % $bgcolornum)];
                $css = $cssvalues[($counter % $cssnum)];
                chomp;
                ($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $postmessage, $ns, $mlm, $mlmb) = split(/[\|]/, $_);
                # Should we show "last modified by?"
                # Should we show "last modified by?"
# Begin Time Lock mod
                if( $mlm && $showmodify && $mlm ne "" && $mlmb ne "") {
                        if( $tllastmodflag == 1) {
                                $tllastmodtimesecs = $tllastmodtime*60;
                                $tlmesstime = stringtotime($mdate) + $tllastmodtimesecs;
                                $tllasttime = stringtotime($mlm);
                                if ( $tlmesstime > $tllasttime ) {
                                        $mlm = '-';
                                        $lastmodified = '';
                                } else {
                                        $mlm = &timeformat($mlm);
                                        &LoadUser($mlmb);
                                        $mlmb = $userprofile{$mlmb}->[1] || $mlmb || $txt{'470'};
                                        $lastmodified = qq~&#171; <i>$txt{'211'}: $mlm $txt{'525'} $mlmb</i> &#187;~;
                                }
                        } else {
                                $mlm = &timeformat($mlm);
                                &LoadUser($mlmb);
                                $mlmb = $userprofile{$mlmb}->[1] || $mlmb || $txt{'470'};
                                $lastmodified = qq~&#171; <i>$txt{'211'}: $mlm $txt{'525'} $mlmb</i> &#187;~;
                        }
                }
                else {
                        $mlm = '-';
                        $lastmodified = '';
                }
                if ($tlnomodflag == 1) {
                        unless ( ( $settings[7] eq 'Administrator' ) || ( exists $moderators{$username} ) ) {
                                $tlnomodtimesecs = $tlnomodtime*3600*24;
                                $tltime = stringtotime($mdate) + $tlnomodtimesecs;
                                $tlcurrenttime = time + (3600*$timeoffset);
                                if ( $tlcurrenttime > $tltime ) {
                                        $nomodallowed = 1;
                                } else {$nomodallowed = 0;}
                        }
                }
                if ($tlnodelflag == 1) {
                        unless ( ( $settings[7] eq 'Administrator' ) || ( exists $moderators{$username} ) ) {
                                $tlnodeltimesecs = $tlnodeltime*3600*24;
                                $tldtime = stringtotime($mdate) + $tlnodeltimesecs;
                                $tldcurrenttime = time + (3600*$timeoffset);
                                if ( $tldcurrenttime > $tldtime ) {
                                        $nodelallowed = 1;
                                } else {$nodelallowed = 0;}
                        }
                }
# End Time Lock mod

                $msub ||= $txt{'24'};
                $messdate = &timeformat($mdate);
                if ($settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' && $allow_mod == 1) { $mip = $mip } else { $mip = "$txt{'511'}"; }
                $sendm = '';

                # If the user isn't a guest, load his/her info.
                if($musername ne 'Guest' && ! $yyUDLoaded{$musername} && -e("$memberdir/$musername.dat") ) {
                        &LoadUserDisplay($musername);        # If user is not in memory, s/he must be loaded.
                }
                my($loccode, $displocal, $dispcountry, $dispcontin, $dispx, $dispy, $dispstate, $dispflag, $disptext);
                $messagedate = stringtotime($mdate);
                $registrationdate = stringtotime($userprofile{$musername}->[14]);
                if($yyUDLoaded{$musername} && $messagedate > $registrationdate) {
                        @userprofile = @{$userprofile{$musername}};
                        ($loccode, $displocal, $dispcountry, $dispcontin, $dispx, $dispy, $dispstate) = split(/\|/, $userprofile[15]);
        if($dispcountry ne "") {
                if($view_flag) {
                        if($loccode eq "x1") { $dispflag = qq~<a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}#mmap"><img src="$imagesdir/flag/$dispcountry.gif" vspace=3 border=0 align="absmiddle" alt="$dispcountry"></a>&nbsp;~; }
                        elsif($loccode eq "x0") { $dispflag = qq~<img src="$imagesdir/flag/$dispcountry.gif" vspace=3 border=0 align="absmiddle" alt="$dispcountry">&nbsp;~; }
                        else { $dispflag = ""; }
                }
                if($view_text) {
                        my($initstat, $namestat, $disploc);
                        if($dispstate ne "") { ($initstat, $namestat) = split(/\,/, $dispstate); }
                        if($displocal ne "") { $disploc = qq~$displocal $initstat~; }
                        if($loccode eq "x1") { $disptext = qq~<nobr><font size="1"><a href="$scripturl?board=$currentboard;action=viewprofile;username=$useraccount{$musername}#mmap">$disploc</a></font></nobr>~; }
                        elsif($loccode eq "x0") { $disptext = qq~<nobr><font size="1">$disploc</font></nobr>~; }
                        else { $disptext = ""; }
                }
        }
                        $displayname = $userprofile[1];
                        fopen(NUMBERFILEREAD,"$memberdir/$musername.yam");
                        @number = <NUMBERFILEREAD>;
                        fclose(NUMBERFILEREAD);
                        chomp @number;
                        if ($musername eq "admin") { $displaynumb = ''; }
                        else { $displaynumb = qq~$membtxt{'23'} $number[0]~; }
                        $star = $memberstar{$musername};
                        $memberinfo = $memberinfo{$musername};
                        $memberinfo =~ s~\n~~g;
                        $icqad = $icqad{$musername};
                        $yimon = $yimon{$musername};
                        if ($userprofile[7] eq 'Administrator' && $micon eq "lamp"){$windowbg = "announcebg"; $css = "announcebg"; }
                        elsif ($userprofile[7] eq 'Administrator' && $micon eq "exclamation"){$windowbg = "adminbg"; $css = "adminbg";}
                        #homepage mod - do we want a link
                        if (-e("$memberdir/$useraccount{$musername}.home"))
                        {
                                unless ($username eq 'Guest' && !$guests_view_hp)
                                {
                                        fopen(FILE, "$memberdir/$useraccount{$musername}.home"); $hp = <FILE>; fclose(FILE);
                                        chomp $hp;
                                        ($junk, $junk, $hp_banned) = split(/\|/, $hp);

                                        if ($hp_banned) { $homepage_link = ''; }
                                        else { $homepage_link = qq~&nbsp;<a href="$cgi;action=hpview;member=$useraccount{$musername}"><img src="$imagesdir/homepage.gif" alt="$hp_txt{'1'}" border="0"></a>~; }
                                }
                        }
                        else { $homepage_link = ''; }
                        if($username ne 'Guest') {
                                # Allow instant message sending if current user is a member.
                                $sendm = qq~$menusep<a href="$cgi;action=imsend;to=$useraccount{$musername}">$img{'message_sm'}</a>~;
                        }
                        $usernamelink = $link{$musername};
                        $postinfo = qq~$txt{'26'}: $userprofile[6]<br>~;
                        $memail = $userprofile[2];
                }
                else {
                        $musername = "Guest";
                        $displaynumb = '';
                        $star = '';
                        $memberinfo = "$txt{'28'}";
                        $icqad = '';
                        $yimon = '';
                        $usernamelink = qq~<font size="2"><b>$mname</b></font>~;
                        if ($memberinfo eq "$txt{'28'}") { $usernamelink = qq~<font size="2"><b>$mname<br></b></font>~; }
                        $postinfo = '';
                        @userprofile = ();
                        $displayname = $mname;
                        $homepage_link = '';
                }
                # Censor the subject and message.
                foreach (@censored) {
                        ($tmpa,$tmpb) = @{$_};
                        $postmessage =~ s~\Q$tmpa\E~$tmpb~gi;
                        $msub =~ s~\Q$tmpa\E~$tmpb~gi;
                }

#### Remove excessive line returns mod
        while ($postmessage =~ m~<br>[(/&nbsp/;)\s]*<br>[(/&nbsp/;)\s]*<br>~i) {
                $postmessage =~ s~<br>[(/&nbsp/;)\s]*<br>[(/&nbsp/;)\s]*<br>~<br><br>~ig;
        }
####
               ################ Media Player mod
                if ($musername ne 'Guest') {
                        $mediausername = $userprofile[1];
                } else{
                        $mediausername = $mname;
                }
               ################ Media Player mod end
                # Run UBBC interpreter on the message.
                $message = $postmessage; # put the message back into the proper variable to do ubbc on it
                &wrap;
                if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
                &wrap2;
                $profbutton = $profilebutton && $musername ne 'Guest' ? qq~<a href="$scripturl?action=viewprofile;username=$useraccount{$musername}">$img{'viewprofile_sm'}</a>$menusep~ : '';
                if($counter != 0) { $counterwords = "$txt{'146'} #$counter"; }
                else { $counterwords = ""; }
                # Print the post and user info for the poster.
                if( $currentboard ne 'interactivestory' ) {
                $yymain .= qq~
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td>
    <table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr>
        <td bgcolor="$windowbg" class="$css">
        <a name="$counter"></a>
        <table width="100%" cellpadding="4" cellspacing="0" class="$css" bgcolor="$windowbg">
          <tr>
            ~;
                if($micon ne 'dice') {
                $yymain .= qq~
            <td class="$css" bgcolor="$windowbg" valign="top" width="20%" rowspan="2"><font size="1">
            $usernamelink
            $memberinfo<br>~;
        if($musername ne "Guest") {
                if($view_flag) { $yymain .= qq~$dispflag ~; }
                if($view_text) { $yymain .= qq~$disptext~; }
                if($view_flag || $view_text) { $yymain .= qq~<br>~; }
                $yymain .= qq~
            $star<BR>
~;
if ($view_numb) {
        $yymain .= qq~
                $displaynumb<BR>
        ~;
}
else {
        $yymain .= qq~
                <BR>
        ~;
}
$yymain .= qq~
            $userprofile[13]$userprofile[12]
            <BR>$userprofile[8] $icqad &nbsp; $userprofile[10] $yimon &nbsp; $userprofile[9]<BR>
~;
        }
        if($musername eq "Guest") {
                $yymain .= qq~
            <BR><a href="mailto:$memail">$img{'email_sm'}</a><BR><BR>
~;
        }
        elsif ($userprofile[19] ne "checked" || $settings[7] eq "Administrator" || $settings[7] eq "Global Moderator" || $allow_hide_email ne 1) {
                $yymain .= qq~
            $profbutton$userprofile[4] <a href="mailto:$memail">$img{'email_sm'}</a>$sendm$homepage_link<BR><BR>
~;
        } else {
                $yymain .= qq~
    $profbutton$userprofile[4]$sendm$homepage_link<BR><BR>
~;
        }
                         fopen(FILE, "$memberdir/$useraccount{$musername}.rst");
                        @relationship = <FILE>;
                        fclose(FILE);
chomp @relationship;
$rsttest = $relationship[0];
if($rsttest eq '') {$rsttest = "N/A";}

                fopen(FILE, "$memberdir/$useraccount{$musername}.mod");
                        @moody = <FILE>;
                        fclose(FILE);
chomp @moody;
$modtest = $moody[0];
if($modtest eq '') {$modtest = "blank";}
                        fopen(FILE, "$memberdir/$useraccount{$musername}.zod");
                        @sign = <FILE>;
                        fclose(FILE);
chomp @sign;
$test = $sign[0];
if($test eq '') {$test = "blank";}
    elsif($test eq "$zodtxt{'1a'}"){$test = "Aries";}
    elsif($test eq "$zodtxt{'1b'}"){$test = "Taurus";}
    elsif($test eq "$zodtxt{'1c'}"){$test = "Gemini";}
    elsif($test eq "$zodtxt{'1d'}"){$test = "Cancer";}
    elsif($test eq "$zodtxt{'1e'}"){$test = "Leo";}
    elsif($test eq "$zodtxt{'1f'}"){$test = "Virgo";}
    elsif($test eq "$zodtxt{'1g'}"){$test = "Libra";}
    elsif($test eq "$zodtxt{'1h'}"){$test = "Scorpio";}
    elsif($test eq "$zodtxt{'1i'}"){$test = "Sagittarius";}
    elsif($test eq "$zodtxt{'1j'}"){$test = "Capricorn";}
    elsif($test eq "$zodtxt{'1k'}"){$test = "Aquarius";}
    elsif($test eq "$zodtxt{'1l'}"){$test = "Pisces";}
if($test eq $sign[0]) {
        $yymain .= qq~
$zodtxt{'2'} <img src="$imagesdir/signs/$test.gif" border="0" alt="$sign[0]"><br>
            $userprofile[11]
            $postinfo
              ~;
require "$sourcedir/ExtendedProfiles.pl";
$yymain .= ext_viewinposts($musername) . qq~
              ~;
} else {

        $yymain .= qq~
            $userprofile[11]
            $postinfo
       ~;
}
if($rsttest eq $relationship[0]) {
        $yymain .= qq~
$txtrst{'0a'}: $relationship[0]<br>
<img src="$imagesdir/moods/$modtest.gif" border="0" alt="$musername is $moody[0]">
              ~;
} else {

        $yymain .= qq~
<img src="$imagesdir/moods/$modtest.gif" border="0" alt="$musername is $moody[0]">
              ~;
require "$sourcedir/ExtendedProfiles.pl";
$yymain .= ext_viewinposts($musername) . qq~
              ~;
}
        $yymain .= qq~
            </font></td>
            <td class="$css" bgcolor="$windowbg" valign="top" width="80%" height="100%">
            <table width="100%" border="0">
              <tr>
                <td align="left" valign="middle"><img src="$imagesdir/$micon.gif" alt=""></td>
                <td align="left" valign="middle">
~;
if($micon eq 'dice') {
        $yymain .= qq~
                <font size="1"><B>$msub - $counterwords $txt{'30'}:</B> $messdate</font></td>
        ~;
}
else {
        $yymain .= qq~
                <font size="2"><B>$msub</b></font><BR>
                <font size="1">&#171; <B>$counterwords $txt{'30'}:</B> $messdate &#187;</font></td>
        ~;
}
        $yymain .= qq~
                <td align="right" valign="bottom" nowrap height="20">
                <font size=-1>
~;
 if ($settings[20] eq "checked") {
$yymain .= qq~ <a href="$cgi;action=display;num=$viewnum;start=$start;#top">$img{'go_top'} </a>$menusep<a href="$cgi;action=display;num=$viewnum;start=$start;#bottom">$img{'go_bottom'}</a>$menusep
~;
; }
if ($mstate != 1)
{
$yymain .= qq~
                <a href="$cgi&action=reporttm&thread=$viewnum&id=$counter&subject=$msub&poster=$mname&username=$musername&email=$memail"><img src="$imagesdir/rtm.gif" alt="$rtm{'22'}" border="0"> <font size="1" class="imgwindowbg">$rtm{'22'}</font></a>
                $menusep
                <a href="$cgi;action=post;num=$viewnum;quote=$counter;title=$txt{'116'};start=$start">$img{'replyquote'}</a>$menusep<a href="$cgi;action=modify;message=$counter;thread=$viewnum">$img{'modify'}</a>
~;
        if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $username eq $musername || $settings[7] eq 'Global Moderator') {
                $yymain .= qq~  $menusep<a href="$cgi;action=modify2;thread=$viewnum;id=$counter;d=1" onclick="return confirm('$txt{'739'}')">$img{'delete'}</a>~;
        if((exists $moderators{$username} && $mdmod eq 1) || ($settings[7] eq 'Administrator' && $mdadmin eq 1) || ($settings[7] eq 'Global Moderator' && $mdglobal eq 1)) {
                $yymain .= qq~&nbsp;<input type="checkbox" name="del$counter" value="$counter">~;
                 }
        }
}

        $yymain .= qq~
                </font></td>
              </tr>
            </table>
            <hr width="100%" size="1" class="hr">
            <font size="2">
            $message
            </font>
            </td>
          </tr><tr>
            <td class="$css" bgcolor="$windowbg" valign="bottom">
            <table width="100%" border="0">
              <tr>
                <td align="left"><font size="1">$lastmodified</font></td>
                <td align="right"><font size="1"><img src="$imagesdir/ip.gif" alt="" border="0"> $mip</font></td>
              </tr>
            </table>
                ~;
                if($micon eq 'dice') {
                $yymain .= qq~
                        </td>
                ~;
                }
                else {
                $yymain .= qq~
                    <font size="1">
                    $userprofile[5]
                    </font></td>
                ~;
                }
                $yymain .= qq~
          </tr>
        <tr><td align="left"><a href="#top">Back to top</a></td></tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>~;
}
#####interactive story board
else {
                $yymain .= qq~
<a name="$counter"></a>
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td>
    <table cellpadding="0" cellspacing="1" border="0" width="100%">
      <tr>
        <td bgcolor="$windowbg" class="$css">
        <table width="100%" cellpadding='4' cellspacing='0' class="windowbg" bgcolor="$windowbg">
          <tr>
            <td class="windowbg" bgcolor="windowbg" valign="top" width="20%" rowspan="2"><font size="1">
            $usernamelink<BR>
            <font size="0">
            &#171; $messdate &#187;
            </font>

            ~;
            if ($mstate != 1)
                {
                if ($username ne "Guest"){
                if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $username eq $musername && $userpostdel != 1) {
                            $yymain .= qq~<hr width="100%" size="1" class="hr">~;
                        $yymain .= qq~<a href="$cgi;action=modify;message=$counter;thread=$viewnum"><img src="$imagesdir/modify.gif" alt="$txt{'66'}" border="0" <class="imgwindowbg"> </a>~;
                        $yymain .= qq~<a href="javascript:DoConfirm('$txt{'739'}','$cgi;action=modify2;thread=$viewnum;id=$counter;d=1')"><img src="$imagesdir/delete.gif" alt="$txt{'121'}" border="0" <class="imgwindowbg"> </a>~;
                if(exists $moderators{$username} || $settings[7] eq 'Administrator' ) {
                        $yymain .= qq~<font size="1"><img src="$imagesdir/ip.gif" alt="$mip" border="0"></font>~;
                }
                }
                }
            }
            $yymain .= qq~

            </td>

            <td class="windowbg" bgcolor="$windowbg" valign="top" width="1%" height="100%">
            </td>


            <td class="windowbg2" bgcolor="$windowbg" valign="top" width="79%" height="100%">
            <font size="2">
            $message
            </font>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>~;

}

                $counter++;
        }
        $yymain .= qq~
<table border=0 width="100%" cellspacing="0" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor">
  <tr>
    <td>
    <table cellpadding="4" cellspacing="1" border="0" width="100%">
      <tr>
        <td align="left" class="catbg" bgcolor="$color{'catbg'}" width="100%">
        <table cellpadding="3" cellspacing="0" width="100%">
          <tr>
            <td><a name="bottom"></a><font size="2"><b>$txt{'139'}:</b> $pageindex</font></td>
            <td class="catbg" bgcolor="$color{'catbg'}" align=right><font size=2>
            ~;
#####not interactive story board
if( $currentboard ne 'interactivestory' ) {
        $yymain .= qq~
            $replybutton$pollbutton$notify$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
            <a href="$cgi;action=print;board=$currentboard;num=$viewnum" target="_blank">$img{'print'}</a>
        ~;
        }
else {
        $yymain .= qq~
            $replybutton$menusep
            <a href="$cgi;action=sendtopic;topic=$viewnum">$img{'sendtopic'}</a>$menusep
        ~;
        }
$yymain .= qq~

            </font></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table><br>
<table border="0" width="100%" cellpadding="0" cellspacing="0">~;
          $yymain .= qq~
  <tr>
    <td align="left" valign="top" colspan="2">~;
        if(exists $moderators{$username} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') {
                $yymain .= qq~<font size="1">$sadminf</font>~;

        if($ss_advanced eq "1") { $yymain .= qq~
        <a href="$cgi;action=split_splice;thread=$viewnum">$img{'admin_split_splice'}</a>$menusep~;
        } else { $yymain .= qq~
        <a href="$cgi;action=split;thread=$viewnum">$img{'admin_split'}</a>$menusep
        <a href="$cgi;action=splice;thread=$viewnum">$img{'admin_splice'}</a>$menusep~;
        }

        $yymain .= qq~
        $menusep$admin_rate
~;
        }
        if((exists $moderators{$username} && $mdmod eq 1) || ($settings[7] eq 'Administrator' && $mdadmin eq 1) || ($settings[7] eq 'Global Moderator' && $mdglobal eq 1)) {
                if ($mstate != 1) {$yymain .= qq~<input type=submit value="$mdintxt{'3'}"></form>~;}
        }
        $yymain .= qq~
    </td>
    <td valign="top" height="18" align="right"><font size="1">$selecthtml</font></td>
  </tr><tr>
    <td colspan="3" valign="top" align="right"><font size="1">$nav</font></td>
  </tr>
</table>
~;
### Quick Reply Box 1.3 ###

        # MBCO2 Reply access check
        if ($reply_users{$currentboard} || $reply_groups{$currentboard}) {
                my $access = &AccessCheck($currentboard, 2) || "";
                if ($access eq "denied") {$enable_quickreply = 0;}
        }

        if ($username ne "Guest" && $mstate != 1 && $enable_quickreply == 1) {
$yymain .= qq~
<form action="$cgi;action=post2" method="post" name="postmodify" onsubmit="postmodify.post.disabled=true; postmodify.clear.disabled=true;">
<input type="hidden" name="threadid" value="$viewnum">
<input type="hidden" name="icon" value="xx">
<table border=0 width="80%" cellspacing="1" cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
    <td align="center" class="titlebg" bgcolor="$color{'titlebg'}"><font size="2" class="text1" color="$color{'titletext'}"><b>$qrb_txt{'2'}</b></font></td>
  </tr>
  <tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
      <table width="100%" cellpadding="4" cellspacing="0">
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'70'}:</b></font></td>
          <td><font size="2"><input type="text" name="subject" value="Re: $msubthread" size="40" style="width:100%"></td>
        </tr>~;
                if ($enable_quicksmilies == 1) {
                        if ($smiliestyle eq 1){$smiliewinlink = "$scripturl?action=smilieput";} else { $smiliewinlink = "$scripturl?action=smilieindex";}
                        $moresmilieslist = "";
                        $more_smilie_array = "";
                        $i=0;
                        if ($showadded eq 1){ # show added smilies on smiley bar
                                while($SmilieURL[$i]) {
                                        if ($SmilieURL[$i]=~ /\//i) {$tmpurl = $SmilieURL[$i];} else {$tmpurl = qq~$imagesdir/$SmilieURL[$i]~;}
                                        $moresmilieslist .= qq~      document.write("<img src='$tmpurl' align='bottom' alt="+'"'+"$SmilieDescription[$i]"+'"'+" border='0' onclick='javascript:MoreSmilies($i)' style='cursor:hand'>$SmilieLinebreak[$i] ");\n~;
                                        $tmpcode = $SmilieCode[$i];
                                        $tmpcode =~ s/\&quot;/"+'"'+"/g;
                                        &FromHTML($tmpcode);
                                        $tmpcode =~ s/&#36;/\$/g;
                                        $tmpcode =~ s/&#64;/\@/g;
                                        $more_smilie_array .= qq~" $tmpcode", ~;
                                        $i++;
                                }
                        }
                        if ($showsmdir eq 1){ # show auto smilies on smiley bar
                                opendir(DIR, "$smiliesdir");
                                @contents = readdir(DIR);
                                closedir(DIR);
                                foreach $line (sort {uc($a) cmp uc($b)} @contents){
                                        ($name, $extension) = split (/\./, $line);
                                        if ($extension =~ /gif/i || $extension =~ /jpg/i || $extension =~ /jpeg/i || $extension =~ /png/i ){
                                                if ($line !~ /banner/i) {
                                                        $moresmilieslist .= qq~      document.write("<img src='$smiliesurl/$line' align='bottom' alt='$name' border='0' onclick='javascript:MoreSmilies($i)' style='cursor:hand'> ");\n~;
                                                        $more_smilie_array .= qq~" [smiley=$line]", ~;
                                                        $i++
                                                }
                                        }
                                }
                        }
                        $more_smilie_array .= qq~""~;
                        $yymain .= qq~
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'297'}:</b></font></td>
          <td valign="middle">
          <script language="JavaScript1.2" type="text/javascript">
          <!--
            moresmiliecode = new Array($more_smilie_array)

            function MoreSmilies(i) {
              AddTxt=moresmiliecode[i];
              AddText(AddTxt);
            }

            function smiliewin() {
              window.open("$smiliewinlink", 'list', 'width=$winwidth,height=$winheight, scrollbars=yes');
            }

            if((navigator.appName == "Netscape" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4) || (navigator.appName == "Opera" && navigator.appVersion.charAt(0) >= 4)) {
              document.write("<img style='cursor:hand' onclick='javascript:smiley()' src='$imagesdir/smiley.gif' align='bottom' alt='$txt{'287'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:wink()' src='$imagesdir/wink.gif' align='bottom' alt='$txt{'292'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cheesy()' src='$imagesdir/cheesy.gif' align='bottom' alt='$txt{'289'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:grin()' src='$imagesdir/grin.gif' align='bottom' alt='$txt{'293'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:angry()' src='$imagesdir/angry.gif' align='bottom' alt='$txt{'288'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:sad()' src='$imagesdir/sad.gif' align='bottom' alt='$txt{'291'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:shocked()' src='$imagesdir/shocked.gif' align='bottom' alt='$txt{'294'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cool()' src='$imagesdir/cool.gif' align='bottom' alt='$txt{'295'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:huh()' src='$imagesdir/huh.gif' align='bottom' alt='$txt{'296'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:rolleyes()' src='$imagesdir/rolleyes.gif' align='bottom' alt='$txt{'450'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:tongue()' src='$imagesdir/tongue.gif' align='bottom' alt='$txt{'451'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:embarassed()' src='$imagesdir/embarassed.gif' align='bottom' alt='$txt{'526'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:lipsrsealed()' src='$imagesdir/lipsrsealed.gif' align='bottom' alt='$txt{'527'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:undecided()' src='$imagesdir/undecided.gif' align='bottom' alt='$txt{'528'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:kiss()' src='$imagesdir/kiss.gif' align='bottom' alt='$txt{'529'}' border='0'> ");
              document.write("<img style='cursor:hand' onclick='javascript:cry()' src='$imagesdir/cry.gif' align='bottom' alt='$txt{'530'}' border='0'> ");
$moresmilieslist
            }
            else { document.write("<font size='1'>$txt{'215'}</font>"); }
          //-->
          </script>~;
                if ($showadded == 3 || ($showadded == 2 && $detachblock == 1) || $showsmdir == 3 || ($showsmdir == 2 && $detachblock == 1)){
                        $yymain .= qq~
          <a href=javascript:smiliewin()>$smiltxt{'1'}</a>~;
                }
                $yymain .= qq~
          <noscript>
            <font size="1">$txt{'215'}</font>
          </noscript>
          </td>
        </tr>~;
                }
                $yymain .= qq~
        <tr>
          <td valign="top" width="23%"><font size="2"><b>$txt{'72'}:</b></font></td>
          <td><textarea name="message" rows="5" cols="60" wrap="soft" ONCLICK="javascript:storeCaret(this);" ONKEYUP="javascript:storeCaret(this);" ONCHANGE="javascript:storeCaret(this);" style="width:100%"></textarea></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" class="catbg" bgcolor="$color{'catbg'}"><input type="submit" name="post" value="$txt{'105'}" accesskey="s"> &nbsp; <input type="reset" name="clear" value="$txt{'278'}" accesskey="r"></td>
  </tr>
</table>
</form>
~;
        }

### Quick Reply Box 1.3 ###

        $yytitle = $msubthread;
        &template;
        exit;
}

1;