Scriptwiki - User contributions [en]

Chess game

2024-04-19T13:41:06Z

Cail: DING DONG

[[:Image:Chess selection.jpg|Screenshot of the gameplay]]

== Source ==

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Chess game with picture windows by Cail at Quakenet -> #help.script
;
; The singleplayer mode is only for debugging and testing.
; Multiplayer was the main idea, you can use sockets or IRC to play (read help).
; The game will download the pieces automatically and put them into right place,
; (images originally from mediawiki, by Wapcaplet) and put them into /mircdir/chess directory.
;
; Type /chess to start the game.
; Also support saving and loading the game state.
; Includes logging of moves, shows last move all the time, and last 40/24 moves in a sidepanel, which can be toggled on/off.
;
; Be sure to read the help for full description of all features.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias chess {
if ($hget(chess.board)) { hfree chess.board } | hmake chess.board 100
if ($hget(chess.info)) { hfree chess.info } | hmake chess.info 100
if ($hget(chess.options)) { hfree chess.options } | hmake chess.options 100
if ($exists(chess/options.hsh)) { hload chess.options chess/options.hsh }
else {
hadd chess.options size 100
hadd chess.options log_format 1
hadd chess.options send_method msg
hadd chess.options frames 1
}

window -adfpw0C +nft @chess 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +50)
drawrect -rf @chess 3684408 0 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +50)

log_show -200
hadd chess.info log_lines 0

drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,320,140) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,380,200) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,440,260) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,500,320) 300 50

drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,330,150) single player (debug)
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,390,210) connect to a server
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,450,270) start a server
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,510,330) help

if (!$exists($qt($mircdirchess/pieces.png))) { .echo -qg $dialog(chess_getimg,chess_getimg) }
}

menu @chess {
sclick: chess_sclick
dclick: chess_dclick
options:.echo -qg $dialog(chess_options,chess_options)
help:url -n http://wiki.prco23.org/index.php/Chess_game#Help
$iif($hget(chess.info,init),save):chess_save
$iif($hget(chess.info,init),load):chess_load $$dialog(load_table,load_table)
$iif($hget(chess.info,mode) == mp,send msg):.echo -qg $dialog(chess_send_pm,chess_send_pm)

$iif($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520)),-)
$iif($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520)),save log):log_save
}

on *:close:@chess:{
hfree chess.board
hfree chess.info
hfree chess.options

if ($exists(chess/temp.log)) { .remove chess/temp.log }
if ($sock(chess_connect)) { sockclose chess_connect }
if ($sock(chess)) { sockclose chess }

if ($hget(chess.info,con_type) == irc) { chess_send disconnect | .disable #chess.n }
}

on *:active:@chess:{ titlebar @chess }

dialog load_table {
title "Chess"
size -1 -1 422 220
option pixels

text "Select a saved game.", 1, 7 5 417 20,result
list 2, 5 25 410 200, sort
button "", 3, -20 -20 1 1, ok
}

on 1:dialog:load_table:init:*:{
.echo -qg $findfile(chess,*board*.save,0,parse_save $1-)
}

alias -l parse_save {
.echo -qg $regex($1-,/\\([^\\]+)_board_(.+)\.save/g)
var %s = $gettok($regml(1),-1,45)
did -a $dname 2 $gettok($regml(1),-4--2,45) $+($mid(%s,1,2),:,$mid(%s,3,2),:,$mid(%s,5,2)) - $regml(2)
}

on 1:dialog:load_table:dclick:2:{
did -ra $dname 1 $did($dname,2).seltext
dialog -k $dname
}

alias chess_restart {
hadd chess.info restart 1
window -c @chess
window -adfpw0C +nft @chess 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +60)
drawrect -rf @chess 3684408 0 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +60)
drawrect -r @chess 22456 3 17 17 $iif($hget(chess.options,size) == 100,806,486) $iif($hget(chess.options,size) == 100,806,486)

hadd chess.info log_lines 0
if ($exists(chess/temp.log)) { filter -fk chess/temp.log filter_log * }
hdel chess.info log_shown
hdel chess.info log_show
log_show -200

chess_load
hdel chess.info restart
}

alias -l chess_load {
if (!$hget(chess.info,restart)) {
hdel -w chess.board *
hdel -w chess.info *
hload chess.board $+(chess\,$+($1,-,$remove($2,:)),_board_,$4,.save)
hload chess.info $+(chess\,$+($1,-,$remove($2,:)),_info_,$4,.save)
}
var %y = 1
while (%y <= 8) {
var %x = 1
while (%x <= 8) {
var %dx = $get_square(%x)
var %dy = $get_square(%y)
drawrect -rf @chess $get_color(%x,%y) 0 %dx %dy $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,$+(%y,%x))) { draw_piece %dx %dy $v1 $get_color(%x,%y) }

var %alph = $gettok(A B C D E F G H I J K L M,$iif($hget(chess.info,clr_own) == w,%x,$calc(9 - %x)),32)
var %xz = $calc((($hget(chess.options,size) * %x) + ($hget(chess.options,size)/2+15)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 %xz 0 %alph

inc %x
}

var %yz = $calc((($hget(chess.options,size) * %y) + ($hget(chess.options,size)/2+10)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 5 %yz $iif($hget(chess.info,clr_own) == w,$calc(9 - %y),%y)

inc %y
}

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,restart)) {
chess_send load $1 $3
if ($hget(chess.info,own_turn)) { print_info light_blue Game loaded succesfully, your turn. }
else { print_info light_blue Game loaded succesfully, $hget(chess.info,opponent) $+ 's turn. }
}
}

alias -l chess_save {
hsave chess.board $+(chess/,$asctime(yyyy-mm-dd-hhnnss),_board_,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.save)
hsave chess.info $+(chess/,$asctime(yyyy-mm-dd-hhnnss),_info_,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.save)
}

alias -l chess_initiate {
drawrect -r @chess 22456 3 17 17 $iif($hget(chess.options,size) == 100,806,486) $iif($hget(chess.options,size) == 100,806,486)
hadd chess.info clr_select blue

var %y = 1
while (%y <= 8) {
var %x = 1
while (%x <= 8) {
var %dx = $get_square(%x)
var %dy = $get_square(%y)
drawrect -rf @chess $get_color(%x,%y) 0 %dx %dy $hget(chess.options,size) $hget(chess.options,size)
if ($get_piece(%y,%x)) { hadd chess.board $+(%y,%x) $v1 | draw_piece %dx %dy $v1 $get_color(%x,%y) }

var %alph = $gettok(A B C D E F G H I J K L M,$iif($hget(chess.info,clr_own) == w,%x,$calc(9 - %x)),32)
var %xz = $calc((($hget(chess.options,size) * %x) + ($hget(chess.options,size)/2+15)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 %xz 0 %alph

inc %x
}

var %yz = $calc((($hget(chess.options,size) * %y) + ($hget(chess.options,size)/2+10)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 5 %yz $iif($hget(chess.info,clr_own) == w,$calc(9 - %y),%y)

inc %y
}
}

alias -l chess_dclick {
if (!$inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520))) { return }
var %n = $calc($hget(chess.info,log_lines) - $iif($hget(chess.options,size) == 100,40,24))
var %n = $calc($abs(%n) %n)

var %log_line = $read(chess/temp.log,$calc($left($calc(($mouse.y *100) /20),-2) + %n))
var %clr = $iif($gettok(%log_line,1,32) == white,w,b)

if ($gettok(%log_line,2,32) == 0-0) {
var %f.y = $iif($gettok(%log_line,1,32) == light_blue,8,1)

if ($hget(chess.info,clr_own) == w) {
var %f.y = $calc(9 - %f.y)
}

var %x1 = $iif($hget(chess.info,clr_own) == w,5,1)
var %x2 = $iif($hget(chess.info,clr_own) == w,8,4)
var %x3 = $iif($hget(chess.info,clr_own) == w,6,2)
var %x4 = $iif($hget(chess.info,clr_own) == w,7,3)

draw_selection %x1 %f.y light_blue
draw_selection %x2 %f.y light_blue
draw_selection %x3 %f.y yellow
draw_selection %x4 %f.y yellow
hadd chess.info log_select $+(%f.y,%x1) $+(%f.y,%x2) $+(%f.y,%x3) $+(%f.y,%x4)
}
elseif ($gettok(%log_line,2,32) == 0-0-0) {
var %f.y = $iif($gettok(%log_line,1,32) == light_blue,8,1)

if ($hget(chess.info,clr_own) == w) {
var %f.y = $calc(9 - %f.y)
}

var %x1 = $iif($hget(chess.info,clr_own) == w,5,4)
var %x2 = $iif($hget(chess.info,clr_own) == w,1,8)
var %x3 = $iif($hget(chess.info,clr_own) == w,3,5)
var %x4 = $iif($hget(chess.info,clr_own) == w,4,6)

draw_selection %x1 %f.y light_blue
draw_selection %x2 %f.y light_blue
draw_selection %x3 %f.y yellow
draw_selection %x4 %f.y yellow
hadd chess.info log_select $+(%f.y,%x1) $+(%f.y,%x2) $+(%f.y,%x3) $+(%f.y,%x4)
}
else {
if ($hget(chess.options,log_format) == 1) {
var %move = $gettok(%log_line,2,32)
var %from = $replace($mid(%move,2,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
var %to = $replace($mid(%move,5,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
}
else {
var %move = $gettok(%log_line,3,32)
var %from = $replace($mid(%move,1,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
var %to = $replace($mid(%move,5,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
}
var %from.x = $mid(%from,1,1)
var %from.y = $mid(%from,2,1)
var %to.x = $mid(%to,1,1)
var %to.y = $mid(%to,2,1)

if ($hget(chess.info,clr_own) == w) {
var %from.y = $calc(9 - %from.y)
var %to.y = $calc(9 - %to.y)
}
else {
var %from.x = $calc(9 - %from.x)
var %to.x = $calc(9 - %to.x)
}

draw_selection %from.x %from.y light_blue
draw_selection %to.x %to.y yellow
hadd chess.info log_select $+(%from.y,%from.x) $+(%to.y,%to.x)
}
}

alias -l chess_sclick {
if ($hget(chess.info,log_select)) { clear_selections $v1 | hdel chess.info log_select }

if (!$hget(chess.info,init)) {

; SELECT: single player
if ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,320,140),300,50)) {
hadd chess.info init 1 | hadd chess.info clr_own w | hadd chess.info mode sp
chess_initiate
}
; SELECT: connect to a server
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,380,200),300,50)) {
connect_dialog
}
; SELECT: start a server
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,440,260),300,50)) {
server_dialog
}
; SELECT: help
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,500,310),300,50)) {
url -n http://wiki.prco23.org/index.php/Chess_game#Help
}
return
}
; OPEN: log-window
elseif ($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,700,380),$iif($hget(chess.options,size) == 100,820,510),125,40)) {
if ($hget(chess.info,log_show)) { hdel chess.info log_show | log_show $iif(($hget(chess.options,log_format) == 1),-120,-220) }
else { hadd chess.info log_show 1 | log_show $iif(($hget(chess.options,log_format) == 1),+120,+220) }

if (!$hget(chess.info,log_shown)) {
hadd chess.info log_shown 1
if ($exists(chess/temp.log)) { filter -fk chess/temp.log filter_log * }
}
}

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,own_turn)) { return }
if ($hget(chess.info,mode) == sp) { var %clr_own = $iif($hget(chess.info,last_moved) == w,b,w) | hadd chess.info clr_own %clr_own }
else { var %clr_own = $hget(chess.info,clr_own) }

var %x = $iif($hget(chess.options,size) == 100,$left($calc($mouse.x -20+100),1),$left($calc(((($mouse.x -20) /60) * 100) +100),1))
var %y = $iif($hget(chess.options,size) == 100,$left($calc($mouse.y -20+100),1),$left($calc(((($mouse.y -20) /60) * 100) +100),1))

var %xy = $+(%y,%x)
var %clr_selected = $left($hget(chess.board,%xy),1)
var %clr_moved = $hget(chess.info,clr_moved)

var %last.x = $hget(chess.info,last.x)
var %last.y = $hget(chess.info,last.y)
var %last.xy = $+(%last.y,%last.x)
var %y-1 = $iif($hget(chess.info,clr_own) == w,$fw(%y,1,%clr_moved),$bw(%y,1,%clr_moved))
var %xy-1 = $+(%y-1,%x)

var %y2 = $calc(9 - %y)
var %x2 = $calc(9 - %x)
var %xy2 = $+(%y2,%x2)
var %last.x2 = $calc(9 - $hget(chess.info,last.x))
var %last.y2 = $calc(9 - $hget(chess.info,last.y))
var %last.xy2 = $+(%last.y2,%last.x2)

var %is_last = $iif((%x == %last.x) && (%y == %last.y),$true,$false)
var %current_selections = $hget(chess.info,current_selections)
var %selected = $hget(chess.info,selected)

if (!%selected) && (%clr_selected != %clr_own) && ($hget(chess.board,%xy)) { return }
elseif (%selected) && (%clr_selected == %clr_own) {
clear_selections %last.xy %current_selections | hdel chess.info selected | hdel chess.info current_selections
if (%is_last) { hdel chess.info castling | return }
if ($hget(chess.info,castling)) { chess_castling %last.xy %xy $hget(chess.info,clr_own) | return }
hdel chess.info castling
}
elseif (!$hget(chess.board,%xy) && !$hget(chess.info,selected)) { return }
elseif (!$istok(%current_selections,%xy,32)) && (%current_selections) { return }

; a piece is selected, and moveable
if ($hget(chess.info,selected)) {
hadd chess.info last_moved %clr_own

if ($hget(chess.info,en_passant) == %xy-1) && ($left($hget(chess.board,%xy-1),1) != %clr_own) {
hadd chess.info log_ep 1
hdel chess.board %xy-1
drawrect -rf @chess $get_color(%x,%y-1) 0 $get_square(%x) $get_square(%y-1) $hget(chess.options,size) $hget(chess.options,size)
}
hdel chess.info en_passant
hdel chess.info check

drawrect -rf @chess $get_color(%last.x,%last.y) 0 $get_square(%last.x) $get_square(%last.y) $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,%last.xy)) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
if ($hget(chess.board,%xy)) { hadd chess.info take $v1 }
.echo -qg $chess_move(%last.xy,->,%xy)
clear_selections %current_selections %last.xy
hdel chess.info selected
hdel chess.info current_selections

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,king_in_danger)) {
if (!$hget(chess.info,just_switched)) { chess_send move %last.xy2 %xy2 }
print_info light_blue $hget(chess.info,opponent) $+ 's turn
hdel chess.info own_turn
}
hdel chess.info just_switched
hdel chess.info king_in_danger
}

; nothing selected, so we're selecting a piece
else {
var %piece = $hget(chess.board,%xy)
draw_selection %x %y green
hadd chess.info selected 1
chess_piece_options %piece %x %y
}

hadd chess.info clr_moved %clr_selected
hadd chess.info last.x %x
hadd chess.info last.y %y
}

alias -l draw_piece {
var %y = $calc((($replace($left($3,1),w,1,b,3) + $iif($4 == 10407679,0,1)) *100) -100)
var %x = $calc($replace($right($3,-2),pawn,0,rook,1,knight,2,bishop,3,queen,4,king,5) *100)
drawpic -cms @chess $1 $2 $hget(chess.options,size) $hget(chess.options,size) %x %y 100 100 $qt($mircdirchess/pieces.png)
}

alias -l draw_selection {
if ($3 == red) && (!$hget(chess.options,frames)) { return }
drawrect -r @chess $clr_replace($3) 3 $calc($get_square($1) +1) $calc($get_square($2) +1) $calc($hget(chess.options,size) -2) $calc($hget(chess.options,size) -2)
}

alias -l chess_move {
var %piece = $hget(chess.board,$1)
var %move_len = $abs($calc($left($3,1) - $left($1,1)))

if ($right(%piece,-2) == pawn) {
var %l.x = $mid($3,2,1)
var %l.y = $mid($3,1,1)
var %l.y-1 = $calc(%l.y -1)
var %l.xy-1 = $+(%l.y-1,%l.x)

if ($istok(1 8,$left($3,1),32)) {
var %l.x2 = $calc(9 - $mid($1,2,1))
var %l.y2 = $calc(9 - $mid($1,1,1))
var %l.xy2 = $+(%l.y2,%l.x2)

var %n.x2 = $calc(9 - $mid($3,2,1))
var %n.y2 = $calc(9 - $mid($3,1,1))
var %n.xy2 = $+(%n.y2,%n.x2)

.echo -qg $dialog(choose_piece,choose_piece)
if ($hget(chess.info,mode) == mp) { chess_send switch %newpiece %n.xy2 %l.xy2 }
switch_piece %newpiece $3 $1
hadd chess.info just_switched 1

return
}
elseif (%move_len == 2) { hadd chess.info en_passant $3 }

if ($hget(chess.info,opponent_move)) && ($hget(chess.info,en_passant) == %l.xy-1) {
hadd chess.info log_ep 1
hdel chess.board %l.xy-1
drawrect -rf @chess $get_color(%l.x,%l.y-1) 0 $get_square(%l.x) $get_square(%l.y-1) $hget(chess.options,size) $hget(chess.options,size)
}
}
elseif (%piece == $+($hget(chess.info,clr_own),_king)) {
hadd chess.info $+($1,_king_moved) 1
}
elseif (%piece == $+($hget(chess.info,clr_own),rook)) && ($1 == 81) {
hadd chess.info left_rook_moved 1
}
elseif (%piece == $+($hget(chess.info,clr_own),rook)) && ($1 == 88) {
hadd chess.info right_rook_moved 1
}
hadd chess.board $3 %piece
hdel chess.board $1

hadd chess.info king_check 1
hadd chess.info king_check2 1
chess_piece_options %piece $mid($3,2,1) $mid($3,1,1)

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check
hadd chess.info check 1
chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $1 $3 $right(%piece,-2) $+(+,$iif($hget(chess.info,take),x))
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $1 $3 $right(%piece,-2) $iif($hget(chess.info,take),x) }
}
elseif (!$hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
var %checked 1
chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $+(+,$iif($hget(chess.info,take),x))
}

hdel chess.info threat_zone
var %n = 1
hadd chess.info king_check 1
while ($hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_,*),%n,w).data) {
var %s = $v1
if ($right($hget(chess.board,%s),-2) != king) { chess_piece_options_rec $hget(chess.board,%s) $mid(%s,2,1) $mid(%s,1,1) }
inc %n
}

if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
hadd chess.info king_in_danger 1
}
elseif (!$hget(chess.info,just_switched)) && (!%checked) { chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $iif($hget(chess.info,take),x) }

}

if ($hget(chess.info,king_in_danger)) {
print_info red Illegal move! king would be threated.
hadd chess.board $1 %piece
if ($hget(chess.info,take)) { hadd chess.board $3 $v1 }
else { hdel chess.board $3 }
}
else {
hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
}
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2

return
}

alias -l switch_piece {
var %x = $mid($2,1,1)
var %y = $mid($2,2,1)
var %dx = $get_square(%x)
var %dy = $get_square(%y)
var %piece = $hget(chess.board,$3)

var %new_piece = $1
hadd chess.board $2 %new_piece
hdel chess.board $3

draw_piece %dy %dx %new_piece $get_color(%x,%y)

hadd chess.info king_check 1
hadd chess.info king_check2 1
chess_piece_options %new_piece %y %x

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check
chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $3 $2 $right(%piece,-2) $+(s,+,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2)
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $3 $2 $right(%piece,-2) $+(s,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2) }
}
elseif ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $+(s,+,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2)
}
else { chess_log $hget(chess.info,clr_own) $3 $2 $right(%piece,-2) $+(s,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2) }

unset %newpiece

hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2
}

alias -l chess_castling {
var %x.king = $mid($1,2,1)
var %y.king = $mid($1,1,1)
var %x.rook = $mid($2,2,1)
var %y.rook = $mid($2,1,1)

var %xy.king = $+(%y.king,%x.king)
var %xy.rook = $+(%y.rook,%x.rook)
var %king = $+($3,_king)
var %rook = $+($3,_rook)

var %l.x2 = $calc(9 - $mid($1,2,1))
var %l.y2 = $calc(9 - $mid($1,1,1))
var %l.xy2 = $+(%l.y2,%l.x2)

var %n.x2 = $calc(9 - $mid($2,2,1))
var %n.y2 = $calc(9 - $mid($2,1,1))
var %n.xy2 = $+(%n.y2,%n.x2)

if ($3 == $hget(chess.info,clr_own)) {
hadd chess.info king_moved 1
hadd chess.info $+($iif(%x.rook == 8,right,left),_rook_moved) 1
}

if (%x.rook == 8) {
var %x+1.king = $calc(%x.king +2)
var %xy+1.king = $+(%y.king,%x+1.king)
var %x-1.king = $calc(%x.king +1)
var %xy-1.king = $+(%y.king,%x-1.king)
var %castling = $iif($hget(chess.info,clr_own) == w,0-0,0-0-0)
}
else {
var %x+1.king = $calc(%x.king -2)
var %xy+1.king = $+(%y.king,%x+1.king)
var %x-1.king = $calc(%x.king -1)
var %xy-1.king = $+(%y.king,%x-1.king)
var %castling = $iif($hget(chess.info,clr_own) == w,0-0-0,0-0)
}

if ($hget(chess.info,clr_own) == w) {
;draw_piece $get_square(%x+1.king) $get_square(%y.king) %king $get_color(%x+1.king,%y.king)
;draw_piece $get_square(%x-1.king) $get_square(%y.king) %rook $get_color(%x-1.king,%y.king)
}

draw_piece $get_square(%x+1.king) $get_square(%y.king) %king $get_color(%x+1.king,%y.king)
draw_piece $get_square(%x-1.king) $get_square(%y.king) %rook $get_color(%x-1.king,%y.king)

drawrect -rf @chess $get_color(%x.rook,%y.rook) 0 $get_square(%x.rook) $get_square(%y.rook) $hget(chess.options,size) $hget(chess.options,size)
drawrect -rf @chess $get_color(%x.king,%y.king) 0 $get_square(%x.king) $get_square(%y.king) $hget(chess.options,size) $hget(chess.options,size)

hadd chess.board %xy+1.king %king
hadd chess.board %xy-1.king %rook
hdel chess.board %xy.rook
hdel chess.board %xy.king

if ($hget(chess.info,mode) == mp) && (!$4) {
chess_send castling %l.xy2 %n.xy2 $3
print_info light_blue $hget(chess.info,opponent) $+ 's turn
}

hadd chess.info king_check 1
hadd chess.info king_check2 1

var %piece = %rook
chess_piece_options %piece %x-1.king %y.king

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check | chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) %castling +
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) %castling }
}
elseif ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
chess_log $hget(chess.info,clr_own) %castling +
}
else { chess_log $hget(chess.info,clr_own) %castling }

hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2
hdel chess.info own_turn
hdel chess.info castling
}

alias -l clr_replace {
return $replacex($1,red,255,green,65280,blue,16732457,yellow,2751743,light_blue,16749691,white,16777215)
}

alias -l get_color {
;return $iif($calc(($1 -($2 % 2)) % 2),0,16777215)
return $iif($calc(($1 -($2 % 2)) % 2),4688849,10407679)
; 10407679
}

alias get_piece {
if ($istok(1 2 7 8,$1,32)) {
var %c = $hget(chess.info,clr_own)
if ($1 == 2) { return $+($iif(%c == w,b,w),_pawn) }
elseif ($1 == 7) { return $+(%c,_pawn) }
elseif ($1 == 8) { return $+(%c,$gettok(_rook _knight _bishop $iif(%c == w,_queen _king,_king _queen) _bishop _knight _rook,$2,32)) }
else { return $+($iif(%c == w,b,w),$gettok(_rook _knight _bishop $iif(%c == w,_queen _king,_king _queen) _bishop _knight _rook,$2,32)) }
}
}

alias -l get_square {
return $calc((($1 -1) * $hget(chess.options,size)) +20)
}

alias -l clear_selections {
var %z = 1
while ($gettok($1-,%z,32)) {
var %x = $mid($v1,2,1)
var %y = $mid($v1,1,1)
var %ispiece = $hget(chess.board,$v1)
if ($v1 != 99) {
drawrect -rf @chess $get_color(%x,%y) 0 $get_square(%x) $get_square(%y) $hget(chess.options,size) $hget(chess.options,size)
if (%ispiece) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
}
inc %z
}
}

alias -l print_info {
drawrect -rf @chess 3684408 0 20 $iif($hget(chess.options,size) == 100,825,505) $iif($hget(chess.options,size) == 100,570,420) 20 | drawtext -cro @chess $clr_replace($1) "courier new" $iif($hget(chess.options,size) == 100,16,12) 20 $iif($hget(chess.options,size) == 100,825,505) $iif($hget(chess.options,size) == 100,570,420) 20 $2-
}

alias -l check_square {
var %hg = $hget(chess.board,$+($2,$1))
var %c = $iif($hget(chess.info,clr_own) == w,b,w)
if ($hget(chess.info,king_check)) { var %c = $iif(%c == w,b,w) }
if ($3) { var %c = $3 }
if (!%hg) || ($left(%hg,1) == %c) {
return $true
}
}

alias -l in_board {
if ($1 isnum 1-8) && ($2 isnum 1-8) { return $true }
}

alias -l draw+select {
if (!$hget(chess.info,king_check)) { draw_selection $1 $2 $hget(chess.info,clr_select) }
return $+($2,$1)
}

alias -l chess_piece_options_rec {
chess_piece_options $1-
}

alias -l fw { return $calc($1 $iif($3 == w,+,-) $2) }
alias -l bw { return $calc($1 $iif($3 == w,-,+) $2) }

alias -l chess_piece_options {
var %king_check = $hget(chess.info,king_check)
var %king_check2 = $hget(chess.info,king_check2)

var %piece = $right($1,-2)
var %clr_own = $left($1,1)

if (!%king_check) {
var %clr_own = $iif(%clr_own == w,w,b)
var %clr_opponent = $iif(%clr_own == w,b,w)
}

var %clr_opponent = $iif(%clr_own == w,b,w)

var %x = $2
var %y = $3

; PAWN
if (%piece == pawn) {

var %y+1 = $iif(%clr_own == w,$bw(%y,1,%clr_own),$fw(%y,1,%clr_own))
var %y-1 = $iif(%clr_own == w,$fw(%y,1,%clr_own),$bw(%y,1,%clr_own))
var %y+2 = $iif(%clr_own == w,$bw(%y,2,%clr_own),$fw(%y,2,%clr_own))
var %x+1 = $calc(%x +1)
var %x-1 = $calc(%x -1)

var %take_left = $+(%y+1,%x+1)
var %take_right = $+(%y+1,%x-1)

if (($left($hget(chess.board,%take_left),1) == %clr_opponent) || (($hget(chess.info,en_passant) == $+(%y,%x+1)) && ($left($hget(chess.board,$+(%y,%x+1)),1) == %clr_opponent))) {
if (!%king_check) { var %select = %select $draw+select(%x+1,%y+1,%x) }
}
if (%king_check) { var %select = %select $draw+select(%x+1,%y-1) }

if (($left($hget(chess.board,%take_right),1) == %clr_opponent) || (($hget(chess.info,en_passant) == $+(%y,%x-1)) && ($left($hget(chess.board,$+(%y,%x-1)),1) == %clr_opponent))) {
if (!%king_check) { var %select = %select $draw+select(%x-1,%y+1) }
}
if (%king_check) { var %select = %select $draw+select(%x-1,%y-1) }

if (!$hget(chess.board,$+(%y+1,%x))) && (%y+1 <= 8) && (%y+1 >= 1) && (!%king_check) {
var %select = %select $draw+select(%x,%y+1)

; 2 steps for first move
if ($istok(2 7,%y,32)) && (!$hget(chess.board,$+(%y+2,%x))) && (%y+2 <= 8) && (%y+2 > 1) { var %select = %select $draw+select(%x,%y+2) }
}
if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; ROOK
elseif (%piece == rook) {

; :: RIGHT
var %z = $iif(%x == 8,9,$calc(%x +1))
while (%z <= 8) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | inc %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: LEFT
var %z = $iif(%x == 1,0,$calc(%x -1))
while (%z >= 1) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | dec %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: UP
var %z = $iif(%y == 1,0,$calc(%y -1))
while (%z >= 1) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | dec %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: DOWN
var %z = $iif(%y == 8,9,$calc(%y +1))
while (%z <= 8) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | inc %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; BISHOP
elseif (%piece == bishop) {

; :: LEFT-UP
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx >= 1) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: LEFT-DOWN
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx >= 1) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-UP
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx <= 8) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-DOWN
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx <= 8) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; QUEEN
elseif (%piece == queen) {

; :: RIGHT
var %z = $iif(%x == 8,9,$calc(%x +1))
while (%z <= 8) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | inc %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: LEFT
var %z = $iif(%x == 1,0,$calc(%x -1))
while (%z >= 1) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | dec %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: UP
var %z = $iif(%y == 1,0,$calc(%y -1))
while (%z >= 1) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | dec %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: DOWN
var %z = $iif(%y == 8,9,$calc(%y +1))
while (%z <= 8) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | inc %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: LEFT-UP
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx >= 1) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: LEFT-DOWN
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx >= 1) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-UP
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx <= 8) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-DOWN
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx <= 8) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; KNIGHT
elseif (%piece = knight) {

var %x+1 = $iif(%x == 8,9,$calc(%x +1))
var %x-1 = $iif(%x == 1,0,$calc(%x -1))
var %x+2 = $iif(%x == 8,9,$calc(%x +2))
var %x-2 = $iif(%x == 1,0,$calc(%x -2))
var %y+1 = $iif(%y == 8,9,$calc(%y +1))
var %y-1 = $iif(%y == 1,0,$calc(%y -1))
var %y+2 = $iif(%y == 8,9,$calc(%y +2))
var %y-2 = $iif(%y == 1,0,$calc(%y -2))

; :: DOWN-2 RIGHT-1
if (($check_square(%x+1,%y+2,%clr_opponent)) && ($in_board(%x+1,%y+2))) || (%king_check) { var %select = %select $draw+select(%x+1,%y+2) }

; :: DOWN-2 LEFT-1
if (($check_square(%x-1,%y+2,%clr_opponent)) && ($in_board(%x-1,%y+2))) || (%king_check) { var %select = %select $draw+select(%x-1,%y+2) }

; :: DOWN-1 RIGHT-2
if (($check_square(%x+2,%y+1,%clr_opponent)) && ($in_board(%x+2,%y+1))) || (%king_check) { var %select = %select $draw+select(%x+2,%y+1) }

; :: DOWN-1 LEFT-2
if (($check_square(%x-2,%y+1,%clr_opponent)) && ($in_board(%x-2,%y+1))) || (%king_check) { var %select = %select $draw+select(%x-2,%y+1) }

; :: UP-2 RIGHT-1
if (($check_square(%x+1,%y-2,%clr_opponent)) && ($in_board(%x+1,%y-2))) || (%king_check) { var %select = %select $draw+select(%x+1,%y-2) }

; :: UP-2 LEFT-1
if (($check_square(%x-1,%y-2,%clr_opponent)) && ($in_board(%x-1,%y-2))) || (%king_check) { var %select = %select $draw+select(%x-1,%y-2) }

; :: UP-1 RIGHT-2
if (($check_square(%x+2,%y-1,%clr_opponent)) && ($in_board(%x+2,%y-1))) || (%king_check) { var %select = %select $draw+select(%x+2,%y-1) }

; :: UP-1 LEFT-2
if (($check_square(%x-2,%y-1,%clr_opponent)) && ($in_board(%x-2,%y-1))) || (%king_check) { var %select = %select $draw+select(%x-2,%y-1) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; KING
elseif (%piece == king) {

var %x-1 = $iif(%x == 1,0,$calc(%x -1))
var %y-1 = $iif(%y == 1,0,$calc(%y -1))
var %x+1 = $iif(%x == 8,9,$calc(%x +1))
var %y+1 = $iif(%y == 8,9,$calc(%y +1))
var %xy = $+(%y,%x)

if (!%king_check) {
var %n = 1

hadd chess.info king_check 1
while ($hfind(chess.board,$+(%clr_opponent,_,*),%n,w).data) {
var %s = $v1
if ($right($hget(chess.board,%s),-2) != king) { chess_piece_options_rec $hget(chess.board,%s) $mid(%s,2,1) $mid(%s,1,1) }
inc %n
}
hdel chess.info king_check
}

; :: RIGHT
if ($check_square(%x+1,%y)) && ($in_board(%x+1,%y)) && (!$istok($hget(chess.info,threat_zone),$+(%y,%x+1),32)) {
var %select = %select $draw+select(%x+1,%y)
}

; :: LEFT
if ($check_square(%x-1,%y)) && ($in_board(%x-1,%y)) && (!$istok($hget(chess.info,threat_zone),$+(%y,%x-1),32)) { var %select = %select $draw+select(%x-1,%y) }

; :: UP
if ($check_square(%x,%y-1)) && ($in_board(%x,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x),32)) { var %select = %select $draw+select(%x,%y-1) }

; :: DOWN
if ($check_square(%x,%y+1)) && ($in_board(%x,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x),32)) { var %select = %select $draw+select(%x,%y+1) }

; :: LEFT-UP
if ($check_square(%x-1,%y-1)) && ($in_board(%x-1,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x-1),32)) { var %select = %select $draw+select(%x-1,%y-1) }

; :: LEFT-DOWN
if ($check_square(%x-1,%y+1)) && ($in_board(%x-1,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x-1),32)) { var %select = %select $draw+select(%x-1,%y+1) }

; :: RIGHT-UP
if ($check_square(%x+1,%y-1)) && ($in_board(%x+1,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x+1),32)) { var %select = %select $draw+select(%x+1,%y-1) }

; :: RIGHT-DOWN
if ($check_square(%x+1,%y+1)) && ($in_board(%x+1,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x+1),32)) { var %select = %select $draw+select(%x+1,%y+1) }

; :: Castling
if (!$hget(chess.info,king_moved)) {
var %iy = 8
var %lxy = $+(%iy,1)
var %rxy = $+(%iy,8)

if ($castling_left(%lxy,%iy,%clr_own)) {
var %select = %select $draw+select(1,%iy)
hadd chess.info castling 1
}
if ($castling_right(%rxy,%iy,%clr_own)) {
var %select = %select $draw+select(8,%iy)
hadd chess.info castling 1
}
}

hdel chess.info threat_zone

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }

return
}
}

alias -l kc {
if ($hget(chess.info,king_check)) {
if ($right($hget(chess.board,$+($1,$2)),-2) != king) && ($hget(chess.board,$+($1,$2))) { return $true }
}
elseif ($hget(chess.board,$+($1,$2))) {
return $true
}
}

alias castling_left {
if ($hget(chess.info,clr_own) == w) {
if (!$hget(chess.info,left_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,2))) && (!$hget(chess.board,$+($2,3))) && (!$hget(chess.board,$+($2,4))) && (!$istok($hget(chess.info,threat_zone),$+($2,2),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,3),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,4),32)) && (!$hget(chess.info,check)) {
return $true
}
}
else {
if (!$hget(chess.info,left_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,2))) && (!$hget(chess.board,$+($2,3))) && (!$istok($hget(chess.info,threat_zone),$+($2,2),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,3),32)) && (!$hget(chess.info,check)) {
return $true
}
}
}

alias castling_right {
if ($hget(chess.info,clr_own) == w) {
if (!$hget(chess.info,right_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,6))) && (!$hget(chess.board,$+($2,7))) && (!$istok($hget(chess.info,threat_zone),$+($2,6),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,7),32)) && (!$hget(chess.info,check)) {
return $true
}
}
else {
if (!$hget(chess.info,right_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,6))) && (!$hget(chess.board,$+($2,7))) && (!$istok($hget(chess.info,threat_zone),$+($2,5),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,6),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,7),32)) && (!$hget(chess.info,check)) {
return $true
}
}
}

;; SOCKETS, msg, notice

#chess.n off
on ^*:notice:chess_game *:?:{
if ($nick == $hget(chess.info,opponent)) { parse_incoming $2- | haltdef }
}
on ^*:text:chess_game *:?:{
if ($nick == $hget(chess.info,opponent)) { parse_incoming $2- | haltdef }
}
#chess.n end

alias start_server {
if ($hget(chess.info,con_type) != irc) {
sockclose chess_connect
socklisten chess_connect 6666
hadd chess.info init 1
}
hadd chess.info clr_own w
hadd chess.info mode mp
hadd chess.info own_turn 1
drawtext -ro @chess 16749691 verdana 22 60 $iif($hget(chess.options,size) == 100,560,380) waiting for other player...
}

alias -l connect_to_server {
sockopen chess %chess.ip %chess.port
}

alias -l chess_send {
if ($hget(chess.info,con_type) == irc) {
var %m = $iif($hget(chess.options,send_method),$v1,msg)
%m $hget(chess.info,opponent) chess_game $1-
}
else { sockwrite -n chess $1- }
}

on *:socklisten:chess_connect:{
chess_initiate
print_info light_blue You start.
sockaccept chess
chess_send init $me
}

on *:sockopen:chess:{
chess_initiate
chess_send init $me
}

on *:sockread:chess:{
var %t
sockread %t
parse_incoming %t
}

on *:sockclose:chess:{
print_info red $hget(chess.info,opponent) disconnected.
}

alias -l parse_incoming {
if ($active != chess) && ($1 != cmsg) { flash @chess | titlebar @chess your turn! }
tokenize 32 $1-

if ($1 == init) {
hadd chess.info opponent $2
if (!$hget(chess.info,own_turn)) { print_info light_blue $2 starts. }
if ($hget(chess.info,con_type) == irc) && (!$hget(chess.info,init)) {
hadd chess.info init 1
chess_initiate
print_info light_blue You start.
chess_send init $me
}
}
elseif ($1 == move) {
hadd chess.info own_turn 1
hadd chess.info opponent_move 1

var %last.xy = $2
var %last.x = $mid(%last.xy,2,1)
var %last.y = $mid(%last.xy,1,1)

var %xy = $3
var %x = $mid(%xy,2,1)
var %y = $mid(%xy,1,1)

drawrect -rf @chess $get_color(%last.x,%last.y) 0 $get_square(%last.x) $get_square(%last.y) $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,%last.xy)) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
print_info light_blue Your turn.
if ($hget(chess.board,%xy)) { hadd chess.info take 1 }
.echo -gq $chess_move(%last.xy,->,%xy)
draw_selection %last.x %last.y light_blue
draw_selection %x %y yellow
.timerclrlast $+ %xy 1 5 clear_selections %last.xy %xy
}
elseif ($1 == load) {
print_info light_blue $hget(chess.info,opponent) loaded a game: $2 with $3
}
elseif ($1 == cmsg) {
print_info yellow msg: $2-
}
elseif ($1 == disconnect) {
print_info red $hget(chess.info,opponent) disconnected.
}
elseif ($1 == switch) {
hadd chess.info opponent_move 1
print_info light_blue Your turn.
if ($hget(chess.board,$4)) { hadd chess.info take 1 }
switch_piece $2-4
clear_selections $4
hadd chess.info own_turn 1
}
elseif ($1 == castling) {
print_info light_blue Your turn.
hadd chess.info opponent_move 1
chess_castling $2-4 1
hadd chess.info own_turn 1
}
}

; LOGGING

alias -l log_show {
window -C @chess $window(@chess).x $window(@chess).y $calc($window(@chess).w $1) $window(@chess).h
}

alias -l chess_log {
if ($2 != 0-0) && ($2 != 0-0-0) {
var %x.from = $mid($2,2,1)
var %x.to = $mid($3,2,1)
var %y.from = $mid($2,1,1)
var %y.to = $mid($3,1,1)

if ($hget(chess.info,clr_own) == w) {
var %y.from = $calc(9 - %y.from)
var %y.to = $calc(9 - %y.to)
}
else {
var %x.from = $calc(9 - %x.from)
var %x.to = $calc(9 - %x.to)
}

var %x.from = $gettok(a b c d e f g h,%x.from,32)
var %x.to = $gettok(a b c d e f g h,%x.to,32)

var %from = $+(%x.from,%y.from)
var %to = $+(%x.to,%y.to)
var %p = $replace($4,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R)
if ($hget(chess.options,log_format) == 1) { var %l = $+(%p,%from,$iif((x isin $5) || ($hget(chess.info,log_ep)),x,-),%to,$iif(s isin $5,$replace($6,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R))) $+ $remove($5,x,s) $iif($hget(chess.info,log_ep),e.p.) }
else { var %l = %p $upper(%from) $+ -> $+ $upper(%to) $iif(s isin $5,$replace($6,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R))) $iif((x isin $5) || ($hget(chess.info,log_ep)),take) $replace($remove($5,x,s),+,check) $iif($hget(chess.info,log_ep),e.p.) }
}

else { var %l = $2 $+ $3 }
print_last_move light_blue %l
print_log $iif($1 == w,white,light_blue) %l
}

alias -l print_last_move {
var %z = $width($2-,courier new,16)
var %y = $calc($iif($hget(chess.options,size) == 100,820,500) - %z)
drawrect -rf @chess 3684408 0 $iif($hget(chess.options,size) == 100,600,280) $iif($hget(chess.options,size) == 100,825,505) 225 20 | drawtext -ro @chess $clr_replace($1) "Courier New" 16 %y $iif($hget(chess.options,size) ==
100,825,505) $2-
}

alias -l print_log {
write chess\temp.log $1-
if (!$hget(chess.info,log_shown)) { return }
hinc chess.info log_lines
var %l = $hget(chess.info,log_lines)
if (%l > $iif($hget(chess.options,size) == 100,40,24)) { drawscroll @chess 0 -20 $iif($hget(chess.options,size) == 100,840,520) 20 200 $iif($hget(chess.options,size) == 100,840,520) }

drawtext -ro @chess $clr_replace($1) "Courier New" 16 $iif($hget(chess.options,size) == 100,840,520) $calc(0+(20 * $iif(%l <= $iif($hget(chess.options,size) == 100,40,24),%l,$v2) )) $2-
}

alias -l filter_log {
tokenize 32 $1
hinc chess.info log_lines
var %l = $hget(chess.info,log_lines)

if (%l > $iif($hget(chess.options,size) == 100,40,24)) { drawscroll @chess 0 -20 $iif($hget(chess.options,size) == 100,840,520) 20 200 $iif($hget(chess.options,size) == 100,840,520) }

drawtext -ro @chess $clr_replace($1) "Courier New" 16 $iif($hget(chess.options,size) == 100,840,520) $calc(0+(20 * $iif(%l <= $iif($hget(chess.options,size) == 100,40,24),%l,$v2) )) $2-
}

alias -l log_save {
var %f = $+(chess/,$asctime(yyyy-mm-dd-hhnnss),-,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.log)
filter -ff chess\temp.log %f
}

; DIALOGS

alias -l connect_dialog { .echo -gq $$dialog(chess_connect,chess_connect) }

dialog -l chess_connect {
title "Create chess connection"
size -1 -1 275 70
option pixels

tab "Sockets", 11, -1 -1 277 202
tab "IRC", 12, -1 -1 277 202

text "IP", 1, 7 25 100 20, tab11
text "PORT", 2, 111 25 100 20, tab11
edit "", 3, 5 42 100 20, tab11
edit "", 4, 108 42 100 20, tab11
button "connect", 5, 211 41 60 22,default

text "IRC-nick to connect to", 8, 7 25 150 20, tab12
edit "", 9, 5 42 100 20 , tab12
}

on 1:dialog:chess_connect:init:*:{
did -a $dname 3 %chess.ip
did -a $dname 4 $iif(%chess.port,$v1,6666)
}

on 1:dialog:chess_connect:sclick:5:{
if ($dialog($dname).tab == 11) {
set %chess.ip $did($dname,3)
set %chess.port $did($dname,4)
hadd chess.info init 1 | hadd chess.info clr_own b | hadd chess.info mode mp | hadd chess.info last_moved b
dialog -x chess_connect
connect_to_server
}
else {
hadd chess.info init 1 | hadd chess.info clr_own b | hadd chess.info mode mp | hadd chess.info last_moved b | hadd chess.info opponent $did($dname,9)
dialog -x chess_connect
hadd chess.info con_type irc
chess_send init $me
chess_initiate
.enable #chess.n
}
}

dialog -l chess_send_pm {
title "Send a message"
size -1 -1 275 50
option pixels

text "", 1, 7 5 250 20,
edit "", 2, 5 25 200 20,
button "send" 3, 211 25 60 22,default
}

on 1:dialog:chess_send_pm:init:*:{
did -a $dname 1 Send a message to $hget(chess.info,opponent)
}

on 1:dialog:chess_send_pm:sclick:3:{
dialog -x chess_send_pm
chess_send cmsg $did($dname,2)
}

dialog -l chess_getimg {
title "Missing files"
size -1 -1 275 70
option pixels

text "The file pieces.png doesn't seem to exist in your chess-directory, download it?", 1, 7 5 270 30,
text "", 2, 7 50 250 20
button "download" 3, 211 45 60 22,default
}

on 1:dialog:chess_getimg:sclick:3:{
if (!$hget(chess.info,retry)) { getimg | did -ra $dname 2 downloading... }
elseif ($hget(chess.info,retry) < 5) { getimg }
else { dialog -x $dname }
}

alias -l server_dialog { .echo -gq $$dialog(chess_server,chess_server) }

dialog -l chess_server {
title "Start a chess server"
size -1 -1 275 70
option pixels

tab "Sockets", 11, -1 -1 277 202
tab "IRC", 12, -1 -1 277 202

text "Start a socket connection", 1, 7 25 200 20, tab11
button "start", 2, 5 41 60 22,default tab11

text "Wait for a connection from nick...", 3, 7 25 200 20, tab12
edit "", 4, 5 42 100 20 , tab12
button "start", 5, 108 41 60 22,default tab12
}

on 1:dialog:chess_server:init:*:{
did -a $dname 4 $iif(%chess.nick,$v1)
}

on 1:dialog:chess_server:sclick:2:{
start_server
dialog -x $dname
}

on 1:dialog:chess_server:sclick:5:{
hadd chess.info con_type irc
hadd chess.info opponent $did($dname,4)
.enable #chess.n
start_server
set %chess.nick $did($dname,4)
dialog -x $dname
}

dialog choose_piece {
title "Chess - choose new piece"
size -1 -1 422 130
option pixels

text "Select a new piece.",5, 7 5 417 20
button "Queen" 1, 5 25 100 100
button "Rook" 2, 108 25 100 100
button "Bishop" 3, 211 25 100 100
button "Knight" 4, 314 25 100 100
}

on 1:dialog:choose_piece:sclick:1,2,3,4:{
set %newpiece $+($hget(chess.info,clr_own),_,$gettok(queen rook bishop knight,$did,32))
dialog -x choose_piece
}

dialog -l chess_options {
title "Chess options"
size -1 -1 400 400
option pixels

text "Logging format", 1, 7 8 100 20
combo 2, 110 5 200 20,drop

text "Square size (pixels)", 3, 7 30 100 20
combo 4, 110 27 200 20,drop

text "IRC send method", 5, 7 52 100 20
combo 6, 110 49 200 20,drop

text "Selection frames", 7, 7 74 100 20
check "" 8, 110 71 20 20,

button "save", 10, 330 370 60 22,ok
}

on 1:dialog:chess_options:init:*:{
did -a $dname 2 International (Pe2xf1Q+)
did -a $dname 2 New (P E2->F1 Q take+check)
did -c $dname 2 $iif($hget(chess.options,log_format),$v1,1)

did -a $dname 4 100
did -a $dname 4 60
did -c $dname 4 $iif($hget(chess.options,size) == 100,1,2)

did -a $dname 6 msg
did -a $dname 6 notice
did -c $dname 6 $iif($hget(chess.options,send_method) == msg,1,2)

if ($hget(chess.options,frames)) { did -c $dname 8 }
}

on 1:dialog:chess_options:sclick:10:{
hadd chess.options log_format $did($dname,2).sel
if ($did($dname,4).seltext != $hget(chess.options,size)) { hadd chess.options size $did($dname,4).seltext | .timerrestart 1 0 chess_restart }
if ($did($dname,8).state == 1) { hadd chess.options frames 1 }
else { hdel chess.options frames }
hadd chess.options send_method $did($dname,6)

hsave chess.options chess/options.hsh
}

; FETCH IMAGE
alias getimg {
if (!$exists(chess)) { mkdir chess }
.remove $qt($mircdirchess/pieces.png)
sockclose getimg
sockopen getimg lost.kapsi.fi 80
}
on *:sockopen:getimg:{
sockwrite -nt getimg GET /cail/pieces.png HTTP/1.1
sockwrite -nt getimg Host: lost.kapsi.fi
sockwrite -nt getimg Connection: close
sockwrite -nt getimg $crlf
}
on *:sockread:getimg:{
if (!$sock(getimg).mark) {
var %t
sockread %t
if ($gettok(%t,1,32) == Content-Length:) { var %content_len = $gettok(%t,2,32) }
}
if (!%t) { sockmark getimg $iif(%content_len,$v1,1) }
if ($sock(getimg).mark) {
sockread -f &img
bwrite $qt($mircdirchess/pieces.png) -1 &img
}
}
on *:sockclose:getimg:{
if ($file($qt($mircdirchess/pieces.png)) == $sock(getimg).mark) || ($sock(getimg).mark == 1) { dialog -x chess_getimg }
elseif ($hget(chess.info,retry) <= 5) { hinc chess.info retry | did chess_getimg 2 Error, trying again... ( $+ $hget(chess.info,retry) $+ ) | .remove $qt($mircdirchess/pieces.png) | getimg }
else { did chess_getimg 2 5 retries gone, try again later }
unset %content_len
}

== Help ==

=== The game ===

Singleplayer mode is only for debugging and testing, not actually to play.
This game is meant to be played as multiplayer, where other player starts a server (whites),
and other connects to this server (blacks)

=== Server and connecting ===

Two connection types are available, sockets and through IRC with /notice or /msg
Connection type must be same on both players, the one starting a server must start a server using sockets
(default), or from server dialog select IRC and input the other players nick (in active server connection)

The connecting player must then select the same connection method from the connect dialog, and input
the servers IP (sockets) or NICK (IRC),
note that the same PORT must be used on both clients.

=== Implemented rules === (read more about the rules from wikipedia)

All the pieces move correctly, and you cannot make a move that wouldn't go by the rules.
Pawn can perform en passant move, and if advanced to the 8th rank (other side of the board), it gets promoted to queen,rook,bishop,knight of the same color.
King and rook can perform castling move, if all the requirements are met, selecting king will highlight the rook, if then clicked on the rook, the castling is performed.
IF king is in check, the game will show the selectiong borders in squares you cannot move, but won't let you move there if you try.

=== Mouse & menus ===

You select pieces by clicking them, and move them by clicking on the target square, clicking the selected piece will de-select it.
You'll find last move from bottom right hand side of the board, clicking it will append the log-window on the right side, where you will see
40 (with 100px squares) or 24 (60px squares) last moves, doubleclicking a move in the log-window will highlight the move on the board.
Right clicking anywhere brings you a popup-menu, where you will always find options and help, if in game, also save & load are in this menu.
If in multiplayer mode, there's also "send msg", from where you can send a message to other players infobar (bottom left hand side on the board).
Right clicking on the log menu let's you save the log.

=== Saving & loading ===

You can save and load your gamestate, the game will create 2 files into your /chess-folder
YYYY-MM-DD-HHNNSS_board_OPPONENTSNAME.save and YYYY-MM-DD-HHNNSS_info_OPPONENTSNAME.save
There will be notification for you, if the opponent loads a game, telling you what game he/she loaded.

=== Options ===

Logging format: let's you choose the logging format between "International (Pe2xf1Q+)" and "New (P E2->F1 Q take+check)"
Square size: Width & height of the squares in the board in pixels.
IRC send method: Uses /msg OPPONENT or /notice OPPONENT to send information if connected via IRC.
Selection frames: Switch on/off showing of the borders in squares where you can move.

[[Category:Script_Archive]]

Chess game

2024-04-19T13:40:15Z

Cail: DING DING DING

Chess game

2020-02-11T21:34:14Z

Cail: Moved source to wiki for no reason, or for reservation, even if slightly defunct.

[[:Image:Chess selection.jpg|Screenshot of the gameplay]]

== Source ==

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Chess game with picture windows by Cail at Quakenet -> #help.script
;
; The singleplayer mode is only for debugging and testing.
; Multiplayer was the main idea, you can use sockets or IRC to play (read help).
; The game will download the pieces automatically and put them into right place,
; If you are experiencing problems with the game's download, get the image from: http://lost.kapsi.fi/cail/pieces.png
; (images originally from mediawiki, by Wapcaplet) and put them into /mircdir/chess directory.
;
; Type /chess to start the game.
; Also support saving and loading the game state.
; Includes logging of moves, shows last move all the time, and last 40/24 moves in a sidepanel, which can be toggled on/off.
;
; Be sure to read the help for full description of all features.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias chess {
if ($hget(chess.board)) { hfree chess.board } | hmake chess.board 100
if ($hget(chess.info)) { hfree chess.info } | hmake chess.info 100
if ($hget(chess.options)) { hfree chess.options } | hmake chess.options 100
if ($exists(chess/options.hsh)) { hload chess.options chess/options.hsh }
else {
hadd chess.options size 100
hadd chess.options log_format 1
hadd chess.options send_method msg
hadd chess.options frames 1
}

window -adfpw0C +nft @chess 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +50)
drawrect -rf @chess 3684408 0 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +50)

log_show -200
hadd chess.info log_lines 0

drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,320,140) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,380,200) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,440,260) 300 50
drawrect -r @chess 65280 1 60 $iif($hget(chess.options,size) == 100,500,320) 300 50

drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,330,150) single player (debug)
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,390,210) connect to a server
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,450,270) start a server
drawtext -ro @chess 16749691 verdana 22 70 $iif($hget(chess.options,size) == 100,510,330) help

if (!$exists($qt($mircdirchess/pieces.png))) { .echo -qg $dialog(chess_getimg,chess_getimg) }
}

menu @chess {
sclick: chess_sclick
dclick: chess_dclick
options:.echo -qg $dialog(chess_options,chess_options)
help:url -n http://wiki.prco23.org/index.php/Chess_game#Help
$iif($hget(chess.info,init),save):chess_save
$iif($hget(chess.info,init),load):chess_load $$dialog(load_table,load_table)
$iif($hget(chess.info,mode) == mp,send msg):.echo -qg $dialog(chess_send_pm,chess_send_pm)

$iif($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520)),-)
$iif($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520)),save log):log_save
}

on *:close:@chess:{
hfree chess.board
hfree chess.info
hfree chess.options

if ($exists(chess/temp.log)) { .remove chess/temp.log }
if ($sock(chess_connect)) { sockclose chess_connect }
if ($sock(chess)) { sockclose chess }

if ($hget(chess.info,con_type) == irc) { chess_send disconnect | .disable #chess.n }
}

on *:active:@chess:{ titlebar @chess }

dialog load_table {
title "Chess"
size -1 -1 422 220
option pixels

text "Select a saved game.", 1, 7 5 417 20,result
list 2, 5 25 410 200, sort
button "", 3, -20 -20 1 1, ok
}

on 1:dialog:load_table:init:*:{
.echo -qg $findfile(chess,*board*.save,0,parse_save $1-)
}

alias -l parse_save {
.echo -qg $regex($1-,/\\([^\\]+)_board_(.+)\.save/g)
var %s = $gettok($regml(1),-1,45)
did -a $dname 2 $gettok($regml(1),-4--2,45) $+($mid(%s,1,2),:,$mid(%s,3,2),:,$mid(%s,5,2)) - $regml(2)
}

on 1:dialog:load_table:dclick:2:{
did -ra $dname 1 $did($dname,2).seltext
dialog -k $dname
}

alias chess_restart {
hadd chess.info restart 1
window -c @chess
window -adfpw0C +nft @chess 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +60)
drawrect -rf @chess 3684408 0 0 0 $calc(($hget(chess.options,size) *8) +240) $calc(($hget(chess.options,size) *8) +60)
drawrect -r @chess 22456 3 17 17 $iif($hget(chess.options,size) == 100,806,486) $iif($hget(chess.options,size) == 100,806,486)

hadd chess.info log_lines 0
if ($exists(chess/temp.log)) { filter -fk chess/temp.log filter_log * }
hdel chess.info log_shown
hdel chess.info log_show
log_show -200

chess_load
hdel chess.info restart
}

alias -l chess_load {
if (!$hget(chess.info,restart)) {
hdel -w chess.board *
hdel -w chess.info *
hload chess.board $+(chess\,$+($1,-,$remove($2,:)),_board_,$4,.save)
hload chess.info $+(chess\,$+($1,-,$remove($2,:)),_info_,$4,.save)
}
var %y = 1
while (%y <= 8) {
var %x = 1
while (%x <= 8) {
var %dx = $get_square(%x)
var %dy = $get_square(%y)
drawrect -rf @chess $get_color(%x,%y) 0 %dx %dy $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,$+(%y,%x))) { draw_piece %dx %dy $v1 $get_color(%x,%y) }

var %alph = $gettok(A B C D E F G H I J K L M,$iif($hget(chess.info,clr_own) == w,%x,$calc(9 - %x)),32)
var %xz = $calc((($hget(chess.options,size) * %x) + ($hget(chess.options,size)/2+15)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 %xz 0 %alph

inc %x
}

var %yz = $calc((($hget(chess.options,size) * %y) + ($hget(chess.options,size)/2+10)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 5 %yz $iif($hget(chess.info,clr_own) == w,$calc(9 - %y),%y)

inc %y
}

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,restart)) {
chess_send load $1 $3
if ($hget(chess.info,own_turn)) { print_info light_blue Game loaded succesfully, your turn. }
else { print_info light_blue Game loaded succesfully, $hget(chess.info,opponent) $+ 's turn. }
}
}

alias -l chess_save {
hsave chess.board $+(chess/,$asctime(yyyy-mm-dd-hhnnss),_board_,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.save)
hsave chess.info $+(chess/,$asctime(yyyy-mm-dd-hhnnss),_info_,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.save)
}

alias -l chess_initiate {
drawrect -r @chess 22456 3 17 17 $iif($hget(chess.options,size) == 100,806,486) $iif($hget(chess.options,size) == 100,806,486)
hadd chess.info clr_select blue

var %y = 1
while (%y <= 8) {
var %x = 1
while (%x <= 8) {
var %dx = $get_square(%x)
var %dy = $get_square(%y)
drawrect -rf @chess $get_color(%x,%y) 0 %dx %dy $hget(chess.options,size) $hget(chess.options,size)
if ($get_piece(%y,%x)) { hadd chess.board $+(%y,%x) $v1 | draw_piece %dx %dy $v1 $get_color(%x,%y) }

var %alph = $gettok(A B C D E F G H I J K L M,$iif($hget(chess.info,clr_own) == w,%x,$calc(9 - %x)),32)
var %xz = $calc((($hget(chess.options,size) * %x) + ($hget(chess.options,size)/2+15)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 %xz 0 %alph

inc %x
}

var %yz = $calc((($hget(chess.options,size) * %y) + ($hget(chess.options,size)/2+10)) - $hget(chess.options,size))
drawtext -ro @chess 16749691 verdana 16 5 %yz $iif($hget(chess.info,clr_own) == w,$calc(9 - %y),%y)

inc %y
}
}

alias -l chess_dclick {
if (!$inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,840,520),20,200,$iif($hget(chess.options,size) == 100,840,520))) { return }
var %n = $calc($hget(chess.info,log_lines) - $iif($hget(chess.options,size) == 100,40,24))
var %n = $calc($abs(%n) %n)

var %log_line = $read(chess/temp.log,$calc($left($calc(($mouse.y *100) /20),-2) + %n))
var %clr = $iif($gettok(%log_line,1,32) == white,w,b)

if ($gettok(%log_line,2,32) == 0-0) {
var %f.y = $iif($gettok(%log_line,1,32) == light_blue,8,1)

if ($hget(chess.info,clr_own) == w) {
var %f.y = $calc(9 - %f.y)
}

var %x1 = $iif($hget(chess.info,clr_own) == w,5,1)
var %x2 = $iif($hget(chess.info,clr_own) == w,8,4)
var %x3 = $iif($hget(chess.info,clr_own) == w,6,2)
var %x4 = $iif($hget(chess.info,clr_own) == w,7,3)

draw_selection %x1 %f.y light_blue
draw_selection %x2 %f.y light_blue
draw_selection %x3 %f.y yellow
draw_selection %x4 %f.y yellow
hadd chess.info log_select $+(%f.y,%x1) $+(%f.y,%x2) $+(%f.y,%x3) $+(%f.y,%x4)
}
elseif ($gettok(%log_line,2,32) == 0-0-0) {
var %f.y = $iif($gettok(%log_line,1,32) == light_blue,8,1)

if ($hget(chess.info,clr_own) == w) {
var %f.y = $calc(9 - %f.y)
}

var %x1 = $iif($hget(chess.info,clr_own) == w,5,4)
var %x2 = $iif($hget(chess.info,clr_own) == w,1,8)
var %x3 = $iif($hget(chess.info,clr_own) == w,3,5)
var %x4 = $iif($hget(chess.info,clr_own) == w,4,6)

draw_selection %x1 %f.y light_blue
draw_selection %x2 %f.y light_blue
draw_selection %x3 %f.y yellow
draw_selection %x4 %f.y yellow
hadd chess.info log_select $+(%f.y,%x1) $+(%f.y,%x2) $+(%f.y,%x3) $+(%f.y,%x4)
}
else {
if ($hget(chess.options,log_format) == 1) {
var %move = $gettok(%log_line,2,32)
var %from = $replace($mid(%move,2,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
var %to = $replace($mid(%move,5,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
}
else {
var %move = $gettok(%log_line,3,32)
var %from = $replace($mid(%move,1,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
var %to = $replace($mid(%move,5,2),a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8)
}
var %from.x = $mid(%from,1,1)
var %from.y = $mid(%from,2,1)
var %to.x = $mid(%to,1,1)
var %to.y = $mid(%to,2,1)

if ($hget(chess.info,clr_own) == w) {
var %from.y = $calc(9 - %from.y)
var %to.y = $calc(9 - %to.y)
}
else {
var %from.x = $calc(9 - %from.x)
var %to.x = $calc(9 - %to.x)
}

draw_selection %from.x %from.y light_blue
draw_selection %to.x %to.y yellow
hadd chess.info log_select $+(%from.y,%from.x) $+(%to.y,%to.x)
}
}

alias -l chess_sclick {
if ($hget(chess.info,log_select)) { clear_selections $v1 | hdel chess.info log_select }

if (!$hget(chess.info,init)) {

; SELECT: single player
if ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,320,140),300,50)) {
hadd chess.info init 1 | hadd chess.info clr_own w | hadd chess.info mode sp
chess_initiate
}
; SELECT: connect to a server
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,380,200),300,50)) {
connect_dialog
}
; SELECT: start a server
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,440,260),300,50)) {
server_dialog
}
; SELECT: help
elseif ($inrect($mouse.x,$mouse.y,60,$iif($hget(chess.options,size) == 100,500,310),300,50)) {
url -n http://wiki.prco23.org/index.php/Chess_game#Help
}
return
}
; OPEN: log-window
elseif ($inrect($mouse.x,$mouse.y,$iif($hget(chess.options,size) == 100,700,380),$iif($hget(chess.options,size) == 100,820,510),125,40)) {
if ($hget(chess.info,log_show)) { hdel chess.info log_show | log_show $iif(($hget(chess.options,log_format) == 1),-120,-220) }
else { hadd chess.info log_show 1 | log_show $iif(($hget(chess.options,log_format) == 1),+120,+220) }

if (!$hget(chess.info,log_shown)) {
hadd chess.info log_shown 1
if ($exists(chess/temp.log)) { filter -fk chess/temp.log filter_log * }
}
}

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,own_turn)) { return }
if ($hget(chess.info,mode) == sp) { var %clr_own = $iif($hget(chess.info,last_moved) == w,b,w) | hadd chess.info clr_own %clr_own }
else { var %clr_own = $hget(chess.info,clr_own) }

var %x = $iif($hget(chess.options,size) == 100,$left($calc($mouse.x -20+100),1),$left($calc(((($mouse.x -20) /60) * 100) +100),1))
var %y = $iif($hget(chess.options,size) == 100,$left($calc($mouse.y -20+100),1),$left($calc(((($mouse.y -20) /60) * 100) +100),1))

var %xy = $+(%y,%x)
var %clr_selected = $left($hget(chess.board,%xy),1)
var %clr_moved = $hget(chess.info,clr_moved)

var %last.x = $hget(chess.info,last.x)
var %last.y = $hget(chess.info,last.y)
var %last.xy = $+(%last.y,%last.x)
var %y-1 = $iif($hget(chess.info,clr_own) == w,$fw(%y,1,%clr_moved),$bw(%y,1,%clr_moved))
var %xy-1 = $+(%y-1,%x)

var %y2 = $calc(9 - %y)
var %x2 = $calc(9 - %x)
var %xy2 = $+(%y2,%x2)
var %last.x2 = $calc(9 - $hget(chess.info,last.x))
var %last.y2 = $calc(9 - $hget(chess.info,last.y))
var %last.xy2 = $+(%last.y2,%last.x2)

var %is_last = $iif((%x == %last.x) && (%y == %last.y),$true,$false)
var %current_selections = $hget(chess.info,current_selections)
var %selected = $hget(chess.info,selected)

if (!%selected) && (%clr_selected != %clr_own) && ($hget(chess.board,%xy)) { return }
elseif (%selected) && (%clr_selected == %clr_own) {
clear_selections %last.xy %current_selections | hdel chess.info selected | hdel chess.info current_selections
if (%is_last) { hdel chess.info castling | return }
if ($hget(chess.info,castling)) { chess_castling %last.xy %xy $hget(chess.info,clr_own) | return }
hdel chess.info castling
}
elseif (!$hget(chess.board,%xy) && !$hget(chess.info,selected)) { return }
elseif (!$istok(%current_selections,%xy,32)) && (%current_selections) { return }

; a piece is selected, and moveable
if ($hget(chess.info,selected)) {
hadd chess.info last_moved %clr_own

if ($hget(chess.info,en_passant) == %xy-1) && ($left($hget(chess.board,%xy-1),1) != %clr_own) {
hadd chess.info log_ep 1
hdel chess.board %xy-1
drawrect -rf @chess $get_color(%x,%y-1) 0 $get_square(%x) $get_square(%y-1) $hget(chess.options,size) $hget(chess.options,size)
}
hdel chess.info en_passant
hdel chess.info check

drawrect -rf @chess $get_color(%last.x,%last.y) 0 $get_square(%last.x) $get_square(%last.y) $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,%last.xy)) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
if ($hget(chess.board,%xy)) { hadd chess.info take $v1 }
.echo -qg $chess_move(%last.xy,->,%xy)
clear_selections %current_selections %last.xy
hdel chess.info selected
hdel chess.info current_selections

if ($hget(chess.info,mode) == mp) && (!$hget(chess.info,king_in_danger)) {
if (!$hget(chess.info,just_switched)) { chess_send move %last.xy2 %xy2 }
print_info light_blue $hget(chess.info,opponent) $+ 's turn
hdel chess.info own_turn
}
hdel chess.info just_switched
hdel chess.info king_in_danger
}

; nothing selected, so we're selecting a piece
else {
var %piece = $hget(chess.board,%xy)
draw_selection %x %y green
hadd chess.info selected 1
chess_piece_options %piece %x %y
}

hadd chess.info clr_moved %clr_selected
hadd chess.info last.x %x
hadd chess.info last.y %y
}

alias -l draw_piece {
var %y = $calc((($replace($left($3,1),w,1,b,3) + $iif($4 == 10407679,0,1)) *100) -100)
var %x = $calc($replace($right($3,-2),pawn,0,rook,1,knight,2,bishop,3,queen,4,king,5) *100)
drawpic -cms @chess $1 $2 $hget(chess.options,size) $hget(chess.options,size) %x %y 100 100 $qt($mircdirchess/pieces.png)
}

alias -l draw_selection {
if ($3 == red) && (!$hget(chess.options,frames)) { return }
drawrect -r @chess $clr_replace($3) 3 $calc($get_square($1) +1) $calc($get_square($2) +1) $calc($hget(chess.options,size) -2) $calc($hget(chess.options,size) -2)
}

alias -l chess_move {
var %piece = $hget(chess.board,$1)
var %move_len = $abs($calc($left($3,1) - $left($1,1)))

if ($right(%piece,-2) == pawn) {
var %l.x = $mid($3,2,1)
var %l.y = $mid($3,1,1)
var %l.y-1 = $calc(%l.y -1)
var %l.xy-1 = $+(%l.y-1,%l.x)

if ($istok(1 8,$left($3,1),32)) {
var %l.x2 = $calc(9 - $mid($1,2,1))
var %l.y2 = $calc(9 - $mid($1,1,1))
var %l.xy2 = $+(%l.y2,%l.x2)

var %n.x2 = $calc(9 - $mid($3,2,1))
var %n.y2 = $calc(9 - $mid($3,1,1))
var %n.xy2 = $+(%n.y2,%n.x2)

.echo -qg $dialog(choose_piece,choose_piece)
if ($hget(chess.info,mode) == mp) { chess_send switch %newpiece %n.xy2 %l.xy2 }
switch_piece %newpiece $3 $1
hadd chess.info just_switched 1

return
}
elseif (%move_len == 2) { hadd chess.info en_passant $3 }

if ($hget(chess.info,opponent_move)) && ($hget(chess.info,en_passant) == %l.xy-1) {
hadd chess.info log_ep 1
hdel chess.board %l.xy-1
drawrect -rf @chess $get_color(%l.x,%l.y-1) 0 $get_square(%l.x) $get_square(%l.y-1) $hget(chess.options,size) $hget(chess.options,size)
}
}
elseif (%piece == $+($hget(chess.info,clr_own),_king)) {
hadd chess.info $+($1,_king_moved) 1
}
elseif (%piece == $+($hget(chess.info,clr_own),rook)) && ($1 == 81) {
hadd chess.info left_rook_moved 1
}
elseif (%piece == $+($hget(chess.info,clr_own),rook)) && ($1 == 88) {
hadd chess.info right_rook_moved 1
}
hadd chess.board $3 %piece
hdel chess.board $1

hadd chess.info king_check 1
hadd chess.info king_check2 1
chess_piece_options %piece $mid($3,2,1) $mid($3,1,1)

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check
hadd chess.info check 1
chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $1 $3 $right(%piece,-2) $+(+,$iif($hget(chess.info,take),x))
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $1 $3 $right(%piece,-2) $iif($hget(chess.info,take),x) }
}
elseif (!$hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
var %checked 1
chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $+(+,$iif($hget(chess.info,take),x))
}

hdel chess.info threat_zone
var %n = 1
hadd chess.info king_check 1
while ($hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_,*),%n,w).data) {
var %s = $v1
if ($right($hget(chess.board,%s),-2) != king) { chess_piece_options_rec $hget(chess.board,%s) $mid(%s,2,1) $mid(%s,1,1) }
inc %n
}

if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
hadd chess.info king_in_danger 1
}
elseif (!$hget(chess.info,just_switched)) && (!%checked) { chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $iif($hget(chess.info,take),x) }

}

if ($hget(chess.info,king_in_danger)) {
print_info red Illegal move! king would be threated.
hadd chess.board $1 %piece
if ($hget(chess.info,take)) { hadd chess.board $3 $v1 }
else { hdel chess.board $3 }
}
else {
hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
}
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2

return
}

alias -l switch_piece {
var %x = $mid($2,1,1)
var %y = $mid($2,2,1)
var %dx = $get_square(%x)
var %dy = $get_square(%y)
var %piece = $hget(chess.board,$3)

var %new_piece = $1
hadd chess.board $2 %new_piece
hdel chess.board $3

draw_piece %dy %dx %new_piece $get_color(%x,%y)

hadd chess.info king_check 1
hadd chess.info king_check2 1
chess_piece_options %new_piece %y %x

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check
chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $3 $2 $right(%piece,-2) $+(s,+,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2)
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) $3 $2 $right(%piece,-2) $+(s,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2) }
}
elseif ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
chess_log $hget(chess.info,clr_own) $1 $3 $right(%piece,-2) $+(s,+,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2)
}
else { chess_log $hget(chess.info,clr_own) $3 $2 $right(%piece,-2) $+(s,$replace($hget(chess.info,take),1,x)) $right(%new_piece,-2) }

unset %newpiece

hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2
}

alias -l chess_castling {
var %x.king = $mid($1,2,1)
var %y.king = $mid($1,1,1)
var %x.rook = $mid($2,2,1)
var %y.rook = $mid($2,1,1)

var %xy.king = $+(%y.king,%x.king)
var %xy.rook = $+(%y.rook,%x.rook)
var %king = $+($3,_king)
var %rook = $+($3,_rook)

var %l.x2 = $calc(9 - $mid($1,2,1))
var %l.y2 = $calc(9 - $mid($1,1,1))
var %l.xy2 = $+(%l.y2,%l.x2)

var %n.x2 = $calc(9 - $mid($2,2,1))
var %n.y2 = $calc(9 - $mid($2,1,1))
var %n.xy2 = $+(%n.y2,%n.x2)

if ($3 == $hget(chess.info,clr_own)) {
hadd chess.info king_moved 1
hadd chess.info $+($iif(%x.rook == 8,right,left),_rook_moved) 1
}

if (%x.rook == 8) {
var %x+1.king = $calc(%x.king +2)
var %xy+1.king = $+(%y.king,%x+1.king)
var %x-1.king = $calc(%x.king +1)
var %xy-1.king = $+(%y.king,%x-1.king)
var %castling = $iif($hget(chess.info,clr_own) == w,0-0,0-0-0)
}
else {
var %x+1.king = $calc(%x.king -2)
var %xy+1.king = $+(%y.king,%x+1.king)
var %x-1.king = $calc(%x.king -1)
var %xy-1.king = $+(%y.king,%x-1.king)
var %castling = $iif($hget(chess.info,clr_own) == w,0-0-0,0-0)
}

if ($hget(chess.info,clr_own) == w) {
;draw_piece $get_square(%x+1.king) $get_square(%y.king) %king $get_color(%x+1.king,%y.king)
;draw_piece $get_square(%x-1.king) $get_square(%y.king) %rook $get_color(%x-1.king,%y.king)
}

draw_piece $get_square(%x+1.king) $get_square(%y.king) %king $get_color(%x+1.king,%y.king)
draw_piece $get_square(%x-1.king) $get_square(%y.king) %rook $get_color(%x-1.king,%y.king)

drawrect -rf @chess $get_color(%x.rook,%y.rook) 0 $get_square(%x.rook) $get_square(%y.rook) $hget(chess.options,size) $hget(chess.options,size)
drawrect -rf @chess $get_color(%x.king,%y.king) 0 $get_square(%x.king) $get_square(%y.king) $hget(chess.options,size) $hget(chess.options,size)

hadd chess.board %xy+1.king %king
hadd chess.board %xy-1.king %rook
hdel chess.board %xy.rook
hdel chess.board %xy.king

if ($hget(chess.info,mode) == mp) && (!$4) {
chess_send castling %l.xy2 %n.xy2 $3
print_info light_blue $hget(chess.info,opponent) $+ 's turn
}

hadd chess.info king_check 1
hadd chess.info king_check2 1

var %piece = %rook
chess_piece_options %piece %x-1.king %y.king

if ($hget(chess.info,opponent_move)) {
if ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($hget(chess.info,clr_own),_king),1).data,32)) {
print_info red Check | chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) %castling +
}
else { chess_log $replacex($hget(chess.info,clr_own),b,w,w,b) %castling }
}
elseif ($istok($hget(chess.info,threat_zone),$hfind(chess.board,$+($iif($hget(chess.info,clr_own) == w,b,w),_king),1).data,32)) {
chess_log $hget(chess.info,clr_own) %castling +
}
else { chess_log $hget(chess.info,clr_own) %castling }

hdel chess.info just_switched
hdel chess.info take
hdel chess.info log_ep
hdel chess.info opponent_move
hdel chess.info threat_zone
hdel chess.info king_check
hdel chess.info king_check2
hdel chess.info own_turn
hdel chess.info castling
}

alias -l clr_replace {
return $replacex($1,red,255,green,65280,blue,16732457,yellow,2751743,light_blue,16749691,white,16777215)
}

alias -l get_color {
;return $iif($calc(($1 -($2 % 2)) % 2),0,16777215)
return $iif($calc(($1 -($2 % 2)) % 2),4688849,10407679)
; 10407679
}

alias get_piece {
if ($istok(1 2 7 8,$1,32)) {
var %c = $hget(chess.info,clr_own)
if ($1 == 2) { return $+($iif(%c == w,b,w),_pawn) }
elseif ($1 == 7) { return $+(%c,_pawn) }
elseif ($1 == 8) { return $+(%c,$gettok(_rook _knight _bishop $iif(%c == w,_queen _king,_king _queen) _bishop _knight _rook,$2,32)) }
else { return $+($iif(%c == w,b,w),$gettok(_rook _knight _bishop $iif(%c == w,_queen _king,_king _queen) _bishop _knight _rook,$2,32)) }
}
}

alias -l get_square {
return $calc((($1 -1) * $hget(chess.options,size)) +20)
}

alias -l clear_selections {
var %z = 1
while ($gettok($1-,%z,32)) {
var %x = $mid($v1,2,1)
var %y = $mid($v1,1,1)
var %ispiece = $hget(chess.board,$v1)
if ($v1 != 99) {
drawrect -rf @chess $get_color(%x,%y) 0 $get_square(%x) $get_square(%y) $hget(chess.options,size) $hget(chess.options,size)
if (%ispiece) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
}
inc %z
}
}

alias -l print_info {
drawrect -rf @chess 3684408 0 20 $iif($hget(chess.options,size) == 100,825,505) $iif($hget(chess.options,size) == 100,570,420) 20 | drawtext -cro @chess $clr_replace($1) "courier new" $iif($hget(chess.options,size) == 100,16,12) 20 $iif($hget(chess.options,size) == 100,825,505) $iif($hget(chess.options,size) == 100,570,420) 20 $2-
}

alias -l check_square {
var %hg = $hget(chess.board,$+($2,$1))
var %c = $iif($hget(chess.info,clr_own) == w,b,w)
if ($hget(chess.info,king_check)) { var %c = $iif(%c == w,b,w) }
if ($3) { var %c = $3 }
if (!%hg) || ($left(%hg,1) == %c) {
return $true
}
}

alias -l in_board {
if ($1 isnum 1-8) && ($2 isnum 1-8) { return $true }
}

alias -l draw+select {
if (!$hget(chess.info,king_check)) { draw_selection $1 $2 $hget(chess.info,clr_select) }
return $+($2,$1)
}

alias -l chess_piece_options_rec {
chess_piece_options $1-
}

alias -l fw { return $calc($1 $iif($3 == w,+,-) $2) }
alias -l bw { return $calc($1 $iif($3 == w,-,+) $2) }

alias -l chess_piece_options {
var %king_check = $hget(chess.info,king_check)
var %king_check2 = $hget(chess.info,king_check2)

var %piece = $right($1,-2)
var %clr_own = $left($1,1)

if (!%king_check) {
var %clr_own = $iif(%clr_own == w,w,b)
var %clr_opponent = $iif(%clr_own == w,b,w)
}

var %clr_opponent = $iif(%clr_own == w,b,w)

var %x = $2
var %y = $3

; PAWN
if (%piece == pawn) {

var %y+1 = $iif(%clr_own == w,$bw(%y,1,%clr_own),$fw(%y,1,%clr_own))
var %y-1 = $iif(%clr_own == w,$fw(%y,1,%clr_own),$bw(%y,1,%clr_own))
var %y+2 = $iif(%clr_own == w,$bw(%y,2,%clr_own),$fw(%y,2,%clr_own))
var %x+1 = $calc(%x +1)
var %x-1 = $calc(%x -1)

var %take_left = $+(%y+1,%x+1)
var %take_right = $+(%y+1,%x-1)

if (($left($hget(chess.board,%take_left),1) == %clr_opponent) || (($hget(chess.info,en_passant) == $+(%y,%x+1)) && ($left($hget(chess.board,$+(%y,%x+1)),1) == %clr_opponent))) {
if (!%king_check) { var %select = %select $draw+select(%x+1,%y+1,%x) }
}
if (%king_check) { var %select = %select $draw+select(%x+1,%y-1) }

if (($left($hget(chess.board,%take_right),1) == %clr_opponent) || (($hget(chess.info,en_passant) == $+(%y,%x-1)) && ($left($hget(chess.board,$+(%y,%x-1)),1) == %clr_opponent))) {
if (!%king_check) { var %select = %select $draw+select(%x-1,%y+1) }
}
if (%king_check) { var %select = %select $draw+select(%x-1,%y-1) }

if (!$hget(chess.board,$+(%y+1,%x))) && (%y+1 <= 8) && (%y+1 >= 1) && (!%king_check) {
var %select = %select $draw+select(%x,%y+1)

; 2 steps for first move
if ($istok(2 7,%y,32)) && (!$hget(chess.board,$+(%y+2,%x))) && (%y+2 <= 8) && (%y+2 > 1) { var %select = %select $draw+select(%x,%y+2) }
}
if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; ROOK
elseif (%piece == rook) {

; :: RIGHT
var %z = $iif(%x == 8,9,$calc(%x +1))
while (%z <= 8) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | inc %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: LEFT
var %z = $iif(%x == 1,0,$calc(%x -1))
while (%z >= 1) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | dec %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: UP
var %z = $iif(%y == 1,0,$calc(%y -1))
while (%z >= 1) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | dec %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: DOWN
var %z = $iif(%y == 8,9,$calc(%y +1))
while (%z <= 8) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | inc %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; BISHOP
elseif (%piece == bishop) {

; :: LEFT-UP
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx >= 1) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: LEFT-DOWN
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx >= 1) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-UP
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx <= 8) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-DOWN
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx <= 8) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; QUEEN
elseif (%piece == queen) {

; :: RIGHT
var %z = $iif(%x == 8,9,$calc(%x +1))
while (%z <= 8) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | inc %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: LEFT
var %z = $iif(%x == 1,0,$calc(%x -1))
while (%z >= 1) { if ($kc(%y,%z)) { break } | var %select = %select $draw+select(%z,%y) | dec %z }
if ($left($hget(chess.board,$+(%y,%z)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%z,%y) }

; :: UP
var %z = $iif(%y == 1,0,$calc(%y -1))
while (%z >= 1) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | dec %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: DOWN
var %z = $iif(%y == 8,9,$calc(%y +1))
while (%z <= 8) { if ($kc(%z,%x)) { break } | var %select = %select $draw+select(%x,%z) | inc %z }
if ($left($hget(chess.board,$+(%z,%x)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%x,%z) }

; :: LEFT-UP
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx >= 1) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: LEFT-DOWN
var %sx = $iif(%x == 1,0,$calc(%x -1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx >= 1) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | dec %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-UP
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 1,0,$calc(%y -1))
while (%sx <= 8) && (%sy >= 1) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | dec %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

; :: RIGHT-DOWN
var %sx = $iif(%x == 8,9,$calc(%x +1))
var %sy = $iif(%y == 8,9,$calc(%y +1))
while (%sx <= 8) && (%sy <= 8) { if ($kc(%sy,%sx)) { break } | var %select = %select $draw+select(%sx,%sy) | inc %sx | inc %sy }
if ($left($hget(chess.board,$+(%sy,%sx)),1) == %clr_opponent) || (%king_check) { var %select = %select $draw+select(%sx,%sy) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; KNIGHT
elseif (%piece = knight) {

var %x+1 = $iif(%x == 8,9,$calc(%x +1))
var %x-1 = $iif(%x == 1,0,$calc(%x -1))
var %x+2 = $iif(%x == 8,9,$calc(%x +2))
var %x-2 = $iif(%x == 1,0,$calc(%x -2))
var %y+1 = $iif(%y == 8,9,$calc(%y +1))
var %y-1 = $iif(%y == 1,0,$calc(%y -1))
var %y+2 = $iif(%y == 8,9,$calc(%y +2))
var %y-2 = $iif(%y == 1,0,$calc(%y -2))

; :: DOWN-2 RIGHT-1
if (($check_square(%x+1,%y+2,%clr_opponent)) && ($in_board(%x+1,%y+2))) || (%king_check) { var %select = %select $draw+select(%x+1,%y+2) }

; :: DOWN-2 LEFT-1
if (($check_square(%x-1,%y+2,%clr_opponent)) && ($in_board(%x-1,%y+2))) || (%king_check) { var %select = %select $draw+select(%x-1,%y+2) }

; :: DOWN-1 RIGHT-2
if (($check_square(%x+2,%y+1,%clr_opponent)) && ($in_board(%x+2,%y+1))) || (%king_check) { var %select = %select $draw+select(%x+2,%y+1) }

; :: DOWN-1 LEFT-2
if (($check_square(%x-2,%y+1,%clr_opponent)) && ($in_board(%x-2,%y+1))) || (%king_check) { var %select = %select $draw+select(%x-2,%y+1) }

; :: UP-2 RIGHT-1
if (($check_square(%x+1,%y-2,%clr_opponent)) && ($in_board(%x+1,%y-2))) || (%king_check) { var %select = %select $draw+select(%x+1,%y-2) }

; :: UP-2 LEFT-1
if (($check_square(%x-1,%y-2,%clr_opponent)) && ($in_board(%x-1,%y-2))) || (%king_check) { var %select = %select $draw+select(%x-1,%y-2) }

; :: UP-1 RIGHT-2
if (($check_square(%x+2,%y-1,%clr_opponent)) && ($in_board(%x+2,%y-1))) || (%king_check) { var %select = %select $draw+select(%x+2,%y-1) }

; :: UP-1 LEFT-2
if (($check_square(%x-2,%y-1,%clr_opponent)) && ($in_board(%x-2,%y-1))) || (%king_check) { var %select = %select $draw+select(%x-2,%y-1) }

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }
return
}

; KING
elseif (%piece == king) {

var %x-1 = $iif(%x == 1,0,$calc(%x -1))
var %y-1 = $iif(%y == 1,0,$calc(%y -1))
var %x+1 = $iif(%x == 8,9,$calc(%x +1))
var %y+1 = $iif(%y == 8,9,$calc(%y +1))
var %xy = $+(%y,%x)

if (!%king_check) {
var %n = 1

hadd chess.info king_check 1
while ($hfind(chess.board,$+(%clr_opponent,_,*),%n,w).data) {
var %s = $v1
if ($right($hget(chess.board,%s),-2) != king) { chess_piece_options_rec $hget(chess.board,%s) $mid(%s,2,1) $mid(%s,1,1) }
inc %n
}
hdel chess.info king_check
}

; :: RIGHT
if ($check_square(%x+1,%y)) && ($in_board(%x+1,%y)) && (!$istok($hget(chess.info,threat_zone),$+(%y,%x+1),32)) {
var %select = %select $draw+select(%x+1,%y)
}

; :: LEFT
if ($check_square(%x-1,%y)) && ($in_board(%x-1,%y)) && (!$istok($hget(chess.info,threat_zone),$+(%y,%x-1),32)) { var %select = %select $draw+select(%x-1,%y) }

; :: UP
if ($check_square(%x,%y-1)) && ($in_board(%x,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x),32)) { var %select = %select $draw+select(%x,%y-1) }

; :: DOWN
if ($check_square(%x,%y+1)) && ($in_board(%x,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x),32)) { var %select = %select $draw+select(%x,%y+1) }

; :: LEFT-UP
if ($check_square(%x-1,%y-1)) && ($in_board(%x-1,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x-1),32)) { var %select = %select $draw+select(%x-1,%y-1) }

; :: LEFT-DOWN
if ($check_square(%x-1,%y+1)) && ($in_board(%x-1,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x-1),32)) { var %select = %select $draw+select(%x-1,%y+1) }

; :: RIGHT-UP
if ($check_square(%x+1,%y-1)) && ($in_board(%x+1,%y-1)) && (!$istok($hget(chess.info,threat_zone),$+(%y-1,%x+1),32)) { var %select = %select $draw+select(%x+1,%y-1) }

; :: RIGHT-DOWN
if ($check_square(%x+1,%y+1)) && ($in_board(%x+1,%y+1)) && (!$istok($hget(chess.info,threat_zone),$+(%y+1,%x+1),32)) { var %select = %select $draw+select(%x+1,%y+1) }

; :: Castling
if (!$hget(chess.info,king_moved)) {
var %iy = 8
var %lxy = $+(%iy,1)
var %rxy = $+(%iy,8)

if ($castling_left(%lxy,%iy,%clr_own)) {
var %select = %select $draw+select(1,%iy)
hadd chess.info castling 1
}
if ($castling_right(%rxy,%iy,%clr_own)) {
var %select = %select $draw+select(8,%iy)
hadd chess.info castling 1
}
}

hdel chess.info threat_zone

if (!%king_check) { hadd chess.info current_selections $iif(%select,$v1,99) }
else { hadd chess.info threat_zone $hget(chess.info,threat_zone) %select }

return
}
}

alias -l kc {
if ($hget(chess.info,king_check)) {
if ($right($hget(chess.board,$+($1,$2)),-2) != king) && ($hget(chess.board,$+($1,$2))) { return $true }
}
elseif ($hget(chess.board,$+($1,$2))) {
return $true
}
}

alias castling_left {
if ($hget(chess.info,clr_own) == w) {
if (!$hget(chess.info,left_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,2))) && (!$hget(chess.board,$+($2,3))) && (!$hget(chess.board,$+($2,4))) && (!$istok($hget(chess.info,threat_zone),$+($2,2),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,3),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,4),32)) && (!$hget(chess.info,check)) {
return $true
}
}
else {
if (!$hget(chess.info,left_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,2))) && (!$hget(chess.board,$+($2,3))) && (!$istok($hget(chess.info,threat_zone),$+($2,2),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,3),32)) && (!$hget(chess.info,check)) {
return $true
}
}
}

alias castling_right {
if ($hget(chess.info,clr_own) == w) {
if (!$hget(chess.info,right_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,6))) && (!$hget(chess.board,$+($2,7))) && (!$istok($hget(chess.info,threat_zone),$+($2,6),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,7),32)) && (!$hget(chess.info,check)) {
return $true
}
}
else {
if (!$hget(chess.info,right_rook_moved)) && ($left($hget(chess.board,$1),1) == $3) && (!$hget(chess.board,$+($2,6))) && (!$hget(chess.board,$+($2,7))) && (!$istok($hget(chess.info,threat_zone),$+($2,5),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,6),32)) && (!$istok($hget(chess.info,threat_zone),$+($2,7),32)) && (!$hget(chess.info,check)) {
return $true
}
}
}

;; SOCKETS, msg, notice

#chess.n off
on ^*:notice:chess_game *:?:{
if ($nick == $hget(chess.info,opponent)) { parse_incoming $2- | haltdef }
}
on ^*:text:chess_game *:?:{
if ($nick == $hget(chess.info,opponent)) { parse_incoming $2- | haltdef }
}
#chess.n end

alias start_server {
if ($hget(chess.info,con_type) != irc) {
sockclose chess_connect
socklisten chess_connect 6666
hadd chess.info init 1
}
hadd chess.info clr_own w
hadd chess.info mode mp
hadd chess.info own_turn 1
drawtext -ro @chess 16749691 verdana 22 60 $iif($hget(chess.options,size) == 100,560,380) waiting for other player...
}

alias -l connect_to_server {
sockopen chess %chess.ip %chess.port
}

alias -l chess_send {
if ($hget(chess.info,con_type) == irc) {
var %m = $iif($hget(chess.options,send_method),$v1,msg)
%m $hget(chess.info,opponent) chess_game $1-
}
else { sockwrite -n chess $1- }
}

on *:socklisten:chess_connect:{
chess_initiate
print_info light_blue You start.
sockaccept chess
chess_send init $me
}

on *:sockopen:chess:{
chess_initiate
chess_send init $me
}

on *:sockread:chess:{
var %t
sockread %t
parse_incoming %t
}

on *:sockclose:chess:{
print_info red $hget(chess.info,opponent) disconnected.
}

alias -l parse_incoming {
if ($active != chess) && ($1 != cmsg) { flash @chess | titlebar @chess your turn! }
tokenize 32 $1-

if ($1 == init) {
hadd chess.info opponent $2
if (!$hget(chess.info,own_turn)) { print_info light_blue $2 starts. }
if ($hget(chess.info,con_type) == irc) && (!$hget(chess.info,init)) {
hadd chess.info init 1
chess_initiate
print_info light_blue You start.
chess_send init $me
}
}
elseif ($1 == move) {
hadd chess.info own_turn 1
hadd chess.info opponent_move 1

var %last.xy = $2
var %last.x = $mid(%last.xy,2,1)
var %last.y = $mid(%last.xy,1,1)

var %xy = $3
var %x = $mid(%xy,2,1)
var %y = $mid(%xy,1,1)

drawrect -rf @chess $get_color(%last.x,%last.y) 0 $get_square(%last.x) $get_square(%last.y) $hget(chess.options,size) $hget(chess.options,size)
if ($hget(chess.board,%last.xy)) { draw_piece $get_square(%x) $get_square(%y) $v1 $get_color(%x,%y) }
print_info light_blue Your turn.
if ($hget(chess.board,%xy)) { hadd chess.info take 1 }
.echo -gq $chess_move(%last.xy,->,%xy)
draw_selection %last.x %last.y light_blue
draw_selection %x %y yellow
.timerclrlast $+ %xy 1 5 clear_selections %last.xy %xy
}
elseif ($1 == load) {
print_info light_blue $hget(chess.info,opponent) loaded a game: $2 with $3
}
elseif ($1 == cmsg) {
print_info yellow msg: $2-
}
elseif ($1 == disconnect) {
print_info red $hget(chess.info,opponent) disconnected.
}
elseif ($1 == switch) {
hadd chess.info opponent_move 1
print_info light_blue Your turn.
if ($hget(chess.board,$4)) { hadd chess.info take 1 }
switch_piece $2-4
clear_selections $4
hadd chess.info own_turn 1
}
elseif ($1 == castling) {
print_info light_blue Your turn.
hadd chess.info opponent_move 1
chess_castling $2-4 1
hadd chess.info own_turn 1
}
}

; LOGGING

alias -l log_show {
window -C @chess $window(@chess).x $window(@chess).y $calc($window(@chess).w $1) $window(@chess).h
}

alias -l chess_log {
if ($2 != 0-0) && ($2 != 0-0-0) {
var %x.from = $mid($2,2,1)
var %x.to = $mid($3,2,1)
var %y.from = $mid($2,1,1)
var %y.to = $mid($3,1,1)

if ($hget(chess.info,clr_own) == w) {
var %y.from = $calc(9 - %y.from)
var %y.to = $calc(9 - %y.to)
}
else {
var %x.from = $calc(9 - %x.from)
var %x.to = $calc(9 - %x.to)
}

var %x.from = $gettok(a b c d e f g h,%x.from,32)
var %x.to = $gettok(a b c d e f g h,%x.to,32)

var %from = $+(%x.from,%y.from)
var %to = $+(%x.to,%y.to)
var %p = $replace($4,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R)
if ($hget(chess.options,log_format) == 1) { var %l = $+(%p,%from,$iif((x isin $5) || ($hget(chess.info,log_ep)),x,-),%to,$iif(s isin $5,$replace($6,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R))) $+ $remove($5,x,s) $iif($hget(chess.info,log_ep),e.p.) }
else { var %l = %p $upper(%from) $+ -> $+ $upper(%to) $iif(s isin $5,$replace($6,pawn,P,king,K,queen,Q,knight,N,bishop,B,rook,R))) $iif((x isin $5) || ($hget(chess.info,log_ep)),take) $replace($remove($5,x,s),+,check) $iif($hget(chess.info,log_ep),e.p.) }
}

else { var %l = $2 $+ $3 }
print_last_move light_blue %l
print_log $iif($1 == w,white,light_blue) %l
}

alias -l print_last_move {
var %z = $width($2-,courier new,16)
var %y = $calc($iif($hget(chess.options,size) == 100,820,500) - %z)
drawrect -rf @chess 3684408 0 $iif($hget(chess.options,size) == 100,600,280) $iif($hget(chess.options,size) == 100,825,505) 225 20 | drawtext -ro @chess $clr_replace($1) "Courier New" 16 %y $iif($hget(chess.options,size) ==
100,825,505) $2-
}

alias -l print_log {
write chess\temp.log $1-
if (!$hget(chess.info,log_shown)) { return }
hinc chess.info log_lines
var %l = $hget(chess.info,log_lines)
if (%l > $iif($hget(chess.options,size) == 100,40,24)) { drawscroll @chess 0 -20 $iif($hget(chess.options,size) == 100,840,520) 20 200 $iif($hget(chess.options,size) == 100,840,520) }

drawtext -ro @chess $clr_replace($1) "Courier New" 16 $iif($hget(chess.options,size) == 100,840,520) $calc(0+(20 * $iif(%l <= $iif($hget(chess.options,size) == 100,40,24),%l,$v2) )) $2-
}

alias -l filter_log {
tokenize 32 $1
hinc chess.info log_lines
var %l = $hget(chess.info,log_lines)

if (%l > $iif($hget(chess.options,size) == 100,40,24)) { drawscroll @chess 0 -20 $iif($hget(chess.options,size) == 100,840,520) 20 200 $iif($hget(chess.options,size) == 100,840,520) }

drawtext -ro @chess $clr_replace($1) "Courier New" 16 $iif($hget(chess.options,size) == 100,840,520) $calc(0+(20 * $iif(%l <= $iif($hget(chess.options,size) == 100,40,24),%l,$v2) )) $2-
}

alias -l log_save {
var %f = $+(chess/,$asctime(yyyy-mm-dd-hhnnss),-,$iif($hget(chess.info,mode) == sp,singleplayer,$hget(chess.info,opponent)),.log)
filter -ff chess\temp.log %f
}

; DIALOGS

alias -l connect_dialog { .echo -gq $$dialog(chess_connect,chess_connect) }

dialog -l chess_connect {
title "Create chess connection"
size -1 -1 275 70
option pixels

tab "Sockets", 11, -1 -1 277 202
tab "IRC", 12, -1 -1 277 202

text "IP", 1, 7 25 100 20, tab11
text "PORT", 2, 111 25 100 20, tab11
edit "", 3, 5 42 100 20, tab11
edit "", 4, 108 42 100 20, tab11
button "connect", 5, 211 41 60 22,default

text "IRC-nick to connect to", 8, 7 25 150 20, tab12
edit "", 9, 5 42 100 20 , tab12
}

on 1:dialog:chess_connect:init:*:{
did -a $dname 3 %chess.ip
did -a $dname 4 $iif(%chess.port,$v1,6666)
}

on 1:dialog:chess_connect:sclick:5:{
if ($dialog($dname).tab == 11) {
set %chess.ip $did($dname,3)
set %chess.port $did($dname,4)
hadd chess.info init 1 | hadd chess.info clr_own b | hadd chess.info mode mp | hadd chess.info last_moved b
dialog -x chess_connect
connect_to_server
}
else {
hadd chess.info init 1 | hadd chess.info clr_own b | hadd chess.info mode mp | hadd chess.info last_moved b | hadd chess.info opponent $did($dname,9)
dialog -x chess_connect
hadd chess.info con_type irc
chess_send init $me
chess_initiate
.enable #chess.n
}
}

dialog -l chess_send_pm {
title "Send a message"
size -1 -1 275 50
option pixels

text "", 1, 7 5 250 20,
edit "", 2, 5 25 200 20,
button "send" 3, 211 25 60 22,default
}

on 1:dialog:chess_send_pm:init:*:{
did -a $dname 1 Send a message to $hget(chess.info,opponent)
}

on 1:dialog:chess_send_pm:sclick:3:{
dialog -x chess_send_pm
chess_send cmsg $did($dname,2)
}

dialog -l chess_getimg {
title "Missing files"
size -1 -1 275 70
option pixels

text "The file pieces.png doesn't seem to exist in your chess-directory, download it?", 1, 7 5 270 30,
text "", 2, 7 50 250 20
button "download" 3, 211 45 60 22,default
}

on 1:dialog:chess_getimg:sclick:3:{
if (!$hget(chess.info,retry)) { getimg | did -ra $dname 2 downloading... }
elseif ($hget(chess.info,retry) < 5) { getimg }
else { dialog -x $dname }
}

alias -l server_dialog { .echo -gq $$dialog(chess_server,chess_server) }

dialog -l chess_server {
title "Start a chess server"
size -1 -1 275 70
option pixels

tab "Sockets", 11, -1 -1 277 202
tab "IRC", 12, -1 -1 277 202

text "Start a socket connection", 1, 7 25 200 20, tab11
button "start", 2, 5 41 60 22,default tab11

text "Wait for a connection from nick...", 3, 7 25 200 20, tab12
edit "", 4, 5 42 100 20 , tab12
button "start", 5, 108 41 60 22,default tab12
}

on 1:dialog:chess_server:init:*:{
did -a $dname 4 $iif(%chess.nick,$v1)
}

on 1:dialog:chess_server:sclick:2:{
start_server
dialog -x $dname
}

on 1:dialog:chess_server:sclick:5:{
hadd chess.info con_type irc
hadd chess.info opponent $did($dname,4)
.enable #chess.n
start_server
set %chess.nick $did($dname,4)
dialog -x $dname
}

dialog choose_piece {
title "Chess - choose new piece"
size -1 -1 422 130
option pixels

text "Select a new piece.",5, 7 5 417 20
button "Queen" 1, 5 25 100 100
button "Rook" 2, 108 25 100 100
button "Bishop" 3, 211 25 100 100
button "Knight" 4, 314 25 100 100
}

on 1:dialog:choose_piece:sclick:1,2,3,4:{
set %newpiece $+($hget(chess.info,clr_own),_,$gettok(queen rook bishop knight,$did,32))
dialog -x choose_piece
}

dialog -l chess_options {
title "Chess options"
size -1 -1 400 400
option pixels

text "Logging format", 1, 7 8 100 20
combo 2, 110 5 200 20,drop

text "Square size (pixels)", 3, 7 30 100 20
combo 4, 110 27 200 20,drop

text "IRC send method", 5, 7 52 100 20
combo 6, 110 49 200 20,drop

text "Selection frames", 7, 7 74 100 20
check "" 8, 110 71 20 20,

button "save", 10, 330 370 60 22,ok
}

on 1:dialog:chess_options:init:*:{
did -a $dname 2 International (Pe2xf1Q+)
did -a $dname 2 New (P E2->F1 Q take+check)
did -c $dname 2 $iif($hget(chess.options,log_format),$v1,1)

did -a $dname 4 100
did -a $dname 4 60
did -c $dname 4 $iif($hget(chess.options,size) == 100,1,2)

did -a $dname 6 msg
did -a $dname 6 notice
did -c $dname 6 $iif($hget(chess.options,send_method) == msg,1,2)

if ($hget(chess.options,frames)) { did -c $dname 8 }
}

on 1:dialog:chess_options:sclick:10:{
hadd chess.options log_format $did($dname,2).sel
if ($did($dname,4).seltext != $hget(chess.options,size)) { hadd chess.options size $did($dname,4).seltext | .timerrestart 1 0 chess_restart }
if ($did($dname,8).state == 1) { hadd chess.options frames 1 }
else { hdel chess.options frames }
hadd chess.options send_method $did($dname,6)

hsave chess.options chess/options.hsh
}

; FETCH IMAGE
alias getimg {
if (!$exists(chess)) { mkdir chess }
.remove $qt($mircdirchess/pieces.png)
sockclose getimg
sockopen getimg lost.kapsi.fi 80
}
on *:sockopen:getimg:{
sockwrite -nt getimg GET /cail/pieces.png HTTP/1.1
sockwrite -nt getimg Host: lost.kapsi.fi
sockwrite -nt getimg Connection: close
sockwrite -nt getimg $crlf
}
on *:sockread:getimg:{
if (!$sock(getimg).mark) {
var %t
sockread %t
if ($gettok(%t,1,32) == Content-Length:) { var %content_len = $gettok(%t,2,32) }
}
if (!%t) { sockmark getimg $iif(%content_len,$v1,1) }
if ($sock(getimg).mark) {
sockread -f &img
bwrite $qt($mircdirchess/pieces.png) -1 &img
}
}
on *:sockclose:getimg:{
if ($file($qt($mircdirchess/pieces.png)) == $sock(getimg).mark) || ($sock(getimg).mark == 1) { dialog -x chess_getimg }
elseif ($hget(chess.info,retry) <= 5) { hinc chess.info retry | did chess_getimg 2 Error, trying again... ( $+ $hget(chess.info,retry) $+ ) | .remove $qt($mircdirchess/pieces.png) | getimg }
else { did chess_getimg 2 5 retries gone, try again later }
unset %content_len
}

== Help ==

=== The game ===

Singleplayer mode is only for debugging and testing, not actually to play.
This game is meant to be played as multiplayer, where other player starts a server (whites),
and other connects to this server (blacks)

=== Server and connecting ===

Two connection types are available, sockets and through IRC with /notice or /msg
Connection type must be same on both players, the one starting a server must start a server using sockets
(default), or from server dialog select IRC and input the other players nick (in active server connection)

The connecting player must then select the same connection method from the connect dialog, and input
the servers IP (sockets) or NICK (IRC),
note that the same PORT must be used on both clients.

=== Implemented rules === (read more about the rules from wikipedia)

All the pieces move correctly, and you cannot make a move that wouldn't go by the rules.
Pawn can perform en passant move, and if advanced to the 8th rank (other side of the board), it gets promoted to queen,rook,bishop,knight of the same color.
King and rook can perform castling move, if all the requirements are met, selecting king will highlight the rook, if then clicked on the rook, the castling is performed.
IF king is in check, the game will show the selectiong borders in squares you cannot move, but won't let you move there if you try.

=== Mouse & menus ===

You select pieces by clicking them, and move them by clicking on the target square, clicking the selected piece will de-select it.
You'll find last move from bottom right hand side of the board, clicking it will append the log-window on the right side, where you will see
40 (with 100px squares) or 24 (60px squares) last moves, doubleclicking a move in the log-window will highlight the move on the board.
Right clicking anywhere brings you a popup-menu, where you will always find options and help, if in game, also save & load are in this menu.
If in multiplayer mode, there's also "send msg", from where you can send a message to other players infobar (bottom left hand side on the board).
Right clicking on the log menu let's you save the log.

=== Saving & loading ===

You can save and load your gamestate, the game will create 2 files into your /chess-folder
YYYY-MM-DD-HHNNSS_board_OPPONENTSNAME.save and YYYY-MM-DD-HHNNSS_info_OPPONENTSNAME.save
There will be notification for you, if the opponent loads a game, telling you what game he/she loaded.

=== Options ===

Logging format: let's you choose the logging format between "International (Pe2xf1Q+)" and "New (P E2->F1 Q take+check)"
Square size: Width & height of the squares in the board in pixels.
IRC send method: Uses /msg OPPONENT or /notice OPPONENT to send information if connected via IRC.
Selection frames: Switch on/off showing of the borders in squares where you can move.

[[Category:Script_Archive]]

URL-logger

2019-12-11T01:13:38Z

Cail: Fixing delete from DB. no biggies.

Screenshots:<br />
[[:Image:ss_url_color.jpg|Screenshot 1: Colored links]]<br />
[[:Image:ss_url_search.jpg|Screenshot 2: Links search]]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; URL-logger with colored and underlined links by Cail at Quakenet -> #help.script
;
; $urlc -alias will color and underline links from the input, and log them into a file for later searching
; Tested and works on mIRC 6.2 and above (i recommend using >6.21 for $regsubex to work correctly)
;
; This script uses spopup.dll (OPTIONAL! you only need this if you want a new popup with info and some new features.),
; to replace mirc's builtin url-popup
; spopup.dll is made by Saturn, and you can get it from http://www.xise.nl/mirc/
; NOTE! Depending on how your mIRC is set up, your working path might be mirc's root dir, or Users/AppData folder
; For example in Windows 7 the AppData folder would be: C:\Users\HappyUser\AppData\Roaming\mIRC
; Note this when placing the .dll somewhere and not giving full path in the script.
;
; Formats recognized links like:
; - <nowiki>"http://google.com"</nowiki> -> <nowiki>http://google.com</nowiki>
; - url('<nowiki>www.google.com</nowiki>'); -> <nowiki>www.google.com</nowiki>
; - (<nowiki>www.google.com/ahihi(kiaa)</nowiki>) -> <nowiki>www.google.com/ahihi(kiaa)</nowiki>
;
; And some more cleanups, and adds '<nowiki>http://</nowiki>' in front of '<nowiki>www.</nowiki>' for storing.
; so that <nowiki>www.google.com</nowiki> and <nowiki>http://www.google.com</nowiki> are treated as a same link, and stored only once
;
; Uses 3 different colors for coloring links:
; 1) new link - not found from the file
; 2) opened link - is found from the file, and you have opened it via mirc
; 3) old link - is found from the file, but you haven't opened it
;
; Fetches title of youtube video's:
; - Gets title of the video and stores it into the links.db (for searching)
; - Echo's the title under the link in chat
; - Hold down ctrl key when pressing enter if you post a link, to /msg the title into the channel
; - Fill %sendYTtitleChans with channels separated by spaces (eg. %sendYTtitleChans #chan1 #chan2) to automatically
; send the title into the channel when ever a youtube link is posted.
;
; Thanks to:
; - Saturn for the spopup.dll
; - Msmo for the cleanup regex
;
;
; UPDATE 06/07/2014: Performance update!
; - Added hashtables to be used on regular checks, speeding up the normal link flow, no more slowdowns with hundreds of thousands of links
; - Changed youtube title fetcher to use youtube API for faster download & faster parsing
; - Some bug fixes and general performance improvements
; UPDATE 14/06/2013: Added support for fetching and storing title from youtube links
; - fetches youtube video's title, stores it into the logfile, echoes the title on the channel
; - hold down ctrl key when pressing enter, when you post a link, to send the title as /msg to the channel (overrides %sendYTtitleChans variable)
; - set %sendYTtitleChans variable for channels you want to /msg the title automatically when a link is posted
; (for example: %sendYTtitleChans #channel1 #channel2 #channel3) would send the title into the channel on those 3 channels
; UPDATE 17/06/2007: Updated regex (fixed '<nowiki>www.someurl.com/something's_here</nowiki>' to show correctly), added a timer with 200ms delay
; into the on keyup event (to prevent filtering while writing fast).
; UPDATE 23/03/2007: Changed on keydown -> on keyup, much more efficient now, won't need so much checks, and allows you to
; insert text infront/into the middle of the line.
; UPDATE 29/01/2007: added a regex into on keydown event to halt the script if something else than \S was pressed
; (now holding down shift/alt/ctrl doesn't affect it), and optimized the on keydown event a bit.
; UPDATE 18/01/2007: added on input event for the search (optional), rearranged the dll-stuff into same place,
; fixed a bug that didn't color some opened links without http:// (only www.)
; fixed if (!$exists($spopupdll)) { return } from linkpopup to 'halt' (now shows the original popup)
; added a $db alias to return the filename, users can choose their own path/filename for the file.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; $db returns the name of the database file, change this to whatever you want
alias -l db { return $qt($deltok($mircexe,-1,92) $+ \ $+ links.db) }

; on start event for creating and loading the hash table
on *:start:{
linkhash_load
}

alias linkhash_load {
; free the old hashtable if it exists, and hmake a new one
if ($hget(links.hash)) { hfree links.hash }
hmake links.hash 1000

; filter links from DB file to the hashtable
filter -fk $db LinkHash_copy *
}

alias linkhash_copy {
tokenize 32 $1
hadd links.hash $strip($3) $1-
}

; alias to open the links window, and filter all of the urls into it
alias urllog {
; if the window isn't open, create it, -ea to create an editbox and activate the window
; filter will copy the lines from the file by a matchtext (* = everything), -fw = from File to Window, and -p = wrap the text
if (!$window(@links)) {
window -ea @links
filter -fwp $db @links *
}

; else the window is already open, so activate it
else { window -a @links }
}

; alias to return colorcodes for the script, change these values to whatever you like.
; new, old and opened are for echo text, log_link and log_info are for the @links window
alias -l url_color {
if ($1 == new) { return 12 }
elseif ($1 == old) { return 6 }
elseif ($1 == opened) { return 10 }
elseif ($1 == log_link) { return 10 }
elseif ($1 == log_info) { return 14 }
}

; $clr alias to return $chr(3) and formatted color code, ie. $clr(3) == $+($chr(3),03) == ctrl+k 03
alias -l clr { if ($isid) { return $+($chr(3),$base($1,10,10,2)) $+ $iif($2,$+($chr(44),$base($2,10,10,2)),) } }

; this alias handles checking the input for links, looping through tokens (words in this case), and replacing links with colored ones
alias urlc {
if (!$isid) { return }
var %string = $1-

; if the line even has links, useless to loop through it if there are no links
if ($regex(%string,/(?:\b(?:www.?\.|https?:\/\/|s?ftp:\/\/).)/i)) {

; so the line has links, loop through tokens then
var %x = 1
while (%x <= $numtok(%string,32)) {

; we'll assign the current token into a variable %tok, for easier use later
; and we'll run it through $url_parse, and assign the result into a variable %url
; (it'll be checked if it's a 'valid' url, and useless stuff be removed around it, if it's not an url the alias will return $null
var %tok = $gettok(%string,%x,32)
var %url = $url_parse(%tok)

; check if there is an url in variable %url
if (%url) {

; $url_log will take care of storing the url into a database file, and return appropriate color (in $1) to use in coloring the link
; also returns the linenumber of newly added link (in $2) if we want to store the title for it
; and if we already have the title in the log, return that too in %titleLine
var %indb = $url_log(%url)
var %linkColor = $gettok(%indb,1,32)
var %titleLine = $gettok(%indb,2-,32)

; now we color and underline the url and assign it into %newurl, (%indb will be holding the color code number)
; then we replace the url part of the token, so that from "url('www.something.com');" only the "www.something.com" part will be colored and underlined
var %newurl = $+($clr(%linkColor),$chr(31),%url,$chr(31),$clr)
var %newurl = $replace(%tok,%url,%newurl)

; and finally, we put the modified token back to the original string
%string = $puttok(%string,%newurl,%x,32)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; OPTIONAL: GET YOUTUBE TITLE
; this part is for checking if it's a youtube link, and initiates the fetching of the video's title
; this can be commented out or removed if you don't want this functionality
if (*youtube* iswm %url) || (*youtu.be* iswm %url) {
getTitle youtube %url $iif($chan,$chan,$iif($target != $me,$target,$nick)) %titleLine
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; END OF OPTIONAL
}
inc %x
}
}

; modified or not, return the string
return %string
}

; alias to trim the given url, returns $null if input isn't an url
; big thanks to Msmo on Quakenet for this regex
alias -l url_parse {
var %p = /(?:^|[][()<>{}'"\s])((?:(?:irc|s?ftp|https?:)\/\/|www\d*\.)[^\s./]+\.(?:\[\S*?]|$\S*?$|\{\S*?}|[^][()<>{}'"\s]|['"](?!\s|$|[()\[\]<>]))++)/iS
noop $regex($1,%p)
return $regml(1)
}

; alias to store the given url into database file, and return color according to whether it's new, opened, or unopened in database
alias -l url_log {
; this first $iif is to append "http://" in front of "www.", so "www.google.com" and "<nowiki>http://www.google.com</nowiki>" will be a same link, and not to be written twice
; we'll assign the target channel/query into variable %t
; the $read will search the database file for the given url
var %url = $iif(www* iswm $1,$+(<nowiki>http://,$1</nowiki>),$1)
var %t = $iif($left($target,1) != $chr(35),query,$target)
var %isOld = $hget(links.hash,%url)

; if %isOld is empty (the link wasn't found from the file), write it in there and return color of "new link" & the line number the link was added to
; also add the info to the hashtable
if (!%isOld) {
var %insertLine = $asctime(yyyy.mm.dd HH:nn:ss) $+($clr(03),$chr(31),%url,$chr(31),$clr()) $+($clr(07),$iif($nick,$nick,$me),$clr(08),@,$clr(07),%t,$clr())
write $db %insertLine
hadd links.hash %url %insertLine

return $url_color(new) $lines($db)
}

; otherwise, if the link was found, check if it has been opened via mirc (4th word will be !), return color of "opened link"
elseif ($gettok(%isOld,4,32) == !) {
return $url_color(opened) __old %isOld
}

; and if none of above, it's in the database, but you haven't opened it, return color of "old link"
else {
return $url_color(old) __old %isOld
}
}

; this on keydown event triggers every time you press a key in @links window,
; and filters the database file into the window with the text in editbox
; so, performs a new search everytime you write something in that window, i like this kind of search, but you can make it with on input
; if you wish to use search with on input (searches when you press enter), disable #onKEYsearch -group (change 'on' -> 'off')

#onKEYsearch on
on *:KEYUP:@links:*:{
; filter with the content of editbox
; timer to give a little delay for the filter (not filtering if writing fast), change the 200 (in milliseconds) to
; a bit higher value, if you're a slower writer.
.timerURL -m 1 200 filter -cpfw $db @links $+(*,$editbox(@links),*)
}
#onKEYsearch end

; on input search for the @links window, if you want to use this instead of the on keydown, enable #onINPUTsearch -group (change 'off' -> 'on')
#onINPUTsearch off
on *:INPUT:@links: {
filter -cpfw $db @links $+(*,$1-,*)
}
#onINPUTsearch end

; on hotlink to trigger on links, this first one is for doubleclick
on *$:HOTLINK:/((www.?\.|https?:\/\/|ftp:\/\/).)/i:*:{
; clean up the triggered url with $url_parse and append "http://" in front of "www."
; read the url info from database file, and if it doesn't have '!' as fourth token, add the '!' in there and write it back
; then open the url with url -n %url (change this, if you have your own alias for opening urls)
var %url = $url_parse($1)
var %url = $iif(www* iswm %url,$+(<nowiki>http://,%url</nowiki>),%url)

url -n %url

var %oldurl = $read($db,w,$+(*,$chr(31),%url,$chr(31),*))

if ($gettok(%oldurl,4,32) != !) {
write $+(-l,$readn) $db $instok(%oldurl,!,4,32)
hadd links.hash %url $instok(%oldurl,!,4,32)
}
}

; this second on hotlink is for the right click, shows the popup (leave it even if you're not going to use the spopup.dll)
on ^*$:HOTLINK:/((www.?\.|https?:\/\/|ftp:\/\/).)/i:*:{
; check if the spopup.dll file is in the right place, if not, halt so it'll show the default popup
if (!$exists($spopupdll)) { halt }

; check if mouse button 2 have been pressed
if ($mouse.key & 16) { popup_url $url_parse($1) }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; here starts the functionality with the spopup.dll
; you won't need this part if you don't want to use the dll
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; the path to spopup.dll (this default snipped uses the spopup.dll in the same folder where mirc.exe is located)
alias -l spopupdll { return $qt($deltok($mircexe,-1,92) $+ \ $+ spopup.dll) }

; the new popup to replace the original one with a dll
alias -l popup_url {

; strip colors etc. from given url ($1), and find the url info from the database file
var %url = $strip($1)
var %url2 = $strip($hget(links.hash,%url))

; assign the info variables
var %datetime = $strip($gettok(%url2,1-2,32))
var %nickchan = $strip($gettok(%url2,4-,32))
var %nickchan = $iif($left(%nickchan,1) == !,$right(%nickchan,-2),%nickchan)

; show the popup
dll $spopupdll clear
dll $spopupdll add 1 0 0 open
dll $spopupdll add 2 0 0 copy url
dll $spopupdll add 3 0 0 copy info
dll $spopupdll add 4 0 0 %datetime %nickchan

; show additional "remove item" if you are in the linklist
if ($active == @links) {
dll $spopupdll add 5 0 0 -
dll $spopupdll add 6 0 16 remove url from db
dll $spopupdll add 7 1 0 ok
}

; assign the popup selection into a variable
var %c = $dll($spopupdll,popup,$mouse.cx $mouse.cy 1)

; check what the selection was
; these are the ID's from the popup, 2) copy url 3) copy info 4) the info (echo's the info into active) 7) remove link (only in @links window)
if (%c == 1) { url -n %url }
elseif (%c == 2) { clipboard %url }
elseif (%c == 3) { clipboard %datetime %nickchan %url }
elseif (%c == 4) { echo -agi30 url info: %datetime %nickchan %url }
elseif (%c == 7) { elseif (%c == 7) { write $+(-dw*,%url,*) $db | LinkHash_Load }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; this section is for the title fetching (youtube only at this time)
; you won't need this part if you don't want to use the title fetching funcitonality
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; this is the output handler alias that gets called from different parts of the script, depending on if we're dealing with an old title or new
alias titleOutput {
; format the title, we'll need timers here to output text _after_ the link has been processed and is echoed
var %title = $replace($gettok($remtok($iif($4 == __new,$1-,$5-),!,1,32),5-,32),|,$!chr(124))

; %inputSendLink will be true if you pressed enter holding down ctrl key, and it will message the title to the channel
if (%inputSendLink) {
.timerYTTitle $+ _msg_ $+ $2 -m 1 1 msg $3 Youtube: %title
}

; checking if the channel where the link was posted, is in %sendYTtitleChans variable, if so, sends the title to the channel
else if ($istok(%sendYTtitleChans,$3,32)) {
.timerYTTitle $+ _msg_ $+ $2 -m 1 1 msg $3 Youtube: %title
}

; echo the title of the link in the channel for you to see it
.timerYTTitle $+ _echo_ $+ $2 -m 1 1 echo -t $3 Youtube: %title
}

; a helper alias to clean HTML entities from the titles
alias stripHTMLEntities {
return $replace($1, ,$chr(160),",",<,<,>,>,&,&, $&
£, $chr(163), €, $chr(8364), ©, $chr(169), &trade, $chr(8482), ®, $chr(174))
}

; alias to handle different possible sources for the title (youtube only for now)
alias gettitle {
; first we check if we already have the title in the log, if so, use a quick timer to echo it out after the link
if ($4 == __old) {
titleOutput $1-
return
}

; get the title for youtube links, also put some info on the sockmark, $2 = youtube URL, $3- = rest of the info
else if ($1 == youtube) {
var %sock = yttitle. $+ $ticks
sockopen %sock gdata.youtube.com 80
sockmark %sock $2 $3-
}
}

; socket events for youtube - sockopen
on *:sockopen:yttitle.*:{
if $sockerr { return }

noop $regex($gettok($sock($sockname).mark,1,32),/(\?v=|&v=|\/\d\/|\/embed\/|\/v\/|\.be\/)([a-zA-Z0-9\-\_]{11})/)

sockwrite -n $sockname GET /feeds/mobile/videos/ $+ $$regml(2) $+ ?v=2&prettyprint=true HTTP/1.1
sockwrite -n $sockname Host: $sock($sockname).addr
sockwrite -n $sockname $crlf
}

; socket events for youtube - sockread
on *:sockread:yttitle.*:{
if $sockerr { return }

var %data | sockread %data

while ($sockbr) {
if (*<title>*</title>* iswm %data) {
; get the title
var %title = $regsubex(%data,/(.*<title>|</title>.*)/g,)

; send the title to titleOutput with other info
titleOutput youtube $gettok($sock($sockname).mark,1,32) $gettok($sock($sockname).mark,2,32) __new %title

; if we set the linenumber info to the sockmark, we need to write the title into the DB file on that line
if ($gettok($sock($sockname).mark,3,32)) {
var %oldurl = $hget(links.hash,$gettok($sock($sockname).mark,1,32))
write $+(-l,$v1) $db %oldurl %title
hadd links.hash $gettok($sock($sockname).mark,1,32) %oldurl %title
}

sockclose $sockname
return
}
sockread %data
}
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; the rest of the script is a part of my [[how to make your own theme]], and is only for an example usage of $urlc()
; basically you just need to run a line through $urlc() to color the links and log them
; you can add this into whatever event you like, ie. var %line = $urlc($1-) | echo %line
; this example also holds the if ($ctrlenter) { set %inputSendLink 1 } part, which is used in the title fetcher
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:INPUT:*: {
; we will check that ctrl wasn't pressed while pressing enter, and that it's not a command
if ($left($1,1) === $readini(mirc.ini,text,commandchar)) && (!$ctrlenter) { return }

; check if ctrl was pressed while pressing enter, and store it in a variable (for sending title to the channel in case of a youtube link)
unset %inputSendLink
if ($ctrlenter) { set %inputSendLink 1 }

; halt the default actions
haltdef

; we'll put the line into a variable, using $urlc() to store & color links if there are any
var %line = $urlc($1-)

; here is the part what we send as msg, we want to send $1- and not the modified variable
.msg $target $1-

; then we have the echo
echo $color(own text) -at $+(<,$iif($chan,$nick($chan,$me).pnick,$me),>) %line
}

on ^*:TEXT:*:#: {
; halt the default actions and assign $1- into a variable, and run it through $urlc() to color the links and log them
haltdef
var %line = $urlc($1-)

; echo the text into a right channel, -m highlights the switchbar button with "message color", -t adds timestamp
echo $color(normal) -mlt $chan $+(<,$nick($chan,$nick).pnick,>) %line
}

on ^*:TEXT:*:?: {
; halt default actions, and set $1- into a variable, and run it through $urlc()
haltdef
var %line = $urlc($1-)

; echo the text into a right query
echo $color(normal) -mlt $nick $+(<,$nick,>) %line
}

Noob

2017-10-08T20:25:20Z

Cail: Redirected page to How to start

#REDIRECT [[How_to_start]]

Start

2017-10-08T19:04:22Z

Cail: Redirected page to How to start

#REDIRECT [[How_to_start]]

Start

2017-10-08T19:03:22Z

Cail:

[[How_to_start]]
[[How_to_start (part 2)]]

Start

2017-10-08T19:02:49Z

Cail: Redirected page to How to start

#REDIRECT [[How_to_start]]
#REDIRECT [[How_to_start (part 2)]]

Halp

2017-10-08T18:55:18Z

Cail: Redirected page to Help

#REDIRECT [[Help]]

Category:Members

2017-10-08T16:47:43Z

Cail: /* Wiki Admins */ Removed Doomie, KreL1S and Zyberdog

Category:Members

2017-10-08T16:45:50Z

Cail: /* Wiki Editors */ Removed Tovrleaf, Shroud, Daveoh, Added bindi

2017-04-30T21:06:43Z

Cail:

When the IRC server send you information it contains either a command or a RAW numeric. The numerics are a supplement to the normal events (NOTICE/PRIVMSG/MODE/etc.) not a replacement. Because raw events receive the information from the server in its native form, they give you maximum flexibility in regards to how you choose to use it or present it to the user of your script.

To read more about the IRC RFC, look here: RFC 1459

=== Syntax ===
To actually react on numeric-raws, you have to use:
raw [$]<numeric>:<matchtext>:{ commands }

'''Note''' that raw-events are just like "normal" events, like [[On_text|On Text]] or [[On_notice|On Notice]]. That means that you '''can't''' use them in an alias or in another event. If you are using ''$'' infront of the numeric, you have to use a regex-based matchtext.

= Example =
For example you get several numeric raws when you join a channel:
*[[Raw_332|332]] - containing the topic of the channel (like when using [[Topic|/topic]])
*[[Raw_333|333]] - containing the one who has set the topic and when it was set
*[[Raw_353|353]] - containing the names on the channel (like when using [[Names|/names]])
*[[Raw_366|366]] - containing the message that the list of names has ended
*[[Raw_324|324]] - containing the modes that are currently set (like when using [[Mode|/mode]])
*[[Raw_329|329]] - containing the creation date of the channel

If you e.g. want to echo the creation date of the channel to your status window, you would have to use:
; raw 329 returns: <yournick> <#channel> <creation time in unix format>
raw 329:*: {
[[echo]] -a $2 was created at: [[$asctime]]($3)
}

If you want to halt mIRC's default output in connection with a raw-event, you can use [[Haltdef|/haltdef]]. For example:
raw 332:*: {
haltdef
}
This example would make mIRC not show the topic of a channel you have joined.

[[Category:IRC]]

Category:Raws

2017-04-30T21:06:21Z

Cail:

When the IRC server send you information it contains either a command or a RAW numeric. The numerics are a supplement to the normal events (NOTICE/PRIVMSG/MODE/etc.) not a replacement. Because raw events receive the information from the server in its native form, they give you maximum flexibility in regards to how you choose to use it or present it to the user of your script.

To read more about the IRC RFC, look here: RFC 1459

=== Syntax ===
To actually react on numeric-raws, you have to use:
raw [$]<numeric>:<matchtext>:{ commands }

'''Note''' that raw-events are just like "normal" events, like [[On_text|On Text]] or [[On_notice|On Notice]]. That means that you '''can't''' use them in an alias or in another event. If you are using ''$'' infront of the numeric, you have to use a regex-based matchtext.

== Example ==
For example you get several numeric raws when you join a channel:
*[[Raw_332|332]] - containing the topic of the channel (like when using [[Topic|/topic]])
*[[Raw_333|333]] - containing the one who has set the topic and when it was set
*[[Raw_353|353]] - containing the names on the channel (like when using [[Names|/names]])
*[[Raw_366|366]] - containing the message that the list of names has ended
*[[Raw_324|324]] - containing the modes that are currently set (like when using [[Mode|/mode]])
*[[Raw_329|329]] - containing the creation date of the channel

If you e.g. want to echo the creation date of the channel to your status window, you would have to use:
; raw 329 returns: <yournick> <#channel> <creation time in unix format>
raw 329:*: {
[[echo]] -a $2 was created at: [[$asctime]]($3)
}

If you want to halt mIRC's default output in connection with a raw-event, you can use [[Haltdef|/haltdef]]. For example:
raw 332:*: {
haltdef
}
This example would make mIRC not show the topic of a channel you have joined.

[[Category:IRC]]

2017-04-30T17:46:53Z

Cail:

Speccats

2017-04-30T17:45:52Z

Cail:

[[Category:MIRC]]
[[Category:IRC]]

2017-04-28T20:58:18Z

Cail:

Speccats

2017-04-28T20:57:39Z

Cail:

MediaWiki:Common.js

2017-04-28T20:56:40Z

Cail:

/* Any JavaScript here will be loaded for all users on every page load. */

Speccats

2017-04-28T20:55:44Z

Cail:

MediaWiki:Common.js

2017-04-28T20:54:39Z

Cail: Created page with "/* Any JavaScript here will be loaded for all users on every page load. */ $('.CategoryTreeToggle').click();"

/* Any JavaScript here will be loaded for all users on every page load. */

$('.CategoryTreeToggle').click();

Scriptwiki - User contributions [en]

Chess game

Chess game

Chess game

URL-logger

Noob

Start

Start

Start

Halp

Category:Members

Category:Members

MediaWiki:Sidebar

News

News

Titlebar

Category list

Category list

Test mainpage

Test mainpage

Category list

Test mainpage

Test mainpage

Category:Raws

Category:Raws

Category:Raws

MediaWiki:Sidebar

Categories

Category:Quakenet

Speccats

Speccats

MediaWiki:Sidebar

Catstreelist

Category:Raws

Speccats

Speccats

Speccats

Template:CatList

Template:CatList

Speccats

Speccats

Speccats

Speccats

Speccats

Speccats

Speccats

Speccats

Speccats

MediaWiki:Common.js

Speccats

MediaWiki:Common.js