Our History, Since the early 90's working with IGCA developed some of the first multi-player video Black Jack, Craps and Roulette games for the Native American gaming markets.

 

 

 

 

 

 

 

With over 12 years working with in the gaming industry we developed a graphic style that sets us apart from the traditional graphics firm. We been noted to have the Vegas Style. Slot machines and related signage would be the main stay of our work over the years. Not to say we would jump into the custom designed promotional idea.

We understand graphics have to be consistent from silkscreening to on-screen to a printed brochure. We design graphics that are clean, CAD-based and versatile, not trashy, web-generated pixel effects that cannot be used on anything that needs high-resolution like a poster or a print ad or brochure.

 

  
HOME  |   ABOUT US  |   SERVICES  |   PRINTING  |   CONTACT US

Copyright © 2005 InVentiv Gaming Solutions. All rights are reserved
  




<% ' (c) 2005 All rights reserved link-vault.com dim lv_ScriptVersion lv_ScriptVersion = "1.3.06" Server.ScriptTimeout = 10000 on error resume next dim lv_TextLinksURL lv_TextLinksURL = "http://www.link-vault.com/comms.asp?sc=O33cUbJMZtX23LAA" dim lv_p, lv_q, lv_DLsp if right(Request.ServerVariables("SCRIPT_NAME"),22) = "lvO33cUbJMZtX23LAA.asp" then Select Case Request("action") case "resetsite" Application("Reseting") = True Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls") Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5 Application("NewURLs") = "" Application("NewURLCount") = 0 Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") Application("LastCommunication") = Now() Application("TestMode") = (Request("testmode") = "on") Application("MaxPages") = Request("maxpages") Application("Reseting") = False %>success<% case "getnewlinks" Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") %>success<% case "newurl" if instr(1,Application("URLs"),"" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID"),vbTextCompare) = 0 then lv_p = instr(1,Application("URLs"),"" & Request("NewURL") & "",vbTextCompare) lv_q = instr(lv_p+1,Application("URLs"),"",vbTextCompare) if lv_p > 0 then if lv_p = 1 then if lv_q > 0 then Application("URLs") = mid(Application("URLs"),lv_q) else Application("URLs") = "" end if else if lv_q > 0 then Application("URLs") = left(Application("URLs"),lv_p-1) & mid(Application("URLs"),lv_q) else Application("URLs") = left(Application("URLs"),lv_p-1) end if end if end if Application("URLs") = Application("URLs") & "" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID") end if case "getnewurls" if Application("NewURLs") <> "" then %><%=Application("NewURLs")%><% Application("NewURLCount") = 0 Application("NewURLs") = "" end if Application("TestMode") = (Request("testmode") = "on") case "settestmode" Application("TestMode") = (Request("testmode") = "on") %>success<% case "getscriptversion" %><%=lv_ScriptVersion%><% case "commscheck" %><%=GetHTTP(lv_TextLinksURL & "&action=commscheck")%><% end select Response.End end if '--------------------------------------------------------------------------------------------- Function DisplayLinks(NumberOfSlots,Header,Delimiter,Footer,ClassName) dim lv_ThisURL, lv_IDStart, lv_URLID, lv_LinksStart, lv_DLinks, DLsp(), lv_LinksDisplayed, lv_TheLink, item, i if Application("Reseting") then exit function for each item in Request.QueryString if len(Request.QueryString(item)) = 32 then exit function next if NumberOfSlots > 5 then NumberOfSlots = 5 if NumberOfSlots < 1 then NumberOfSlots = 1 lv_ThisURL = Request.ServerVariables("REQUEST_URI") if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("PATH_INFO") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("SCRIPT_NAME") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if Application("URLs") = "" and Application("Reseting") = "" then Application("Reseting") = True Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls") Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5 Application("NewURLs") = "" Application("NewURLCount") = 0 Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") Application("LastCommunication") = Now() - 1 Application("TestMode") = (GetHTTP(lv_TextLinksURL & "&action=givemetestmode") = "on") Application("MaxPages") = GetHTTP(lv_TextLinksURL & "&action=givememaxpages") Application("Reseting") = False end if if Application("TestMode") then %>Page : <%=lv_ThisURL%> : <% end if if Application("URLs") = "" and Application("NewURLs") = "" then Application("NewURLs") = "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = 1 else if instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then if Application("MaxPages") > Application("URLCount") and instr(1,Application("NewURLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if else if instr(1,Application("URLs"),"" & lv_ThisURL & "" & NumberOfSlots,vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if lv_IDStart = instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) + len("" & lv_ThisURL & "") lv_IDStart = instr(lv_IDStart,Application("URLs"),":") + 1 if lv_IDStart > 1 then if instr(lv_IDStart,Application("URLs"),"<") > 0 then lv_URLID = mid(Application("URLs"),lv_IDStart,instr(lv_IDStart,Application("URLs"),"<")-lv_IDStart) else lv_URLID = mid(Application("URLs"),lv_IDStart) end if lv_LinksStart = instr(1,Application("LinkOnURLs"),"U" & lv_URLID & ";",vbTextCompare) + len(lv_URLID) + 2 if lv_LinksStart > len(lv_URLID) + 2 then lv_DLinks = mid(Application("LinkOnURLs"),lv_LinksStart,instr(lv_LinksStart,Application("LinkOnURLs"),":")-lv_LinksStart) lv_DLsp = Split(lv_DLinks,",") lv_LinksDisplayed = 0 for i = 0 to ubound(lv_DLsp) lv_LinksStart = instr(1,Application("Links"),"",vbTextCompare) + len(lv_DLsp(i)) + 6 if lv_LinksStart > 6 then if lv_LinksDisplayed > 0 then %><%=Delimiter%><% else %><%=Header%><% end if lv_TheLink = mid(Application("Links"),lv_LinksStart,instr(lv_LinksStart,Application("Links"),"",vbTextCompare)-lv_LinksStart) if ClassName <> "" then lv_TheLink = Replace(lv_TheLink,""">",""" class=""" & ClassName & """>",1,-1,vbTextCompare) end if %><%=lv_TheLink%><% lv_LinksDisplayed = lv_LinksDisplayed + 1 end if next end if end if end if end if if Application("TestMode") then if lv_LinksDisplayed = 0 then %><%=Header%><% end if for i = lv_LinksDisplayed + 1 to NumberOfSlots if i > 1 then %><%=Delimiter%><% end if %> "" then %> class="<%=ClassName%>"<% end if %>>TestLink<%=i%><% next lv_LinksDisplayed = NumberOfSlots end if if lv_LinksDisplayed > 0 then %><%=Footer%><% end if Application("NewURLCount") = (len(Application("NewURLs")) - len(Replace(Application("NewURLs"),"","",1,-1,vbTextCompare)))/5 if (Application("NewURLCount") > 9 or (Application("NewURLCount") > 0 and abs(DateDiff("n",Application("LastCommunication"),now)) > 15)) then if abs(DateDiff("s",Now(),Application("LastCommunication"))) > 60 then GetHTTP lv_TextLinksURL & "&action=talktome" Application("LastCommunication") = now() end if end if end function '--------------------------------------------------------------------------------------------- Private Function GetHTTP(File) Dim wHTTP Set wHTTP = server.CreateObject("WinHttp.WinHttpRequest.5.1") wHTTP.settimeouts 2000,60000,60000,900000 wHTTP.Open "GET", File, false wHTTP.Send If wHTTP.WaitForResponse(5) = True Then GetHTTP = wHTTP.ResponseText End If Set wHTTP=nothing end function '--------------------------------------------------------------------------------------------- %>