Web Wiz Forums Modifications - MOD:Randomize smileys for each post

MOD:Randomize smileys for each post

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=19506
Printed Date: 28 March 2026 at 2:20pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: MOD:Randomize smileys for each post

Posted By: g�lge
Subject: MOD:Randomize smileys for each post
Date Posted: 23 April 2006 at 4:59pm

mod for random smileys for each message...

owerrite message_form_inc.asp

http://www.hemenpaylas.com/download/549063/message_form_inc.zip.html - http://www.hemenpaylas.com/download/549063/message_form_inc.zip.html

if you want to change code manually here is the code:

delete this :

'If there is a remainder add 1 to the number of loops
If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1

'Loop throgh th list of emoticons
For intLoop = 1 to intNumberOfOuterLoops

Response.Write("<tr>")

'Loop throgh th list of emoticons
For intInnerLoop = 1 to 3

   'If there is nothing to display show an empty box
   If intIndexPosition > UBound(saryEmoticons) Then
    Response.Write(vbCrLf & "    <td> </td>")

   'Else show the emoticon
   Else
    If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon(this)"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
    Else
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon('" & saryEmoticons(intIndexPosition,2) & "')"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
                 End If
               End If

               'Minus one form the index position
               intIndexPosition = intIndexPosition + 1
  Next

Response.Write("</tr>")

copy and paste this:

'If there is a remainder add 1 to the number of loops
If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1
intIndexPosition=int(rnd*50)
'Loop throgh th list of emoticons
For intLoop = 1 to intNumberOfOuterLoops
If intIndexPosition > UBound(saryEmoticons) or intIndexPosition = 0 Then intIndexPosition=1

Response.Write("<tr>")

  'Loop throgh th list of emoticons
  For intInnerLoop = 1 to 3
    If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon(this)"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
    Else
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon('" & saryEmoticons(intIndexPosition,2) & "')"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
             End If

      intIndexPosition = intIndexPosition + 1

  Next

Response.Write("</tr>")

Replies:

Posted By: graper
Date Posted: 24 April 2006 at 2:20am

GOOD

-------------
WWF论坛讨论QQ群:2652358
WWF论坛讨论: Http://Www.CNWWF.Com/Forum/ - Http://Www.CNWWF.Com/Forum/