From WiiLi

Contents 1 Direct Control Version 2 Percentage Control Version

[edit] Direct Control Version

//Rumble pattern tester
// use up/down to control the off time and lfet/right to control the on time (directional keys of the wiimote
//press the home buttom to toggle between contnuos and one by one increment
//Originally coded by TiagoTiago


if (Released(Wiimote1.Home))then

var.click= not(var.click)
endif
if (var.click)then
if (Released(Wiimote1.right)) then
var.on= var.on+ 1
elseif (Released(Wiimote1.Left )) then
var.on= var.on - 1
endif
if (Released(Wiimote1.Up)) then
var.off= var.off+ 1
elseif (Released(Wiimote1.Down)) then
var.off= var.off - 1
endif

else

if (Wiimote1.right) then
var.on= var.on+ 1
elseif (Wiimote1.Left )then
var.on= var.on - 1
endif
if (Wiimote1.Up) then
var.off= var.off+ 1
elseif (Wiimote1.Down) then
var.off= var.off - 1
endif
endif
debug = var.on+ "   " + var.off

if (TRUE)
Wait var.off ms
Wiimote1.Rumble = TRUE
Wait var.on ms
Wiimote1.Rumble = FALSE

endif

[edit] Percentage Control Version

//Rumble pattern tester (Percentage version)
// use the Up/Down buttoms to control the overall time and the Left/Right
// buttoms to control the percentage of that time the rumbling stays on
//(the diretional buttoms on the Wiimote)
//Originally coded by TiagoTiago




if (var.maxvib<= 0) then
var.maxvib= 1
endif

if (Released(Wiimote1.Home))then

var.click= not(var.click)
endif
if (var.click)then
if (Released(Wiimote1.right)) then
var.pcnt= var.pcnt+ 1
elseif (Released(Wiimote1.Left )) then
var.pcnt= var.pcnt - 1
endif
if (Released(Wiimote1.Up)) then
var.maxvib= var.maxvib+ 1
elseif (Released(Wiimote1.Down)) then
var.maxvib= var.maxvib - 1
endif

else

if (Wiimote1.right) then
var.pcnt= var.pcnt+ 1
elseif (Wiimote1.Left )then
var.pcnt= var.pcnt - 1
endif
if (Wiimote1.Up) then
var.maxvib= var.maxvib+ 1
elseif (Wiimote1.Down) then
var.maxvib= var.maxvib - 1
endif
endif

if      (var.pcnt    > 100) then
var.pcnt= 100
endif
if (var.pcnt<0) then
var.pcnt= 0
endif
var.on= var.maxvib / 100 * var.pcnt
var.off= var.maxvib- var.on
debug = var.on+ "   " + var.off   + "     " + var.maxvib + "    "+var.pcnt

if (TRUE)
Wait var.off ms
Wiimote1.Rumble = TRUE
Wait var.on ms
Wiimote1.Rumble = FALSE

endif