home *** CD-ROM | disk | FTP | other *** search
/ Treasure Hunt 2001 PRESSKIT / TH2001_PRESSKIT.iso / demo / scol_install / Partition / comm / comchat.pkg < prev    next >
Encoding:
Text File  |  2000-09-18  |  18.1 KB  |  848 lines
  1. /* Comchat.pkg */
  2.  
  3. defcom ChatACK = ChatACK S;; 
  4. defcom NewUser = NewUser S I S;; 
  5. defcom DelUser = DelUser S I S;; 
  6. defcom Hear = Hear S;; 
  7. defcom Info = Info S S;; 
  8. defcom ComClose= ComClose;; 
  9. defcom ComConnected= ComConnected S;; 
  10.  
  11. var RedirectText=0;; 
  12. var RedirectAudio=0;; 
  13. var RedirectEvents=0;; 
  14.  
  15. var sendvideo=0;;
  16.  
  17. typeof thischn=Chn;; 
  18. typeof thisenv=Env;; 
  19. typeof SendFileF=fun [ObjButton I] I;; 
  20.  
  21. var servernick="";; 
  22. var serverIP="";; 
  23. var MyNick="";; 
  24. var Nusers=0;; 
  25. var IsAServer=0;; 
  26. var PhoneASK=0;; 
  27. var FileSend=0;; 
  28.  
  29. struct TPlayer = [ PlayerChannel : Chn, PlayerNick : S , PlayerID : I , PlayerIP : S ] Const_Player ;; 
  30. typeof Players=[TPlayer r1];; 
  31. typeof CurrentUser=TPlayer;; typeof Chatw=ObjWin;; 
  32. typeof chattext=ObjText;; 
  33. typeof chatinput=ObjText;; 
  34. typeof userlist=ObjBox;; 
  35. typeof userinfo=ObjButton;; 
  36. typeof sendfile=ObjButton;; typeof connect=ObjButton;; 
  37. typeof VideoBMP=ObjBitmap;; 
  38. typeof Videobmp=ObjBitmap;; 
  39.  
  40. fun AddPlayer(player)= 
  41. { 
  42.   set Players=player::Players; 
  43. };; 
  44.  
  45. fun PlayerNickcmp (player,nick)=
  46.   if !(strcmp player.PlayerNick nick) then 1 else 0;; 
  47.  
  48. fun PlayerIPcmp (player,IP)=
  49.   if !(strcmp player.PlayerIP IP) then 1 else 0;; 
  50.  
  51. fun PlayerIDcmp (player,ID)=
  52.   if player.PlayerID==ID then 1 else 0;; 
  53.  
  54. fun PlayerChcmp (player,ch)=
  55.   if player.PlayerChannel==ch then 1 else 0;; 
  56.  
  57. fun GetPlayerByNick (s)=
  58.   searchlist Players @PlayerNickcmp s;; 
  59.  
  60. fun GetPlayerByChannel (s)=
  61.   searchlist Players @PlayerChcmp s;; 
  62.  
  63. fun GetPlayerByID (s)=
  64.   searchlist Players @PlayerIDcmp s;; 
  65.  
  66. fun GetPlayerByIP (s)=
  67.   searchlist Players @PlayerIPcmp s;; 
  68.  
  69. fun DelPlayerByID(id)=
  70.   deletelist Players GetPlayerByID id;; 
  71.  
  72. fun DelPlayerByIP(ip)=
  73.   deletelist Players GetPlayerByIP ip;; 
  74.  
  75. fun DelPlayerByNick(n)=
  76.   deletelist Players GetPlayerByNick n;; 
  77.  
  78. fun DelPlayerByChannel(ch)=
  79.   deletelist Players GetPlayerByChannel ch;; 
  80.  
  81. fun UpdateCurrentUser ()= 
  82. { 
  83.   let _GETcombo userlist->[rang nick] in 
  84.   { 
  85.     set CurrentUser=GetPlayerByNick nick; 
  86.   } 
  87. };; 
  88.  
  89. fun LedOn ()= 
  90.   0 
  91. ;; 
  92.  
  93. fun LedOff ()= 
  94.   0 
  95. ;; 
  96.  
  97. fun print(s)= 
  98.   _ADDtext chattext s; 
  99.   LimitText chattext 1000 14
  100. ;; 
  101.  
  102. fun ComAPIplug ()= 
  103.   _load "comm/comapi3.pkg"; 
  104.   _script "APIengage"
  105. ;; 
  106.  
  107. fun __Hear (s)= 
  108.   let GetPlayerByChannel _channel -> player in print strloc loc "HEAR" player.PlayerNick::s::nil; 
  109.   if (RedirectText==1) then 
  110.   { 
  111.     _on APIchn Hear [s]; 
  112.     0 
  113.   } 
  114.   else 0 
  115. ;; 
  116.  
  117. fun __Info (s1,s2)= 
  118. { 
  119.   let GetPlayerByChannel _channel -> player in 
  120.     print strcat strcat strcat s1 player.PlayerNick s2 "\n"; 
  121.   if (RedirectText==1) then 
  122.   { 
  123.     _on APIchn Info [s1 s2]; 
  124.     0 
  125.   } 
  126.   else 0 
  127. };; 
  128.  
  129. fun updatesendbutton ()= 
  130. { 
  131.   if (Nusers>1 || FileSend==1) then 
  132.   { 
  133.     if (sendfile!=nil) then 
  134.     { 
  135.       _DSbutton sendfile; 
  136.       set sendfile=nil; 
  137.       0 
  138.     } 
  139.     else 0 
  140.   } 
  141.   else 
  142.   { 
  143.     if (sendfile==nil) then 
  144.     { 
  145.       set sendfile=_CRbutton _channel Chatw 310 60 100 20 0 loc "SENDFILE"; 
  146.       _CBbutton sendfile SendFileF 0; 
  147.       0 
  148.     } 
  149.     else 0 
  150.   } 
  151. };; 
  152.  
  153. fun __NewUser (nick,ID,IP)= 
  154. { 
  155.   print strloc loc "JOIN" nick::IP::(_channelIP _channel)::nil; 
  156.   AddPlayer Const_Player [_channel nick ID IP]; 
  157.   set Nusers=Nusers+1; 
  158.   _ADDcombo userlist 0 nick; 
  159.   if (RedirectEvents==1) then 
  160.   { 
  161.     _on APIchn NewUser [nick ID IP]; 
  162.     0 
  163.   } 
  164.   else 0; 
  165.   updatesendbutton; 
  166. };; 
  167.  
  168. fun __DelUser (nick,ID,IP)= 
  169. { 
  170.   print strloc loc "LEAVE" nick::IP::(_channelIP _channel)::nil; 
  171.   DelPlayerByNick nick; 
  172.   set Nusers=Nusers-1; 
  173.   _SDELcombo userlist nick; 
  174.   if (RedirectEvents==1) then 
  175.   { 
  176.     _on APIchn DelUser [nick ID IP]; 
  177.     0 
  178.   } 
  179.   else 0; 
  180.   updatesendbutton; 
  181. };; 
  182.  
  183. fun Chatwdestroy (obj,r)= 
  184. { 
  185.   _delline thischn; 
  186.   if (APIchn!=nil) then 
  187.   { 
  188.     _on APIchn ComClose []; 
  189.     0 
  190.   } 
  191.   else 0; 
  192.  
  193.   _killchannel thischn; 
  194.   _killchannel APIchn;  
  195.   stopvideo;
  196. };; 
  197.  
  198. fun ProcessInput (text)= 
  199. { 
  200.   print strloc loc "PROMPT" text::nil; 
  201.   _on thischn Hear [text]; 
  202. };; 
  203.  
  204. fun textinputCB (obj,u)= 
  205. { 
  206.   let _GETtext obj -> text in 
  207.   { 
  208.     if (nth_char text ((strlen text)-1))==10 then 
  209.     { 
  210.       _DELline obj 0; 
  211.       _DELline obj 0; 
  212.       ProcessInput text; 
  213.       obj 
  214.     } 
  215.     else 
  216.     {
  217.       obj 
  218.     } 
  219.   } 
  220. };; 
  221.  
  222. fun GetUserInfos (obj,r)= 
  223. { 
  224.   UpdateCurrentUser; 
  225.   if (CurrentUser!=nil) then 
  226.   { 
  227.     print (strloc loc "INFO1" CurrentUser.PlayerNick::CurrentUser.PlayerIP::nil); 
  228.     print (strloc loc "INFO2" (itoa CurrentUser.PlayerID)::(_channelIP CurrentUser.PlayerChannel)::nil); 
  229.   } 
  230.   else 
  231.   { 
  232.     print (loc "INFOERR"); 
  233.   } 
  234. };; 
  235.  
  236. typeof FilePerso=TPlayer;; 
  237. typeof FileP=P;; 
  238. typeof FileW=W;; 
  239. typeof FileF=File;; 
  240. typeof FileN=S;; 
  241. typeof FileO=S;; 
  242. typeof FileSize=I;; 
  243. typeof FileSizeGot=I;; 
  244. typeof FileChn=Chn;; 
  245.  
  246. var BlockSize=256;; 
  247.  
  248. defcom ProposeFile = ProposeFile S S I S I;; 
  249. defcom AcceptFile = AcceptFile S I S;; 
  250. defcom FileBlock = FileBlock S I S S;; 
  251. defcom FileLast = FileLast S I S S;; 
  252. defcom FileAbort = FileAbort S I S;; 
  253. defcom FileAck = FileAck S I S;; 
  254.  
  255. typeof ProgressBar=ObjBitmap;; 
  256.  
  257. fun Chatwpaint (obj,r)= 
  258. { 
  259.   UpdateStatus; 
  260.   _BLTbitmap Chatw ProgressBar 310 60; 
  261.   _BLTbitmap Chatw Videobmp 310 115 
  262. };; 
  263.  
  264. fun InitFileProgress ()= 
  265. { 
  266.   _DSbutton sendfile; 
  267.   set ProgressBar=_CRbitmap _channel 100 20; 
  268.   _DRAWrectangle ProgressBar 0 0 100 20 DRAW_SOLID 1 0 DRAW_SOLID (255+(255<<8)+(255<<16)); 
  269.   _BLTbitmap Chatw ProgressBar 310 60; 
  270.   0 
  271. };; 
  272.  
  273. fun UpdateFileProgress ()= 
  274. { 
  275.   if (FileSize!=0) then 
  276.   {
  277.     _DRAWrectangle ProgressBar 2 2 ((96*FileSizeGot)/FileSize) 16 DRAW_SOLID 1 0 DRAW_SOLID (255); 
  278.     0
  279.   } 
  280.   else 0; 
  281.   _BLTbitmap Chatw ProgressBar 310 60; 
  282.   0 
  283. };; 
  284.  
  285. fun GetFileBlock ()= 
  286. { 
  287.   let _FILERead FileF BlockSize -> block in 
  288.   { 
  289.     set FileSizeGot=FileSizeGot+strlen block; 
  290.     UpdateFileProgress; 
  291.     if (_FILETell FileF) >= FileSize then 
  292.     { 
  293.       [block 1] 
  294.     } 
  295.     else 
  296.     { 
  297.       [block 0] 
  298.     } 
  299.   } 
  300. };; 
  301.  
  302. fun SaveFileBlock (block)= 
  303. { 
  304.   set FileSizeGot=FileSizeGot+strlen block; 
  305.   UpdateFileProgress; 
  306.   _appendpack block FileW; 
  307. };; 
  308.  
  309. fun CloseFileProgress ()= 
  310. { 
  311.   set FileSend=0; 
  312.   _DSbitmap ProgressBar; 
  313.   set ProgressBar=nil; 
  314.   set sendfile=_CRbutton _channel Chatw 310 60 100 20 0 loc "SENDFILE"; 
  315.   _AFFfontButton sendfile mediumfont; 
  316.   _CBbutton sendfile SendFileF 0; 
  317.   0 
  318. };; 
  319.  
  320. fun __FileAbort (nick,id,file)= 
  321. { 
  322.   if (FileChn==_channel) && (FileSend==1) then 
  323.   { 
  324.     set FileSend=0; 
  325.     if (FileF!=nil) then 
  326.     { 
  327.       _FILEClose FileF; 
  328.       set FileF=nil;
  329.       0 
  330.     } 
  331.     else 0; 
  332.     CloseFileProgress ;
  333.     0 
  334.   } 
  335.   else 
  336.   { 
  337.     print loc "FILEABORT"; 
  338.     0 
  339.   } 
  340. };; 
  341.  
  342. fun __AcceptFile (nick,id,file)= 
  343. { 
  344.   if (FileChn==_channel) && (FileSend==1) then 
  345.   { 
  346.     set FileF=_FILEOpen FileChn FileP; 
  347.     if (FileF==nil) then 
  348.     { 
  349.       print loc "FILEERR"; 
  350.       _on FileChn FileAbort [FilePerso.PlayerNick FilePerso.PlayerID FileN]; 
  351.       CloseFileProgress ; 
  352.       0 
  353.     } 
  354.     else 
  355.     { 
  356.       print loc "FILEACC"; 
  357.       set FileSize=_FILESize FileF; 
  358.       let GetFileBlock -> [block ended] in 
  359.         if (ended==1) then 
  360.         { 
  361.           _on FileChn FileLast [nick id file block]; 
  362.           _status "!File UpLoaded succesfully\n"; 
  363.           _fooS "First FileBlock Is Last One..."; 
  364.           CloseFileProgress ; 
  365.           0 
  366.         } 
  367.         else 
  368.         { 
  369.           _on FileChn FileBlock [nick id file block]; 
  370.           _fooS "First FileBlock"; 
  371.           UpdateFileProgress; 
  372.           0 
  373.         } 
  374.     } 
  375.   } 
  376.   else 
  377.   { 
  378.     print loc "FILEABORT"; 
  379.     0 
  380.   } 
  381. };; 
  382.  
  383. fun __FileLast (nick,id,file,block)= 
  384. { 
  385.   if (FileChn==_channel) && (FileSend==1) then 
  386.   { 
  387.     let SaveFileBlock block -> error in 
  388.       if (error!=0) then 
  389.       { 
  390.         _on _channel FileAbort [nick id file]; 
  391.         print strloc loc "FILESVERR" file::nil; 
  392.         set FileSend=0; 
  393.         _FILEClose FileF; 
  394.         set FileF=nil; 
  395.         CloseFileProgress ; 
  396.         0 
  397.       } 
  398.       else 
  399.       { 
  400.         print loc "FILEDOWN"; 
  401.         set FileSend=0; 
  402.         if (FileF!=nil) then 
  403.         { 
  404.           _FILEClose FileF; 
  405.           set FileF=nil;
  406.           0 
  407.         } 
  408.         else 0; 
  409.         CloseFileProgress ; 
  410.         0 
  411.       } 
  412.   } 
  413.   else 
  414.   { 
  415.     print "FILEABORT"; 
  416.     CloseFileProgress ; 
  417.     0 
  418.   } 
  419. };; 
  420.  
  421. fun __FileBlock (nick,id,file,block)= 
  422. { 
  423.   if (FileChn==_channel) && (FileSend==1) then 
  424.   { 
  425.     let SaveFileBlock block -> error in 
  426.     if (error==1) then 
  427.     { 
  428.       _on _channel FileAbort [nick id file]; 
  429.       print strloc loc "FILESVERR" file::nil; 
  430.       set FileSend=0; 
  431.       if (FileF!=nil) then 
  432.       { 
  433.         _FILEClose FileF; 
  434.         set FileF=nil;
  435.         0 
  436.       } 
  437.       else 0; 
  438.       CloseFileProgress ; 
  439.       0 
  440.     } 
  441.     else 
  442.     { 
  443.       _on _channel FileAck [nick id file]; 
  444.       _fooS "ACKing"; 
  445.       0 
  446.     } 
  447.   } 
  448.   else 
  449.   { 
  450.     print loc "FILEABORT";
  451.     CloseFileProgress ; 
  452.     0 
  453.   } 
  454. };; 
  455.  
  456. fun __FileAck (nick,id,file)= 
  457. { 
  458.   if (FileChn==_channel) && (FileSend==1) then 
  459.   { 
  460.     let GetFileBlock -> [block ended] in 
  461.       if (ended==1) then 
  462.       { 
  463.         _on FileChn FileLast [nick id file block]; 
  464.         _fooS "FILE LAST"; 
  465.         set FileSend=0; 
  466.         updatesendbutton; 
  467.         CloseFileProgress; 
  468.         print loc "FILEOK"; 
  469.         0 
  470.       } 
  471.       else 
  472.       { 
  473.         _on FileChn FileBlock [nick id file block]; 
  474.         _fooS "FILE BLOCK"; 
  475.         UpdateFileProgress; 
  476.       } 
  477.   } 
  478.   else 
  479.   {
  480.     print "FILEABORT"; 
  481.     0 
  482.   } 
  483. };; 
  484.  
  485. fun SaveFile (obj,u,filename)= 
  486. { 
  487.   if (filename!=nil) then 
  488.   { 
  489.     set FileW=filename; 
  490.     set FileN=_GetFileNameFromW filename; 
  491.     if ((_createpack "" FileW)!=0) then 
  492.     { 
  493.       print loc "FILEERR"; 
  494.       _on FileChn FileAbort [FilePerso.PlayerNick FilePerso.PlayerID FileN]; 
  495.       CloseFileProgress ; 
  496.       0 
  497.     } 
  498.     else 
  499.     { 
  500.       _on FileChn AcceptFile [FilePerso.PlayerNick FilePerso.PlayerID FileN]; 
  501.       print strloc loc "FILEDOWNLING" FilePerso.PlayerNick::FileO::FileN::nil; 
  502.       InitFileProgress; 
  503.     } 
  504.   } 
  505.   else 
  506.   { 
  507.     _on FileChn FileAbort [FilePerso.PlayerNick FilePerso.PlayerID FileN]; 
  508.     CloseFileProgress ; 
  509.     0 
  510.   } 
  511. };; 
  512.  
  513. fun __ProposeFile (nick,to,id,file,size)= 
  514. { 
  515.   if FileSend then 
  516.   { 
  517.     print strloc loc "FILEPROPERR" nick::file::nil; 
  518.     _on _channel FileAbort [nick id file]; 
  519.   } 
  520.   else 
  521.   {
  522.     set FilePerso = GetPlayerByNick nick; 
  523.     set FileChn=_channel; 
  524.     set FileSize=size; 
  525.     set FileSizeGot=0; 
  526.     if (FilePerso==nil) then 
  527.     { 
  528.       print strloc loc "FILEPROPERR" nick::file::nil; 
  529.       _on FileChn FileAbort [nick id file]; 
  530.       0 
  531.     } 
  532.     else 
  533.     { 
  534.       print strloc loc "FILEPROP" nick::file::nil; 
  535.       InitFileProgress ; 
  536.       _DLGrflsave (_DLGSaveFile _channel Chatw file "" "") @SaveFile 0; 
  537.       set FileSend=1; 
  538.       set FileO=file; 
  539.       0
  540.     } 
  541.   } 
  542. };; 
  543.  
  544. fun OpenFile (obj,u,filename)= 
  545. { 
  546.   if (filename!=nil) then 
  547.   { 
  548.     set FileP=filename; 
  549.     set FileN=_GetFileNameFromP filename; 
  550.     set FileChn=_channel; 
  551.     set FileSize=_FILESize _FILEOpen _channel FileP; 
  552.     set FileSizeGot=0; 
  553.     _on FileChn ProposeFile [MyNick FilePerso.PlayerNick FilePerso.PlayerID FileN FileSize]; 
  554.     print strloc loc "PROPOSING" FileN::FilePerso.PlayerNick::nil; 
  555.   }
  556.   else 
  557.   {
  558.     CloseFileProgress ; 
  559.     0 
  560.   }
  561. };; 
  562.  
  563. fun SendFile (obj,r)= 
  564. { 
  565.   if (FileSend!=0) then 0 
  566.   else 
  567.   { 
  568.     set FileSend=1; 
  569.     UpdateCurrentUser; 
  570.     InitFileProgress ; 
  571.     set FilePerso=CurrentUser; 
  572.     _DLGrflopen (_DLGOpenFile _channel Chatw "" "" "") @OpenFile 0; 
  573.     0 
  574.   } 
  575. };; 
  576.  
  577. fun Connect (obj,r)= 
  578. { 
  579.   UpdateCurrentUser; 
  580.   print strloc loc "NEW" CurrentUser.PlayerNick::CurrentUser.PlayerIP::nil; 
  581.   Contact CurrentUser.PlayerIP; 
  582.   0 
  583. };; 
  584.  
  585. defcom GetPhone = GetPhone;; 
  586. defcom PhoneOK=PhoneOK;; 
  587. defcom PhoneDENY=PhoneDENY;; 
  588. defcom ReleasePhone = ReleasePhone;; 
  589.  
  590. var AskPhone=0;; 
  591.  
  592. fun PhoneClick (obj,r,x,y,but)= 
  593. { 
  594.   if (x>=420) && (x<=450) && (y>=50) && (y<=80) && (AskPhone==0) && playing>=0 then 
  595.   { 
  596.     set AskPhone=1;  
  597.     _on thischn GetPhone []; 
  598.   } 
  599.   else if (x>=420) && (x<=450) && (y>=10) && (y<=40) then 
  600.     if playing==-1 then 
  601.       unmute 
  602.     else 
  603.       mute 
  604.   else 0;
  605.   UpdateStatus 
  606. };; 
  607.  
  608. fun __GetPhone ()= 
  609. { 
  610.   _on _channel PhoneOK []; 
  611. };; 
  612.  
  613. fun __PhoneOK ()= 
  614. { 
  615.   if (AskPhone==1) then 
  616.   { 
  617.     _fooS "Phone Is OK"; 
  618.     set AskPhone=2; 
  619.     Record; 
  620.   } 
  621.   else 
  622.     0; 
  623. };; 
  624.  
  625. fun __ReleasePhone ()= 
  626. { 
  627.   _fooS "ReleasePhone"; 
  628.   0 
  629. };; 
  630.  
  631. fun __PhoneDENY ()= 
  632. { 
  633.   _fooS "PhoneDeny"; 
  634.   if (AskPhone==1) then 
  635.   { 
  636.     set AskPhone=0; 
  637.     PauseRecord ; 
  638.   } 
  639.   else if AskPhone==2 then 
  640.   { 
  641.     set AskPhone=0; 
  642.     PauseRecord ; 
  643.   } 
  644.   else 0 
  645. };; 
  646.  
  647. fun PhoneUnclick (obj,r,x,y,but)= 
  648. { 
  649.   _fooS "UNCLICK"; 
  650.   if (AskPhone==2) then 
  651.   { 
  652.     _fooS "PHONE"; 
  653.     set AskPhone=0; 
  654.     PauseRecord ; 
  655.     _on thischn ReleasePhone []; 
  656.     0 
  657.   } 
  658.   else if (AskPhone==1) then 
  659.   { 
  660.     set AskPhone=0; 
  661.     PauseRecord ; 
  662.     _on thischn ReleasePhone []; 
  663.   } 
  664.   else 
  665.   { 
  666.     PauseRecord ; 
  667.     0 
  668.   } 
  669. };; 
  670.  
  671. defcom HaveVideo=HaveVideo I I I S I;; 
  672. defcom HadVideo=HadVideo;; 
  673.  
  674. var videosend=0;; 
  675. var localframe=0;;
  676.  
  677. var tempv="";; 
  678.  
  679. fun __HadVideo ()= 
  680. {  
  681.   if (videoready==nil || sendvideo==0 || localframe==globalframe) then {_on thischn HadVideo []; nil}
  682.   else 
  683.   { 
  684.     set localframe=globalframe;
  685.     set tempv=strdup videoready; 
  686.     let tempv->s2 in 
  687.       let strlen s2 -> len in 
  688.       { 
  689.         while (len!=0) do 
  690.         { 
  691.           _fooS "Sending Video"; 
  692.           if (len>256) then 
  693.           { 
  694.             let substr s2 0 256 -> sb in 
  695.               _on thischn HaveVideo [quality vx vy sb 0]; 
  696.               set s2=substr s2 256 len; 
  697.               set len=len-256; 
  698.           } 
  699.           else 
  700.           { 
  701.             _on thischn HaveVideo [quality vx vy s2 1]; 
  702.             set videosend=videosend+1; 
  703.             set len=0; 
  704.           } 
  705.         } 
  706.       } 
  707.   } 
  708. };; 
  709.  
  710. typeof CurrentFrame=S;; 
  711.  
  712. fun __HaveVideo (q,w,h,vid,EndTrame)= 
  713. { 
  714.   if vid!=nil then 
  715.     if EndTrame==1 then 
  716.     { 
  717.       set CurrentFrame=strcat CurrentFrame vid; 
  718.       _SETbitmap VideoBMP _InvertCapBitmap (_c32to15 (_JDecomp CurrentFrame h w q)) w; 
  719.       _BLTbitmap Chatw VideoBMP 310 115; 
  720.       _on thischn HadVideo []; 
  721.       set CurrentFrame=nil; 
  722.     } 
  723.     else 
  724.     { 
  725.       set CurrentFrame=strcat CurrentFrame vid; 
  726.     }
  727.   else 
  728.   { 
  729.     _on thischn HadVideo []; 
  730.     nil; 
  731.   } 
  732. };; 
  733.  
  734. typeof Chatmenu=ObjMenu;; 
  735. typeof Linksmenu=ObjMenu;; 
  736.  
  737. fun SendVideoCheck (o,u,i)=
  738. /*  _fooS "SendvideoCheckBox :"; _fooI i;*/
  739.   set sendvideo=i;;
  740.  
  741. fun InitChatWindow ()= 
  742. { 
  743.   set SendFileF=@SendFile; 
  744.   set Chatw=_CRwindow _channel nil 400 100 490 250 (WN_MENU+WN_MINBOX) strloc loc "TITLE" servernick::(_channelIP _channel)::nil; 
  745.   set mainobj=Chatw; 
  746.   _CBwinPaint Chatw @Chatwpaint 0; 
  747.   _CBwinDestroy Chatw @Chatwdestroy 0; 
  748.   _CBwinClick Chatw @PhoneClick 0; 
  749.   _CBwinUnclick Chatw @PhoneUnclick 0; 
  750.   set chatinput=_CReditText _channel Chatw 5 230 300 20 ET_DOWN|ET_AHSCROLL|ET_AVSCROLL ""; 
  751.   _CBtext chatinput @textinputCB 0; 
  752.   set chattext =_CRtext _channel Chatw 5 5 300 220 ET_DOWN|ET_AVSCROLL|ET_VSCROLL|ET_BORDER ""; 
  753.   set userlist=_CRcombo _channel Chatw 310 5 100 210 CB_NOEDIT|CB_AHSCROLL ""; 
  754.   set userinfo=_CRbutton _channel Chatw 310 35 100 20 0 loc "GETINFOS"; 
  755.   _CBbutton userinfo @GetUserInfos 0; 
  756.   set sendfile=_CRbutton _channel Chatw 310 60 100 20 0 loc "SENDFILE"; 
  757.   _CBbutton sendfile @SendFile 0; 
  758.   set connect=_CRbutton _channel Chatw 310 85 100 20 0 loc "CHAT"; 
  759.   _CBbutton connect @Connect 0;  
  760.   _AFFfontText chattext mediumfont; 
  761.   _AFFfontText chatinput mediumfont; 
  762.   _AFFfontButton userinfo mediumfont; 
  763.   _AFFfontButton sendfile mediumfont; 
  764.   _AFFfontButton connect mediumfont;  
  765.   set Chatmenu=_CRmenu _channel Chatw; 
  766.   set Linksmenu=_APPpopup _channel Chatmenu loc "LINKS"; 
  767.   set VideoBMP=_CRbitmap _channel vx vy; 
  768.   set Videobmp=_LDjpeg _channel _checkpack loc "JPGVID"; 
  769.   _BLTbitmap Chatw Videobmp 310 115;
  770.   let _CBcheck (_CRcheck _channel Chatw 415 85 100 30 0 loc "SENDVID") @SendVideoCheck 0 -> ck in
  771.     _SETcheck ck (set sendvideo=(if (strcmp _getress "VideoCamera" "Yes") then 0 else 1));
  772.   _PAINTwindow Chatw; 
  773. };; 
  774.  
  775. fun LinksMenu (obj,link)= 
  776. { 
  777.   print strloc loc "NEWL" link::nil; 
  778.   Contact link; 
  779. };; 
  780.  
  781. fun __AddLink (name,link)= 
  782. {
  783.   _CBmenu (_APPitem _channel Linksmenu ME_ENABLED name ) @LinksMenu link; 
  784. };; 
  785.  
  786. fun InitChat (nick,room)= 
  787. { 
  788.   set servernick=nick; 
  789.   set serverisroom=room; 
  790.   set serverIP=_channelIP _channel; 
  791.   set MyNick=_GETtext nickname; 
  792.   _status strcat strcat "Chating with " nick ".\n"; 
  793.   set thischn=_channel; 
  794.   set thisenv=_envchannel _channel; 
  795.   _status "Module Loaded\n"; 
  796.   PHONEInit; 
  797.   _on _channel ChatACK [MyNick]; 
  798.   InitChatWindow; 
  799.   initvideo; 
  800.   _on _channel HaveVideo [quality vx vy nil 1]; 
  801.   _on _channel NewUser [MyNick 0 _hostIP]; 
  802.   0 
  803. };; 
  804.  
  805. fun __ChatACK (nick)=0;; 
  806.  
  807. fun _connected ()= 
  808. { 
  809.   _status "Connected.\n" 
  810. };; 
  811.  
  812. fun _closed ()= 
  813. { 
  814.   _status strcat strcat strcat strcat "Disconnected from " servernick " (" serverIP ").\n"; 
  815.   _delline _channel;  
  816.   stopvideo;
  817. };; 
  818.  
  819. fun __GetAudio (audio)= 
  820.   if (RedirectAudio<2) then 
  821.     if (force_record==0) then 
  822.       if (playing==0) then 
  823.       { 
  824.         if (sizelist Alist)<5 then nil 
  825.         else startplaysnd; 
  826.         set Alist=AddAudio Alist audio; 
  827.         0
  828.       } 
  829.       else 
  830.       { 
  831.         set Alist=AddAudio Alist audio; 
  832.         0 
  833.       } 
  834.       else if (playing==0) then 0 
  835.       else 
  836.       { 
  837.         set Alist=AddAudio Alist audio; 
  838.         0 
  839.       } 
  840.       else 0;
  841.       if (RedirectAudio>0) then 
  842.       { 
  843.         _on APIchn GetAudio [audio]; 
  844.         0 
  845.       } 
  846.       else 0;;
  847.  
  848.