ftp.wwiv.com

home *** CD-ROM | disk | FTP | other *** search

/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / ESHELL.ZIP / EXEC.ZIP / ELITE.SRC < prev

Wrap

Text File | 1995-01-10 | 14KB | 936 lines

# ELiTE SHELL For Synchronet v2.0x # IM NOT A EXPERT WITH BAJA KEEP IN MIND. # SOME CODE WAS RIPPED FROM OTHER SHELLS printfile ..\text\menu\elite\prelogon.1 :main cmd_home inc_main_cmds node_action main compare_user_misc EXPERT if_false cls menu \elite\main end_if async crlf #USE THIS PROMPT ON THE NEXT TWO LINES AS THE DEFAULT PRINT "nhc┌nc─[hMain Mncenhku]nc──[h@MINLEFT@ Lncefhkt]── ─\r\n" PRINT "c└nc┘ RH" #THIS IS ANOTHER PROMPT YOU CAN USE, ITS A SKULL!! #UNCOMENT THE #'s TO USE THE SKULL. THEN PUT SOME #'s ON THE OTHER PROMPT #print "nhk┌ n▄▀█▀▄ hk─ nMain hMnehknu ─\r\n #print "│ n▀█▄█▀ hTnihkmen: @MINLEFT@\r\n" #Print "hk└─ n▌▌▐ hk──n:n" compare_user_misc COLDKEYS if_false getkeye else getstrupr 40 end_if cmdkey " end_cmd cmdkey ^M end_cmd cmdkey ^@ end_cmd cmdkey ^S end_cmd logkey_comma compare_user_misc COLDKEYS if_false printkey end_if cmdkey ; compare_user_misc COLDKEYS if_true shift_str 1 else getstrupr 40 end_if exec_bin str_cmds end_cmd cmdkey A print "\r\nrhTnrhe whAutomessage ris seen by everyone that logs on the system." auto_message end_cmd cmdkey B print "\r\nBULLETINS STILL UNDER CONSTRUCTION" text_file_section end_cmd cmdkey C printfile ..\text\menu\elite\comment setstr 1 mail_send_feedback end_cmd cmdkey D xtrn_section end_cmd cmdkey E call email end_cmd cmdkey F call files end_cmd cmdkey G logoff end_cmd cmdkey /G logoff_fast end_cmd cmdkey I Info_system end_cmd cmdkey L cls print "\r\n kh*n*wh* cTodays Callers Log wh*n*kh*yh" printfile ..\data\logon.lst crlf print "\r\n" pause end_cmd cmdkey M call message end_cmd #THIS IS YOUR BBS LIST! cmdkey O exec_xtrn LIST end_cmd cmdkey P call chat end_cmd cmdkey Q #OPTIONAL MENU (QWK.ASC) CAN BE FOUND IN OPTIONAL.ZIP msg_qwk end_cmd cmdkey S user_defaults end_cmd cmdkey U print "\r\nmhUsername search string g(mEnternm=List Conferences Usersgh)c: B" getname 25 compare_str "" if_true printfile ..\text\menu\elite\userlist.asc setstr Y ungetstr userlist_sub else crlf finduser if_true print "mhUser rhiVerified!m: g" printstr crlf pause end_if end_cmd end_If end_cmd cmdkey W nodelist_all pause end_cmd cmdkey X toggle_user_misc EXPERT print "\r\nExpert mode is now: " compare_ars EXPERT if_true print "ON" else print "OFF" end_if crlf end_cmd cmdkey Y cls info_user print "\r\n" print "\r\n" print "\r\n" print "\r\n" print "\r\n" print "\r\n" print "\r\n" print "\r\n" pause end_cmd cmdkey $ setstr W ungetstr user_defaults end_cmd #DOORS################################################## #CHANGE THE DOORS TO SUIT YOUR NEEDS#################### #REMEMBER TO MODIFY THE MAIN MENU IF YOU CHANGE THEM#### ######################################################## cmdkey 1 cls print "\r\nLoading up yhUsurper!" exec_xtrn USURPER end_cmd cmdkey 2 cls print "\r\nLoading up gLORD!" exec_xtrn LORD end_cmd cmdkey 3 cls print "\r\nLoading up rhIMMORTAL KOMBAT!" exec_xtrn IMMORTAL end_cmd cmdkey 4 cls print "\r\nLoading up ghArrowbridge!" exec_xtrn abridge end_cmd cmdkey 5 print "\r\nTHIS DOOR IS NOT IN USE " pause end_cmd cmdkey 6 cls print "\r\nLoading Up yhDr wDreadr!" exec_xtrn dr end_cmd cmdkey ! compare_ARS LEVEL 90 if_true cls menu sysmain end_if end_cmd cmdkey ? compare_user_misc EXPERT if_true menu \elite\main end_if end_cmd print "\r\nnihrUnknown Command!n" compare_user_misc EXPERT if_true print "\r\nnhgHit \"c?g\" for menu.n" crlf end_if end_cmd Print "\r\nnhError is Command Shell!" print "\r\nPlease Notify SysOp!" crlf pause hangup ######################################################################## # FILE TRANSFER MENU ######################################################################## :files compare_ars file_cmds=0 if_true compare_user_misc ask_nscan if_true yes_no "\r\n\r\nnhk[cSncEARCH hFncOR hNncEW hFncILEShk]b" if_true file_new_scan_all end_if end_if end_if cmd_home inc_file_cmds compare_user_misc EXPERT if_false cls menu \elite\file end_if async crlf print "nh┌c──nc────∙φ hFile Menu ncφ ∙───∙φ hw@DIR@ ncφ∙───∙·" print "\r\nh└nc───∙·n" compare_user_misc COLDKEYS if_false getkeye else getstrupr 40 end_if logkey_comma cmdkey digit compare_user_misc COLDKEYS if_false ungetkey end_if file_get_dir_num end_cmd cmdkey edigit compare_user_misc COLDKEYS if_false ungetkey else shift_str 1 end_if file_get_lib_num end_cmd cmdkey " end_cmd cmdkey ^S end_cmd cmdkey ^@ end_cmd cmdkey ^M end_cmd logkey_comma compare_user_misc COLDKEYS if_false printkey end_if cmdkey ; compare_user_misc COLDKEYS if_true shift_str 1 else getstrupr 40 end_if exec_bin str_cmds end_cmd cmdkey A #LEVEL 80 USERS AND HIGHER SEE A DIFFERNT FILE AREA LISTING. COMPARE_ARS LEVEL 80 IF_TRUE printfile ..\text\menu\elite\f80.asc print "whSbenblect whFbinble whAbrnbea hc[nc>m file_get_dir_num setstr "*.*" file_list ELSE #ANY OTHER LEVEL LOWER THEN LEVEL 80 GET A DIFFERNT FILE LISTING. printfile ..\text\menu\elite\f50.asc print "whSbenblect whFbinble whAbrnbea hc[nc>m file_get_dir_num setstr "*.*" file_list END_IF END_CMD cmdkey /A #OPTIONAL MENU (TEMPXFER.ASC) CAN BE FOUND IN OPTIONAL.ZIP File_temp_section end_cmd cmdkey B #OPTIONAL MENU (BATCHXFR.ASC) CAN BE FOUND IN OPTIONAL.ZIP file_batch_section end_cmd cmdkey C #CHANGE THIS TO THE CD DOOR THAT YOU USE IF YOU HAVE ONE. cls PRINT "Loading CD...." EXEC_XTRN EZROM end_cmd cmdkey D file_download_batch if_false getfilespec if_true file_download end_if end_if end_cmd cmdkey F #EDIT THIS FILE TO SUIT YOUR NEEDS!! IF YOU HAVE NO RATIO'S ON YOUR BBS #THIS FILE SHOULD WORK GREAT FOR YOU. printfile ..\text\menu\elite\policy.asc end_cmd cmdkey G logoff end_cmd cmdkey /G logoff_fast end_cmd cmdkey I call file_info end_cmd cmdkey J #LEVEL 80 USERS AND HIGHER SEE A DIFFERNT FILE AREA LISTING. COMPARE_ARS LEVEL 80 IF_TRUE printfile ..\text\menu\elite\f80.asc print "whSbenblect whFbinble whAbrnbea hc[nc>m file_get_dir_num setstr "*.*" file_list ELSE #ANY OTHER LEVEL LOWER THEN LEVEL 80 GET A DIFFERNT FILE LISTING. printfile ..\text\menu\elite\f50.asc print "whSbenblect whFbinble whAbrnbea hc[nc>m file_get_dir_num setstr "*.*" file_list END_IF END_CMD cmdkey L getfilespec if_true file_list end_if end_cmd cmdkey M call message end_cmd cmdkey N file_new_scan end_cmd cmdkey P file_ptrs_cfg end_cmd CMDKEY O #LEVEL 80 AND HIGHER USERS GET A DIFFERNT OFFLINE LISTING. COMPARE_ARS LEVEL 80 IF_TRUE CLS Print "\r\nrhThese are the files you can request offline" PRINT "\r\n" PRINT "\r\nn" PAUSE PRINTFILE ..\TEXT\MENU\elite\80OFF.TXT ELSE #ANY OTHER LEVEL LOWER THEN 80 GETS A DIFFERNT OFFLINE LISTING. PRINTFILE ..\TEXT\MENU\elite\50OFF.TXT END_IF END_CMD cmdkey Q goto main return end_cmd cmdkey R getfilespec if_true file_remove end_if end_cmd cmdkey S print "\r\nchSearch for Filename(s)\r\n" file_find_name end_cmd cmdkey T getfilespec if_true file_view end_if end_cmd cmdkey U cls #IF YOU DON'T HAVE A STRICT UPLOAD POLICY, # THE NEXT LINE printfile ..\text\menu\elite\upload.asc print "\r\n" pause cls file_upload end_cmd cmdkey V getfilespec if_true file_view end_if end_cmd cmdkey W chkfile ..\data\syswant.txt if_true crlf printfile ..\data\syswant.txt pause else crlf crlf print "nhNo particular files are being sought." crlf pause end_if end_cmd cmdkey X toggle_user_misc EXPERT print "\r\nExpert mode is now: " compare_ars EXPERT if_true print "ON" else print "OFF" end_if crlf end_cmd cmdkey Y cls printfile ..\text\menu\elite\filestat.1 end_cmd cmdkey Z file_find_text_all end_cmd cmdkey % print "\r\nnUploading a Private File to the Sysop" print "\r\n" print "\r\n" pause FILE_UPLOAD_SYSOP end_cmd cmdkey ? compare_user_misc EXPERT if_true menu \elite\file end_if end_cmd cmdkey ] file_directory_up end_cmd cmdkey [ file_directory_down end_cmd cmdkey ! compare_ARS LEVEL=90 if_true cls menu sysmain end_if end_cmd print "\r\nnihrUnknown Command!" crlf compare_user_misc EXPERT if_true print "ngHit \"c?g\" for menu.n" end_if end_cmd cls print "nhError in Command Shell!" crlf print "Please Notify SysOp!" crlf pause hangup ########################################################################### # MESSAGE MENU ########################################################################### :message cmd_home compare_user_misc EXPERT if_false cls menu \elite\msg end_if async crlf print "nh┌c──nc────∙φ hMessage Menu ncφ ∙───∙φ hw@SUB@ ncφ∙───∙·" print "\r\nh└nc───∙·n" compare_user_misc COLDKEYS if_false getkeye else getstrupr 40 end_if logkey_comma cmdkey digit compare_user_misc COLDKEYS if_false ungetkey end_if msg_get_sub_num end_cmd cmdkey edigit compare_user_misc COLDKEYS if_false ungetkey else shift_str 1 end_if msg_get_grp_num end_cmd cmdkey " end_cmd cmdkey ^S end_cmd cmdkey ^@ end_cmd cmdkey ^M end_cmd logkey_comma compare_user_misc COLDKEYS if_false printkey end_if cmdkey A Print "\r\n" Print "mhMessage Confrences Listing" msg_select_area end_cmd cmdkey B MSG_BROWSE_SCAN_ALL end_cmd cmdkey C msg_new_scan_cfg end_cmd cmdkey E call email end_cmd cmdkey F call files end_cmd cmdkey G logoff end_cmd cmdkey /G logoff_fast end_cmd cmdkey J msg_select_area end_cmd cmdkey N msg_new_scan end_cmd cmdkey P msg_post end_cmd cmdkey Q goto main end_cmd cmdkey R msg_read end_cmd cmdkey W nodelist_all pause end_cmd cmdkey /P MSG_PTRS_CFG end_cmd cmdkey /R MSG_PTRS_REINIT end_cmd cmdkey /M MSG_YOUR_SCAN_ALL end_cmd cmdkey /W MSG_FIND_TEXT_ALL end_cmd cmdkey ? compare_user_misc EXPERT if_true menu \elite\msg end_if end_cmd cmdkey ] msg_subboard_up end_cmd cmdkey [ msg_subboard_down end_cmd print "\r\nnhriUnknown Command!" crlf compare_user_misc EXPERT if_true print "nhgHit \"c?g\" for menu." end_if end_cmd cls print "nhError in Command Shell!" crlf print "Please Notify SysOp!" crlf pause hangup ############################### E-mail Section ################################ :email cmd_home compare_user_misc expert if_false menu \elite\e-mail end_if async print "\r\nMhE-NMmail RH(W?NR=HelpH)C: n" getcmd ?BSRFNUKQ\r logkey cmdkey ? compare_user_misc expert if_true menu \elite\E-MAIL end_if end_cmd cmdkey B #YOU MAY NOT WANT BULK MAIL ON YOUR SYSTEM. IF SO # IT! print "\r\nghSending rhBULK ghmail to ALL users!" MAIL_SEND_BULK end_cmd cmdkey S print "_\r\nbh[ncEnter Users Namebh]wh> " getname 25 compare_str "" if_true end_cmd end_if compare_str "SYSOP" if_true setstr "1" end_if mail_send end_cmd cmdkey U print "_\r\nbh[ncEnter Users Namebh]wh> " getname 25 compare_str "" if_true end_cmd end_if compare_str "SYSOP" if_true setstr "1" end_if mail_send_file end_cmd cmdkey R mail_read end_cmd cmdkey F setstr "1" mail_send_feedback end_cmd cmdkey N #I DONT WANT ANY OF MY USERS SENDING NETMAIL, YOU WILL #HAVE TO CHANGE THE LEVEL WHICH YOU LET USERS SEND NETMAIL compare_ars level 90 if_true mail_send_netmail else print "Your security isn't high enough for NETMAIL" print "\r\n" pause end_if end_cmd cmdkey K mail_read_sent end_cmd cmdkey Q goto main end_cmd cmd_pop return ############################ File Info Section ############################### :file_info cmd_home compare_user_misc expert if_false menu \elite\XFERINFO end_if async print "\r\nMhFile nmInformation rh(w?nr=Helph)c: n" getcmd ?TYDUQ\r logkey cmdkey ? compare_user_misc expert if_true menu \elite\XFERINFO end_if end_cmd cmdkey T info_xfer_policy end_cmd cmdkey Y info_user end_cmd cmdkey D info_directory end_cmd cmdkey U userlist_dir end_cmd cmdkey Q goto files return end_cmd cmd_pop return ############################### CHAT SECTION ################################# :chat cmd_home compare_user_misc expert if_false menu \elite\chat end_if async print "\r\nMhChat Area rh(w?nr=Helph)c: n" getcmd ?PCSQ\r logkey cmdkey ? compare_user_misc expert if_true menu \elite\chat end_if end_cmd cmdkey P page_sysop YES_NO "\r\nhmLnmeave whSYSOPnm Feedback?bh " IF_TRUE setstr 1 mail_send_feedback else end_if end_cmd cmdkey C PRIVATE_CHAT end_cmd cmdkey S PRIVATE_MESSAGE end_cmd cmdkey Q goto main end_cmd goto main #ELiTE SHELL FINISHED. REPORT ALL BUGS TO: #WiZARDS REALM BBS 813-942-9020 #OR TO JUSTIN ROBERTS ON VERT