battlenet login script

#!/usr/bin/expect -f
#
# This Expect script was generated by autoexpect on Sat Nov  8 14:21:41 2008
# Expect and autoexpect were both written by Don Libes, NIST.
#
# Note that autoexpect does not guarantee a working script.  It
# necessarily has to guess about certain things.  Two reasons a script
# might fail are:
#
# 1) timing - A surprising number of programs (rn, ksh, zsh, telnet,
# etc.) and devices discard or ignore keystrokes that arrive "too
# quickly" after prompts.  If you find your new script hanging up at
# one spot, try adding a short sleep just before the previous send.
# Setting "force_conservative" to 1 (see below) makes Expect do this
# automatically - pausing briefly before sending each character.  This
# pacifies every program I know of.  The -c flag makes the script do
# this in the first place.  The -C flag allows you to define a
# character to toggle this mode off and on.

set force_conservative 0  ;# set to 1 to force conservative mode even if
			  ;# script wasn't run conservatively originally
if {$force_conservative} {
	set send_slow {1 .1}
	proc send {ignore arg} {
		sleep .1
		exp_send -s -- $arg
	}
}

#
# 2) differing output - Some programs produce different output each time
# they run.  The "date" command is an obvious example.  Another is
# ftp, if it produces throughput statistics at the end of a file
# transfer.  If this causes a problem, delete these patterns or replace
# them with wildcards.  An alternative is to use the -p flag (for
# "prompt") which makes Expect only look for the last line of output
# (i.e., the prompt).  The -P flag allows you to define a character to
# toggle this mode off and on.
#
# Read the man page for more info.
#
# -Don


set timeout -1
spawn $env(SHELL)
match_max 100000
send -- "cd ~\r"
expect -exact "khad@yyyyyy:~\$ "
send -- "telnet public.xxxxx.us 6112"
expect -exact "telnet public.xxxxx.us 6112"
send -- "\r"
expect "Connected to public.xxxxx.us.\r
Escape character is '^\]'.\r
"
send -- "\r"
expect "Enter your account name and password.\r
Sorry, there is no guest account.\r
\r
Username: "
send -- "Nagasakti\r"
expect -exact "akti\r
\r
Password: "
send -- "xxxxxx\r"
sleep 5
send -- "/f w wooooooii............\r"
sleep .5
send -- "/f w ayo maen...\r"
sleep .5
send -- "/f w lama banget seh... gw tungguin dari tadi\r"
sleep .5
send -- "/f w wew lagi pada maen ya...... dah2 leave aja ulang\r"
sleep .5
send -- "/f w om lom menang2 yak\r"
sleep .5
send -- "/f w VOTING: APAKAH ANDA SETUJU.. KALO SPEC, GEO, EZA NGGA PERTAMAX BERARTI BBBB ? (Hasil sementara Ya: 3 <- rudi, somet, khad Tidak:3 <- siom, coli, bebek)\r"
sleep .5
send -- "/f w \[chimera\] Si om akhir akhir ini gampang ngejanda yaaa...\r"
sleep .5
send -- "/f w \[computer5\] si dimas rajin jilatin pantat lu om, biar naek gaji ya dim\r"
sleep .5
send -- "/f w kata bijak: Orang yang sombong akan merasa bahwa semua orang di sekitarnya berada di level bawah daripada dirinya\r"


#expect "to your friends"
sleep .5
send -- "/f l\r"
expect "Friends List"

sleep .5
send -- "/f w |getgame 1\r"




sleep 1


interact