botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 04-08-2006, 18:59   #1 (permalink)
Junior Member
 
Wolfie's Avatar
 
Join Date: Jan 2006
Posts: 5
Rep Power: 0
Wolfie is an unknown quantity at this point
Default mirc scripting, nick script for mirc

As vrea un .mrc care sa faca ceva de genu cand dau /nick sa zica nickname allready in use when is free do you want to take it ctrl + 1 yes ctrl + 2 no se poate sa ma ajutati ?
Wolfie is offline   Reply With Quote
Old 04-08-2006, 19:12   #2 (permalink)
spy
Junior Member
 
spy's Avatar
 
Join Date: Mar 2006
Location: Somewhere
Posts: 14
Rep Power: 0
spy is an unknown quantity at this point
Talking da .. try this .. !!

faci un nou fisier.txt si adaugi asta, apoi redenumeste fisier.txt in fisier.mrc ..si in mirc dai /load -rs fisier.mrc, si comenziile sunt: /ianick , /lasanick si /lista ..e bun scriptu try'it ..
Quote:
alias lista {
var %a = 1
.echo -a  $+ $timestamp /4!\ Sunt cu ochii pe 12 $+ $notify(0) nick/uri
if $notify(0) > 0 {
while %a <= $notify(0) {
.echo -a  $+ $timestamp * %a $+ . 12 $+ $notify(%a)
inc %a
}
}
}
alias lasanick {
.echo -a  $+ $timestamp * Am sters nickul 12 $+ $1 $+  din lista
.notify -r $1
}
alias ianick {
.echo -a  $+ $timestamp * Nickul 12 $+ $1 $+  este online
.notify $1
}
#nicksteal on
on ^1:UNOTIFY:{
if $nick != x {
.echo -a 4 $+ $timestamp * 4Nickul 12 $+ $nick $+ 4 e liber. Iau nicku`...
nick $nick
notify -r $nick
}
}
#nicksteal end

menu nicklist {
© Fura Nick
.$iif( $group(#nicksteal) == on , Disable, Enable ): {
if $group(#nicksteal) == on {
.disable #nicksteal
.echo -a  $+ $timestamp * *** Nick Steal disabled
}
else {
.enable #nicksteal
.echo -a  $+ $timestamp * *** Nick Steal enabled
}
}
.-
.Lista nicks ( $+ $notify(0) nicks):steallist
.-
. $iif( $notify($1) , Del $1 , Add $1 ) {
if ($notify($1)) lasanick $1
else ianick $1
}
.-
.Adauga un nick:ianick $$?="Baga nicku"
.Sterge un nick:lasanick $$?="Baga nicku"
.Sterge acest nick: {
var %a = $$?="Baga nr"
.echo -a  $+ $timestamp * Am sters nickul 12 $+ $notify(%a) $+  din lista
notify -r $notify(%a)
}
.-
.Info {
.echo -a  $+ $timestamp * *** 4Script de furat nickuri
.echo -a  $+ $timestamp * *** Comenzi: ianick nick, lasanick nick, lista
.echo -a  $+ $timestamp * *** © 22 July 2006 by Fido
}
}
spy is offline   Reply With Quote
Reply

Bookmarks


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
#Mirc-Help xlmpq Botlending channels 5 19-12-2007 15:50
mirc scripting, mesajele cu /ame Tovarashii Tcl scripting 14 19-06-2007 16:04
mirc scripting [OFF TOPIC] Kurupt Tcl scripting 4 29-08-2006 11:15
mirc scripting, ban pentru in juraturi Tovarashii Tcl scripting 0 25-10-2005 17:50
helper script for mirc UniversaliA Botlending channels 20 29-05-2005 01:25


All times are GMT +3. The time now is 13:01.


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.