-
language
What Language is this,
It didnt copy very well so its kinda sloppy
[script]
n0=alias client.connect {
n1= titlebar xTEC - %VERSION - connecting...
n2= sockopen client.sock %SERVER-HOST %SERVER-PORT
n3=}
n4=
n5=alias client.disconnect {
n6= sockwrite -n client.sock exit
n7= sockwrite -n client.sock exit
n8= sockclose client.sock
n9= echo -s disconnected at $time
n10= titlebar xTEC - %VERSION - not connected
n11=}
n12=
n13=on 1:sockopen:client.sock:{
n14= window -ek0 @Client 0 100 $window(-3).w $calc($window(-3).h - 100)
n15= echo -s connected at $time
n16= titlebar xTEC - %VERSION - connected
n17= .timerlogin 1 1 sockwrite -n client.sock /\/Connect: n/a!!n/a
n18=}
n19=
n20=on 1:sockclose:client.sock:{
n21= echo -s disconnected at $time
n22= titlebar xTEC - %VERSION - disconnected
n23= aline @Client -- disconnected --
n24=}
n25=
n26=on 1:sockread:client.sock:{
n27= if ($sockerr > 0) return
n28= :sockread.nextread
n29= sockread %unfiltered
n30= if ($sockbr == 0) return
n31= if (%unfiltered == $null) %unfiltered =
n32= input.process
n33= goto sockread.nextread
n34=}
n35=
n36=alias script.none { return }
n37=
n38=alias script.palm {
n39= if ($pos($1-,no longer busy,1) != $null) { sockwrite -n client.sock
%script.next }
n40=
n41= if ($pos($1-,manage to palm,1) != $null) { set %script.next unpalm
%script.item }
n42= if ($pos($1-,before palming it,1) != $null) { set %script.next unpalm
%script.item }
n43= if ($pos($1-,very nimbly,1) != $null) { set %script.next unpalm %script.item
}
n44=
n45= if ($pos($1-,has failed,1) != $null) { set %script.next palm %script.item
}
n46= if ($pos($1-,quite manage,1) != $null) { set %script.next palm %script.item
}
n47=
n48= if ($pos($1-,flip your wrist,1) != $null) { timer 1 2 sockwrite -n
client.sock palm %script.item }
n49= if ($pos($1-,are already palming,1) != $null) { timer 1 2 sockwrite
-n client.sock unpalm %script.item | timer 1 2 sockwrite -n client.sock palm
%script.item }
n50= if ($pos($1-,aren't palming,1) != $null) { timer 1 2 sockwrite -n client.sock
palm %script.item }
n51= if ($pos($1-,in hand.,1) != $null) { timer 1 2 sockwrite -n client.sock
get %script.item | timer 1 2 sockwrite -n client.sock palm %script.item }
n52=}
n53=
etc.....
Thanks,
Tyreal
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
Forum Rules
|
Top DevX Stories
Easy Web Services with SQL Server 2005 HTTP Endpoints
JavaOne 2005: Java Platform Roadmap Focuses on Ease of Development, Sun Focuses on the "Free" in F.O.S.S.
Wed Yourself to UML with the Power of Associations
Microsoft to Add AJAX Capabilities to ASP.NET
IBM's Cloudscape Versus MySQL
|
Bookmarks