All pastes #77795 Raw Edit

Stuff

public text v1 · immutable
·published 2006-07-03 11:54 UTC
rendered paste body
function shuffledeck(deck,factor)
randomize timer()
for t = 1 to factor
 carda=rnd(decks(deck).cards-1)+decks(deck).memadress
 cardb=rnd(decks(deck).cards-1)+decks(deck).memadress
 s=*carda
 *carda=*cardb
 *cardb=s
next t
endfunction