BANNER SCRIPT

[CapY]

What is wrong here ?

Client Side:

  
local X, Y = guiGetScreenSize() 
local MSG = 
    "IDKWTFXD!  -  ".. 
    "Visit Us At : [url=http://www.blabla.com]http://www.blabla.com[/url]  -  ".. 
  
local FONT = "sa-gothic" 
local FS   = 0.68 
local FH   = dxGetFontHeight(FS, FONT) 
  
local HUD = { 
    banner = dxText:create(MSG, X / 2, Y - FH + 10, false, FONT, FS, "center"), 
} 
HUD.banner:color(60, 60, 60, 255) 
HUD.banner:type('stroke', 1, 0, 255, 0, 255)  
  
  
dxText = {} 
dxText_mt = { __index = dxText } 
local idAssign,idPrefix = 0,"c" 
local g_screenX,g_screenY = guiGetScreenSize() 
local visibleText = {} 
------ 
defaults = { 
    fX                          = 0.5, 
    fY                          = 0.5, 
    bRelativePosition           = true, 
    strText                     = "", 
    bVerticalAlign              = "center", 
    bHorizontalAlign            = "center", 
    tColor                      = {255,255,255,255}, 
    fScale                      = 1, 
    strFont                     = "default", 
    strType                     = "normal", 
    tAttributes                 = {}, 
    bPostGUI                    = false, 
    bClip                       = false, 
    bWordWrap                   = true, 
    bVisible                    = true, 
    tBoundingBox                = false, --If a bounding box is not set, it will not be used. 
    bRelativeBoundingBox        = true, 
} 
  
local validFonts = { 
    default                     = true, 
    ["default-bold"]            = true, 
    clear                       = true, 
    arial                       = true, 
    pricedown                   = true, 
    bankgothic                  = true, 
    diploma                     = true, 
    beckett                     = true, 
} 
  
local validTypes = { 
    normal                      = true, 
    shadow                      = true, 
    border                      = true, 
    stroke                      = true, --Clone of border 
} 
  
local validAlignTypes = { 
    center                      = true, 
    left                        = true, 
    right                       = true, 
} 
  
function dxText:create( text, x, y, relative, strFont, fScale, horzA ) 
    assert(not self.fX, "attempt to call method 'create' (a nil value)") 
    if ( type(text) ~= "string" ) or ( not tonumber(x) ) or ( not tonumber(y) ) then 
        outputDebugString ( "dxText:create - Bad argument", 0, 112, 112, 112 ) 
        return false 
    end 
    local new = {} 
    setmetatable( new, dxText_mt ) 
    --Add default settings 
    for i,v in pairs(defaults) do 
        new[i] = v 
    end 
    idAssign = idAssign + 1 
    new.id = idPrefix..idAssign 
    new.strText = text or new.strText 
    new.fX = x or new.fX 
    new.fY = y or new.fY 
    if type(relative) == "boolean" then 
        new.bRelativePosition = relative 
    end 
    new:scale( fScale or new.fScale ) 
    new:font( strFont or new.strFont ) 
    new:align( horzA or new.bHorizontalAlign ) 
    visibleText[new] = true 
    return new 
end 
  
function dxText:text(text) 
    if type(text) ~= "string" then return self.strText end 
    self.strText = text 
    return true 
end 
  
function dxText:position(x,y,relative) 
    if not tonumber(x) then return self.fX, self.fY end 
    self.fX = x 
    self.fY = y 
    if type(relative) == "boolean" then 
        self.bRelativePosition = relative 
    else 
        self.bRelativePosition = true 
    end 
    return true 
end 
  
function dxText:color(r,g,b,a) 
    if not tonumber(r) then return unpack(self.tColor) end 
    g = g or self.tColor[2] 
    b = b or self.tColor[3] 
    a = a or self.tColor[4] 
    self.tColor = { r,g,b,a } 
    return true 
end 
  
function dxText:scale(scale) 
    if not tonumber(scale) then return self.fScale end 
    self.fScale = scale 
    return true 
end 
  
function dxText:visible(bool) 
    if type(bool) ~= "boolean" then return self.bVisible end 
    if self.bVisible == bool then return end 
    self.bVisible = bool 
    if bool then 
        visibleText[self] = true 
    else 
        visibleText[self] = nil 
    end 
    return true 
end 
  
function dxText:destroy() 
    self.bDestroyed = true 
    setmetatable( self, self ) 
    return true 
end 
  
function dxText:font(font) 
    if not validFonts[font] then return self.strFont end 
    self.strFont = font 
    return true 
end 
  
function dxText:postGUI(bool) 
    if type(bool) ~= "boolean" then return self.bPostGUI end 
    self.bPostGUI = bool 
    return true 
end 
  
function dxText:clip(bool) 
    if type(bool) ~= "boolean" then return self.bClip end 
    self.bClip = bool 
    return true 
end 
  
function dxText:wordWrap(bool) 
    if type(bool) ~= "boolean" then return self.bWordWrap end 
    self.bWordWrap = bool 
    return true 
end 
  
function dxText:type(type,...) 
    if not validTypes[type] then return self.strType, unpack(self.tAttributes) end 
    self.strType = type 
    self.tAttributes = {...} 
    return true 
end 
  
function dxText:align(horzA, vertA) 
    if not validAlignTypes[horzA] then return self.bHorizontalAlign, self.bVerticalAlign end 
    vertA = vertA or self.bVerticalAlign 
    self.bHorizontalAlign, self.bVerticalAlign = horzA, vertA 
    return true 
end 
  
function dxText:boundingBox(left,top,right,bottom,relative) 
    if left == nil then 
        if self.tBoundingBox then 
            return unpack(boundingBox) 
        else 
            return false 
        end 
    elseif tonumber(left) and tonumber(right) and tonumber(top) and tonumber(bottom) then 
        self.tBoundingBox = {left,top,right,bottom} 
        if type(relative) == "boolean" then 
            self.bRelativeBoundingBox = relative 
        else 
            self.bRelativeBoundingBox = true 
        end 
    else 
        self.tBoundingBox = false 
    end 
    return true 
end 
  
addEventHandler ( "onClientRender", getRootElement(), 
    function() 
        for self,_ in pairs(visibleText) do 
            while true do 
                if self.bDestroyed then 
                    visibleText[self] = nil 
                    break 
                end 
                if self.tColor[4] < 1 then 
                    break 
                end 
                local l,t,r,b 
                --If we arent using a bounding box 
                if not self.tBoundingBox then 
                    --Decide if we use relative or absolute 
                    local p_screenX,p_screenY = 1,1 
                    if self.bRelativePosition then 
                        p_screenX,p_screenY = g_screenX,g_screenY 
                    end 
                    local fX,fY = (self.fX)*p_screenX,(self.fY)*p_screenY 
                    if self.bHorizontalAlign == "left" then 
                        l = fX 
                        r = fX + g_screenX 
                    elseif self.bHorizontalAlign == "right" then 
                        l = fX - g_screenX 
                        r = fX 
                    else 
                        l = fX - g_screenX 
                        r = fX + g_screenX 
                    end 
                    if self.bVerticalAlign == "top" then 
                        t = fY 
                        b = fY + g_screenY 
                    elseif self.bVerticalAlign == "bottom" then 
                        t = fY - g_screenY 
                        b = fY 
                    else 
                        t = fY - g_screenY 
                        b = fY + g_screenY 
                    end 
                elseif type(self.tBoundingBox) == "table" then 
                    local b_screenX,b_screenY = 1,1 
                    if self.bRelativeBoundingBox then 
                        b_screenX,b_screenY = g_screenX,g_screenY 
                    end 
                    l,t,r,b = self.tBoundingBox[1],self.tBoundingBox[2],self.tBoundingBox[3],self.tBoundingBox[4] 
                    l = l*b_screenX 
                    t = t*b_screenY 
                    r = r*b_screenX 

Edited July 12, 2011 by Guest

[JR10]

You 've got to be kidding me, both are client sided scripts.

[CapY]

But how you know ?

And i dont know how to add a timer....How this:

"IDKWTFXD! - "..

"Visit Us At : http://www.blabla.com - "..

can show on the chatBox every 2 mins ?

[JR10]

How i know?, well, it's just by the looking at it, both got client functions.

and to output a message each 2 min do this:

setTimer(outputChatBox, 120000, 0, "Visit Us At : [url=http://www.blabla.com]http://www.blabla.com[/url]") 

[CapY]

Lol! Blabla.com really exist

Edited July 13, 2011 by Guest

[Jaysds1]

ok, Get back on topic, AND YES, Blable.com does exist, there are more site that exist that know one really knows about...

like

alpha.com.