Welcome To Forum #Pahang

webmaster.webchat.org
 
HomePortalCalendarGalleryFAQSearchRegisterMemberlistUsergroupsLog in

Share | 
 

 Addon Bot ~> !Seen System

View previous topic View next topic Go down 
AuthorMessage
gangstar



Number of posts : 46
Age : 27
Localisation : .....w.H.....
Registration date : 2007-07-22

PostSubject: Addon Bot ~> !Seen System   Wed Apr 30, 2008 3:50 pm

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Tsirk Script 4.5 Edition by tsirk Gonna be the best
; www.tsirkscript.cjb.net
; Copyright 2002
; WARNING: Do not change/rip/modify/reproduce this script. This is free and use it at your own risk.
; Anything that may happen to your computer is not my problem.
; Codename: tsirk Server: DAlnet Channel: #Blangko, #Tsirkscript E-mail: tsirk@blangko.org
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

menu menubar,channel,status {
Seen System:dialog -m seen seen
}

dialog seen {
title "Seen system"
size -1 -1 137 119
option dbu
text "Tsirk Script 4.5 Edition" 2, 35 1 60 7, Center Disable
link "www.tsirkscript.cjb.net" 3, 39 9 110 14,
box "seen set-up" 4, 2 17 132 100, Disable
check "enable seen system" 5, 7 31 62 7,
text "seen trigger:" 6, 7 41 30 7,
edit "" 7, 37 40 40 10,
button "view seen logs" 8, 82 32 45 10,
button "erase seen logs" 9, 82 42 45 10,
combo 10, 7 52 70 65,
button "add channel" 11, 82 70 45 10,
button "remove channel" 12, 82 80 45 10,
button "reset channels" 13, 82 90 45 10,
button "save" 14, 82 100 45 10, Ok
}
on *:dialog:seen:*:*:{
if ($devent == init) {
update.seenchannel
if (%seensystem == $null) { .disable #lookuser | did -b $dname 7 | did -b $dname 10 | set %seensystem off }
if (%seensystem == on) { .enable #lookuser | did -e $dname 7 | did -e $dname 10 | did -c seen 5 }
if (%seentrigger != $null) { did -a seen 7 %seentrigger }
}
if ($devent == edit) {
if ($did == 10) { set %seentempchan $did(10).text }
if ($did == 7) { set %seentrigger $did(7).text }
}
if ($devent == sclick) {
if ($did == 10) { set %setup.seenchannel.selected $did($dname,10,$did(10).sel) }
if ($did == 11) {
set %seenchannel %seenchannel $+ %seentempchan $+ ,
update.seenchannel
}
if ($did == 12) {
set -u1 %setup.rc %setup.seenchannel.selected $+ ,
set %seenchannel $remove(%seenchannel,%setup.rc)
update.seenchannel
}
if ($did == 13) { unset %seenchannel | update.seenchannel }
if ($did == 5) {
if (%seensystem == on) { set %seensystem off | .disable #lookuser | did -b $dname 7 | did -b $dname 10 | halt }
if (%seensystem == off) { set %seensystem on | .enable #lookuser | did -e $dname 7 | did -e $dname 10 | halt }
}
if ($did == Cool { run seen\users.ini }
if ($did == 9) { write -c seen\users.ini }
}
}
alias -l update.seenchannel {
did -r seen 10
set %temp.total $count(%seenchannel,$chr(44))
set %temp.count 0
:start
inc %temp.count 1
did -a seen 10 $gettok(%seenchannel,%temp.count,44)
if (%temp.count < %temp.total) { goto start }
}

on *:text:*:%seenchannel: {
if (%seensystem == on) {
if (%seenflood- [ $+ [ $nick ] $+ [ $chan ] ] == 3) { .notice $nick Wait after 1 minute to perform my %seentrigger command. | .ignore -u60 $wildsite | goto end }
if (%seentrigger == $1) && ($2 == $null) { msg $chan $logo $nick $+ : correct usage: %seentrigger ie. %seentrigger $nick | halt }
if (%seentrigger == $1) && ($2 == $me) {
if ($me isop $chan) { kick # $nick Im just here and kicking you. | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
if ($me !isop $chan) { msg # $logo $nick $+ : Im just here and . | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
}
if (%seentrigger == $1) && ($2 == $nick) {
if ($me isop $chan) { kick $chan $nick Stop playing with my %seentrigger command $nick $+ . | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
if ($me !isop $chan) { msg $chan $logo $nick $+ : Stop playing with my %seentrigger command $nick $+ . | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
}
if (%seentrigger == $1) && ($2 ison $chan) { msg $chan $logo $nick $+ : Just look for $2 by your self in # $+ . | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
if (%seentrigger == $1) && ($readini seen\users.ini $2 info == $null) { msg $chan $logo $nick $+ : no matches found for $2 $+ . | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
if (%seentrigger == $1) && ($readini seen\users.ini $2 info != $null) { set %savetime $readini seen\users.ini $2 info | set %duration $calc($ctime - %savetime) | msg $chan $logo $nick $+ : $2 was last seen $duration(%duration) ago. | inc -u60 %seenflood- [ $+ [ $nick ] $+ [ $chan ] ] | halt }
}
:end
}

on 1:Load: {
if ($version < 6.0) {
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 4Error while loading.
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14 Please download mIRC32 version 6.0 or higher
/unload -rs seen.dll
}
}
on 1:start:{
inc %startup 1
echo -s $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14Tsirk Script Seen Addon Ver. 1 is running for %startup $+ x $time(dd/mm/yyyy) $time(hh:nn:tt)
}
Back to top Go down
View user profile http://www.OldHavy.page.tl
 
Addon Bot ~> !Seen System
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Craigtone's System
» Blue's Bank event system
» Ballute System for MG Rick Dias
» In-Hand Entertainment System
» ST-120 system in Costa Rica

Permissions in this forum:You cannot reply to topics in this forum
Welcome To Forum #Pahang :: Selamat Datang Ke Forum #Pahang :: MIRC-
Jump to: