Author Topic: A simple script  (Read 6808 times)

HPY-MOD-Cobi

  • Guest
A simple script
« on: November 06, 2003, 04:17:03 PM »
A Script that i made to do various

things:
Code: [Select]

dim a
Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
if

instr(Nickname, "HPY-MOD") then
if Nickname <> "[HPY-MOD]Cobi" and Nickname

<> "HPY-MOD-Cobi" and Nickname <> "{HPY-MOD}Cetanu" and Nickname <>

"{HPY-MOD}Cetanu[A]" then
SendCommand "/kick " & Nickname & " You are

not a HPY MOD!",ServerNumber
end if
end if
'Echo a,"#test",ServerNumber
'if

instr(lcase(message), "lol") then
'SendCommand "/me says: " &  Nickname &

", 12I 9d4o13n8'1t 17g24e5t 10i19t10.22.7.26w2h18a28t25'31s 6s16o

20f29u24n26n24y23?",ServerNumber
'end if
'if instr(lcase(message), "junfan")

then
'SendCommand "/me says: " &  Nickname & ", 12h9m4m 13I 8k1n17o24w

5J10u19n10F22a7n 26:2) 18:28D 25:31D 6:16)",ServerNumber
'end if
'if

instr(lcase(message), "hi") then
'SendCommand "/me says: " &  Nickname &

", 12H9E4Y13!",ServerNumber
'end if
'if instr(lcase(message), "kira")

then
'SendCommand "/me says: does LOL = Lots of Lines? LOL!",ServerNumber
'end if
'if

instr(lcase(message), "Cobi") then
'SendCommand "/me says: does LOL = Lots of Lines?

LOL!",ServerNumber
'end if
'if instr(lcase(message), "Malibu") then
'SendCommand

"/me says: does LOL = Lots of Lines? LOL!",ServerNumber
'end if
'if instr(lcase(message),

"kat") then
'SendCommand "/me says: does LOL = Lots of Lines? LOL!",ServerNumber
'end

if
'if instr(lcase(message), ":p") then
'SendCommand "/me says:

:P",ServerNumber
'end if
if instr(lcase(message), "puppeh") then
SendCommand

"/msg " & Channel & " 8,1Pup4peh",ServerNumber
end if
'if

instr(lcase(message), "_") then
'SendCommand "/me says: does _ mean

Space?",ServerNumber
'end if
'if instr(lcase(message), "1") then
'SendCommand

"/me says: 2",ServerNumber
'end if
'if instr(lcase(message), "2")

then
'SendCommand "/me says: 3",ServerNumber
'end if
'if instr(lcase(message),

"3") then
'SendCommand "/me says: 4",ServerNumber
'SendCommand "/me says:

5",ServerNumber
'SendCommand "/me says: 6",ServerNumber
'SendCommand "/me says:

7",ServerNumber
'SendCommand "/me says: 8",ServerNumber
'SendCommand "/me says:

9",ServerNumber
'SendCommand "/me says: 10!!!!!!!!",ServerNumber
'end if
'if

instr(lcase(message), "4") then
'SendCommand "/me says: 5",ServerNumber
'end

if
'if instr(lcase(message), "5") then
'SendCommand "/me says:

6",ServerNumber
'end if
'if instr(lcase(message), "6") then
'SendCommand "/me

says: 7",ServerNumber
'end if
'if instr(lcase(message), "7") then
'SendCommand

"/me says: 8",ServerNumber
'end if
'if instr(lcase(message), "8")

then
'SendCommand "/me says: 9",ServerNumber
'end if
'if instr(lcase(message),

"9") then
'SendCommand "/me says: 10",ServerNumber
'end if
'if

instr(lcase(message), "!r") then
'SendCommand "/me says: " &

Message,ServerNumber
'end if

if Message = "!cobi-join" then
a = 1
exit sub
end if
if a = 1

then
a = 0
SendCommand "/join " & message,ServerNumber
a = 0
end if
End Sub

Sub

ONJOIN(Nickname,Host,Channel,ServerNumber)
if lcase(Channel) = "#opwar" then
if Nickname

<> "[HPY-MOD]Cobi" and Nickname <> "Katelin" then
SendCommand "/mode #OPWAR

+b " & Nickname,ServerNumber
SendCommand "/kick " & Nickname & " YOU DARE TO TRY MY POWER

AT OPWAR... well I just happen to rule at OPWAR",ServerNumber
SendCommand "/mode #OPWAR +i"
end

if
end if
if instr(Nickname, "HPY-MOD") then
if Nickname <>

"[HPY-MOD]Cobi" and Nickname <> "HPY-MOD-Cobi" and Nickname <>

"{HPY-MOD}Cetanu" and Nickname <> "{HPY-MOD}Cetanu[A]"

then
SendCommand "/kick " & Nickname & " You are not a HPY MOD!",ServerNumber
end if
end

if
if instr(Host, "Edwards") then
SendCommand "/ban " &

Nickname,ServerNumber
SendCommand "/kick " & Nickname & " You are Edwards! Therefore you are

bannished Forthwith From " & Channel & " under pain of death!",ServerNumber
end if

if

Channel <> "#ausserv" and Channel <> "#icechat" then
SendCommand  "/msg " &

Channel & " 8,1HEY!4 " & Nickname,ServerNumber
end if
End Sub

Sub

ONINVITE(Nickname,Channel,ServerNumber)
SendCommand "/join " & Channel,ServerNumber
End

Sub

Sub ONKICK(Nickname,Host,Channel,WhoKicked,Reason,ServerNumber)
if UCASE(Channel) =

"#OPWAR" then
if Nickname = "[HPY-MOD]Cobi" then

Echo "Im Coming back(im

playing OPWAR!)","#HPYIRC",ServerNumber

SendCommand "/invite [HPY-MOD]Cobi

#OPWAR",ServerNumber
end if
end if
End Sub

Sub

ONACTION(Message,Channel,Nickname,Host,ServerNumber)
if instr(Nickname, "HPY-MOD") then
if

Nickname <> "[HPY-MOD]Cobi" and Nickname <> "HPY-MOD-Cobi" and Nickname <>

"{HPY-MOD}Cetanu" and Nickname <> "{HPY-MOD}Cetanu[A]"

then
SendCommand "/kick " & Nickname & " You are not a HPY MOD!",ServerNumber
end if
end

if
if instr(lcase(message), "puppeh") then
SendCommand "/msg " & Channel &

" 8,1Pup4peh",ServerNumber
end if
End Sub

Sub

ONQUERY(Message,Nickname,Host,ServerNumber)
if instr(Nickname, "HPY-MOD") then
if Nickname

<> "[HPY-MOD]Cobi" and Nickname <> "HPY-MOD-Cobi" and Nickname <>

"{HPY-MOD}Cetanu" and Nickname <> "{HPY-MOD}Cetanu[A]"

then
SendCommand "/kick " & Nickname & " You are not a HPY MOD!",ServerNumber
end if
end

if

End Sub

Sub ONQUERYACTION(Message,Nickname,Host,ServerNumber)
if instr(Nickname,

"HPY-MOD") then
if Nickname <> "[HPY-MOD]Cobi" and Nickname <>

"HPY-MOD-Cobi" and Nickname <> "{HPY-MOD}Cetanu" and Nickname <>

"{HPY-MOD}Cetanu[A]" then
SendCommand "/kick " & Nickname & " You are

not a HPY MOD!",ServerNumber
end if
end if

End Sub

Sub

ONMODE(Channel,ModeSetter,Mode,ServerNumber)
if lcase(Channel) = "#opwar" then
'SendCommand

"/mode #OPWAR +i",ServerNumber
end if
End Sub


P.S. #OPWAR is a room to try to

hold it the longest[/quote]

Short_N_Sweet

  • Guest
A simple script
« Reply #1 on: November 07, 2003, 02:44:59 PM »
Sorry, hun, but you need to make it so it is not for just one

person.  It needs to be universal.

IRBMe

  • Newbie
  • *
  • Posts: 12
A simple script
« Reply #2 on: November 07, 2003, 04:17:01 PM »
yeah, I have to agree with the above statement. I also think

it would be alot easier to read if it had some indentation, and possibly some documentation about what it can do and how to

use it. Once you fix up the formatting a bit and make it more universal (hint: read from ini file?) then it could be pretty

good - there are some nice ideas in there. Also, you should put the code in {code} {/code} blocks, where the {}s are actually

SQUARE [] brackets, if you haven't already.
Icechat - how cool can you GET?