Recent Posts

Pages: 1 2 [3] 4 5 ... 10
21
Requests / Write to webpage
« Last post by Ace on March 15, 2009, 06:26:37 AM »
Quote from: Reason
hmmm...
gimme a day or so i'll see what i can do.
You'll need to have a mysql database i can use though

Don't have one
22
Requests / Google Script
« Last post by Ace on March 15, 2009, 06:25:02 AM »
Should we be posting gnome scripts that annoy the crap out of people sometimes?  For the amount of people we could get, I go against it.  You can send it via PM.
23
Requests / Google Script
« Last post by Reason on March 14, 2009, 09:11:33 PM »
Double Posts are for Admins
24
Requests / Google Script
« Last post by riffruff on March 14, 2009, 06:54:21 PM »
Quote from: Hale_
It was two topics about the same thing. This one you just requested it and you requested it in the other one too, which kind of makes it the same thing.
Silly hale...
25
Fail Bot / Ever Wanted To Be a Beta Tester...
« Last post by riffruff on March 14, 2009, 06:51:23 PM »
Quote from: Reason
Please note every beta is registered to YOUR computer using your login name and your computer name to insure you don't hand it out to people who aren't beta testers..
do I need to crack it some then?
26
Fail Bot / Ever Wanted To Be a Beta Tester...
« Last post by Reason on March 14, 2009, 12:52:53 PM »
Now you can be! Beta testers get alot of extra things like

Public Versions a whole week before they come out
Test Beta Versions for bugs and glitches
Get EVERY beta FREE until you don't want any more!*
*After a one time fee of 5 dollars
All you have to do is send 5$ to madkinsz@yahoo.com and give PM Me your paypal account
Please note every beta is registered to YOUR computer using your login name and your computer name to insure you don't hand it out to people who aren't beta testers..
27
Fail Bot / I need some ideas...
« Last post by Reason on March 14, 2009, 12:39:05 PM »
We'll i just recently added the option for variables in chat, and I came up with an idea... What if i made a 100% customize able Variable System...

Example
Quote
To Get a Random user in the channel you would do
%channel(%rand(%co))
Explanation:
%channel (integer)
 Gets user name of the user in the position Integer in the channel
%rand (integer)
 Gets a random number with integer being the max
%co
 The current channel count
Another Example
Quote
To get a random users clan
%channel(%rand(%co)).clan
or to get a ping
%channel(%rand(%co)).ping
Or like hero and i were talkinga bout being able to make your own variables to replace current ones so like you could make
Channel.RandomUser = %channel(%rand(%co))
and Channel.RandomUser.Ping would be the same as
%channel(%rand(%co)).ping

So What do u guys think?
And what variables should be built in for users to access?
28
Requests / Google Script
« Last post by Vector on March 14, 2009, 09:25:54 AM »
Gah, I feel like tardiness will cost me one.

Try this out. So far, it just returns results, with a link to each result:

Code: [Select]
'gp
'0.1
'&Google Plugin:Vector:Searches google, and returns the results of the search
'*
'*
'*
'*
'*Fun

Const gpAcc = 20

Public xmlGet, arrFloodProtect

Sub gp_Event_Load()
  Set xmlGet = CreateObject("Microsoft.XmlHttp")
End Sub

Sub gp_Event_UserTalk(Username, Flags, Message, Ping)
  GetDBEntry Username, a, f : If a < gpAcc Then Exit Sub

  If Left(Message, Len(BotVars.Trigger) + 6) = BotVars.Trigger & "gfind " Then
    getQuery = Right(Message, Len(Message) - (Len(BotVars.Trigger) + 6))
    getQuery = Replace(getQuery, " ", "+")
    Call retrieveResult(getQuery)
  End If
End Sub

Sub retrieveResult(getQuery)
  xmlGet.Open "GET", "http://www.google.com/search?hl=en&q="&getQuery&"&btnG=Google+Search&aq=f&oq=", False
  xmlGet.Send ""

  content = xmlGet.ResponseText

  getNumResults = Split(Split(content, "Results ")(1), "&nbsp;</div>")(0)
  getNumResults = strip(getNumResults)
  AddQ getNumResults

  parseResults = Split(Split(content, "Search Results")(1), "http://")

  idx = -1
  For i=0 to Ubound(parseResults)
    getLink = Split(parseResults(i), """")(0)

    If Len(getLink) > 25 Then
      getLink = "http://" & Split(getLink, "/")(0) & " [link truncated]"
    Else
      getLink = "http://" & getLink
    End If

    If InStr(parseResults(i), "this.href,'','','res'") Then
      getText = Split(parseResults(i), "this.href,'','','res'")(1)
      getText = Split(getText, "</a>")(1)
      getText = Replace(getText, "<a href""", "")
      getText = Strip(getText)
      getText = Trim(Left(getText, Len(getText) - 9))
      If Len(getText) > 140 Then getText = Left(getText, 140) & " ..."
      getElem = getText & " Link: " & getLink

      idx = idx + 1
      ReDim Preserve arrFloodProtection(idx)
      arrFloodProtection(idx) = getElem
    End If
  Next

  For i=0 to Ubound(arrFloodProtection)
    AddQ arrFloodProtection(i)
  Next
End Sub

Function strip(parseOutChars)
  tagF = Array("&quot;", "<b>", "</b>")
  tagR = Array("""", "", "")

  getTagCount = Ubound(Split(parseOutChars, "<"))

  For i=1 to getTagCount
    getTag = Split(Split(parseOutChars, "<")(i), ">")(0)
    parseOutChars = Replace(parseOutChars, getTag, vbNullString, 1, 1)
  Next
  parseOutChars = Replace(parseOutChars, "<>", vbNullString)

  i = 0
  For each tag in tagF
    parseOutChars = Replace(parseOutChars, tag, tagR(i))
    i = i + 1
  Next

  strip = parseOutChars
End Function
29
Scripting / ChatBot problem.
« Last post by EKLIPz on March 14, 2009, 08:44:39 AM »
Yay, got it to work. I trashed the one I was using, and now I am using vector's.
http://www.stealthbot.net/board/index.php?...st&p=306905
30
Scripting / ChatBot problem.
« Last post by Reason on March 14, 2009, 07:11:24 AM »
u also need the util.lib file i have no idea where to find it, but you need it.
Pages: 1 2 [3] 4 5 ... 10