[Scripts] Stacked Table Viewer UPGRADE

SCRIPT nº1.

Dificuldade: Baixa+
Tempo: 3h30

Passei a tarde a criar um mini-jogo, bem simples mas mesmo assim FUN.
Diverti-me muito a criá-lo!

Quem quiser ler o código é só descompilar usando AutoHotKey (Exe to ahk). (ver Spoiler mais abaixo também.)
http://www.sendspace.com/file/8dodn3
♦ Nome do ficheiro: Strat3gy.rar

Alguém consegue bater os meus High Scores?

; AutoHotkey Version: 1.x
; Language:       English
;

#NoEnv
FileInstall, Strat3gy.bmp, Strat3gy.bmp
FileInstall, Strategy.bmp, Strategy.bmp

gui, font, s10 w700 verdana, XTXT
gui, add, text, , Foste desafiado pela Comunidade PT/BR!!`nEscolhe o teu Limite!`n
gui, font, s8 verdana, XTXT
gui, add, radio, checked vlimite cgreen, NL2 - Sou muito FISH ainda.
gui, add, radio, cblue, NL100 - Vou tentar nao desiludir a Strategy!
gui, add, radio, cred, Nem o Durrrr me segura!!
gui, font, s12 verdana, XTXT
gui, add, Button, w280 h50 x20 y150 gXTXT, Bora pra forra!
gui, show, , XTXT
winset, AlwaysOnTop, on, XTXT
winmove, XTXT, , 605, 375

gui 4:add, picture, x0 y0, Strat3gy.bmp
gui 4:font, s40 w700 verdana,Strat3gy
gui 4:color, 0
gui 4:add, text, cWhite x10 y0 vTempoo, 60
gui 4:add, text, c00FF00 x10 y55 vTempooo, 00
gui 4:show, w675 h372, Strat3gy
winset, transcolor, 0x00FFFF, Strat3gy
winset, Top,, Strat3gy
winset, Style, -0xC00000, Strat3gy
winmove, Strat3gy, , 400, 300

gui 9:add, picture, x0 y0, Strategy.bmp
gui 9:show, w34 h11, Strategy
winset, AlwaysOnTop, on, Strategy
winset, Style, -0xC00000, Strategy
winmove, Strategy, , 485, 304
random, abc1, 485, 1035
random, abc3, 305, 655
XTlex:=XTlex2:=0
return

guiclose:
exitapp

XTXT:
gui, submit
asec:=a_tickcount
if (limite=1) {
	setwindelay 1
	limiteX=NL2
}
else if (limite=2) {
	setwindelay 0
	limiteX=NL100
}
else {
	setwindelay 0
	limiteX=Durrrr
}

loop,
{
	random, abc2, 485, 1035
	random, abc4, 305, 655
	loop
	{
		if (limite=2) {
		abc1+=abs(abc2-abc1)/(abc2-abc1)*0.25
		abc3+=abs(abc4-abc3)/(abc4-abc3)*0.25
		} else {
		abc1+=abs(abc2-abc1)/(abc2-abc1)*0.5
		abc3+=abs(abc4-abc3)/(abc4-abc3)*0.5
		}
		abc0:=round(abc1)
		abc5:=round(abc3)
		winmove, Strategy, , %abc1%, %abc3%
		Tempoo:=60000-(a_tickcount-asec)
		StringTrimRight, Tempoo, Tempoo, 3
		GuiControl, 4:text, Tempoo, %Tempoo%
		if (XTlex<100)
			GuiControl, 4:text, Tempooo, %XTlex%
		OnMessage(0x201, "congratz0")
		if (Tempoo<0)
			goto congratz
		if (abc0=abc2 and abc5=abc4)
			break
	}
	soundbeep 4400,100
	XTlex2++
}
return

congratz0()
{
	global XTlex
	if (a_gui=9)
		XTlex++
	return XTlex
}
congratz:
gui, destroy
gui, font, s12 w750 verdana, XT_XT
gui, add, text, , Posta nos High Scores do Forum!!
gui, font, s10 cBlue verdana, XT_XT
gui, add, text, , Acertaste:`nLimite:`nCPU Factor:
gui, font, cFF0000, XT_XT
gui, add, text, x130 y47 , %XTlex%`n%limiteX%`n%XTlex2%
gui, show,, XT_XT
winset, AlwaysOnTop, on, XT_XT
winmove, XT_XT, , 620, 420
return

First

Eish, que tópico mais épico!

Com o touchpad:

Agora vou ler o script.

Çup?

Eis formado em Ciencias da Computacao xtremelexx?

Cursei 1 ano, depois larguei...

Esses códigos e coisa de louco......

Mas ainda tenho alguns em C++ dos trabalhos que tinha q fazer e tals....

Topico interessante!

Original de TheGameOver
Eis formado em Ciencias da Computacao xtremelexx?

Cursei 1 ano, depois larguei...

Esses códigos e coisa de louco......

Mas ainda tenho alguns em C++ dos trabalhos que tinha q fazer e tals....

Topico interessante!

Ele não é formado, coisa nenhuma! Apenas nasceu com uma mente brilhante e é por isso que eu gosto tanto dele

Saca o jogo que ele programou e posta aí os teus resultados:
http://www.sendspace.com/file/8dodn3

♠_thumbsup:

Original de nuno21nt
Çup?

Batota não vale!

Original de xtremelexx

Batota não vale!
Porque não? Escrevi um script para fazer batota. Mesmo assim não vale?

Original de TheGameOver
Eis formado em Ciencias da Computacao xtremelexx?

Cursei 1 ano, depois larguei...

Esses códigos e coisa de louco......

Mas ainda tenho alguns em C++ dos trabalhos que tinha q fazer e tals....

Topico interessante!

Não sou formado em Ciências da Computação.
Na verdade descobri esta linguagem ao ler este tópico.

Achei uma linguagem muito acessível e com um potencial bem interessante. Não me enganei. Meu sonho é ser um dia capaz de escrever em C++. Não me sinto capaz por enquanto. Entretanto ahk parece ser uma excelente alternativa!
Já estou a trabalhar noutro projecto relacionado com Poker desta vez. Irei postar aqui também.

Se quiseres postar algum desses códigos em C++ estás à vontade. És muito bem-vindo!

PS: Tenta bater os High Scores do Nuno, se conseguires!

Abraço.

Original de nuno21nt

Original de xtremelexx

Batota não vale!
Porque não? Escrevi um script para fazer batota. Mesmo assim não vale?

Posta aqui o script que usaste!

É a mesma coisa que tu escreveste, só lhe mudei a linha 107.

gui, add, text, x130 y47 , %XTlex%`n%limiteX%`n%XTlex2%

Passou a:

gui, add, text, x130 y47 , 7846164584564125`n%limiteX%`n%XTlex2%

SCRIPT nº2.

Dificuldade: Baixa
Tempo: 2h30

Opa pessoal, depois do estrondoso fracasso do 1º script , lembrei-me de fazer outro relacionado com Poker, desta vez!
Apresento-vos o TilesOrganizer!!

Este script serve para quem não gosta da forma como as salas organizam as mesas. Permite jogar até 24 mesas Tiled sem sobreposição. Num futuro próximo poderá ser configurado também.
Este é um trabalho a decorrer e pode ser alterado. Vejam o vídeo abaixo para terem uma ideia de como funciona!
O código segue mais abaixo no SPOILER!
Façam sugestões. Que funcionalidades querem ver implementadas?

#NoEnv
SetTitleMatchMode 2
setwindelay 0
Sysget, Area, MonitorWorkArea
Area0 := Arearight-Arealeft
Area1 := Areabottom-Areatop
id:=0
idZ:=0
Loop, 48 {
	array%a_index%:=0
}
gui, font, s20 w700 verdana
gui, add, text, x5 y0 c00FF00 vContagem, 00
gui, color, 0
idY:=Areabottom-33
gui, show, x%Arealeft% y%idY% w40 h6, Mesas
winset, AlwaysOnTop, on, Mesas
winset, Style, -0xC00000, Mesas

settimer, inicio, 500

inicio:
WinGet, id, list, ahk_class PokerStarsTableFrameClass,, Lobby
GuiControl, text, Contagem, %id%
if (id>idZ)
	idZ:=id
if (idZ=1) {
	width2:=Area0
	width3:=Area1
	coord:=1
}
if (idZ=2) {
	width2:=Area0/2
	width3:=Area1
	coord:=2
}
if (idZ>2) {
	width2:=Area0/2
	width3:=Area1/2
	coord:=3
}
if (idZ>4) {
	width2:=Area0/3
	width3:=Area1/2
	coord:=4
}
if (idZ>6) {
	width2:=Area0/3
	width3:=Area1/3
	coord:=5
}
if (idZ>9) {
	width2:=Area0/4
	width3:=Area1/3
	coord:=6
}
if (idZ>12) {
	width2:=Area0/5
	width3:=Area1/4
	coord:=7
}
if (idZ>20) {
	width2:=Area0/6
	width3:=Area1/4
	coord:=8
}
winmove, ahk_id %id1%,,0, 0, width2, width3
wingetpos,,, width0, width1, ahk_id %id1%


Loop, 48 {
	abc:=array%a_index%
	ifwinnotexist, ahk_id %abc%
		array%a_index%=0
}


Loop, %id% {
	kk:=id%a_index%
	flag:=0
	loop, 48 {
	if (kk = array%a_index%) {
		k:=a_index
		break
	}
	if (array%a_index%=0 and flag=0) {
		k:=a_index
		flag:=1
	}
	}

	if (coord=1)
		coord0:=coord1:=0
	if (coord=2) {
		coord0:=(k-1)*width0
		coord1:=0
	}
	if (coord=3) {
		coord0:=(k-1-2*floor((k-1)/2))*width0
		coord1:=floor((k-1)/2)*width1
	}
	if (coord=4 or coord=5) {
		coord0:=(k-1-3*floor((k-1)/3))*width0
		coord1:=floor((k-1)/3)*width1
	}
	if (coord=6) {
		coord0:=(k-1-4*floor((k-1)/4))*width0
		coord1:=floor((k-1)/4)*width1
	}
	if (coord=7) {
		coord0:=(k-1-5*floor((k-1)/5))*width0
		coord1:=floor((k-1)/5)*width1
	}
	if (coord=8) {
		coord0:=(k-1-6*floor((k-1)/6))*width0
		coord1:=floor((k-1)/6)*width1
	}

	winrestore, ahk_id %kk%
	winmove, ahk_id %kk%,,coord0, coord1, width2, width3
	array%k%:=kk
}
return

^!q::exitapp
^!x::
flag2:=0
idZ:=0
loop, 47 {
	if (flag2=1)
		break
	flag2:=0
	loop, 48 {
		kkk:=a_index+1
		if (array%a_index%=0 and a_index<48) {
			array%a_index%:=array%kkk%
			array%kkk%:=0
		}
		if (array%a_index%=0 and flag2=0)
			flag2:=1
		if (array%a_index%!=0 and flag2=1)
			flag2:=2
	}
}
return

Este gajo é deus

Hei-de testar isso.

Tens um ecrã acima de 20 polegadas certo??? :S

Sim, 24".
Mesmo assim, 24 mesas tiled ficam muito pequenas...

Vi agora o vídeo. Muito bom, parabéns

A meio do vídeo pensei em sugerir um botão para resetar caso quiséssemos reduzir o número de mesas, mas já tens isso com o Ctrl+Alt+X.

Parabéns também pelo aperfeiçoamento da indentação, passei os olhos pelo novo código e lê-se muito melhor do que o primeiro. Estás a melhorar muito rapidamente nesta linguagem. Quero passar algum tempo a ler o que escreveste, mas nos próximos dias não vai dar (há gajos que se andam a esforçar para poderem ir a festivais de verão ♠_rolleyes: ).

Ainda assim, o teu vídeo exemplar deixou-me algumas dúvidas. O que acontece se eu for o rs03rs03 e quiser jogar mais do que 24 sits ao mesmo tempo? O que acontece se eu for o LbrT e a Stars me aumentar o limite de mesas (lembra-te que isto agora é possível)? Não deverias escrever condições mais abrangentes? Existe uma solução prática para um número estupidamente enorme de mesas? Deixa fluir essas ideias brilhantes, queremos ler mais cenas

P.S.: Só acho que não devias ter feito o teu vídeo com legendas, mas sim com a tua voz extremamente séqsi

Tinha esquecido de voltar aqui.....

Esse script sim realmente é útil hein...

Em relacao ao primeiro script, eu tentei botar pra rodar aqui, porém quando abro trava o pc, travado mesmo não consigo nem dar Alt + Tab, depois de un 15 seg o símbolo da PS dá uma mexida e trava dnovo.......

Estou procurando meus códigos da epoca de computacao pra por aqui o /

Abraco!

Original de nuno21nt
Este gajo é deus

Hei-de testar isso.

+1 8o

Original de TheGameOver
Em relacao ao primeiro script, eu tentei botar pra rodar aqui, porém quando abro trava o pc, travado mesmo não consigo nem dar Alt + Tab, depois de un 15 seg o símbolo da PS dá uma mexida e trava dnovo.......

Processador e sistema operativo?

Btw