Skip to content
TechGear007 TG007 Technology · IRC · Community
Search
GuarDDog v. 5

gd5.0a

A TG007 community discussion started by biohazard.

Forum Home Search Forum Sign In
Discussion 36 posts
Page 2 of 2
Open
Topic #6094 · 36 published posts · 3,684 views
The Gate Keeper GuarDDog Creator Member #47
#33,339

bio, see if you can get me on MSN. I will sit down with you and try and work this out, hopefully we can solve it. I wouldn't recommend setting up anything more than it needs to, i want to keep it as fast as possible.

biohazard Member #11
#33,499

i need help with this everthing works but the part with !password can someone fix it for me thanks

 

 

 

on *:start: {

hmake registry 100

}

on *:join:#: {

if ($nick == $me) && ($exists(registry)) {

hload registry registry

hadd -m registry chan $chan

}

if ($nick != $me) && ($nick !isin $hget(registry,nick)) {

notice $nick Please Register Your Nick By Typing !register And Your Nick Along With Your Password In My Whisper$&


You Have Three Minutes To Do So $nick Or Risk Being Kicked For Non-Compliance

timerregister 1 180 kick $!chr(37) $!+ $right(#,-1) $nick Non-Compliance

}

if ($nick isin $hget(registry,nick)) {

timerregister off

notice $nick Type !password And Your Password In My Whisper

}

}

on *:TEXT:*!register*:?: {

if ($nick isin $hget(registry,nick)) {

kick $hget(registry,chan) $nick That Nick Is Registered Already

}

else {

hadd -m registry nick $addtok($hget(registry,nick),$2 $+ $chr(32) $+ $3,32)

hsave -so registry registry

timerregister off

}

}

on *:TEXT:*!password*:?: {

if (($2 isin $hget(registry,nick)) && $ial($nick) isin $mircdir\oper.txt) /mode # +o $nick halt else goto kick

:kick {

kick $hget(registry,chan) $nick Wrong Information $nick

if ($2 isin $hget(registry,nick)) {

notice $nick (Y) Welcome! | /closemsg $nick }

timerreg off

if ($2 !isin $hget(registry,nick)) {

kick $hget(registry,chan) $nick Nick is not registered ;)

}

}

}

 

Edited Mar 8, 2006 6:16 AM by biohazard
The Gate Keeper GuarDDog Creator Member #47
#33,505

did you make this code or take it from a script. Cause i see a lot of problems with this code, in general coding view.

biohazard Member #11
#33,506

got it off rumbaar site on the form

The Gate Keeper GuarDDog Creator Member #47
#33,507

it isn't what i'd call the best coding structure. See what you can do for now, i'm trying to keep VB and mIRC seperate. VB for school, so yea, need to make sure i don't cross to much, otherwise i'll start programming VB in mIRC, or even worse, mIRC in VB :P

Ozzy10 Aerial Photographer Member #2
#33,515

hload registry registry

 

what exactly is that ment to be loading lol

Edited Mar 8, 2006 11:17 AM by Ozzy10

My code does NOT have bugs. It just develops random features.

X-Fusion Historical / Guest
#33,518

Its going to load his whole registry into his hash table so he can freeze up guard dog. :lmaojump:

biohazard Member #11
#33,569

need some help fixing this to work with gd plz

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;------------ Message Caller -----------;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

on *:TEXT:Call Judgement:*: {

ss msg $chan $nick Would you like to call Judgement ? ( Yes or No )

/set %JudgementCall $nick

 

}

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; First Respond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

on *:TEXT:*yes*:*: {

if ($nick == %JudgementCall) {

/msg $chan $nick Please Define The Type ( Urgent - Casual )

/set %JudgementCall YES

}

}

on *:TEXT:*no*:*: {

if ($nick == %JudgementCall) {

/msg $chan Very well then $nick

/unset %Judgementcall

}

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Type Of Call

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

on *:TEXT:*Urgent*:*: {

if ($nick == %JudgementCall) {

/msg $chan Calling Judgement Right Now... Please hold..

/splay connected.wav

/unset %JudgementCall

}

}

 

on *:TEXT:*Casual*:*: {

if ($nick == %JudgementCall) {

/msg $chan Calling Judgement... Please Wait...

/splay unloaded.wav

/unset %JudgementCall

 

}

}

 

0n *:TEXT:*Casual:*:{

if ($me == away) { .timercall 1 5 /msg $chan Im sorry $nick i have placed a call to ?Judgement?! and he has not responded please try again later

elseif ($me == back) {halt}

/unset %JudgementCall

}

}

 

0n *:TEXT:*Urgent:*:{

if ($me == away) { .timercall 1 5 /msg $chan Im sorry $nick i have placed a call to ?Judgement?! and he has not responded please try again later

elseif ($me == back) {halt}

/unset %JudgementCall

}

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; END OF SCRIPT

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

X-Fusion Historical / Guest
#33,570

All you have to do is make them groups

on *:TEXT:command here*:#:{ msg # Would you like to call $me? | enable #call }
#call off
on *:TEXT:yes*:#:{ msg #Specify call as urgent or casual | enable #type | disable #call }
on *:TEXT:no*:#:{ disable #call | msg # Ok $nick }
#call end
#type off
on *:TEXT:urgent*:#:{ msg # Ok $nick what is it? | enable #urgent | disable #type }
on *:TEXT:casual*:#:{ msg # Ok $nick what is it? | enable #casual | disable #type }
#type end
#urgent off
on *:text:#:{ splay sound.mp3 | write urgentmsg.txt $nick has said $2- @ $fulldate | run urgentmsg.txt | msg # Thank you $nick $+ , it has been written | disable #urgent }
#urgent end
#casual off
on *:text:#:{ write casualmsg.txt $nick has said $2- @ $fulldate | msg # Thank you $nick $+ , it has been written
#casual end

Made it quick..should work. If it doesnt, post what doesnt work.

Edited Mar 10, 2006 1:55 AM by X-Fusion
The Gate Keeper GuarDDog Creator Member #47
#33,574

guys, please follow the setup that i have given for remote commands in GD5. If you don't, then there will be problems in the coding working if user colors are on.

 

Also, a few of your on text events (x-fusion) are not properly coded.

biohazard Member #11
#33,587

like this but it still don't work tho

 

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;------------ Message Caller -----------;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (Call Judgement== $1) { ss msg $chan $nick Would you like to call Judgement ? ( Yes or No )

/set %JudgementCall $nick }

 

 

 

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; First Respond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*yes*== $1) {

if ($nick == %JudgementCall) {

/msg $chan $nick Please Define The Type ( Urgent - Casual )

/set %JudgementCall YES

}

}

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*no*== $1) {

if ($nick == %JudgementCall) {

/msg $chan Very well then $nick

/unset %Judgementcall

}

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Type Of Call

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*Urgent*== $1) {

if ($nick == %JudgementCall) {

/msg $chan Calling Judgement Right Now... Please hold..

/splay connected.wav

/unset %JudgementCall

}

}

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*Casual*== $1) {

if ($nick == %JudgementCall) {

/msg $chan Calling Judgement... Please Wait...

/splay unloaded.wav

/unset %JudgementCall

 

}

}

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*Casual== $1){

if ($me == away) { .timercall 1 5 /msg $chan Im sorry $nick i have placed a call to ?Judgement?! and he has not responded please try again later

elseif ($me == back) {halt}

/unset %JudgementCall

}

}

on *:TEXT:*:#: {

var %t = $strip($1-) | tokenize 32 %t

if ($aop.level($chan,$nick) == gadmin) {

if (*Urgent== $1){

if ($me == away) { .timercall 1 5 /msg $chan Im sorry $nick i have placed a call to ?Judgement?! and he has not responded please try again later

elseif ($me == back) {halt}

/unset %JudgementCall

}

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; END OF SCRIPT

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

X-Fusion Historical / Guest
#33,590

Yeah I know GK...I was coding it in a hurry and I didnt feel like second checking it. :P Anyway, if your going to use that, dont use it in GD.

The Gate Keeper GuarDDog Creator Member #47
#33,595 

on *:TEXT:*:#: {
 var %t = $strip($1-) | tokenize 32 %t
 if ($aop.level($chan,$nick) == gadmin) { 
   if (Call Judgement == $1-) { ss msg $chan $nick Would you like to call Judgement ? ( Yes or No ) | set %JudgementCall $nick }
   elseif (%JudgementCall == $nick) {
     if ($1 == yes) { ss msg $chan $nick Please Define The Type ( Urgent - Casual ) | set %JudgementCall $nick YES }
     elseif ($1 == no) { ss msg $chan Very well then $nick | unset %judgementcall }
   }
   elseif (%JudgementCall == $nick YES) {
     if ($1 == urgent) { ss msg $chan Calling Judgement Right Now... Please hold.. | splay connected.wav }
     elseif ($1 == casual) { ss msg $chan Calling Judgement... Please Wait... | splay unloaded.wav }
     .timercall. $+ $chan 1 5 ss msg $chan Im sorry $nick i have placed a call to ?Judgement?! and he has not responded please try again later 
     unset %judgementcall
   }
 }
}
on *:INPUT:#: .timercall. $+ $chan off

 

something like this?

biohazard Member #11
#33,731

gate was wounder why there is no mode b or k

 

b Ban - Can be used to get a list of ban (ACCESS DENY) entries.

 

k Key - Room has an entry password set (same as PROP MEMBERKEY).

The Gate Keeper GuarDDog Creator Member #47
#33,739

mode b only returns a list of access bans set to indefinate, not those with time. K, not sure why i didn't put that in :P

 

Though these kind of things, i'd prefer submitted through GuarD-Doctor. Open GuarD-Doctor > Select Error > Submit Error

 

and just type it there. That way it gets to my "to-do-list".

 

So yea, small things like this should go there, when we get bigger, like remote command modifications, or addons or something, then yea, you go through here.

Edited Mar 13, 2006 5:56 AM by The Gate Keeper
mcdanielnc89 Member #10,906
#33,760

ROFL.. Dude.. I told ya to do it that way bio... LOL.. you should have listen to me.. BTW.. it's LivinGodLoud..

 

ROFL...HEHEHEHEHEHEH

 

:lmaojump::lmaojump::lmaojump::lmaojump::lmaojump:

Edited Mar 13, 2006 4:08 PM by mcdanielnc89