hmmm so Im lookign to change a script I have for myself into a bot one for tcl
alias Abuse {
mode #Quarantine +I $1
Set %abuse $1
svso $1 -
svsjoin $1 0
svsjoin $1 #Quarantine
uline - $+ $1
notice $1 You have been Placed under Quarantine. Please do not try to part #Quarantine, Join another channel or change nicks untill you have either been cleared or sentenced.
}
alias QResult {
if ($1 == 1) { kill %abuse $darkestirc Quarantine Result: Killed. Reason: $$?="Enter Reason" | unset %Abuse }
if ($1 == 2) { dns %Abuse | gline *@ $+ %ip 7d Quarantine Result: You have been GLined. Nick: %Abuse Duration: 7Days. Appeal: email admin@vamp-inn.net Reason: $$?="Enter Reason" | unset %Abuse }
if ($1 == 3) { dns %Abuse | kline *@ $+ %ip 7d Quarantine Result: You have been KLined. Nick: %Abuse Duration: 7Days. Appeal: None for KLine. Please try different Server! Reason: $$?="Enter Reason" | unset %Abuse }
if ($1 == 4) { dns %Abuse | zline *@ $+ %ip 7d Quarantine Reuslt: You have been ZLined. Nick: %Abuse Duration: 7Days. Appeal: None for ZLine Reason: $$?="Enter Reason" | unset %Abuse }
}
on *:NICK:{
if ($nick == %Abuse) {
svsnick $newnick %Abuse $ctime
msg #Quarantine Error: You may not change nick while in Quarantine!
}
}
menu Channel {
{-Quarantine-}
.$iif(%Abuse,Stop,Start): $iif(%Abuse,/stopAbuse,/Abuse $$?="Who Should be Quarantined?"
}
menu Nicklist {
$iif(N isincs $usermode,{-Quarantine-})
.$iif(%Abuse,Stop,Quarantine $$1): $iif(%Abuse,/abuseoff,/Abuse $$1)
.$iif(%Abuse == $$1,Result)
..Kill: QResult 1
..Kline: QResult 3
..GLine: QResult 2
..ZLine: QResult 4
}
on ^*:SNOTICE:*: {
if (is now a isin $1-) {
svso %abuse -
svsjoin %abuse #Quarantine
}
}
on *:Part:#Quarantine: {
if ($nick == %Abuse) {
svsjoin %abuse #Quarantine
.msg #Quarantine You may not leave $chan While under Quarantine!
}
}
alias Abuseoff {
mode #Quarantine -I %abuse
.notice %Abuse You have been freed from Vamp-Inn Quarantine.
svspart %abuse #Quarantine You are free to go $darkestirc
echo -a Quanrantine Shut Off
unset %Abuse
}
on *:TEXT:*Join*:#Services:{
if ($2 == %Abuse) && ($7 != #Quarantine) { svspart %abuse $7 :Quarantined. }
dont know where to post this now as forums are gone and its a request for help
please someone help me turn this into a bots tcl script ty :D
< http://picpaste.com/fail.JPG > image of all this code failing
ach thats easy I have it on my script, its a full quarantine using m_uline on unreal. when a user is quarantined they are pulled out of all rooms and then force joined to another.
here is part of the code...
on *:Part:#Quarantine: {
if ($nick == %Abuse) {
svsjoin %abuse #Quarantine
.msg #Quarantine You may not leave $chan While under Quarantine!
}
}
that little peice of course stops them from parting and rejoins them to #quarantine. they cannot join any other channel or change nicks either :P
you need to add this to your aliases
dcx {
if ($isid) { return $dll(dll\dcx.dll,$1,$2-) }
else { dll "dll\dcx.dll" $1 $2- }
}
udcx {
if ($dcx(IsUnloadSafe)) { $iif($menu, .timer 1 0) dll -u dcx.dll }
else { echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
}
xdid {
if ( $isid ) { return $dcx( _xdid, $1 $2 $prop $3- ) }
dcx xdid $2 $3 $1 $4-
}
xdialog {
if ( $isid ) { return $dcx( _xdialog, $1 $prop $2- ) }
dcx xdialog $2 $1 $3-
}
xpop {
if ( $isid ) { return $dcx( _xpop, $1 $prop $2- ) }
dcx xpop $2 $1 $3-
}
xpopup {
if ( $isid ) { return $dcx( _xpopup, $1 $prop $2- ) }
dcx xpopup $2 $1 $3-
}
mpopup { dcx mpopup $1 $2 }
xdock {
if ($isid) { return $dcx( _xdock, $1 $prop ) }
dcx xdock $1-
}
xtray {
if ($isid) { return $dcx(TrayIcon, $1 $prop $2-) }
dcx TrayIcon $1-
}
tab {
var %i = 1, %tab | while (%i ~= $0) {
if ($eval($+($,%i),2) != $null) { %tab = $instok(%tab,$eval($+($,%i),2),$calc($numtok(%tab,9) + 1),9) }
inc %i
}
return %tab
}
shell { return $scriptdirshell.dll }