PALTRIVIA Problem :!:

man if its not easy i wont addit, lol i am telling the code so far is huge lol 🙂

this is for visual basic, dun think anyonwe here can help u with c#

i dont use paltalk anymore cant help you there.

Ok here the latest, everything is working with some buggys lol if u guys have a change check it out and tell me all the bugs,

ok now the question can be send in color but remember to edit the style before u start the questions:

ok here a few comand that people can type in the room

For team game

team red! with this command you will be enter to team red,
team blue! with this command you will be enter to team blue.
h-score! with this command you can find the current highest score between the two teams. it will messge it to the room.
t-red score! this will get the current team red score and send a messege with it to the room
t-blue score! this wil send the team blue score to the room.
l-q! will send the last question to the room

For individual game

h-score! will send the messge with the player with the highest score to the room.
get U-S! nick will send the score of the nick
l-q! will send the last question to the room

known bugs
first i havent test the game with time option throughly so it might have even more bugs, lol but it sends the messege winner twice instead of once ):
same thing with the max game option okie

what i need to do.

1- option to save team score, right now it only does it for individual score, if u press on the save score link, u will see what i mean.
other stuff lol dont know yet 🙂 any suggestion

How to use the program in basic .
1- click on the edit button to create a question answer file, save it and remember where u put it.
2- now choose whether this will be a individual or team game.
now click on the load button to load the questions and answers.
3- choose the style of the question to be send, how its going to look, important do this before the game start, okie 🙂
4- press start button, thas it.

how to use it in timer.

oke do steps 1-3 of the basic
then enter the minutes or second you want the game to last
then press start game timer
thas it 🙂

how to use it in max score.
oke do steps 1-3 of the basic
enter the max point in the box, so the game will stop once that max score is reach.
then click on the start button next to it okie.
thas it lol.

any question just ask, and this not even beta yet, lol i just putting it here for u guys to test it and to tell me how its going so far. ah and again only works for the new paltalk okie 🙂

hey udg i put the code in the vip area 😉 in case u wanna check it aigh

lol again lol, let me see if i can hook u up tomorrow, check ur pms aigh, by tommorrow aigh 🙂

Looks kool loco, but one thing how are you gonna have teams? would have to be a certain thing they would have to type perhaps to choose?

to randomize the questions you will have to give each one a number to identify it properly.

this code isnt mine but maybe it will help you for randomizing it another way,

' ### Just paste everything below into VB under a command button or ###

' ### something, then you'll see which bits are comments.           ###



' One way to randomize a list of items. For this you'll need three

' listboxes, named 'Openlist', 'Donelist' and 'Templist' (minus

' quotes. There's probably a better way to do this, but this is just what

' I came up with. It's simple really, but hopefully it should help someone.

' Comments or suggestions, contact me via the contact form on PSC. If you

' want to use this with an array, just modify the adding, deleting and

' counting actions for whatever you need. You'll need a bit of Rediming in

' there too.



' No warranty is provided for this script or its actions, neither expressed

' nor implied. No liability is assumed for the use, misuse, or inability to

' use this script, or the consequences thus.



Dim fromline As Double

Dim thisixloc As Double

' Names used here:

' Openlist  - this is a listbox containing all the items you want to

'             randomize. Where I've used it, it's contained lines opened

'             from a text file, hence 'Openlist' - Just replace all if

'             you really must change it

' Donelist  - This is the listbox which will contain the finished product

'             when it's all been randomized

' Templist  - The temporary store for the latter part of the Donelist (more

'             later)

' thisixloc - The current index number a new item should take (more later)

' fromline  - The current line index we're dealing with



' Clear the Donelist. Start with a clean slate

Donelist.Clear

' Add the first item to the donelist.

' It doesn't matter what item is added first, since by the end it could be

' anywhere in the list

Donelist.AddItem (Openlist.List(0))

' We're going to do this process for every item in the Openlist, otherwise

' we'd be leaving things out. Common sense really

For Item = 1 To Openlist.ListCount - 1

' Generate a new random seed. Make all this randomness a little more

' random

Randomize

' This generated an index location number, i.e. after this process has

' finished, this is the index number we want it to end up as. Bear in

' mind we're working in Base 0 here, so we start from 0. Also, the new

' item could go at the end of the list. So that would be the highest

' index value plus 1, which is the same as the ListCount, so we'll use

' that instead. The formula here is:

' Int((Highest - Lowest + 1) * Rnd + Lowest)

' Just generates us a number between our upper and lower bounds. Note

' that because we have 0 as a lower bound, adding or subtracting it does

' nothing, so the -0 and +0 just disappear to leave us with the

' following:

thisixloc = Int((Donelist.ListCount + 1) * Rnd)

' If the generated index number is 0, it means the current item is gonna

' be put at the start of the list.

If thisixloc = 0 Then

' So, we clear the temp store (here Templist) just in case, for whatever

' reason, there's something left over in there...

Templist.Clear

' ...move everything in Donelist over to the temporary store...

For fromline = 0 To Donelist.ListCount - 1

Templist.AddItem (Donelist.List(fromline))

Next fromline

' ...clear the donelist...

Donelist.Clear

' ...add the item...

Donelist.AddItem (Openlist.List(Item))

' ...move all the items back after the new item...

For fromline = 0 To Templist.ListCount - 1

Donelist.AddItem (Templist.List(fromline))

Next fromline

' ...and finally clear the temp store so it's fresh for next time

' it's used

Templist.Clear

' If our index number is one higher than the highest index in the

' donelist, this means we want to put the item on the end of the list

ElseIf thisixloc = Donelist.ListCount Then

' So of course, we just add it straight on there

Donelist.AddItem (Openlist.List(Item))

' Any other index number means we're gonna have to slip it into the

' list, in between what's already there. So, we'll split the list

' in two. The first part will be everything up to where we want the

' item to go, and the second part will be everything after it. So,

' we'll move the second part to the temporary store, remove the items

' that we just transferred, add the new item to the end of the first

' part of the list, then transferring everything back from the temp

' store, sticking it back on the end of our list.

' EDIT: Originally what I did was move the first part to one store,

'       then the second to another store. Re-add the first one, then

'       the item, then the second one. However, this meant that in the

'       computer memory, the list had to be duplicated, taking up both

'       memory itself and time. Especially for long lists, duplicating

'       a large portion of the list when it's not required was a silly

'       thing to be doing. So now, hopefully, if we just delete things

'       off the end, the first part can stay exactly where it was in

'       the memory, and we just add to it.

Else

' Clear the temporary store, again in case there's something left

' there for whatever reason

Templist.Clear

' Now, we'll take the second part of the list (from the index

' location right to the end) and put it in the temp store.

' If I type 'story' instead of 'store' one more time I'll go nuts

For fromline = thisixloc To Donelist.ListCount - 1

Templist.AddItem (Donelist.List(fromline))

Next fromline

' Now, we'll remove exactly the same items. We couldn't really

' remove them in the For Next loop above or we'd end up messing

' up our index numbers and making the process one helluva lot more

' complex than it really needs to be. Note that as the number of

' items in the list decreases as we delete them, we can just keep

' deleting whatever's in the current index location. If we do this

' the number of times there are things to delete, then all of them

' will go

For fromline = thisixloc To Donelist.ListCount - 1

Donelist.RemoveItem (thisixloc)

Next fromline

' Here comes our new item

Donelist.AddItem (Openlist.List(Item))

' Then move everything back onto the end of that list...

For fromline = 0 To Templist.ListCount - 1

Donelist.AddItem (Templist.List(fromline))

Next fromline

' ...and clear the temp store again

Templist.Clear

End If

Next Item