GameSurge IRPGLogin.tcl

TCL Code

+ 0 likes

Please Register to submit score.

Average Score	3.0
Scores Submitted	1
Date Added	May 04, 2006
Last Updated	Jun 23, 2006
Tags	game

Introduction

Script comes with Settings examples and information.
Script is designed specifically for the GameSurge #IRPG channel.

Grab the Code

#####################################
## IRPGLogin.tcl v1.c (GameSurge)  ##
##                                 ##
## This Script Could be so much    ##
## better. I looked around for a   ##
## tcl to log my bot into IRPG on  ##
## GameSurge and google.com found  ##
## nothing, so I made this. If you ##
## have found, or made a better    ##
## way to login please let me know ##
##                                 ##
#####################################
#####################################
## Contact                         ##
## Email: getafix@fragon.net       ##
## IRC:                            ##
## Nick - Get_A_Fix                ##
## Networks: DALnet, GameSurge     ##
## Channels:                       ##
## * dn = dalnet : gs = gamesurge  ##
##    #mIRC (dn,gs)                ##
##    #eggdrop.conf (dn,gs)        ##
##    #tclscript (dn,gs)           ##
##    #IRPG (gs)                   ##
#####################################
#####################################
##                                 ##
## Config:                         ##
## You only need to edit 3 vars    ##
##                                 ##
## "myacct" - Your IRPG Account    ##
## "mypass" - Your IRPG Password   ##
## "mychan" - Your Home Channel    ##
##                                 ##
## IRPG on GameSurge doesn't allow ##
## eggdrop bots to remove any bans ##
## set within the channel. Please  ##
## Configure you eggdrop for abide ##
## by Channel Rules.               ##
##                                 ##
## Eggdrop Configuration:          ##
##                                 ##
## Adding the IRPG Bot to yours.   ##
## This is done from DCC console.  ##
##   YOU MUST TYPE THESE CMDS      ##
##                                 ##
##1).+user IRPG *!*irpg@irpg.net   ##
##2).chattr IRPG +f|o #IRPG        ##
##                                 ##
## Removing Ban-Time from chanset  ##
##1) .chanset #IRPG ban-time 0     ##
##                                 ##
## Setting NOTICE Option ON:       ##
##                                 ##
## This TCL checks for a notice    ##
## from both IRPG and ChanServ.    ##
## You MUST set your notice option ##
## ON for the Account the bot logs ##
## into. This can be done via DCC  ##
##                                 ##
## Command: .msg IRPG notice on    ##
##                                 ##
#####################################
#####################################
##                                 ##
## Commands:                       ##
##                                 ##
## DCC Console - .irpg             ##
## Partyline Login Command         ##
##                                 ##
## Public Command - +irpg          ##
## You wont want to type this in   ##
## #IRPG so it can be initiated on ##
## any other channel you may be on ##
#####################################
##############EndConfig##############

set irpgver "1.c"
set irpgnick "IRPG"
set myacct "yourIRPGaccount"
set mypass "yourIRPGpassword"
set mychan "#yourHOMEchannel"
set chanservice "ChanServ"

bind notc - "*Idle RPG Channel*" irpg:notc
proc irpg:notc {nick uhost hand text dest} {
  global botnick irpgnick myacct mypass chanservice 
  if {($chanservice == "") || ([lsearch -exact [split [string tolower $chanservice]] [string tolower $nick]] != -1)} {
    putserv "PRIVMSG $irpgnick :login $myacct $mypass"
    putlog "IRPG Auto Login Initiated.. Request is Being Processed."
    unbind notc - "*Idle RPG Channel*" irpg:notc
    bind notc - "*logged you in to account*" irpgsucc:notc
  }
}

proc irpgsucc:notc {nick uhost hand text dest} {
  global botnick irpgnick myacct mychan irpgver
  if {($irpgnick == "") || ([lsearch -exact [split [string tolower $irpgnick]] [string tolower $nick]] != -1)} {
    putlog "Auto Login Successfull for Account: $myacct - \002I\002rpg \002A\002uto\002L\002ogin \002v\002$irpgver"
    puthelp "PRIVMSG $mychan :Auto Login Successfull for Account: $myacct - \002IRPG\002 \002A\002uto\002L\002ogin \002v\002$irpgver"
    unbind notc - "*logged you in to account*" irpgsucc:notc
  }
}

bind dcc - irpg irpglogin:dcc
proc irpglogin:dcc {hand idx args} {
 global botnick irpgnick myacct mypass 
 putserv "PRIVMSG $irpgnick :login $myacct $mypass"
 putlog "Login Request sent to $irpgnick"
 bind notc - "*logged you in to account*" irpgsucc:notc
}

bind pub m +irpg manlog:irpg
proc manlog:irpg {nick uhost hand chan arg} {
 global botnick irpgnick myacct mypass
 putserv "NOTICE $nick :Login Request sent to $irpgnick" 
 putserv "PRIVMSG $irpgnick :login $myacct $mypass"
 bind notc - "*logged you in to account*" irpgsucc:notc
}

putlog "\002IRPG\002 \002A\002uto\002L\002ogin \002v\002$irpgver (GameSurge) Loaded"

Comments

(7) RSS

Go to Bottom

Zybez

Comments: 28

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on May 5, 2006 3:55 pm

What does this do, and what is TCL?

Get_A_Fix

Comments: 12

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on Jun 23, 2006 6:32 am

Sorry, havent been back to check on any posts.

Firstly, TCL stands for Tool Command Language. This is a Simple Scripting Language and library often used for GUI, string-manipulation, testing, and integration of multiple components.

Tutorials can be found at: http://en.wikipedia.org/wiki/User:BarkerJr#Programming - http://www.tcl.tk/man/tcl8.5/tutorial/tcltutorial.html - http://wiki.tcl.tk/1681 - http://wiki.tcl.tk/1304 - http://www.tcl.tk/scripting/primer.html - http://www.suninet.nl/tclguide/ - http://www.peterre.com/characters.html

This script was made because I had searched for ages for a TCL able to log my eggdrop into the GameSurge IRPG bot. I did not find anything on any tcl archive, so I decided to make my own. I am not really a coder, more like someone who play\'s with code, so the only way i could think of to start this script was creating a notice bind on the onjoin chanserv sends when you join #IRPG.
This script catches two notices.
1) First notice is from chanserv when eggdrop joins #IRPG - This initiates the login process and your login/passwd is sent.
2) Second notice is the \"success\" notice from IRPG to eggdrop telling it login was successfull - this returns a message to \"mychan\" informing you that the login was successfull.
I have updated the script just alittle, as I had forgot to mention NOTICE setting needs to be enabled on the IRPG account the bot is to use.
Please read ALL the settings, and follow the examples to best use this script.

Pingo

Comments: 1

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on Feb 6, 2007 11:54 am

lol

mentalglitch

Comments: 23

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on May 13, 2008 8:06 pm

lol.. instead of triggering this via channel notice onjoin you should check the bots host/user (as its easy for any user to change their nick to irpg and send a channel notice which would allow them to receive your login info) and epicly f3ck up your account

mentalglitch

Comments: 23

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on May 14, 2008 1:32 pm

oh also.. wouldnt using an eggdrop for this game be considered cheating? ;p

Get_A_Fix

Comments: 12

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on May 30, 2008 5:04 am

lol, this is an \'old\' script now. There are better ways to do it, and maybe I should update this, but I hardly script anymore and don\'t hang on gamesurge IRPG.
Feel free to update :) or make something more efficient.

mentalglitch

Comments: 23

TCL Snippet: GameSurge IRPGLogin.tcl
Posted on Jun 3, 2008 8:37 pm

lol I\'ve givin up irc mostly tbh most networks are epic fail now a days anyway. n I choose to mod eggdrops by core source files (c/c++) i don\'t like the eggdrop tcl interpreter much ;p though i love TCL as a stand-alone language it happens to be my first loved language =D
but if anyone wants an updated version of this or for a different irc network etc. pm me the request id be happy to help

GameSurge IRPGLogin.tcl

Introduction

Grab the Code

Comments

Get_A_Fix

My Snippet Tags

Contact

Sponsors


Last seen: May 26, 2008 Profile Snippets (5) Images (1) Comments Received (17) Comments Submitted (12) Forum Posts (7)