home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / on-line / amirc2stricq / amirc2stricq.install < prev    next >
Text File  |  2000-02-03  |  7KB  |  210 lines
  1. /* AmIRC2STRICQ Installer 1.2 */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. SAY "You have chosen to install"
  6. SAY;SAY
  7. SAY "              _       .  _   _     _       _  ___  _  .  _  _"
  8. SAY "             |_| |\/| | |_) /       )     (_   |  |_) | /  / \"
  9. SAY "             | | |  | | | \ \_     (_      _)  |  | \ | \_ \_\"
  10. SAY
  11. SAY "           ©2000 Lorens 'SnorsleX' Johansson (SnorsleX@Home.se)"
  12. SAY;SAY;SAY
  13.  
  14. /* Ask where AmIRC is installed */
  15. SAY "Where is AmIRC installed?"
  16. IF OPEN(1,"ENV:Vapor/AMIRC_LASTUSEDDIR","R") THEN DO
  17.     tempdir=READLN(1)
  18.     CALL CLOSE(1)
  19. END
  20. ELSE tempdir=""
  21. ADDRESS COMMAND 'requestfile >T:A2S_Install.temp 'tempdir' TITLE "Select Where AmIRC is installed..." DRAWERSONLY NOICONS'
  22. IF RC~=0 THEN CALL InstAbort(1)
  23. IF OPEN(1,"T:A2S_Install.temp","R") THEN DO
  24.     amircpath=READLN(1)
  25.     CALL CLOSE(1)
  26. END
  27. CALL DELETE("T:A2S_Install.temp")
  28. amircpath=STRIP(amircpath,"B",'"')
  29. IF ~EXISTS(amircpath||"AmIRC") THEN CALL InstAbort(2)
  30.  
  31. /* Ask where STRICQ is installed */
  32. SAY "Where is STRICQ installed?"
  33. IF OPEN(1,"ENVARC:STRICQ.path","R") THEN DO
  34.     tempdir=READLN(1)
  35.     CALL CLOSE(1)
  36. END
  37. ELSE tempdir=""
  38. ADDRESS COMMAND 'requestfile >T:A2S_Install.temp 'tempdir' TITLE "Select where STRICQ is installed..." DRAWERSONLY NOICONS'
  39. IF RC~=0 THEN CALL InstAbort(1)
  40. IF OPEN(1,"T:A2S_Install.temp","R") THEN DO
  41.     stricqpath=READLN(1)
  42.     CALL CLOSE(1)
  43. END
  44. CALL DELETE("T:A2S_Install.temp")
  45. stricqpath=STRIP(stricqpath,"B",'"')
  46. IF ~EXISTS(stricqpath||"STRICQ") THEN CALL InstAbort(6)
  47.  
  48. /* Ask for UIN */
  49. SAY "What is your UIN?"
  50. PARSE PULL your_uin
  51. IF your_uin=""|DATATYPE(your_uin,"N")=0 THEN CALL InstAbort(3)
  52.  
  53. SAY "Now answer some questions..."
  54.  
  55. /* Ask if DCC Window should be opened */
  56. choice=SelectChoice("AmIRC2STRICQ Install...","Should this script open a seperate AmIRC /query window for STRICQ messages?","Yes|No|Abort Install")
  57. IF choice=1 THEN opendccwin=1
  58. IF choice=2 THEN opendccwin=0
  59.  
  60. /* Ask if it should show requesters when AmIRC isn't running */
  61. choice=SelectChoice("AmIRC2STRICQ Install...","Should this script show a requester for Online/Offline notifys if AmIRC is not running?","Yes|No|Abort Install")
  62. IF choice=1 THEN showreqifnoamirc=1
  63. IF choice=2 THEN showreqifnoamirc=0
  64.  
  65. /* Ask if sounds should be played */
  66. choice=SelectChoice("AmIRC2STRICQ Install...","Should this script play sounds on notifys?","Yes|No|Abort Install")
  67. IF choice=1 THEN playsound=1
  68. IF choice=2 THEN playsound=0
  69.  
  70. /* Select soundplayer and sounds */
  71. sound_player="";sound_message="";sound_online="";sound_offline="";sound_filedirect=""
  72. IF playsound=1 THEN DO
  73.     SAY "Select the soundplayer! (Play16 is a good choice)"
  74.     sound_player=SelectFile("C:","Select the soundplayer, I recommend Play16...",4)
  75.     SAY "Select Message sound!"
  76.     sound_message=SelectFile("","Select Message sound...",5)
  77.     tempdir=GetDirName(sound_message)
  78.     SAY "Select Online sound!"
  79.     sound_online=SelectFile(tempdir,"Select Online sound...",5)
  80.     SAY "Select Offline sound!"
  81.     sound_offline=SelectFile(tempdir,"Select Offline sound...",5)
  82.     SAY "Select FileDirect sound!"
  83.     sound_filedirect=SelectFile(tempdir,"Select FileDirect sound...",5)
  84. END
  85.  
  86. /* Copy the files */
  87. SAY "Copying the files to there locations and creating prefs file..."
  88. ADDRESS COMMAND "copy AmIRC2STRICQ.amirx "amircpath"Rexx/"
  89. SAY "AmIRC2STRICQ.amirx...done"
  90. ADDRESS COMMAND "copy AmIRC2STRICQ.ReadMe "amircpath"Rexx/"
  91. SAY "AmIRC2STRICQ.ReadMe...done"
  92. CALL OPEN(1,"ENVARC:AmIRC2STRICQ.prefs","W")
  93. CALL WRITELN(1,'/* AmIRC2STRICQ Prefs file... */')
  94. CALL WRITELN(1,'your_uin='your_uin)
  95. CALL WRITELN(1,'opendccwin='opendccwin)
  96. CALL WRITELN(1,'showreqifnoamirc='showreqifnoamirc)
  97. CALL WRITELN(1,'playsound='playsound)
  98. CALL WRITELN(1,'sound_player="'sound_player'"')
  99. CALL WRITELN(1,'sound_message="'sound_message'"')
  100. CALL WRITELN(1,'sound_online="'sound_online'"')
  101. CALL WRITELN(1,'sound_offline="'sound_offline'"')
  102. CALL WRITELN(1,'sound_filedirect="'sound_filedirect'"')
  103. CALL CLOSE(1)
  104. ADDRESS COMMAND "copy ENVARC:AmIRC2STRICQ.prefs ENV:"
  105. SAY "AmIRC2STRICQ.prefs...created"
  106. CALL OPEN(1,"ENVARC:STRICQ.path","W")
  107. CALL WRITELN(1,stricqpath)
  108. CALL CLOSE(1)
  109. SAY "STRICQ.path...created"
  110. ADDRESS COMMAND "copy ENVARC:STRICQ.path ENV:"
  111.  
  112. SAY
  113.  
  114. SAY "Now there is some things you need to setup in AmIRC/STRICQ!"
  115. SAY
  116. SAY "Do this in AmIRC:"
  117. SAY "· Setup this alias in AmIRC: (Under Setup/Lists)"
  118. SAY "  icq /rx amirc2stricq A %p"
  119. SAY
  120. /*
  121. SAY "Shall I do this automatically? [Y/n]"
  122. PARSE PULL auto_set_amirc
  123. IF UPPER(auto_set_amirc)~="N" THEN DO
  124.     IF ~SHOW("P","AMIRC.1") THEN DO
  125.         start_amirc=0
  126.         IF EXISTS(amircpath"AmIRC") THEN start_amirc=1
  127.         ELSE IF EXISTS(amircpath"AmIRC.000") THEN start_amirc=1
  128.         ELSE IF EXISTS(amircpath"AmIRC.020") THEN start_amirc=1
  129.         ELSE SAY "Couldn't find AmIRC exe, you have to do it by yourself!"
  130.         IF start_amirc=1 THEN DO
  131.             ADDRESS COMMAND amircpath"AmIRC"
  132.             ADDRESS COMMAND "waitforport AMIRC.1"
  133.             ADDRESS AMIRC.1
  134.             "SAY /alias icq = /rx amirc2stricq A %p"
  135.             SAY "Done..."
  136.         END
  137.     END
  138. END*/
  139. SAY "Do this in STRICQ:"
  140. SAY "· Setup this notification: (Under ICQ Prefs/Notify)"
  141. SAY "  Message Postparse:"
  142. SAY "    run <>NIL: rx "amircpath"Rexx/AmIRC2STRICQ.amirx"
  143. IF playsound=1 THEN DO
  144.     SAY "  Message Notify:"
  145.     SAY "    run <>NIL: rx "amircpath"Rexx/AmIRC2STRICQ.amirx M %ld"
  146.     SAY "  Online Notify:"
  147.     SAY "    run <>NIL: rx "amircpath"Rexx/AmIRC2STRICQ.amirx O %ld"
  148.     SAY "  Offline Notify:"
  149.     SAY "    run <>NIL: rx "amircpath"Rexx/AmIRC2STRICQ.amirx F %ld"
  150.     SAY "  FileDirect:"
  151.     SAY "    run <>NIL: rx "amircpath"Rexx/AmIRC2STRICQ.amirx D %ld"
  152. END
  153. SAY
  154. SAY "You are now ready to use it, type '/icq !help' in AmIRC (without quotes) to get help!"
  155. SAY
  156. SAY
  157. SAY " ! IMPORTANT ! IMPORTANT ! IMPORTANT ! IMPORTANT ! IMPORTANT !"
  158. SAY
  159. SAY " If you want to get the messages in a seperate window, type this"
  160. SAY "  everytime you start AmIRC: (This will be automatic in the next AmIRC"
  161. SAY " release! 3.4?)"
  162. SAY " /query STRICQ-Mess"
  163. SAY
  164. SAY " ! IMPORTANT ! IMPORTANT ! IMPORTANT ! IMPORTANT ! IMPORTANT !"
  165. SAY
  166. SAY
  167. SAY "Installation is complete..."
  168. EXIT
  169.  
  170. InstAbort:
  171.     IF ARG(1)=1 THEN SAY "You have aborted the install procedure, nice for you..."
  172.     IF ARG(1)=2 THEN SAY "Error! - This is not the path to AmIRC! Aborting..."
  173.     IF ARG(1)=3 THEN SAY "Error! - I don't believe that's your UIN! Aborting..."
  174.     IF ARG(1)=4 THEN SAY "Error! - The selected soundplayer doesn't exist! Aborting..."
  175.     IF ARG(1)=5 THEN SAY "Error! - The selected sound doesn't exist! Aborting..."
  176.     IF ARG(1)=6 THEN SAY "Error! - This is not the path to STRICQ! Aborting..."
  177. EXIT
  178.  
  179. SelectFile:
  180.     ADDRESS COMMAND 'requestfile >T:A2S_Install.temp 'ARG(1)' TITLE "'ARG(2)'" NOICONS'
  181.     IF RC~=0 THEN CALL InstAbort(1)
  182.     IF OPEN(1,"T:A2S_Install.temp","R") THEN DO
  183.         file=READLN(1)
  184.         CALL CLOSE(1)
  185.     END
  186.     CALL DELETE("T:A2S_Install.temp")
  187.     file=STRIP(file,"B",'"')
  188.     IF ~EXISTS(file) THEN CALL InstAbort(ARG(3))
  189. RETURN(file)
  190.  
  191. SelectChoice:
  192.     ADDRESS COMMAND 'requestchoice >T:A2S_Install.temp TITLE "'ARG(1)'" BODY "'ARG(2)'" GADGETS "'ARG(3)'"'
  193.     IF OPEN(1,"T:A2S_Install.temp","R") THEN DO
  194.         cho=READLN(1)
  195.         CALL CLOSE(1)
  196.     END
  197.     CALL DELETE("T:A2S_Install.temp")
  198.     IF cho=0 THEN CALL InstAbort(1)
  199. RETURN(cho)
  200.  
  201. GetDirname:
  202.     file=ARG(1)
  203.     pl=LASTPOS('/',file)
  204.     IF pl~=0 THEN file=DELSTR(file,pl+1,LENGTH(file)-pl+1)
  205.     ELSE DO
  206.         pl=POS(':',file)
  207.         IF pl~=0 THEN file=DELSTR(file,pl+1,LENGTH(file)-pl+1)
  208.     END
  209. RETURN(file)
  210.