on closeStackRequest
if (the target is "card" && quote & "chat" & quote) or (the target is "card" && quote & "login" & quote) or ¬
(the target is "card" && quote & "register" & quote) or (the target is "card" && quote & "settings" & quote) then
answer warning "Are you sure you want to close this stack (and disconnect)?" with "Okay" or "Cancel"
if it is "Okay" then
send "disconnect" to btn "Connect" of cd 1
if the environment is "development" then
save this stack
pass closestackrequest
end if
cleanUp
quit
end if
else
pass closestackrequest
end if
end closeStackRequest
on preOpenStack
global gChatRevShortName, gMainStackRect
if (the target is "card" && quote & "chat" & quote) or (the target is "card" && quote & "login" & quote) or ¬
(the target is "card" && quote & "register" & quote) or (the target is "card" && quote & "settings" & quote) then
put the short name of this stack into gChatRevShortName
send "restoreStyleMenu" to btn "Style Storage" of cd "Chat" of stack gChatRevShortName
readPrefs
get the result
if gMainStackRect is a rect then
set the rect of stack gChatRevShortName to gMainStackRect
else
set the rect of this stack to 1,1,640,480
set the loc of me to the screenLoc
end if
set the label of btn "Status" of cd 2 of stack gChatRevShortName to "Disconnect"
lock messages
set the menuHistory of btn "Go" to 1
set the label of btn "Connect" to "Connect"
setFieldBackColor
if the platform is not "MacOS" then
hide btn "iTunes" of cd "Settings" of stack gChatRevShortName
end if
unlock messages
end if
pass preOpenStack
end preOpenStack
-- handler added by Mark S
on openStack
global gChatRevShortName
if (the target is "card" && quote & "chat" & quote) or (the target is "card" && quote & "login" & quote) then
choose browse tool
checkLastMessageSentTime
send "setMenus" to btn "Style Storage" cd "Chat" of stack gChatRevShortName
if the platform is "MacOS" then
show btn "iTunes" of cd "Settings" of stack gChatRevShortName
else
hide btn "iTunes" of cd "Settings" of stack gChatRevShortName
end if
end if
pass openStack
end openStack
-- handler added by Mark S
on checkLastMessageSentTime
global gChatRevShortName
if the cLastMessageSentTime of cd 2 is empty then
set the cLastMessageSentTime of cd 2 to the long time
end if
put the cLastMessageSentTime of cd 2 into myIdleTime
put ((fld "Idle Time" of cd 4 of stack gChatRevShortName)*60) into myTimeLimit
convert myIdleTime to seconds
if the label of btn "Status" of cd 2 of stack gChatRevShortName is not "Disconnect" then
if (the seconds - myidleTime) > myTimeLimit then
set the label of btn "Status" of cd 2 of stack gChatRevShortName to "Away"
end if
end if
put ((fld "Idle Time" of cd 4 of stack gChatRevShortName) * 60) - 1 into myIdleTimeSecs
send "checkLastMessageSentTime" to me in myIdleTimeSecs seconds
end checkLastMessageSentTime
on preOpenCard
lock screen
revUpdateGeometry
pass preOpenCard
end preOpenCard
-- handler by Mark S
-- replace smileys
function replaceSmileys theMsg
put smileyServer() into mySmileServer
put false into mySmileyFound
if the hilite of btn "Replace smileys" of cd 4 is true then
implementedSmileys smiley
put mySmileysList() into mySmileys
repeat with x = 1 to (number of lines of mySmileys)
put smiley[x] into tempVar --for debugging
if smiley[x] is in theMsg then
put true into mySmileyFound
put the length of smiley[x] into mySmileyLength
repeat until smiley[x] is not in theMsg
put offset(smiley[x],theMsg) into c
delete char (c+1) to (c+mySmileyLength-1) of theMsg
put ("<img src=" & quote & mySmileServer & line x of mySmileys & quote & ">") into char c of theMsg
end repeat
end if
end repeat
if mySmileyFound then put "<br> " after theMsg
end if
return (theMsg & numToChar(11) & mySmileyFound)
end replaceSmileys
function smileyServer
global gChatRevShortName
put line lineoffset(the label of btn "Smile Server" of cd 4 of stack gChatRevShortName,btn "Smile Server" of cd 4 of stack gChatRevShortName) of the cServers of btn "Smile Server" of cd 4 of stack gChatRevShortName into mySmileServer
if last char of mySmileServer is not "/" then put "/" after mySmileServer
return mySmileServer
end smileyServer
function mySmileysList
put "smile.gif" & return & ¬
"wink.gif" & return & ¬
"sad.gif" & return & ¬
"cry.gif" & return & ¬
"rasp.gif" & return & ¬
"grin.gif" & return & ¬
"shock.gif" & return & ¬
"love.gif" & return & ¬
"rolleyes.gif" & return & ¬
"cool.gif" & return & ¬
"sneaky.gif" & return & ¬
"bored.gif" into mySmileys
return mySmileys
end mySmileysList
on implementedSmileys @smiley
put ":-)" into smiley[1]
put ";-)" into smiley[2]
put ":-(" into smiley[3]
put ":'-(" into smiley[4]
put ":-p" into smiley[5]
put ":-D" into smiley[6]
put "=:-o" into smiley[7]
put ":-*" into smiley[8]
put ":-/" into smiley[9]
put "8-)" into smiley[10]
put ":^)" into smiley[11]
put ":-|" into smiley[12]
end implementedSmileys
on saveStackRequest
global gChatRevShortName
cleanUp
pass saveStackRequest
end saveStackRequest
on cleanUp
global gChatRevShortName,gLogViewerApp
set the cursor to watch
set the itemDelimiter to numToChar(11)
put btn "IP List" of cd 1 of stack gChatRevShortName into item 1 of myPrefs
put the label of btn "IP List" of cd 1 of stack gChatRevShortName into item 2 of myPrefs
put fld "Name" of cd 1 of stack gChatRevShortName into item 3 of myPrefs
put fld "Pass" of cd 1 of stack gChatRevShortName into item 4 of myPrefs
put fld "Port" of cd 1 of stack gChatRevShortName into item 5 of myPrefs
put fld "Nickname" of cd 3 of stack gChatRevShortName into item 6 of myPrefs
put fld "Password" of cd 3 of stack gChatRevShortName into item 7 of myPrefs
put fld "E-Mail" of cd 3 of stack gChatRevShortName into item 8 of myPrefs
put fld "MouseOver" of cd 3 of stack gChatRevShortName into item 9 of myPrefs
put fld "About" of cd 3 of stack gChatRevShortName into item 10 of myPrefs
put fld "Message Sound" of cd 4 of stack gChatRevShortName into item 11 of myPrefs
put fld "Login Sound" of cd 4 of stack gChatRevShortName into item 12 of myPrefs
put fld "Path" of cd 4 of stack gChatRevShortName into item 13 of myPrefs
put fld "Autoreply Message" of cd 4 of stack gChatRevShortName into item 14 of myPrefs
put fld "Idle Time" of cd 4 of stack gChatRevShortName into item 15 of myPrefs
-- put fld "Login Sound" of cd 4 of stack gChatRevShortName into item 16 of myPrefs
put the hilite of btn "Receive HTML" of cd 4 of stack gChatRevShortName into item 17 of myPrefs
put the hilite of btn "Replace Smileys" of cd 4 of stack gChatRevShortName into item 18 of myPrefs
put the hilite of btn "Press enter for multiple lines" of cd 4 of stack gChatRevShortName into item 19 of myPrefs
put the label of btn "Smile Server" of cd 4 of stack gChatRevShortName into item 20 of myPrefs
put btn "IP URL" of cd 1 of stack gChatRevShortName into item 21 of myPrefs
put the label of btn "IP URL" of cd 1 of stack gChatRevShortName into item 22 of myPrefs
put the rect of this stack into item 23 of myPrefs
put fld "IP" of cd 1 of stack gChatRevShortName into item 24 of myPrefs
put the backgroundcolor of grc "message" of cd 4 of stack gChatRevShortName into item 25 of myPrefs
put the backgroundcolor of grc "privmessage" of cd 4 of stack gChatRevShortName into item 26 of myPrefs
put the thumbPosition of scrollbar "Sound Level" of cd 4 of stack gChatRevShortName into item 27 of myPrefs
set the thumbPosition of scrollbar "Sound Level" of cd 4 of stack gChatRevShortName to 75
put the hilite of btn "Save to file" of cd 4 of stack gChatRevShortName into item 28 of myPrefs
set the hilite of btn "Save to file" of cd 4 of stack gChatRevShortName to false
put gLogViewerApp into item 29 of myPrefs
put the thumbposition of scrollbar "sound level" of cd 4 into item 30 of myPrefs
put the hilite of btn "Enable Speech" of cd 4 into item 31 of myPrefs
put the loc of window "Colour Palette" into item 32 of myPrefs
put the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName into item 33 of myPrefs
put the textFont of fld "Chat" of cd "Chat" of stack gChatRevShortName into item 34 of myPrefs
if there is a window "Colour Palette" then
put the bottomLeft of window "Colour Palette" into item 35 of myPrefs
else
put the cCustomLoc of stack "Colour Palette" into item 35 of myPrefs
end if
if there is a window "Smileys" then
put the bottomLeft of window "Smileys" into item 36 of myPrefs
else
put the cCustomLoc of stack "Smileys" into item 36 of myPrefs
end if
put the short name of this stack & return & myPrefs into myPrefs
put myPrefs into url ("file:" & stackToFilename("User Data/User Data"))
put empty into btn "IP List" of cd 1 of stack gChatRevShortName
set the fileName of image "Default Smile" of cd 2 of stack gChatRevShortName to empty
set the icon of btn "Insert Smile" of cd 2 of stack gChatRevShortName to empty
put empty into fld "Enter" of cd 2 of stack gChatRevShortName
put empty into fld "Chat" of cd 2 of stack gChatRevShortName
put empty into fld "Members" of cd 2 of stack gChatRevShortName
put empty into fld "Log" of cd 1 of stack gChatRevShortName
put empty into fld "Name" of cd 1 of stack gChatRevShortName
put empty into fld "Pass" of cd 1 of stack gChatRevShortName
put empty into fld "IP" of cd 1 of stack gChatRevShortName
put empty into fld "Port" of cd 1 of stack gChatRevShortName
put empty into fld "Nickname" of cd 3 of stack gChatRevShortName
put empty into fld "Password" of cd 3 of stack gChatRevShortName
put empty into fld "E-Mail" of cd 3 of stack gChatRevShortName
put empty into fld "MouseOver" of cd 3 of stack gChatRevShortName
put empty into fld "About" of cd 3 of stack gChatRevShortName
put empty into fld "Message Sound" of cd 4 of stack gChatRevShortName
put empty into fld "Login Sound" of cd 4 of stack gChatRevShortName
put empty into fld "Path" of cd 4 of stack gChatRevShortName
put empty into btn "IP URL" of cd 1 of stack gChatRevShortName
set the label of btn "IP URL" of cd 1 of stack gChatRevShortName to empty
repeat for each char x in "pbiu"
set the hilite of btn x of cd 2 of stack gChatRevShortName to false
end repeat
set the cTextStyle of fld "Enter" of cd 2 of stack gChatRevShortName to empty
set the itemDel to comma
put "Threads,Text,Edit,Thread,Create" into myForumFields
repeat for each item x in myForumFields
put empty into fld x of cd "Forum"
end repeat
set the backgroundColor of graphic "Selected Colour" of cd 1 of stack "Colour Palette" to 0,0,0
set the backgroundColor of graphic "Old Colour" of cd 1 of stack "Colour Palette" to 0,0,0
set the fileName of image "Smiley" of cd 4 to empty
if there is a window "Smileys" then close window "Smileys"
if there is a window "Colour Palette" then close window "Colour Palette"
end cleanUp
on readPrefs
global gChatRevShortName,gMainStackRect,gLogViewerApp
put "http://www.revolutionboard.de/bvg/ip.txt" into myDfltURL
put empty into myPrefs
set the cursor to watch
put stackToFilename("User Data") into myUserDataFolder
if there is not a folder myUserDataFolder then create folder myUserDataFolder
if there is not a folder (myUserDataFolder & "/Smileys") then
put "(Local" into line 5 of btn "Smile Server" of cd 4 of stack gChatRevShortName
else
put "Local" into line 5 of btn "Smile Server" of cd 4 of stack gChatRevShortName
end if
put stackToFilename("User Data/User Data") into myPrefsFilePath
put "file:" before myPrefsFilePath
put url myPrefsFilePath into myPrefs
if myPrefs is not empty then
if line 1 of myPrefs is not (the short name of this stack) then
beep
answer warning "Sorry, the user data are incompatible with this version" & return & " of ChatRev." && ¬
"Please enter your user data again." with "Okay"
end if
end if
delete line 1 of myPrefs
set the cServers of btn "Smile Server" of cd 4 of stack gChatRevShortName to allSmileServers()
set the itemDelimiter to numToChar(11)
put item 1 of myPrefs into btn "IP List" of cd 1 of stack gChatRevShortName
set the label of btn "IP List" of cd 1 of stack gChatRevShortName to item 2 of myPrefs
put item 3 of myPrefs into fld "Name" of cd 1 of stack gChatRevShortName
put item 4 of myPrefs into fld "Pass" of cd 1 of stack gChatRevShortName
if item 5 of myPrefs is not empty then
put item 5 of myPrefs into fld "Port" of cd 1 of stack gChatRevShortName
else
put "80" into fld "Port" of cd 1 of stack gChatRevShortName
end if
put item 6 of myPrefs into fld "Nickname" of cd 3 of stack gChatRevShortName
put item 7 of myPrefs into fld "Password" of cd 3 of stack gChatRevShortName
put item 8 of myPrefs into fld "E-Mail" of cd 3 of stack gChatRevShortName
put item 9 of myPrefs into fld "MouseOver" of cd 3 of stack gChatRevShortName
put item 10 of myPrefs into fld "About" of cd 3 of stack gChatRevShortName
put item 11 of myPrefs into fld "Message Sound" of cd 4 of stack gChatRevShortName
if there is a file (item 11 of myPrefs) then
set the filename of player "message sound" of card "chat" to (item 11 of myPrefs)
set the filename of player "message sound" of cd "Settings" to (item 11 of myPrefs)
else
set the filename of player "message sound" of card "chat" to empty
set the filename of player "message sound" of cd "Settings" to empty
end if
if item 12 of myPrefs is not empty then
put item 12 of myPrefs into fld "Login Sound" of cd 4 of stack gChatRevShortName
if there is a file (item 12 of myPrefs) then
set the filename of player "login sound" of card "chat" to (item 12 of myPrefs)
set the filename of player "login sound" to (item 12 of myPrefs)
else
set the filename of player "login sound" of card "chat" to empty
set the filename of player "login sound" of cd "Settings" to empty
end if
else
put "beep" into fld "Login Sound" of cd 4 of stack gChatRevShortName
end if
put item 13 of myPrefs into fld "Path" of cd 4 of stack gChatRevShortName
if item 14 of myPrefs is not empty then
put item 14 of myPrefs into fld "Autoreply Message" of cd 4 of stack gChatRevShortName
else
put "I am currently away from my computer." into fld "Autoreply Message" of cd 4 of stack gChatRevShortName
end if
if item 15 of myPrefs is not empty then
put item 15 of myPrefs into fld "Idle Time" of cd 4 of stack gChatRevShortName
else
put 20 into fld "Idle Time" of cd 4 of stack gChatRevShortName
end if
--put item 16 of myPrefs into fld "Login Sound" of cd 4 of stack gChatRevShortName
if item 17 of myPrefs is not empty then set the hilite of btn "Receive HTML" of cd 4 of stack gChatRevShortName to item 17 of myPrefs
if item 18 of myPrefs is not empty then
set the hilite of btn "Replace Smileys" of cd 4 of stack gChatRevShortName to item 18 of myPrefs
set the enabled of btn "Smile Server" of cd 4 of stack gChatRevShortName to item 18 of myPrefs
end if
if item 19 of myPrefs is not empty then set the hilite of btn "Press enter for multiple lines" of cd 4 of stack gChatRevShortName to item 19 of myPrefs
if item 20 of myPrefs is not empty then
set the label of btn "Smile Server" of cd 4 of stack gChatRevShortName to item 20 of myPrefs
else
set the label of btn "Smile Server" of cd 4 of stack gChatRevShortName to line 1 of btn "Smile Server" of cd 4 of stack gChatRevShortName
end if
if item 21 of myPrefs is not empty then
put item 21 of myPrefs into btn "IP URL" of cd 1 of stack gChatRevShortName
set the label of btn "IP URL" of cd 1 of stack gChatRevShortName to item 22 of myPrefs
else
put myDfltURL into btn "IP URL" of cd 1 of stack gChatRevShortName
set the label of btn "IP URL" to myDfltURL
end if
put item 23 of myPrefs into gMainStackRect
put the itemDelimiter into myOldDel
set the itemDelimiter to comma
add 20 to last item of gMainStackRect
set the itemDelimiter to myOldDel
put item 24 of myPrefs into fld "IP" of cd 1 of stack gChatRevShortName
if item 25 of myPrefs is not empty then
set the backgroundcolor of grc "message" of cd 4 of stack gChatRevShortName to item 25 of myPrefs
else
set the backgroundcolor of grc "message" of cd 4 of stack gChatRevShortName to 255,0,0
end if
if item 26 of myPrefs is not empty then
set the backgroundcolor of grc "privmessage" of cd 4 of stack gChatRevShortName to item 26 of myPrefs
else
set the backgroundcolor of grc "privmessage" of cd 4 of stack gChatRevShortName to "30,58,238"
end if
if item 27 of myPrefs is a number then
set the thumbPosition of scrollbar "Sound Level" of cd 4 of stack gChatRevShortName to item 27 of myPrefs
else
set the thumbPosition of scrollbar "Sound Level" of cd 4 of stack gChatRevShortName to 75
end if
if item 28 of myPrefs is not empty then
set the hilite of btn "Save to file" of cd 4 of stack gChatRevShortName to item 28 of myPrefs
else
set the hilite of btn "Save to file" of cd 4 of stack gChatRevShortName to false
end if
if (char 1 of menuItem 5 of btn "Smile Server" of cd 4 of stack gChatRevShortName is "(") and ¬
(the label of btn "Smile Server" of cd 4 of stack gChatRevShortName is "Local") then
set the label of btn "Smile Server" of cd 4 of stack gChatRevShortName to line 1 of btn "Smile Server" of cd 4 of stack gChatRevShortName
end if
put (line (lineoffset(the label of btn "Smile Server" of cd 4,btn "Smile Server" of cd 4)) of the cServers of cd btn "Smile Server" of cd 4) into mySmileServer
if char 1 to 8 of mySmileServer is "binfile:" then delete char 1 to 8 of mySmileServer
set the fileName of image "Default Smile" of cd 2 to mySmileServer & "smile.gif"
get the result
set the icon of btn "Insert Smile" of cd 2 to the short id of image "Default Smile" of cd 2
set the fileName of image "Smiley" of cd 4 to mySmileServer & "smile.gif"
put item 29 of myPrefs into gLogViewerApp
if item 30 of myPrefs is not empty then
set the thumbposition of scrollbar "sound level" of cd 4 to item 30 of myPrefs
else
set the thumbposition of scrollbar "sound level" of cd 4 to 50
end if
if item 31 of myPrefs is in "true,false" then
set the hilite of btn "Enable Speech" of cd 4 to item 31 of myPrefs
else
set the hilite of btn "Enable Speech" of cd 4 to false
end if
if item 32 of myPrefs is a point then
put the loc of window "Colour Palette" into item 32 of myPrefs
end if
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to item 33 of myPrefs
set the textFont of fld "Chat" of cd "Chat" of stack gChatRevShortName to item 34 of myPrefs
if item 35 of myPrefs is a point then
set the cCustomLoc of stack "Colour Palette" to item 35 of myPrefs
else
set the cCustomLoc of stack "Colour Palette" to empty
end if
if item 36 of myPrefs is a point then
set the cCustomLoc of stack "Smileys" to item 36 of myPrefs
else
set the cCustomLoc of stack "Smileys" to empty
end if
end readPrefs
function smileURL theSmiley
put smileyServer() into mySmileServer
implementedSmileys smiley
put mySmileysList() into mySmileys
repeat with x = 1 to number of lines of mySmileys
if smiley[x] is theSmiley then
return mySmileServer & line x of mySmileys
end if
end repeat
end smileURL
function stackToFilename theFile
set the itemDelimiter to "/"
if the platform is "MacOS" then
put macSysVersion() into myMacSysVersion
else
put 0 into myMacSysVersion
end if
if myMacSysVersion < 10 then
-- Mac Classic, Linux, Windows
put item 1 to -2 of value(word 2 of the long name of stack (the mainStack of this stack)) into myPath
-- put item 1 to -2 of value(word 2 of long name of stack (the mainStack of this stack)) into myPath
else if myMacSysVersion >= 10 then
-- Mac OS X
put item 1 to -5 of value(word 2 of the long name of stack (the mainStack of this stack)) into myPath
--put item 1 to -5 of value(word 2 of long name of stack (the mainStack of this stack)) into myPath
end if
if char 1 of theFile is not "/" then put "/" after myPath
return myPath & theFile
end stackToFilename
function macSysVersion
put the itemDelimiter into myOldDel
set the itemdelimiter to "."
put item 1 of the systemVersion into myOSVersion
set itemDelimiter to myOldDel
return myOSVersion
end macSysVersion
on commandKeyDown k
switch k
case "S"
if the environment is "development" then
save this stack
readPrefs
end if
break
case (k is in "'?/")
send ("commandKeyDown" && quote & "/" & quote) to this cd
break
default
pass commandKeyDown
beak
end switch
end commandKeyDown
function allSmileServers
return "http://home.wanadoo.nl/mark.sch/smile/" & return & ¬
"http://www.ihug.org/ehug/smile/" & return & ¬
"http://www.ihug.org/ehug/smile2/" & return & ¬
"http://homepage.mac.com/bvg/smilies/" & return & ¬
"binfile:" & stackToFilename("User Data/Smileys/")
end allSmileServers
function removeFinalEmptyLines theHtmlData
repeat until (char -7 to -1 of last word of theHtmlData) is not "<p></p>"
delete char -7 to -1 of last word of theHtmlData
if last char of theMessage is space then delete last char of theHtmlData
end repeat
return theHtmlData
end removeFinalEmptyLines
on setFieldBackColor
global gChatRevShortName
put "237,243,254" into myBackColor
if the platForm is "MacOS" then
if macSysversion() < 10 then put "232,232,232" into myBackColor
end if
set the backgroundColor of fld "Members" of cd 2 of stack gChatRevShortName to myBackColor
end setFieldBackColor
-- this function uses above AppleScript to
-- retrieve the song information
function iTunesTrack
-- the stackToFilename function puts the path to the script
-- into the variable myScriptFile. This lines needs
-- adjustment if you implement this in your own stack
put stackToFilename("User Data/iTunes track.scpt") into myScriptFile
if there is a file myScriptFile then
if the platForm is "MacOS" then
if macSysVersion() <= 9 then
put ("run script" && quote & revMacFromUnixPath(myScriptFile) & quote) into myScript
wait 1
else
put ("run script" && quote & myScriptFile & quote) into myScript
end if
do myScript as AppleScript
return the result
end if
end if
return empty
end iTunesTrack
-- gets info from above function and
-- updates tooltip
on setTooltip2iTunes
global gChatRevShortName
set the itemDelimiter to tab
if the hilite of btn "iTunes" of cd 4 of stack gChatRevShortName is true then
put fld "Members" of cd 2 of stack gChatRevShortName into myMemberList
put field "Name" of cd 1 of stack gChatRevShortName into myUserName
put 1 into myNumber
repeat until ((item 1 of line myNumber of myMemberList is myUserName) or (item 1 of line myNumber of myMemberList is empty))
put lineOffset(myUserName,myMemberList) into myNumber
end repeat
if (myNumber > 0) and (myNumber <= number of lines of myMemberList) then
put iTunesTrack() into myTrack
if myTrack is not "execution error" then
put char 2 to -2 of myTrack into myTrack
else
put empty into myTrack
end if
if item 2 of line myNumber of myMemberList is not myTrack then
write "setMouse" & return & myTrack & return to socket field "IP" of card 1
end if
end if
send setTooltip2iTunes to me in 5 seconds
end if
end setTooltip2iTunes
on savetofile theLines
if field "message sound" of card "settings" = "beep" then
beep
else if field "message sound" of card "settings" = "" then
--do nothing here
else
set the currentTime of player "message sound" of card "chat" to 1
start player "message sound" of card "chat"
end if
lock screen
--set the textstyle of line -1 of field "chat" of card "chat" to empty
if line -1 of field "chat" of card "chat" contains "http://" then
put word wordoffset("http://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" into theURL
set the linktext of word wordoffset("http://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to theURL
set the textstyle of word wordoffset("http://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to "Link"
else if line -1 of field "chat" of card "chat" contains " www." then
put "http://" & word wordoffset("www.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" into theURL
set the linktext of word wordoffset("www.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to theURL
set the textstyle of word wordoffset("www.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to "Link"
else if line -1 of field "chat" of card "chat" contains " ftp." then
put "ftp://" & word wordoffset("ftp.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" into theURL
set the linktext of word wordoffset("ftp.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to theURL
set the textstyle of word wordoffset("ftp.",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to "Link"
else if line -theLines to -1 of field "chat" of card "chat" contains "ftp://" then
put word wordoffset("ftp://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" into theURL
set the linktext of word wordoffset("ftp://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to theURL
set the textstyle of word wordoffset("ftp://",line -1 of field "chat" of card "chat") of line -1 of field "chat" of card "chat" to "Link"
else if line -theLines to -1 of field "chat" of card "chat" contains "@" then
put offset("@",line -theLines to -1 of field "chat" of card "chat") into c
if charToNum(char (c-1) of line -theLines to -1 of field "chat" of card "chat") > 32 and charToNum(char (c-1) of line -theLines to -1 of field "chat" of card "chat") < 122 and charToNum(char (c+1) of line -theLines to -1 of field "chat" of card "chat") > 32 and charToNum(char (c+1) of line -theLines to -1 of field "chat" of card "chat") < 123 then
put word wordoffset("@",line -theLines to -1 of field "chat" of card "chat") of line -theLines to -1 of field "chat" of card "chat" into theURL
set the linktext of word wordoffset("@",line -theLines to -1 of field "chat" of card "chat") of line -theLines to -1 of field "chat" of card "chat" to theURL
set the textstyle of word wordoffset("@",line -theLines to -1 of field "chat" of card "chat") of line -theLines to -1 of field "chat" of card "chat" to "Link"
end if
else if line -1 of field "chat" of cd "Chat" contains "bug " then
put wordoffset("bug",line -1 of field "Chat" of card "Chat") into w
if word (w+1) of line -1 of field "Chat" of card "Chat" is a number then
put word w to (w+1) of line -1 of field "Chat" of card "Chat" into theURL
set the linktext of word w to (w+1) of line -1 of field "chat" of card "chat" to theURL
set the textstyle of word w to (w+1) of line -1 of field "chat" of card "chat" to "Link"
end if
end if
if the textstyle of char -1 of field "chat" of card "chat" contains "link" then
put " " after line -1 of field "chat" of card "chat"
set the textstyle of char -1 field "chat" of card "chat" to "plain"
end if
if the hilite of button "save to file" of card "settings" = true then
if field "path" of card "settings" <> "" then
put field "path" of card "settings" into thepath
open file thePath for append
write return & line -thelines of field "chat" of card "chat" to file thePath
close file thePath
--put return & line -thelines of field "chat" of card "chat" after url ("file:" & the path of button "save to file" of card "chat")
end if
end if
end savetofile
on handleThisLink theUrl
if the optionKey is down then
saveURL theURL
else if char -4 to -1 of theurl = ".rev" or char -3 to -1 of theUrl = ".mc" then
if the environment is "development" then
put "Revolution" into myApp
else
put "ChatRev" into myApp
end if
answer question "Do you want to open this stack in" && myApp && "or save it to disk?" with "Open" or "Save" or "Cancel"
if it is "Open" then
if char 1 to 4 of theURL is "ftp." then put "ftp://" before theURL
go stack url theurl
else if it is "Save" then
saveURL theURL
end if
else if ("@" is not in theUrl) and (word 1 of theURL is not "bug") then
if (char -4 to -1 of theURL is not ".htm") and (char -5 to -1 of theURL is not ".html") ¬
and ("." is in char -5 to -1 of theURL) and (last char of theURL is not "/") then
answer "Open this file in your browser or save to disk?" with "Open" or "Save"
if it is "Save" then
saveURL theURL
else
if char 1 to 4 of theUrl is "ftp." then put "ftp://" before theUrl
revgoURL theUrl
end if
else
if char 1 to 4 of theURL is "ftp." then put "ftp://" before theURL
revgoURL theURL
end if
else if (theURL contains "@") and ("http://" is not in theURL) and ("ftp://" is not in theURL) and (word 1 of theURL is not "bug") then
put offset("@",theURL) into c
if charToNum(char (c-1) of theURL) > 32 and charToNum(char (c-1) of theURL) < 122 and charToNum(char (c+1) of theURL) > 32 and charToNum(char (c+1) of theURL) < 123 then
if char 1 to 7 of theURL is not "mailto:" then
revGoURL "mailto:" & theURL
else
revGoURL theURL
end if
end if
else if (word 1 of theURL is "bug") and (word 2 of theURL is a number) then
revGoURL ("http://support.runrev.com/bugdatabase/show_bug.cgi?id=" & word 2 of theURL)
else
-- this last option is probably no longer necessary
if char 1 to 4 of theURL is "ftp." then put "ftp://" before theURL
revgoURL theURL
end if
end handleThisLink
on saveURL theURL
if char 1 to 4 of theURL is "ftp." then put "ftp://" before theURL
set the itemDelimiter to "/"
put last item of theURL into myFileName
ask file "Save file as..." with myFileName
if it is not empty then
put it into myNewFile
put the fileType into myOldFileType
set the fileType to "????????"
put url theURL into url ("binfile:" & myNewFile)
set the fileType to myOldFileType
end if
end saveURL
on makeLinks theField
if (" www." is in fld theField) or (" ftp." is in fld theField) or ("http://" is in fld theField) or (" ftp://" is in fld theField) or ("@" is in fld theField) then
repeat with x = 1 to number of words in fld theField
put "www.,ftp.,http://,ftp://,@" into myList
repeat for each item y in myList
if y is in word x of fld theField then
switch y
case "www."
set the linkText of word x of fld theField to ("http://" & word x of fld theField)
set the textStyle of word x of fld theField to "link"
break
case "ftp."
if char 1 to 4 of word x of fld theField is "ftp." then set the linkText of word x of fld theField to ("ftp://" & word x of fld theField)
set the textStyle of word x of fld theField to "link"
break
case "http://"
set the linkText of word x of fld theField to (word x of fld theField)
set the textStyle of word x of fld theField to "link"
break
case "ftp://"
set the linkText of word x of fld theField to (word x of fld theField)
set the textStyle of word x of fld theField to "link"
break
case "@"
put offset("@",word x of fld theField) into c
if not ((char (c-1) of word x of fld theField is in (return & space)) or (char (c+1) of word x of fld theField is in (return & space))) then
if char 1 to 7 of word x of fld theField is not "mailto:" then
set the linkText of word x of fld theField to ("mailto:" & word x of fld theField)
else
set the linkText of word x of fld theField to (word x of fld theField)
end if
set the textStyle of word x of fld theField to "link"
end if
break
end switch
end if
end repeat
end repeat
end if
end makeLinks
function validIP theIP
put false into rslt
set the itemDelimiter to "."
if the number of items of theIP is 4 then
repeat for each item x in theIP
if x is an integer then
put true into rslt
else
put false into rslt
exit repeat
end if
end repeat
end if
return rslt
end validIP
on setAbout
ask "Pease enter a new text about yourself..."
if it is not empty then
lock screen
put "/setAbout" && it into fld "Enter"
send "returnInField" to fld "Enter"
end if
end setAbout
on setEmail
ask "Pease enter your e-mail address..."
if it is not empty then
lock screen
put "/setmail" && it into fld "Enter"
send "returnInField" to fld "Enter"
end if
end setEmail
on setLabel
ask "Pease enter a new label (tooltip text)"
if it is not empty then
lock screen
put "/l" && it into fld "Enter"
send "returnInField" to fld "Enter"
end if
end setLabel
function noPendingTransfers
if ("sendFile" is in the pendingMessages) or ("getFile" is in the pendingMessages) then
return false
end if
return true
end noPendingTransfers
login P on preOpenCard revupdategeometry select text of fld "Name" end preOpenCard on commandKeyDown k if k = "/" then go cd 1 of stack "Help" as modeless else pass commandKeyDown end commandKeyDown # cREVGeneral scriptChecksum ryRQm bookmarks handlerList preOpenCard commandKeyDownscriptSelection char 113 to 112 prevHandler preOpenCard tempScript scripton preOpenCard
revupdategeometry
select text of fld "Name"
end preOpenCard
on commandKeyDown k
if k = "/" then go cd 1 of stack "Help" as modeless
else pass commandKeyDown
end commandKeyDown
cREVGeometryCacheIDs )1093556362001 16331093553957003 16261090155872438 10051093783776002 17681093109324984 15801093555358001 16301101213411519 19941093452874282 15871101213200222 19931093776992003 17591101823891403 20971101823588061 20841101823588773 20881090338436578 10081090416199820 10111090155882974 10061101823590518 20961100988480597 19651093553953002 16251101471904019 20301092836262465 15481093777078001 17621101823588402 20861093783792002 17691101823587751 20821090155867286 10041090155855947 10031100294247139 18921093771355003 17511092394114380 15021093771355004 17521093771355005 17531093771355006 17541093107629144 15781101823903687 20981090416205814 10121101823590309 20951101823590067 20941090155894748 10071101823587613 20811101823587457 2080 cREVGeometrycache order 1093107629144 1090338436578 1090416199820 1101213200222 1092394114380 1093452874282 1090155855947 1090155867286 1090155872438 1093553953002 1093553957003 1093555358001 1093556362001 1093777078001 1100294247139 total 41 , 3 d ! " $ & ( . / 0 1 2 chat P on preOpenCard revupdategeometry set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat" set the icon of btn "Insert Smile" to 1737 select text of fld "Enter" end preOpenCard on setStyle theFlag,theStyle put theStyle into myNewStyle put the selectedChunk into mySelectedChunk put "bold,italic,underline" into myStyleList put the cTextStyle of fld "enter" into myTextStyle put number of chars of fld "Enter" into myOldNrOfChars if theFlag is "remove" then delete item itemoffset(myNewStyle,myTextStyle) of myTextStyle if the optionKey is down then if the short name of the selectedField is "Enter" then put (item itemOffset(theStyle,myStyleList) of ",,") after the selection set the textStyle of char (myOldNrOfChars + 1) to (myOldNrOfChars+4) of fld "Enter" to the cTextStyle of fld "enter" end if end if set the cTextStyle of fld "enter" to myTextStyle else if myNewStyle is not in myTextStyle then if myTextStyle is not empty then put comma after myTextStyle put myNewStyle after myTextStyle set the cTextStyle of fld "enter" to myTextStyle if the optionKey is down then if the short name of the selectedField is "Enter" then put (item itemOffset(theStyle,myStyleList) of ",,") after the selection set the textStyle of char (myOldNrOfChars + 1) to (myOldNrOfChars+3) of fld "Enter" to the cTextStyle of fld "enter" end if end if end if end if if the selection is not empty then set the textStyle of mySelectedChunk to the cTextStyle of fld "Enter" end setStyle on commandKeyDown k if k = "/" then go cd 2 of stack "Help" as modeless else pass commandKeyDown end commandKeyDown on userAction theAction,theMember lock screen switch theAction case "Send Private Message" put "/msg" && theMember & space into field "enter" select after text of fld "Enter" break case "See Profile" put "/about" && theMember & space into field "enter" send "returnInField" to fld "Enter" put empty into fld "Enter" select after text of fld "Enter" break case "Send E-Mail" put "/mail" && theMember & space into field "enter" send "returnInField" to fld "Enter" put empty into fld "Enter" select after text of fld "Enter" break case "Send File" send "sendRequest theMember" to stack "Send File Request" put empty into fld "Enter" break end switch end userAction cLastMessageSentTime 1:09:41 PM cREVGeneral scriptChecksum J80㩙v bookmarks breakPoints handlerList .preOpenCard setStyle commandKeyDown userActionscriptSelection char 184 to 183 prevHandler preOpenCard tempScript scripton preOpenCard
revupdategeometry
set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat"
set the icon of btn "Insert Smile" to 1737
select text of fld "Enter"
end preOpenCard
on setStyle theFlag,theStyle
put theStyle into myNewStyle
put the selectedChunk into mySelectedChunk
put "bold,italic,underline" into myStyleList
put the cTextStyle of fld "enter" into myTextStyle
put number of chars of fld "Enter" into myOldNrOfChars
if theFlag is "remove" then
delete item itemoffset(myNewStyle,myTextStyle) of myTextStyle
if the optionKey is down then
if the short name of the selectedField is "Enter" then
put (item itemOffset(theStyle,myStyleList) of "</b>,</i>,</u>") after the selection
set the textStyle of char (myOldNrOfChars + 1) to (myOldNrOfChars+4) of fld "Enter" to the cTextStyle of fld "enter"
end if
end if
set the cTextStyle of fld "enter" to myTextStyle
else
if myNewStyle is not in myTextStyle then
if myTextStyle is not empty then put comma after myTextStyle
put myNewStyle after myTextStyle
set the cTextStyle of fld "enter" to myTextStyle
if the optionKey is down then
if the short name of the selectedField is "Enter" then
put (item itemOffset(theStyle,myStyleList) of "<b>,<i>,<u>") after the selection
set the textStyle of char (myOldNrOfChars + 1) to (myOldNrOfChars+3) of fld "Enter" to the cTextStyle of fld "enter"
end if
end if
end if
end if
if the selection is not empty then set the textStyle of mySelectedChunk to the cTextStyle of fld "Enter"
end setStyle
on commandKeyDown k
if k = "/" then go cd 2 of stack "Help" as modeless
else pass commandKeyDown
end commandKeyDown
on userAction theAction,theMember
lock screen
switch theAction
case "Send Private Message"
put "/msg" && theMember & space into field "enter"
select after text of fld "Enter"
break
case "See Profile"
put "/about" && theMember & space into field "enter"
send "returnInField" to fld "Enter"
put empty into fld "Enter"
select after text of fld "Enter"
break
case "Send E-Mail"
put "/mail" && theMember & space into field "enter"
send "returnInField" to fld "Enter"
put empty into fld "Enter"
select after text of fld "Enter"
break
case "Send File"
send "sendRequest theMember" to stack "Send File Request"
put empty into fld "Enter"
break
end switch
end userAction
cREVGeometryCacheIDs 1093616321943 16491093701633071 17371090841017477 10201090841017478 10221090841017479 10241093109324984 15801093615625262 16441093616325320 16501101007601334 19701093548210002 16141101527816048 20421093771355003 17511093771355004 17521093771355005 17531093771355006 17541092838076425 15091093107629144 15781092838076426 15111093616302225 16471101309562663 19951100993656228 19671093616319563 16481100916244641 19541101527806306 20411093534411001 16071101476429671 20321092836735950 15491093536877001 16111093702048001 17381100988480597 19651101471904019 2030 cREVGeometrycache total 31order 1093107629144 1090841017477 1090841017478 1090841017479 1093616302225 1093616319563 1093616321943 1093616325320 1093702048001 1101007601334 1092836735950 1093534411001 1093536877001 1100993656228 1101309562663 , N l o p q r register Pon transferLoginInfo put fld "Nickname" into fld "Name" of cd 1 put fld "Password" into fld "Pass" of cd 1 end transferLoginInfo on enterInField set the hilite of btn "OK" to true wait 6 set the hilite of btn "OK" to false send "mouseUp" to btn "OK" end enterInField on returnInField beep end returnInField on commandKeyDown k if k = "/" then go cd 3 of stack "Help" as modeless else pass commandKeyDown end commandKeyDown on preOpenCard select text of fld "Nickname" end preOpenCard cREVGeneral scriptChecksum BD@27PY bookmarks handlerList GtransferLoginInfo enterInField returnInField commandKeyDown preOpenCard tempScript prevHandler transferLoginInfoscriptSelection char 462 to 492scripton transferLoginInfo
put fld "Nickname" into fld "Name" of cd 1
put fld "Password" into fld "Pass" of cd 1
end transferLoginInfo
on enterInField
set the hilite of btn "OK" to true
wait 6
set the hilite of btn "OK" to false
send "mouseUp" to btn "OK"
end enterInField
on returnInField
beep
end returnInField
on commandKeyDown k
if k = "/" then go cd 3 of stack "Help" as modeless
else pass commandKeyDown
end commandKeyDown
on preOpenCard
select text of fld "Nickname"
end preOpenCard
cREVGeometryCacheIDs 1093002084643 15561093002084644 15571093002084645 15581093002084646 15591093002084647 15601093183364779 15821093002084648 15611093183480341 15851093002084649 15621093182675426 15811093002084650 15631093002084651 15641093684808002 17191093771355003 17511093771355004 17521093771355005 17531093771355006 17541093183547681 15861093684888002 17201093183463119 15831093002475596 15661093002475561 15651093183463832 15841100988480597 19651101471904019 20301093002084642 1554 cREVGeometrycache order ~1093002084643 1093002084644 1093002084642 1093183547681 1093182675426 1093002084650 1093002475561 1093002084648 1093002084645 total 26 - 4 settings P on openCard select text of fld "Autoreply Message" pass openCard end openCard on commandKeyDown k if k = "/" then go cd 4 of stack "Help" as modeless else pass commandKeyDown end commandKeyDown cREVGeneral scriptChecksum {5zKD bookmarks handlerList openCard commandKeyDown tempScript prevHandler openCardscriptSelection char 130 to 129scripton openCard
select text of fld "Autoreply Message"
pass openCard
end openCard
on commandKeyDown k
if k = "/" then go cd 4 of stack "Help" as modeless
else pass commandKeyDown
end commandKeyDown
cREVGeometryCacheIDs ,1100305989476 19311093109324984 15801093551504002 16221093551864002 16241093962932002 18341093548812068 16171093534635001 16091093655878002 16781094415369771 18821100988480597 19651101471904019 20301093526660782 14991093641933671 16531093551626002 16231093529734087 15511093529734088 15521093771355003 17511093771355004 17521093526212600 16001093538856049 16131093526212590 15901093526212589 15891093771355005 17531093526212601 16011093526212591 15911093613006001 16421093771355006 17541093526212602 16021093107629144 15781093950334002 18071093526212592 15921093526212593 15931093526212594 15941093526212595 15951093526212596 15961093526212597 15971093526212598 15981093526212599 15991093551462002 16211093555173002 16281093526808404 16061093946759002 18051093555009002 16271093526766189 1605 cREVGeometrycache order 1093107629144 1093538856049 1093526212597 1093526212600 1093526212602 1093526212595 1093526212599 1093526212601 1093526766189 1093534635001 1093613006001 1093641933671 1093655878002 1093962932002 1094415369771 1100305989476 1093548812068 1093526660782total 44 , W X [ \ * Z h Forum P yon commandKeyDown k if k = "/" then go cd 5 of stack "Help" as modeless else pass commandKeyDown end commandKeyDown cREVGeneral scriptChecksum '}.gUl bookmarks handlerList commandKeyDown tempScript prevHandler commandKeyDownscriptSelection char 32 to 31scripton commandKeyDown k
if k = "/" then go cd 5 of stack "Help" as modeless
else pass commandKeyDown
end commandKeyDown
cREVGeometryCacheIDs 1100365112724 19451093109324984 15801100301722419 19161100301892755 19181093771355003 17511092394114380 19411093771355004 17521093771355005 17531100301835800 19171100345063853 19381093771355006 17541093107629144 15781100301657718 18981100301657720 19021100301657719 19001100302355669 19281100301657721 19031100301657725 19071100301657726 19091100301657727 19101100301657728 19111100301657729 19131100301657730 19141100301657731 19151100302354916 19271100988480597 19651100302314563 19241100301929561 19201100302314564 19251101471904019 2030 cREVGeometrycache total 30order 1100365112724 1093107629144 1100301657728 1100301657719 1100301657725 1100301657729 1100301657730 1100301657731 1100301657718 1100301657720 1100301657721 1100301657726 1100301657727 1092394114380 , | } ~ log )` @ cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance false Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -53Master,expectedRect 120,227,420,404Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -114Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1090338436578 ` 'A ip HHHH @ cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -145Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 344,559,577,578Master,scalebottomDistance Master,movevDistance -38Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1090416199820 ? bC & Don mouseUp go to card 1 of stack "HELP" as modeless end mouseUp Y ; , , 1 ( cREVGeometry Master,movehDistance -59 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 318,92,400,115Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.057813Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum *|FTu*$# bookmarks revUniqueID 1092394114380 handlerList mouseUpscriptSelection char 55 to 54 prevHandler mouseUp tempScript script ~on mouseUp
go to card 1 of stack "HELP" as modeless
end mouseUp
Chat )p ?on linkClicked theUrl handleThisLink theUrl end linkClicked :e cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 17,65,449,440Master,scalebottomDistance -64Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -192Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum o]>h#l breakPoints handlerList linkClickedscriptSelection char 62 to 61 revUniqueID 1090841017477 bookmarks tempScript prevHandler linkClickedscript won linkClicked theUrl
handleThisLink theUrl
end linkClicked
` ; T + a members )z --on mouseUp -- if the mouseLoc is within the rect of me then -- set the itemDelimiter to tab -- if the label of button "kind" of card "chat" = "private message" then -- put "/msg" && item 1 of the selectedtext of me & " " into field "enter" -- else if label of button "kind" of card "chat" = "about" then -- put "/about" && item 1 of the selectedtext of me & " " into field "enter" -- else if label of button "kind" of card "chat" = "e-mail" then -- put "/mail" && item 1 of the selectedtext of me & " " into field "enter" -- end if -- select after field "enter" -- end if --end mouseUp on mouseWithin set the itemDelimiter to tab set the toolTip of me to item 2 of the mouseText end mouseWithin on mouseDown lock screen wait 200 millisec with messages if the mouse is down then popup btn "Popup Test" --put the result else focus me pass mouseDown end if end mouseDown @ short visit cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance -102 Master,scaleRightscaleBottom trueMaster true Master,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -64Master,expectedRect 457,193,621,433Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.03125 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute true Master,moveH true cREVTable formattedview currentxmouseloc 182currenthscroll 0currentymouseloc 30scrollbarwidth 16 cellyspacing 20rightfieldloc 691 cellxspacing 50 leftfieldloc 526 topfieldloc 195 currentview currentvscroll 0 viewablerows 13viewablecolumns 4numbertabstops 1 cellformat true celledit falsebottomfieldloc 443 cREVGeneral scriptChecksum xIQI$MBXtable false handlerList mouseWithin mouseDownscriptSelection char 1 to 623 bookmarks revUniqueID 1090841017478 prevHandler mouseUp tempScript script--on mouseUp
-- if the mouseLoc is within the rect of me then
-- set the itemDelimiter to tab
-- if the label of button "kind" of card "chat" = "private message" then
-- put "/msg" && item 1 of the selectedtext of me & " " into field "enter"
-- else if label of button "kind" of card "chat" = "about" then
-- put "/about" && item 1 of the selectedtext of me & " " into field "enter"
-- else if label of button "kind" of card "chat" = "e-mail" then
-- put "/mail" && item 1 of the selectedtext of me & " " into field "enter"
-- end if
-- select after field "enter"
-- end if
--end mouseUp
on mouseWithin
set the itemDelimiter to tab
set the toolTip of me to item 2 of the mouseText
end mouseWithin
on mouseDown
lock screen
wait 200 millisec with messages
if the mouse is down then
popup btn "Popup Test"
--put the result
else
focus me
pass mouseDown
end if
end mouseDown
` Z enter )p 'on returnInField recordTime set the label of btn "Status" to "Available" if the number of words of me = 0 then exit returninfield else if the altKey is down then pass returninfield else chatOut end if end returnInField -- handler by Xavier -- inserted here and slightly adjusted by Mark S function makeHtmlMsg theMsg if not the hilite of btn "Receive HTML" of cd 4 is true then return theMsg else if "<" is not in theMsg then put the htmltext of fld "Enter" into theMsg if "" is in char 1 to 3 of theMsg then delete char 1 to 3 of theMsg delete char -4 to -1 of theMsg end if end if return theMsg end makeHtmlMsg on chatOut global gChatRevShortName lock screen put the scroll of fld "chat" of cd "chat" into oldScroll if char 1 of field "enter" of card "chat" = "/" then put char 2 to -1 of word 1 of field "enter" of card "chat" into a if a = "msg" or a = "message" or a = "m" then sendPrivMessageMS else if a = "me" then write "me" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "label" or a = "l" or a = "Mouse" or a = "Mo" then write "setMouse" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "about" or a = "a" then write "getAbout" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "mail" or a = "ma" then write "getMail" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "setmail" or a = "sm" then write "setMail" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "setabout" or a = "sa" then write "setAbout" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1 else if a = "disc" or a = " disconnect" then send "disconnect" to button "connect" of card 1 else if a = "help" or a = "h" or a = "hlp" then put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x put return & the help of this stack after field "chat" if x = true then set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat" else set the scroll of field "chat" of card "chat" to oldscroll end if send "savetofile" && the number of lines in the help of this stack to button "connect" of card 1 else if a = "clear" then put empty into field "chat" of card "chat" else if a = "put" or a = "p" then try put value(word 2 to -1 of field "enter" of card "chat") into rslt catch rslt put "Error, syntax cannot be executed" into rslt end try if length(rslt) > 255 then put "Error, result is longer than 255 characters." into rslt write "chat" & return & "
" & char 2 to -1 of field "enter" of card "chat" & "
" & return to socket field "IP" of card 1 if rslt contains return then write "chat" & return & "" & "Error, result contains return." & "
" & return to socket field "IP" of card 1 else write "chat" & return & "" & rslt & "
" & return to socket field "IP" of card 1 end if end if else put field "enter" of card "chat" of stack gChatRevShortName into myTempVar put the htmltext of field "enter" of card "chat" into a replace return with " " in a repeat forever if word -1 of a = "" then put "" into word -1 of a delete char -1 of a else exit repeat end if end repeat write "chat" & return & a & return to socket field "IP" of card 1 end if if the result <> "" and the result is not a number then send error && ("chatout" && the result) to button "connect" of card 1 end if put empty into field "enter" of card "chat" end chatOut on sendPrivMessageMS -- put "Mark" into myUser -- put "/msg" && myUser && "hello world test" into fld "Enter" put word 2 of fld "Enter" into myUser put return & space after fld "Chat" delete char ((number of chars of word 1 to -1 of fld "Enter") + 1) to (number of chars of fld "Enter") of fld "Enter" put (word 3 to -1 of the htmlText of fld "Enter") into myMsgToBeSent put removeFinalEmptyLines(myMsgToBeSent) into myMsgToBeSent replace return with space in myMsgToBeSent put myMsgTobeSent into myNrOfLines replace "" with return in myNrOfLines put number of lines of myNrOfLines into myNrOfLines replace return with space in myMsgToBeSent put replaceSmileys(myMsgTobeSent) into myTempVar set the itemDelimiter to numToChar(11) put item 1 of myTempVar into myMsgForDisplay put item 2 of myTempVar into mySmileysFound if mySmileysFound is true then add 1 to myNrOfLines put "msg to" && (word 2 of fld "Enter") & colon & space & myMsgForDisplay into myMsgForDisplay set the htmlText of last line of fld "Chat" to myMsgForDisplay set the itemDelimiter to colon set the textColor of item 1 of line -myNrOfLines of field "chat" of card "chat" to the backgroundcolor of graphic "privmessage" of card "settings" -- put "message" & return & myUser & return & "" & (myMsgToBeSent) & "
" & return into theMsg put "message" & return & myUser & return & "" & ("" & myMsgToBeSent) & "" & return into theMsg -- put theMsg write theMsg to socket (field "IP" of card 1) set the scroll of fld "Chat" to the formattedHeight of fld "Chat" saveToFile myNrOfLines end sendPrivMessageMS on tabKey repeat for each line theLine in field "members" put word 1 of theLine & cr after theMembers end repeat put last word of field "enter" into thePart put lineoffset(thePart, theMembers) into theResult if theResult is not "0" then put line theResult of theMembers & space into word -1 of field "enter" select after char -1 of field "enter" else pass tabkey end if end tabKey -- added by Mark S on enterInField if the hilite of btn "Press enter for multiple lines" of cd 4 is true then pass enterInField else returnInField end if end enterInField on recordTime set the cLastMessageSentTime of this cd to the long time end recordTime -- I'll remove this bug later (Mark S) -- it is time to sleep now on keyDown k put the selectedChunk into myOldSelectedText if number of chars of value(myOldSelectedText) > 0 then put empty into the selection try put k after the selection catch nothing select after fld "Enter" put k after the selection end try set the textStyle of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to the cTextStyle of me if the myRandomColour of me is true then put -20 into a --brightness of the colour put 55 into b -- contrast put 2-random(3) into c -- switch contrast put random(160+c*b)+a & comma & random(160-b*c)+a & comma & random(140)+a into myTextColour set the textColor of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to (myTextColour) else put the backgroundColor of graphic "Selected Colour" of cd 1 of stack "Colour Palette" into myTextColour if myTextColour is 0,0,0 then put empty into myTextColour set the textColor of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to (myTextColour) end if keepSmileysBlack set the hScroll of me to the formattedWidth of me end keyDown on keepSmileysBlack put empty into smiley if ":" is in me then implementedSmileys smiley repeat with x = 1 to 12 if smiley[x] is in me then repeat with y = 1 to number of words of me if word y of me contains smiley[x] then put offset(smiley[x],word y of me) into c set the textColor of char c to c+3 of word y of me to empty end if end repeat end if end repeat end if end keepSmileysBlack cTextStyle myRandomColour false Press return to send chat cREVGeometry Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottom Master,scaleBottomscaleBottom trueMaster,movehDistance falseMaster trueMaster,scaletopObjectRef 1090841017477 Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute trueMaster,scaleBottom false Master,moveV trueMaster,scaletopObjectSide bottomMaster,expectedRect 16,447,449,469Master,scalebottomDistance -0.064583Master,movevDistance -42Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -191Master,scaletopAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaletop falseMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance 0.022917 cREVGeneral scriptChecksum !H CeQ breakPoints handlerList kreturnInField makeHtmlMsg chatOut sendPrivMessageMS tabKey enterInField recordTime keyDown keepSmileysBlackscriptSelection char 7031 to 7030 bookmarks revUniqueID 1090841017479 prevHandler keepSmileysBlack tempScript script RP
on returnInField
recordTime
set the label of btn "Status" to "Available"
if the number of words of me = 0 then
exit returninfield
else if the altKey is down then
pass returninfield
else
chatOut
end if
end returnInField
-- handler by Xavier
-- inserted here and slightly adjusted by Mark S
function makeHtmlMsg theMsg
if not the hilite of btn "Receive HTML" of cd 4 is true then
return theMsg
else if "<" is not in theMsg then
put the htmltext of fld "Enter" into theMsg
if "<P>" is in char 1 to 3 of theMsg then
delete char 1 to 3 of theMsg
delete char -4 to -1 of theMsg
end if
end if
return theMsg
end makeHtmlMsg
on chatOut
global gChatRevShortName
lock screen
put the scroll of fld "chat" of cd "chat" into oldScroll
if char 1 of field "enter" of card "chat" = "/" then
put char 2 to -1 of word 1 of field "enter" of card "chat" into a
if a = "msg" or a = "message" or a = "m" then
sendPrivMessageMS
else if a = "me" then
write "me" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "label" or a = "l" or a = "Mouse" or a = "Mo" then
write "setMouse" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "about" or a = "a" then
write "getAbout" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "mail" or a = "ma" then
write "getMail" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "setmail" or a = "sm" then
write "setMail" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "setabout" or a = "sa" then
write "setAbout" & return & word 2 to -1 of line one of field "enter" of card "chat" & return to socket field "IP" of card 1
else if a = "disc" or a = " disconnect" then
send "disconnect" to button "connect" of card 1
else if a = "help" or a = "h" or a = "hlp" then
put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x
put return & the help of this stack after field "chat"
if x = true then
set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat"
else
set the scroll of field "chat" of card "chat" to oldscroll
end if
send "savetofile" && the number of lines in the help of this stack to button "connect" of card 1
else if a = "clear" then
put empty into field "chat" of card "chat"
else if a = "put" or a = "p" then
try
put value(word 2 to -1 of field "enter" of card "chat") into rslt
catch rslt
put "Error, syntax cannot be executed" into rslt
end try
if length(rslt) > 255 then put "Error, result is longer than 255 characters." into rslt
write "chat" & return & "<p>" & char 2 to -1 of field "enter" of card "chat" & "</p>" & return to socket field "IP" of card 1
if rslt contains return then
write "chat" & return & "<p>" & "Error, result contains return." & "</p>" & return to socket field "IP" of card 1
else
write "chat" & return & "<p>" & rslt & "</p>" & return to socket field "IP" of card 1
end if
end if
else
put field "enter" of card "chat" of stack gChatRevShortName into myTempVar
put the htmltext of field "enter" of card "chat" into a
replace return with " " in a
repeat forever
if word -1 of a = "<p></p>" then
put "" into word -1 of a
delete char -1 of a
else
exit repeat
end if
end repeat
write "chat" & return & a & return to socket field "IP" of card 1
end if
if the result <> "" and the result is not a number then
send error && ("chatout" && the result) to button "connect" of card 1
end if
put empty into field "enter" of card "chat"
end chatOut
on sendPrivMessageMS
-- put "Mark" into myUser
-- put "/msg" && myUser && "hello world test" into fld "Enter"
put word 2 of fld "Enter" into myUser
put return & space after fld "Chat"
delete char ((number of chars of word 1 to -1 of fld "Enter") + 1) to (number of chars of fld "Enter") of fld "Enter"
put (word 3 to -1 of the htmlText of fld "Enter") into myMsgToBeSent
put removeFinalEmptyLines(myMsgToBeSent) into myMsgToBeSent
replace return with space in myMsgToBeSent
put myMsgTobeSent into myNrOfLines
replace "</p>" with return in myNrOfLines
put number of lines of myNrOfLines into myNrOfLines
replace return with space in myMsgToBeSent
put replaceSmileys(myMsgTobeSent) into myTempVar
set the itemDelimiter to numToChar(11)
put item 1 of myTempVar into myMsgForDisplay
put item 2 of myTempVar into mySmileysFound
if mySmileysFound is true then add 1 to myNrOfLines
put "msg to" && (word 2 of fld "Enter") & colon & space & myMsgForDisplay into myMsgForDisplay
set the htmlText of last line of fld "Chat" to myMsgForDisplay
set the itemDelimiter to colon
set the textColor of item 1 of line -myNrOfLines of field "chat" of card "chat" to the backgroundcolor of graphic "privmessage" of card "settings"
-- put "message" & return & myUser & return & "<p>" & (myMsgToBeSent) & "</p>" & return into theMsg
put "message" & return & myUser & return & "" & ("<p>" & myMsgToBeSent) & "" & return into theMsg
-- put theMsg
write theMsg to socket (field "IP" of card 1)
set the scroll of fld "Chat" to the formattedHeight of fld "Chat"
saveToFile myNrOfLines
end sendPrivMessageMS
on tabKey
repeat for each line theLine in field "members"
put word 1 of theLine & cr after theMembers
end repeat
put last word of field "enter" into thePart
put lineoffset(thePart, theMembers) into theResult
if theResult is not "0" then
put line theResult of theMembers & space into word -1 of field "enter"
select after char -1 of field "enter"
else
pass tabkey
end if
end tabKey
-- added by Mark S
on enterInField
if the hilite of btn "Press enter for multiple lines" of cd 4 is true then
pass enterInField
else
returnInField
end if
end enterInField
on recordTime
set the cLastMessageSentTime of this cd to the long time
end recordTime
-- I'll remove this bug later (Mark S)
-- it is time to sleep now
on keyDown k
put the selectedChunk into myOldSelectedText
if number of chars of value(myOldSelectedText) > 0 then put empty into the selection
try
put k after the selection
catch nothing
select after fld "Enter"
put k after the selection
end try
set the textStyle of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to the cTextStyle of me
if the myRandomColour of me is true then
put -20 into a --brightness of the colour
put 55 into b -- contrast
put 2-random(3) into c -- switch contrast
put random(160+c*b)+a & comma & random(160-b*c)+a & comma & random(140)+a into myTextColour
set the textColor of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to (myTextColour)
else
put the backgroundColor of graphic "Selected Colour" of cd 1 of stack "Colour Palette" into myTextColour
if myTextColour is 0,0,0 then put empty into myTextColour
set the textColor of char (word 2 of myOldSelectedText) to (word 2 of the selectedChunk - 1) of me to (myTextColour)
end if
keepSmileysBlack
set the hScroll of me to the formattedWidth of me
end keyDown
on keepSmileysBlack
put empty into smiley
if ":" is in me then
implementedSmileys smiley
repeat with x = 1 to 12
if smiley[x] is in me then
repeat with y = 1 to number of words of me
if word y of me contains smiley[x] then
put offset(smiley[x],word y of me) into c
set the textColor of char c to c+3 of word y of me to empty
end if
end repeat
end if
end repeat
end if
end keepSmileysBlack
Field 2 ) cREVGeneral revUniqueID 1092836262465 Connection log delimiter CF cREVGeometry Master,expectedRect -1,1,3,441Master,scalebottomDistance 474Master,movevDistance false Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scalerightDistance Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,cardRanking 1Master,scaleBottom trueMaster,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1092836735950 message sound ` & p cREVGeneral revUniqueID 1092838076425 login sound ` $ p cREVGeneral revUniqueID 1092838076426 Cancel Ex (on mouseUp go to card 1 end mouseUp R cREVGeometry Master,moveVObjectSide bottom Master,scaleBottomObjectSide Bottom Master,scaleBottomscaleBottom trueMaster,movehDistance -166 Master,scaleRightscaleBottom trueMaster trueMaster,moveVObjectRef card Master,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute trueMaster,scaleBottomAbsolute false Master,moveV trueMaster,scaleBottom falseMaster,expectedRect 229,364,311,387Master,scalebottomDistance -0.027083Master,movevDistance -25Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.195312Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,moveHAbsolute trueMaster,scaleleftDistance Master,scaletopDistance Master,moveH true cREVGeneral scriptChecksum H*` revUniqueID 1093002084643 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 27 to 26script ;on mouseUp
go to card 1
end mouseUp
OK mx local nick, pass on mouseUp put the label of btn "IP List" of cd 1 & colon & fld "Port" of cd 1 into field "IP" of cd 1 open socket to (field "ip" of card 1) with message connected If the result is not empty then error "register:" && the Result end if end mouseUp on connected theIP put field "nickname" of card "register" into nick put field "password" of card "register" into pass if pass contains "," or nick contains "," then answer error "Sorry, commas (,) are not allowed in the password or nickname, please try again." else if nick = "" then answer error "Your nick cannot be empty!" else if field "about" of card "register" contains return then answer error "Sorry, but there are no returns allowed in any of the fields, specifically the about field." else write "register" & return & nick, pass, "deprecated" & return to socket theIP with message register if the result is not empty then error "register:" && the Result end if end if end if end if end connected on register theIP read from socket theIP until return with message registered if the result <> "" then error "register:" && the result end if end register on registered theIP theMessage if char 1 to -2 of theMessage = "registered" then write "setMouse" & return & field "mouseover" of card "register" & return to socket theIP write "setMail" & return & field "e-mail" of card "register" & return to socket theIP put field "about" of card "register" into about replace return with "<&%&>" in about write "setAbout" & return & about & return to socket theIP write "disconnect" & return to socket theIP answer information "I am pleased to announce: You are registered and might login now." put nick into field "name" of card 1 put pass into field "pass" of card 1 else if char 1 to -2 of theMessage = "taken" then answer error "That Nick is already taken, I am sorry." close socket theIP else if char 1 to -2 of theMessage = "empty nick" then answer error "You must enter a nick." close socket theIP end if transferLoginInfo go to card 1 end registered on error themessage close socket field "IP" of card 1 send mouseUp to button "cancel" of card "register" answer error "an error occured while connecting to the server" put "error:" & themessage & return before field "log" of card 1 end error F R development false Okay cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -62Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -25Master,scalebottomDistance Master,expectedRect 324,364,406,387Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum m 6$l U revUniqueID 1093002084644 bookmarks handlerList +mouseUp connected register registered error tempScript prevHandler connectedscriptSelection char 18 to 17scriptlocal nick, pass
on mouseUp
put the label of btn "IP List" of cd 1 & colon & fld "Port" of cd 1 into field "IP" of cd 1
open socket to (field "ip" of card 1) with message connected
If the result is not empty then
error "register:" && the Result
end if
end mouseUp
on connected theIP
put field "nickname" of card "register" into nick
put field "password" of card "register" into pass
if pass contains "," or nick contains "," then
answer error "Sorry, commas (,) are not allowed in the password or nickname, please try again."
else
if nick = "" then
answer error "Your nick cannot be empty!"
else
if field "about" of card "register" contains return then
answer error "Sorry, but there are no returns allowed in any of the fields, specifically the about field."
else
write "register" & return & nick, pass, "deprecated" & return to socket theIP with message register
if the result is not empty then
error "register:" && the Result
end if
end if
end if
end if
end connected
on register theIP
read from socket theIP until return with message registered
if the result <> "" then
error "register:" && the result
end if
end register
on registered theIP theMessage
if char 1 to -2 of theMessage = "registered" then
write "setMouse" & return & field "mouseover" of card "register" & return to socket theIP
write "setMail" & return & field "e-mail" of card "register" & return to socket theIP
put field "about" of card "register" into about
replace return with "<&%&>" in about
write "setAbout" & return & about & return to socket theIP
write "disconnect" & return to socket theIP
answer information "I am pleased to announce: You are registered and might login now."
put nick into field "name" of card 1
put pass into field "pass" of card 1
else if char 1 to -2 of theMessage = "taken" then
answer error "That Nick is already taken, I am sorry."
close socket theIP
else if char 1 to -2 of theMessage = "empty nick" then
answer error "You must enter a nick."
close socket theIP
end if
transferLoginInfo
go to card 1
end registered
on error themessage
close socket field "IP" of card 1
send mouseUp to button "cancel" of card "register"
answer error "an error occured while connecting to the server"
put "error:" & themessage & return before field "log" of card 1
end error
- Help bC Don mouseUp go to card 3 of stack "help" as modeless end mouseUp * * 1 ( cREVGeometry Master,movevDistance -27Master,scalebottomDistance Master,expectedRect 81,363,163,386Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum J[z|q/`n bookmarks revUniqueID 1093182675426 handlerList mouseUpscriptSelection char 55 to 54 prevHandler mouseUp tempScript script aon mouseUp
go to card 3 of stack "help" as modeless
end mouseUp
3 ! bC & Don mouseUp go to card 4 of stack "HELP" as modeless end mouseUp [ p + * $ & cREVGeometry Master,movehDistance -58 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 318,92,400,115Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.05625 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,moveHAbsolute trueMaster,scaletopDistance Master,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum W*n0!| revUniqueID 1093452874282 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 55 to 54script ~on mouseUp
go to card 4 of stack "HELP" as modeless
end mouseUp
message sound !` 8 cREVGeneral revUniqueID 1093529734087 login sound !` 8 cREVGeneral revUniqueID 1093529734088 N Commands ,i 5 q Commands cREVGeneral revUniqueID 1093548210002 bookmarks handlerList tempScript prevHandler script G Clear Chat bC 4on mouseUp put empty into fld "Chat" end mouseUp p * * Clear the chat field . / cREVGeometry Master,movehDistance -151 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 456,34,513,56Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.203125 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,moveHAbsolute trueMaster,scaletopDistance Master,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum Pihxoڪc |C2 bookmarks revUniqueID 1093534411001 handlerList mouseUpscriptSelection char 39 to 38 prevHandler mouseUp tempScript scripton mouseUp
put empty into fld "Chat"
end mouseUp
K Status } on menuPick w switch w case "Available" if the cPrevLabel of me is "Disconnect" then set the label of btn "Connect" of cd 1 to "Disconnect" send "startconnection" to btn "Connect" of cd 1 end if set the cLastMessageSentTime of cd 2 to the long time break case "Disconnect" set the label of btn "Connect" of cd 1 to "Connect" send "disconnect" to btn "Connect" of cd 1 put empty into fld "Members" of cd 2 break end switch set the cPrevLabel of me to the label of me end menuPick I cPrevLabel Disconnect Set your status Disconnect Available Away Disconnect cREVGeometry Master,expectedRect 343,34,454,56Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -103Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum /j*jBTчqXP breakPoints handlerList menuPickscriptSelection char 520 to 519 revUniqueID 1093536877001 bookmarks tempScript prevHandler menuPickscripton menuPick w
switch w
case "Available"
if the cPrevLabel of me is "Disconnect" then
set the label of btn "Connect" of cd 1 to "Disconnect"
send "startconnection" to btn "Connect" of cd 1
end if
set the cLastMessageSentTime of cd 2 to the long time
break
case "Disconnect"
set the label of btn "Connect" of cd 1 to "Connect"
send "disconnect" to btn "Connect" of cd 1
put empty into fld "Members" of cd 2
break
end switch
set the cPrevLabel of me to the label of me
end menuPick
? bC & Aon mouseUp go card 2 of stack "help" as modeless end mouseUp 4 n , . Get help 1 ( cREVGeometry Master,movehDistance -53 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 318,92,400,115Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.048438Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum GEKjJD} bookmarks revUniqueID 1100993656228 handlerList mouseUpscriptSelection char 64 to 63 prevHandler mouseUp tempScript scripton mouseUp
go card 2 of stack "help" as modeless
end mouseUp
File Request b & on mouseUp viewRequest end mouseUp on storeRequest theRemoteUser,myFilePath,myFileDescription if last char of myFileDescription is not in ".!?" then put "." after myFileDescription put the customProperties of me into myReqs put the number of lines of myReqs[line 1 of the keys of myReqs] into myNrOfReqs add 1 to myNrOfReqs put theRemoteUser into line myNrOfReqs of myReqs[kRemoteUser] put myFilePath into line myNrOfReqs of myReqs[kFilePath] put myFileDescription into line myNrOfReqs of myReqs[kFileDescription] set the customProperties of me to myReqs enable me end storeRequest on viewRequest global gChatRevShortName if noPendingTransfers() then disable me put the customProperties of me into myReqs put line 1 of myReqs[kRemoteUser] into myRemoteUser put line 1 of myReqs[kFilePath] into myFilePath put line 1 of myReqs[kFileDescription] into myFileDescription if myRemoteUser is not empty and myFilePath is not empty then beep set the itemDel to "/" put the last item of myFilePath into myFilename -- still to add: a way to include a custom message to explain why the file is not accepted answer warning "User" && myRemoteUser && "wants to send you a file:" && myFileDescription & return & "The file name is" && myFilename & "." & return & "Would you like to accept it?" with "Accept" or "Decline" if it is "Accept" then put "fileAccept" & return & myRemoteUser & return & myFilePath & return & "Accept" & return into myMsg write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName) send "readyToReceiveMsg" to stack "Send File Request" else put "I am currently unable to accept your file request. Please, try again, later." into myExcuse put "fileAccept" & cr & myRemoteUser & return & myFilePath & cr & myExcuse & return into myMsg write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName) end if else beep answer "An error occurred while processing an incoming file transfer." with "Cancel" end if delete line 1 of myReqs[kRemoteUser] delete line 1 of myReqs[kFilePath] delete line 1 of myReqs[kFileDescription] set the customProperties of me to myReqs put true into myProceedFlag repeat with x = 1 to 3 if the number of lines of myReqs[line x of the keys of myReqs] is 0 then set the customProperties of me to empty put false into myProceedFlag exit repeat end if end repeat if myProceedFlag then enable me end if else beep answer "File transfers are in progress. Please try again, later." with "Cancel" end if end viewRequest p + + View file requests " ! cREVGeometry Master,movehDistance -102 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 318,92,400,115Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.125 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,moveHAbsolute trueMaster,scaletopDistance Master,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum ˰4B( breakPoints handlerList mouseUp storeRequest viewRequestscriptSelection char 98 to 97 revUniqueID 1101309562663 bookmarks tempScript prevHandler viewRequestscript 0on mouseUp
viewRequest
end mouseUp
on storeRequest theRemoteUser,myFilePath,myFileDescription
if last char of myFileDescription is not in ".!?" then put "." after myFileDescription
put the customProperties of me into myReqs
put the number of lines of myReqs[line 1 of the keys of myReqs] into myNrOfReqs
add 1 to myNrOfReqs
put theRemoteUser into line myNrOfReqs of myReqs[kRemoteUser]
put myFilePath into line myNrOfReqs of myReqs[kFilePath]
put myFileDescription into line myNrOfReqs of myReqs[kFileDescription]
set the customProperties of me to myReqs
enable me
end storeRequest
on viewRequest
global gChatRevShortName
if noPendingTransfers() then
disable me
put the customProperties of me into myReqs
put line 1 of myReqs[kRemoteUser] into myRemoteUser
put line 1 of myReqs[kFilePath] into myFilePath
put line 1 of myReqs[kFileDescription] into myFileDescription
if myRemoteUser is not empty and myFilePath is not empty then
beep
set the itemDel to "/"
put the last item of myFilePath into myFilename
-- still to add: a way to include a custom message to explain why the file is not accepted
answer warning "User" && myRemoteUser && "wants to send you a file:" && myFileDescription & return & "The file name is" && myFilename & "." & return & "Would you like to accept it?" with "Accept" or "Decline"
if it is "Accept" then
put "fileAccept" & return & myRemoteUser & return & myFilePath & return & "Accept" & return into myMsg
write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName)
send "readyToReceiveMsg" to stack "Send File Request"
else
put "I am currently unable to accept your file request. Please, try again, later." into myExcuse
put "fileAccept" & cr & myRemoteUser & return & myFilePath & cr & myExcuse & return into myMsg
write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName)
end if
else
beep
answer "An error occurred while processing an incoming file transfer." with "Cancel"
end if
delete line 1 of myReqs[kRemoteUser]
delete line 1 of myReqs[kFilePath]
delete line 1 of myReqs[kFileDescription]
set the customProperties of me to myReqs
put true into myProceedFlag
repeat with x = 1 to 3
if the number of lines of myReqs[line x of the keys of myReqs] is 0 then
set the customProperties of me to empty
put false into myProceedFlag
exit repeat
end if
end repeat
if myProceedFlag then
enable me
end if
else
beep
answer "File transfers are in progress. Please try again, later." with "Cancel"
end if
end viewRequest
W $i p K Idle Time Settings cREVGeneral revUniqueID 1093551626002 M Autoreply Message )` cREVGeometry Master,expectedRect 154,336,455,357Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -32Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1093538856049 bookmarks handlerList tempScript prevHandler script 4 &I am currently away from my computer. Q Idle Time -` Y $ cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -0.432812 Master,scaleRightscaleBottom trueMaster trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute false Master,moveV falseMaster,movevDistance -0.154489Master,scalebottomDistance Master,expectedRect 356,416,392,437Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.404687 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 0Master,scaletopDistance Master,scaleleftDistance Master,moveHAbsolute false Master,moveH false cREVGeneral revUniqueID 1093548812068 4 20 U Label Field ! r cREVGeneral revUniqueID 1093551462002 Autoreply message: V Label Field #6 cREVGeneral revUniqueID 1093551504002if the text of me = "" then
set the filename of player "login sound" of card "chat" to ""
set the filename of player "login sound" to ""
end if
end closeField
4 > Field 2 ! l cREVGeneral revUniqueID 1093526212598 Login/out sound @ login sound ewon mouseUp answer file "choose a sound file please:" if the result = "" then put it into field "login sound" set the filename of player "login sound" of card "chat" to it set the filename of player "login sound" to it end if end mouseUp F ... cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 372,203,388,223Master,movehDistance -97Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum @}rn"ﮕ$ revUniqueID 1093526212600 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 229 to 228script son mouseUp
answer file "choose a sound file please:"
if the result = "" then
put it into field "login sound"
set the filename of player "login sound" of card "chat" to it
set the filename of player "login sound" to it
end if
end mouseUp
B Play login ew on mouseUp if field "login sound" = "" then else if field "login sound" <> "beep" then set the currentTime of player "login sound" to 1 start player "login sound" else beep end if end mouseUp f . Play cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 390,203,420,223Master,movehDistance -56Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum -NSn] > bookmarks revUniqueID 1093526212602 handlerList mouseUpscriptSelection char 59 to 58 prevHandler mouseUp tempScript script aon mouseUp
if field "login sound" = "" then
else if field "login sound" <> "beep" then
set the currentTime of player "login sound" to 1
start player "login sound"
else
beep
end if
end mouseUp
; message sound ip on closeField if the text of me = "" then set the filename of player "message sound" of card "chat" to "" set the filename of player "message sound" to "" end if end closeField cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 120,179,370,199Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -121 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum i둓 revUniqueID 1093526212595 bookmarks handlerList closeField tempScript prevHandler scriptSelection char 1 to 189script #on closeField
if the text of me = "" then
set the filename of player "message sound" of card "chat" to ""
set the filename of player "message sound" to ""
end if
end closeField
4 < Field 2 * b cREVGeneral revUniqueID 1093526212596 Message sound ? Message sound ewon mouseUp answer file "choose a sound file please:" if the result = "" then put it into field "message sound" set the filename of player "message sound" of card "chat" to it set the filename of player "message sound" to it end if end mouseUp F ... cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 372,179,388,199Master,movehDistance -97Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum Ý5jO(A revUniqueID 1093526212599 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 121 to 240script yon mouseUp
answer file "choose a sound file please:"
if the result = "" then
put it into field "message sound"
set the filename of player "message sound" of card "chat" to it
set the filename of player "message sound" to it
end if
end mouseUp
A Play message ew on mouseUp if field "message sound" = "" then --nutting else if field "message sound" <> "beep" then set the currentTime of player "message sound" to 1 start player "message sound" else beep end if end mouseUp f . Play cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 390,179,420,199Master,movehDistance -56Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum )#E@ L revUniqueID 1093526212601 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 134 to 163scripton mouseUp
if field "message sound" = "" then
--nutting
else if field "message sound" <> "beep" then
set the currentTime of player "message sound" to 1
start player "message sound"
else
beep
end if
end mouseUp
Sound level qqon mouseUp put the thumbPosition of me into mySoundLevel set the playLoudness of player "message sound" of this cd to mySoundLevel set the playLoudness of player "login sound" of this cd to mySoundLevel set the playLoudness of player "message sound" of cd 2 to mySoundLevel set the playLoudness of player "login sound" of cd 2 to mySoundLevel end mouseUp ( 0 100 cREVGeneral scriptChecksum n K+2yF ]h revUniqueID 1093946759002 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 340 to 339scripton mouseUp
put the thumbPosition of me into mySoundLevel
set the playLoudness of player "message sound" of this cd to mySoundLevel
set the playLoudness of player "login sound" of this cd to mySoundLevel
set the playLoudness of player "message sound" of cd 2 to mySoundLevel
set the playLoudness of player "login sound" of cd 2 to mySoundLevel
end mouseUp
Field 2 ! l cREVGeneral revUniqueID 1093950334002 Sound volume [ $i 2 , Logging cREVGeneral revUniqueID 1093555009002 Save to file `Ewon mouseUp if the hilite of me = true then ask file "Save chat as:" with filter "Text file,*.txt" if the result = "" then put it into field "path" of card "settings" put field "chat" of card "chat" into url ("file:" & it) else put empty into field "path" of card "settings" set the hilite of me to false end if end if end mouseUp D V path )/Users/BvG/Desktop/The Fish Tank/save.txt cREVGeometry Master,expectedRect 134,218,228,246Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -0.73125Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 0Master,scaleleftDistance Master,moveHAbsolute falseMaster,scaletopDistance Master,moveH false cREVGeneral scriptChecksum } PL] 0 handlerList mouseUp breakPoints scriptSelection char 353 to 352 revUniqueID 1093526660782 bookmarks tempScript prevHandler mouseUpscript 1on mouseUp
if the hilite of me = true then
ask file "Save chat as:" with filter "Text file,*.txt"
if the result = "" then
put it into field "path" of card "settings"
put field "chat" of card "chat" into url ("file:" & it)
else
put empty into field "path" of card "settings"
set the hilite of me to false
end if
end if
end mouseUp
E path @ B cREVGeometry Master,expectedRect 120,203,370,223Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -33Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVGeneral revUniqueID 1093526766189 4 F Field 2 !C a cREVGeneral revUniqueID 1093526808404 Backup \ $i( J P Messaging options cREVGeneral revUniqueID 1093555173002 6 Field 2 ! { n cREVGeneral revUniqueID 1093526212590 privatemsg colour 9 privmessage Aw on mouseUp answer color with the backgroundColor of graphic "privmessage" if the result = "" then set the backgroundColor of graphic "privmessage" to it end if end mouseUp y , cREVGeneral scriptChecksum )yUx+.& revUniqueID 1093526212593 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 148 to 147scripton mouseUp
answer color with the backgroundColor of graphic "privmessage"
if the result = "" then
set the backgroundColor of graphic "privmessage" to it
end if
end mouseUp
: privmessage KP @on mouseUp send mouseUp to button "privmessage" end mouseUp :: ~ cREVGeneral scriptChecksum #֏ tڝ.P) revUniqueID 1093526212594 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 43 to 42script ]on mouseUp
send mouseUp to button "privmessage"
end mouseUp
5 Field 2 ! \ n cREVGeneral revUniqueID 1093526212589 message colour 7 message Aw on mouseUp answer color with the backgroundColor of graphic "message" if the result = "" then set the backgroundColor of graphic "message" to it end if end mouseUp Z , cREVGeneral scriptChecksum P7= 4: bookmarks revUniqueID 1093526212591 handlerList mouseUpscriptSelection char 163 to 162 prevHandler tempScript scripton mouseUp
answer color with the backgroundColor of graphic "message"
if the result = "" then
set the backgroundColor of graphic "message" to it
end if
end mouseUp
8 message KPon mouseUp
send mouseUp to button "message"
end mouseUp
I Press enter for multiple lines `E ~ cREVGeometry Master,movehDistance -0.417187 Master,scaleRightscaleBottom trueMaster trueMaster,scaleleftObjectRef 1093526212592Master,moveHObjectRef cardMaster,scaleleftObjectSide rightMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 206,114,385,136Master,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -93 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleleftAbsolute trueMaster,scaleleft trueMaster,cardRanking 1Master,moveHAbsolute falseMaster,scaletopDistance Master,scaleleftDistance 21 Master,moveH false cREVGeneral revUniqueID 1093534635001 bookmarks handlerList mouseUp tempScript prevHandler script j Receive HTML `e Z\ )Interprete messages containing HTML code Parse HTML tags cREVGeometry Master,movehDistance -0.457813 Master,scaleRightscaleBottom trueMaster trueMaster,scaleleftObjectRef 1093526212592Master,moveHObjectRef cardMaster,scaleleftObjectSide rightMaster,expectedRect 207,78,383,100Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -145Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,scaleleftAbsolute trueMaster,scaleleft trueMaster,cardRanking 1Master,scaleleftDistance 21Master,scaletopDistance Master,moveHAbsolute false Master,moveH false cREVGeneral bookmarks revUniqueID 1093613006001 handlerList mouseUp prevHandler tempScript script u Replace smileys `e Ton mouseUp set the enabled of btn "Smile Server" to the hilite of me end mouseUp l5 "Replace text smileys by a picture Replace smileys cREVGeometry Master,movehDistance -0.4875 Master,scaleRightscaleBottom trueMaster trueMaster,scaleleftObjectRef 1093526212592Master,moveHObjectRef cardMaster,scaleleftObjectSide rightMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 206,96,382,118Master,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -184 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleleftAbsolute trueMaster,scaleleft trueMaster,cardRanking 1Master,moveHAbsolute falseMaster,scaletopDistance Master,scaleleftDistance 21 Master,moveH false cREVGeneral scriptChecksum qFU5mS㴜G revUniqueID 1093641933671 bookmarks handlerList mouseUpscriptSelection char 29 to 28 tempScript prevHandler mouseUpscripton mouseUp
set the enabled of btn "Smile Server" to the hilite of me
end mouseUp
Smile Server u on menuPick w lock screen put url ((line lineoffset(w,me) of the cServers of me) & "smile.gif") into image "Smiley" set the loc of image "Smiley" to (width of this cd - 137),117 end menuPick ? m U cServers http://home.wanadoo.nl/mark.sch/smile/ http://www.ihug.org/ehug/smile/ http://www.ihug.org/ehug/smile2/ http://homepage.mac.com/bvg/smilies/ binfile:/Macintosh HD/Documenten/Rev Stacks/ChatRev/ChatRev 1.2M/User Data/Smileys/ Server 1 *Server 1 Server 2 Server 3 Server 4 Local cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 421,97,549,116Master,movehDistance -76Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum xj^(N<4|K bookmarks revUniqueID 1093655878002 handlerList menuPick prevHandler menuPick tempScript scriptSelection char 180 to 179script mon menuPick w
lock screen
put url ((line lineoffset(w,me) of the cServers of me) & "smile.gif") into image "Smiley"
set the loc of image "Smiley" to (width of this cd - 137),117
end menuPick
l Temp Html !` E cREVGeneral revUniqueID 1093615625262 :-/ o P E on mouseDown put the hilite of me into myPrevState repeat while the mouse is down set the hilite of me to (the mouseLoc is within the rect of me) end repeat if the mouseLoc is within the rect of me then set the hilite of me to not myPrevState end if if the hilite of me is true then if the short name of the selectedField is "Enter" then if number of chars of the selection > 0 then set the textStyle of the selection to plain end if end if set the cTextStyle of fld "enter" to empty repeat for each char x in "BIU" set the hilite of btn x to false end repeat end if end mouseDown @ Plain text cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -171Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -43Master,scalebottomDistance Master,expectedRect 451,395,473,416Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum .V{ [cj7 handlerList mouseDown breakPoints scriptSelection char 315 to 314 revUniqueID 1093616302225 bookmarks tempScript prevHandler mouseUpscripton mouseDown
put the hilite of me into myPrevState
repeat while the mouse is down
set the hilite of me to (the mouseLoc is within the rect of me)
end repeat
if the mouseLoc is within the rect of me then
set the hilite of me to not myPrevState
end if
if the hilite of me is true then
if the short name of the selectedField is "Enter" then
if number of chars of the selection > 0 then
set the textStyle of the selection to plain
end if
end if
set the cTextStyle of fld "enter" to empty
repeat for each char x in "BIU"
set the hilite of btn x to false
end repeat
end if
end mouseDown
p B E on mouseDown put the hilite of me into myPrevState repeat while the mouse is down set the hilite of me to (the mouseLoc is within the rect of me) end repeat if the mouseLoc is within the rect of me then set the hilite of me to not myPrevState end if if the hilite of me is true then setStyle "add","bold" set the hilite of button "P" to false else setStyle "remove","bold" end if end mouseDown Bold cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -146Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -43Master,scalebottomDistance Master,expectedRect 475,395,499,416Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum %*] mx`5` breakPoints handlerList mouseDownscriptSelection char 327 to 326 revUniqueID 1093616319563 bookmarks tempScript prevHandler mouseUpscripton mouseDown
put the hilite of me into myPrevState
repeat while the mouse is down
set the hilite of me to (the mouseLoc is within the rect of me)
end repeat
if the mouseLoc is within the rect of me then
set the hilite of me to not myPrevState
end if
if the hilite of me is true then
setStyle "add","bold"
set the hilite of button "P" to false
else
setStyle "remove","bold"
end if
end mouseDown
q U E on mouseDown put the hilite of me into myPrevState repeat while the mouse is down set the hilite of me to (the mouseLoc is within the rect of me) end repeat if the mouseLoc is within the rect of me then set the hilite of me to not myPrevState end if if the hilite of me is true then setStyle "add","underline" set the hilite of button "P" to false else setStyle "remove","underline" end if end mouseDown Underline cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -95Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -43Master,scalebottomDistance Master,expectedRect 527,395,550,416Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum Vw;&DjU bookmarks revUniqueID 1093616321943 handlerList mouseDownscriptSelection char 334 to 333 prevHandler mouseDown tempScript scripton mouseDown
put the hilite of me into myPrevState
repeat while the mouse is down
set the hilite of me to (the mouseLoc is within the rect of me)
end repeat
if the mouseLoc is within the rect of me then
set the hilite of me to not myPrevState
end if
if the hilite of me is true then
setStyle "add","underline"
set the hilite of button "P" to false
else
setStyle "remove","underline"
end if
end mouseDown
r I E on mouseDown put the hilite of me into myPrevState repeat while the mouse is down set the hilite of me to (the mouseLoc is within the rect of me) end repeat if the mouseLoc is within the rect of me then set the hilite of me to not myPrevState end if if the hilite of me is true then setStyle "add","italic" set the hilite of button "P" to false else setStyle "remove","italic" end if end mouseDown Italic cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -120Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -43Master,scalebottomDistance Master,expectedRect 502,395,524,416Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum !oؙϳb;Uȩ revUniqueID 1093616325320 bookmarks handlerList mouseDown tempScript prevHandler mouseUpscriptSelection char 331 to 330scripton mouseDown
put the hilite of me into myPrevState
repeat while the mouse is down
set the hilite of me to (the mouseLoc is within the rect of me)
end repeat
if the mouseLoc is within the rect of me then
set the hilite of me to not myPrevState
end if
if the hilite of me is true then
setStyle "add","italic"
set the hilite of button "P" to false
else
setStyle "remove","italic"
end if
end mouseDown
Field ! @ cREVGeneral revUniqueID 1093684808002 Registration i` 6 cREVGeneral revUniqueID 1093684888002 Nickname )` V DK cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 80,18,400,38Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -12 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1093002084650 bookmarks handlerList tempScript prevHandler enterInFieldscriptSelection char 1 to 0script Password )` U sJ cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 80,66,400,86Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -14 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1093002475561 bookmarks handlerList tempScript prevHandler enterInFieldscriptSelection char 1 to 0script E-mail )` V I cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 81,115,401,135Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -14 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1093002084648 bookmarks handlerList tempScript prevHandler enterInFieldscriptSelection char 1 to 0script mouseOver )` U J cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 80,163,400,183Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -14 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1093002084645 bookmarks handlerList tempScript prevHandler enterInFieldscriptSelection char 1 to 0script About )` VI ~ cREVGeometry Master,scaleBottomObjectSide Bottom Master,scaleBottomscaleBottom trueMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 81,213,397,272Master,scalebottomDistance -130Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -14Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1093002084642 bookmarks handlerList tempScript prevHandler enterInFieldscriptSelection char 1 to 0script ` | Field 2 N cREVGeneral revUniqueID 1093002084646 MouseOver Field 2 N cREVGeneral revUniqueID 1093002084647 About Field 2 N cREVGeneral revUniqueID 1093002084649 E-mail Field 2 C N cREVGeneral revUniqueID 1093002084651 Nickname Field 2 s N cREVGeneral revUniqueID 1093002475596 Password . Field 1 M WJ cREVGeneral revUniqueID 1093183364779 0Examples: "Ken", "Fhqwhgads", "Sluggy", "Pepsi" / Field 1 M cREVGeneral revUniqueID 1093183463119 )Examples: "Strongbadia", "Pass", "Enter" 0 Field 1 N J cREVGeneral revUniqueID 1093183463832 *Examples: "bvg@gmx.net", "your@email.com" 1 Field 1 M J cREVGeneral revUniqueID 1093183480341 @Examples: "I am online", "Don't point at me!", "I like flowers" 2 Field 1 PY E cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -90Master,scalebottomDistance Master,expectedRect 80,278,408,357Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -4 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1093183547681 Examples: "I am Bjrnke von Gierke, and work with revolution in my spare time. I made RevChat and other stuff by me can be found at http://revolutionboard.de/bvg", 6"I am paranoid and won't tell you anything about me." Default Smile ` x cREVGeneral bookmarks revUniqueID 1093701633071 handlerList prevHandler tempScript script Insert Smile A Ton mouseUp set the cursor to watch open stack "Smileys" as palette end mouseUp S Insert Smile cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -32Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 527,395,550,416Master,scalebottomDistance Master,movevDistance -43Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum dP`gp: revUniqueID 1093702048001 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 37 to 36scripton mouseUp
set the cursor to watch
open stack "Smileys" as palette
end mouseUp
ChatBar ISon mouseDown if there is a fld "Members" then if the selectedText of fld "Members" is empty then repeat with x = 5 to 8 disable menuitem x of menu "Chat" end repeat else repeat with x = 5 to 8 enable menuitem x of menu "Chat" end repeat end if end if pass mouseDown end mouseDown cREVGeneral scriptChecksum hyȸ- breakPoints handlerList mouseDownscriptSelection char 339 to 338 bookmarks revUniqueID 1093771355003 prevHandler mouseDown tempScript script 'on mouseDown
if there is a fld "Members" then
if the selectedText of fld "Members" is empty then
repeat with x = 5 to 8
disable menuitem x of menu "Chat"
end repeat
else
repeat with x = 5 to 8
enable menuitem x of menu "Chat"
end repeat
end if
end if
pass mouseDown
end mouseDown
File U,--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich global gChatRevShortName,gLogViewerApp switch pWhich case "Register New User..." if the label of btn "Connect" of cd 1 of stack gChatRevShortName is "Disconnect" then beep answer warning "Are you sure that you want to log out and register" & return & "as a new user?" with "Okay" or "Cancel" if it is "Cancel" then exit menuPick end if end if send "disconnect" to btn "Connect" of cd 1 of stack gChatRevShortName go cd "Register" break case "Save As..." ask file "Save this chat as..." with "Untitled.html" if it is not empty then put it into myFilename put "--The following menuPick handler was generated by the Menu Builder.
on menuPick pWhich
global gChatRevShortName,gLogViewerApp
switch pWhich
case "Register New User..."
if the label of btn "Connect" of cd 1 of stack gChatRevShortName is "Disconnect" then
beep
answer warning "Are you sure that you want to log out and register" & return & "as a new user?" with "Okay" or "Cancel"
if it is "Cancel" then
exit menuPick
end if
end if
send "disconnect" to btn "Connect" of cd 1 of stack gChatRevShortName
go cd "Register"
break
case "Save As..."
ask file "Save this chat as..." with "Untitled.html"
if it is not empty then
put it into myFilename
put "<html><title>ChatRev 1.2 Chat</title><body>" & return & ¬
(the htmlText of fld "Chat" of cd "Chat" of stack gChatRevShortName) & ¬
"</body></html>" into url ("file:" & myFilename)
end if
break
case "Close"
if there is a window "Help" then close window "Help"
-- close this stack
break
case "View Log"
put fld "Path" of cd 4 of stack gChatRevShortName into myLogPath
if gLogViewerApp is empty then
answer file "Choose a text editor to view the log file"
if it is not empty then
put it into gLogViewerApp
if there is a file myLogPath then
launch myLogPath with gLogViewerApp
else
beep
end if
end if
else
if there is a file myLogPath then
launch myLogPath with gLogViewerApp
put the result
else
beep
end if
end if
break
case "Quit"
send "disconnect" to btn "Connect" of cd 1
cleanup
if the environment is "development" then
close stack gChatRevShortName
else
quit
end if
break
end switch
end menuPick
Edit Ui--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich global gChatRevShortName switch pWhich case "Undo" undo break case "Cut" cut break case "Copy" copy break case "Paste" paste break case "Clear" clear break case "Select All" put short name of the focusedObject into myFocusedFld if there is a fld myFocusedFld then select text of fld myFocusedFld break case "Settings" lock screen go cd "Settings" set the menuHistory of btn "Go" of stack gChatRevShortName to 4 break end switch end menuPick Edit >Undo/Z - Cut/X Copy/C Paste/V Clear - Select All/A - Settings cREVGeneral scriptChecksum +eFt ! revUniqueID 1093771355005 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 580 to 579script--The following menuPick handler was generated by the Menu Builder.
on menuPick pWhich
global gChatRevShortName
switch pWhich
case "Undo"
undo
break
case "Cut"
cut
break
case "Copy"
copy
break
case "Paste"
paste
break
case "Clear"
clear
break
case "Select All"
put short name of the focusedObject into myFocusedFld
if there is a fld myFocusedFld then select text of fld myFocusedFld
break
case "Settings"
lock screen
go cd "Settings"
set the menuHistory of btn "Go" of stack gChatRevShortName to 4
break
end switch
end menuPick
Chat U--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich if pWhich contains "Translate" then put the selection into myWord set the itemDelimiter to "|" put item 2 of pWhich into myLanguage put "Translate" into pWhich end if switch pWhich case "Set Tooltip" setlabel break case "Set E-Mail" setEmail break case "Set About" setAbout break case "Clear Chat" put empty into fld "Chat" break case "Translate" send "translate myLanguage,myWord" to stack "Translate" break default set the itemDel to tab put item 1 of the selectedText of fld "Members" into myUser send "userAction pWhich,myUser" to this cd break end switch end menuPick ? ! Chat Set Tooltip Set E-Mail Set About - (Send Private Message (See Profile (Send E-Mail (Send File - Translate Chinese Simplified Chinese Traditional English Dutch French German Hebrew Japanese Portuguese Spanish Clear Chat cREVGeneral scriptChecksum |5%ucJG breakPoints handlerList menuPickscriptSelection char 536 to 535 bookmarks revUniqueID 1100988480597 prevHandler menuPick tempScript script--The following menuPick handler was generated by the Menu Builder.
on menuPick pWhich
if pWhich contains "Translate" then
put the selection into myWord
set the itemDelimiter to "|"
put item 2 of pWhich into myLanguage
put "Translate" into pWhich
end if
switch pWhich
case "Set Tooltip"
setlabel
break
case "Set E-Mail"
setEmail
break
case "Set About"
setAbout
break
case "Clear Chat"
put empty into fld "Chat"
break
case "Translate"
send "translate myLanguage,myWord" to stack "Translate"
break
default
set the itemDel to tab
put item 1 of the selectedText of fld "Members" into myUser
send "userAction pWhich,myUser" to this cd
break
end switch
end menuPick
Style UD--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich global gChatRevShortName set the itemDel to "|" put the text of me into myMenu if item 1 of pWhich is "Font" then set the textFont of fld "Chat" of cd "Chat" of stack gChatRevShortName to item 2 of pWhich put lineOffset("Font", myMenu) into m put number of lines of fontNames() into myNrOfFontItems repeat with x = m to (m+myNrOfFontItems) if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me end repeat put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me else if item 1 of pWhich is "Colour" then put lineOffset("Colour", myMenu) into m put 11 into myNrOfClrItems --number of available colours + random repeat with x = m to (m+myNrOfClrItems) if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me end repeat put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me set the myRandomColour of fld "Enter" of cd "Chat" of stack gChatRevShortName to false if item 2 of pWhich is "Random" then set the myRandomColour of fld "Enter" of cd "Chat" of stack gChatRevShortName to true else if item 2 of pWhich is "Palette" then go stack "Colour Palette" as palette else set the backgroundColor of graphic "Old Colour" of stack "Colour Palette" to the backgroundColor of graphic "Selected Colour" of stack "Colour Palette" set the backgroundColor of graphic "Selected Colour" of stack "Colour Palette" to item 2 of pWhich end if else if item 1 of pWhich is "Size" then put lineOffset("Size", myMenu) into m put 12 into myNrOfSizeItems repeat with x = m to (m+myNrOfSizeItems) if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me end repeat put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me switch pWhich case "Size|9" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|10" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|11" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|12" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|14" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|16" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|18" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|20" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|24" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|32" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|48" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich break case "Size|72" set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich end switch end if end menuPick ` % Style 9Font !c APC Courier Apple Chancery AppleGaramond Bd AppleGaramond BdIt AppleGaramond Bk AppleGaramond BkIt AppleGaramond Lt AppleGaramond LtIt Arial Arial Black baby BernhardMod BT Bitstream Vera Sans Bitstream Vera Sans Mono Bitstream Vera Serif Capitals Century Gothic Cezanne Charcoal Chicago Comic Sans MS Copperplate Gothic Bold Copperplate Gothic Light Courier Courier CE Courier New Courier TU Curlz MT dyrk Edwardian Script ITC erkend Espy Sans Espy Sans Bold eWorld Tight Gadget Geneva Geneva CE Geneva CY Georgia GrCourier GrHelvetica GrTimes Helvetica Hoefler Text Hoefler Text Ornaments hushold IDAutomationHC39M Impact info Krop Latinskij Lucida Grande Lucida Handwriting mad Monaco Monotype Sorts MT Extra N Helvetica Narrow New York Palatino Photina MT PriamojProp rg samvr Sand Skia smerte Sonata sport SPSS Marker Set sted SToccata Symbol Tahoma Techno Textile Tilstand Times Times CE Times CY Times New Roman Times OE- Roman Times RO TL Help Cyrillic TLCyrillic TLCyrillic2 TLEastEurope TLEastEurope2 Trebuchet MS TTYFont ude Verdana VT100 Webdings Wingdings Zapf Dingbats Size !c 9 10 11 12 14 16 18 20 24 32 48 72 Colour Black White Maroon Green Navy Purple Gray Red Yellow Blue Random - Palette cREVGeneral scriptChecksum 4jsQjKg1} breakPoints handlerList menuPickscriptSelection char 1879 to 1878 bookmarks revUniqueID 1101471904019 prevHandler menuPick tempScript script &--The following menuPick handler was generated by the Menu Builder.
on menuPick pWhich
global gChatRevShortName
set the itemDel to "|"
put the text of me into myMenu
if item 1 of pWhich is "Font" then
set the textFont of fld "Chat" of cd "Chat" of stack gChatRevShortName to item 2 of pWhich
put lineOffset("Font", myMenu) into m
put number of lines of fontNames() into myNrOfFontItems
repeat with x = m to (m+myNrOfFontItems)
if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me
end repeat
put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me
else if item 1 of pWhich is "Colour" then
put lineOffset("Colour", myMenu) into m
put 11 into myNrOfClrItems --number of available colours + random
repeat with x = m to (m+myNrOfClrItems)
if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me
end repeat
put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me
set the myRandomColour of fld "Enter" of cd "Chat" of stack gChatRevShortName to false
if item 2 of pWhich is "Random" then
set the myRandomColour of fld "Enter" of cd "Chat" of stack gChatRevShortName to true
else if item 2 of pWhich is "Palette" then
go stack "Colour Palette" as palette
else
set the backgroundColor of graphic "Old Colour" of stack "Colour Palette" to the backgroundColor of graphic "Selected Colour" of stack "Colour Palette"
set the backgroundColor of graphic "Selected Colour" of stack "Colour Palette" to item 2 of pWhich
end if
else if item 1 of pWhich is "Size" then
put lineOffset("Size", myMenu) into m
put 12 into myNrOfSizeItems
repeat with x = m to (m+myNrOfSizeItems)
if char 1 to 2 of line x of myMenu is "!c" then delete char 1 to 2 of line x of me
end repeat
put "!c" before line lineoffset(tab & (last item of pWhich),myMenu) of me
switch pWhich
case "Size|9"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|10"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|11"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|12"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|14"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|16"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|18"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|20"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|24"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|32"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|48"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
break
case "Size|72"
set the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortName to last item of pWhich
end switch
end if
end menuPick
Help U>--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Help" go stack "Help" as modeless break case "About ChatRev..." go stack "About" as palette break case "Sponsor..." go stack "Sponsor" as palette break end switch end menuPick " Help &Help/? Sponsor... - &About ChatRev... cREVGeneral scriptChecksum O+mU[ revUniqueID 1093771355006 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 217 to 216script >--The following menuPick handler was generated by the Menu Builder.
on menuPick pWhich
switch pWhich
case "Help"
go stack "Help" as modeless
break
case "About ChatRev..."
go stack "About" as palette
break
case "Sponsor..."
go stack "Sponsor" as palette
break
end switch
end menuPick
login i 8# c cREVGeneral revUniqueID 1093783776002 Connect ex Bon mouseUp if the label of me is "connect" then set the label of me to "Disconnect" startconnection put empty into field "members" of card "chat" else disconnect end if end mouseUp on startconnection set the cursor to watch put baseconvert(the seconds,10,16) into myIdentifier put (the label of btn "IP List" of cd 1) & colon & (field "Port" of cd 1) & ("|" & myIdentifier) into field "IP" of cd 1 open socket to (field "ip" of cd 1) with message connected -- set the status button on cd 2 accordingly success of failure of the -- attempt to connect If the Result <> "" then error "startConnection" && the Result set the label of btn "Status" of cd 2 to "Disconnect" set the cPrevLabel of btn "Status" of cd 2 to "Disconnect" else set the label of btn "Status" of cd 2 to "Available" set the cPrevLabel of btn "Status" of cd 2 to "Available" end if end startconnection on disconnect set the menuhistory of button "go" of card "chat" to 1 set the menuhistory of button "go" of card 1 to 1 set the label of button "connect" of card 1 to "connect" write "disconnect" & return to socket field "IP" of card 1 put the result into rslt if rslt is not empty then log rslt end if close socket field "IP" of card 1 log "disconnected" end disconnect on connected theSocket put "login" & return & (field "Name" of cd 1) , (field "Pass" of cd 1) & return into mess write mess to Socket theSocket with message "login" If the Result <> "" then error "connected" && the Result end if end connected on login theIP read from socket theIP until return with message "loginResult" If the Result <> "" then error "login" && the Result close socket theIP end if end login on loginResult theIP theMessage if char 1 to -2 of theMessage = "login wrong" then answer error "wrong login, did you register?" with "Register now" or "Cancel" if it is "Register now" then put fld "Name" into fld "Nickname" of cd "Register" put fld "Pass" into fld "Password" of cd "Register" go to card "Register" end if close socket theIP set the label of me to "connect" else log char 1 to -2 of theMessage write "version 1.2" & return to socket theIP read from socket theIP until return with message "versionResult" end if end loginResult on versionResult theIP theMessage if char 1 to -2 of theMessage = "Version OK" then set the menuhistory of button "go" of card "chat" to 2 set the menuhistory of button "go" of card 1 to 2 read from socket theIP until return with message "loggedIn" else answer error "Version problem:" && char 1 to -2 of theMessage error "version" && char 1 to -2 of theMessage close socket theIP set the label of me to "connect" end if end versionResult -- dit moet worden vervangen door een switch control structure on loggedIn theIP theMessage if char 1 to -2 of theMessage = "ping" then write "pong" & return to socket theIP with message "pong" set the cPingReceived of this stack to the ticks else if char 1 to -2 of theMessage = "chat" then read from socket theIP until return with message "Chat" else if char 1 to -2 of theMessage = "message" then read from socket theIP until return with message "messaging" else if char 1 to -2 of theMessage = "me" then read from socket theIP until return with message "myself" else if char 1 to -2 of theMessage = "setMouse" then read from socket theIP until return with message "setMouse" else if char 1 to -2 of theMessage = "mail" then read from socket theIP until return with message "mail" else if char 1 to -2 of themessage = "member" then read from socket theIP until return with message "member" else if char 1 to -2 of themessage = "unmember" then read from socket theIP until return with message "unmember" else if char 1 to -2 of themessage = "answer" then read from socket theIP until return with message "answerIt" else if char 1 to -2 of themessage = "thread" then read from socket theIP until return with message "thread" else if char 1 to -2 of themessage = "threads" then read from socket theIP until return with message "threads" else if char 1 to -2 of theMessage = "fileRequest" then read from socket theIP until return with message "handleFileRequest" else if char 1 to -2 of theMessage = "fileAccept" then read from socket theIP until return with message "handleFileAccept" else if char 1 to -2 of themessage = "kick" then log "kicked by the server!" disconnect else if char 1 to -2 of theMessage = "error" then read from socket theIP until return with message "serverError" end if end loggedIn on logedIn theIP theMessage put the target into x answer (x && "tried to send a logedIn message!") end logedIn on pong theIP if the result <> "" then error "pong" && the result disconnect else read from socket theIP until return with message "loggedin" end if end pong /* Comment added by Mark S. It appears that a smiley can screw up the entire chat field, because the smiley is put into the field a second time, but then as plain text. You really don't want this. I prevent the chat field from being messed up by adding a break to the html code that displays the image (see above: put "" & fld "Temp HTML" of cd 2 & "
") end if -- replace smileys get replaceSmileys(it) put the itemDelimiter into myOldDel set the itemDelimiter to numToChar(11) put item 2 of it into mySmileyFound get item 1 of it -- to keep remaining syntax as original as possible set the itemDelimiter to myOldDel -- lines added by Mark S until here put "" & char 1 to -2 of theMessage & ":" && char 4 to -2 of it into theMessage put theMessage into a replace "
" with return in a put the number of lines of char 1 to -3 of a into theCount put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x put return & " " after field "chat" of card "chat" set the htmltext of line -1 of field "chat" of card "chat" to theMessage set the itemDelimiter to ":" -- line added by Mark S if mySmileyFound is true then subtract 2 from theCount set the textColor of item 1 of line -theCount of field "chat" of card "chat" to the backgroundcolor of graphic "message" of card "settings" if x = true then set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat" else set the scroll of field "chat" of card "chat" to oldscroll end if --speech speekChat savetofile theCount read from socket theIP until return with message "loggedIn" end chat on speekChat set the itemDel to colon if the hilite of button "Enable speech" of cd "Settings" is true then repeat until not revIsSpeaking --with messages wait with messages end repeat revSpeak (item 2 to -1 of last line of fld "Chat" of cd "Chat") end if end speekChat on messaging theIP theMessage put "msg from" && char 1 to -2 of theMessage & ":" into theMessage read from socket theIP until return -- lines added by Mark S -- replace "" with empty in it put it into myReadMessage if the hilite of btn "Receive HTML" of cd 4 is true then set the htmlText of fld "Temp HTML" of cd 2 to myReadMessage get ("
" & fld "Temp HTML" of cd 2 & "
") end if -- replace smileys get replaceSmileys(it) put the itemDelimiter into myOldDel set the itemDelimiter to numToChar(11) put item 2 of it into mySmileyFound get item 1 of it -- to keep remaining syntax as original as possible set the itemDelimiter to myOldDel -- lines added by Mark S until here privmsg (theMessage && char 1 to -1 of of (word 1 to -1 of it)),mySmileyFound read from socket theIP until return with message "loggedIn" end messaging on privmsg theMessage,mySmileyFound set the itemDelimiter to colon put the scroll of fld "Chat" of cd "Chat" into oldScroll if char 1 to 3 of word 1 of item 2 of theMessage is "" then delete char 1 to 3 of word 1 of item 2 of theMessage put theMessage into a replace "
" with return in a put the number of lines of char 1 to -3 of a into theCount if mySmileyFound then subtract 2 from theCount put removeFinalEmptyLines(theMessage) into theMessage put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x put return & " " after field "chat" of card "chat" set the htmltext of last line of field "chat" of card "chat" to theMessage set the itemDelimiter to ":" set the textColor of item 1 of line -theCount of field "chat" of card "chat" to the backgroundcolor of graphic "privmessage" of card "settings" if x = true then set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat" else set the scroll of field "chat" of card "chat" to oldscroll end if sendAwayMessage theMessage speekChat savetofile theCount end privmsg on myself theIP theMessage read from socket theIP until return action "<" & char 1 to -2 of theMessage && char 1 to -2 of it & ">" read from socket theIP until return with message "loggedIn" end myself on action theMessage put the scroll of fld "Chat" of cd "Chat" into oldScroll put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x put return & theMessage after field "chat" of card "chat" set the textColor of char 2 to -2 of line -1 of field "chat" of card "chat" to the backgroundcolor of graphic "message" of card "settings" if x = true then set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat" else set the scroll of field "chat" of card "chat" to oldscroll end if savetofile 1 end action on setMouse theIP theName read from socket theIP until return set the itemDelimiter to tab put 0 into x repeat for each line theLine in field "members" of card "chat" add one to x if item 1 of theLine = char 1 to -2 of theName then set the itemDelimiter to numToChar(11) put item 1 of replaceSmileys(char 1 to -2 of it) into myTextWithSmileys if last char of myTextWithSmileys is return then delete last char of myTextWithSmileys replace "on mouseUp
if the label of me is "connect" then
set the label of me to "Disconnect"
startconnection
put empty into field "members" of card "chat"
else
disconnect
end if
end mouseUp
on startconnection
set the cursor to watch
put baseconvert(the seconds,10,16) into myIdentifier
put (the label of btn "IP List" of cd 1) & colon & (field "Port" of cd 1) & ("|" & myIdentifier) into field "IP" of cd 1
open socket to (field "ip" of cd 1) with message connected
-- set the status button on cd 2 accordingly success of failure of the
-- attempt to connect
If the Result <> "" then
error "startConnection" && the Result
set the label of btn "Status" of cd 2 to "Disconnect"
set the cPrevLabel of btn "Status" of cd 2 to "Disconnect"
else
set the label of btn "Status" of cd 2 to "Available"
set the cPrevLabel of btn "Status" of cd 2 to "Available"
end if
end startconnection
on disconnect
set the menuhistory of button "go" of card "chat" to 1
set the menuhistory of button "go" of card 1 to 1
set the label of button "connect" of card 1 to "connect"
write "disconnect" & return to socket field "IP" of card 1
put the result into rslt
if rslt is not empty then
log rslt
end if
close socket field "IP" of card 1
log "disconnected"
end disconnect
on connected theSocket
put "login" & return & (field "Name" of cd 1) , (field "Pass" of cd 1) & return into mess
write mess to Socket theSocket with message "login"
If the Result <> "" then
error "connected" && the Result
end if
end connected
on login theIP
read from socket theIP until return with message "loginResult"
If the Result <> "" then
error "login" && the Result
close socket theIP
end if
end login
on loginResult theIP theMessage
if char 1 to -2 of theMessage = "login wrong" then
answer error "wrong login, did you register?" with "Register now" or "Cancel"
if it is "Register now" then
put fld "Name" into fld "Nickname" of cd "Register"
put fld "Pass" into fld "Password" of cd "Register"
go to card "Register"
end if
close socket theIP
set the label of me to "connect"
else
log char 1 to -2 of theMessage
write "version 1.2" & return to socket theIP
read from socket theIP until return with message "versionResult"
end if
end loginResult
on versionResult theIP theMessage
if char 1 to -2 of theMessage = "Version OK" then
set the menuhistory of button "go" of card "chat" to 2
set the menuhistory of button "go" of card 1 to 2
read from socket theIP until return with message "loggedIn"
else
answer error "Version problem:" && char 1 to -2 of theMessage
error "version" && char 1 to -2 of theMessage
close socket theIP
set the label of me to "connect"
end if
end versionResult
-- dit moet worden vervangen door een switch control structure
on loggedIn theIP theMessage
if char 1 to -2 of theMessage = "ping" then
write "pong" & return to socket theIP with message "pong"
set the cPingReceived of this stack to the ticks
else if char 1 to -2 of theMessage = "chat" then
read from socket theIP until return with message "Chat"
else if char 1 to -2 of theMessage = "message" then
read from socket theIP until return with message "messaging"
else if char 1 to -2 of theMessage = "me" then
read from socket theIP until return with message "myself"
else if char 1 to -2 of theMessage = "setMouse" then
read from socket theIP until return with message "setMouse"
else if char 1 to -2 of theMessage = "mail" then
read from socket theIP until return with message "mail"
else if char 1 to -2 of themessage = "member" then
read from socket theIP until return with message "member"
else if char 1 to -2 of themessage = "unmember" then
read from socket theIP until return with message "unmember"
else if char 1 to -2 of themessage = "answer" then
read from socket theIP until return with message "answerIt"
else if char 1 to -2 of themessage = "thread" then
read from socket theIP until return with message "thread"
else if char 1 to -2 of themessage = "threads" then
read from socket theIP until return with message "threads"
else if char 1 to -2 of theMessage = "fileRequest" then
read from socket theIP until return with message "handleFileRequest"
else if char 1 to -2 of theMessage = "fileAccept" then
read from socket theIP until return with message "handleFileAccept"
else if char 1 to -2 of themessage = "kick" then
log "kicked by the server!"
disconnect
else if char 1 to -2 of theMessage = "error" then
read from socket theIP until return with message "serverError"
end if
end loggedIn
on logedIn theIP theMessage
put the target into x
answer (x && "tried to send a logedIn message!")
end logedIn
on pong theIP
if the result <> "" then
error "pong" && the result
disconnect
else
read from socket theIP until return with message "loggedin"
end if
end pong
/*
Comment added by Mark S.
It appears that a smiley can screw up the entire chat field, because the smiley is
put into the field a second time, but then as plain text. You really don't want this.
I prevent the chat field from being messed up by adding a break to the html code
that displays the image (see above: put "<br>" after theMsg). The result is that
a line is added. This additional line is not counted by the chat handler. So, I have
to make a correction by subtracting 1 from theCount.
*/
on chat theIP theMessage
read from socket theIP until return
put the scroll of fld "Chat" of cd "Chat" into oldScroll
-- lines added by Mark S
put it into myReadMessage
if the hilite of btn "Receive HTML" of cd 4 is true then
set the htmlText of fld "Temp HTML" of cd 2 to myReadMessage
get ("<p>" & fld "Temp HTML" of cd 2 & "</p>")
end if
-- replace smileys
get replaceSmileys(it)
put the itemDelimiter into myOldDel
set the itemDelimiter to numToChar(11)
put item 2 of it into mySmileyFound
get item 1 of it -- to keep remaining syntax as original as possible
set the itemDelimiter to myOldDel
-- lines added by Mark S until here
put "<p>" & char 1 to -2 of theMessage & ":" && char 4 to -2 of it into theMessage
put theMessage into a
replace "</p>" with return in a
put the number of lines of char 1 to -3 of a into theCount
put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x
put return & " " after field "chat" of card "chat"
set the htmltext of line -1 of field "chat" of card "chat" to theMessage
set the itemDelimiter to ":"
-- line added by Mark S
if mySmileyFound is true then subtract 2 from theCount
set the textColor of item 1 of line -theCount of field "chat" of card "chat" to the backgroundcolor of graphic "message" of card "settings"
if x = true then
set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat"
else
set the scroll of field "chat" of card "chat" to oldscroll
end if
--speech
speekChat
savetofile theCount
read from socket theIP until return with message "loggedIn"
end chat
on speekChat
set the itemDel to colon
if the hilite of button "Enable speech" of cd "Settings" is true then
repeat until not revIsSpeaking --with messages
wait with messages
end repeat
revSpeak (item 2 to -1 of last line of fld "Chat" of cd "Chat")
end if
end speekChat
on messaging theIP theMessage
put "msg from" && char 1 to -2 of theMessage & ":" into theMessage
read from socket theIP until return
-- lines added by Mark S
-- replace "<p>" with empty in it
put it into myReadMessage
if the hilite of btn "Receive HTML" of cd 4 is true then
set the htmlText of fld "Temp HTML" of cd 2 to myReadMessage
get ("<p>" & fld "Temp HTML" of cd 2 & "</p>")
end if
-- replace smileys
get replaceSmileys(it)
put the itemDelimiter into myOldDel
set the itemDelimiter to numToChar(11)
put item 2 of it into mySmileyFound
get item 1 of it -- to keep remaining syntax as original as possible
set the itemDelimiter to myOldDel
-- lines added by Mark S until here
privmsg (theMessage && char 1 to -1 of of (word 1 to -1 of it)),mySmileyFound
read from socket theIP until return with message "loggedIn"
end messaging
on privmsg theMessage,mySmileyFound
set the itemDelimiter to colon
put the scroll of fld "Chat" of cd "Chat" into oldScroll
if char 1 to 3 of word 1 of item 2 of theMessage is "<p>" then delete char 1 to 3 of word 1 of item 2 of theMessage
put theMessage into a
replace "</p>" with return in a
put the number of lines of char 1 to -3 of a into theCount
if mySmileyFound then subtract 2 from theCount
put removeFinalEmptyLines(theMessage) into theMessage
put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x
put return & " " after field "chat" of card "chat"
set the htmltext of last line of field "chat" of card "chat" to theMessage
set the itemDelimiter to ":"
set the textColor of item 1 of line -theCount of field "chat" of card "chat" to the backgroundcolor of graphic "privmessage" of card "settings"
if x = true then
set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat"
else
set the scroll of field "chat" of card "chat" to oldscroll
end if
sendAwayMessage theMessage
speekChat
savetofile theCount
end privmsg
on myself theIP theMessage
read from socket theIP until return
action "<" & char 1 to -2 of theMessage && char 1 to -2 of it & ">"
read from socket theIP until return with message "loggedIn"
end myself
on action theMessage
put the scroll of fld "Chat" of cd "Chat" into oldScroll
put the formattedHeight of field "chat" of card "chat" <= the vscroll of field "chat" of card "chat" + the height of field "chat" of card "chat" + 30 into x
put return & theMessage after field "chat" of card "chat"
set the textColor of char 2 to -2 of line -1 of field "chat" of card "chat" to the backgroundcolor of graphic "message" of card "settings"
if x = true then
set the vScroll of field "chat" of card "chat" to the formattedHeight of field "chat" of card "chat"
else
set the scroll of field "chat" of card "chat" to oldscroll
end if
savetofile 1
end action
on setMouse theIP theName
read from socket theIP until return
set the itemDelimiter to tab
put 0 into x
repeat for each line theLine in field "members" of card "chat"
add one to x
if item 1 of theLine = char 1 to -2 of theName then
set the itemDelimiter to numToChar(11)
put item 1 of replaceSmileys(char 1 to -2 of it) into myTextWithSmileys
if last char of myTextWithSmileys is return then delete last char of myTextWithSmileys
replace "<br>" with space in myTextWithSmileys
set the itemDelimiter to tab
set the htmlText of item 2 of line x of field "members" of card "chat" to myTextWithSmileys
exit repeat
end if
end repeat
read from socket theIP until return with message "loggedIn"
end setMouse
on mail theIP theMessage
revmail word one of theMessage,,word 2 to -1 of theMessage
read from socket theIP until return with message "loggedIn"
end mail
on member theIP theMessage
if field "login sound" of card "settings" = "beep" then
beep
else if field "login sound" of card "settings" = "" then
--do nothing here
else
set the currentTime of player "login sound" of card "chat" to 1
start player "login sound" of card "chat"
end if
if char 1 to -2 of theMessage is not among the lines of field "Members" of card "chat" then
put char 1 to -2 of theMessage & return after field "Members" of card "chat"
end if
read from socket theIP until return with message "loggedIn"
end member
on unmember theIP theMessage
if field "login sound" of card "settings" = "beep" then
beep
else if field "login sound" of card "settings" = "" then
--do nothing here
else
set the currentTime of player "login sound" of card "chat" to 1
start player "login sound" of card "chat"
end if
set the itemDelimiter to tab
repeat for each line theLine in field "members" of card "chat"
add one to x
if item 1 of theLine = item 1 of theMessage then
delete line x of field "members" of card "chat"
exit repeat
end if
end repeat
read from socket theIP until return with message "loggedIn"
end unmember
on serverError theIP theMessage
log "server error:" && char 1 to -2 of theMessage
disconnect
end serverError
on error theMessage
log "error:" && theMessage
-- made disconnection conditional because if socket is already open
-- you don't necessarily want to quit - Mark S
if "already open" is not in theMessage then
disconnect
end if
end error
on socketError theID, TheError
error "socketError" && theerror
end socketError
on log theError
--put return & theError after url "file:error log.txt"
put theError & return before field log of card 1
end log
-- handler added by Mark S
on sendAwayMessage theMessage
put (fld "Autoreply message" of cd 4) into myAutoReplyMsg
-- put char 4 to -5 of theMessage into theMessage
put char 1 to -2 of word 3 of theMessage into myUserName
if myAutoReplyMsg is not in theMessage then
if (word 1 to 2 of theMessage is "msg from") and (char 1 to 6 of word 3 of theMessage is not "server") then
if the label of btn "Status" of cd 2 is "Away" then
put "/msg" && myUserName & space into fld "Enter" of cd 2
if the cLastMessageSentTime of this cd is not empty then
put the cLastMessageSentTime of this cd into myIdleTime
convert myIdleTime to seconds
put (the seconds - myIdleTime) into myIdleTime
put " (" & "for" && myIdleTime && "seconds)" after myAutoReplyMsg
end if
repeat with x = 1 to number of chars of myAutoReplyMsg
put char x of myAutoReplyMsg after fld "Enter" of cd 2
end repeat
send chatOut to fld "Enter" of cd 2
put empty into fld "Enter" of cd 2
end if
end if
end if
end sendAwayMessage
/*
The following handlers serve the forum
*/
on thread theIP theMessage
put char 1 to -2 of theMessage into theCount
read from socket theIP for theCount
put it into fld "Text" of cd "Forum"
send ("makeLinks" && quote & "text" & quote) to cd "Forum"
read from socket theIP until return with message "loggedIn"
end thread
on threads theIP theMessage
put char 1 to -2 of theMessage into theCount
read from socket theIP for theCount
put it into field "threads" of cd "Forum"
-- set the twelveHourTime to false
-- put the long system time into field "time" of cd "Forum"
read from socket theIP until return with message "loggedIn"
end threads
on answerIt theIP theMessage
answer char 1 to -2 of theMessage
log "answer error:" && char 1 to -2 of theMessage
read from socket theIP until return with message "loggedIn"
end answerIt
/*
End of the forum handlers
Start of handling File Requests
*/
on handleFileRequest theIP theRemoteUser
global gChatRevShortName
delete last char of theRemoteUser
read from socket theIP until return
put char 1 to -2 of it into myFilePath
read from socket theIP until return
put char 1 to -2 of it into myFileDescription
send "storeRequest theRemoteUser,myFilePath,myFileDescription" to btn "File Request" of cd "Chat" of stack gChatRevShortName
read from socket theIP until return with message "loggedIn"
-- put the result
end handleFileRequest
on handleFileAccept theIP theRemoteUser
global gChatRevShortName
delete last char of theRemoteUser
read from socket theIP until return
put char 1 to -2 of it into myFilePath
read from socket theIP until return
put char 1 to -2 of it into myRcvdInfo
if validIP(myRcvdInfo) then
beep
-- replace the following line by putting a message into the file request window
-- e.g. "accepted by destination user and sending now".
answer information "User" && theRemoteUser && "with IP" && myRcvdInfo && "accepted your file request."
send "sendFile myRcvdInfo,myFilePath,theRemoteUser" to stack "Send File Request"
else
beep
answer error "User" && theRemoteUser && "rejected your file request, because:" & return & wrapLines(myRcvdInfo)
end if
read from socket theIP until return with message "loggedIn"
end handleFileAccept
function wrapLines theData
put 0 into y
repeat with x = 1 to number of words of theData
add 1 to y
if x > 11 then
put return before word (x+1) of theData
put 0 into y
end if
end repeat
return theData
end wrapLines
on socketClosed
error "You got disconnected."
disconnect
end socketClosed
Name ip non enterInField select text fld "Pass" end enterInField on returnInField enterInField end returnInField x TJ cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 129,69,366,91Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -232 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum b;_ revUniqueID 1090155867286 bookmarks handlerList enterInField returnInField tempScript prevHandler enterInFieldscriptSelection char 40 to 39script @on enterInField
select text fld "Pass"
end enterInField
on returnInField
enterInField
end returnInField
pass ip xon enterInField send "mouseUp" to btn "Connect" end enterInField on returnInField enterInField end returnInField x uJ cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 129,95,323,115Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -232 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum E/ͫe =˚u} revUniqueID 1090155872438 bookmarks handlerList enterInField returnInField tempScript prevHandler enterInFieldscriptSelection char 100 to 99script >on enterInField
send "mouseUp" to btn "Connect"
end enterInField
on returnInField
enterInField
end returnInField
Field 2 D S 2 cREVGeneral revUniqueID 1090155882974 Name Field 2 / u G cREVGeneral revUniqueID 1090155894748 Password Servers i i l cREVGeneral revUniqueID 1093783792002 Field 3 @ 6 cREVGeneral revUniqueID 1090416205814 IP Y Port ip on closeField if me is empty then put "80" into me put the label of btn "IP List" & colon & me into fld "IP" end closeField on enterInField closeField end enterInField on returnInField closeField end returnInField : cREVGeometry Master,movehDistance -181 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,movevDistance falseMaster,scalebottomDistance Master,expectedRect 406,210,464,232Master,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.2375 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,moveHAbsolute trueMaster,scaletopDistance Master,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum *F Mhc revUniqueID 1093553953002 bookmarks handlerList %closeField enterInField returnInField tempScript prevHandler closeFieldscriptSelection char 41 to 52scripton closeField
if me is empty then put "80" into me
put the label of btn "IP List" & colon & me into fld "IP"
end closeField
on enterInField
closeField
end enterInField
on returnInField
closeField
end returnInField
Z * cREVGeometry Master,expectedRect 360,210,402,231Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -237Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1093553957003 Port ^ Default Ex 3on mouseUp put "80" into fld "Port" end mouseUp # R Set the port to default cREVGeometry Master,expectedRect 489,210,571,232Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -94Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum >g! [xHC revUniqueID 1093555358001 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 21 to 20scripton mouseUp
put "80" into fld "Port"
end mouseUp
a IP List e+uCon enterInField if the label of me is not empty then if lineoffset(the label of me,me) = 0 then put (the label of me) & return before me end if put the label of me & colon & fld "Port" of cd 1 into fld "IP" end if end enterInField on menuPick if the optionKey is down then delete line (the menuHistory of me) of me set the label of me to line 1 of me if the lable of me is not empty then put the label of me & colon & fld "Port" of cd 1 into fld "IP" end if end if end menuPick on returnInField enterInField end returnInField x cREVGeometry Master,expectedRect 122,211,276,233Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -277Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum YYxzt O g' revUniqueID 1093556362001 bookmarks handlerList #enterInField menuPick returnInField tempScript prevHandler enterInFieldscriptSelection char 514 to 513script won enterInField
if the label of me is not empty then
if lineoffset(the label of me,me) = 0 then
put (the label of me) & return before me
end if
put the label of me & colon & fld "Port" of cd 1 into fld "IP"
end if
end enterInField
on menuPick
if the optionKey is down then
delete line (the menuHistory of me) of me
set the label of me to line 1 of me
if the lable of me is not empty then
put the label of me & colon & fld "Port" of cd 1 into fld "IP"
end if
end if
end menuPick
on returnInField
enterInField
end returnInField
Field @ . H cREVGeneral revUniqueID 1093776992003 IP URL IP URL e+u]constant dot="." on enterInField if the label of me is not empty then if lineoffset(the label of me,me) = 0 then put (the label of me) & return before me end if end if menuPick end enterInField on menuPick put (the label of me) into myURL if the optionKey is down then delete line (the menuHistory of me) of me set the label of me to line 1 of me end if if ("http://" is not in myURL) and ("ftp://" is not in myURL) then put "http://" before myURL put url myURL into myIP if correctIP(myIP) then set the label of btn "IP List" to myIP send "enterInField" to btn "IP List" end if end menuPick on returnInField enterInField end returnInField function correctIP myIP put false into myCorrectIPFlag if myIP is not empty then if the number of lines of myIP = 1 then set the itemDelimiter to dot repeat with x = 1 to number of items of myURL if x > 4 then put false into myCorrectIPFlag exit repeat else if item x of myIP is not a number then put false into myCorrectIPFlag exit repeat else if (item x of myIP) < 0 or (item x of myIP > 255) then put false into myCorrectIPFlag exit repeat end if put true into myCorrectIPFlag end repeat end if end if return myCorrectIPFlag end correctIP x cREVGeometry Master,expectedRect 122,251,571,273Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -54Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum '6LaI䞀͡pv breakPoints handlerList -enterInField menuPick returnInField correctIPscriptSelection char 282 to 281 bookmarks revUniqueID 1093777078001 prevHandler enterInField tempScript scriptconstant dot="."
on enterInField
if the label of me is not empty then
if lineoffset(the label of me,me) = 0 then
put (the label of me) & return before me
end if
end if
menuPick
end enterInField
on menuPick
put (the label of me) into myURL
if the optionKey is down then
delete line (the menuHistory of me) of me
set the label of me to line 1 of me
end if
if ("http://" is not in myURL) and ("ftp://" is not in myURL) then put "http://" before myURL
put url myURL into myIP
if correctIP(myIP) then
set the label of btn "IP List" to myIP
send "enterInField" to btn "IP List"
end if
end menuPick
on returnInField
enterInField
end returnInField
function correctIP myIP
put false into myCorrectIPFlag
if myIP is not empty then
if the number of lines of myIP = 1 then
set the itemDelimiter to dot
repeat with x = 1 to number of items of myURL
if x > 4 then
put false into myCorrectIPFlag
exit repeat
else if item x of myIP is not a number then
put false into myCorrectIPFlag
exit repeat
else if (item x of myIP) < 0 or (item x of myIP > 255) then
put false into myCorrectIPFlag
exit repeat
end if
put true into myCorrectIPFlag
end repeat
end if
end if
return myCorrectIPFlag
end correctIP
* Smiley @ $ n cREVGeometry Master,expectedRect 497,108,512,124Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -137Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1093962932002 Z iTunes `e Zon mouseUp if the hilite of me is true then setTooltip2iTunes end if end mouseUp 0Show the currently playing song in your tooltip iTunes track in tooltip cREVGeometry Master,movehDistance -95 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 588,414,729,436Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.0375Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum ҿ^زo£E bookmarks revUniqueID 1094415369771 handlerList mouseUpscriptSelection char 77 to 76 prevHandler mouseUp tempScript script con mouseUp
if the hilite of me is true then
setTooltip2iTunes
end if
end mouseUp
d Peek ex on mouseUp put the selection of btn "IP List" into myIP if myIP is empty then put the selection of btn "IP URL" into myIPUrl if myIPUrl is empty then beep answer "Please, enter an IP number or IP URL first." with "Okay" exit mouseUp else put url myIPUrl into myIP if the result is not empty then beep answer "Please, enter an IP number or choose a different IP URL." with "Okay" exit mouseUp end if end if set the label of btn "IP List" to myIP send "enterInField" to btn "IP List" end if set the cursor to watch put myIP & ":8008" into theIP open socket to theIP with message connected put the result into rslt if rslt is not empty then beep answer rslt end if end mouseUp on connected theIP read from socket theIP with message "chatters" end connected on chatters theIP theMessage if the number of chars in theMessage < 1 then put "no chatters" into theMessage else if last char of theMessage is return then delete last char of theMessage replace return with "; " in theMessage put "Current chatters: " before theMessage end if answer information theMessage close socket theIP end chatters R S development false .Check who is on-line before entering the chat Peek cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 465,92,551,114Master,movehDistance -164Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum un! Z̗d breakPoints handlerList mouseUp connected chattersscriptSelection char 788 to 787 revUniqueID 1100294247139 bookmarks tempScript prevHandler chattersscripton mouseUp
put the selection of btn "IP List" into myIP
if myIP is empty then
put the selection of btn "IP URL" into myIPUrl
if myIPUrl is empty then
beep
answer "Please, enter an IP number or IP URL first." with "Okay"
exit mouseUp
else
put url myIPUrl into myIP
if the result is not empty then
beep
answer "Please, enter an IP number or choose a different IP URL." with "Okay"
exit mouseUp
end if
end if
set the label of btn "IP List" to myIP
send "enterInField" to btn "IP List"
end if
set the cursor to watch
put myIP & ":8008" into theIP
open socket to theIP with message connected
put the result into rslt
if rslt is not empty then
beep
answer rslt
end if
end mouseUp
on connected theIP
read from socket theIP with message "chatters"
end connected
on chatters theIP theMessage
if the number of chars in theMessage < 1 then
put "no chatters" into theMessage
else
if last char of theMessage is return then delete last char of theMessage
replace return with "; " in theMessage
put "Current chatters: " before theMessage
end if
answer information theMessage
close socket theIP
end chatters
| Create a jwj cREVGeneral revUniqueID 1100301722419 w create )` # h cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -96Master,expectedRect 35,186,662,403Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1100301657728 h x ` z y Create Ex 6--on mouseUp -- if field "thread" = "" then -- answer "enter a thread name in the first field, please." -- exit mouseUp -- end if -- put field "name" of card 1 of this stack & ":" & return before field "create" -- put the selectedtext of button "tab" into theForum -- put field "thread" into theThread -- put the number of chars in field "create" into theCount -- write "makeThread" & return & theForum & return & theThread & return & theCount & return & field "create" to socket field "IP" of card 1 of this stack -- put empty into field "create" -- put "Name of thread" into field "thread" -- hide group "create" -- show group "read" --end mouseUp on mouseUp if field "thread" = "" then answer "enter a thread name in the first field, please." exit mouseUp end if put field "name" of card 1 of stack "Chatrev" & ":" & return before field "create" put the selectedtext of button "tab" into theForum put field "thread" into theThread put the number of chars in field "create" into theCount write "makeThread" & return & theForum & return & theThread & return & theCount & return & field "create" to socket field "IP" of card 1 of stack "Chatrev" put "Contents of new post" into field "create" put "Name of thread" into field "thread" hide group "create" show group "read" end mouseUp # R cREVGeometry Master,movevDistance -76Master,scalebottomDistance Master,expectedRect 36,441,118,464Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ̼[,O{IR$Vg bookmarks revUniqueID 1100301657729 handlerList mouseUpscriptSelection char 669 to 668 prevHandler mouseUp tempScript script--on mouseUp
-- if field "thread" = "" then
-- answer "enter a thread name in the first field, please."
-- exit mouseUp
-- end if
-- put field "name" of card 1 of this stack & ":" & return before field "create"
-- put the selectedtext of button "tab" into theForum
-- put field "thread" into theThread
-- put the number of chars in field "create" into theCount
-- write "makeThread" & return & theForum & return & theThread & return & theCount & return & field "create" to socket field "IP" of card 1 of this stack
-- put empty into field "create"
-- put "Name of thread" into field "thread"
-- hide group "create"
-- show group "read"
--end mouseUp
on mouseUp
if field "thread" = "" then
answer "enter a thread name in the first field, please."
exit mouseUp
end if
put field "name" of card 1 of stack "Chatrev" & ":" & return before field "create"
put the selectedtext of button "tab" into theForum
put field "thread" into theThread
put the number of chars in field "create" into theCount
write "makeThread" & return & theForum & return & theThread & return & theCount & return & field "create" to socket field "IP" of card 1 of stack "Chatrev"
put "Contents of new post" into field "create"
put "Name of thread" into field "thread"
hide group "create"
show group "read"
end mouseUp
z Back Ex Bon mouseUp hide group "create" show group "read" end mouseUp R cREVGeometry Master,movevDistance -76Master,scalebottomDistance Master,expectedRect 122,441,204,464Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum 2[^Ω@ revUniqueID 1100301657730 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 11 to 10script pon mouseUp
hide group "create"
show group "read"
end mouseUp
{ Thread i` n cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 137,118,663,139Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -120 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1100301657731 h Field @ o f cREVGeneral revUniqueID 1100302354916 h Thread name: Field @ J cREVGeneral revUniqueID 1100302355669 h Text: } Read i Uz~ cREVGeneral revUniqueID 1100301835800 j Threads )x on mouseUp global gChatRevShortName if the selectedtext of me <> "" then --put line (word two of the selectedline) of the times of this stack into field "threadTime" write "getThread" & return & the selectedtext of button "tab" & return & (item 1 of the selectedtext of me) & return to socket field "IP" of card 1 of stack gChatRevShortName end if end mouseUp on selectionChanged mouseUp end selectionChanged " k v cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 34,131,666,237Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -40 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum >)D~'Ds bookmarks revUniqueID 1100301657718 handlerList mouseUp selectionChangedscriptSelection char 263 to 262 prevHandler mouseUp tempScript script ron mouseUp
global gChatRevShortName
if the selectedtext of me <> "" then
--put line (word two of the selectedline) of the times of this stack into field "threadTime"
write "getThread" & return & the selectedtext of button "tab" & return & (item 1 of the selectedtext of me) & return to socket field "IP" of card 1 of stack gChatRevShortName
end if
end mouseUp
on selectionChanged
mouseUp
end selectionChanged
k ` | t l text )p ?on linkClicked theURL handleThisLink theURL end linkClicked #*i cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -65Master,expectedRect 33,275,666,463Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -41Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum 6 Fbѯܸ{7 breakPoints handlerList linkClickedscriptSelection char 19 to 18 bookmarks revUniqueID 1100301657719 prevHandler linkClicked tempScript scripton linkClicked theURL
handleThisLink theURL
end linkClicked
h m ` {+ n Post reply Ex on mouseUp --if the selectedtext of field "threads" = "" then --answer "Please select a thread to answer to." --exit mouseUp --end if hide group "read" show group "edit" end mouseUp ` Y ^ cREVGeometry Master,movehDistance -294 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 406,77,482,99Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.385335Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum ];$?V#tx bookmarks revUniqueID 1100301657720 handlerList mouseUpscriptSelection char 140 to 139 prevHandler mouseUp tempScript scripton mouseUp
--if the selectedtext of field "threads" = "" then
--answer "Please select a thread to answer to."
--exit mouseUp
--end if
hide group "read"
show group "edit"
end mouseUp
o Make thread Ex Bon mouseUp hide group "read" show group "create" end mouseUp Y h cREVGeometry Master,movehDistance -166 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 494,77,570,99Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.177847Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum IǴmfQ5t bookmarks revUniqueID 1100301657721 handlerList mouseUpscriptSelection char 63 to 62 prevHandler mouseUp tempScript script pon mouseUp
hide group "read"
show group "create"
end mouseUp
Field @ y d cREVGeneral revUniqueID 1100302314563 h Threads: Field @ d cREVGeneral revUniqueID 1100302314564 h Text: ~ Edit a pze cREVGeneral revUniqueID 1100301892755 s edit )` " l cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -98Master,expectedRect 34,131,666,427Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -39 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1100301657725 h t ` } u Reply ex 3--on mouseUp -- if the selectedtext of field "threads" = "" then -- answer "select a thread to reply to, please." -- exit mouseUp -- end if -- put field "name" of card 1 of this stack & ":" & return before field "edit" -- put the selectedtext of button "tab" into theForum -- put the selectedtext of field "threads" into theThread -- put the number of chars in field "edit" into theCount -- write "postReply" & return & theForum & return & theThread & return & theCount & return & field "edit" to socket field "IP" of card 1 of this stack -- put empty into field "edit" -- hide group "edit" -- show group "read" --end mouseUp on mouseUp global gChatRevShortname put item 1 of value(the selectedLine of fld "Threads") into theThread if theThread is not an integer then beep answer error "select a thread to reply to, please." else --date & cr & name & ":" & cr & fld "Edit" put forumDate() & return & field "name" of card 1 of stack gChatRevShortname & ":" & return before field "edit" put the selectedtext of button "tab" into theForum put item 1 of value(the selectedLine of fld "Threads") into theThread put the number of chars in field "edit" into theCount write "postReply" & return & theForum & return &theThread & return & theCount & return & field "edit" to socket field "IP" of card 1 of stack gChatRevShortname put empty into field "edit" hide group "edit" show group "read" end if end mouseUp function forumDate return (the short date && the short time && last word of the internet date) end forumDate ! R Submit cREVGeometry Master,movevDistance -74Master,scalebottomDistance Master,expectedRect 33,439,115,462Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum Ā͚s^ bookmarks revUniqueID 1100301657726 handlerList mouseUp forumDatescriptSelection char 758 to 757 prevHandler mouseUp tempScript script--on mouseUp
-- if the selectedtext of field "threads" = "" then
-- answer "select a thread to reply to, please."
-- exit mouseUp
-- end if
-- put field "name" of card 1 of this stack & ":" & return before field "edit"
-- put the selectedtext of button "tab" into theForum
-- put the selectedtext of field "threads" into theThread
-- put the number of chars in field "edit" into theCount
-- write "postReply" & return & theForum & return & theThread & return & theCount & return & field "edit" to socket field "IP" of card 1 of this stack
-- put empty into field "edit"
-- hide group "edit"
-- show group "read"
--end mouseUp
on mouseUp
global gChatRevShortname
put item 1 of value(the selectedLine of fld "Threads") into theThread
if theThread is not an integer then
beep
answer error "select a thread to reply to, please."
else
--date & cr & name & ":" & cr & fld "Edit"
put forumDate() & return & field "name" of card 1 of stack gChatRevShortname & ":" & return before field "edit"
put the selectedtext of button "tab" into theForum
put item 1 of value(the selectedLine of fld "Threads") into theThread
put the number of chars in field "edit" into theCount
write "postReply" & return & theForum & return &theThread & return & theCount & return & field "edit" to socket field "IP" of card 1 of stack gChatRevShortname
put empty into field "edit"
hide group "edit"
show group "read"
end if
end mouseUp
function forumDate
return (the short date && the short time && last word of the internet date)
end forumDate
v Back Ex @on mouseUp hide group "edit" show group "read" end mouseUp R cREVGeometry Master,movevDistance -74Master,scalebottomDistance Master,expectedRect 133,439,215,462Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum & P?n '9 revUniqueID 1100301657727 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 11 to 10script non mouseUp
hide group "edit"
show group "read"
end mouseUp
Field @ t d cREVGeneral revUniqueID 1100345063853 h Reply: Enable speech `E 7 ] Read incoming messages aloud cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 596,255,689,277Master,movehDistance -80Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral revUniqueID 1100305989476 bookmarks handlerList mouseUp tempScript prevHandler script ? bC & Don mouseUp go to card 5 of stack "HELP" as modeless end mouseUp _ X - + 1 ( cREVGeometry Master,movehDistance -64 Master,scaleRightscaleBottom trueMaster trueMaster,moveHObjectRef cardMaster,expectedRect 318,92,400,115Master,scalebottomDistance Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance -0.063963Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum uq%Lb` bookmarks revUniqueID 1092394114380 handlerList mouseUpscriptSelection char 27 to 26 prevHandler mouseUp tempScript scripton mouseUp
go to card 5 of stack "HELP" as modeless
end mouseUp
Tab } on menuPick theMenu write "threads" & return & theMenu & return to socket (field "IP" of card 1 of this stack) put the result into rslt if rslt is not empty then beep answer rslt end if -- set the twelveHourTime to false -- put the long system time into field "time" put empty into fld "Text" end menuPick --on mouseUp -- menupick the selectedtext of me --end mouseUp @ General discussion !General discussion Support forum cREVGeneral scriptChecksum =E+É g3l B revUniqueID 1100301929561 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 316 to 315scripton menuPick theMenu
write "threads" & return & theMenu & return to socket (field "IP" of card 1 of this stack)
put the result into rslt
if rslt is not empty then
beep
answer rslt
end if
-- set the twelveHourTime to false
-- put the long system time into field "time"
put empty into fld "Text"
end menuPick
--on mouseUp
-- menupick the selectedtext of me
--end mouseUp
$i E - cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleLeftObjectRef cardMaster,scaleTopObjectRef card Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleLeftObjectSide LeftMaster,scaleTopObjectSide TopMaster,movevDistance falseMaster,scalebottomDistance -33Master,expectedRect 20,82,622,477Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -24Master,scaleLeftAbsolute trueMaster,scaleTopAbsolute true Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleLeft trueMaster,scaleTop trueMaster,cardRanking 4Master,scaletopDistance 69Master,scaleleftDistance 22 cREVGeneral revUniqueID 1100365112724 , i cREVGeneral revUniqueID 1093109324984 bookmarks handlerList tempScript prevHandler script * Go } on menuPick themenu if theMenu = "Chat" then go card "chat" else if theMenu = "Settings" then go card "settings" else if theMenu is "Forum" then go cd "Forum" else go card "Login" end if pass menupick end menuPick Login Chat Forum Settings cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 8,30,632,485Master,scalebottomDistance -18Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -9 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum N]zuY.C c revUniqueID 1093107629144 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 181 to 180script 9on menuPick themenu
if theMenu = "Chat" then
go card "chat"
else if theMenu = "Settings" then
go card "settings"
else if theMenu is "Forum" then
go cd "Forum"
else
go card "Login"
end if
pass menupick
end menuPick
Popup Test ţu on menuPick w set the itemDel to tab put item 1 of the selectedText of fld "Members" into myMember if myMember is not empty then userAction w,myMember end menuPick : f 7Send Private Message See Profile Send E-Mail Send File cREVGeneral scriptChecksum /"!B^=̢ breakPoints handlerList menuPickscriptSelection char 157 to 156 bookmarks revUniqueID 1100916244641 prevHandler menuPick tempScript scripton menuPick w
set the itemDel to tab
put item 1 of the selectedText of fld "Members" into myMember
if myMember is not empty then userAction w,myMember
end menuPick
Change Colour C Aon mouseUp open stack "Colour Palette" as palette end mouseUp 8 Change text colour cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -59Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 574,447,598,468Master,scalebottomDistance Master,movevDistance -43Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,scaletopDistance Master,moveHAbsolute true Master,moveH true cREVGeneral scriptChecksum ;** &~:m bookmarks revUniqueID 1101007601334 handlerList mouseUpscriptSelection char 11 to 10 prevHandler mouseUp tempScript scripton mouseUp
open stack "Colour Palette" as palette
end mouseUp
application icon.gif @ F @ @ GIF89a@ @ ## ))(JJIaa`^^]cbQHG:{sRQDÝٰݴÒuƤ76-kiXѱ~jsq_<;2@?6ۺͦԭn{xd][LXVH沰휛NL@,+%/.(('"%$ ¿~~~zzzuuuqqqmmmiiieeecccZZZYYYVVVUUURRRQQQOOOMMMJJJIIIFFFDDDCCC@@@>>>;;;999666444333111///---+++&&&%%%### ! , @ @ H*\ȰÇ#Jln_ Mܨܺ{.s6 0 pѻ/?weY5l{Gnu+ЩCG8lіɫ^=6'Qf{ʪ֓&ORP- X@A[*\0Bޓt@mZ]U@Ǎ'@̘j57bĪȝxɧIO,6σ 1a X0ԍ+[8 2r *e *DƁ V/-Xon mouseUp
restoreStyleMenu
checkMenuItem
checkFontMenuItem
end mouseUp
on setMenus
checkMenuItem
checkFontMenuItem
end setMenus
on restoreStyleMenu
put the fontNames into myFontList
sort lines of myFontList
repeat with x = 1 to number of lines of myFontList
put tab before line x of myFontlist
end repeat
put the cMenu of me into myMenu
put return & myFontList after line 1 of myMenu
put myMenu into btn "Style" of group "ChatBar"
end restoreStyleMenu
on checkMenuItem -- t e x t s i z e
global gChatRevShortname
put the textSize of fld "Chat" of cd "Chat" of stack gChatRevShortname into theSize
put the text of menu "Style" into myMenu
put lineOffset("Size",myMenu) into m
put 12 into myNrOfItems
put line m to (m + myNrOfItems) of myMenu into mySizes
put lineOffset(tab & theSize,mySizes) into myCheckThisItem
if myCheckThisItem is not 0 then
put (myCheckThisItem + m - 1) into myCheckThisItem
put "!c" before line myCheckThisItem of menu "Style"
end if
end checkMenuItem
on checkFontMenuItem -- f o n t s i z e
global gChatRevShortname
put the textFont of fld "Chat" of cd "Chat" of stack gChatRevShortname into theFont
put the text of menu "Style" into myMenu
put lineOffset("Font",myMenu) into m
put the number of lines of fontnames() into myNrOfItems
put line m to (m + myNrOfItems) of myMenu into myFonts
put lineOffset(tab & theFont,myFonts) into myCheckThisItem
if myCheckThisItem is not 0 then
put (myCheckThisItem + m - 1) into myCheckThisItem
put "!c" before line myCheckThisItem of menu "Style"
end if
end checkFontMenuItem
clr palette 2 copy.gif @ Z GIF89a & dĉ%2 =߮xC , WpUjX &y֕qTC<$t⽰\.ϵ Ah2t>%"nHAV4 1.6fgft= ; cREVGeneral revUniqueID 1101527806306 clr palette 2 gray.gif @ Z GIF89a !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~, "DH A2hA4paÆ<1arXCx(5ZhKVCJ.cTiUgg4HZJիWΙ3w)RM:jON,W\U<[ ݷpzDMr. ; cREVGeneral revUniqueID 1101527816048 doc aqua.png ] * * PNG IHDR * * [ uiCCPPhotoshop ICC profile xJAϮQHe5Xh( `LK HY6 0DRX bc|`%VVX(b흌!(e.qo) +lk{ >!!D1]a Y= 5 STiL8jN(.k^P| $BB
|eE?[`9j3$@*;_'>b'
00BL+_p3 ʌ!
EP =柿Hy\4l?pr a[i@7 CCkL@&pc AW ǂZ?6N!
2'#7PwԨL$ %f0Ap3iVxA
)*ín}8N!^^oQIV,H -eh
[ F@q\ +6?x HHǾHA
iTGq4>
@ t(2< t
Qpk 1P J I GG0 գ_ IENDB` cREVGeneral revUniqueID
1101823590067 / trash white.png ] * * PNG
IHDR * * [ uiCCPPhotoshop ICC profile xJAϮQHe5Xh( `LK HY6 0DRX bc|`%VVX(b흌!(e.qo)
+lk{
>!!D1]a Y= 5 STiL8jN(.k^P| $BB Q?0,v1G07% @,І7$!IV<1C{ƿz vO!";r0~l <-
M mbCB a$fp@lFHE70$>' _x. 8}B
yF !р Pa v~|*S?}ε$_0P G@q(( f i bЀ.~Av1`5cE 9U)(~37OAnl?7 cA xF{QfH&WP XWd %Rw`A߿_e>$-Hr{&: @!
\`G35@L.s `9
G"[X&^^ PX2כ1 P7r#@ ;ѵ? >8T
]fFNNB_>|` 9/.`!
Qpq&pd7
P7g %V L[$u dCe2 /
;y&iy('Q$15rM a\sGDj=SYCh/U[3ܹZmTq:yb1K<g; fb6` ^M t0D
ZjR@XtH Z*
&UQW7yO˪OWwy^;.W5s>MZ$P
nj9
bLf
0 E}d:)W\[
m&c7N^H8^X[ɳUb9 Ժk/)f][wZjcmt8 )Վ3 T1`6{ء?3;˟?gԳGOM< ,\@PKE]m%%]*z/J
}t >}39 m o ط IP
.7{P̪* R- fxf"b X+},압?߯_~Bӧ_Pe7M0 ehA O^ lxyYqq2{ @gp/1Hߕ0agdF~/?{
L,/9I}q lp:7 88X3_
oO6@fD,
1qo4ۗϿ z2 @8o\]dOC PH $B#d`اo!!D1]a Y= 5 STiL8jN(.k^P| $BB
enable menuitem 4 of menu "File"
set the loc of me to the screenLoc
pass preOpenStack
end preOpenstack
on closeStack
disable menuitem 4 of menu "File"
end closeStack
cREVGeometryCache stackID 1024 @ S. cREVGeometryCacheIDs 1093568789002 10231093568764002 1020 cREVGeometrycache total 2order 1093568764002 @ S. cLastMessageSentTime 10:07:38 PM cREVGeneral bookmarks handlerList prevHandler tempScript script cREVGeometryCacheIDs 1093568789002 10231093568764002 1020 cREVGeometrycache total 2order 1093568764002 @ S. cREVGeometryCacheIDs 1093568789002 10231093568764002 1020 cREVGeometrycache total 2order 1093568764002 @ S. cREVGeometryCacheIDs 1093568789002 10231093568764002 1020 cREVGeometrycache total 2order 1093568764002 @ S. cREVGeometryCacheIDs 1093568789002 10231093568764002 1020 cREVGeometrycache total 2order 1093568764002 i _+ cREVGeneral revUniqueID 1093568789002 Field )x on mouseUp put the clickText into myClickedText if (myClickedText contains "http://") or (myClickedTest contains "@") then revGoURL myClickedText end if end mouseUp @W# cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleLeftObjectRef cardMaster,scaleTopObjectRef card Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleLeftObjectSide LeftMaster,scaleTopObjectSide TopMaster,movevDistance falseMaster,scalebottomDistance -13Master,expectedRect -2,-2,416,359Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance 2Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,scaleLeftAbsolute trueMaster,scaleTopAbsolute trueMaster,scaleLeft trueMaster,scaleTop trueMaster,cardRanking 4Master,scaletopDistance -2Master,scaleleftDistance -2 cREVGeneral scriptChecksum K/E qQ3:}E; revUniqueID 1093568764002 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 122 to 121scripton mouseUp
put the clickText into myClickedText
if (myClickedText contains "http://") or (myClickedTest contains "@") then
revGoURL myClickedText
end if
end mouseUp
Using ChatRev You are seeing the chat card. In the big field (top left) you can see chat messages. In the right field you see who is currently logged in. ZTo make a chat message yourself, write your message into the bottom field, and hit enter. Y You can type a humorous action by typing /me and your message into the lower field. Normally you would write something like this: /me laughs really hard @ Red )In the chat this will show up like this: (on retrieveSmileys
set the cursor to watch
implementedSmileys smiley
put empty into field "Smileys Overview"
set the itemDelimiter to tab
put 0 into z
put " efghijklmnopqrstuvwxyz" into myAlphabet
repeat with x = 1 to 4
repeat with y = 1 to 4
add 1 to z
get char z of myAlphabet
put char z of myAlphabet into item x of line y of field "Smileys Overview"
end repeat
end repeat
put 1 into x
put 0 into r
put 1 into k
put empty into mySmileysList
repeat until smiley[x] is empty
set the cursor to busy
add 1 to r
if r > (number of lines of fld "Smileys Overview") then
put 1 into r
add 1 to k
end if
-- put smileURL(smiley[x]) & return after mySmileysList
-- set the itemDelimiter to tab
set the imageSource of char 1 of item (k+1) of line r of field "Smileys Overview" to smileURL(smiley[x])
add 1 to x
end repeat
return mySmileysList
end retrieveSmileys
on preOpenStack
retrieveSmileys
if the cCustomLoc of me is empty then
put item 3 to 4 of the screenrect into myScrBotRight
set the bottomleft of me to ((item 1 of myScrBotRight - 278) & comma & (item 2 of myScrBotRight - 12))
else
set the bottomleft of me to the cCustomLoc of me
end if
end preOpenStack
on closeStack
lock screen
put empty into field "Smileys Overview"
set the cCustomLoc of me to the bottomLeft of me
end closeStack
@ cREVGeneral bookmarks handlerList prevHandler tempScript script cREVGeometryCacheIDs 1093717542002 10311093714439001 10071093711185001 1004 cREVGeometrycache total 3order Smileys Overview { on mouseUp global gChatRevShortName implementedSmileys smiley put " efghijklmnopqrstuvwxyz" into myAlphabet get the clickText put (offset(the clickText,myAlphabet)) into mySmileyNr put smiley[(mySmileyNr - (number of lines of me))] after field "Enter" of card 2 of stack gChatRevShortName if there is a field "Enter" of stack gChatRevShortName then select after text of field "Enter" of card 2 of stack gChatRevShortName end if end mouseUp : @ & h # s cREVTable formattedview topcellloc 14 leftcellloc 16currenthscroll 0currentxmouseloc 145bottomcellloc 34currentymouseloc 31 rightcellloc 91scrollbarwidth 16 cellyspacing 20rightfieldloc 191 topfieldloc 43 leftfieldloc 7 cellxspacing 65 currentview currentvscroll 0 viewablerows 6 currentxcell 1 currentycell 1currentcellvalue viewablecolumns 3 cellformat falsenumbertabstops 1 celledit falsebottomfieldloc 146 cREVGeneral scriptChecksum nl!SHi|table true breakPoints handlerList mouseUpscriptSelection char 88 to 87 bookmarks revUniqueID 1093711185001 prevHandler mouseUp tempScript scripton mouseUp
global gChatRevShortName
implementedSmileys smiley
put " efghijklmnopqrstuvwxyz" into myAlphabet
get the clickText
put (offset(the clickText,myAlphabet)) into mySmileyNr
put smiley[(mySmileyNr - (number of lines of me))] after field "Enter" of card 2 of stack gChatRevShortName
if there is a field "Enter" of stack gChatRevShortName then
select after text of field "Enter" of card 2 of stack gChatRevShortName
end if
end mouseUp
Button Ep (on mouseUp retrieveSmileys end mouseUp % R cREVGeneral scriptChecksum a!5Կ|{ bookmarks revUniqueID 1093714439001 handlerList mouseUpscriptSelection char 11 to 10 prevHandler mouseUp tempScript script uon mouseUp
retrieveSmileys
end mouseUp
Field @ ' cREVGeneral revUniqueID 1093717542002 bookmarks handlerList tempScript prevHandler script HClick on a smiley with your mouse to insert one in the text entry field Send File Request 3 on sendRequest theUser go stack (short name of me) in new window put theUser into fld "User" put "0/255" into fld "Chars" end sendRequest on enterInField set the hilite of btn "Send" to true wait 6 set the hilite of btn "Send" to false send mouseUp to btn "Send" end enterInField on returnInField enterInField end returnInField on enterKey enterInField end enterKey on returnkey enterInField end returnkey on sendFile theIP,theFile,theUserName set the itemDelimiter to "/" put last item of theFile into myFilename put (url ("binfile:" & theFile)) into myFileData put number of chars of myFileData into myFileLength put theIP & colon & "63663|" & baseconvert(the seconds,10,16) into mySocket open socket mySocket put the result into rslt if rslt is not empty then beep answer error rslt with "Cancel" close socket 63663 exit sendFile end if write "sendfile" & return & theUserName & return & myFileLength & comma & theFile & return to socket mySocket put "Send File Request" into sfr go stack sfr in new window lock screen show grp "Progress" of stack sfr hide grp "Description" of stack sfr put "Waiting for reply..." into fld "Status" of stack sfr set the thumbpos of scrollbar "Transfer" of stack sfr to 0 unlock screen sendFile1 myFileData,mySocket,myFileLength end sendFile on sendFile1 theFileData,theSocket,myStartLength put "Send File Request" into sfr if fld "Status" of stack sfr is not "Receiving file..." then lock screen put "Sending file..." into fld "Status" of stack sfr show grp "Progress" of stack sfr hide grp "Description" of stack sfr unlock screen end if put the number of chars of theFileData into myFileLength put (100-trunc(myFileLength/myStartLength*100)) into myProgress if the thumbpos of scrollbar "Transfer" of stack sfr is not myProgress then set the thumbpos of scrollbar "Transfer" of stack sfr to myProgress if myFileLength > 4096 then write char 1 to 4096 of theFileData to socket theSocket delete char 1 to 4096 of theFileData send "sendFile1 thefileData,theSocket,myStartLength" to me in 10 milliseconds else write char 1 to -1 of theFileData to socket theSocket set the thumbpos of scrollbar "Transfer" of stack sfr to 100 put "Transfer completed" into fld "Status" of stack sfr close socket theSocket wait 10 lock screen hide group "Progress" of stack sfr show group "Description" of stack sfr end if end sendFile1 on readyToReceiveMsg accept connections on port 63663 with message "getFile" end readyToReceiveMsg on getFile theIP thePort read from socket theIP until return if char 1 to -2 of it is "sendFile" then read from socket theIP until return -- user read from socket theIP until return --file put it into myFilePath set the itemDel to comma if item 1 of myFilePath is an integer then put item 1 of myFilePath into myFileLength set the itemDel to "/" put char 1 to -2 of the last item of it into myFilename ask file "Save received file as..." with myFilename put it into myNewFilePath if myNewFilePath is not empty then lock screen put "Waiting for data..." into fld "Status" of stack "Receiving" set the thumbPos of scrollbar "Progress" of stack "Receiving" to 0 go stack "Receiving" in new window unlock screen get 0 put empty into myFileData put the socketTimeoutInterval into myTimeout set the socketTimeoutInterval to 1000 getFile1 theIP,thePort,myTimeout,myFileData,myFilename,myFileLength,myFilePath,myNewFilePath end if else beep answer "An error occurred while contacting the sending computer to transfer a file." with "Cancel" close socket theIP close socket 63663 end if end if end getFile on getFile1 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath wait 10 millisecs with messages read from socket theIP for 4096 put the result into rslt -- an error check is not possible, as you never know what you're gonna get in the result. -- rslt contained an integer once, not sure whether this is an error --if (rslt is empty) or (rslt is "eof") or (rslt is an integer) then put (number of chars of theFileData) into myCurrLength put (trunc(myCurrLength/theFileLength*100)) into myProgress if fld "Status" of stack "Receiving" is not "Downloading file..." then put "Downloading file..." into fld "Status" of stack "Receiving" if the thumbPos of scrollbar "Progress" of stack "Receiving" is not myProgress then set the thumbPos of scrollbar "Progress" of stack "Receiving" to myProgress end if put it after theFileData if myCurrLength < theFileLength then send "getFile1 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath" to me in 10 millisecs else getFile2 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath end if --else --beep --answer rslt --end if end getFile1 on getFile2 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath set the thumbPos of scrollbar "Progress" of stack "Receiving" to 100 put "Ready" into fld "Status" of stack "Receiving" set the socketTimeoutInterval to theTimeout if last char of theFileData is linefeed then delete last char of theFileData put the fileType into myTempType set the fileType to "????????" put theFileData into url ("binfile:" & theNewFilePath) put the result into rslt if rslt is not empty then beep answer rslt end if set the fileType to myTempType close socket theIP close socket 63663 wait 2 secs close stack "Receiving" end getFile2 on preOpenstack show grp "Description" hide grp "Progress" put "Click the button above or drag a file into this field." into fld "File" put "Please, accept my file request." into fld "Description" end preOpenstack on socketClosed theIP close socket theIP -- not necessary? close socket 63663 end socketClosed !|@ liferesizing true Send File Request |@ W Geneva U Geneva U Geneva U Charcoal U usesystemfont U Charcoal cREVGeometryCache stackID 1033 cREVGeneral scriptChecksum }CʺcTWʃП bookmarks breakPoints handlerList sendRequest enterInField returnInField enterKey returnkey sendFile sendFile1 readyToReceiveMsg getFile getFile1 getFile2 preOpenstack socketClosedscriptSelection char 4451 to 4450 prevHandler enterInField tempScript script Don sendRequest theUser
go stack (short name of me) in new window
put theUser into fld "User"
put "0/255" into fld "Chars"
end sendRequest
on enterInField
set the hilite of btn "Send" to true
wait 6
set the hilite of btn "Send" to false
send mouseUp to btn "Send"
end enterInField
on returnInField
enterInField
end returnInField
on enterKey
enterInField
end enterKey
on returnkey
enterInField
end returnkey
on sendFile theIP,theFile,theUserName
set the itemDelimiter to "/"
put last item of theFile into myFilename
put (url ("binfile:" & theFile)) into myFileData
put number of chars of myFileData into myFileLength
put theIP & colon & "63663|" & baseconvert(the seconds,10,16) into mySocket
open socket mySocket
put the result into rslt
if rslt is not empty then
beep
answer error rslt with "Cancel"
close socket 63663
exit sendFile
end if
write "sendfile" & return & theUserName & return & myFileLength & comma & theFile & return to socket mySocket
put "Send File Request" into sfr
go stack sfr in new window
lock screen
show grp "Progress" of stack sfr
hide grp "Description" of stack sfr
put "Waiting for reply..." into fld "Status" of stack sfr
set the thumbpos of scrollbar "Transfer" of stack sfr to 0
unlock screen
sendFile1 myFileData,mySocket,myFileLength
end sendFile
on sendFile1 theFileData,theSocket,myStartLength
put "Send File Request" into sfr
if fld "Status" of stack sfr is not "Receiving file..." then
lock screen
put "Sending file..." into fld "Status" of stack sfr
show grp "Progress" of stack sfr
hide grp "Description" of stack sfr
unlock screen
end if
put the number of chars of theFileData into myFileLength
put (100-trunc(myFileLength/myStartLength*100)) into myProgress
if the thumbpos of scrollbar "Transfer" of stack sfr is not myProgress then set the thumbpos of scrollbar "Transfer" of stack sfr to myProgress
if myFileLength > 4096 then
write char 1 to 4096 of theFileData to socket theSocket
delete char 1 to 4096 of theFileData
send "sendFile1 thefileData,theSocket,myStartLength" to me in 10 milliseconds
else
write char 1 to -1 of theFileData to socket theSocket
set the thumbpos of scrollbar "Transfer" of stack sfr to 100
put "Transfer completed" into fld "Status" of stack sfr
close socket theSocket
wait 10
lock screen
hide group "Progress" of stack sfr
show group "Description" of stack sfr
end if
end sendFile1
on readyToReceiveMsg
accept connections on port 63663 with message "getFile"
end readyToReceiveMsg
on getFile theIP thePort
read from socket theIP until return
if char 1 to -2 of it is "sendFile" then
read from socket theIP until return -- user
read from socket theIP until return --file
put it into myFilePath
set the itemDel to comma
if item 1 of myFilePath is an integer then
put item 1 of myFilePath into myFileLength
set the itemDel to "/"
put char 1 to -2 of the last item of it into myFilename
ask file "Save received file as..." with myFilename
put it into myNewFilePath
if myNewFilePath is not empty then
lock screen
put "Waiting for data..." into fld "Status" of stack "Receiving"
set the thumbPos of scrollbar "Progress" of stack "Receiving" to 0
go stack "Receiving" in new window
unlock screen
get 0
put empty into myFileData
put the socketTimeoutInterval into myTimeout
set the socketTimeoutInterval to 1000
getFile1 theIP,thePort,myTimeout,myFileData,myFilename,myFileLength,myFilePath,myNewFilePath
end if
else
beep
answer "An error occurred while contacting the sending computer to transfer a file." with "Cancel"
close socket theIP
close socket 63663
end if
end if
end getFile
on getFile1 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath
wait 10 millisecs with messages
read from socket theIP for 4096
put the result into rslt
-- an error check is not possible, as you never know what you're gonna get in the result.
-- rslt contained an integer once, not sure whether this is an error
--if (rslt is empty) or (rslt is "eof") or (rslt is an integer) then
put (number of chars of theFileData) into myCurrLength
put (trunc(myCurrLength/theFileLength*100)) into myProgress
if fld "Status" of stack "Receiving" is not "Downloading file..." then put "Downloading file..." into fld "Status" of stack "Receiving"
if the thumbPos of scrollbar "Progress" of stack "Receiving" is not myProgress then
set the thumbPos of scrollbar "Progress" of stack "Receiving" to myProgress
end if
put it after theFileData
if myCurrLength < theFileLength then
send "getFile1 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath" to me in 10 millisecs
else
getFile2 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath
end if
--else
--beep
--answer rslt
--end if
end getFile1
on getFile2 theIP,thePort,theTimeout,theFileData,theFilename,theFileLength,theFilePath,theNewFilePath
set the thumbPos of scrollbar "Progress" of stack "Receiving" to 100
put "Ready" into fld "Status" of stack "Receiving"
set the socketTimeoutInterval to theTimeout
if last char of theFileData is linefeed then delete last char of theFileData
put the fileType into myTempType
set the fileType to "????????"
put theFileData into url ("binfile:" & theNewFilePath)
put the result into rslt
if rslt is not empty then
beep
answer rslt
end if
set the fileType to myTempType
close socket theIP
close socket 63663
wait 2 secs
close stack "Receiving"
end getFile2
on preOpenstack
show grp "Description"
hide grp "Progress"
put "Click the button above or drag a file into this field." into fld "File"
put "Please, accept my file request." into fld "Description"
end preOpenstack
on socketClosed theIP
close socket theIP -- not necessary?
close socket 63663
end socketClosed
card id 1002 ` |@ cREVGeneral bookmarks handlerList prevHandler tempScript script cREVGeometryCacheIDs 1100919705483 10111100919898785 10181100919582591 10051100951468945 10201101900095533 10291100988127773 10251100919894131 10161100952423239 10241100919589681 10071101926149557 10331101900106631 10311100919689541 10091100919837726 10141101900184994 1032 cREVGeometrycache total 14order ~1100919894131 1100919898785 1100951468945 1100919837726 1100919705483 1100952423239 1101926149557 1101900095533 1101900106631 User @ cREVGeneral revUniqueID 1100919582591 Field @ cREVGeneral revUniqueID 1100919589681 Send file request to: File i $] c cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 14,36,440,145Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -17 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1100919837726 Select File Ex on mouseUp answer file "Select a file to send..." if it is not empty then put it into fld "File" end if end mouseUp 8 _ cREVGeneral scriptChecksum 2-<#dav bookmarks revUniqueID 1100919689541 handlerList mouseUpscriptSelection char 48 to 47 prevHandler mouseUp tempScript scripton mouseUp
answer file "Select a file to send..."
if it is not empty then
put it into fld "File"
end if
end mouseUp
File )p on dragDrop put the dragdata["files"] into me end dragDrop on dragEnter focus me set the acceptDrop to true end dragEnter on dragLeave set the acceptDrop to false select empty end dragLeave WI & cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 24,88,430,136Master,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -27 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum m ϸ1%( bookmarks revUniqueID 1100919705483 handlerList dragDrop dragEnter dragLeavescriptSelection char 48 to 47 prevHandler tempScript script ]on dragDrop
put the dragdata["files"] into me
end dragDrop
on dragEnter
focus me
set the acceptDrop to true
end dragEnter
on dragLeave
set the acceptDrop to false
select empty
end dragLeave
Cancel Ex con mouseUp put empty into fld "User" put empty into fld "File" close this stack end mouseUp R cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -168Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -32Master,scalebottomDistance Master,expectedRect 247,267,329,289Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum xf\/WgU/ bookmarks revUniqueID 1100919894131 handlerList mouseUpscriptSelection char 67 to 66 prevHandler tempScript script con mouseUp
put empty into fld "User"
put empty into fld "File"
close this stack
end mouseUp
Send Mx 4on mouseUp global gChatRevShortName if noPendingTransfers() then put "Please, accept this file request." into myFileRequestMsg if there is not a file (fld "File") then beep answer error "Please select a file, first." if number of words of fld "Description" is 0 then put myFileRequestMsg into fld "Description" end if else if number of words of fld "Description" is 0 then beep answer error "A comment or file description is required." put myFileRequestMsg into fld "Description" else put "fileRequest" & return & fld "User" & return & fld "File" & return & fld "Description" & return into myMsg write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName) lock screen show grp "Progress" hide grp "Description" put "Waiting for reply..." into fld "Status" set the thumbPos of scrollbar "Transfer" to 0 unlock screen end if else beep answer "File transfers are in progress. Please try again, later." with "Cancel" end if end mouseUp R cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -61Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -32Master,scalebottomDistance Master,expectedRect 353,267,435,289Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum knJJ y bookmarks revUniqueID 1100919898785 handlerList mouseUpscriptSelection char 917 to 916 prevHandler mouseUp tempScript script 3on mouseUp
global gChatRevShortName
if noPendingTransfers() then
put "Please, accept this file request." into myFileRequestMsg
if there is not a file (fld "File") then
beep
answer error "Please select a file, first."
if number of words of fld "Description" is 0 then
put myFileRequestMsg into fld "Description"
end if
else if number of words of fld "Description" is 0 then
beep
answer error "A comment or file description is required."
put myFileRequestMsg into fld "Description"
else
put "fileRequest" & return & fld "User" & return & fld "File" & return & fld "Description" & return into myMsg
write myMsg to socket (fld "IP" of cd 1 of stack gChatRevShortName)
lock screen
show grp "Progress"
hide grp "Description"
put "Waiting for reply..." into fld "Status"
set the thumbPos of scrollbar "Transfer" to 0
unlock screen
end if
else
beep
answer "File transfers are in progress. Please try again, later." with "Cancel"
end if
end mouseUp
Description ,i ^ n Add file description or comment cREVGeneral revUniqueID 1100988127773 Description )p on rawKeyUp k if number of chars of me > 255 then put char 1 to 255 of me into me select after text of me end if put (number of chars of me) & "/255" into fld "Chars" end rawKeyUp J = cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -90Master,expectedRect 14,185,441,241Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -27Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum 'vz勎\A bookmarks revUniqueID 1100951468945 handlerList rawKeyUpscriptSelection char 181 to 180 prevHandler tempScript script Don rawKeyUp k
if number of chars of me > 255 then
put char 1 to 255 of me into me
select after text of me
end if
put (number of chars of me) & "/255" into