[moka]

Немножко модифицировал функции, первая функция теперь производительнее.
Но добавил 2, для получения левой и правой части. Но юзаеться Instr поэтому могут возникнуть проблеммы с кирилицей.

Function ParsR$(linet$,r$)
	Return Right(Linet,Len(linet$)-Instr(linet,r))
End Function

Function ParsL$(linet$,r$)
	Return Left(Linet,Instr(linet,r)-1)
End Function

И немного изменил саму главную функцию, она теперь читабельнее и удобнее добовлять новые действия на переменные.

Function Load_cfg(patch$)
	wf=ReadFile(patch$)
	
	If wf<>0
		While (Eof(wf) = 0)
			linet$=ReadLine(wf)
			tLeft$=ParsL(linet,"=")
			tRight$=ParsR(linet,"=")
			
			Select tLeft
				Case "up_key"
					up_akey=tRight
				Case "down_k"
					down_akey=tRight
				Case "jump_k"
					jump_akey=tRight
				Case "shot_k"
					shot_akey=tRight
				Case "attack"
					attack_akey=tRight
				Case "sit_ke"
					sit_akey=tRight
				Case "map_ke"
					map_akey=tRight
			End Select
		Wend
		CloseFile wf
	EndIf
End Function