Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dialog Open {
- icon %aria
- title "Connect To Server"
- size -1 -1 390 318
- icon 2, -3 5 390 100 , imgs/open.png
- edit "", 6, 110 111 100 21,autohs
- edit "",7, 110 140 100 21,autohs
- edit "",8, 265 111 100 21,autohs,pass
- edit "", 9, 265 140 100 21,autohs
- text "Nickname:" 10, 40 115 55 15
- text "Alternative:" 11, 40 144 55 15
- text "Pass:" 12, 227 115 35 15
- text "ID:" 13, 235 144 20 15
- box "", 17, 20 105 85 28
- box "", 18, 20 134 85 28
- box "", 19, 220 105 40 28
- box "", 25, 220 134 40 28
- box "Servers:" 20, 20 170 348 123
- text "Server:" 30, 30 218 40 15
- text "List:" 31, 36 190 35 15
- text "Port:" 32, 35 246 35 15
- edit "" 22, 71 214 190 21
- edit "" 66, 71 242 50 21
- combo 50, 73 187 100 150 , drop , sort
- button "Add" 51, 180 187 60 20
- button "Edit" 52, 245 187 50 20
- button "Delet" 53, 300 187 60 20
- box "" 40, 25 208 43 28
- box "" 41, 25 180 43 28
- box "" 42, 25 236 43 28
- check "New server window" 201, 135 243 125 20
- Button "Connect To Server", 24, 125 266 135 21,ok
- button "Help" 54, 300 243 60 21
- button "Close" 55, 300 266 60 21,cancel
- check "Pop Up This Dialog On Start." 200 , 110 296 155 20
- }
- On *:DIALOG:open:*:* {
- if ($devent == init) {
- did -a $dname 6 $me
- did -a $dname 7 $readini mirc.ini mIRC anick
- did -a $dname 9 $readini mirc.ini ident userid
- listserver
- if ($did(50) == .Select Server.) { did -re open 22 | did -ra open 66 6667 }
- if (%openshow == ON) { did -c open 200 }
- }
- if ($devent == sclick) && ($did == 50) {
- if ($did(50) == .Select Server.) { did -re open 22 | did -ra open 66 6667 }
- else { did -rb open 22 | did -ra open 22 %servaddress. [ $+ [ $did(50) ] ] | did -ra open 66 %servport. [ $+ [ $did(50) ] ] }
- }
- if ($devent == sclick) && ($did == 51) { addserver }
- if ($devent == sclick) && ($did == 52) { if ($did(50) != .Select Server.) { set %settingserver $did(50) | set-server } }
- if ($devent == sclick) && ($did == 53) { if ($did(50) != .Select Server.) { set %listserver $did(50) | delserver } }
- if ($devent == sclick) && ($did == 54) { /help Connecting to a Server }
- if ($devent == sclick) && ($did == 24) {
- if ($did(22) == $null) { halt }
- elseif (%new.server.win == ON) { set %connectto $did(22) $+ : $+ $did(66) | canim2 }
- elseif ($server != $null) { set %Nnick $did(6) | set %Aanick $did(7) | if ($did(8) != $null) { set -u60 %ididentify $did(8) } | set %Iidentd $did(9) | set %connectto $did(22) $+ : $+ $did(66) | dialog -m bcserver bcserver }
- elseif ($server == $null) { set %Nnick $did(6) | set %Aanick $did(7) | if ($did(8) != $null) { set -u60 %ididentify $did(8) } | set %Iidentd $did(9) | set %connectto $did(22) $+ : $+ $did(66) | canim }
- }
- if ($devent == sclick) && ($did == 200) {
- if (%openshow == ON) { set %openshow OFF | halt }
- else { set %openshow ON | halt }
- }
- if ($devent == sclick) && ($did == 201) {
- if (%new.server.win == ON) { unset %new.server.win }
- else { set %new.server.win ON }
- }
- if ($did == 55) { unset %new.server.win }
- }
- dialog addserver {
- icon %aria
- title "Add Server"
- size -1 -1 260 125
- edit "" 1, 60 5 185 22 ,autohs
- edit "" 2, 60 30 185 22 ,autohs
- edit "" 3, 60 55 185 22
- text "Description:" 11, 3 10 55 15
- text "IRC Server:" 12, 3 35 57 15
- text "Port:" 13, 30 60 30 15
- button "Add" 20, 30 90 60 20,ok
- button "Cancel" 21, 100 90 60 20,cancel
- button "Help" 22, 170 90 60 20
- }
- on 1:dialog:addserver:*:*:{
- if ($devent == init) { did -a $dname 3 6667 }
- if ($devent == sclick) && ($did == 22) { help Connecting to a Server }
- if ($devent == sclick) && ($did == 20) {
- if ($did(1) == $null) { set %errorinadd Description is Missing! | errorinadd | halt }
- if ($did(2) == $null) { set %errorinadd IRC Server Address is Missing! | errorinadd | halt }
- if ($did(3) == $null) { set %errorinadd Please Enter Port! | errorinadd | halt }
- if (* * iswm $did(1)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- if (* * iswm $did(2)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- if (* * iswm $did(3)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- else {
- set %selserver $did(1)
- set %selserveradd $did(2)
- set %servport $did(3)
- serverset
- }
- }
- }
- dialog set-server {
- icon %aria
- title "Edit Server"
- size -1 -1 260 125
- edit "" 1, 60 5 185 22 ,autohs
- edit "" 2, 60 30 185 22 ,autohs
- edit "" 3, 60 55 185 22
- text "Description:" 11, 3 10 55 15
- text "IRC Server:" 12, 3 35 57 15
- text "Port:" 13, 30 60 30 15
- button "Edit" 20, 25 90 65 20,ok
- button "Cancel" 21, 100 90 65 20,cancel
- button "Help" 22, 175 90 60 20
- }
- on 1:dialog:set-server:*:*:{
- if ($devent == init) {
- did -a $dname 1 %settingserver
- did -a $dname 2 %servaddress. [ $+ [ %settingserver ] ]
- did -a $dname 3 %servport. [ $+ [ %settingserver ] ]
- }
- if ($devent == sclick) && ($did == 22) { help Connecting to a Server }
- if ($devent == sclick) && ($did == 21) { unset %settingserver }
- if ($devent == sclick) && ($did == 20) {
- if ($did(1) == $null) { set %errorinadd Description is Missing! | errorinadd | halt }
- if ($did(2) == $null) { set %errorinadd IRC Server Address is Missing! | errorinadd | halt }
- if ($did(3) == $null) { set %errorinadd Please Enter Port! | errorinadd | halt }
- if (* * iswm $did(1)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- if (* * iswm $did(2)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- if (* * iswm $did(3)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
- else {
- set %listserver %settingserver
- delserver
- unset %settingserver
- set %selserver $did(1)
- set %selserveradd $did(2)
- set %servport $did(3)
- serverset
- }
- }
- }
- dialog bcserver {
- size -1 -1 260 85
- title "Confirm Exit"
- icon %info
- icon 1, 10 10 30 30 , imgs\soal.ico
- text "Do You Wont To Change Server?", 2, 57 25 240 15
- box "", 3, 42 15 200 30
- button "Yes", 4, 50 55 75 20,ok
- button "No", 5, 150 55 75 20,cancel
- }
- on 1:dialog:bcserver:sclick:*:{
- if ($did == 4) { quit %quit.msg | canim }
- if ($did == 5) { unset %Nnick | unset %Aanick | unset %connectto | unset %ididentify }
- }
- dialog errordialog {
- icon %info
- title "Error"
- size -1 -1 250 100
- button "OK" 1, 90 73 70 20,cancel
- icon 2, 15 25 50 50 , imgs\incorrect.ico
- text "" 3, 60 20 160 50
- }
- on 1:dialog:errordialog:init:*:{ did -ra $dname 3 %errorinadd }
- on 1:dialog:errordialog:sclick:*:{ if ($did == 1) { unset %errorinadd } }
- dialog invdo {
- icon %ask
- title "INVITE 1"
- size -1 -1 270 120
- edit "", 1, 5 10 260 20, read
- edit "", 2, 170 35 95 20, read
- box "", 3, 5 30 160 26
- text "Invited You To Join Channel :", 4, 15 39 142 12
- button "Join Channel", 5, 12 70 75 20 , ok
- button "Don't Join", 6, 97 70 75 20 , cancel
- button "Send Notice", 7, 182 70 75 20
- box "", 8, 5 58 260 37
- check "Always ask me on invite" 9, 60 100 150 15
- }
- on 1:dialog:invdo:init:*:{
- did -ra invdo 1 %inviteme
- did -ra invdo 2 %invitemechan
- if (%inviteask == ON) { did -c $dname 9 }
- }
- on 1:dialog:invdo:sclick:*:{
- if ($did == 5) { join $did(2) | dialog -c invdo | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo | halt }
- if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 9) {
- if (%inviteask == ON) { set %inviteask OFF }
- else { set %inviteask ON }
- }
- }
- on *:invite:#:{
- if ($nick == ChanServ) { join $chan }
- if ($nick != ChanServ) && (%inviteask == ON) {
- set %invitemen $nick
- set %inviteme $nick ( $+ $address $+ )
- set %invitemechan #
- inviteaskshow
- }
- }
- dialog Search {
- icon %search
- title "Search The Web Site"
- size -1 -1 330 83
- text "Enter The Word:" 1, 15 15 100 15
- box "" 2, 5 5 100 30
- box "" 5, 5 35 315 37
- edit "" 3, 10 45 250 22, autohs
- Button "Search" 4, 265 45 50 22,ok
- button "" 6, 1 1 1 1,cancel
- }
- on 1:dialog:search:*:*: {
- if ( $devent == init ) { did -b Search 4 }
- if ( $devent == edit ) && ($did == 3) { set %searchword $did(3) | serorno }
- if ( $devent == sclick ) && ($did == 4) { doSearch }
- if ( $devent == sclick ) && ($did == 6) { unset %searchword %Searching }
- }
- on 1:start: { start }
- #Swear off
- on @1:text:*:#: {
- if (%nickbanned [ $+ [ $nick ] ] == $null) {
- set %i 0
- :checking
- inc %i 1
- set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
- if (%currentsword == $null) { .unset %i %currentsword | goto end }
- else {
- if (%currentsword isin $1-) { goto offense }
- else { goto checking }
- }
- :offense
- if ($nick isop $chan) && (%dontkbops == ON) { goto end }
- elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
- else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
- .goto end
- }
- :end
- }
- on @1:action:*:#: {
- if (%nickbanned [ $+ [ $nick ] ] == $null) {
- set %i 0
- :checking
- inc %i 1
- set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
- if (%currentsword == $null) { .unset %i %currentsword | goto end }
- else {
- if (%currentsword isin $1-) { goto offense }
- else { goto checking }
- }
- :offense
- if ($nick isop $chan) && (%dontkbops == ON) { goto end }
- elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
- else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
- .goto end
- }
- :end
- }
- on @1:notice:*:#: {
- if (%nickbanned [ $+ [ $nick ] ] == $null) {
- set %i 0
- :checking
- inc %i 1
- set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
- if (%currentsword == $null) { .unset %i %currentsword | goto end }
- else {
- if (%currentsword isin $1-) { goto offense }
- else { goto checking }
- }
- :offense
- if ($nick isop $chan) && (%dontkbops == ON) { goto end }
- elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
- else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
- .goto end
- }
- :end
- }
- #Swear end
- on ^*:nick:{
- %new.nick = $newnick
- %new.chan = $comchan(%new.nick,1)
- set %temo 0
- :nickchange
- inc %temo 1
- if ($comchan($newnick,%temo)) {
- echo $colour(nick text) $comchan($newnick,%temo) $timestamp ***3 $nick is now known as 3 $+ $newnick $+
- goto nickchange
- }
- unset %temo %new.nick %new.chan
- haltdef
- }
- dialog invdo2 {
- icon %ask
- title "INVITE 2"
- size -1 -1 270 120
- edit "", 1, 5 10 260 20, read
- edit "", 2, 170 35 95 20, read
- box "", 3, 5 30 160 26
- text "Invited You To Join Channel :", 4, 15 39 142 12
- button "Join Channel", 5, 12 70 75 20 , ok
- button "Don't Join", 6, 97 70 75 20 , cancel
- button "Send Notice", 7, 182 70 75 20
- box "", 8, 5 58 260 37
- check "Always ask me on invite" 9, 60 100 150 15
- }
- on 1:dialog:invdo2:init:*:{
- did -ra invdo2 1 %inviteme
- did -ra invdo2 2 %invitemechan
- if (%inviteask == ON) { did -c $dname 9 }
- }
- on 1:dialog:invdo2:sclick:*:{
- if ($did == 5) { join $did(2) | dialog -c invdo2 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo2 | halt }
- if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo2 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 9) {
- if (%inviteask == ON) { set %inviteask OFF }
- else { set %inviteask ON }
- }
- }
- dialog invdo3 {
- icon %ask
- title "INVITE 3"
- size -1 -1 270 120
- edit "", 1, 5 10 260 20, read
- edit "", 2, 170 35 95 20, read
- box "", 3, 5 30 160 26
- text "Invited You To Join Channel :", 4, 15 39 142 12
- button "Join Channel", 5, 12 70 75 20 , ok
- button "Don't Join", 6, 97 70 75 20 , cancel
- button "Send Notice", 7, 182 70 75 20
- box "", 8, 5 58 260 37
- check "Always ask me on invite" 9, 60 100 150 15
- }
- on 1:dialog:invdo3:init:*:{
- did -ra invdo3 1 %inviteme
- did -ra invdo3 2 %invitemechan
- if (%inviteask == ON) { did -c $dname 9 }
- }
- on 1:dialog:invdo3:sclick:*:{
- if ($did == 5) { join $did(2) | dialog -c invdo3 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo3 | halt }
- if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo3 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 9) {
- if (%inviteask == ON) { set %inviteask OFF }
- else { set %inviteask ON }
- }
- }
- dialog invdo4 {
- icon %ask
- title "INVITE 4"
- size -1 -1 270 120
- edit "", 1, 5 10 260 20, read
- edit "", 2, 170 35 95 20, read
- box "", 3, 5 30 160 26
- text "Invited You To Join Channel :", 4, 15 39 142 12
- button "Join Channel", 5, 12 70 75 20 , ok
- button "Don't Join", 6, 97 70 75 20 , cancel
- button "Send Notice", 7, 182 70 75 20
- box "", 8, 5 58 260 37
- check "Always ask me on invite" 9, 60 100 150 15
- }
- on 1:dialog:invdo4:init:*:{
- did -ra invdo4 1 %inviteme
- did -ra invdo4 2 %invitemechan
- if (%inviteask == ON) { did -c $dname 9 }
- }
- on 1:dialog:invdo4:sclick:*:{
- if ($did == 5) { join $did(2) | dialog -c invdo4 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo4 | halt }
- if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo4 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 9) {
- if (%inviteask == ON) { set %inviteask OFF }
- else { set %inviteask ON }
- }
- }
- dialog invdo5 {
- icon %ask
- title "INVITE 5"
- size -1 -1 270 120
- edit "", 1, 5 10 260 20, read
- edit "", 2, 170 35 95 20, read
- box "", 3, 5 30 160 26
- text "Invited You To Join Channel :", 4, 15 39 142 12
- button "Join Channel", 5, 12 70 75 20 , ok
- button "Don't Join", 6, 97 70 75 20 , cancel
- button "Send Notice", 7, 182 70 75 20
- box "", 8, 5 58 260 37
- check "Always ask me on invite" 9, 60 100 150 15
- }
- on 1:dialog:invdo5:init:*:{
- did -ra invdo5 1 %inviteme
- did -ra invdo5 2 %invitemechan
- if (%inviteask == ON) { did -c $dname 9 }
- }
- on 1:dialog:invdo5:sclick:*:{
- if ($did == 5) { join $did(2) | dialog -c invdo5 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo5 | halt }
- if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo5 | unset %inviteme %invitemechan %invitemen | halt }
- if ($did == 9) {
- if (%inviteask == ON) { set %inviteask OFF }
- else { set %inviteask ON }
- }
- }
- alias lockpass {
- if ($1 != %lockpass2) { lockpassa $?="Enter Your Lock Password:" | halt }
- }
- alias lockpassa {
- if ($1 != %lockpass2) { exit }
- }
- on *:part:#:{ if ($nick == $me) { part # 11,1 $+ $chr(171) $+ 7 $+ $chr(68) $+ 15 $+ $chr(97) $+ 14 $+ $chr(110) $+ 15 $+ $chr(105) $+ 14 $+ $chr(101) $+ 15 $+ $c
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement