WhatPulse Forums » Support » Client software v » New Eggdrop-TCL Script please!!!! Welcome back, Guest.


Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
New Eggdrop-TCL Script please!!!!
02-02-2009, 11:39 PM (This post was last modified: 02-03-2009 06:09 PM by X-Kal.)
Post: #4
New Eggdrop-TCL Script please!!!!
Here is my Script its very very simple but it runs

Syntax: !pulse USERID

Code:
bind pub -|- !pulse whatpulse

package require http

proc whatpulse { nick uhost handle chan text } {
global whatpulse

set connection [http::config -useragent "Mozilla 4.0"]
catch {set connection [http::geturl http://whatpulse.org/api/user.php?UserID=$text -timeout 3000]} error

set data [http::data $connection]
http::cleanup $connection

regexp -- {^.*?<UserStats>(.*?)</UserStats>} $data -> tabelle1

regexp -- {^.*?<AccountName>(.*?)</AccountName>} $tabelle1 -> post1

regexp -- {^.*?<Country>(.*?)</Country>} $tabelle1 -> post2

regexp -- {^.*?<DateJoined>(.*?)</DateJoined>} $tabelle1 -> post3

regexp -- {^.*?<TotalKeyCount>(.*?)</TotalKeyCount>} $tabelle1 -> post4

regexp -- {^.*?<TotalMouseClicks>(.*?)</TotalMouseClicks>} $tabelle1 -> post5

regexp -- {^.*?<TotalMiles>(.*?)</TotalMiles>} $tabelle1 -> post6

regexp -- {^.*?<Rank>(.*?)</Rank>} $tabelle1 -> post7

regexp -- {^.*?<TeamName>(.*?)</TeamName>} $tabelle1 -> post8

regexp -- {^.*?<TeamMembers>(.*?)</TeamMembers>} $tabelle1 -> post9

regexp -- {^.*?<TeamKeys>(.*?)</TeamKeys>} $tabelle1 -> post10

regexp -- {^.*?<TeamClicks>(.*?)</TeamClicks>} $tabelle1 -> post11

regexp -- {^.*?<TeamMiles>(.*?)</TeamMiles>} $tabelle1 -> post12

regexp -- {^.*?<TeamRank>(.*?)</TeamRank>} $tabelle1 -> post13


putquick "PRIVMSG $chan : AccountName: $post1"
putquick "PRIVMSG $chan : Country: $post2"
putquick "PRIVMSG $chan : DateJoined: $post3"
putquick "PRIVMSG $chan : TotalKeyCount: $post4"
putquick "PRIVMSG $chan : TotalMouseClicks: $post5"
putquick "PRIVMSG $chan : TotalMiles: $post6"
putquick "PRIVMSG $chan : Rank: $post7"
putquick "PRIVMSG $chan : TeamName: $post8"
putquick "PRIVMSG $chan : TeamMembers: $post9"
putquick "PRIVMSG $chan : TeamKeys: $post10"
putquick "PRIVMSG $chan : TeamClicks: $post11"
putquick "PRIVMSG $chan : TeamMiles: $post12"
putquick "PRIVMSG $chan : TeamRank: $post13"

}

putlog "Whatpulse.by.Viruszero"



please change the xx from http::geturl because i´m not allowed to post url befor i have 15 posts ^^
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
New Eggdrop-TCL Script please!!!! - VirusZero - 02-02-2009 11:39 PM
New Eggdrop-TCL Script please!!!! - X-Kal - 02-03-2009, 06:09 PM

Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  [SOLVED] .sh permissions script fatsa 4 2,170 08-04-2015 12:02 AM
Last Post: LukeLR
  script to check if running or not Sc0rian 0 2,209 07-09-2013 02:00 PM
Last Post: Sc0rian
  Change to setup script austinmarton 3 2,286 04-08-2011 04:53 PM
Last Post: hostname
  mIRC 7.1 and mIRC script Tzan 6 6,744 09-11-2010 04:47 PM
Last Post: Tzan

Forum Jump:


User(s) browsing this thread: 1 Guest(s)