Banner inside MediaPlayer Window Popup addon mediaplayer mod 1 This mod must be installed in forum that had mediaplayer mod by Ironwing installed already This mod is based on Bannerads mod by Ironwing Ironwing and Jake http://www.doctor.co.th Sources/Admin.pl - $txt{'222'}
- $bannerinmediatxt{'1'}
Sources/Media.pl 1; sub MediaBannerAds1 { &is_admin; my( $allmediabanners, $line ); $mediabannerfile = qq~$vardir/banners_inside_media.txt~; if ( -e $mediabannerfile) { fopen(FILE, $mediabannerfile); while( $line = ) { &FromHTML($line); $allmediabanners .= qq~$line~; } fclose(FILE); } else { $allmediabanners .= ''; } $yymain .= qq~

$bannerinmediatxt{'2'}

$bannerinmediatxt{'3'}

~; $yytitle = "$bannerinmediatxt{'1'}"; &template; exit; } sub MediaBannerAds2 { &is_admin; my $mediabannerfile = qq~$vardir/banners_inside_media.txt~; $FORM{'mediabanners'} =~ tr/\r//d; $FORM{'mediabanners'} =~ s~\A\n~~; $FORM{'mediabanners'} =~ s~\n\Z~~; fopen(FILE, ">$mediabannerfile"); print FILE $FORM{'mediabanners'}; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } sub MediaBannerShow { $mediabannerstring = ''; $mediabannerfilename = qq~$vardir/banners_inside_media.txt~; if ( -e $mediabannerfilename) { fopen(FILE, $mediabannerfilename); srand; rand($.) < 1 && ($mediabannerstring = $_) while ; fclose(FILE); chomp $mediabannerstring; } if ($mediabannerstring ne ''){ $mediabannerstring = qq~$mediabannerstring

~; #### begin mod to add UBBC to banner in mediaplayer ##### $messagebak = $message; $message = $mediabannerstring; $mediausername = "Doctor\.co\.th"; $displayname = "Doctor\.co\.th"; if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; } $mediabannerstring = $message; $message = $messagebak; #### end mod to add UBBC to banner in mediaplayer ##### } } sub RealMedia { &MediaBannerShow