
Code is below, no need to add a variable and GFX. Just copy-paste it to the script window and execulate it via an event.
Code: Select all
Dim FlutterJumping as integer
Dim FlutterFlag as integer
Dim FlutterRestore as integer
Dim Pressed as integer
Dim GFXFlag as integer
Dim FlutterTemp as integer
Do
If Char(1).ItemSlot >= 1 and Char(1).ItemSlot <= 8 then
If FlutterFlag = -1 then
FlutterRestore += 1
If FlutterRestore >= 28 then
FlutterRestore = 0
FlutterFlag = 0
FlutterJumping = 0
End if
End if
if keypress(-16) then
If FlutterFlag = 0 and Char(1).Ysp < 0 then
FlutterTemp += 1
End iF
End If
If keypress(-16) and Pressed = 0 and keypress(-13) = 0 and FlutterTemp < 8 then
If FlutterFlag = 0 and FlutterTemp = 0 then
If Char(1).Ysp > 3 and Char(1).Stand = 0 then
Call Spevent(45)
FlutterFlag = 1
End if
End if
If FlutterFlag = 1 then
If GFXFlag < 2 then
GFXFlag += 1
Else
Call Spevent(46)
End If
If Char(1).Ysp > -4.6 then
If Char(1).Ysp < 0 then
FlutterJumping += 1
End if
Char(1).Ysp -= 0.58
Else
FlutterFlag = -1
Pressed = 1
FlutterJumping = 0
End If
End If
ElseIf keypress(-16) = 0 then
FlutterTemp = 0
GFXFlag = 0
Pressed = 0
If FlutterFlag = 1 and Char(1).stand = 0 and FlutterJumping > 0 then
FlutterFlag = -1
End if
End if
End if
If Char(1).ItemSlot = 0 or Char(1).stand = 1 then
FlutterFlag = 0
FlutterRestore = 0
FlutterJumping = 0
GFXFlag = 0
FlutterTemp = 0
End if
Call Sleep(1)
Loop
