KingBeavii

Updated Again..... As usual edited first post to incorporate the changes, It would be helpful to me if you quoted the sections you are discussing. I dont see where If, EndIf improves the script. It can be used yes, but will extend the length of the script by $n*if's - 2. I tested your _GetDesktopArea func but it caused the GUI to be created, but not appear. will have a second when i have time.

Yeah, Working on that.

Hey, Just to clarify, I Intend to release the source at a later date. At the moment there are still a couple of kinks in the chain, and the code looks like a cheese cake that fell from orbit. But as with all scripts I have done, Once I believe it is functioning as (or beyond) planned. A complete rewrite is performed to 'clean' the code. Normally this also allows me to find and fix bugs at the same time as i am getting to the point where i can run scripts in my head.....

**UPDATED*AGAIN** the config file is now optional, but should still use the same formatt...This fixes a few things that i noticed were buggy. ======================== [home] use= 1 tag=Home url=http://www.google.com [cust1] use=1 tag=AutoIt url=http://www.autoitscript.com ======================== you can set 6 custom ( [cust1] to [cust6] )and 1 home page. *oh look, there's a minimize button , how the Func did I forget that *the progress bar is gone, i just hated it , no questions please. *technically they're profiles and not tabs, they're still experimental *uses less memory - depending on the quality of the porntube video you are watching And Finally with out further delay, Here is some code...... #include <WindowsConstants.au3> ;~ #include <ButtonConstants.au3> ;~ #include <GUIConstants.au3> ;~ Files to be #include <WinAPI.au3> ;~ Included #include <Array.au3> ;~ #include <IE.au3> ;~ Global $OBJexists[10], $OBJbank[10] ,$OBJ[10] ,$page[10] , $link[7][3] ,$loads = 1 ,$x = 0 ,$tab = 0 ; Declared Variables $link[0][0] = IniRead(@scriptdir&"\config.ini","home","use","1") ; $link[0][1] = IniRead(@scriptdir&"\config.ini","home","tag","Home") ; Customise Hompage $link[0][2] = IniRead(@scriptdir&"\config.ini","home","url","http://www.google.com") ; $link[1][0] = IniRead(@scriptdir&"\config.ini","cust1","use","0") ; $link[1][1] = IniRead(@scriptdir&"\config.ini","cust1","tag","Custom 1") ; Custom Link 1 $link[1][2] = IniRead(@scriptdir&"\config.ini","cust1","url","http://www.google.com") ; $link[2][0] = IniRead(@scriptdir&"\config.ini","cust2","use","0") ; $link[2][1] = IniRead(@scriptdir&"\config.ini","cust2","tag","Custom 2") ; Custom Link 2 $link[2][2] = IniRead(@scriptdir&"\config.ini","cust2","url","http://www.google.com") ; $link[3][0] = IniRead(@scriptdir&"\config.ini","cust3","use","0") ; $link[3][1] = IniRead(@scriptdir&"\config.ini","cust3","tag","Custom 3") ; Custom Link 3 $link[3][2] = IniRead(@scriptdir&"\config.ini","cust3","url","http://www.google.com") ; $link[4][0] = IniRead(@scriptdir&"\config.ini","cust4","use","0") ; $link[4][1] = IniRead(@scriptdir&"\config.ini","cust4","tag","Custom 4") ; Custom Link 4 $link[4][2] = IniRead(@scriptdir&"\config.ini","cust4","url","http://www.google.com") ; $link[5][0] = IniRead(@scriptdir&"\config.ini","cust5","use","0") ; $link[5][1] = IniRead(@scriptdir&"\config.ini","cust5","tag","Custom 5") ; Custom Link 5 $link[5][2] = IniRead(@scriptdir&"\config.ini","cust5","url","http://www.google.com") ; $link[6][0] = IniRead(@scriptdir&"\config.ini","cust6","use","0") ; $link[6][1] = IniRead(@scriptdir&"\config.ini","cust6","tag","Custom 6") ; Custom Link 6 $link[6][2] = IniRead(@scriptdir&"\config.ini","cust6","url","http://www.google.com") ; $GUI = GUICreate("Easy Google", @DesktopWidth,@DesktopHeight-30,0,0,$WS_POPUP) ; Create Browser GUI GUISetFont(10,800) $back = GUICtrlCreateButton("<<" ,2 ,4 ,25 ,23) ; $forward = GUICtrlCreateButton(" >>" ,27 ,4 ,25 ,23) ; $tabdown = GUICtrlCreateButton("<" ,152 ,4 ,20 ,23) ; Navigation Buttons $ext = GUICtrlCreateButton("0" ,171 ,4 ,17 ,23) ; $tabup = GUICtrlCreateButton(" >" ,537 ,4 ,20 ,23) ; GUISetFont(8,600) $reload = GUICtrlCreateButton("Reload" ,52 ,4 ,50 ,23) ; $home = GUICtrlCreateButton($link[0][1] ,102 ,4 ,50 ,23) ; More Navigation $url = GUICtrlCreateButton("GO" ,557 ,4 ,30 ,23,$BS_DEFPUSHBUTTON) ; Select ; Case $link[1][0] = 1 ; $cust1 = GUICtrlCreateButton($link[1][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 1 $x += 1 ; Button Case $link[1][0] <> 1 ; $cust1 = "none" ; EndSelect ; Select ; Case $link[2][0] = 1 ; $cust2 = GUICtrlCreateButton($link[2][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 2 $x += 1 ; Button Case $link[2][0] <> 1 ; $cust2 = "none" ; EndSelect ; Select ; Case $link[3][0] = 1 ; $cust3 = GUICtrlCreateButton($link[3][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 3 $x += 1 ; Button Case $link[3][0] <> 1 ; $cust3 = "none" ; EndSelect ; Select ; Case $link[4][0] = 1 ; $cust4 = GUICtrlCreateButton($link[4][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 4 $x += 1 ; Button Case $link[4][0] <> 1 ; $cust4 = "none" ; EndSelect ; Select ; Case $link[5][0] = 1 ; $cust5 = GUICtrlCreateButton($link[5][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 5 $x += 1 ; Button Case $link[5][0] <> 1 ; $cust5 = "none" ; EndSelect ; Select ; Case $link[6][0] = 1 ; $cust6 = GUICtrlCreateButton($link[6][1] ,587 + ($x*64) ,4 ,64 ,23) ; Custom Link 6 $x += 1 ; Button Case $link[6][0] <> 1 ; $cust6 = "none" ; EndSelect ; GUISetFont(28,1200) $minimize = GUICtrlCreateButton("-" ,@desktopwidth-45 ,4 ,21 ,23) ; Minimize GUISetFont(22,1200) $exit = GUICtrlCreateButton("X" ,@desktopwidth-24 ,4 ,21 ,23) ; Exit GUISetFont(9,800) $goto = GUICtrlCreateInput("http://", 188, 5, 349, 21) ; GO $text = $link[0][2] GUISetBkColor(0x00000F) $OBJ[$tab] = ObjCreate("Shell.Explorer.2") ; $OBJbank [$tab] = GUICtrlCreateObj ($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) ; Embed IE $OBJexists[$tab] = 1 ; GUISetState() _IENavigate($OBJ[$tab], $link[0][2] ,0) ; Go to 'HOMEPAGE' While 1 $http = _IEPropertyget($OBJ[$tab], "locationurl") ; If $http <> $text Then ; $text = $http ; Detect and refresh the adress bar $loads = $loads + 1 ; without interupting user input GUICtrlSetData($goto,$text) ; EndIf ; $msg = GUIGetMsg() Select Case $msg = $back ; Go Back (but only if a back exists) If $loads > 3 Then $OBJ[$tab].GoBack $loads -= 1 EndIf Case $msg = $forward ; Go Forward $OBJ[$tab].GoForward $loads += 1 Case $msg = $reload ; Refresh $OBJ[$tab].Refresh Case $msg = $home ; Home _IENavigate($OBJ[$tab], $link[0][2] ,0) $loads += 1 Case $msg = $cust1 ; Cust 1 If $link[1][0]=1 Then _IENavigate($OBJ[$tab], $link[1][2] ,0) $loads += 1 EndIf Case $msg = $cust2 ; Cust 2 If $link[2][0]=1 Then _IENavigate($OBJ[$tab], $link[2][2] ,0) $loads += 1 EndIf Case $msg = $cust3 If $link[3][0]=1 Then _IENavigate($OBJ[$tab], $link[3][2] ,0) EndIf Case $msg = $cust4 If $link[4][0]=1 Then _IENavigate($OBJ[$tab], $link[4][2] ,0) $loads += 1 EndIf Case $msg = $cust5 If $link[5][0]=1 Then _IENavigate($OBJ[$tab], $link[5][2] ,0) $loads += 1 EndIf Case $msg = $cust6 If $link[6][0]=1 Then _IENavigate($OBJ[$tab], $link[6][2] ,0) $loads += 1 EndIf Case $msg = $url $address = GUICtrlRead($goto) _IENavigate($OBJ[$tab], $address,0) $loads += 1 Case $msg = $tabup $page[$tab]= _IEPropertyget($OBJ[$tab], "locationurl") GUICtrlSetState($OBJbank[$tab],$GUI_HIDE) GUICtrlSetState($OBJbank[$tab],$GUI_DISABLE) $loads = 0 $tab = $tab + 1 If $tab = 10 then $tab = 9 GUICtrlSetData($ext,$tab) Select Case $OBJexists[$tab] <> 1 $OBJ[$tab] = ObjCreate("Shell.Explorer.2") $OBJexists[$tab] = 1 $OBJbank[$tab] = GUICtrlCreateObj($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) ;_IENavigate($OBJ[$tab], IniRead(@scriptdir&"\config.ini","home","url","http://www.google.com") ,0) Case $OBJexists[$tab] = 1 GUICtrlDelete($OBJbank[$tab]) $OBJbank[$tab] = GUICtrlCreateObj($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) _IENavigate($OBJ[$tab], $page[$tab],0) EndSelect Case $msg = $tabdown $page[$tab]= _IEPropertyget($OBJ[$tab], "locationurl") GUICtrlSetState($OBJbank[$tab],$GUI_HIDE) GUICtrlSetState($OBJbank[$tab],$GUI_DISABLE) $loads = 0 $tab = $tab - 1 If $tab = -1 then $tab = 0 GUICtrlSetData($ext,$tab) Select Case $OBJexists[$tab] <> 1 $OBJ[$tab] = ObjCreate("Shell.Explorer.2") $OBJexists[$tab] = 1 $OBJbank[$tab] = GUICtrlCreateObj($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) GUICtrlSetData($ext,$tab) ;_IENavigate($OBJ[$tab], IniRead(@scriptdir&"\config.ini","home","url","http://www.google.com") ,0) Case $OBJexists[$tab] = 1 GUICtrlDelete($OBJbank[$tab]) $OBJbank[$tab] = GUICtrlCreateObj($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) _IENavigate($OBJ[$tab], $page[$tab],0) EndSelect Case $msg = $ext $dump=MsgBox(4,"Easy Google","This will delete all memory from profile"&$tab&" and load a empty profile."&@CRLF&@CRLF&"Do you wish to continue",-1) If $dump = 6 Then $page[$tab] = "" GUICtrlDelete($OBJbank[$tab]) $OBJbank[$tab] = GUICtrlCreateObj($OBJ[$tab],3, 31, @DesktopWidth-6, @DesktopHeight-65) EndIf Case $msg = $exit exit Case $msg = $minimize WinSetState("Easy Google","",@SW_MINIMIZE) Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd

Ahhh, Found an option in my graphics driver "Maintain Aspect ratio=0", Set this to 1 and it fixed it.

Hi guys. I am need of assistance, I have a program on my pc that has a fixed window of 800x600, I have tried maximizing with; WinSetState("program","",@SW_MAXIMIZE) But this just puts the window in top left of my 42" monitor and removes the border. Is there a way fullscreen the program but not change my desktop resoloution. Thanks in advance.

@MvGulik Thanks, thats exactly the kind of response i wanted. that will make my coding so much easier to read

Thanks for the reply... It was just a queery, I dont think that the office bosses would like it to much if everyone sat all day chatting, but it is good to know that it should work in theory. Maybe in a few years and after a few promotions I could give it a test on a large comercial network for you. I currently have 5 pc's at home that I may use this on, the voice chat is really not necessary on a home network. however, when functional, Another interesting point, Do you know if this would work on a virtual network, ie Hamatchi. Nice work and thanks for the reply...

Thanks, I have absloutley no experience whatso ever. I came across AutoIt by chance and just started messin around. The need for a timed scorebored came up and i very quickly wrote a sleep and beep script and opened a text file.After afew days, i had to use the sleep and beep again, so i decided to take it a step further and here is where i'm at. this is the real code. (The first one doesnt like new game option). I'm really looking for a few folk to have a wee look, or a wee test. let me know if i'm coding correctly, or if i could make some parts better. ; Beavii's Multi Scorecard ; BMS v4.0 26-1-2011 $BUILD="BMS v4.0" #include <Array.au3> Global $TURNS=0 ;default set for history function Global $SCORES[9][2] ;create scorecard array (with an extra line) Global $HIST[1000][3] ;create history array $H=@DesktopHeight/2 ;used for no centered items $R=0 ;timer default, detects timer pauses SplashTextOn($BUILD,$BUILD&@CRLF&"LOADING",-1,-1,-1,-1,34,"impact",72,500) sleep(1500) ; INPUT TEAMS/PLAYERS $TEAM=InputBox($BUILD,"How Many Players/Teams Should Be Added?","2-8","",250,130) If $TEAM<2 Then $TEAM=2 ; Prevents Excess If $TEAM>8 Then $TEAM=8 ; Prevents Short If @error=1 then exit $SCORES[1][1]=InputBox($BUILD,"PLAYER/TEAM 1, Please enter your name.","PLAYER1","",250,130) ; Adds Player Name $SCORES[2][1]=InputBox($BUILD,"PLAYER/TEAM 2, Please enter your name.","PLAYER2","",250,130) ; Adds Player Name If $TEAM>2 Then $SCORES[3][1]=InputBox($BUILD,"PLAYER/TEAM 3, Please enter your name.","PLAYER3","",250,130) ; Adds Player Name If $TEAM>3 Then $SCORES[4][1]=InputBox($BUILD,"PLAYER/TEAM 4, Please enter your name.","PLAYER4","",250,130) ; Adds Player Name If $TEAM>4 Then $SCORES[5][1]=InputBox($BUILD,"PLAYER/TEAM 5, Please enter your name.","PLAYER5","",250,130) ; Adds Player Name If $TEAM>5 Then $SCORES[6][1]=InputBox($BUILD,"PLAYER/TEAM 6, Please enter your name.","PLAYER6","",250,130) ; Adds Player Name If $TEAM>6 Then $SCORES[7][1]=InputBox($BUILD,"PLAYER/TEAM 7, Please enter your name.","PLAYER7","",250,130) ; Adds Player Name If $TEAM>7 Then $SCORES[8][1]=InputBox($BUILD,"PLAYER/TEAM 8, Please enter your name.","PLAYER8","",250,130) ; Adds Player Name ; INPUT TIMER OPTIONS $RT=InputBox($BUILD,"How Many Minutes Are Allowed Per Turn?"&@CRLF&@CRLF&"0 = No Time Limit","5","",250,150)*60 If $RT<0 Then $RT=0 ;Prevents Negative Time ; SET USER CONTROLS HotKeySet("{F1}","Score1") HotKeySet("{F2}","Score2") If $TEAM>2 Then HotKeySet("{F3}","Score3") If $TEAM>3 Then HotKeySet("{F4}","Score4") If $TEAM>4 Then HotKeySet("{F5}","Score5") If $TEAM>5 Then HotKeySet("{F6}","Score6") If $TEAM>6 Then HotKeySet("{F7}","Score7") If $TEAM>7 Then HotKeySet("{F8}","Score8") If $RT>0 Then HotKeySet("{F10}","PreTimer") HotKeySet("{F11}","Pause") HotKeySet("{ESC}","EndGame") HotKeySet("!h","History") ;ALT+h ; SET SCORES TO 0 $COUNT=0 Do $SCORES[$COUNT][0]=0 $COUNT=$COUNT+1 Until $COUNT=9 $SCORES[0][0]=999999999999999999999 $1ST=1 global $COPY=$SCORES CARD() ; DRAW TO CARD Func CARD () If $TEAM=2 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=3 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF,-1,-1,-1,-1,6,"impact",22,500) If $TEAM=4 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=5 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=6 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=7 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)"&@CRLF&" "&$SCORES[7][0]&" - "&$SCORES[7][1]&" (F7)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=8 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)"&@CRLF&" "&$SCORES[7][0]&" - "&$SCORES[7][1]&" (F7)"&@CRLF&" "&$SCORES[8][0]&" - "&$SCORES[8][1]&" (F8)",-1,-1,-1,-1,6,"impact",22,500) global $R=0 if $TURNS=999 then $TURNS=998 If $1ST=1 Then Active() If $RT>0 Then Timer() Active() EndFunc ; ACTIVE/WAIT Func Active() do $1ST=0 Sleep(1800000) $CONT=MsgBox(36,$BUILD,$BUILD&"Has Been Inactive For 30Mins, Do you want to BMS To Continue Running?") If $CONT=6 Then CARD() If $CONT=7 Then Exit Until $CONT=7 EndFunc ; PLAYER SCORE EDIT Func Score1() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[1][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[1][0]=$SCORES[1][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[1][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[1][0] CARD() EndFunc Func Score2() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[2][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[2][0]=$SCORES[2][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[2][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[2][0] CARD() EndFunc Func Score3() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[3][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[3][0]=$SCORES[3][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[3][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[3][0] CARD() EndFunc Func Score4() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[4][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[4][0]=$SCORES[4][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[4][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[4][0] CARD() EndFunc Func Score5() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[5][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[5][0]=$SCORES[5][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[5][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[5][0] CARD() EndFunc Func Score6() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[6][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[6][0]=$SCORES[6][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[6][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[6][0] CARD() EndFunc Func Score7() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[7][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[7][0]=$SCORES[7][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[7][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[7][0] CARD() EndFunc Func Score8() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[8][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[8][0]=$SCORES[8][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[8][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[8][0] CARD() EndFunc ; START/RESET TIMER Func PreTimer() $R=0 Timer() EndFunc ; BEGIN TIMER FROM $R Func Timer() If $R>0 Then Resume() ProgressOn($BUILD,$RT/60&" Minutes ("&$RT&") Seconds","0 Elapsed "&$RT&" Remaining",-1,$H+200,2) for $E= 1 to $RT step 1 If $RT-$E>9 then sleep(1000) If $RT-$E=60 Then Beep(1500,500) If $RT-$E=9 Then Beep(1100,200) If $RT-$E=9 Then Sleep(800) If $RT-$E=8 Then Beep(1200,200) If $RT-$E=8 Then Sleep(800) If $RT-$E=7 Then Beep(1300,200) If $RT-$E=7 Then Sleep(800) If $RT-$E=6 Then Beep(1400,200) If $RT-$E=6 Then Sleep(800) If $RT-$E=5 Then Beep(1500,200) If $RT-$E=5 Then Sleep(800) If $RT-$E=4 Then Beep(1600,200) If $RT-$E=4 Then Sleep(800) If $RT-$E=3 Then Beep(1700,200) If $RT-$E=3 Then Sleep(800) If $RT-$E=2 Then Beep(1800,200) If $RT-$E=2 Then Sleep(800) If $RT-$E=1 Then Beep(1900,200) If $RT-$E=1 Then Sleep(800) ProgressSet(100/$RT*$E,$E&" Elapsed "&$RT-$E&" Remaining") global $R=$E Next if $RT>0 Then ProgressSet(100,$RT-1&" Elapsed 1 Remaining") if $RT>0 Then Beep(2000,1000) if $RT>0 Then ProgressSet(100,"PLAYER HAS TIMED OUT") if $RT>0 Then MsgBox(0,$BUILD,"Player Has Timed Out") ProgressOff() global $R=0 Active() EndFunc ; CONTINUE TIMER AFTER CANCELED SCORE func Resume() IF $RT=0 Then CARD() $A=$R ProgressOn($BUILD,$RT/60&" Minutes ("&$RT&") Seconds",$A&" Elapsed "&$RT-$A&" Remaining",-1,$H+200,2) For $E= 1+$A to $RT step 1 If $RT-$E>9 then sleep(1000) If $RT-$E=60 Then Beep(1500,500) If $RT-$E=9 Then Beep(1100,200) If $RT-$E=9 Then Sleep(800) If $RT-$E=8 Then Beep(1200,200) If $RT-$E=8 Then Sleep(800) If $RT-$E=7 Then Beep(1300,200) If $RT-$E=7 Then Sleep(800) If $RT-$E=6 Then Beep(1400,200) If $RT-$E=6 Then Sleep(800) If $RT-$E=5 Then Beep(1500,200) If $RT-$E=5 Then Sleep(800) If $RT-$E=4 Then Beep(1600,200) If $RT-$E=4 Then Sleep(800) If $RT-$E=3 Then Beep(1700,200) If $RT-$E=3 Then Sleep(800) If $RT-$E=2 Then Beep(1800,200) If $RT-$E=2 Then Sleep(800) If $RT-$E=1 Then Beep(1900,200) If $RT-$E=1 Then Sleep(800) ProgressSet(100/$RT*$E,$E&" Elapsed "&$RT-$E&" Remaining") global $R=$E Next if $RT>0 Then ProgressSet(100,$RT-1&" Elapsed 1 Remaining") if $RT>0 Then Beep(2000,1000) if $RT>0 Then ProgressSet(100,"PLAYER HAS TIMED OUT") if $RT>0 Then MsgBox(0,$BUILD,"Player Has Timed Out") ProgressOff() global $R=0 Active() EndFunc ; END GAME Func EndGame() $CHECK=MsgBox(52,$BUILD,"Are You Sure You Want To End The Game") If $CHECK=7 then Resume () $TURNS=$TURNS+1 $HIST[$TURNS][1]="END GAME" ProgressOff() $WIN="TIE GAME" if $SCORES[3][1]="" Then $SCORES[3][0]=-1 if $SCORES[4][1]="" Then $SCORES[4][0]=-1 if $SCORES[5][1]="" Then $SCORES[5][0]=-1 if $SCORES[6][1]="" Then $SCORES[6][0]=-1 if $SCORES[7][1]="" Then $SCORES[7][0]=-1 if $SCORES[8][1]="" Then $SCORES[8][0]=-1 _ArraySort($SCORES,1) if $SCORES[1][0]=$SCORES[2][0] Then SplashTextOn($BUILD,"TIE GAME",-1,-1,-1,-1,34,"impact",72,500) if $SCORES[1][0]=$SCORES[2][0] Then MyExit() SplashTextOn($BUILD,"WINNER"&@CRLF&$SCORES[1][1]&@CRLF&@CRLF&"2nd "&$SCORES[2][1],-1,-1,-1,-1,34,"impact",48,500) Sleep(5000) MyExit() EndFunc ; PAUSE TIMER Func Pause() If $R>0 Then MsgBox(0,$BUILD,"PAUSED, Press 'Ok' To Continue") Resume() EndFunc ; EXIT/RESTART Func MyExit() $END=MsgBox(4,$BUILD,"Do You Want To Return To The Scorecard") If $END=6 Then ProgressOff() If $END=6 Then $RT=0 If $END=6 Then CARD() $SCORES=$COPY $EXIT=MsgBox(36,$BUILD,"Do You Want To Play Again?") If $EXIT=7 then Exit $TURNS=$TURNS+1 $HIST[$TURNS][1]="NEW GAME" If $EXIT=6 Then CARD() If $EXIT=7 then Exit EndFunc ; SHOW HISTORY Func History() _ArrayDisplay($HIST,$BUILD) EndFunc

Just noticed that i submitted the wrong code. the $SCORES array on this one doesnt reset properly. i fixed it before compiling but that was on another pc. will edit later

Hi Just to clarify before i try this, If i installed this on all the computers in an office (over 100), they could all have IM providing the are all on the same network (yes thats a lot of cables and.) Can they do any voice chat. Sorry if you have answered that already but i'm a little busy and dont look forward to reading the entire history of a project. If i get some time i'll read it tonight if no answer is posted.

Hi Just recently started looking into scripts and decided to give it a go. I decided to attempt to make a scoreboard with a timer. and after a bit of research This is my script. I have said version 4.0 as it has taken me 4 attempts to get this far (Plus a few 1.1, 2.1. 2.2's etc, as i learned new func's and techniques). ; Beavii's Multi Scorecard ; BMS v4.0 26-1-2011 $BUILD="BMS v4.0" #include <Array.au3> Global $TURNS=0 ;default set for history function Global $SCORES[9][2] ;create scorecard array (with an extra line) Global $HIST[1000][3] ;create history array $H=@DesktopHeight/2 ;used for no centered items $R=0 ;timer default, detects timer pauses SplashTextOn($BUILD,$BUILD&@CRLF&"LOADING",-1,-1,-1,-1,34,"impact",72,500) sleep(1500) ; INPUT TEAMS/PLAYERS $TEAM=InputBox($BUILD,"How Many Players/Teams Should Be Added?","2-8","",250,130) If $TEAM<2 Then $TEAM=2 ; Prevents Excess If $TEAM>8 Then $TEAM=8 ; Prevents Short If @error=1 then exit $SCORES[1][1]=InputBox($BUILD,"PLAYER/TEAM 1, Please enter your name.","PLAYER1","",250,130) ; Adds Player Name $SCORES[2][1]=InputBox($BUILD,"PLAYER/TEAM 2, Please enter your name.","PLAYER2","",250,130) ; Adds Player Name If $TEAM>2 Then $SCORES[3][1]=InputBox($BUILD,"PLAYER/TEAM 3, Please enter your name.","PLAYER3","",250,130) ; Adds Player Name If $TEAM>3 Then $SCORES[4][1]=InputBox($BUILD,"PLAYER/TEAM 4, Please enter your name.","PLAYER4","",250,130) ; Adds Player Name If $TEAM>4 Then $SCORES[5][1]=InputBox($BUILD,"PLAYER/TEAM 5, Please enter your name.","PLAYER5","",250,130) ; Adds Player Name If $TEAM>5 Then $SCORES[6][1]=InputBox($BUILD,"PLAYER/TEAM 6, Please enter your name.","PLAYER6","",250,130) ; Adds Player Name If $TEAM>6 Then $SCORES[7][1]=InputBox($BUILD,"PLAYER/TEAM 7, Please enter your name.","PLAYER7","",250,130) ; Adds Player Name If $TEAM>7 Then $SCORES[8][1]=InputBox($BUILD,"PLAYER/TEAM 8, Please enter your name.","PLAYER8","",250,130) ; Adds Player Name ; INPUT TIMER OPTIONS $RT=InputBox($BUILD,"How Many Minutes Are Allowed Per Turn?"&@CRLF&@CRLF&"0 = No Time Limit","5","",250,150)*60 If $RT<0 Then $RT=0 ;Prevents Negative Time ; SET USER CONTROLS HotKeySet("{F1}","Score1") HotKeySet("{F2}","Score2") If $TEAM>2 Then HotKeySet("{F3}","Score3") If $TEAM>3 Then HotKeySet("{F4}","Score4") If $TEAM>4 Then HotKeySet("{F5}","Score5") If $TEAM>5 Then HotKeySet("{F6}","Score6") If $TEAM>6 Then HotKeySet("{F7}","Score7") If $TEAM>7 Then HotKeySet("{F8}","Score8") If $RT>0 Then HotKeySet("{F10}","PreTimer") HotKeySet("{F11}","Pause") HotKeySet("{ESC}","EndGame") HotKeySet("!h","History") ;ALT+h ; SET SCORES TO 0 $COUNT=0 Do $SCORES[$COUNT][0]=0 $COUNT=$COUNT+1 Until $COUNT=9 $SCORES[0][0]=999999999999999999999 $1ST=1 CARD() ; DRAW TO CARD Func CARD () If $TEAM=2 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=3 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF,-1,-1,-1,-1,6,"impact",22,500) If $TEAM=4 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=5 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=6 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=7 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)"&@CRLF&" "&$SCORES[7][0]&" - "&$SCORES[7][1]&" (F7)",-1,-1,-1,-1,6,"impact",22,500) If $TEAM=8 Then SplashTextOn($BUILD,$BUILD&" SCORECARD"&@CRLF&@CRLF&" "&$SCORES[1][0]&" - "&$SCORES[1][1]&" (F1)"&@CRLF&" "&$SCORES[2][0]&" - "&$SCORES[2][1]&" (F2)"&@CRLF&" "&$SCORES[3][0]&" - "&$SCORES[3][1]&" (F3)"&@CRLF&" "&$SCORES[4][0]&" - "&$SCORES[4][1]&" (F4)"&@CRLF&" "&$SCORES[5][0]&" - "&$SCORES[5][1]&" (F5)"&@CRLF&" "&$SCORES[6][0]&" - "&$SCORES[6][1]&" (F6)"&@CRLF&" "&$SCORES[7][0]&" - "&$SCORES[7][1]&" (F7)"&@CRLF&" "&$SCORES[8][0]&" - "&$SCORES[8][1]&" (F8)",-1,-1,-1,-1,6,"impact",22,500) global $R=0 if $TURNS=999 then $TURNS=998 If $1ST=1 Then Active() If $RT>0 Then Timer() Active() EndFunc ; ACTIVE/WAIT Func Active() do $1ST=0 Sleep(1800000) $CONT=MsgBox(36,$BUILD,$BUILD&"Has Been Inactive For 30Mins, Do you want to BMS To Continue Running?") If $CONT=6 Then CARD() If $CONT=7 Then Exit Until $CONT=7 EndFunc ; PLAYER SCORE EDIT Func Score1() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[1][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[1][0]=$SCORES[1][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[1][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[1][0] CARD() EndFunc Func Score2() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[2][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[2][0]=$SCORES[2][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[2][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[2][0] CARD() EndFunc Func Score3() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[3][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[3][0]=$SCORES[3][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[3][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[3][0] CARD() EndFunc Func Score4() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[4][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[4][0]=$SCORES[4][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[4][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[4][0] CARD() EndFunc Func Score5() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[5][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[5][0]=$SCORES[5][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[5][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[5][0] CARD() EndFunc Func Score6() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[6][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[6][0]=$SCORES[6][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[6][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[6][0] CARD() EndFunc Func Score7() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[7][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[7][0]=$SCORES[7][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[7][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[7][0] CARD() EndFunc Func Score8() $SCO=InputBox($BUILD,"How Many Points Are To Be Added to "&$SCORES[8][1]&"'s Score","","",250,150) If @error=1 then Resume() $SCORES[8][0]=$SCORES[8][0]+$SCO $TURNS=$TURNS+1 $HIST[$TURNS][0]=$SCORES[8][1] $HIST[$TURNS][1]=$SCO $HIST[$TURNS][2]=$SCORES[8][0] CARD() EndFunc ; START/RESET TIMER Func PreTimer() $R=0 Timer() EndFunc ; BEGIN TIMER FROM $R Func Timer() If $R>0 Then Resume() ProgressOn($BUILD,$RT/60&" Minutes ("&$RT&") Seconds","0 Elapsed "&$RT&" Remaining",-1,$H+200,2) for $E= 1 to $RT step 1 If $RT-$E>9 then sleep(1000) If $RT-$E=60 Then Beep(1500,500) If $RT-$E=9 Then Beep(1100,200) If $RT-$E=9 Then Sleep(800) If $RT-$E=8 Then Beep(1200,200) If $RT-$E=8 Then Sleep(800) If $RT-$E=7 Then Beep(1300,200) If $RT-$E=7 Then Sleep(800) If $RT-$E=6 Then Beep(1400,200) If $RT-$E=6 Then Sleep(800) If $RT-$E=5 Then Beep(1500,200) If $RT-$E=5 Then Sleep(800) If $RT-$E=4 Then Beep(1600,200) If $RT-$E=4 Then Sleep(800) If $RT-$E=3 Then Beep(1700,200) If $RT-$E=3 Then Sleep(800) If $RT-$E=2 Then Beep(1800,200) If $RT-$E=2 Then Sleep(800) If $RT-$E=1 Then Beep(1900,200) If $RT-$E=1 Then Sleep(800) ProgressSet(100/$RT*$E,$E&" Elapsed "&$RT-$E&" Remaining") global $R=$E Next if $RT>0 Then ProgressSet(100,$RT-1&" Elapsed 1 Remaining") if $RT>0 Then Beep(2000,1000) if $RT>0 Then ProgressSet(100,"PLAYER HAS TIMED OUT") if $RT>0 Then MsgBox(0,$BUILD,"Player Has Timed Out") ProgressOff() global $R=0 Active() EndFunc ; CONTINUE TIMER AFTER CANCELED SCORE func Resume() IF $RT=0 Then CARD() $A=$R ProgressOn($BUILD,$RT/60&" Minutes ("&$RT&") Seconds",$A&" Elapsed "&$RT-$A&" Remaining",-1,$H+200,2) For $E= 1+$A to $RT step 1 If $RT-$E>9 then sleep(1000) If $RT-$E=60 Then Beep(1500,500) If $RT-$E=9 Then Beep(1100,200) If $RT-$E=9 Then Sleep(800) If $RT-$E=8 Then Beep(1200,200) If $RT-$E=8 Then Sleep(800) If $RT-$E=7 Then Beep(1300,200) If $RT-$E=7 Then Sleep(800) If $RT-$E=6 Then Beep(1400,200) If $RT-$E=6 Then Sleep(800) If $RT-$E=5 Then Beep(1500,200) If $RT-$E=5 Then Sleep(800) If $RT-$E=4 Then Beep(1600,200) If $RT-$E=4 Then Sleep(800) If $RT-$E=3 Then Beep(1700,200) If $RT-$E=3 Then Sleep(800) If $RT-$E=2 Then Beep(1800,200) If $RT-$E=2 Then Sleep(800) If $RT-$E=1 Then Beep(1900,200) If $RT-$E=1 Then Sleep(800) ProgressSet(100/$RT*$E,$E&" Elapsed "&$RT-$E&" Remaining") global $R=$E Next if $RT>0 Then ProgressSet(100,$RT-1&" Elapsed 1 Remaining") if $RT>0 Then Beep(2000,1000) if $RT>0 Then ProgressSet(100,"PLAYER HAS TIMED OUT") if $RT>0 Then MsgBox(0,$BUILD,"Player Has Timed Out") ProgressOff() global $R=0 Active() EndFunc ; END GAME Func EndGame() $CHECK=MsgBox(52,$BUILD,"Are You Sure You Want To End The Game") If $CHECK=7 then Resume () $TURNS=$TURNS+1 $HIST[$TURNS][1]="END GAME" ProgressOff() $WIN="TIE GAME" _ArraySort($SCORES,1) if $SCORES[1][0]=$SCORES[2][0] Then SplashTextOn($BUILD,"TIE GAME",-1,-1,-1,-1,34,"impact",72,500) if $SCORES[1][0]=$SCORES[2][0] Then MyExit() SplashTextOn($BUILD,"WINNER"&@CRLF&$SCORES[1][1]&@CRLF&@CRLF&"2nd "&$SCORES[2][1],-1,-1,-1,-1,34,"impact",48,500) Sleep(5000) MyExit() EndFunc ; PAUSE TIMER Func Pause() If $R>0 Then MsgBox(0,$BUILD,"PAUSED, Press 'Ok' To Continue") Resume() EndFunc ; EXIT/RESTART Func MyExit() $END=MsgBox(4,$BUILD,"Do You Want To Return To The Scorecard") If $END=6 Then ProgressOff() If $END=6 Then $RT=0 If $END=6 Then CARD() $SCORES[1][0]=0 $SCORES[2][0]=0 $SCORES[3][0]=0 $SCORES[4][0]=0 $SCORES[5][0]=0 $SCORES[6][0]=0 $SCORES[7][0]=0 $SCORES[8][0]=0 $EXIT=MsgBox(36,$BUILD,"Do You Want To Play Again?") If $EXIT=7 then Exit $TURNS=$TURNS+1 $HIST[$TURNS][1]="NEW GAME" If $EXIT=6 Then CARD() If $EXIT=7 then Exit EndFunc ; SHOW HISTORY Func History() _ArrayDisplay($HIST,$BUILD) EndFunc