ircii 20151120-1+b1 / usr / share / ircII / script / autoquery

This file is indexed.

/usr/share/ircII/script/autoquery is in ircii 20151120-1+b1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
# $eterna: autoquery,v 1.2 2014/03/14 20:59:19 mrg Exp $
#
# mirc-like automatic query windows for ircii
# Time-stamp: <01/01/17 18:06:40 friedel>
# by friedel <friedel@nomaden.org>

# WARNING: I assume you have the "screen" script, which comes with
# vanilla ircii loaded before this. It would be useful :)

# WARNING2: This script *replaces* ALL /on msg and /on send_msg hooks.

# I use "aqw." as in "Auto Query Windows" as a prefix.

# One slight modification of a wellknown alias:
alias talkto {
	window new
	window lev non log on hide_others name $0
	query $0
}

#alias talkto {
#	window new
#	window lev non log on name $0
#	query $0
#}

# This one is from the bigcheese script
alias reply talkto $* $,

# Stolen from "columns":
# columnate some output
alias aqw.format {
        assign aqw.IRCII.word $1
        if ( @aqw.IRCII.word < [$0] )
                { assign function_return $([-$0]1) }
                { assign function_return $1 }
}

alias aqw.encode {
	^assign aqw.nick $(encode($0))
	@ function_return = aqw.nick
}

# A field to remember wether we have a query: aqw.nicks
alias aqw.storenick {
	^assign aqw.nicks.$(aqw.encode($0)) true
}

alias aqw.retrievenick {
	^assign function_return $(aqw.nicks[${aqw.encode($0)}])
}

alias aqw.delnick {
	^assign -aqw.nicks[${aqw.encode($0)}]
}
#-----

alias aqw.newchat {
	aqw.storenick $0
	talkto $0
	on ^window_kill $0 aqw.delnick $0
}

# DAMMIT! Can anybody explain, why i have to remove the "." in aqw.nicks.$0 ?
# Answer: That is the stupid ircii Array Syntax, as explained in
# http://www.irchelp.org/irchelp/ircii/commands/expressions
alias aqw.chatexists {
	@ exists = aqw.retrievenick($0)
	if (exists==[true]) {
		^assign function_return 1
	} {
		^assign function_return 0
	}
}

alias aqw.lock {
	^assign aqw.locked 1
}

alias aqw.unlock {
	^assign aqw.locked 0
}

alias aqw.msg {
	^assign aqw.who *$0*
	^assign aqw.who.len ${@aqw.who + 3}
	xecho -window $0 -level msg ${aqw.format($aqw.who.len $aqw.who)} $1-
}

alias aqw.sendmsg {
	xecho -window $0 -level msg => *$0* $1-
}

# This function is bound to on msg
alias aqw.check.from {
	if (!aqw.locked) {
		aqw.lock
		if (! aqw.chatexists($0)) {
			aqw.newchat $0 $1-
			aqw.msg $0 $1-
		} {
			aqw.msg $0 $1-
		}
		aqw.unlock
	} {
		aqw.msg $0 $1-
	}
}

# This function is bound to on send_msg
alias aqw.check.to {
	if (!aqw.locked) {
		aqw.lock
		if (! aqw.chatexists($0)) {
			aqw.newchat $0
			aqw.sendmsg $0 $1-
		} {
			aqw.sendmsg $0 $1-
		}
		aqw.unlock
	} {
		aqw.sendmsg $0 $1-
	}
}

on ^msg -
on ^send_msg -
on ^msg * aqw.check.from $0 $1-
on ^send_msg * aqw.check.to $0 $1-

APT Browse - Built by Thomas Orozco.